START FILE

00000000: 01 08 0C 08 01 00 89 20  31 31 30 30 00 47 08 02  |....... 1100.G..|
00000010: 00 9F 20 31 35 2C 38 2C  31 35 2C 22 49 30 22 3A  |.. 15,8,15,"I0":|
00000020: 98 31 35 2C 22 53 30 3A  53 54 41 52 54 20 46 49  |.15,"S0:START FI|
00000030: 4C 45 22 3A 94 22 30 3A  53 54 41 52 54 20 46 49  |LE":."0:START FI|
00000040: 4C 45 22 2C 38 3A 80 00  74 08 03 00 99 22 11 43  |LE",8:..t....".C|
00000050: 4F 52 52 45 43 54 49 4F  4E 53 3F 28 12 59 92 2F  |ORRECTIONS?(.Y./|
00000060: 12 4E 92 29 22 3A 47 31  24 B2 22 59 4E 22 3A 8D  |.N.)":G1$."YN":.|
00000070: 20 35 3A 8E 00 82 08 04  00 9F 34 2C 34 3A 9D 34  | 5:.......4,4:.4|
00000080: 3A 9B 00 AC 08 05 00 A1  47 24 3A 81 56 B2 31 A4  |:.......G$:.V.1.|
00000090: C3 28 47 31 24 29 3A 8B  47 24 B3 B1 CA 28 47 31  |.(G1$):.G$...(G1|
000000A0: 24 2C 56 2C 31 29 A7 82  56 3A 89 35 00 B2 08 06  |$,V,1)..V:.5....|
000000B0: 00 8E 00 CE 08 08 00 84  4B 4B 28 56 4F 29 2C 45  |........KK(VO),E|
000000C0: 2C 45 24 2C 53 2C 54 3A  8B 45 B3 32 A7 8E 00 E9  |,E$,S,T:.E.2....|
000000D0: 08 09 00 99 22 44 49 53  4B 20 45 52 52 4F 52 3A  |...."DISK ERROR:|
000000E0: 22 45 3B 45 24 3B 53 3B  54 00 05 09 0A 00 99 22  |"E;E$;S;T......"|
000000F0: 12 11 52 92 45 41 44 59  3F 22 3A 47 31 24 B2 22  |..R.EADY?":G1$."|
00000100: 52 22 3A 89 35 00 10 09  0B 00 8F 20 4D 41 49 4E  |R":.5...... MAIN|
00000110: 00 1D 09 0C 00 8F 20 53  45 54 20 55 50 00 27 09  |...... SET UP.'.|
00000120: 0F 00 8F 20 41 53 4B 00  36 09 10 00 8F 20 41 4C  |... ASK.6.... AL|
00000130: 4F 43 41 54 45 32 00 45  09 11 00 8F 20 41 4C 4C  |OCATE2.E.... ALL|
00000140: 4F 43 41 54 45 00 55 09  13 00 8F 20 53 41 56 45  |OCATE.U.... SAVE|
00000150: 20 42 4F 4F 4B 00 64 09  1F 00 8F 20 52 45 43 20  | BOOK.d.... REC |
00000160: 53 49 5A 45 00 6F 09 20  00 8F 20 48 45 41 44 00  |SIZE.o. .. HEAD.|
00000170: 7C 09 21 00 8F 20 46 49  45 4C 44 53 00 87 09 23  ||.!.. FIELDS...#|
00000180: 00 8F 20 4B 45 59 53 00  97 09 25 00 8F 20 46 49  |.. KEYS...%.. FI|
00000190: 4C 45 20 53 49 5A 45 00  A2 09 2C 00 8F 20 59 45  |LE SIZE...,.. YE|
000001A0: 53 3F 00 B3 09 31 00 8F  20 41 53 4B 20 4E 55 4D  |S?...1.. ASK NUM|
000001B0: 42 45 52 00 C1 09 51 00  8F 20 53 41 4D 45 20 41  |BER...Q.. SAME A|
000001C0: 53 00 CC 09 5B 00 8F 20  45 58 49 54 00 D7 09 4C  |S...[.. EXIT...L|
000001D0: 04 8F 20 4D 41 49 4E 00  F0 09 51 04 8B 20 4C 49  |.. MAIN...Q.. LI|
000001E0: B3 32 35 33 20 A7 20 97  20 49 56 2C 4C 49 AA 33  |.253 . . IV,LI.3|
000001F0: 00 08 0A 56 04 8B 20 4D  41 B2 31 20 A7 20 97 20  |...V.. MA.1 . . |
00000200: 35 39 34 36 38 2C 31 32  00 1E 0A 5B 04 8B 20 4D  |59468,12...[.. M|
00000210: 41 B1 31 20 A7 20 99 C7  28 31 34 32 29 3B 00 29  |A.1 . ..(142);.)|
00000220: 0A 60 04 8D 20 31 32 30  30 00 3A 0A 65 04 8D 20  |.`.. 1200.:.e.. |
00000230: 31 35 30 30 3A 8F 20 41  53 4B 00 4C 0A 6A 04 8D  |1500:. ASK.L.j..|
00000240: 20 31 37 30 30 3A 8F 20  41 4C 4F 43 00 65 0A 6F  | 1700:. ALOC.e.o|
00000250: 04 44 45 B2 31 3A 44 4B  B2 31 3A 81 20 58 B2 30  |.DE.1:DK.1:. X.0|
00000260: 20 A4 20 48 4B 00 92 0A  74 04 3A 8B 20 53 46 25  | . HK...t.:. SF%|
00000270: 28 58 2C 30 29 B1 44 45  20 A7 20 44 45 B2 53 46  |(X,0).DE . DE.SF|
00000280: 25 28 58 2C 30 29 3A 8F  20 4D 41 58 20 44 45 50  |%(X,0):. MAX DEP|
00000290: 54 48 00 D2 0A 79 04 3A  81 20 44 B2 31 20 A4 20  |TH...y.:. D.1 . |
000002A0: 53 46 25 28 58 2C 30 29  3A 8B 20 53 46 25 28 58  |SF%(X,0):. SF%(X|
000002B0: 2C 44 29 B1 44 4B 20 A7  20 44 4B B2 53 46 25 28  |,D).DK . DK.SF%(|
000002C0: 58 2C 44 29 3A 8F 20 48  49 20 4B 59 20 46 4C 44  |X,D):. HI KY FLD|
000002D0: 20 23 00 DC 0A 7E 04 82  20 44 2C 58 00 FD 0A 83  | #...~.. D,X....|
000002E0: 04 8D 20 31 39 30 30 3A  A0 20 53 45 3A A0 20 52  |.. 1900:. SE:. R|
000002F0: 41 3A 8F 20 53 41 56 45  20 42 4F 4F 4B 00 1D 0B  |A:. SAVE BOOK...|
00000300: 88 04 58 24 B2 4D 4D 24  3A 8D 20 39 32 30 30 3A  |..X$.MM$:. 9200:|
00000310: 89 20 31 31 36 30 3A 8F  20 45 58 49 54 00 2A 0B  |. 1160:. EXIT.*.|
00000320: B0 04 8F 20 53 45 54 20  55 50 00 3A 0B B2 04 86  |... SET UP.:....|
00000330: 20 53 46 25 28 31 30 2C  35 29 00 40 0B 13 05 8E  | SF%(10,5).@....|
00000340: 00 4A 0B DC 05 8F 20 41  53 4B 00 68 0B E1 05 99  |.J.... ASK.h....|
00000350: 22 93 22 A3 31 32 29 22  12 53 54 41 52 54 20 4E  |".".12)".START N|
00000360: 45 57 20 46 49 4C 45 22  00 A8 0B EB 05 99 22 11  |EW FILE"......".|
00000370: 4E 41 4D 45 20 4F 46 20  4E 45 57 20 46 49 4C 45  |NAME OF NEW FILE|
00000380: 3F 22 52 24 3A 99 22 28  4C 45 41 56 45 20 42 4C  |?"R$:."(LEAVE BL|
00000390: 41 4E 4B 20 54 4F 20 52  45 54 55 52 4E 20 54 4F  |ANK TO RETURN TO|
000003A0: 20 22 4D 4D 24 22 29 22  00 C1 0B F0 05 3A 58 24  | "MM$")".....:X$|
000003B0: B2 4E 41 24 3A 8D 34 35  30 30 3A 4E 41 24 B2 58  |.NA$:.4500:NA$.X|
000003C0: 24 00 F2 0B F5 05 3A 8B  20 C3 28 4E 41 24 29 B1  |$.....:. .(NA$).|
000003D0: 31 32 20 A7 20 99 22 11  12 4E 41 4D 45 20 54 4F  |12 . ."..NAME TO|
000003E0: 4F 20 4C 4F 4E 47 22 3A  8D 31 30 3A 89 20 31 35  |O LONG":.10:. 15|
000003F0: 31 35 00 16 0C FA 05 3A  8B 20 4E 41 24 B2 22 22  |15.....:. NA$.""|
00000400: A7 20 58 24 B2 4D 4D 24  3A 8D 20 39 32 30 30 3A  |. X$.MM$:. 9200:|
00000410: 89 20 31 35 33 30 00 44  0C FF 05 3A 8B 20 C9 28  |. 1530.D...:. .(|
00000420: 4E 41 24 2C 31 29 B2 22  2A 22 A7 99 22 12 11 2A  |NA$,1)."*".."..*|
00000430: 20 49 4C 4C 45 47 41 4C  22 3A 8D 31 30 3A 89 20  | ILLEGAL":.10:. |
00000440: 31 35 31 35 00 64 0C 01  06 8D 20 38 31 30 30 3A  |1515.d.... 8100:|
00000450: 8B 20 45 20 A7 20 31 35  30 30 3A 8F 20 53 41 4D  |. E . 1500:. SAM|
00000460: 45 20 41 53 00 88 0C 04  06 99 22 11 45 4E 54 52  |E AS......".ENTR|
00000470: 49 45 53 20 49 4E 20 55  50 50 45 52 20 43 41 53  |IES IN UPPER CAS|
00000480: 45 20 4F 4E 4C 59 3F 22  00 A7 0C 09 06 3A 58 B2  |E ONLY?".....:X.|
00000490: A8 20 4D 43 3A 58 33 B2  31 3A 8D 20 34 34 30 30  |. MC:X3.1:. 4400|
000004A0: 3A 4D 43 B2 A8 20 58 00  C5 0C 0A 06 3A 8B 20 4D  |:MC.. X.....:. M|
000004B0: 54 B2 31 20 A7 20 97 20  35 39 34 36 38 2C 31 32  |T.1 . . 59468,12|
000004C0: AA 32 AC 4D 43 00 E2 0C  0B 06 3A 8B 20 4D 54 B1  |.2.MC.....:. MT.|
000004D0: 31 20 A7 20 99 C7 28 31  34 32 AB 31 32 38 AC 4D  |1 . ..(142.128.M|
000004E0: 43 29 00 24 0D 0E 06 99  22 11 57 48 41 54 20 49  |C).$....".WHAT I|
000004F0: 53 20 54 48 45 20 4D 41  58 49 4D 55 4D 20 4E 4F  |S THE MAXIMUM NO|
00000500: 2E 20 4F 46 20 52 45 43  4F 52 44 53 20 54 48 45  |. OF RECORDS THE|
00000510: 20 46 49 4C 45 20 57 49  4C 4C 20 43 4F 4E 54 41  | FILE WILL CONTA|
00000520: 49 4E 3F 22 00 48 0D 13  06 3A 58 B2 4D 52 3A 58  |IN?".H...:X.MR:X|
00000530: 31 B2 31 3A 58 32 B2 31  30 30 30 30 3A 8D 20 34  |1.1:X2.10000:. 4|
00000540: 38 30 30 3A 4D 52 B2 58  00 5D 0D 18 06 8D 33 31  |800:MR.X.]....31|
00000550: 30 30 3A 8F 20 52 45 43  20 53 49 5A 45 00 70 0D  |00:. REC SIZE.p.|
00000560: 1D 06 8D 33 33 30 30 3A  8F 20 46 49 45 4C 44 53  |...3300:. FIELDS|
00000570: 00 81 0D 22 06 8D 33 35  30 30 3A 8F 20 4B 45 59  |..."..3500:. KEY|
00000580: 53 00 A7 0D 27 06 8D 33  37 30 30 3A 8D 33 3A 8B  |S...'..3700:.3:.|
00000590: 47 24 B2 22 59 22 A7 31  35 30 30 3A 8F 20 46 49  |G$."Y".1500:. FI|
000005A0: 4C 45 20 53 49 5A 45 00  C8 0D 29 06 8D 33 32 30  |LE SIZE...)..320|
000005B0: 30 3A 8D 33 3A 8B 47 24  B2 22 59 22 A7 31 35 37  |0:.3:.G$."Y".157|
000005C0: 37 3A 8F 20 48 45 41 44  00 CE 0D 36 06 8E 00 DD  |7:. HEAD...6....|
000005D0: 0D 40 06 8F 20 41 4C 4F  43 41 54 45 32 00 09 0E  |.@.. ALOCATE2...|
000005E0: 45 06 52 42 B2 B5 28 32  35 35 AD 52 53 AA 2E 30  |E.RB..(255.RS..0|
000005F0: 30 30 31 29 3A 48 42 B2  B5 28 4D 52 AD 52 42 AA  |001):HB..(MR.RB.|
00000600: 2E 30 30 30 30 31 29 AA  31 00 32 0E 4A 06 9F 20  |.00001).1.2.J.. |
00000610: 52 41 2C 44 56 28 52 56  29 2C 52 41 2C 22 23 22  |RA,DV(RV),RA,"#"|
00000620: 3A 56 4F B2 52 56 3A 8D  20 38 3A 8B 20 45 20 A7  |:VO.RV:. 8:. E .|
00000630: 20 8E 00 58 0E 4F 06 41  24 B2 22 22 3A 81 20 58  | ..X.O.A$."":. X|
00000640: B2 31 A4 48 46 3A 41 24  B2 41 24 AA C7 28 32 35  |.1.HF:A$.A$..(25|
00000650: 35 29 AA 52 24 3A 82 58  00 8E 0E 54 06 81 20 58  |5).R$:.X...T.. X|
00000660: B2 31 20 A4 20 52 42 3A  98 4B 4B 28 52 56 29 2C  |.1 . RB:.KK(RV),|
00000670: 22 42 2D 50 3A 22 52 41  2C 31 AA 28 58 AB 31 29  |"B-P:"RA,1.(X.1)|
00000680: AC 52 53 3A 98 52 41 2C  41 24 3B 3A 82 58 00 D2  |.RS:.RA,A$;:.X..|
00000690: 0E 59 06 58 B2 B5 28 48  42 AD 31 32 29 AD 31 30  |.Y.X..(HB.12).10|
000006A0: 3A 99 22 11 28 41 4C 4C  4F 43 41 54 49 4E 47 20  |:.".(ALLOCATING |
000006B0: 42 4C 4F 43 4B 53 29 22  52 24 22 28 50 4C 45 41  |BLOCKS)"R$"(PLEA|
000006C0: 53 45 20 57 41 49 54 22  58 22 4D 49 4E 55 54 45  |SE WAIT"X"MINUTE|
000006D0: 53 29 00 E6 0E 5B 06 86  20 53 25 28 48 42 29 2C  |S)...[.. S%(HB),|
000006E0: 54 25 28 48 42 29 00 0B  0F 5E 06 53 B2 30 3A 54  |T%(HB)...^.S.0:T|
000006F0: B2 31 3A 81 20 57 42 B2  31 A4 20 48 42 3A 8F 20  |.1:. WB.1. HB:. |
00000700: 57 48 49 43 48 20 42 4C  4F 43 4B 00 22 0F 63 06  |WHICH BLOCK.".c.|
00000710: 3A 8B 20 54 B2 31 38 20  A7 20 54 B2 31 39 3A 53  |:. T.18 . T.19:S|
00000720: B2 30 00 41 0F 68 06 3A  20 8B 20 54 B2 33 38 20  |.0.A.h.: . T.38 |
00000730: B0 20 54 B2 33 39 20 A7  20 54 B2 34 30 3A 53 B2  |. T.39 . T.40:S.|
00000740: 30 00 59 0F 6D 06 3A 20  8B 20 54 B2 37 36 20 A7  |0.Y.m.: . T.76 .|
00000750: 20 54 B2 37 38 3A 53 B2  30 00 78 0F 72 06 3A 20  | T.78:S.0.x.r.: |
00000760: 98 4B 4B 28 52 56 29 2C  22 42 2D 41 3A 22 44 52  |.KK(RV),"B-A:"DR|
00000770: 28 52 56 29 2C 54 2C 53  00 90 0F 77 06 3A 20 84  |(RV),T,S...w.: .|
00000780: 4B 4B 28 52 56 29 2C 45  2C 45 24 2C 58 2C 58 31  |KK(RV),E,E$,X,X1|
00000790: 00 A2 0F 7C 06 3A 8B 20  45 B2 30 20 A7 20 31 36  |...|.:. E.0 . 16|
000007A0: 38 30 00 CD 0F 81 06 3A  20 54 B2 58 3A 53 B2 58  |80.....: T.X:S.X|
000007B0: 31 3A 8B 20 45 B3 B1 36  35 20 A7 20 8D 20 39 3A  |1:. E..65 . . 9:|
000007C0: 58 24 B2 4D 4D 24 3A 8D  20 39 32 30 30 00 05 10  |X$.MM$:. 9200...|
000007D0: 86 06 3A 20 8B 20 54 B2  30 20 A7 20 99 22 12 4E  |..: . T.0 . .".N|
000007E0: 4F 54 20 45 4E 4F 55 47  48 20 52 4F 4F 4D 20 4F  |OT ENOUGH ROOM O|
000007F0: 4E 20 44 49 53 4B 22 3A  58 24 B2 4D 4D 24 3A 8D  |N DISK":X$.MM$:.|
00000800: 20 39 32 30 30 00 12 10  8B 06 3A 20 89 20 31 36  | 9200.....: . 16|
00000810: 33 35 00 29 10 90 06 3A  53 25 28 57 42 29 B2 53  |35.)...:S%(WB).S|
00000820: 3A 54 25 28 57 42 29 B2  54 00 49 10 95 06 3A 98  |:T%(WB).T.I...:.|
00000830: 4B 4B 28 52 56 29 2C 22  55 32 3A 22 52 41 3B 44  |KK(RV),"U2:"RA;D|
00000840: 52 28 52 56 29 3B 54 3B  53 00 54 10 9A 06 82 20  |R(RV);T;S.T.... |
00000850: 57 42 3A 8E 00 63 10 A4  06 8F 20 41 4C 4C 4F 43  |WB:..c.... ALLOC|
00000860: 41 54 45 00 90 10 A9 06  45 B2 30 3A 52 52 24 B2  |ATE.....E.0:RR$.|
00000870: 22 22 3A 81 58 B2 31 A4  31 32 37 3A 52 52 24 B2  |"":.X.1.127:RR$.|
00000880: 52 52 24 AA 22 3F 22 AA  C7 28 31 33 29 3A 82 58  |RR$."?"..(13):.X|
00000890: 00 B4 10 AE 06 99 22 11  12 49 4E 53 45 52 54 20  |......"..INSERT |
000008A0: 44 49 53 4B 20 46 4F 52  20 52 41 4E 44 4F 4D 20  |DISK FOR RANDOM |
000008B0: 46 49 4C 45 00 EB 10 B3  06 3A 8B 44 54 B1 31 A7  |FILE.....:.DT.1.|
000008C0: 99 22 11 44 52 49 56 45  20 4E 4F 28 12 31 92 2F  |.".DRIVE NO(.1./|
000008D0: 12 30 92 29 22 3A 47 31  24 B2 22 30 31 22 3A 8D  |.0.)":G1$."01":.|
000008E0: 20 35 3A 52 56 B2 C5 28  47 24 29 00 03 11 B8 06  | 5:RV..(G$).....|
000008F0: 3A 8B 20 44 54 B2 31 20  A7 20 8D 20 31 30 3A 52  |:. DT.1 . . 10:R|
00000900: 56 B2 30 00 3D 11 BD 06  3A 9F 20 53 45 2C 38 2C  |V.0.=...:. SE,8,|
00000910: 53 45 2C 22 30 3A 22 AA  4D 4D 24 AA 22 2C 50 2C  |SE,"0:".MM$.",P,|
00000920: 52 22 3A 56 4F B2 30 3A  84 4B 4B 28 56 4F 29 2C  |R":VO.0:.KK(VO),|
00000930: 45 2C 45 24 2C 53 2C 54  3A A0 20 53 45 00 7A 11  |E,E$,S,T:. SE.z.|
00000940: C2 06 3A 8B 20 46 46 B3  B1 30 20 AF 20 45 B2 30  |..:. FF..0 . E.0|
00000950: 20 A7 20 99 22 11 50 52  4F 47 52 41 4D 20 44 49  | . .".PROGRAM DI|
00000960: 53 4B 20 49 53 20 49 4E  20 44 41 54 41 20 44 52  |SK IS IN DATA DR|
00000970: 49 56 45 22 3A 89 31 37  31 30 00 8C 11 C7 06 8B  |IVE":.1710......|
00000980: 4E 32 24 B2 22 22 A7 89  31 37 36 30 00 B4 11 CC  |N2$.""..1760....|
00000990: 06 3A 8B 20 46 46 20 A7  20 99 22 28 48 45 41 44  |.:. FF . ."(HEAD|
000009A0: 49 4E 47 20 54 48 45 20  44 49 53 4B 29 22 3A 89  |ING THE DISK)":.|
000009B0: 31 37 35 30 00 D2 11 D1  06 3A 20 99 22 28 46 4F  |1750.....: ."(FO|
000009C0: 52 4D 41 54 54 49 4E 47  20 54 48 45 20 44 49 53  |RMATTING THE DIS|
000009D0: 4B 29 00 FD 11 D6 06 3A  98 4B 4B 28 52 56 29 2C  |K).....:.KK(RV),|
000009E0: 22 4E 22 44 52 24 28 52  56 29 22 3A 22 4E 32 24  |"N"DR$(RV)":"N2$|
000009F0: 22 2C 22 C9 28 C4 28 49  44 29 2C 32 29 00 22 12  |",".(.(ID),2).".|
00000A00: DB 06 3A 56 4F B2 52 56  3A 8D 38 3A 8B 45 A7 58  |..:VO.RV:.8:.E.X|
00000A10: 24 B2 4D 4D 24 3A 8D 20  39 32 30 30 3A 89 31 37  |$.MM$:. 9200:.17|
00000A20: 35 35 00 39 12 E0 06 98  4B 4B 28 52 56 29 2C 22  |55.9....KK(RV),"|
00000A30: 49 22 44 52 24 28 51 56  29 00 51 12 E5 06 8B 20  |I"DR$(QV).Q.... |
00000A40: 52 33 20 A7 20 8D 20 31  36 30 30 3A 89 31 37 38  |R3 . . 1600:.178|
00000A50: 30 00 6D 12 EA 06 3A D9  28 22 52 41 A2 22 AA 4E  |0.m...:.("RA.".N|
00000A60: 41 24 29 2C 44 28 44 52  28 52 56 29 29 00 93 12  |A$),D(DR(RV))...|
00000A70: EF 06 3A CD 23 28 52 41  29 2C 22 52 41 A2 22 AA  |..:.#(RA),"RA.".|
00000A80: 4E 41 24 2C 4C 28 52 53  29 2C 44 28 44 52 28 52  |NA$,L(RS),D(DR(R|
00000A90: 56 29 29 00 A6 12 F4 06  86 20 50 4F 25 28 4D 52  |V))...... PO%(MR|
00000AA0: 2C 48 4B 29 3A 8E 00 B6  12 6C 07 8F 20 53 41 56  |,HK):....l.. SAV|
00000AB0: 45 20 42 4F 4F 4B 00 E6  12 71 07 A0 20 53 45 3A  |E BOOK...q.. SE:|
00000AC0: 55 4B B2 57 4B 3A 99 22  11 28 53 43 52 41 54 43  |UK.WK:.".(SCRATC|
00000AD0: 48 49 4E 47 20 4F 4C 44  20 42 4F 4F 4B 4B 45 45  |HING OLD BOOKKEE|
00000AE0: 50 49 4E 47 29 22 00 1E  13 76 07 3A 98 4B 4B 28  |PING)"...v.:.KK(|
00000AF0: 52 56 29 2C 22 53 22 AA  44 52 24 28 52 56 29 AA  |RV),"S".DR$(RV).|
00000B00: 22 3A 44 42 A2 22 AA 4E  41 24 3A 56 4F B2 52 56  |":DB.".NA$:VO.RV|
00000B10: 3A 8D 20 38 3A 8B 20 45  B1 31 20 A7 20 8E 00 5C  |:. 8:. E.1 . ..\|
00000B20: 13 7C 07 9F 20 53 45 2C  44 56 28 52 56 29 2C 53  |.|.. SE,DV(RV),S|
00000B30: 45 2C 44 52 24 28 52 56  29 AA 22 3A 44 42 A2 22  |E,DR$(RV).":DB."|
00000B40: AA 4E 41 24 AA 22 2C 53  2C 57 22 3A 56 4F B2 52  |.NA$.",S,W":VO.R|
00000B50: 56 3A 8D 20 38 3A 8B 45  20 A7 20 8E 00 A2 13 80  |V:. 8:.E . .....|
00000B60: 07 98 53 45 2C 4D 52 3B  52 24 48 52 3B 52 24 52  |..SE,MR;R$HR;R$R|
00000B70: 53 3B 52 24 48 42 3B 52  24 48 46 3B 52 24 53 46  |S;R$HB;R$HF;R$SF|
00000B80: 3B 52 24 52 42 3B 52 24  48 4B 3B 52 24 57 4B 3B  |;R$RB;R$HK;R$WK;|
00000B90: 52 24 44 4B 3B 52 24 44  45 3B 52 24 4D 43 3B 52  |R$DK;R$DE;R$MC;R|
00000BA0: 24 3B 00 CA 13 85 07 81  20 57 46 B2 31 20 A4 20  |$;...... WF.1 . |
00000BB0: 48 46 3A 98 53 45 2C 51  24 3B 46 54 24 28 57 46  |HF:.SE,Q$;FT$(WF|
00000BC0: 29 3B 52 24 3B 3A 82 20  57 46 00 F6 13 8A 07 81  |);R$;:. WF......|
00000BD0: 20 44 B2 30 A4 35 3A 81  20 58 B2 30 A4 48 4B 3A  | D.0.5:. X.0.HK:|
00000BE0: 98 53 45 2C 53 46 25 28  58 2C 44 29 3B 52 24 3B  |.SE,SF%(X,D);R$;|
00000BF0: 3A 82 20 58 2C 44 00 0F  14 8F 07 99 22 28 53 41  |:. X,D......"(SA|
00000C00: 56 49 4E 47 20 50 4F 49  4E 54 45 52 53 29 22 00  |VING POINTERS)".|
00000C10: 43 14 94 07 3A 81 20 58  B2 30 A4 48 4B 3A 81 20  |C...:. X.0.HK:. |
00000C20: 52 52 B2 31 20 A4 20 48  52 3A 98 53 45 2C 50 4F  |RR.1 . HR:.SE,PO|
00000C30: 25 28 52 52 2C 58 29 3B  52 24 3B 3A 82 20 52 52  |%(RR,X);R$;:. RR|
00000C40: 3A 82 58 00 71 14 99 07  8B 20 52 33 20 A7 20 99  |:.X.q.... R3 . .|
00000C50: 22 28 53 41 56 49 4E 47  20 42 4C 4F 43 4B 20 4D  |"(SAVING BLOCK M|
00000C60: 41 50 29 22 3A 81 20 58  B2 31 A4 31 30 3A 82 20  |AP)":. X.1.10:. |
00000C70: 58 00 A9 14 9E 07 3A 8B  20 52 33 20 A7 20 81 20  |X.....:. R3 . . |
00000C80: 57 42 B2 31 20 A4 20 48  42 3A 98 53 45 2C 22 20  |WB.1 . HB:.SE," |
00000C90: 22 54 25 28 57 42 29 52  24 22 20 22 53 25 28 57  |"T%(WB)R$" "S%(W|
00000CA0: 42 29 52 24 3B 3A 82 57  42 00 DB 14 A3 07 8B 52  |B)R$;:.WB......R|
00000CB0: 34 A7 CE 23 28 52 41 29  3A CD 23 28 52 41 29 2C  |4..#(RA):.#(RA),|
00000CC0: 28 22 52 41 A2 22 AA 4E  41 24 29 2C 4C 28 52 53  |("RA.".NA$),L(RS|
00000CD0: 29 2C 44 28 44 52 28 52  56 29 29 00 F4 14 A8 07  |),D(DR(RV)).....|
00000CE0: 53 50 B2 30 3A A0 20 53  45 3A 56 4F B2 52 56 3A  |SP.0:. SE:VO.RV:|
00000CF0: 8D 38 3A 8E 00 03 15 1C  0C 8F 20 52 45 43 20 53  |.8:....... REC S|
00000D00: 49 5A 45 00 35 15 26 0C  99 22 11 57 48 41 54 20  |IZE.5.&..".WHAT |
00000D10: 49 53 20 54 48 45 20 4D  41 58 49 4D 55 4D 20 53  |IS THE MAXIMUM S|
00000D20: 49 5A 45 20 4F 46 20 45  41 43 48 20 52 45 43 4F  |IZE OF EACH RECO|
00000D30: 52 44 3F 22 3B 00 75 15  30 0C 99 22 28 54 4F 54  |RD?";.u.0.."(TOT|
00000D40: 41 4C 20 43 48 41 52 41  43 54 45 52 53 20 49 4E  |AL CHARACTERS IN|
00000D50: 20 41 4C 4C 20 46 49 45  4C 44 53 20 50 4C 55 53  | ALL FIELDS PLUS|
00000D60: 20 54 57 4F 20 46 4F 52  20 45 41 43 48 20 46 49  | TWO FOR EACH FI|
00000D70: 45 4C 44 29 22 00 96 15  35 0C 58 B2 52 53 3A 58  |ELD)"...5.X.RS:X|
00000D80: 31 B2 33 3A 58 32 B2 32  35 34 3A 8D 20 34 38 30  |1.3:X2.254:. 480|
00000D90: 30 3A 52 53 B2 58 00 B8  15 44 0C 81 20 58 B2 31  |0:RS.X...D.. X.1|
00000DA0: A4 38 35 3A 8B 20 52 53  B3 B2 B5 28 32 35 34 AD  |.85:. RS...(254.|
00000DB0: 58 29 20 A7 20 82 20 58  00 DF 15 4E 0C 52 53 B2  |X) . . X...N.RS.|
00000DC0: B5 28 32 35 34 AD 28 58  AB 31 29 29 3A 99 22 4D  |.(254.(X.1)):."M|
00000DD0: 41 58 20 52 45 43 20 53  49 5A 45 3D 22 52 53 00  |AX REC SIZE="RS.|
00000DE0: 0A 16 58 0C 52 42 B2 B5  28 32 35 34 AD 52 53 AA  |..X.RB..(254.RS.|
00000DF0: 2E 30 30 30 31 29 3A 48  42 B2 B5 28 4D 52 AD 52  |.0001):HB..(MR.R|
00000E00: 42 AA 2E 30 30 30 31 29  AA 31 00 10 16 7F 0C 8E  |B..0001).1......|
00000E10: 00 1B 16 80 0C 8F 20 48  45 41 44 00 50 16 85 0C  |...... HEAD.P...|
00000E20: 8B 20 46 46 20 A7 20 99  22 11 44 4F 20 59 4F 55  |. FF . .".DO YOU|
00000E30: 20 57 41 4E 54 20 54 4F  20 48 45 41 44 45 52 20  | WANT TO HEADER |
00000E40: 54 48 45 20 44 49 53 4B  3F 22 3A 89 33 32 31 30  |THE DISK?":.3210|
00000E50: 00 79 16 87 0C 3A 99 22  11 44 4F 20 59 4F 55 20  |.y...:.".DO YOU |
00000E60: 57 41 4E 54 20 54 4F 20  46 4F 52 4D 41 54 20 54  |WANT TO FORMAT T|
00000E70: 48 45 20 44 49 53 4B 3F  22 00 BB 16 8A 0C 99 22  |HE DISK?"......"|
00000E80: 28 45 52 41 53 45 20 4F  4C 44 20 44 49 53 4B 20  |(ERASE OLD DISK |
00000E90: 4F 52 20 50 52 45 50 41  52 45 20 4E 45 57 20 44  |OR PREPARE NEW D|
00000EA0: 49 53 4B 29 22 3A 58 B2  48 45 3A 58 33 B2 AB 31  |ISK)":X.HE:X3..1|
00000EB0: 3A 8D 34 34 30 30 3A 48  45 B2 58 00 D0 16 8F 0C  |:.4400:HE.X.....|
00000EC0: 8B 20 58 B2 30 20 A7 20  4E 32 24 B2 22 22 3A 8E  |. X.0 . N2$."":.|
00000ED0: 00 EA 16 99 0C 99 22 11  4E 41 4D 45 20 4F 46 20  |......".NAME OF |
00000EE0: 54 48 45 20 44 49 53 4B  3F 22 00 20 17 9E 0C 3A  |THE DISK?". ...:|
00000EF0: 99 22 28 4D 41 58 49 4D  55 4D 20 31 35 20 43 41  |."(MAXIMUM 15 CA|
00000F00: 52 41 43 54 45 52 53 2C  20 44 4F 20 4E 4F 54 20  |RACTERS, DO NOT |
00000F10: 55 53 45 20 50 55 4E 43  54 55 41 54 49 4F 4E 29  |USE PUNCTUATION)|
00000F20: 00 39 17 A0 0C 3A 58 24  B2 4E 32 24 3A 8D 34 35  |.9...:X$.N2$:.45|
00000F30: 30 30 3A 4E 32 24 B2 58  24 00 58 17 A3 0C 3A 8B  |00:N2$.X$.X...:.|
00000F40: 20 C3 28 4E 32 24 29 B3  31 B0 C3 28 4E 32 24 29  | .(N2$).1..(N2$)|
00000F50: B1 31 35 A7 33 32 32 35  00 6A 17 A8 0C 99 22 11  |.15.3225.j....".|
00000F60: 49 44 20 4E 55 4D 42 45  52 3F 00 99 17 AD 0C 3A  |ID NUMBER?.....:|
00000F70: 99 22 28 45 41 43 48 20  44 49 53 4B 20 53 48 4F  |."(EACH DISK SHO|
00000F80: 55 4C 44 20 48 41 56 45  20 41 20 44 49 46 46 45  |ULD HAVE A DIFFE|
00000F90: 52 45 4E 54 20 49 44 29  22 00 BA 17 AE 0C 3A 58  |RENT ID)".....:X|
00000FA0: B2 49 44 3A 58 31 B2 30  3A 58 32 B2 39 39 3A 8D  |.ID:X1.0:X2.99:.|
00000FB0: 20 34 38 30 30 3A 49 44  B2 58 00 CB 17 B7 0C 3A  | 4800:ID.X.....:|
00000FC0: 8B 20 49 44 B3 B1 32 31  A7 20 8E 00 09 18 BC 0C  |. ID..21. ......|
00000FD0: 3A 99 22 11 32 31 20 49  53 20 50 52 4F 47 52 41  |:.".21 IS PROGRA|
00000FE0: 4D 20 44 49 53 4B 20 49  44 22 52 24 22 50 4C 45  |M DISK ID"R$"PLE|
00000FF0: 41 53 45 20 43 48 4F 4F  53 45 20 41 4E 4F 54 48  |ASE CHOOSE ANOTH|
00001000: 45 52 22 3A 89 33 32 34  30 00 16 18 E4 0C 8F 20  |ER":.3240...... |
00001010: 46 49 45 4C 44 53 00 3A  18 01 0D 99 22 11 48 4F  |FIELDS.:....".HO|
00001020: 57 20 4D 41 4E 59 20 46  49 45 4C 44 53 20 50 45  |W MANY FIELDS PE|
00001030: 52 20 52 45 43 4F 52 44  3F 22 00 5A 18 02 0D 58  |R RECORD?".Z...X|
00001040: B2 48 46 3A 58 31 B2 31  3A 58 32 B2 4D 44 3A 8D  |.HF:X1.1:X2.MD:.|
00001050: 20 34 38 30 30 3A 48 46  B2 58 00 6A 18 07 0D 81  | 4800:HF.X.j....|
00001060: 20 57 46 B2 31 20 A4 20  48 46 00 8C 18 0C 0D 3A  | WF.1 . HF.....:|
00001070: 99 22 11 54 49 54 4C 45  20 46 4F 52 20 46 49 45  |.".TITLE FOR FIE|
00001080: 4C 44 20 4E 4F 2E 22 57  46 22 3F 22 00 B2 18 11  |LD NO."WF"?"....|
00001090: 0D 3A 58 24 B2 46 54 24  28 57 46 29 3A 8D 34 35  |.:X$.FT$(WF):.45|
000010A0: 30 30 3A 46 54 24 28 57  46 29 B2 58 24 3A 82 20  |00:FT$(WF).X$:. |
000010B0: 57 46 00 B8 18 47 0D 8E  00 C3 18 AC 0D 8F 20 4B  |WF...G........ K|
000010C0: 45 59 53 00 E5 18 B1 0D  99 22 11 48 4F 57 20 4D  |EYS......".HOW M|
000010D0: 41 4E 59 20 4B 45 59 53  20 44 4F 20 59 4F 55 20  |ANY KEYS DO YOU |
000010E0: 57 41 4E 54 3F 00 18 19  B6 0D 99 22 28 45 58 41  |WANT?......"(EXA|
000010F0: 4D 50 4C 45 3A 20 49 46  20 59 4F 55 20 48 41 44  |MPLE: IF YOU HAD|
00001100: 20 41 20 4B 45 59 20 46  4F 52 20 4E 41 4D 45 20  | A KEY FOR NAME |
00001110: 41 4E 44 20 41 20 22 3B  00 4D 19 B7 0D 99 22 4B  |AND A ";.M...."K|
00001120: 45 59 20 46 4F 52 20 5A  49 50 20 43 4F 44 45 2C  |EY FOR ZIP CODE,|
00001130: 20 59 4F 55 20 43 4F 55  4C 44 20 43 48 41 4E 47  | YOU COULD CHANG|
00001140: 45 20 54 48 45 20 46 49  4C 45 20 22 3B 00 82 19  |E THE FILE ";...|
00001150: B8 0D 99 22 46 52 4F 4D  20 4E 41 4D 45 20 4F 52  |..."FROM NAME OR|
00001160: 44 45 52 20 54 4F 20 5A  49 50 20 43 4F 44 45 20  |DER TO ZIP CODE |
00001170: 4F 52 44 45 52 20 41 54  20 41 4E 59 20 54 49 4D  |ORDER AT ANY TIM|
00001180: 45 29 00 A6 19 BB 0D 58  31 B2 31 3A 58 32 B2 31  |E).....X1.1:X2.1|
00001190: 30 3A 58 B2 48 4B AA 31  3A 8D 20 34 38 30 30 3A  |0:X.HK.1:. 4800:|
000011A0: 48 4B B2 58 AB 31 00 B3  19 C0 0D 81 57 4B B2 30  |HK.X.1......WK.0|
000011B0: A4 48 4B 00 E7 19 C5 0D  3A 99 22 11 48 4F 57 20  |.HK.....:.".HOW |
000011C0: 4D 41 4E 59 20 46 49 45  4C 44 53 20 49 4E 20 4B  |MANY FIELDS IN K|
000011D0: 45 59 20 4E 4F 2E 22 57  4B AA 31 22 3F 22 3A 8B  |EY NO."WK.1"?":.|
000011E0: 57 4B A7 33 35 33 30 00  2E 1A C6 0D 3A 20 99 22  |WK.3530.....: ."|
000011F0: 28 45 58 41 4D 50 4C 45  3A 20 49 46 20 41 20 4B  |(EXAMPLE: IF A K|
00001200: 45 59 20 43 4F 4E 54 41  49 4E 53 20 54 57 4F 20  |EY CONTAINS TWO |
00001210: 46 49 45 4C 44 53 2C 20  4C 41 53 54 20 4E 41 4D  |FIELDS, LAST NAM|
00001220: 45 20 41 4E 44 20 46 49  52 53 54 20 22 3B 00 60  |E AND FIRST ";.`|
00001230: 1A C7 0D 3A 20 99 22 4E  41 4D 45 2C 20 52 45 43  |...: ."NAME, REC|
00001240: 4F 52 44 53 20 57 4F 55  4C 44 20 42 45 20 4F 52  |ORDS WOULD BE OR|
00001250: 44 45 52 45 44 20 42 59  20 4C 41 53 54 20 22 3B  |DERED BY LAST ";|
00001260: 00 A7 1A C8 0D 3A 20 99  22 4E 41 4D 45 2C 20 41  |.....: ."NAME, A|
00001270: 4E 44 20 41 4E 59 20 47  52 4F 55 50 20 4F 46 20  |ND ANY GROUP OF |
00001280: 50 45 4F 50 4C 45 20 57  49 54 48 20 54 48 45 20  |PEOPLE WITH THE |
00001290: 53 41 4D 45 20 4C 41 53  54 20 4E 41 4D 45 20 57  |SAME LAST NAME W|
000012A0: 4F 55 4C 44 20 22 3B 00  CA 1A C9 0D 3A 20 99 22  |OULD ";.....: ."|
000012B0: 42 45 20 4F 52 44 45 52  45 44 20 42 59 20 46 49  |BE ORDERED BY FI|
000012C0: 52 53 54 20 4E 41 4D 45  29 22 00 F7 1A CA 0D 3A  |RST NAME)".....:|
000012D0: 58 B2 31 3A 58 32 B2 35  3A 58 B2 53 46 25 28 57  |X.1:X2.5:X.SF%(W|
000012E0: 4B 2C 30 29 3A 8D 20 34  38 30 30 3A 53 46 25 28  |K,0):. 4800:SF%(|
000012F0: 57 4B 2C 30 29 B2 58 00  32 1B CC 0D 3A 99 22 11  |WK,0).X.2...:.".|
00001300: 46 49 45 4C 44 53 3A 22  3A 81 20 57 46 B2 31 20  |FIELDS:":. WF.1 |
00001310: A4 20 48 46 3A 99 22 12  22 57 46 22 92 22 46 54  |. HF:."."WF"."FT|
00001320: 24 28 57 46 29 22 20 20  20 22 3B 3A 82 20 57 46  |$(WF)"   ";:. WF|
00001330: 3A 99 00 68 1B CF 0D 3A  81 20 59 B2 31 20 A4 20  |:..h...:. Y.1 . |
00001340: 53 46 25 28 57 4B 2C 30  29 3A 58 24 B2 22 9D 22  |SF%(WK,0):X$."."|
00001350: AA CA 28 22 53 54 4E 44  52 44 54 48 54 48 22 2C  |..("STNDRDTHTH",|
00001360: 59 AC 32 AB 31 2C 32 29  00 96 1B D1 0D 3A 20 99  |Y.2.1,2).....: .|
00001370: 22 46 49 45 4C 44 23 20  4F 46 22 59 3B 58 24 22  |"FIELD# OF"Y;X$"|
00001380: 20 46 49 45 4C 44 20 49  4E 20 4B 45 59 23 22 57  | FIELD IN KEY#"W|
00001390: 4B AA 31 22 3F 22 00 CD  1B D4 0D 3A 20 58 31 B2  |K.1"?".....: X1.|
000013A0: 31 3A 58 32 B2 48 46 3A  58 B2 53 46 25 28 57 4B  |1:X2.HF:X.SF%(WK|
000013B0: 2C 59 29 3A 8D 20 34 38  30 30 3A 53 46 25 28 57  |,Y):. 4800:SF%(W|
000013C0: 4B 2C 59 29 B2 58 3A 82  20 59 2C 57 4B 00 D8 1B  |K,Y).X:. Y,WK...|
000013D0: D9 0D 57 4B B2 30 3A 8E  00 E8 1B 74 0E 8F 20 46  |..WK.0:....t.. F|
000013E0: 49 4C 45 20 53 49 5A 45  00 1F 1C 79 0E 58 25 B2  |ILE SIZE...y.X%.|
000013F0: 48 42 AA 28 48 42 AC 32  AA 4D 52 AC 28 48 4B AA  |HB.(HB.2.MR.(HK.|
00001400: 31 29 29 AD 34 32 3A 8F  20 34 32 20 50 4F 49 4E  |1)).42:. 42 POIN|
00001410: 54 45 52 53 2F 46 49 4C  45 2D 42 4C 4F 43 4B 00  |TERS/FILE-BLOCK.|
00001420: 54 1C 7E 0E 99 22 11 45  53 54 49 4D 41 54 45 44  |T.~..".ESTIMATED|
00001430: 20 53 49 5A 45 20 4F 46  20 46 49 4C 45 20 57 48  | SIZE OF FILE WH|
00001440: 45 4E 20 46 55 4C 4C 20  49 53 22 58 25 22 42 4C  |EN FULL IS"X%"BL|
00001450: 4F 43 4B 53 00 7C 1C 7F  0E 99 22 28 52 45 43 4F  |OCKS.|...."(RECO|
00001460: 4D 4D 45 4E 44 45 44 20  4D 41 58 49 4D 55 4D 20  |MMENDED MAXIMUM |
00001470: 42 4C 4F 43 4B 53 20 41  52 45 3A 22 00 99 1C 80  |BLOCKS ARE:"....|
00001480: 0E 99 22 20 20 31 39 35  30 20 4F 4E 20 38 30 35  |.."  1950 ON 805|
00001490: 30 20 44 52 49 56 45 2C  22 00 C7 1C 81 0E 99 22  |0 DRIVE,"......"|
000014A0: 20 20 36 30 30 20 4F 4E  20 53 4D 41 4C 4C 45 52  |  600 ON SMALLER|
000014B0: 20 44 52 49 56 45 28 34  30 34 30 2C 31 35 34 31  | DRIVE(4040,1541|
000014C0: 2C 45 54 43 2E 29 22 00  03 1D 82 0E 8B 20 46 46  |,ETC.)"...... FF|
000014D0: 20 A7 20 99 22 20 20 41  42 4F 55 54 20 33 30 30  | . ."  ABOUT 300|
000014E0: 20 49 46 20 46 49 4C 45  20 53 48 41 52 45 53 20  | IF FILE SHARES |
000014F0: 44 49 53 4B 20 57 49 54  48 20 50 52 4F 47 52 41  |DISK WITH PROGRA|
00001500: 4D 53 22 00 40 1D 83 0E  58 25 B2 28 48 42 AC 32  |MS".@...X%.(HB.2|
00001510: AA 4D 52 AC 28 48 4B AA  31 29 29 AC 32 3A 8F 20  |.MR.(HK.1)).2:. |
00001520: 54 2B 53 20 46 4F 52 20  42 4C 4F 43 4B 53 2C 50  |T+S FOR BLOCKS,P|
00001530: 4F 27 53 20 46 4F 52 20  45 41 43 48 20 4B 45 59  |O'S FOR EACH KEY|
00001540: 00 6F 1D 88 0E 99 22 45  53 54 49 4D 41 54 45 44  |.o...."ESTIMATED|
00001550: 20 41 4D 4F 55 4E 54 20  4F 46 20 52 41 4D 20 55  | AMOUNT OF RAM U|
00001560: 53 45 44 20 49 53 22 58  25 22 42 59 54 45 53 00  |SED IS"X%"BYTES.|
00001570: A3 1D 89 0E 99 22 28 52  45 43 4F 4D 4D 45 4E 44  |....."(RECOMMEND|
00001580: 45 44 20 4D 41 58 49 4D  55 4D 20 52 41 4D 20 49  |ED MAXIMUM RAM I|
00001590: 53 22 B8 28 30 29 AB 33  35 30 30 22 42 59 54 45  |S".(0).3500"BYTE|
000015A0: 53 29 22 00 A9 1D D7 0E  8E 00 B4 1D 30 11 8F 20  |S)".........0.. |
000015B0: 59 45 53 3F 00 D8 1D 35  11 58 24 B2 CA 28 22 59  |YES?...5.X$..("Y|
000015C0: 4E 22 2C 31 AB 28 28 58  AF 58 33 29 B2 30 29 2C  |N",1.((X.X3).0),|
000015D0: 31 29 3A 8D 34 35 30 30  00 10 1E 37 11 8B 20 58  |1):.4500...7.. X|
000015E0: 24 B3 B1 22 59 22 AF 58  24 B3 B1 22 4E 22 A7 99  |$.."Y".X$.."N"..|
000015F0: 22 12 50 4C 45 41 53 45  20 41 4E 53 57 45 52 20  |".PLEASE ANSWER |
00001600: 20 59 20 20 4F 52 20 20  4E 22 3A 89 34 34 30 30  | Y  OR  N":.4400|
00001610: 00 33 1E 3A 11 58 B2 28  20 58 AF 28 A8 20 58 33  |.3.:.X.( X.(. X3|
00001620: 29 20 B0 20 28 58 24 B2  22 59 22 29 AF 58 33 20  |) . (X$."Y").X3 |
00001630: 29 3A 8E 00 5B 1E 94 11  43 58 B2 31 3A 99 22 11  |):..[...CX.1:.".|
00001640: 22 58 24 C8 28 4C 45 24  2C C3 28 58 24 29 29 3B  |"X$.(LE$,.(X$));|
00001650: 3A 8F 20 47 41 52 44 20  49 4E 50 00 8E 1E 99 11  |:. GARD INP.....|
00001660: 4D 24 B2 CA 28 58 24 AA  22 20 22 2C 43 58 2C 31  |M$..(X$." ",CX,1|
00001670: 29 3A 99 22 12 22 4D 24  22 92 9D 22 3B 3A A1 47  |):."."M$"..";:.G|
00001680: 24 3A 8B 47 24 B2 22 22  A7 8D 34 35 36 35 00 C1  |$:.G$.""..4565..|
00001690: 1E 9E 11 3A 41 B2 C6 28  47 24 29 3A 99 4D 24 22  |...:A..(G$):.M$"|
000016A0: 9D 22 3B 3A 8B 28 41 20  AF 20 31 32 37 29 B3 33  |.";:.(A . 127).3|
000016B0: 32 B0 43 58 B1 37 37 B0  41 B2 33 34 A7 34 35 32  |2.CX.77.A.34.452|
000016C0: 30 00 F6 1E A3 11 3A 20  99 47 24 3B 3A 58 24 B2  |0.....: .G$;:X$.|
000016D0: C8 28 58 24 2C 43 58 AB  31 29 AA 47 24 AA CA 28  |.(X$,CX.1).G$..(|
000016E0: 58 24 2C 43 58 AA 31 29  3A 43 58 B2 43 58 AA 31  |X$,CX.1):CX.CX.1|
000016F0: 3A 89 34 35 30 35 00 20  1F A8 11 3A 8B 41 B2 31  |:.4505. ...:.A.1|
00001700: 35 37 A7 8B 43 58 B1 31  A7 43 58 B2 43 58 AB 31  |57..CX.1.CX.CX.1|
00001710: 3A 99 47 24 3B 3A 89 34  35 30 35 3A 8F 20 4C 46  |:.G$;:.4505:. LF|
00001720: 00 4B 1F AD 11 3A 8B 41  B2 32 39 AF 43 58 B3 B2  |.K...:.A.29.CX..|
00001730: C3 28 58 24 29 A7 43 58  B2 43 58 AA 31 3A 99 47  |.(X$).CX.CX.1:.G|
00001740: 24 3B 3A 89 34 35 30 35  3A 52 49 00 61 1F B2 11  |$;:.4505:RI.a...|
00001750: 3A 8B 41 B2 31 33 A7 34  35 38 30 3A 8F 20 52 45  |:.A.13.4580:. RE|
00001760: 54 00 96 1F B7 11 3A 8B  41 B2 32 30 A7 8B 43 58  |T.....:.A.20..CX|
00001770: B1 31 A7 99 47 24 3B 3A  58 24 B2 C8 28 58 24 2C  |.1..G$;:X$..(X$,|
00001780: 43 58 AB 32 29 AA CA 28  58 24 2C 43 58 29 3A 43  |CX.2)..(X$,CX):C|
00001790: 58 B2 43 58 AB 31 00 B1  1F BC 11 3A 8B 41 B2 31  |X.CX.1.....:.A.1|
000017A0: 34 38 AF C3 28 58 24 29  B3 37 38 A7 8D 34 35 35  |48..(X$).78..455|
000017B0: 35 00 D6 1F C1 11 3A 8B  41 B2 31 34 37 A7 4C B2  |5.....:.A.147.L.|
000017C0: C3 28 58 24 29 3A 8D 34  35 36 30 3A 43 58 B2 31  |.(X$):.4560:CX.1|
000017D0: 3A 58 24 B2 22 22 00 E1  1F C6 11 3A 89 34 35 30  |:X$."".....:.450|
000017E0: 35 00 10 20 CB 11 58 24  B2 C8 28 58 24 2C 43 58  |5.. ..X$..(X$,CX|
000017F0: AB 31 29 AA 22 20 22 AA  CA 28 58 24 2C 43 58 29  |.1)." "..(X$,CX)|
00001800: 3A 99 47 24 22 20 9D 22  3B 3A 8E 3A 8F 20 49 4E  |:.G$" .";:.:. IN|
00001810: 00 39 20 D0 11 99 C8 28  4C 45 24 2C 43 58 AB 31  |.9 ....(LE$,CX.1|
00001820: 29 C8 28 53 50 24 2C 4C  29 C8 28 4C 45 24 2C 4C  |).(SP$,L).(LE$,L|
00001830: 29 3B 3A 8E 3A 8F 20 43  4C 00 67 20 D5 11 99 22  |);:.:. CL.g ..."|
00001840: 12 22 4D 24 22 9D 92 22  3B 3A 81 57 B2 31 A4 35  |."M$"..";:.W.1.5|
00001850: 30 3A A1 47 24 3A 8B 47  24 B3 B1 22 22 A7 99 4D  |0:.G$:.G$..""..M|
00001860: 24 22 9D 22 3B 3A 8E 00  8D 20 DA 11 3A 82 57 3A  |$".";:... ..:.W:|
00001870: 99 4D 24 22 9D 22 3B 3A  81 57 B2 31 A4 35 30 3A  |.M$".";:.W.1.50:|
00001880: A1 47 24 3A 8B 47 24 B3  B1 22 22 A7 8E 00 9B 20  |.G$:.G$.."".... |
00001890: DF 11 3A 82 57 3A 89 34  35 36 35 00 BD 20 E4 11  |..:.W:.4565.. ..|
000018A0: 8B C8 28 58 24 2C 31 29  B2 22 20 22 A7 58 24 B2  |..(X$,1)." ".X$.|
000018B0: CA 28 58 24 2C 32 29 3A  89 34 35 38 30 00 E6 20  |.(X$,2):.4580.. |
000018C0: E9 11 3A 8B C9 28 58 24  2C 31 29 B2 22 20 22 A7  |..:..(X$,1)." ".|
000018D0: 58 24 B2 C8 28 58 24 2C  C3 28 58 24 29 AB 31 29  |X$..(X$,.(X$).1)|
000018E0: 3A 89 34 35 38 35 00 EF  20 EE 11 3A 99 3A 8E 00  |:.4585.. ..:.:..|
000018F0: 00 21 C0 12 8F 20 41 53  4B 20 4E 55 4D 42 45 52  |.!... ASK NUMBER|
00001900: 00 31 21 CA 12 58 24 B2  CA 28 C4 28 58 29 2C 32  |.1!..X$..(.(X),2|
00001910: 29 3A 8D 34 35 30 30 3A  58 B2 C5 28 58 24 29 3A  |):.4500:X..(X$):|
00001920: 8B 58 B2 30 AF 58 24 B3  B1 22 30 22 A7 34 38 31  |.X.0.X$.."0".481|
00001930: 32 00 44 21 CB 12 8B 58  B2 B1 58 31 AF 58 B2 B3  |2.D!...X..X1.X..|
00001940: 58 32 A7 8E 00 72 21 CC  12 99 22 12 49 4C 4C 45  |X2...r!...".ILLE|
00001950: 47 41 4C 20 45 4E 54 52  59 20 2D 20 50 4C 45 41  |GAL ENTRY - PLEA|
00001960: 53 45 20 45 4E 54 45 52  20 41 20 4E 55 4D 42 45  |SE ENTER A NUMBE|
00001970: 52 22 00 9A 21 CF 12 99  22 12 49 4E 20 54 48 45  |R"..!...".IN THE|
00001980: 20 52 41 4E 47 45 20 4F  46 22 58 31 22 9D 20 54  | RANGE OF"X1". T|
00001990: 4F 22 58 32 3A 89 34 38  30 30 00 A8 21 A4 1F 8F  |O"X2:.4800..!...|
000019A0: 20 53 41 4D 45 20 41 53  00 DA 21 A9 1F 99 22 11  | SAME AS..!...".|
000019B0: 49 46 20 54 48 49 53 20  46 49 4C 45 20 49 53 20  |IF THIS FILE IS |
000019C0: 54 4F 20 42 45 20 53 49  4D 49 4C 41 52 20 54 4F  |TO BE SIMILAR TO|
000019D0: 20 41 4E 4F 54 48 45 52  22 3B 00 1C 22 AE 1F 99  | ANOTHER";.."...|
000019E0: 22 46 49 4C 45 2C 20 45  4E 54 45 52 20 54 48 45  |"FILE, ENTER THE|
000019F0: 20 4F 54 48 45 52 20 46  49 4C 45 20 4E 41 4D 45  | OTHER FILE NAME|
00001A00: 22 3A 99 22 28 4F 54 48  45 52 57 49 53 45 20 4C  |":."(OTHERWISE L|
00001A10: 45 41 56 45 20 42 4C 41  4E 4B 29 22 00 3B 22 B3  |EAVE BLANK)".;".|
00001A20: 1F 58 24 B2 22 22 3A 8D  34 35 30 30 3A 8B 20 58  |.X$."":.4500:. X|
00001A30: 24 B2 22 22 A7 20 45 B2  30 3A 8E 00 60 22 B8 1F  |$."". E.0:..`"..|
00001A40: 99 22 11 12 49 4E 53 45  52 54 20 44 49 53 4B 20  |."..INSERT DISK |
00001A50: 57 49 54 48 20 4F 54 48  45 52 20 46 49 4C 45 22  |WITH OTHER FILE"|
00001A60: 00 96 22 BD 1F 8B 44 54  B1 31 A7 99 22 11 44 52  |.."...DT.1..".DR|
00001A70: 49 56 45 20 4E 4F 28 12  31 92 2F 12 30 92 29 22  |IVE NO(.1./.0.)"|
00001A80: 3A 47 31 24 B2 22 30 31  22 3A 8D 20 35 3A 51 56  |:G1$."01":. 5:QV|
00001A90: B2 C5 28 47 24 29 00 AD  22 BE 1F 8B 20 44 54 B2  |..(G$).."... DT.|
00001AA0: 31 20 A7 20 8D 20 31 30  3A 51 56 B2 30 00 C4 22  |1 . . 10:QV.0.."|
00001AB0: BF 1F 98 4B 4B 28 51 56  29 2C 22 49 22 44 52 24  |...KK(QV),"I"DR$|
00001AC0: 28 51 56 29 00 F0 22 C7  1F 9F 20 53 45 2C 44 56  |(QV).."... SE,DV|
00001AD0: 28 51 56 29 2C 53 45 2C  44 52 24 28 51 56 29 AA  |(QV),SE,DR$(QV).|
00001AE0: 22 3A 44 42 A2 22 AA 58  24 AA 22 2C 53 2C 52 22  |":DB.".X$.",S,R"|
00001AF0: 00 09 23 C8 1F 56 4F B2  51 56 3A 8D 20 38 3A 8B  |..#..VO.QV:. 8:.|
00001B00: 20 45 20 A7 20 38 31 36  30 00 36 23 CC 1F 3A 84  | E . 8160.6#..:.|
00001B10: 53 45 2C 4D 52 2C 58 20  2C 52 53 2C 48 42 2C 48  |SE,MR,X ,RS,HB,H|
00001B20: 46 2C 53 46 2C 52 42 2C  48 4B 2C 57 4B 2C 44 4B  |F,SF,RB,HK,WK,DK|
00001B30: 2C 44 45 2C 50 35 00 58  23 D1 1F 3A 81 20 57 46  |,DE,P5.X#..:. WF|
00001B40: B2 31 20 A4 20 48 46 3A  84 53 45 2C 46 54 24 28  |.1 . HF:.SE,FT$(|
00001B50: 57 46 29 3A 82 20 57 46  00 83 23 D6 1F 3A 81 20  |WF):. WF..#..:. |
00001B60: 44 B2 30 A4 35 3A 81 20  58 B2 30 20 A4 20 48 4B  |D.0.5:. X.0 . HK|
00001B70: 3A 84 53 45 2C 53 46 25  28 58 2C 44 29 3A 82 20  |:.SE,SF%(X,D):. |
00001B80: 58 2C 44 00 8E 23 E0 1F  A0 20 53 45 3A 8E 00 9E  |X,D..#... SE:...|
00001B90: 23 F0 23 8F 20 4C 4F 41  44 20 50 52 4F 47 00 CB  |#.#. LOAD PROG..|
00001BA0: 23 F1 23 99 22 11 12 49  4E 53 45 52 54 20 50 52  |#.#."..INSERT PR|
00001BB0: 4F 47 52 41 4D 20 44 49  53 4B 20 49 4E 20 44 52  |OGRAM DISK IN DR|
00001BC0: 49 56 45 20 30 22 3A 8D  20 31 30 00 EE 23 F5 23  |IVE 0":. 10..#.#|
00001BD0: 98 4B 4B 28 30 29 2C 22  49 30 22 3A 99 22 11 28  |.KK(0),"I0":.".(|
00001BE0: 4C 4F 41 44 49 4E 47 20  22 58 24 22 29 22 00 21  |LOADING "X$")".!|
00001BF0: 24 FA 23 9F 20 53 45 2C  38 2C 53 45 2C 22 30 3A  |$.#. SE,8,SE,"0:|
00001C00: 22 AA 58 24 AA 22 2C 50  2C 52 22 3A 56 4F B2 30  |".X$.",P,R":VO.0|
00001C10: 3A 8D 20 38 3A A0 20 53  45 3A 8B 20 45 20 A7 20  |:. 8:. SE:. E . |
00001C20: 8E 00 38 24 FF 23 8B 20  4C 49 B3 32 35 33 20 A7  |..8$.#. LI.253 .|
00001C30: 20 97 20 49 56 2C 4C 49  00 4A 24 04 24 93 20 22  | . IV,LI.J$.$. "|
00001C40: 30 3A 22 AA 58 24 2C 38  3A 90 00 00 00 56 55 2C  |0:".X$,8:....VU,|
00001C50: 46 33                                             |F3              |

....... 1100.G.... 15,8,15,"I0":.15,"S0:
START FILE":."0:START FILE",8:..T....".C
ORRECTIONS?(.Y./.N.)":G1$."YN":. 5:.....
..4,4:.4:.......G$:.V.1.C(G1$):.G$..J(G1
$,V,1)..V:.5.......N....KK(VO),E,E$,S,T:
.E.2........"DISK ERROR:"E;E$;S;T......"
..R.EADY?":G1$."R":.5...... MAIN...... S
ET UP.'.... ASK.6.... ALOCATE2.E.... ALL
OCATE.U.... SAVE BOOK.D.... REC SIZE.O. 
.. HEAD.|.!.. FIELDS...#.. KEYS...%.. FI
LE SIZE...,.. YES?...1.. ASK NUMBER.A.Q.
. SAME AS.L.[.. EXIT.W.L.. MAIN...Q.. LI
.253 . . IV,LI.3...V.. MA.1 . . 59468,12
...[.. MA.1 . .G(142);.).`.. 1200.:.E.. 
1500:. ASK.L.J.. 1700:. ALOC.E.O.DE.1:DK
.1:. X.0 . HK...T.:. SF%(X,0).DE . DE.SF
%(X,0):. MAX DEPTH.R.Y.:. D.1 . SF%(X,0)
:. SF%(X,D).DK . DK.SF%(X,D):. HI KY FLD
 #...~.. D,X...... 1900:  SE:  RA:. SAVE
 BOOK.....X$.MM$:. 9200:. 1160:. EXIT.*.
... SET UP.:.... SF%(10,5).@.....J.... A
SK.H....".".12)".START NEW FILE"......".
NAME OF NEW FILE?"R$:."(LEAVE BLANK TO R
ETURN TO "MM$")".A...:X$.NA$:.4500:NA$.X
$.....:. C(NA$).12 . ."..NAME TOO LONG":
.10:. 1515.....:. NA$."". X$.MM$:. 9200:
. 1530.D...:. I(NA$,1)."*".."..* ILLEGAL
":.10:. 1515.D.... 8100:. E . 1500:. SAM
E AS......".ENTRIES IN UPPER CASE ONLY?"
.....:X.. MC:X3.1:. 4400:MC.. X.E...:. M
T.1 . . 59468,12.2.MC.....:. MT.1 . .G(1
42.128.MC).$....".WHAT IS THE MAXIMUM NO
. OF RECORDS THE FILE WILL CONTAIN?".H..
.:X.MR:X1.1:X2.10000:. 4800:MR.X.]....31
00:. REC SIZE.P....3300:. FIELDS..."..35
00:. KEYS...'..3700:.3:.G$."Y".1500:. FI
LE SIZE.H.)..3200:.3:.G$."Y".1577:. HEAD
.N.6.....@.. ALOCATE2...E.RB..(255.RS..0
001):HB..(MR.RB..00001).1.2.J.. RA,DV(RV
),RA,"#":VO.RV:. 8:. E . ..X.O.A$."":. X
.1.HF:A$.A$.G(255).R$:.X...T.. X.1 . RB:
.KK(RV),"B-P:"RA,1.(X.1).RS:.RA,A$;:.X.R
.Y.X..(HB.12).10:.".(ALLOCATING BLOCKS)"
R$"(PLEASE WAIT"X"MINUTES)...[.. S%(HB),
T%(HB)...^.S.0:T.1:. WB.1. HB:. WHICH BL
OCK.".C.:. T.18 . T.19:S.0.A.H.: . T.38 
. T.39 . T.40:S.0.Y.M.: . T.76 . T.78:S.
0.X.R.: .KK(RV),"B-A:"DR(RV),T,S...W.: .
KK(RV),E,E$,X,X1...|.:. E.0 . 1680.M...:
 T.X:S.X1:. E..65 . . 9:X$.MM$:. 9200...
..: . T.0 . .".NOT ENOUGH ROOM ON DISK":
X$.MM$:. 9200.....: . 1635.)...:S%(WB).S
:T%(WB).T.I...:.KK(RV),"U2:"RA;DR(RV);T;
S.T.... WB:..C.... ALLOCATE.....E.0:RR$.
"":.X.1.127:RR$.RR$."?".G(13):.X......".
.INSERT DISK FOR RANDOM FILE.....:.DT.1.
.".DRIVE NO(.1./.0.)":G1$."01":. 5:RV.E(
G$).....:. DT.1 . . 10:RV.0.=...:. SE,8,
SE,"0:".MM$.",P,R":VO.0:.KK(VO),E,E$,S,T
:  SE.Z.B.:. FF..0 . E.0 . .".PROGRAM DI
SK IS IN DATA DRIVE":.1710...G..N2$.""..
1760...L.:. FF . ."(HEADING THE DISK)":.
1750.R.Q.: ."(FORMATTING THE DISK)...V.:
.KK(RV),"N"DR$(RV)":"N2$","I(D(ID),2).".
..:VO.RV:.8:.E.X$.MM$:. 9200:.1755.9....
KK(RV),"I"DR$(QV).Q.... R3 . . 1600:.178
0.M...:Y("RA.".NA$),D(DR(RV)).....:M#(RA
),"RA.".NA$,L(RS),D(DR(RV))...... PO%(MR
,HK):....L.. SAVE BOOK...Q.  SE:UK.WK:."
.(SCRATCHING OLD BOOKKEEPING)"...V.:.KK(
RV),"S".DR$(RV).":DB.".NA$:VO.RV:. 8:. E
.1 . ..\.|.. SE,DV(RV),SE,DR$(RV).":DB."
.NA$.",S,W":VO.RV:. 8:.E . .......SE,MR;
R$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK;R$WK;
R$DK;R$DE;R$MC;R$;.J.... WF.1 . HF:.SE,Q
$;FT$(WF);R$;:. WF...... D.0.5:. X.0.HK:
.SE,SF%(X,D);R$;:. X,D......"(SAVING POI
NTERS)".C...:. X.0.HK:. RR.1 . HR:.SE,PO
%(RR,X);R$;:. RR:.X.Q.... R3 . ."(SAVING
 BLOCK MAP)":. X.1.10:. X.....:. R3 . . 
WB.1 . HB:.SE," "T%(WB)R$" "S%(WB)R$;:.W
B......R4.N#(RA):M#(RA),("RA.".NA$),L(RS
),D(DR(RV)).....SP.0:  SE:VO.RV:.8:.....
.. REC SIZE.5.&..".WHAT IS THE MAXIMUM S
IZE OF EACH RECORD?";.U.0.."(TOTAL CHARA
CTERS IN ALL FIELDS PLUS TWO FOR EACH FI
ELD)"...5.X.RS:X1.3:X2.254:. 4800:RS.X..
.D.. X.1.85:. RS...(254.X) . . X...N.RS.
.(254.(X.1)):."MAX REC SIZE="RS...X.RB..
(254.RS..0001):HB..(MR.RB..0001).1.....
...... HEAD.P.... FF . .".DO YOU WANT TO
 HEADER THE DISK?":.3210.Y...:.".DO YOU 
WANT TO FORMAT THE DISK?"......"(ERASE O
LD DISK OR PREPARE NEW DISK)":X.HE:X3..1
:.4400:HE.X.P.... X.0 . N2$."":.......".
NAME OF THE DISK?". ...:."(MAXIMUM 15 CA
RACTERS, DO NOT USE PUNCTUATION).9. .:X$
.N2$:.4500:N2$.X$.X...:. C(N2$).1.C(N2$)
.15.3225.J....".ID NUMBER?.....:."(EACH 
DISK SHOULD HAVE A DIFFERENT ID)".....:X
.ID:X1.0:X2.99:. 4800:ID.X.K...:. ID..21
. ......:.".21 IS PROGRAM DISK ID"R$"PLE
ASE CHOOSE ANOTHER":.3240...... FIELDS.:
....".HOW MANY FIELDS PER RECORD?".Z...X
.HF:X1.1:X2.MD:. 4800:HF.X.J.... WF.1 . 
HF.....:.".TITLE FOR FIELD NO."WF"?"....
.:X$.FT$(WF):.4500:FT$(WF).X$:. WF...G..
.C.... KEYS......".HOW MANY KEYS DO YOU 
WANT?......"(EXAMPLE: IF YOU HAD A KEY F
OR NAME AND A ";.M...."KEY FOR ZIP CODE,
 YOU COULD CHANGE THE FILE ";......"FROM
 NAME ORDER TO ZIP CODE ORDER AT ANY TIM
E).....X1.1:X2.10:X.HK.1:. 4800:HK.X.1..
....WK.0.HK...E.:.".HOW MANY FIELDS IN K
EY NO."WK.1"?":.WK.3530...F.: ."(EXAMPLE
: IF A KEY CONTAINS TWO FIELDS, LAST NAM
E AND FIRST ";.`.G.: ."NAME, RECORDS WOU
LD BE ORDERED BY LAST ";...H.: ."NAME, A
ND ANY GROUP OF PEOPLE WITH THE SAME LAS
T NAME WOULD ";.J.I.: ."BE ORDERED BY FI
RST NAME)"...J.:X.1:X2.5:X.SF%(WK,0):. 4
800:SF%(WK,0).X.2.L.:.".FIELDS:":. WF.1 
. HF:."."WF"."FT$(WF)"   ";:. WF:..H.O.:
. Y.1 . SF%(WK,0):X$.".".J("STNDRDTHTH",
Y.2.1,2)...Q.: ."FIELD# OF"Y;X$" FIELD I
N KEY#"WK.1"?".M.T.: X1.1:X2.HF:X.SF%(WK
,Y):. 4800:SF%(WK,Y).X:. Y,WK.X.Y.WK.0:.
...T.. FILE SIZE...Y.X%.HB.(HB.2.MR.(HK.
1)).42:. 42 POINTERS/FILE-BLOCK.T.~..".E
STIMATED SIZE OF FILE WHEN FULL IS"X%"BL
OCKS.|..."(RECOMMENDED MAXIMUM BLOCKS A
RE:"......"  1950 ON 8050 DRIVE,".G...."
  600 ON SMALLER DRIVE(4040,1541,ETC.)".
..... FF . ."  ABOUT 300 IF FILE SHARES 
DISK WITH PROGRAMS".@...X%.(HB.2.MR.(HK.
1)).2:. T+S FOR BLOCKS,PO'S FOR EACH KEY
.O...."ESTIMATED AMOUNT OF RAM USED IS"X
%"BYTES......"(RECOMMENDED MAXIMUM RAM I
S".(0).3500"BYTES)"...W.....0.. YES?.X.5
.X$.J("YN",1.((X.X3).0),1):.4500...7.. X
$.."Y".X$.."N"..".PLEASE ANSWER  Y  OR  
N":.4400.3.:.X.( X.(. X3) . (X$."Y").X3 
):..[...CX.1:."."X$H(LE$,C(X$));:. GARD 
INP.....M$.J(X$." ",CX,1):."."M$"..";:.G
$:.G$.""..4565.A...:A.F(G$):.M$".";:.(A 
. 127).32.CX.77.A.34.4520.....: .G$;:X$.
H(X$,CX.1).G$.J(X$,CX.1):CX.CX.1:.4505. 
...:.A.157..CX.1.CX.CX.1:.G$;:.4505:. LF
.K...:.A.29.CX..C(X$).CX.CX.1:.G$;:.4505
:RI.A...:.A.13.4580:. RET.....:.A.20..CX
.1..G$;:X$.H(X$,CX.2).J(X$,CX):CX.CX.1..
...:.A.148.C(X$).78..4555.V.A.:.A.147.L.
C(X$):.4560:CX.1:X$.""...F.:.4505.. K.X$
.H(X$,CX.1)." ".J(X$,CX):.G$" .";:.:. IN
.9 P..H(LE$,CX.1)H(SP$,L)H(LE$,L);:.:. C
L.G U.."."M$"..";:.W.1.50:.G$:.G$..""..M
$".";:... Z.:.W:.M$".";:.W.1.50:.G$:.G$.
."".... ..:.W:.4565.. ...H(X$,1)." ".X$.
J(X$,2):.4580.. ..:.I(X$,1)." ".X$.H(X$,
C(X$).1):.4585.. ..:.:...!... ASK NUMBER
.1!J.X$.J(D(X),2):.4500:X.E(X$):.X.0.X$.
."0".4812.D!K..X..X1.X..X2...R!L..".ILLE
GAL ENTRY - PLEASE ENTER A NUMBER"..!O..
".IN THE RANGE OF"X1". TO"X2:.4800..!...
 SAME AS.Z!...".IF THIS FILE IS TO BE SI
MILAR TO ANOTHER";.."..."FILE, ENTER THE
 OTHER FILE NAME":."(OTHERWISE LEAVE BLA
NK)".;"..X$."":.4500:. X$."". E.0:..`"..
."..INSERT DISK WITH OTHER FILE".."...DT
.1..".DRIVE NO(.1./.0.)":G1$."01":. 5:QV
.E(G$).."... DT.1 . . 10:QV.0.D"...KK(QV
),"I"DR$(QV).."G.. SE,DV(QV),SE,DR$(QV).
":DB.".X$.",S,R"..#H.VO.QV:. 8:. E . 816
0.6#L.:.SE,MR,X ,RS,HB,HF,SF,RB,HK,WK,DK
,DE,P5.X#Q.:. WF.1 . HF:.SE,FT$(WF):. WF
..#V.:. D.0.5:. X.0 . HK:.SE,SF%(X,D):. 
X,D..#..  SE:...#.#. LOAD PROG.K#.#."..I
NSERT PROGRAM DISK IN DRIVE 0":. 10..#.#
.KK(0),"I0":.".(LOADING "X$")".!$.#. SE,
8,SE,"0:".X$.",P,R":VO.0:. 8:  SE:. E . 
..8$.#. LI.253 . . IV,LI.J$.$. "0:".X$,8
:....VU,F3

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL