DISK FILER-40/80

00000000: 01 1C 29 1C 00 00 8F 2D  2D 2D 2D 2D 2D 2D 2D 2D  |..)....---------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D  2D 00 51 1C 01 00 8F 2D  |---------.Q....-|
00000030: 2D 49 4E 20 44 49 53 4B  20 23 20 55 53 45 20 54  |-IN DISK # USE T|
00000040: 48 52 45 45 20 44 49 47  49 54 53 20 4F 4E 4C 59  |HREE DIGITS ONLY|
00000050: 2D 00 79 1C 02 00 8F 2D  2D 20 20 20 20 20 20 20  |-.y....--       |
00000060: 20 20 20 20 45 58 2E 20  20 20 20 20 20 20 20 20  |    EX.         |
00000070: 20 20 20 20 20 20 20 20  2D 00 A1 1C 03 00 8F 2D  |        -......-|
00000080: 52 41 49 44 20 4F 56 45  52 20 4D 4F 53 43 4F 57  |RAID OVER MOSCOW|
00000090: 20 20 20 20 20 20 20 20  20 20 20 30 31 37 20 20  |           017  |
000000A0: 2D 00 C9 1C 04 00 8F 2D  53 4F 43 43 45 52 20 20  |-......-SOCCER  |
000000B0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000C0: 20 20 20 30 30 34 20 20  2D 00 F1 1C 05 00 8F 2D  |   004  -......-|
000000D0: 50 49 4E 42 41 4C 4C 20  20 20 20 20 20 20 20 20  |PINBALL         |
000000E0: 20 20 20 20 20 20 20 20  20 20 20 31 32 33 20 20  |           123  |
000000F0: 2D 00 19 1D 06 00 8F 2D  2D 2D 2D 2D 2D 2D 2D 2D  |-......---------|
00000100: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000110: 2D 2D 2D 2D 2D 2D 2D 2D  2D 00 37 1D 0A 00 9C 3A  |---------.7....:|
00000120: 99 22 93 05 22 3A 97 35  33 32 38 30 2C 32 3A 97  |."..":.53280,2:.|
00000130: 35 33 32 38 31 2C 30 00  54 1D 14 00 85 22 11 11  |53281,0.T...."..|
00000140: 11 48 4F 57 20 4D 41 4E  59 20 45 4E 54 52 49 45  |.HOW MANY ENTRIE|
00000150: 53 22 3B 45 00 7D 1D 1E  00 86 50 24 28 45 AA 32  |S";E.}....P$(E.2|
00000160: 29 2C 44 24 28 45 AA 32  29 2C 50 52 24 28 35 35  |),D$(E.2),PR$(55|
00000170: 29 2C 4B 24 28 31 36 29  2C 42 28 45 29 00 9F 1D  |),K$(16),B(E)...|
00000180: 28 00 99 22 93 11 11 11  1D 1D 1D 1D 1D 1D 1D 1D  |(.."............|
00000190: 1D 1D 1D 1D 1D 4D 41 49  4E 20 4D 45 4E 55 22 00  |.....MAIN MENU".|
000001A0: B6 1D 29 00 99 A3 31 33  29 3B 22 9F B8 B8 B8 B8  |..)...13);".....|
000001B0: B8 B8 B8 B8 B8 22 00 DB  1D 32 00 99 22 11 11 9E  |....."...2.."...|
000001C0: 1D 1D 1D 1D 1D 1D 1D 1D  1D 31 2D 57 52 49 54 45  |.........1-WRITE|
000001D0: 20 46 49 4C 45 2E 2E 2E  2E 2E 22 00 FE 1D 34 00  | FILE....."...4.|
000001E0: 99 22 05 1D 1D 1D 1D 1D  1D 1D 1D 1D 32 2D 52 45  |."..........2-RE|
000001F0: 41 44 20 46 49 4C 45 2E  2E 2E 2E 2E 2E 22 00 21  |AD FILE......".!|
00000200: 1E 36 00 99 22 9E 1D 1D  1D 1D 1D 1D 1D 1D 1D 33  |.6.."..........3|
00000210: 2D 56 49 45 57 20 46 49  4C 45 2E 2E 2E 2E 2E 2E  |-VIEW FILE......|
00000220: 22 00 44 1E 38 00 99 22  05 1D 1D 1D 1D 1D 1D 1D  |".D.8.."........|
00000230: 1D 1D 34 2D 53 45 41 52  43 48 2E 2E 2E 2E 2E 2E  |..4-SEARCH......|
00000240: 2E 2E 2E 22 00 67 1E 3A  00 99 22 9E 1D 1D 1D 1D  |...".g.:..".....|
00000250: 1D 1D 1D 1D 1D 35 2D 50  52 49 4E 54 20 46 49 4C  |.....5-PRINT FIL|
00000260: 45 2E 2E 2E 2E 2E 22 00  8A 1E 3C 00 99 22 05 1D  |E....."...<.."..|
00000270: 1D 1D 1D 1D 1D 1D 1D 1D  36 2D 44 45 4C 45 54 45  |........6-DELETE|
00000280: 20 45 4E 54 52 59 2E 2E  2E 22 00 AD 1E 3D 00 99  | ENTRY..."...=..|
00000290: 22 9E 1D 1D 1D 1D 1D 1D  1D 1D 1D 37 2D 57 52 49  |"..........7-WRI|
000002A0: 54 45 20 46 49 4C 45 2E  2E 2E 2E 2E 22 00 D0 1E  |TE FILE....."...|
000002B0: 3E 00 99 22 05 1D 1D 1D  1D 1D 1D 1D 1D 1D 38 2D  |>.."..........8-|
000002C0: 43 4C 45 41 52 20 4D 45  4D 4F 52 59 2E 2E 2E 22  |CLEAR MEMORY..."|
000002D0: 00 F3 1E 3F 00 99 22 9E  1D 1D 1D 1D 1D 1D 1D 1D  |...?..".........|
000002E0: 1D 39 2D 53 41 56 45 20  46 49 4C 45 2E 2E 2E 2E  |.9-SAVE FILE....|
000002F0: 2E 2E 22 00 16 1F 40 00  99 22 05 1D 1D 1D 1D 1D  |.."...@.."......|
00000300: 1D 1D 1D 1D 53 2D 53 43  52 41 54 43 48 20 46 49  |....S-SCRATCH FI|
00000310: 4C 45 2E 2E 2E 22 00 39  1F 41 00 99 22 9E 1D 1D  |LE...".9.A.."...|
00000320: 1D 1D 1D 1D 1D 1D 1D 46  2D 46 4F 52 4D 41 54 20  |.......F-FORMAT |
00000330: 44 49 53 4B 2E 2E 2E 2E  22 00 5C 1F 42 00 99 22  |DISK....".\.B.."|
00000340: 05 1D 1D 1D 1D 1D 1D 1D  1D 1D 44 2D 44 49 52 45  |..........D-DIRE|
00000350: 43 54 4F 52 59 2E 2E 2E  2E 2E 2E 22 00 70 1F 50  |CTORY......".p.P|
00000360: 00 A1 43 48 24 3A 8B 43  48 24 B2 22 22 A7 38 30  |..CH$:.CH$."".80|
00000370: 00 81 1F 51 00 8B 43 48  24 B2 22 31 22 A7 31 30  |...Q..CH$."1".10|
00000380: 30 00 92 1F 52 00 8B 43  48 24 B2 22 32 22 A7 32  |0...R..CH$."2".2|
00000390: 30 30 00 A3 1F 53 00 8B  43 48 24 B2 22 33 22 A7  |00...S..CH$."3".|
000003A0: 33 30 30 00 B4 1F 54 00  8B 43 48 24 B2 22 34 22  |300...T..CH$."4"|
000003B0: A7 34 30 30 00 C5 1F 55  00 8B 43 48 24 B2 22 35  |.400...U..CH$."5|
000003C0: 22 A7 35 30 30 00 D6 1F  56 00 8B 43 48 24 B2 22  |".500...V..CH$."|
000003D0: 36 22 A7 36 30 30 00 E7  1F 57 00 8B 43 48 24 B2  |6".600...W..CH$.|
000003E0: 22 37 22 A7 37 30 30 00  F9 1F 58 00 8B 43 48 24  |"7".700...X..CH$|
000003F0: B2 22 38 22 A7 31 33 35  30 00 0A 20 59 00 8B 43  |."8".1350.. Y..C|
00000400: 48 24 B2 22 39 22 A7 39  30 30 00 1C 20 5A 00 8B  |H$."9".900.. Z..|
00000410: 43 48 24 B2 22 53 22 A7  31 30 30 30 00 2E 20 5B  |CH$."S".1000.. [|
00000420: 00 8B 43 48 24 B2 22 46  22 A7 31 30 35 30 00 40  |..CH$."F".1050.@|
00000430: 20 5C 00 8B 43 48 24 B2  22 44 22 A7 31 30 39 30  | \..CH$."D".1090|
00000440: 00 48 20 63 00 89 38 30  00 89 20 64 00 99 22 93  |.H c..80.. d..".|
00000450: 05 11 11 54 4F 20 1F 45  4E 44 05 20 46 49 4C 45  |...TO .END. FILE|
00000460: 2C 20 41 4E 53 57 45 52  20 1F 45 4E 44 05 20 54  |, ANSWER .END. T|
00000470: 4F 20 42 4F 54 48 20 20  20 20 20 20 20 20 20 51  |O BOTH         Q|
00000480: 55 45 53 54 49 4F 4E 53  22 00 8F 20 6A 00 99 00  |UESTIONS".. j...|
00000490: 9C 20 6E 00 8B 41 B2 30  A7 41 B2 31 00 AD 20 71  |. n..A.0.A.1.. q|
000004A0: 00 99 3A 99 22 2D 2D 22  41 22 2D 2D 22 00 CC 20  |..:."--"A"--".. |
000004B0: 73 00 85 22 05 4E 41 4D  45 20 4F 46 20 50 52 4F  |s..".NAME OF PRO|
000004C0: 47 52 41 4D 9E 22 3B 50  24 28 41 29 00 EA 20 78  |GRAM.";P$(A).. x|
000004D0: 00 85 22 05 4E 55 4D 42  45 52 20 4F 46 20 44 49  |..".NUMBER OF DI|
000004E0: 53 4B 9E 22 3B 44 24 28  41 29 00 06 21 79 00 8B  |SK.";D$(A)..!y..|
000004F0: 44 24 28 41 29 B2 22 22  A7 44 24 28 41 29 B2 44  |D$(A)."".D$(A).D|
00000500: 24 28 41 AB 31 29 00 27  21 7D 00 8B 50 24 28 41  |$(A.1).'!}..P$(A|
00000510: 29 B2 22 45 4E 44 22 AF  44 24 28 41 29 B2 22 45  |)."END".D$(A)."E|
00000520: 4E 44 22 A7 31 36 35 00  31 21 7E 00 41 B2 41 AA  |ND".165.1!~.A.A.|
00000530: 31 00 3A 21 82 00 89 31  31 33 00 42 21 A5 00 89  |1.:!...113.B!...|
00000540: 34 30 00 4C 21 C8 00 99  22 93 05 22 00 64 21 CD  |40.L!..."..".d!.|
00000550: 00 41 B2 30 3A 85 22 46  49 4C 45 20 4E 41 4D 45  |.A.0:."FILE NAME|
00000560: 22 3B 46 24 00 86 21 D2  00 99 22 93 9E 11 11 11  |";F$..!...".....|
00000570: 11 11 11 11 11 11 11 11  11 52 45 41 44 49 4E 47  |.........READING|
00000580: 05 20 22 3B 46 24 00 A0  21 D7 00 9F 38 2C 38 2C  |. ";F$..!...8,8,|
00000590: 38 2C 22 30 3A 22 AA 46  24 AA 22 2C 53 2C 52 22  |8,"0:".F$.",S,R"|
000005A0: 00 AA 21 DC 00 41 B2 41  AA 31 00 B5 21 DD 00 99  |..!..A.A.1..!...|
000005B0: 22 13 22 3B 41 00 C2 21  E1 00 84 38 2C 50 24 28  |".";A..!...8,P$(|
000005C0: 41 29 00 CF 21 E6 00 84  38 2C 44 24 28 41 29 00  |A)..!...8,D$(A).|
000005D0: F0 21 EB 00 8B 50 24 28  41 29 B2 22 45 4E 44 22  |.!...P$(A)."END"|
000005E0: AF 44 24 28 41 29 B2 22  45 4E 44 22 A7 32 34 35  |.D$(A)."END".245|
000005F0: 00 F9 21 F0 00 89 32 32  30 00 00 22 F5 00 A0 38  |..!...220.."...8|
00000600: 00 08 22 FA 00 89 34 30  00 17 22 2C 01 99 22 93  |.."...40..",..".|
00000610: 05 22 3A 51 50 B2 30 00  31 22 2D 01 8B 50 24 28  |.":QP.0.1"-..P$(|
00000620: 31 29 B2 22 22 AF 44 24  28 31 29 B2 22 22 A7 34  |1)."".D$(1)."".4|
00000630: 30 00 46 22 2E 01 85 22  53 54 41 52 54 20 41 54  |0.F"..."START AT|
00000640: 20 23 22 3B 51 50 00 4F  22 31 01 41 B2 51 50 00  | #";QP.O"1.A.QP.|
00000650: 59 22 36 01 41 B2 41 AA  31 00 6F 22 38 01 A1 43  |Y"6.A.A.1.o"8..C|
00000660: 48 24 3A 8B 43 48 24 B2  22 20 22 A7 33 33 30 00  |H$:.CH$." ".330.|
00000670: 90 22 3B 01 8B 50 24 28  41 29 B2 22 45 4E 44 22  |.";..P$(A)."END"|
00000680: AF 44 24 28 41 29 B2 22  45 4E 44 22 A7 33 33 30  |.D$(A)."END".330|
00000690: 00 B1 22 40 01 99 50 24  28 41 29 3B A6 33 30 AB  |.."@..P$(A);.30.|
000006A0: C3 28 50 24 28 41 29 29  29 3B 44 24 28 41 29 3B  |.(P$(A)));D$(A);|
000006B0: 41 00 BA 22 45 01 89 33  31 30 00 DF 22 4A 01 99  |A.."E..310.."J..|
000006C0: 22 11 9F 50 52 45 53 53  20 9E 41 4E 59 9F 20 4B  |"..PRESS .ANY. K|
000006D0: 45 59 20 54 4F 20 43 4F  4E 54 49 4E 55 45 22 00  |EY TO CONTINUE".|
000006E0: F4 22 4F 01 A1 43 48 24  3A 8B 43 48 24 B2 22 22  |."O..CH$:.CH$.""|
000006F0: A7 33 33 35 00 FC 22 54  01 89 34 30 00 28 23 90  |.335.."T..40.(#.|
00000700: 01 99 22 93 05 22 3A 99  22 11 42 59 20 1F 4E 05  |.."..":.".BY .N.|
00000710: 41 4D 45 20 4F 52 20 42  59 20 1F 44 05 49 53 4B  |AME OR BY .D.ISK|
00000720: 20 4E 55 4D 42 45 52 22  00 42 23 91 01 8B 50 24  | NUMBER".B#...P$|
00000730: 28 31 29 B2 22 22 AF 44  24 28 31 29 B2 22 22 A7  |(1)."".D$(1)."".|
00000740: 34 30 00 62 23 95 01 A1  43 48 24 3A 8B 43 48 24  |40.b#...CH$:.CH$|
00000750: B3 B1 22 4E 22 AF 43 48  24 B3 B1 22 44 22 A7 34  |.."N".CH$.."D".4|
00000760: 30 35 00 73 23 9A 01 8B  43 48 24 B2 22 44 22 A7  |05.s#...CH$."D".|
00000770: 34 34 36 00 AE 23 9B 01  99 22 93 11 41 53 20 4D  |446..#..."..AS M|
00000780: 41 4E 59 20 43 48 41 52  41 43 54 45 52 53 20 59  |ANY CHARACTERS Y|
00000790: 4F 55 20 54 59 50 45 20  57 49 4C 4C 20 42 45 20  |OU TYPE WILL BE |
000007A0: 55 53 45 44 49 4E 20 53  45 41 52 43 48 22 00 D8  |USEDIN SEARCH"..|
000007B0: 23 9F 01 41 B2 30 3A 99  22 11 11 05 22 3A 85 22  |#..A.0:."...":."|
000007C0: 53 45 41 52 43 48 20 46  4F 52 9E 20 22 3B 53 46  |SEARCH FOR. ";SF|
000007D0: 24 3A 99 3A 99 22 05 22  00 E5 23 A0 01 4E B2 C3  |$:.:."."..#..N..|
000007E0: 28 53 46 24 29 00 1F 24  A4 01 41 B2 41 AA 31 3A  |(SF$)..$..A.A.1:|
000007F0: 8B C8 28 53 46 24 2C 4E  29 B2 C8 28 50 24 28 41  |..(SF$,N)..(P$(A|
00000800: 29 2C 4E 29 A7 99 50 24  28 41 29 3B A6 33 30 AB  |),N)..P$(A);.30.|
00000810: C3 28 50 24 28 41 29 29  29 3B 44 24 28 41 29 00  |.(P$(A)));D$(A).|
00000820: 40 24 A9 01 8B 50 24 28  41 29 B2 22 45 4E 44 22  |@$...P$(A)."END"|
00000830: AF 44 24 28 41 29 B2 22  45 4E 44 22 A7 34 33 35  |.D$(A)."END".435|
00000840: 00 49 24 AE 01 89 34 32  30 00 6C 24 B3 01 99 22  |.I$...420.l$..."|
00000850: 11 9E 50 52 45 53 53 20  41 4E 59 20 4B 45 59 20  |..PRESS ANY KEY |
00000860: 54 4F 20 43 4F 4E 54 49  4E 55 45 22 00 81 24 B8  |TO CONTINUE"..$.|
00000870: 01 A1 43 48 24 3A 8B 43  48 24 B2 22 22 A7 34 34  |..CH$:.CH$."".44|
00000880: 30 00 89 24 BD 01 89 34  30 00 B4 24 BE 01 99 22  |0..$...40..$..."|
00000890: 93 05 11 53 45 41 52 43  48 20 46 4F 52 20 33 20  |...SEARCH FOR 3 |
000008A0: 44 49 47 49 54 20 4E 55  4D 42 45 52 20 20 28 30  |DIGIT NUMBER  (0|
000008B0: 30 30 29 22 00 DC 24 C2  01 41 B2 30 3A 85 22 11  |00)"..$..A.0:.".|
000008C0: 11 05 53 45 41 52 43 48  20 46 4F 52 20 23 9E 20  |..SEARCH FOR #. |
000008D0: 22 3B 53 46 24 3A 99 3A  99 22 05 22 00 0C 25 C7  |";SF$:.:."."..%.|
000008E0: 01 41 B2 41 AA 31 3A 8B  53 46 24 B2 44 24 28 41  |.A.A.1:.SF$.D$(A|
000008F0: 29 A7 99 50 24 28 41 29  3B A6 33 30 AB C3 28 50  |)..P$(A);.30..(P|
00000900: 24 28 41 29 29 29 3B 44  24 28 41 29 00 2D 25 CC  |$(A)));D$(A).-%.|
00000910: 01 8B 50 24 28 41 29 B2  22 45 4E 44 22 AF 44 24  |..P$(A)."END".D$|
00000920: 28 41 29 B2 22 45 4E 44  22 A7 34 37 30 00 36 25  |(A)."END".470.6%|
00000930: D1 01 89 34 35 35 00 3F  25 D6 01 89 34 33 35 00  |...455.?%...435.|
00000940: 5D 25 F4 01 99 22 93 11  11 05 1F 31 05 20 4F 52  |]%...".....1. OR|
00000950: 20 1F 32 05 20 43 4F 4C  55 4D 4E 53 22 00 77 25  | .2. COLUMNS".w%|
00000960: F5 01 8B 50 24 28 31 29  B2 22 22 AF 44 24 28 31  |...P$(1)."".D$(1|
00000970: 29 B2 22 22 A7 34 30 00  97 25 F9 01 A1 43 48 24  |)."".40..%...CH$|
00000980: 3A 8B 43 48 24 B3 B1 22  31 22 AF 43 48 24 B3 B1  |:.CH$.."1".CH$..|
00000990: 22 32 22 A7 35 30 35 00  A8 25 FE 01 8B 43 48 24  |"2".505..%...CH$|
000009A0: B2 22 32 22 A7 35 35 30  00 B5 25 03 02 41 B2 30  |."2".550..%..A.0|
000009B0: 3A 9F 31 2C 34 00 BF 25  08 02 41 B2 41 AA 31 00  |:.1,4..%..A.A.1.|
000009C0: E0 25 0D 02 8B 50 24 28  41 29 B2 22 45 4E 44 22  |.%...P$(A)."END"|
000009D0: AF 44 24 28 41 29 B2 22  45 4E 44 22 A7 35 34 30  |.D$(A)."END".540|
000009E0: 00 EE 25 12 02 98 31 2C  50 24 28 41 29 3B 00 09  |..%...1,P$(A);..|
000009F0: 26 13 02 98 31 2C A6 32  34 AB C3 28 50 24 28 41  |&...1,.24..(P$(A|
00000A00: 29 29 29 3B 44 24 28 41  29 00 12 26 17 02 89 35  |)));D$(A)..&...5|
00000A10: 32 30 00 20 26 1C 02 98  31 3A A0 31 3A 89 34 30  |20. &...1:.1:.40|
00000A20: 00 2D 26 26 02 41 B2 30  3A 9F 31 2C 34 00 37 26  |.-&&.A.0:.1,4.7&|
00000A30: 29 02 41 B2 41 AA 31 00  40 26 2A 02 89 35 36 30  |).A.A.1.@&*..560|
00000A40: 00 4A 26 2B 02 41 B2 41  AA 32 00 6B 26 30 02 8B  |.J&+.A.A.2.k&0..|
00000A50: 50 24 28 41 29 B2 22 45  4E 44 22 AF 44 24 28 41  |P$(A)."END".D$(A|
00000A60: 29 B2 22 45 4E 44 22 A7  35 34 30 00 8D 26 35 02  |)."END".540..&5.|
00000A70: 98 31 2C 50 24 28 41 29  3B A6 32 35 AB C3 28 50  |.1,P$(A);.25..(P|
00000A80: 24 28 41 29 29 29 3B 44  24 28 41 29 3B 00 B2 26  |$(A)));D$(A);..&|
00000A90: 3A 02 8B 50 24 28 41 AA  31 29 B2 22 45 4E 44 22  |:..P$(A.1)."END"|
00000AA0: AF 44 24 28 41 AA 31 29  B2 22 45 4E 44 22 A7 35  |.D$(A.1)."END".5|
00000AB0: 34 30 00 DE 26 3F 02 98  31 2C A6 31 30 29 3B 50  |40..&?..1,.10);P|
00000AC0: 24 28 41 AA 31 29 3B A6  32 35 AB C3 28 50 24 28  |$(A.1);.25..(P$(|
00000AD0: 41 AA 31 29 29 29 3B 44  24 28 41 AA 31 29 00 E7  |A.1)));D$(A.1)..|
00000AE0: 26 44 02 89 35 35 35 00  F5 26 58 02 8F 2D 2D 44  |&D..555..&X..--D|
00000AF0: 45 4C 45 54 45 00 0F 27  59 02 8B 50 24 28 31 29  |ELETE..'Y..P$(1)|
00000B00: B2 22 22 AF 44 24 28 31  29 B2 22 22 A7 34 30 00  |."".D$(1)."".40.|
00000B10: 35 27 5A 02 99 22 93 11  11 05 42 59 20 1F 4E 05  |5'Z.."....BY .N.|
00000B20: 41 4D 45 20 4F 52 20 1F  44 05 49 53 4B 20 4E 55  |AME OR .D.ISK NU|
00000B30: 4D 42 45 52 22 00 55 27  5B 02 A1 43 48 24 3A 8B  |MBER".U'[..CH$:.|
00000B40: 43 48 24 B3 B1 22 4E 22  AF 43 48 24 B3 B1 22 44  |CH$.."N".CH$.."D|
00000B50: 22 A7 36 30 33 00 66 27  5C 02 8B 43 48 24 B2 22  |".603.f'\..CH$."|
00000B60: 44 22 A7 36 35 30 00 89  27 67 02 41 B2 30 3A 85  |D".650..'g.A.0:.|
00000B70: 22 93 11 05 4E 41 4D 45  20 4F 46 20 50 52 4F 47  |"...NAME OF PROG|
00000B80: 52 41 4D 9E 22 3B 4E 50  24 00 A5 27 68 02 85 22  |RAM.";NP$..'h.."|
00000B90: 05 4E 55 4D 42 45 52 20  4F 46 20 44 49 53 4B 9E  |.NUMBER OF DISK.|
00000BA0: 22 3B 4E 44 24 00 CB 27  6C 02 41 B2 41 AA 31 3A  |";ND$..'l.A.A.1:|
00000BB0: 8B 50 24 28 41 29 B2 22  45 4E 44 22 AF 44 24 28  |.P$(A)."END".D$(|
00000BC0: 41 29 B2 22 45 4E 44 22  A7 34 30 00 E8 27 6D 02  |A)."END".40..'m.|
00000BD0: 8B 4E 50 24 B2 50 24 28  41 29 AF 4E 44 24 B2 44  |.NP$.P$(A).ND$.D|
00000BE0: 24 28 41 29 A7 36 33 30  00 F1 27 71 02 89 36 32  |$(A).630..'q..62|
00000BF0: 30 00 11 28 76 02 50 24  28 41 29 B2 50 24 28 41  |0..(v.P$(A).P$(A|
00000C00: AA 31 29 3A 44 24 28 41  29 B2 44 24 28 41 AA 31  |.1):D$(A).D$(A.1|
00000C10: 29 00 31 28 7B 02 8B 50  24 28 41 29 B2 22 45 4E  |).1({..P$(A)."EN|
00000C20: 44 22 AF 44 24 28 41 29  B2 22 45 4E 44 22 A7 34  |D".D$(A)."END".4|
00000C30: 30 00 40 28 80 02 41 B2  41 AA 31 3A 89 36 33 30  |0.@(..A.A.1:.630|
00000C40: 00 63 28 8A 02 42 B2 30  3A 85 22 93 11 11 05 4E  |.c(..B.0:."....N|
00000C50: 55 4D 42 45 52 20 4F 46  20 44 49 53 4B 9E 22 3B  |UMBER OF DISK.";|
00000C60: 4E 44 24 00 6C 28 8B 02  89 36 35 35 00 76 28 8E  |ND$.l(...655.v(.|
00000C70: 02 42 B2 42 AB 31 00 80  28 8F 02 42 B2 42 AA 31  |.B.B.1..(..B.B.1|
00000C80: 00 93 28 94 02 8B 4E 44  24 B2 44 24 28 42 29 A7  |..(...ND$.D$(B).|
00000C90: 36 37 30 00 B3 28 95 02  8B 50 24 28 42 29 B2 22  |670..(...P$(B)."|
00000CA0: 45 4E 44 22 AF 44 24 28  42 29 B2 22 45 4E 44 22  |END".D$(B)."END"|
00000CB0: A7 34 30 00 BC 28 99 02  89 36 35 35 00 CA 28 9E  |.40..(...655..(.|
00000CC0: 02 4C B2 42 3A 41 B2 41  AB 31 00 EA 28 A3 02 50  |.L.B:A.A.1..(..P|
00000CD0: 24 28 4C 29 B2 50 24 28  4C AA 31 29 3A 44 24 28  |$(L).P$(L.1):D$(|
00000CE0: 4C 29 B2 44 24 28 4C AA  31 29 00 0B 29 A8 02 8B  |L).D$(L.1)..)...|
00000CF0: 50 24 28 4C 29 B2 22 45  4E 44 22 AF 44 24 28 4C  |P$(L)."END".D$(L|
00000D00: 29 B2 22 45 4E 44 22 A7  36 35 34 00 1A 29 AD 02  |)."END".654..)..|
00000D10: 4C B2 4C AA 31 3A 89 36  37 35 00 57 29 BC 02 99  |L.L.1:.675.W)...|
00000D20: 22 93 9F 11 54 48 49 53  20 57 49 4C 4C 20 4E 4F  |"...THIS WILL NO|
00000D30: 54 20 42 45 20 53 41 56  45 44 2C 20 53 41 56 45  |T BE SAVED, SAVE|
00000D40: 20 49 54 20 57 48 45 4E  20 20 20 20 46 49 4E 49  | IT WHEN    FINI|
00000D50: 53 48 45 44 11 11 22 00  64 29 C6 02 8B 41 B2 30  |SHED..".d)...A.0|
00000D60: A7 41 B2 31 00 97 29 DE  02 99 22 11 11 05 54 4F  |.A.1..)..."...TO|
00000D70: 20 1F 45 4E 44 05 2C 20  54 59 50 45 20 1F 45 4E  | .END., TYPE .EN|
00000D80: 44 05 20 41 54 20 42 4F  54 48 20 51 55 45 53 54  |D. AT BOTH QUEST|
00000D90: 49 4F 4E 53 11 11 22 00  A8 29 DF 02 99 3A 99 22  |IONS.."..)...:."|
00000DA0: 2D 2D 22 41 22 2D 2D 22  00 C9 29 E4 02 99 22 05  |--"A"--"..)...".|
00000DB0: 4E 41 4D 45 20 4F 46 20  50 52 4F 47 52 41 4D 9E  |NAME OF PROGRAM.|
00000DC0: 22 3B 3A 85 50 24 28 41  29 00 E9 29 E9 02 99 22  |";:.P$(A)..)..."|
00000DD0: 05 4E 55 4D 42 45 52 20  4F 46 20 44 49 53 4B 9E  |.NUMBER OF DISK.|
00000DE0: 22 3B 3A 85 44 24 28 41  29 00 05 2A EA 02 8B 44  |";:.D$(A)..*...D|
00000DF0: 24 28 41 29 B2 22 22 A7  44 24 28 41 29 B2 44 24  |$(A)."".D$(A).D$|
00000E00: 28 41 AB 31 29 00 25 2A  EE 02 8B 50 24 28 41 29  |(A.1).%*...P$(A)|
00000E10: B2 22 45 4E 44 22 AF 44  24 28 41 29 B2 22 45 4E  |."END".D$(A)."EN|
00000E20: 44 22 A7 34 30 00 2F 2A  EF 02 41 B2 41 AA 31 00  |D".40./*..A.A.1.|
00000E30: 38 2A F3 02 89 37 33 35  00 44 2A 84 03 99 22 93  |8*...735.D*...".|
00000E40: 9F 11 11 22 00 5E 2A 85  03 8B 50 24 28 31 29 B2  |...".^*...P$(1).|
00000E50: 22 22 AF 44 24 28 31 29  B2 22 22 A7 34 30 00 72  |"".D$(1)."".40.r|
00000E60: 2A 89 03 85 22 46 49 4C  45 20 4E 41 4D 45 22 3B  |*..."FILE NAME";|
00000E70: 46 24 00 90 2A 8E 03 41  B2 30 3A 9F 38 2C 38 2C  |F$..*..A.0:.8,8,|
00000E80: 38 2C 22 30 3A 22 AA 46  24 AA 22 2C 53 2C 57 22  |8,"0:".F$.",S,W"|
00000E90: 00 9A 2A 93 03 41 B2 41  AA 31 00 A5 2A 94 03 99  |..*..A.A.1..*...|
00000EA0: 22 13 22 3B 41 00 BB 2A  98 03 98 38 2C 50 24 28  |".";A..*...8,P$(|
00000EB0: 41 29 3A 98 38 2C 44 24  28 41 29 00 DC 2A 9D 03  |A):.8,D$(A)..*..|
00000EC0: 8B 50 24 28 41 29 B2 22  45 4E 44 22 AF 44 24 28  |.P$(A)."END".D$(|
00000ED0: 41 29 B2 22 45 4E 44 22  A7 39 33 35 00 E5 2A A2  |A)."END".935..*.|
00000EE0: 03 89 39 31 35 00 EF 2A  A7 03 98 38 3A A0 38 00  |..915..*...8:.8.|
00000EF0: F7 2A AC 03 89 34 30 00  28 2B E8 03 99 22 93 11  |.*...40.(+..."..|
00000F00: 05 41 52 45 20 59 4F 55  20 53 55 52 45 20 59 4F  |.ARE YOU SURE YO|
00000F10: 55 20 57 41 4E 54 20 54  4F 20 53 43 52 41 54 43  |U WANT TO SCRATC|
00000F20: 48 20 28 59 2F 4E 29 22  00 49 2B E9 03 A1 43 48  |H (Y/N)".I+...CH|
00000F30: 24 3A 8B 43 48 24 B3 B1  22 59 22 AF 43 48 24 B3  |$:.CH$.."Y".CH$.|
00000F40: B1 22 4E 22 A7 31 30 30  31 00 59 2B EA 03 8B 43  |."N".1001.Y+...C|
00000F50: 48 24 B2 22 4E 22 A7 34  30 00 7C 2B ED 03 85 22  |H$."N".40.|+..."|
00000F60: 93 9F 11 46 49 4C 45 20  54 4F 20 42 45 20 53 43  |...FILE TO BE SC|
00000F70: 52 41 54 43 48 45 44 22  3B 46 53 24 00 87 2B F2  |RATCHED";FS$..+.|
00000F80: 03 F2 28 46 53 24 29 00  8F 2B FC 03 89 34 30 00  |..(FS$)..+...40.|
00000F90: A2 2B 1A 04 8F 2D 2D 46  4F 52 4D 41 54 20 44 49  |.+...--FORMAT DI|
00000FA0: 53 4B 00 AE 2B 1F 04 99  22 93 11 11 05 22 00 DC  |SK..+..."...."..|
00000FB0: 2B 20 04 85 22 93 11 11  11 53 55 52 45 20 59 4F  |+ .."....SURE YO|
00000FC0: 55 20 57 41 4E 54 20 54  4F 20 46 4F 52 4D 41 54  |U WANT TO FORMAT|
00000FD0: 20 41 20 44 49 53 4B 22  3B 43 48 24 00 EC 2B 21  | A DISK";CH$..+!|
00000FE0: 04 8B 43 48 24 B2 22 4E  22 A7 34 30 00 04 2C 24  |..CH$."N".40..,$|
00000FF0: 04 85 22 4E 41 4D 45 20  4F 46 20 44 49 53 4B 22  |.."NAME OF DISK"|
00001000: 3B 4E 44 24 00 11 2C 29  04 49 44 24 B2 22 4B 4D  |;ND$..,).ID$."KM|
00001010: 22 00 20 2C 2E 04 F1 28  4E 44 24 29 2C 49 4B 4D  |". ,...(ND$),IKM|
00001020: 00 28 2C 38 04 89 34 30  00 42 2C 3D 04 8F 2D 2D  |.(,8..40.B,=..--|
00001030: 2D 4C 49 53 54 20 44 49  52 45 43 54 4F 52 59 2D  |-LIST DIRECTORY-|
00001040: 2D 2D 00 4C 2C 42 04 89  31 34 30 30 00 85 2C 43  |--.L,B..1400..,C|
00001050: 04 99 22 93 05 11 11 44  4F 20 59 4F 55 20 57 41  |.."....DO YOU WA|
00001060: 4E 54 20 54 4F 20 50 52  49 4E 54 20 54 48 45 20  |NT TO PRINT THE |
00001070: 44 49 52 45 43 54 4F 52  59 20 28 59 2F 4E 29 22  |DIRECTORY (Y/N)"|
00001080: 3A 50 52 B2 30 00 A6 2C  44 04 A1 43 48 24 3A 8B  |:PR.0..,D..CH$:.|
00001090: 43 48 24 B3 B1 22 59 22  AF 43 48 24 B3 B1 22 4E  |CH$.."Y".CH$.."N|
000010A0: 22 A7 31 30 39 32 00 BD  2C 45 04 8B 43 48 24 B2  |".1092..,E..CH$.|
000010B0: 22 59 22 A7 50 52 B2 31  3A 9F 31 2C 34 00 D5 2C  |"Y".PR.1:.1,4..,|
000010C0: 4C 04 8F 2D 2D 4C 49 53  54 20 44 49 52 45 43 54  |L..--LIST DIRECT|
000010D0: 4F 52 59 2D 2D 00 E2 2C  51 04 9F 31 35 2C 38 2C  |ORY--..,Q..15,8,|
000010E0: 31 35 00 F2 2C 56 04 9F  32 2C 38 2C 32 2C 22 23  |15..,V..2,8,2,"#|
000010F0: 32 22 00 04 2D 5B 04 54  B2 31 38 3A 53 B2 31 3A  |2"..-[.T.18:S.1:|
00001100: 99 22 93 22 00 1A 2D 60  04 98 31 35 2C 22 55 31  |."."..-`..15,"U1|
00001110: 3A 22 3B 32 3B 38 3B 54  3B 53 00 32 2D 65 04 84  |:";2;8;T;S.2-e..|
00001120: 31 35 2C 45 31 24 2C 45  32 24 2C 45 33 24 2C 45  |15,E1$,E2$,E3$,E|
00001130: 34 24 00 47 2D 6A 04 8B  45 31 24 B3 B1 22 30 30  |4$.G-j..E1$.."00|
00001140: 22 A7 8D 31 37 35 30 00  5A 2D 6F 04 98 31 35 2C  |"..1750.Z-o..15,|
00001150: 22 42 2D 50 3A 22 3B 32  3B 30 00 6C 2D 74 04 A1  |"B-P:";2;0.l-t..|
00001160: 23 32 2C 54 24 3A A1 23  32 2C 53 24 00 7C 2D 79  |#2,T$:.#2,S$.|-y|
00001170: 04 81 49 B2 32 A4 32 32  36 A9 33 32 00 8F 2D 7E  |..I.2.226.32..-~|
00001180: 04 98 31 35 2C 22 42 2D  50 3A 22 3B 32 3B 49 00  |..15,"B-P:";2;I.|
00001190: A7 2D 83 04 A1 23 32 2C  41 24 3A 8B 41 24 B2 22  |.-...#2,A$:.A$."|
000011A0: 22 A7 99 22 12 22 3B 00  B9 2D 88 04 A1 23 32 2C  |"..".";..-...#2,|
000011B0: 41 24 3A A1 23 32 2C 41  24 00 C4 2D 8D 04 99 22  |A$:.#2,A$..-..."|
000011C0: 1D 1D 22 3B 00 D0 2D 92  04 81 4A B2 31 A4 31 36  |..";..-...J.1.16|
000011D0: 00 E4 2D 97 04 A1 23 32  2C 41 24 3A 99 22 05 22  |..-...#2,A$:."."|
000011E0: 3B 41 24 3B 00 F7 2D 98  04 8B 50 52 B2 31 A7 4B  |;A$;..-...PR.1.K|
000011F0: 24 28 4A 29 B2 41 24 00  FD 2D 9C 04 82 00 0D 2E  |$(J).A$..-......|
00001200: 9D 04 8B 50 52 B2 31 A7  8D 31 33 32 30 00 1D 2E  |...PR.1..1320...|
00001210: A1 04 8B 41 24 B3 B1 22  22 A7 99 3A 99 00 31 2E  |...A$..""..:..1.|
00001220: A6 04 A1 4B 24 3A 8B 4B  24 B2 22 22 A7 31 32 31  |...K$:.K$."".121|
00001230: 30 00 42 2E AB 04 8B 4B  24 B2 22 45 22 A7 31 32  |0.B....K$."E".12|
00001240: 32 35 00 56 2E B0 04 A1  4B 24 3A 8B 4B 24 B2 22  |25.V....K$:.K$."|
00001250: 22 A7 31 32 32 35 00 66  2E B5 04 8B 4B 24 B2 22  |".1225.f....K$."|
00001260: 22 A7 31 32 32 35 00 6C  2E BA 04 82 00 8A 2E BF  |".1225.l........|
00001270: 04 54 B2 C6 28 54 24 AA  C7 28 30 29 29 3A 53 B2  |.T..(T$..(0)):S.|
00001280: C6 28 53 24 AA C7 28 30  29 29 00 9D 2E C4 04 8B  |.(S$..(0))......|
00001290: 54 B1 30 AF 54 B3 33 36  A7 31 31 32 30 00 CB 2E  |T.0.T.36.1120...|
000012A0: C9 04 99 3A 99 22 9E 50  52 45 53 53 20 41 4E 59  |...:.".PRESS ANY|
000012B0: 20 4B 45 59 20 54 4F 22  3A 99 22 52 45 54 55 52  | KEY TO":."RETUR|
000012C0: 4E 20 54 4F 20 4D 45 4E  55 05 22 00 DF 2E CE 04  |N TO MENU.".....|
000012D0: A1 4B 24 3A 8B 4B 24 B2  22 22 A7 31 32 33 30 00  |.K$:.K$."".1230.|
000012E0: ED 2E D3 04 A0 32 3A A0  31 35 3A A0 31 00 F5 2E  |.....2:.15:.1...|
000012F0: D8 04 89 34 30 00 01 2F  28 05 81 4A B2 31 A4 31  |...40../(..J.1.1|
00001300: 36 00 0F 2F 2D 05 98 31  2C 4B 24 28 4A 29 3B 00  |6../-..1,K$(J);.|
00001310: 15 2F 32 05 82 00 20 2F  37 05 98 31 2C 22 20 22  |./2... /7..1," "|
00001320: 00 26 2F 3C 05 8E 00 3C  2F 45 05 8F 2D 2D 43 4C  |.&/<...</E..--CL|
00001330: 45 41 52 20 4D 45 4D 4F  52 59 2D 2D 00 58 2F 46  |EAR MEMORY--.X/F|
00001340: 05 99 22 93 9F 11 11 41  52 45 20 59 4F 55 20 53  |.."....ARE YOU S|
00001350: 55 52 45 20 9E 3F 05 22  00 79 2F 4B 05 A1 43 48  |URE .?.".y/K..CH|
00001360: 24 3A 8B 43 48 24 B3 B1  22 59 22 AF 43 48 24 B3  |$:.CH$.."Y".CH$.|
00001370: B1 22 4E 22 A7 31 33 35  35 00 8A 2F 50 05 8B 43  |."N".1355../P..C|
00001380: 48 24 B2 22 4E 22 A7 89  34 30 00 A8 2F 5A 05 99  |H$."N"..40../Z..|
00001390: 22 93 05 11 11 43 4C 45  41 52 49 4E 47 20 41 52  |"....CLEARING AR|
000013A0: 52 41 59 53 2E 2E 2E 22  00 C7 2F 64 05 81 41 B2  |RAYS..."../d..A.|
000013B0: 31 A4 45 3A 50 24 28 41  29 B2 22 22 3A 44 24 28  |1.E:P$(A)."":D$(|
000013C0: 41 29 B2 22 22 3A 82 00  CF 2F 6E 05 89 31 30 00  |A)."":.../n..10.|
000013D0: FD 2F 78 05 99 22 93 11  11 11 11 44 4F 20 59 4F  |./x..".....DO YO|
000013E0: 55 20 57 41 4E 54 20 53  43 52 41 54 43 48 45 44  |U WANT SCRATCHED|
000013F0: 20 46 49 4C 45 53 20 28  59 2F 4E 29 22 00 13 30  | FILES (Y/N)"..0|
00001400: 82 05 A1 43 48 24 3A 8B  43 48 24 B2 22 22 A7 31  |...CH$:.CH$."".1|
00001410: 34 31 30 00 25 30 87 05  8B 43 48 24 B2 22 59 22  |410.%0...CH$."Y"|
00001420: A7 31 30 39 31 00 31 30  8C 05 99 22 93 22 3A FE  |.1091.10...".":.|
00001430: 0C 00 53 30 91 05 99 22  11 50 52 45 53 53 20 41  |..S0...".PRESS A|
00001440: 4E 59 20 4B 45 59 20 54  4F 20 43 4F 4E 54 49 4E  |NY KEY TO CONTIN|
00001450: 55 45 22 00 69 30 96 05  A1 43 48 24 3A 8B 43 48  |UE".i0...CH$:.CH|
00001460: 24 B2 22 22 A7 31 34 33  30 00 71 30 A0 05 89 34  |$."".1430.q0...4|
00001470: 30 00 00 00 C7 28 30                              |0....(0         |

..)....---------------------------------
-.Q....--IN DISK # USE THREE DIGITS ONLY
-.Y....--           EX.                 
-......-RAID OVER MOSCOW           017  
-.I....-SOCCER                     004  
-......-PINBALL                    123  
-......---------------------------------
-.7....:."..":.53280,2:.53281,0.T...."..
.HOW MANY ENTRIES";E.}....P$(E.2),D$(E.2
),PR$(55),K$(16),B(E)...(.."............
.....MAIN MENU"...)...13);".........."..
.2.."............1-WRITE FILE....."...4.
."..........2-READ FILE......".!.6.."...
.......3-VIEW FILE......".D.8.."........
..4-SEARCH.........".G.:.."..........5-P
RINT FILE....."...<.."..........6-DELETE
 ENTRY..."...=.."..........7-WRITE FILE.
....".P.>.."..........8-CLEAR MEMORY..."
...?.."..........9-SAVE FILE......"...@.
."..........S-SCRATCH FILE...".9.A.."...
.......F-FORMAT DISK....".\.B.."........
..D-DIRECTORY......".P.P..CH$:.CH$."".80
...Q..CH$."1".100...R..CH$."2".200...S..
CH$."3".300...T..CH$."4".400.E.U..CH$."5
".500.V.V..CH$."6".600...W..CH$."7".700.
..X..CH$."8".1350.. Y..CH$."9".900.. Z..
CH$."S".1000.. [..CH$."F".1050.@ \..CH$.
"D".1090.H C..80.. D.."....TO .END. FILE
, ANSWER .END. TO BOTH         QUESTIONS
".. J.... N..A.0.A.1.. Q..:."--"A"--".L 
S..".NAME OF PROGRAM.";P$(A).. X..".NUMB
ER OF DISK.";D$(A)..!Y..D$(A)."".D$(A).D
$(A.1).'!}..P$(A)."END".D$(A)."END".165.
1!~.A.A.1.:!...113.B!...40.L!H.."..".D!M
.A.0:."FILE NAME";F$..!R..".............
.READING. ";F$. !W..8,8,8,"0:".F$.",S,R"
..!..A.A.1..!...".";A.B!...8,P$(A).O!...
8,D$(A)..!...P$(A)."END".D$(A)."END".245
..!...220..".. 8.."...40..",.."..":QP.0.
1"-..P$(1)."".D$(1)."".40.F"..."START AT
 #";QP.O"1.A.QP.Y"6.A.A.1.O"8..CH$:.CH$.
" ".330..";..P$(A)."END".D$(A)."END".330
.."@..P$(A);.30.C(P$(A)));D$(A);A.."E..3
10.."J.."..PRESS .ANY. KEY TO CONTINUE".
."O..CH$:.CH$."".335.."T..40.(#..."..":.
".BY .N.AME OR BY .D.ISK NUMBER".B#...P$
(1)."".D$(1)."".40.B#...CH$:.CH$.."N".CH
$.."D".405.S#...CH$."D".446..#..."..AS M
ANY CHARACTERS YOU TYPE WILL BE USEDIN S
EARCH".X#..A.0:."...":."SEARCH FOR. ";SF
$:.:."."..# .N.C(SF$)..$..A.A.1:.H(SF$,N
).H(P$(A),N)..P$(A);.30.C(P$(A)));D$(A).
@$...P$(A)."END".D$(A)."END".435.I$...42
0.L$..."..PRESS ANY KEY TO CONTINUE"..$.
..CH$:.CH$."".440..$...40..$..."...SEARC
H FOR 3 DIGIT NUMBER  (000)"..$B.A.0:.".
..SEARCH FOR #. ";SF$:.:."."..%G.A.A.1:.
SF$.D$(A)..P$(A);.30.C(P$(A)));D$(A).-%L
..P$(A)."END".D$(A)."END".470.6%Q..455.?
%V..435.]%...".....1. OR .2. COLUMNS".W%
...P$(1)."".D$(1)."".40..%...CH$:.CH$.."
1".CH$.."2".505..%...CH$."2".550..%..A.0
:.1,4..%..A.A.1..%...P$(A)."END".D$(A)."
END".540..%...1,P$(A);..&...1,.24.C(P$(A
)));D$(A)..&...520. &...1: 1:.40.-&&.A.0
:.1,4.7&).A.A.1.@&*..560.J&+.A.A.2.K&0..
P$(A)."END".D$(A)."END".540..&5..1,P$(A)
;.25.C(P$(A)));D$(A);..&:..P$(A.1)."END"
.D$(A.1)."END".540..&?..1,.10);P$(A.1);.
25.C(P$(A.1)));D$(A.1)..&D..555..&X..--D
ELETE..'Y..P$(1)."".D$(1)."".40.5'Z.."..
..BY .N.AME OR .D.ISK NUMBER".U'[..CH$:.
CH$.."N".CH$.."D".603.F'\..CH$."D".650..
'G.A.0:."...NAME OF PROGRAM.";NP$..'H.."
.NUMBER OF DISK.";ND$.K'L.A.A.1:.P$(A)."
END".D$(A)."END".40..'M..NP$.P$(A).ND$.D
$(A).630..'Q..620..(V.P$(A).P$(A.1):D$(A
).D$(A.1).1({..P$(A)."END".D$(A)."END".4
0.@(..A.A.1:.630.C(..B.0:."....NUMBER OF
 DISK.";ND$.L(...655.V(..B.B.1..(..B.B.1
..(...ND$.D$(B).670..(...P$(B)."END".D$(
B)."END".40..(...655.J(..L.B:A.A.1..(..P
$(L).P$(L.1):D$(L).D$(L.1)..)...P$(L)."E
ND".D$(L)."END".654..)..L.L.1:.675.W)...
"...THIS WILL NOT BE SAVED, SAVE IT WHEN
    FINISHED..".D)F..A.0.A.1..)..."...TO
 .END., TYPE .END. AT BOTH QUESTIONS..".
.)...:."--"A"--".I)...".NAME OF PROGRAM.
";:.P$(A)..)...".NUMBER OF DISK.";:.D$(A
)..*...D$(A)."".D$(A).D$(A.1).%*...P$(A)
."END".D$(A)."END".40./*..A.A.1.8*...735
.D*..."....".^*...P$(1)."".D$(1)."".40.R
*..."FILE NAME";F$..*..A.0:.8,8,8,"0:".F
$.",S,W"..*..A.A.1..*...".";A..*...8,P$(
A):.8,D$(A)..*...P$(A)."END".D$(A)."END"
.935..*...915..*...8: 8..*...40.(+..."..
.ARE YOU SURE YOU WANT TO SCRATCH (Y/N)"
.I+...CH$:.CH$.."Y".CH$.."N".1001.Y+...C
H$."N".40.|+..."...FILE TO BE SCRATCHED"
;FS$..+...(FS$)..+...40..+...--FORMAT DI
SK..+..."...."..+ .."....SURE YOU WANT T
O FORMAT A DISK";CH$..+!..CH$."N".40..,$
.."NAME OF DISK";ND$..,).ID$."KM". ,...(
ND$),IKM.(,8..40.B,=..---LIST DIRECTORY-
--.L,B..1400..,C.."....DO YOU WANT TO PR
INT THE DIRECTORY (Y/N)":PR.0..,D..CH$:.
CH$.."Y".CH$.."N".1092..,E..CH$."Y".PR.1
:.1,4.U,L..--LIST DIRECTORY--..,Q..15,8,
15..,V..2,8,2,"#2"..-[.T.18:S.1:."."..-`
..15,"U1:";2;8;T;S.2-E..15,E1$,E2$,E3$,E
4$.G-J..E1$.."00"..1750.Z-O..15,"B-P:";2
;0.L-T..#2,T$:.#2,S$.|-Y..I.2.226.32..-~
..15,"B-P:";2;I..-...#2,A$:.A$.""..".";.
.-...#2,A$:.#2,A$.D-..."..";.P-...J.1.16
..-...#2,A$:.".";A$;..-...PR.1.K$(J).A$.
.-.........PR.1..1320......A$..""..:..1.
...K$:.K$."".1210.B....K$."E".1225.V....
K$:.K$."".1225.F....K$."".1225.L........
.T.F(T$.G(0)):S.F(S$.G(0))...D..T.0.T.36
.1120.K.I..:.".PRESS ANY KEY TO":."RETUR
N TO MENU."...N..K$:.K$."".1230...S. 2: 
15: 1...X..40../(..J.1.16../-..1,K$(J);.
./2... /7..1," ".&/<...</E..--CLEAR MEMO
RY--.X/F.."....ARE YOU SURE .?.".Y/K..CH
$:.CH$.."Y".CH$.."N".1355../P..CH$."N"..
40../Z.."....CLEARING ARRAYS...".G/D..A.
1.E:P$(A)."":D$(A)."":..O/N..10../X.."..
...DO YOU WANT SCRATCHED FILES (Y/N)"..0
...CH$:.CH$."".1410.%0...CH$."Y".1091.10
...".":...S0...".PRESS ANY KEY TO CONTIN
UE".I0...CH$:.CH$."".1430.Q0 ..40...G(0

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL