PAPER CRATE 128

00000000: 01 1C 0B 1C 05 00 D7 32  30 30 30 00 2F 1C 0A 00  |.......2000./...|
00000010: E7 30 2C 31 32 3A E7 34  2C 31 34 3A E7 35 2C 34  |.0,12:.4,14:.5,4|
00000020: 3A 54 24 B2 22 4E 4F 4E  45 22 3A 99 22 93 22 00  |:T$."NONE":.".".|
00000030: 58 1C 14 00 99 22 11 11  11 11 20 20 20 20 20 20  |X...."....      |
00000040: 20 20 20 20 20 20 12 20  44 41 54 41 42 41 53 45  |      . DATABASE|
00000050: 20 46 49 4C 45 20 92 22  00 96 1C 1E 00 8F 20 50  | FILE ."...... P|
00000060: 52 49 4E 54 22 11 11 11  11 45 4E 54 45 52 20 41  |RINT"....ENTER A|
00000070: 43 43 45 53 53 20 43 4F  44 45 20 46 4F 52 20 54  |CCESS CODE FOR T|
00000080: 48 49 53 20 50 52 4F 47  52 41 4D 3A 22 3A 49 4E  |HIS PROGRAM:":IN|
00000090: 50 55 54 41 43 24 00 B8  1C 28 00 8F 20 49 46 41  |PUTAC$...(.. IFA|
000000A0: 43 24 3C 3E 22 44 2D 48  45 41 44 22 54 48 45 4E  |C$<>"D-HEAD"THEN|
000000B0: 53 59 53 36 34 37 33 38  00 F6 1C 32 00 99 22 11  |SYS64738...2..".|
000000C0: 11 11 11 11 11 20 20 20  20 20 20 20 20 20 20 20  |.....           |
000000D0: 20 20 20 50 4C 45 41 53  45 20 57 41 49 54 22 3A  |   PLEASE WAIT":|
000000E0: 81 49 B2 31 A4 38 30 30  3A 82 3A 54 24 B2 C8 28  |.I.1.800:.:T$..(|
000000F0: 54 24 2C 31 34 29 00 28  1D 3C 00 FE 25 3A 4E B2  |T$,14).(.<..%:N.|
00000100: 31 30 30 30 3A 50 B2 31  3A 58 B2 28 4E AA 31 29  |1000:P.1:X.(N.1)|
00000110: AD 31 30 3A 86 53 24 28  4E 29 3A 8D 31 30 34 30  |.10:.S$(N):.1040|
00000120: 3A FE 26 3A 89 33 37 30  00 30 1D 46 00 4B B2 30  |:.&:.370.0.F.K.0|
00000130: 00 53 1D 50 00 51 B2 30  3A 99 22 93 12 46 49 4C  |.S.P.Q.0:."..FIL|
00000140: 45 20 41 43 43 45 53 53  45 44 3A 22 3B 54 24 22  |E ACCESSED:";T$"|
00000150: 11 11 22 00 8F 1D 5A 00  81 4A B2 4B A4 4E 3A 8B  |.."...Z..J.K.N:.|
00000160: C6 28 53 24 28 4A 29 29  B2 31 38 A7 99 22 9D 22  |.(S$(J)).18.."."|
00000170: B5 28 4A AD 31 30 AA 31  29 3B 53 24 28 4A 29 3A  |.(J.10.1);S$(J):|
00000180: 51 B2 51 AA 31 3A 8B 51  B1 31 30 A7 31 31 30 00  |Q.Q.1:.Q.10.110.|
00000190: 96 1D 64 00 82 4A 00 A8  1D 6E 00 8D 33 31 30 3A  |..d..J...n..310:|
000001A0: 8B 41 B2 30 A7 31 31 30  00 F8 1D 78 00 91 41 89  |.A.0.110...x..A.|
000001B0: 37 30 2C 31 35 30 2C 32  33 30 2C 36 31 30 2C 33  |70,150,230,610,3|
000001C0: 35 30 2C 32 37 30 2C 35  30 30 2C 36 35 30 2C 35  |50,270,500,650,5|
000001D0: 35 30 2C 38 30 30 2C 31  34 32 30 2C 31 34 38 30  |50,800,1420,1480|
000001E0: 2C 31 35 34 30 2C 31 35  37 30 2C 31 36 39 30 2C  |,1540,1570,1690,|
000001F0: 31 36 34 30 2C 33 37 30  00 0B 1E 82 00 8B 4A B3  |1640,370......J.|
00000200: 4E AA 31 A7 4B B2 4A 3A  89 38 30 00 13 1E 8C 00  |N.1.K.J:.80.....|
00000210: 89 37 30 00 3D 1E 96 00  99 22 11 11 50 41 47 45  |.70.=...."..PAGE|
00000220: 23 22 3A 85 41 24 3A 50  B2 C5 28 41 24 29 3A 8D  |#":.A$:P..(A$):.|
00000230: 33 33 30 3A 8B 41 B3 B1  30 A7 31 32 30 00 56 1E  |330:.A..0.120.V.|
00000240: A0 00 8B 50 B3 31 B0 50  B1 58 A7 99 22 91 91 91  |...P.1.P.X.."...|
00000250: 22 3A 89 31 35 30 00 70  1E AA 00 99 22 11 12 93  |":.150.p...."...|
00000260: 20 20 50 41 47 45 23 20  20 22 50 3B 22 11 11 22  |  PAGE#  "P;".."|
00000270: 00 98 1E B4 00 81 49 B2  30 A4 39 3A 4C B2 28 50  |......I.0.9:L.(P|
00000280: AB 31 29 AC 31 30 AA 49  3A 99 A3 31 29 4C 22 3A  |.1).10.I:..1)L":|
00000290: 22 53 24 28 4C 29 3A 82  00 AA 1E BE 00 8D 33 31  |"S$(L):.......31|
000002A0: 30 3A 8B 41 B2 30 A7 31  39 30 00 B9 1E C8 00 8B  |0:.A.0.190......|
000002B0: 41 B3 B1 31 32 A7 31 32  30 00 CC 1E D2 00 50 B2  |A..12.120.....P.|
000002C0: 50 AA 31 3A 8B 50 B1 58  A7 50 B2 31 00 D5 1E DC  |P.1:.P.X.P.1....|
000002D0: 00 89 31 37 30 00 EE 1E  E6 00 41 24 B2 22 2D 31  |..170.....A$."-1|
000002E0: 22 3A 99 22 11 11 45 4E  54 45 52 22 52 24 00 17  |":."..ENTER"R$..|
000002F0: 1F F0 00 99 22 4C 49 4E  45 23 3F 22 3A 85 41 24  |...."LINE#?":.A$|
00000300: 3A 4A B2 C5 28 41 24 29  3A 8D 33 33 30 3A 8B 41  |:J..(A$):.330:.A|
00000310: B3 B1 30 A7 31 32 30 00  3A 1F FA 00 8B 4A B3 30  |..0.120.:....J.0|
00000320: B0 4A B1 B5 28 58 29 AC  31 30 AA 31 A7 99 22 91  |.J..(X).10.1..".|
00000330: 91 91 91 91 22 3A 89 32  33 30 00 4B 1F 04 01 85  |....":.230.K....|
00000340: 53 24 28 4A 29 3A 89 31  34 30 30 00 80 1F 0E 01  |S$(J):.1400.....|
00000350: 41 24 B2 22 2D 31 22 3A  99 22 11 11 49 4E 53 45  |A$."-1":."..INSE|
00000360: 52 54 22 52 24 3A 85 41  24 3A 4A B2 C5 28 41 24  |RT"R$:.A$:J..(A$|
00000370: 29 3A 8D 33 33 30 3A 8B  41 B3 B1 30 A7 31 32 30  |):.330:.A..0.120|
00000380: 00 A5 1F 18 01 8B 4A B3  30 B0 4A B1 28 B5 28 58  |......J.0.J.(.(X|
00000390: 29 AC 31 30 29 AA 31 A7  99 22 91 91 91 91 91 22  |).10).1.."....."|
000003A0: 3A 89 32 37 30 00 CC 1F  22 01 99 22 45 4E 54 52  |:.270...".."ENTR|
000003B0: 59 22 3A 85 44 24 3A 99  22 49 4E 53 45 52 54 49  |Y":.D$:."INSERTI|
000003C0: 4E 47 22 3A 8B 52 B2 4E  A7 31 37 30 00 02 20 2C  |NG":.R.N.170.. ,|
000003D0: 01 8D 31 30 39 30 3A 81  49 B2 4B 4B A4 4A AA 31  |..1090:.I.KK.J.1|
000003E0: A9 AB 31 3A 53 24 28 49  29 B2 53 24 28 49 AB 31  |..1:S$(I).S$(I.1|
000003F0: 29 3A 82 3A 53 24 28 4A  29 B2 44 24 3A 89 31 34  |):.:S$(J).D$:.14|
00000400: 30 30 00 51 20 36 01 45  24 B2 22 92 20 12 44 92  |00.Q 6.E$.". .D.|
00000410: 20 12 43 92 20 12 45 92  20 12 4B 92 20 12 4E 92  | .C. .E. .K. .N.|
00000420: 20 12 49 92 20 12 53 92  20 12 41 92 20 12 4C 92  | .I. .S. .A. .L.|
00000430: 20 12 48 92 20 12 51 92  20 12 46 92 20 12 56 92  | .H. .Q. .F. .V.|
00000440: 20 12 52 92 20 12 2A 92  20 12 40 92 20 12 5F 92  | .R. .*. .@. ._.|
00000450: 22 00 61 20 40 01 99 A3  32 29 45 24 3A 8D 37 36  |".a @...2)E$:.76|
00000460: 30 00 8A 20 4A 01 41 B2  30 3A 81 49 B2 31 A4 31  |0.. J.A.0:.I.1.1|
00000470: 37 3A 8B CA 28 45 24 2C  49 AC 34 2C 31 29 B2 41  |7:..(E$,I.4,1).A|
00000480: 24 A7 41 B2 49 3A 49 B2  31 37 00 93 20 54 01 82  |$.A.I:I.17.. T..|
00000490: 49 3A 8E 00 A8 20 5E 01  8D 37 39 30 3A 8B 41 24  |I:... ^..790:.A$|
000004A0: B3 B1 22 59 22 A7 37 30  00 CB 20 68 01 99 22 4E  |.."Y".70.. h.."N|
000004B0: 45 57 20 46 49 4C 45 20  4E 41 4D 45 22 3A 85 54  |EW FILE NAME":.T|
000004C0: 24 3A 8D 31 30 34 30 3A  89 37 30 00 F4 20 72 01  |$:.1040:.70.. r.|
000004D0: 99 C7 28 31 34 32 29 3A  99 22 93 22 3A 99 A3 31  |..(142):.".":..1|
000004E0: 32 29 22 43 4F 4D 4D 41  4E 44 20 53 55 4D 4D 41  |2)"COMMAND SUMMA|
000004F0: 52 59 11 22 00 23 21 7C  01 99 22 20 20 20 12 44  |RY.".#!|.."   .D|
00000500: 92 49 53 50 4C 41 59 20  48 45 41 44 45 52 53 22  |.ISPLAY HEADERS"|
00000510: 3B A3 32 33 29 22 12 43  92 41 4C 4C 20 50 41 47  |;.23)".C.ALL PAG|
00000520: 45 23 22 00 4D 21 86 01  99 22 20 20 20 11 12 45  |E#".M!..."   ..E|
00000530: 92 4E 54 45 52 20 44 41  54 41 22 3B A3 32 33 29  |.NTER DATA";.23)|
00000540: 22 12 4B 92 49 4C 4C 20  44 41 54 41 22 00 77 21  |".K.ILL DATA".w!|
00000550: 90 01 99 22 20 20 20 11  12 4E 92 45 57 20 46 49  |..."   ..N.EW FI|
00000560: 4C 45 22 3B A3 32 33 29  22 12 49 92 4E 53 45 52  |LE";.23)".I.NSER|
00000570: 54 20 44 41 54 41 22 00  A6 21 9A 01 99 22 20 20  |T DATA"..!..."  |
00000580: 20 11 12 53 92 41 56 45  20 28 54 20 4F 52 20 44  | ..S.AVE (T OR D|
00000590: 29 22 3B A3 32 33 29 22  12 41 92 4C 50 48 41 42  |)";.23)".A.LPHAB|
000005A0: 45 54 49 5A 45 22 00 D3  21 A4 01 99 22 20 20 20  |ETIZE"..!..."   |
000005B0: 11 12 4C 92 4F 41 44 20  28 54 20 4F 52 20 44 29  |..L.OAD (T OR D)|
000005C0: 22 3B A3 32 33 29 22 12  48 92 41 52 44 20 43 4F  |";.23)".H.ARD CO|
000005D0: 50 59 22 00 03 22 AE 01  99 22 20 20 20 11 12 51  |PY".."..."   ..Q|
000005E0: 92 20 53 43 52 41 54 43  48 20 46 49 4C 45 22 3B  |. SCRATCH FILE";|
000005F0: A3 32 33 29 22 12 46 92  4F 52 4D 41 54 20 44 49  |.23)".F.ORMAT DI|
00000600: 53 4B 22 00 34 22 B8 01  99 22 20 20 20 11 12 56  |SK".4"..."   ..V|
00000610: 92 41 4C 49 44 41 54 45  20 44 49 53 4B 22 3B A3  |.ALIDATE DISK";.|
00000620: 32 33 29 22 12 52 92 20  52 45 4E 41 4D 45 20 46  |23)".R. RENAME F|
00000630: 49 4C 45 22 00 64 22 C2  01 99 22 20 20 20 11 12  |ILE".d"..."   ..|
00000640: 2A 92 44 49 52 45 43 54  4F 52 59 22 3B A3 32 33  |*.DIRECTORY";.23|
00000650: 29 22 12 40 92 20 45 52  52 4F 52 20 43 48 41 4E  |)".@. ERROR CHAN|
00000660: 4E 45 4C 22 00 90 22 CC  01 99 22 20 20 20 11 12  |NEL".."..."   ..|
00000670: 58 92 20 45 58 49 54 20  50 52 4F 47 52 41 4D 22  |X. EXIT PROGRAM"|
00000680: 3B A3 32 33 29 22 12 5F  92 20 48 45 4C 50 11 22  |;.23)"._. HELP."|
00000690: 00 A2 22 D6 01 8D 33 31  30 3A 8B 41 B2 30 A7 33  |.."...310:.A.0.3|
000006A0: 37 30 00 B3 22 E0 01 8B  51 54 B2 31 A7 51 54 B2  |70.."...QT.1.QT.|
000006B0: 30 3A 8E 00 BC 22 EA 01  89 31 32 30 00 E2 22 F4  |0:..."...120..".|
000006C0: 01 99 22 93 12 53 41 56  45 20 22 3B 54 24 22 3F  |.."..SAVE ";T$"?|
000006D0: 22 3A 8D 37 39 30 3A 8B  41 24 B3 B1 22 59 22 A7  |":.790:.A$.."Y".|
000006E0: 37 30 00 0D 23 FE 01 99  22 12 44 92 49 53 4B 20  |70..#...".D.ISK |
000006F0: 4F 52 20 12 54 92 41 50  45 3F 11 22 3A 8D 37 36  |OR .T.APE?.":.76|
00000700: 30 3A 8B 41 24 B2 22 54  22 A7 35 34 30 00 1D 23  |0:.A$."T".540..#|
00000710: 08 02 8B 41 24 B3 B1 22  44 22 A7 37 30 00 46 23  |...A$.."D".70.F#|
00000720: 12 02 9F 32 2C 38 2C 32  2C 22 40 30 3A 22 AA 54  |...2,8,2,"@0:".T|
00000730: 24 AA 22 20 D8 2C 53 2C  57 22 3A 20 4A B2 32 20  |$." .,S,W": J.2 |
00000740: 3A 89 31 31 32 30 00 64  23 1C 02 9F 31 2C 31 2C  |:.1120.d#...1,1,|
00000750: 31 2C 54 24 3A 98 31 2C  54 24 3A 4A B2 31 3A 89  |1,T$:.1,T$:J.1:.|
00000760: 31 31 32 30 00 94 23 26  02 99 22 93 12 4C 4F 41  |1120..#&.."..LOA|
00000770: 44 20 46 52 4F 4D 20 54  41 50 45 20 4F 52 20 44  |D FROM TAPE OR D|
00000780: 49 53 4B 22 3A 8D 37 39  30 8B 41 24 B3 B1 22 59  |ISK":.790.A$.."Y|
00000790: 22 A7 37 30 00 BE 23 30  02 99 22 12 44 92 49 53  |".70..#0..".D.IS|
000007A0: 4B 20 4F 52 20 12 54 92  41 50 45 3F 22 3A 8D 37  |K OR .T.APE?":.7|
000007B0: 36 30 3A 8B 41 24 B2 22  54 22 A7 36 30 30 00 CE  |60:.A$."T".600..|
000007C0: 23 3A 02 8B 41 24 B3 B1  22 44 22 A7 37 30 00 F5  |#:..A$.."D".70..|
000007D0: 23 44 02 8D 31 32 30 30  3A 99 22 11 46 49 4C 45  |#D..1200:.".FILE|
000007E0: 20 4E 41 4D 45 3F 22 3A  85 4E 24 3A 8B 4E 24 B2  | NAME?":.N$:.N$.|
000007F0: 22 22 A7 37 30 00 1E 24  4E 02 9F 32 2C 38 2C 32  |"".70..$N..2,8,2|
00000800: 2C 22 30 3A 22 AA 4E 24  AA 22 20 D8 2C 53 2C 52  |,"0:".N$." .,S,R|
00000810: 22 3A 20 4A B2 32 20 3A  20 89 31 31 36 30 00 33  |": J.2 : .1160.3|
00000820: 24 58 02 9F 31 2C 31 2C  30 3A 4A B2 31 3A 89 31  |$X..1,1,0:J.1:.1|
00000830: 31 36 30 00 5E 24 62 02  99 22 11 11 4B 49 4C 4C  |160.^$b.."..KILL|
00000840: 22 52 24 3A 85 41 24 3A  4A B2 C5 28 41 24 29 3A  |"R$:.A$:J..(A$):|
00000850: 8D 33 33 30 3A 8B 41 B3  B1 30 A7 31 32 30 00 76  |.330:.A..0.120.v|
00000860: 24 6C 02 8B 4A B3 30 B0  4A B1 4E A7 99 22 91 91  |$l..J.0.J.N.."..|
00000870: 22 3A 89 36 31 30 00 8D  24 76 02 53 24 28 49 29  |":.610..$v.S$(I)|
00000880: B2 53 24 28 49 AA 31 29  3A 8D 37 38 30 00 A0 24  |.S$(I.1):.780..$|
00000890: 80 02 53 24 28 4A 29 B2  22 C0 22 3A 89 31 37 30  |..S$(J).".":.170|
000008A0: 00 D4 24 8A 02 99 22 11  11 41 4C 50 48 41 42 45  |..$..."..ALPHABE|
000008B0: 54 49 5A 45 20 20 22 3B  3A 8D 31 30 35 30 3A 55  |TIZE  ";:.1050:U|
000008C0: B2 C5 28 41 24 29 3A 8B  55 B3 30 B0 55 B1 4E A7  |..(A$):.U.0.U.N.|
000008D0: 89 31 31 30 00 F0 24 94  02 8B CA 28 53 24 28 55  |.110..$....(S$(U|
000008E0: 29 2C 31 2C 31 29 B2 22  12 22 A7 55 B2 55 AA 31  |),1,1).".".U.U.1|
000008F0: 00 28 25 9E 02 8D 31 30  36 30 3A 4B B2 30 3A 81  |.(%...1060:K.0:.|
00000900: 49 B2 55 A4 4B 4B 3A 8B  C8 28 28 53 24 28 49 29  |I.U.KK:..((S$(I)|
00000910: 29 2C 31 29 B2 22 12 22  A7 4B B2 31 3A 4E 4E B2  |),1).".".K.1:NN.|
00000920: 49 AB 31 3A 49 B2 4B 4B  00 38 25 A8 02 82 49 3A  |I.1:I.KK.8%...I:|
00000930: 8B 4B B2 31 A7 37 30 30  00 42 25 B2 02 4E 4E B2  |.K.1.700.B%..NN.|
00000940: 4B 4B 00 4A 25 BC 02 49  B2 30 00 5E 25 C6 02 4A  |KK.J%..I.0.^%..J|
00000950: B2 55 3A 8B 49 B2 4E 4E  AB 55 A7 31 37 30 00 6E  |.U:.I.NN.U.170.n|
00000960: 25 D0 02 8B 4A B2 4E 4E  AB 49 A7 37 35 30 00 A5  |%...J.NN.I.750..|
00000970: 25 DA 02 8B 53 24 28 4A  29 B1 53 24 28 4A AA 31  |%...S$(J).S$(J.1|
00000980: 29 A7 54 50 24 B2 53 24  28 4A 29 3A 53 24 28 4A  |).TP$.S$(J):S$(J|
00000990: 29 B2 53 24 38 4A AA 31  29 3A 53 24 28 4A AA 31  |).S$8J.1):S$(J.1|
000009A0: 29 B2 54 50 24 00 B4 25  E4 02 4A B2 4A AA 31 3A  |).TP$..%..J.J.1:|
000009B0: 89 37 32 30 00 D7 25 EE  02 49 B2 49 AA 31 3A 97  |.720..%..I.I.1:.|
000009C0: 35 33 32 38 30 2C B5 28  BB 28 4B 29 AC 31 35 AA  |53280,.(.(K).15.|
000009D0: 31 29 3A 89 37 31 30 00  EA 25 F8 02 A1 41 24 3A  |1):.710..%...A$:|
000009E0: 8B 41 24 B2 22 22 A7 37  36 30 00 F0 25 02 03 8E  |.A$."".760..%...|
000009F0: 00 01 26 0C 03 99 22 13  22 A3 33 30 29 3B 49 3A  |..&...".".30);I:|
00000A00: 8E 00 26 26 16 03 99 22  11 11 12 41 52 45 20 59  |..&&..."...ARE Y|
00000A10: 4F 55 20 53 55 52 45 3F  20 28 59 2F 4E 29 22 3A  |OU SURE? (Y/N)":|
00000A20: 8D 37 36 30 3A 8E 00 50  26 20 03 50 4C B2 4F 3A  |.760:..P& .PL.O:|
00000A30: 99 22 93 12 48 41 52 44  20 43 4F 50 59 3F 22 3A  |."..HARD COPY?":|
00000A40: 8D 37 39 30 3A 8B 41 24  B3 B1 22 59 22 A7 37 30  |.790:.A$.."Y".70|
00000A50: 00 7E 26 2A 03 99 22 45  4E 54 49 52 45 20 46 49  |.~&*.."ENTIRE FI|
00000A60: 4C 45 3F 22 3A 8D 37 36  30 3A 8B 41 24 B2 22 59  |LE?":.760:.A$."Y|
00000A70: 22 A7 46 B2 30 3A 4D B2  4E 3A 89 38 36 30 00 9D  |".F.0:M.N:.860..|
00000A80: 26 34 03 8D 31 30 35 30  3A 46 B2 C5 28 41 24 29  |&4..1050:F..(A$)|
00000A90: 3A 8B 46 B3 30 B0 46 B1  4E 89 38 30 30 00 CB 26  |:.F.0.F.N.800..&|
00000AA0: 3E 03 99 22 45 4E 44 49  4E 47 22 52 24 3A 85 41  |>.."ENDING"R$:.A|
00000AB0: 24 3A 4D B2 C5 28 41 24  29 3A 8B 4D B3 30 B0 4D  |$:M..(A$):.M.0.M|
00000AC0: B1 4E B0 4D B2 B3 46 A7  38 30 30 00 FA 26 48 03  |.N.M..F.800..&H.|
00000AD0: 99 22 50 52 49 4E 54 20  54 4F 20 53 43 52 45 45  |."PRINT TO SCREE|
00000AE0: 4E 2C 20 41 4C 53 4F 3F  22 3A 8D 37 36 30 3A 8B  |N, ALSO?":.760:.|
00000AF0: 41 24 B2 22 59 22 A7 38  36 30 00 0C 27 52 03 97  |A$."Y".860..'R..|
00000B00: 36 34 36 2C C2 28 35 33  32 38 31 29 00 17 27 5C  |646,.(53281)..'\|
00000B10: 03 9F 34 2C 34 2C 31 00  26 27 66 03 98 34 2C C7  |..4,4,1.&'f..4,.|
00000B20: 28 31 34 29 54 24 00 45  27 70 03 98 34 2C C7 28  |(14)T$.E'p..4,.(|
00000B30: 31 30 29 22 46 49 4C 45  20 49 4E 46 4F 52 4D 41  |10)"FILE INFORMA|
00000B40: 54 49 4F 4E 22 00 81 27  7A 03 98 34 2C C7 28 31  |TION"..'z..4,.(1|
00000B50: 30 29 C7 28 31 34 29 22  2A 2A 2A 2A 2A 2A 2A 2A  |0).(14)"********|
00000B60: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000B70: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000B80: 22 00 B8 27 84 03 98 34  2C C7 28 31 34 29 22 2A  |"..'...4,.(14)"*|
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000BA0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000BB0: 2A 2A 2A 2A 2A 2A 2A 22  00 CA 27 8E 03 98 34 2C  |*******"..'...4,|
00000BC0: C7 28 31 30 29 3A 99 22  93 22 00 D5 27 98 03 81  |.(10):."."..'...|
00000BD0: 4A B2 46 A4 4D 00 E8 27  A2 03 8B 53 24 28 4A 29  |J.F.M..'...S$(J)|
00000BE0: B2 22 C0 22 A7 39 38 30  00 F3 27 AC 03 99 53 24  |.".".980..'...S$|
00000BF0: 28 4A 29 00 00 28 B6 03  98 34 2C 53 24 28 4A 29  |(J)..(...4,S$(J)|
00000C00: 00 0D 28 C0 03 98 34 2C  C7 28 31 33 29 00 20 28  |..(...4,.(13). (|
00000C10: CA 03 98 34 2C C7 28 31  30 29 3A 89 31 30 30 30  |...4,.(10):.1000|
00000C20: 00 40 28 D4 03 8B 4A AD  31 30 B2 B5 28 4A AD 31  |.@(...J.10..(J.1|
00000C30: 30 29 A7 4A B2 31 30 30  30 3A 89 20 31 30 33 30  |0).J.1000:. 1030|
00000C40: 00 4C 28 DE 03 82 3A 89  31 30 33 30 00 6A 28 E8  |.L(...:.1030.j(.|
00000C50: 03 50 4C B2 50 4C AA 32  3A 8B 50 4C B1 35 34 A7  |.PL.PL.2:.PL.54.|
00000C60: 50 4C B2 30 3A 8D 31 30  32 30 00 76 28 F2 03 82  |PL.0:.1020.v(...|
00000C70: 3A 89 31 30 33 30 00 A8  28 FC 03 98 34 2C C7 28  |:.1030..(...4,.(|
00000C80: 31 30 29 C7 28 31 30 29  C7 28 31 30 29 C7 28 31  |10).(10).(10).(1|
00000C90: 30 29 C7 28 31 30 29 C7  28 31 30 29 C7 28 31 30  |0).(10).(10).(10|
00000CA0: 29 C7 28 31 30 29 3A 8E  00 D3 28 06 04 A0 34 3A  |).(10):...(...4:|
00000CB0: 97 36 34 36 2C 31 33 3A  99 22 20 20 20 44 4F 4E  |.646,13:."   DON|
00000CC0: 45 2E 22 3A 81 49 B2 31  A4 32 30 30 30 3A 82 3A  |E.":.I.1.2000:.:|
00000CD0: 89 37 30 00 ED 28 10 04  81 4A B2 30 A4 4E 3A 53  |.70..(...J.0.N:S|
00000CE0: 24 28 4A 29 B2 22 C0 22  3A 82 4A 3A 8E 00 05 29  |$(J).".":.J:...)|
00000CF0: 1A 04 99 22 53 54 41 52  54 49 4E 47 22 52 24 3A  |..."STARTING"R$:|
00000D00: 85 41 24 3A 8E 00 2E 29  24 04 81 49 B2 4E A4 30  |.A$:...)$..I.N.0|
00000D10: A9 AB 31 3A 8B 53 24 28  49 29 B3 B1 22 C0 22 A7  |..1:.S$(I)..".".|
00000D20: 4B 4B B2 49 3A 49 B2 30  3A 89 31 30 38 30 00 37  |KK.I:I.0:.1080.7|
00000D30: 29 2E 04 4B 4B B2 31 00  40 29 38 04 82 49 3A 8E  |)..KK.1.@)8..I:.|
00000D40: 00 67 29 42 04 81 49 B2  4A AA 31 A4 4E 3A 8B 53  |.g)B..I.J.1.N:.S|
00000D50: 24 28 49 29 B2 22 C0 22  A7 4B 4B B2 49 3A 49 B2  |$(I).".".KK.I:I.|
00000D60: 4E 3A 89 31 30 38 30 00  70 29 4C 04 4B 4B B2 31  |N:.1080.p)L.KK.1|
00000D70: 00 79 29 56 04 82 49 3A  8E 00 9B 29 60 04 81 49  |.y)V..I:...)`..I|
00000D80: B2 4E A4 30 A9 AB 31 3A  4B B2 49 3A 8B 53 24 28  |.N.0..1:K.I:.S$(|
00000D90: 49 29 B3 B1 22 C0 22 A7  49 B2 30 00 A8 29 6A 04  |I)..".".I.0..)j.|
00000DA0: 82 49 3A 4B B2 4B AA 31  00 C3 29 74 04 98 4A 2C  |.I:K.K.1..)t..J,|
00000DB0: 54 24 AA 22 20 D8 22 3A  98 4A 2C 4B 3A 81 49 B2  |T$." .":.J,K:.I.|
00000DC0: 30 A4 4B 00 DE 29 7E 04  98 4A 2C 53 24 28 49 29  |0.K..)~..J,S$(I)|
00000DD0: 3A 8D 37 38 30 3A 82 3A  A0 4A 3A 89 37 30 00 E8  |:.780:.:.J:.70..|
00000DE0: 29 88 04 84 4A 2C 4E 24  00 16 2A 92 04 54 24 B2  |)...J,N$..*..T$.|
00000DF0: 4E 24 3A 54 24 B2 C8 28  54 24 2C C3 28 54 24 29  |N$:T$..(T$,.(T$)|
00000E00: AB 32 29 3A 99 22 11 12  46 4F 55 4E 44 20 22 54  |.2):."..FOUND "T|
00000E10: 24 3A 84 4A 2C 4B 00 5B  2A 9C 04 8B 4B B1 4E A7  |$:.J,K.[*...K.N.|
00000E20: 99 22 11 12 57 41 52 4E  49 4E 47 3A 22 3A 99 22  |."..WARNING:":."|
00000E30: 4E 4F 4E 2D 53 54 41 4E  44 41 52 44 20 46 49 4C  |NON-STANDARD FIL|
00000E40: 45 2E 2E 2E 46 4F 52 43  49 4E 47 20 41 44 4A 55  |E...FORCING ADJU|
00000E50: 53 54 4D 45 4E 54 22 3A  4B B2 4E 00 7D 2A A6 04  |STMENT":K.N.}*..|
00000E60: 81 49 B2 30 A4 4B 3A 84  4A 2C 53 24 28 49 29 3A  |.I.0.K:.J,S$(I):|
00000E70: 8D 37 38 30 3A 82 3A A0  4A 3A 89 37 30 00 AB 2A  |.780:.:.J:.70..*|
00000E80: B0 04 99 22 93 12 44 49  53 4B 20 46 49 4C 45 20  |..."..DISK FILE |
00000E90: 4C 49 53 54 49 4E 47 3F  20 11 22 3A 8D 37 36 30  |LISTING? .":.760|
00000EA0: 3A 8B 41 24 B3 B1 22 59  22 A7 8E 00 C3 2A BA 04  |:.A$.."Y"....*..|
00000EB0: 99 22 93 12 53 43 41 4E  4E 49 4E 47 20 44 49 53  |."..SCANNING DIS|
00000EC0: 4B 11 22 00 D3 2A C4 04  9F 31 2C 38 2C 30 2C 22  |K."..*...1,8,0,"|
00000ED0: 24 30 22 00 E1 2A CE 04  A1 23 31 2C 41 24 2C 42  |$0"..*...#1,A$,B|
00000EE0: 24 00 EF 2A D8 04 A1 23  31 2C 41 24 2C 42 24 00  |$..*...#1,A$,B$.|
00000EF0: FD 2A E2 04 A1 23 31 2C  41 24 2C 42 24 00 05 2B  |.*...#1,A$,B$..+|
00000F00: EC 04 43 B2 30 00 19 2B  F6 04 8B 41 24 B3 B1 22  |..C.0..+...A$.."|
00000F10: 22 A7 43 B2 C6 28 41 24  29 00 33 2B 00 05 8B 42  |".C..(A$).3+...B|
00000F20: 24 B3 B1 22 22 A7 43 B2  43 AA C6 28 42 24 29 AC  |$.."".C.C..(B$).|
00000F30: 32 35 36 00 4F 2B 0A 05  44 24 B2 44 24 AA 22 12  |256.O+..D$.D$.".|
00000F40: 22 AA CA 28 C4 28 43 29  2C 32 29 AA 22 92 22 00  |"..(.(C),2).".".|
00000F50: 68 2B 14 05 A1 23 31 2C  42 24 3A 8B 53 54 B3 B1  |h+...#1,B$:.ST..|
00000F60: 30 A7 A0 31 3A 99 3A 8E  00 7C 2B 1E 05 8B 42 24  |0..1:.:..|+...B$|
00000F70: B3 B1 C7 28 33 34 29 A7  31 33 30 30 00 A1 2B 28  |...(34).1300..+(|
00000F80: 05 A1 23 31 2C 42 24 3A  8B 42 24 B3 B1 C7 28 33  |..#1,B$:.B$...(3|
00000F90: 34 29 A7 44 24 B2 44 24  AA 42 24 3A 89 31 33 32  |4).D$.D$.B$:.132|
00000FA0: 30 00 BB 2B 32 05 A1 23  31 2C 42 24 3A 8B 42 24  |0..+2..#1,B$:.B$|
00000FB0: B2 C7 28 33 32 29 A7 31  33 33 30 00 C5 2B 3C 05  |..(32).1330..+<.|
00000FC0: 43 24 B2 22 22 00 E6 2B  46 05 43 24 B2 43 24 AA  |C$.""..+F.C$.C$.|
00000FD0: 42 24 3A A1 23 31 2C 42  24 3A 8B 42 24 B3 B1 22  |B$:.#1,B$:.B$.."|
00000FE0: 22 A7 31 33 35 30 00 FB  2B 50 05 8B C9 28 44 24  |".1350..+P...(D$|
00000FF0: 2C 31 29 B2 22 D8 22 A7  99 44 24 00 0B 2C 5A 05  |,1)."."..D$..,Z.|
00001000: 44 24 B2 22 22 3A 89 31  32 34 30 00 47 2C 64 05  |D$."":.1240.G,d.|
00001010: 59 B2 59 AB 31 3A 81 49  B2 30 A4 43 3A 43 24 28  |Y.Y.1:.I.0.C:C$(|
00001020: 49 2C 50 25 28 4C 29 29  B2 22 C0 22 3A 82 49 3A  |I,P%(L)).".":.I:|
00001030: 81 49 B2 4C A4 59 3A 50  25 28 49 29 B2 50 25 28  |.I.L.Y:P%(I).P%(|
00001040: 49 AA 31 29 3A 82 49 00  53 2C 6E 05 4C B2 4C AB  |I.1):.I.S,n.L.L.|
00001050: 31 3A 8E 00 85 2C 78 05  8B C8 28 53 24 28 4A 29  |1:...,x...(S$(J)|
00001060: 2C 31 29 B2 22 5F 22 A7  53 24 28 4A 29 B2 22 12  |,1)."_".S$(J).".|
00001070: 22 AA C9 28 53 24 28 4A  29 2C C3 28 53 24 28 4A  |"..(S$(J),.(S$(J|
00001080: 29 29 AB 31 29 00 8E 2C  82 05 89 31 37 30 00 AB  |)).1)..,...170..|
00001090: 2C 8C 05 99 22 93 12 41  52 45 20 59 4F 55 20 53  |,..."..ARE YOU S|
000010A0: 55 52 45 3F 20 28 59 2F  4E 29 22 00 C2 2C 96 05  |URE? (Y/N)"..,..|
000010B0: A1 20 53 43 24 3A 8B 53  43 24 B2 22 22 A7 31 34  |. SC$:.SC$."".14|
000010C0: 33 30 00 DA 2C A0 05 8B  53 43 24 B3 B1 22 59 22  |30..,...SC$.."Y"|
000010D0: A7 99 22 93 22 3A 89 33  37 30 00 EF 2C AA 05 85  |..".":.370..,...|
000010E0: 22 46 49 4C 45 4E 41 4D  45 3A 22 3B 53 46 24 00  |"FILENAME:";SF$.|
000010F0: 33 2D B4 05 9F 31 35 2C  38 2C 31 35 3A 98 31 35  |3-...15,8,15:.15|
00001100: 2C 22 53 43 52 41 54 43  48 30 3A 22 AA 53 46 24  |,"SCRATCH0:".SF$|
00001110: AA 22 2C 38 2C 31 22 3A  99 22 46 49 4C 45 20 53  |.",8,1":."FILE S|
00001120: 43 52 41 54 43 48 45 44  22 3A 56 B2 31 3A 8D 31  |CRATCHED":V.1:.1|
00001130: 35 34 30 00 48 2D BE 05  81 49 B2 31 A4 31 30 30  |540.H-...I.1.100|
00001140: 30 3A 82 3A 89 33 37 30  00 65 2D C8 05 99 22 93  |0:.:.370.e-...".|
00001150: 12 41 52 45 20 59 4F 55  20 53 55 52 45 3F 20 28  |.ARE YOU SURE? (|
00001160: 59 2F 4E 29 22 00 7C 2D  D2 05 A1 20 53 43 24 3A  |Y/N)".|-... SC$:|
00001170: 8B 53 43 24 B2 22 22 A7  31 34 39 30 00 94 2D DC  |.SC$."".1490..-.|
00001180: 05 8B 53 43 24 B3 B1 22  59 22 A7 99 22 93 22 3A  |..SC$.."Y"..".":|
00001190: 89 33 37 30 00 BD 2D E6  05 A0 31 35 3A 9F 31 35  |.370..-...15:.15|
000011A0: 2C 38 2C 31 35 3A 85 22  44 49 53 4B 20 4E 41 4D  |,8,15:."DISK NAM|
000011B0: 45 2C 49 44 22 3B 43 49  24 2C 43 53 24 00 D9 2D  |E,ID";CI$,CS$..-|
000011C0: F0 05 98 31 35 2C 22 4E  45 57 30 3A 22 AA 43 49  |...15,"NEW0:".CI|
000011D0: 24 AA 22 2C 22 AA 43 53  24 00 0A 2E FA 05 A0 31  |$.",".CS$......1|
000011E0: 35 3A 99 22 44 49 53 4B  20 46 4F 52 4D 41 54 20  |5:."DISK FORMAT |
000011F0: 43 4F 4D 50 4C 45 54 45  22 3A 81 49 B2 31 A4 31  |COMPLETE":.I.1.1|
00001200: 30 30 30 3A 82 3A 89 33  37 30 00 40 2E 04 06 A0  |000:.:.370.@....|
00001210: 31 35 3A 9F 31 35 2C 38  2C 31 35 3A 98 31 35 2C  |15:.15,8,15:.15,|
00001220: 22 56 41 4C 49 44 41 54  45 22 3A A0 31 35 3A 99  |"VALIDATE":.15:.|
00001230: 22 44 49 53 4B 20 56 41  4C 49 44 41 54 45 44 22  |"DISK VALIDATED"|
00001240: 00 4F 2E 0E 06 8B 56 B2  31 A7 56 B2 30 3A 8E 00  |.O....V.1.V.0:..|
00001250: 64 2E 18 06 81 49 B2 31  A4 31 32 30 30 3A 82 3A  |d....I.1.1200:.:|
00001260: 89 33 37 30 00 81 2E 22  06 99 22 93 12 41 52 45  |.370...".."..ARE|
00001270: 20 59 4F 55 20 53 55 52  45 3F 20 28 59 2F 4E 29  | YOU SURE? (Y/N)|
00001280: 22 00 98 2E 2C 06 A1 20  53 43 24 3A 8B 53 43 24  |"...,.. SC$:.SC$|
00001290: B2 22 22 A7 31 35 38 30  00 B0 2E 36 06 8B 53 43  |."".1580...6..SC|
000012A0: 24 B3 B1 22 59 22 A7 99  22 93 22 3A 89 33 37 30  |$.."Y"..".":.370|
000012B0: 00 CE 2E 40 06 85 22 45  4E 54 45 52 20 4F 4C 44  |...@.."ENTER OLD|
000012C0: 20 46 49 4C 45 4E 41 4D  45 22 3B 4F 46 24 00 EC  | FILENAME";OF$..|
000012D0: 2E 4A 06 85 22 45 4E 54  45 52 20 4E 45 57 20 46  |.J.."ENTER NEW F|
000012E0: 49 4C 45 4E 41 4D 45 22  3B 4E 46 24 00 1C 2F 54  |ILENAME";NF$../T|
000012F0: 06 A0 31 35 3A 9F 31 35  2C 38 2C 31 35 3A 98 31  |..15:.15,8,15:.1|
00001300: 35 2C 22 52 45 4E 41 4D  45 30 3A 22 AA 4E 46 24  |5,"RENAME0:".NF$|
00001310: AA 22 3D 22 AA 4F 46 24  3A A0 31 35 00 41 2F 5E  |."=".OF$:.15.A/^|
00001320: 06 99 22 46 49 4C 45 20  52 45 4E 41 4D 45 44 22  |.."FILE RENAMED"|
00001330: 3A 81 49 B2 31 A4 31 30  30 30 3A 82 3A 89 33 37  |:.I.1.1000:.:.37|
00001340: 30 00 57 2F 68 06 99 22  93 22 3A A0 31 35 3A 9F  |0.W/h..".":.15:.|
00001350: 31 35 2C 38 2C 31 35 00  6B 2F 72 06 84 31 35 2C  |15,8,15.k/r..15,|
00001360: 41 24 2C 42 24 2C 43 24  2C 44 24 00 7C 2F 7C 06  |A$,B$,C$,D$.|/|.|
00001370: 99 41 24 2C 42 24 2C 43  24 2C 44 24 00 8C 2F 86  |.A$,B$,C$,D$../.|
00001380: 06 81 49 B2 31 A4 32 30  30 30 3A 82 00 99 2F 90  |..I.1.2000:.../.|
00001390: 06 A0 31 35 3A 89 33 37  30 00 C4 2F 9A 06 99 22  |..15:.370../..."|
000013A0: 93 12 53 43 41 4E 4E 49  4E 47 20 44 49 53 4B 11  |..SCANNING DISK.|
000013B0: 22 3A 46 24 B2 22 A0 A0  A0 A0 A0 A0 A0 A0 22 3A  |":F$."........":|
000013C0: 99 22 12 22 00 FA 2F A4  06 FE 25 3A 9F 31 2C 38  |."."../...%:.1,8|
000013D0: 2C 30 2C 22 24 30 22 3A  8B 44 53 B3 B1 30 A7 FE  |,0,"$0":.DS..0..|
000013E0: 26 3A 99 44 53 24 3A A0  31 3A 81 49 B2 31 A4 32  |&:.DS$:.1:.I.1.2|
000013F0: 30 30 30 3A 82 3A 89 33  37 30 00 04 30 A9 06 44  |000:.:.370..0..D|
00001400: 24 B2 22 22 00 12 30 AE  06 A1 23 31 2C 41 24 2C  |$.""..0...#1,A$,|
00001410: 42 24 00 20 30 B8 06 A1  23 31 2C 41 24 2C 42 24  |B$. 0...#1,A$,B$|
00001420: 00 2E 30 C2 06 A1 23 31  2C 41 24 2C 42 24 00 36  |..0...#1,A$,B$.6|
00001430: 30 CC 06 43 B2 30 00 4A  30 D6 06 8B 41 24 B3 B1  |0..C.0.J0...A$..|
00001440: 22 22 A7 43 B2 C6 28 41  24 29 00 64 30 E0 06 8B  |"".C..(A$).d0...|
00001450: 42 24 B3 B1 22 22 A7 43  B2 43 AA C6 28 42 24 29  |B$.."".C.C..(B$)|
00001460: AC 32 35 36 00 96 30 EA  06 44 24 B2 44 24 AA 22  |.256..0..D$.D$."|
00001470: 12 22 AA CA 28 C4 28 43  29 2C 32 29 AA 22 92 22  |."..(.(C),2)."."|
00001480: 3A 44 24 B2 44 24 AA C8  28 46 24 2C 28 38 AB C3  |:D$.D$..(F$,(8..|
00001490: 28 44 24 29 29 29 00 E0  30 F4 06 A1 23 31 2C 42  |(D$)))..0...#1,B|
000014A0: 24 3A 8B 53 54 B3 B1 30  A7 99 22 11 1D 22 AA 44  |$:.ST..0.."..".D|
000014B0: 24 AA 22 42 4C 4F 43 4B  53 20 46 52 45 45 22 3A  |$."BLOCKS FREE":|
000014C0: A0 31 3A FE 26 3A 99 C7  28 31 34 32 29 3A 97 32  |.1:.&:..(142):.2|
000014D0: 31 33 2C 30 3A 92 32 31  33 2C 31 3A 89 33 37 30  |13,0:.213,1:.370|
000014E0: 00 F4 30 FE 06 8B 42 24  B3 B1 C7 28 33 34 29 A7  |..0...B$...(34).|
000014F0: 31 37 38 30 00 19 31 08  07 A1 23 31 2C 42 24 3A  |1780..1...#1,B$:|
00001500: 8B 42 24 B3 B1 C7 28 33  34 29 A7 44 24 B2 44 24  |.B$...(34).D$.D$|
00001510: AA 42 24 3A 89 31 38 30  30 00 33 31 12 07 A1 23  |.B$:.1800.31...#|
00001520: 31 2C 42 24 3A 8B 42 24  B2 C7 28 33 32 29 A7 31  |1,B$:.B$..(32).1|
00001530: 38 31 30 00 3D 31 1C 07  43 24 B2 22 22 00 5E 31  |810.=1..C$."".^1|
00001540: 26 07 43 24 B2 43 24 AA  42 24 3A A1 23 31 2C 42  |&.C$.C$.B$:.#1,B|
00001550: 24 3A 8B 42 24 B3 B1 22  22 A7 31 38 33 30 00 66  |$:.B$.."".1830.f|
00001560: 31 30 07 99 44 24 00 76  31 3A 07 44 24 B2 22 22  |10..D$.v1:.D$.""|
00001570: 3A 89 31 37 32 30 00 9C  31 D0 07 FE 26 3A 99 22  |:.1720..1...&:."|
00001580: 45 52 52 4F 52 20 2D 20  22 3B D3 28 45 52 29 3B  |ERROR - ";.(ER);|
00001590: 22 20 2D 20 4C 49 4E 45  22 3B 45 4C 00 B5 31 DA  |" - LINE";EL..1.|
000015A0: 07 81 49 B2 31 A4 32 30  30 30 3A 82 3A FE 0F 3A  |..I.1.2000:.:..:|
000015B0: D6 20 33 37 30 00 00 00                           |. 370...        |

......W2000./....0,12:.4,14:.5,4:T$."NON
E":.".".X...."....            . DATABASE
 FILE ."...... PRINT"....ENTER ACCESS CO
DE FOR THIS PROGRAM:":INPUTAC$...(.. IFA
C$<>"D-HEAD"THENSYS64738...2.."......   
           PLEASE WAIT":.I.1.800:.:T$.H(
T$,14).(.<..%:N.1000:P.1:X.(N.1).10:.S$(
N):.1040:.&:.370.0.F.K.0.S.P.Q.0:."..FIL
E ACCESSED:";T$".."...Z..J.K.N:.F(S$(J))
.18..".".(J.10.1);S$(J):Q.Q.1:.Q.10.110.
..D..J...N..310:.A.0.110...X..A.70,150,2
30,610,350,270,500,650,550,800,1420,1480
,1540,1570,1690,1640,370......J.N.1.K.J:
.80......70.=...."..PAGE#":.A$:P.E(A$):.
330:.A..0.120.V. ..P.1.P.X.."...":.150.P
...."...  PAGE#  "P;".."......I.0.9:L.(P
.1).10.I:..1)L":"S$(L):.......310:.A.0.1
90...H..A..12.120.L.R.P.P.1:.P.X.P.1.U..
..170.....A$."-1":."..ENTER"R$......"LIN
E#?":.A$:J.E(A$):.330:.A..0.120.:....J.0
.J..(X).10.1..".....":.230.K....S$(J):.1
400.....A$."-1":."..INSERT"R$:.A$:J.E(A$
):.330:.A..0.120......J.0.J.(.(X).10).1.
.".....":.270.L.".."ENTRY":.D$:."INSERTI
NG":.R.N.170.. ,..1090:.I.KK.J.1..1:S$(I
).S$(I.1):.:S$(J).D$:.1400.Q 6.E$.". .D.
 .C. .E. .K. .N. .I. .S. .A. .L. .H. .Q.
 .F. .V. .R. .*. .@. ._.".A @...2)E$:.76
0.. J.A.0:.I.1.17:.J(E$,I.4,1).A$.A.I:I.
17.. T..I:... ^..790:.A$.."Y".70.K H.."N
EW FILE NAME":.T$:.1040:.70.. R..G(142):
.".":..12)"COMMAND SUMMARY.".#!|.."   .D
.ISPLAY HEADERS";.23)".C.ALL PAGE#".M!..
."   ..E.NTER DATA";.23)".K.ILL DATA".W!
..."   ..N.EW FILE";.23)".I.NSERT DATA".
.!..."   ..S.AVE (T OR D)";.23)".A.LPHAB
ETIZE".S!..."   ..L.OAD (T OR D)";.23)".
H.ARD COPY".."..."   ..Q. SCRATCH FILE";
.23)".F.ORMAT DISK".4"..."   ..V.ALIDATE
 DISK";.23)".R. RENAME FILE".D"B.."   ..
*.DIRECTORY";.23)".@. ERROR CHANNEL".."L
.."   ..X. EXIT PROGRAM";.23)"._. HELP."
.."V..310:.A.0.370.."...QT.1.QT.0:..."..
.120.."..."..SAVE ";T$"?":.790:.A$.."Y".
70..#...".D.ISK OR .T.APE?.":.760:.A$."T
".540..#...A$.."D".70.F#...2,8,2,"@0:".T
$." X,S,W": J.2 :.1120.D#...1,1,1,T$:.1,
T$:J.1:.1120..#&.."..LOAD FROM TAPE OR D
ISK":.790.A$.."Y".70..#0..".D.ISK OR .T.
APE?":.760:.A$."T".600.N#:..A$.."D".70..
#D..1200:.".FILE NAME?":.N$:.N$."".70..$
N..2,8,2,"0:".N$." X,S,R": J.2 : .1160.3
$X..1,1,0:J.1:.1160.^$B.."..KILL"R$:.A$:
J.E(A$):.330:.A..0.120.V$L..J.0.J.N.."..
":.610..$V.S$(I).S$(I.1):.780. $..S$(J).
".":.170.T$..."..ALPHABETIZE  ";:.1050:U
.E(A$):.U.0.U.N..110..$...J(S$(U),1,1)."
.".U.U.1.(%...1060:K.0:.I.U.KK:.H((S$(I)
),1).".".K.1:NN.I.1:I.KK.8%...I:.K.1.700
.B%..NN.KK.J%..I.0.^%F.J.U:.I.NN.U.170.N
%P..J.NN.I.750..%Z..S$(J).S$(J.1).TP$.S$
(J):S$(J).S$8J.1):S$(J.1).TP$..%..J.J.1:
.720.W%..I.I.1:.53280,.(.(K).15.1):.710.
.%...A$:.A$."".760..%.....&...".".30);I:
..&&..."...ARE YOU SURE? (Y/N)":.760:..P
& .PL.O:."..HARD COPY?":.790:.A$.."Y".70
.~&*.."ENTIRE FILE?":.760:.A$."Y".F.0:M.
N:.860..&4..1050:F.E(A$):.F.0.F.N.800.K&
>.."ENDING"R$:.A$:M.E(A$):.M.0.M.N.M..F.
800..&H.."PRINT TO SCREEN, ALSO?":.760:.
A$."Y".860..'R..646,B(53281)..'\..4,4,1.
&'F..4,G(14)T$.E'P..4,G(10)"FILE INFORMA
TION"..'Z..4,G(10)G(14)"****************
************************"..'...4,G(14)"*
***************************************"
.J'...4,G(10):.".".U'...J.F.M..'...S$(J)
.".".980..'...S$(J)..(...4,S$(J)..(...4,
G(13). (J..4,G(10):.1000.@(T..J.10..(J.1
0).J.1000:. 1030.L(...:.1030.J(..PL.PL.2
:.PL.54.PL.0:.1020.V(...:.1030..(...4,G(
10)G(10)G(10)G(10)G(10)G(10)G(10)G(10):.
.S(.. 4:.646,13:."   DONE.":.I.1.2000:.:
.70..(...J.0.N:S$(J).".":.J:...)..."STAR
TING"R$:.A$:...)$..I.N.0..1:.S$(I)..".".
KK.I:I.0:.1080.7)..KK.1.@)8..I:..G)B..I.
J.1.N:.S$(I).".".KK.I:I.N:.1080.P)L.KK.1
.Y)V..I:...)`..I.N.0..1:K.I:.S$(I)..".".
I.0..)J..I:K.K.1.C)T..J,T$." X":.J,K:.I.
0.K..)~..J,S$(I):.780:.: J:.70..)...J,N$
..*..T$.N$:T$.H(T$,C(T$).2):."..FOUND "T
$:.J,K.[*...K.N.."..WARNING:":."NON-STAN
DARD FILE...FORCING ADJUSTMENT":K.N.}*..
.I.0.K:.J,S$(I):.780:.: J:.70..*..."..DI
SK FILE LISTING? .":.760:.A$.."Y"...C*..
."..SCANNING DISK.".S*D..1,8,0,"$0"..*N.
.#1,A$,B$..*X..#1,A$,B$..*...#1,A$,B$..+
..C.0..+...A$.."".C.F(A$).3+...B$.."".C.
C.F(B$).256.O+..D$.D$.".".J(D(C),2).".".
H+...#1,B$:.ST..0. 1:.:..|+...B$..G(34).
1300..+(..#1,B$:.B$..G(34).D$.D$.B$:.132
0..+2..#1,B$:.B$.G(32).1330.E+<.C$.""..+
F.C$.C$.B$:.#1,B$:.B$.."".1350..+P..I(D$
,1)."X"..D$..,Z.D$."":.1240.G,D.Y.Y.1:.I
.0.C:C$(I,P%(L)).".":.I:.I.L.Y:P%(I).P%(
I.1):.I.S,N.L.L.1:...,X..H(S$(J),1)."_".
S$(J).".".I(S$(J),C(S$(J)).1)..,...170..
,..."..ARE YOU SURE? (Y/N)".B,... SC$:.S
C$."".1430.Z, ..SC$.."Y"..".":.370..,...
"FILENAME:";SF$.3-...15,8,15:.15,"SCRATC
H0:".SF$.",8,1":."FILE SCRATCHED":V.1:.1
540.H-...I.1.1000:.:.370.E-H.."..ARE YOU
 SURE? (Y/N)".|-R.. SC$:.SC$."".1490..-.
..SC$.."Y"..".":.370..-.. 15:.15,8,15:."
DISK NAME,ID";CI$,CS$.Y-...15,"NEW0:".CI
$.",".CS$..... 15:."DISK FORMAT COMPLETE
":.I.1.1000:.:.370.@... 15:.15,8,15:.15,
"VALIDATE": 15:."DISK VALIDATED".O....V.
1.V.0:..D....I.1.1200:.:.370...".."..ARE
 YOU SURE? (Y/N)"...,.. SC$:.SC$."".1580
...6..SC$.."Y"..".":.370.N.@.."ENTER OLD
 FILENAME";OF$...J.."ENTER NEW FILENAME"
;NF$../T. 15:.15,8,15:.15,"RENAME0:".NF$
."=".OF$: 15.A/^.."FILE RENAMED":.I.1.10
00:.:.370.W/H..".": 15:.15,8,15.K/R..15,
A$,B$,C$,D$.|/|..A$,B$,C$,D$../...I.1.20
00:.../.. 15:.370.D/..."..SCANNING DISK.
":F$."        ":."."../...%:.1,8,0,"$0":
.DS..0..&:.DS$: 1:.I.1.2000:.:.370..0..D
$.""..0...#1,A$,B$. 0...#1,A$,B$..0B..#1
,A$,B$.60L.C.0.J0V..A$.."".C.F(A$).D0...
B$.."".C.C.F(B$).256..0..D$.D$.".".J(D(C
),2).".":D$.D$.H(F$,(8.C(D$)))..0...#1,B
$:.ST..0.."..".D$."BLOCKS FREE": 1:.&:.G
(142):.213,0:.213,1:.370..0...B$..G(34).
1780..1...#1,B$:.B$..G(34).D$.D$.B$:.180
0.31...#1,B$:.B$.G(32).1810.=1..C$."".^1
&.C$.C$.B$:.#1,B$:.B$.."".1830.F10..D$.V
1:.D$."":.1720..1P..&:."ERROR - ";S(ER);
" - LINE";EL..1Z..I.1.2000:.:..:V 370...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL