FILE/MASTER
FILE INFORMATION
FILENAME(S): FILE/MASTER
FILE TYPE(S): PRG
FILE SIZE: 11.7K
FIRST SEEN: 2025-11-30 17:31:34
APPEARS ON: 4 disk(s)
FILE HASH
d24be9064bf6372254d58999e3e86ffc82539a91d2c17f205726530c29524dc5
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TERRY TO BOB | FILE/MASTER | PRG | UK CD | 21 | 8 | DOWNLOAD FILE |
| CCS64 4 KOPIA | FILE/MASTER | PRG | hedning, Mattias H00r | 21 | 3 | DOWNLOAD FILE |
| CCS 64 4 | FILE/MASTER | PRG | hedning, Mattias H00r | 21 | 3 | DOWNLOAD FILE |
| C64 4 | FILE/MASTER | PRG | hedning, Mattias H00r | 21 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 01 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 39 08 |*************.9.|
00000020: 02 00 8F 20 50 4F 4E 5A 4F 2F 57 41 54 45 52 4C |... PONZO/WATERL|
00000030: 4F 4F 2F 4D 41 52 2F 38 34 00 55 08 03 00 8F 20 |OO/MAR/84.U.... |
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000050: 2A 2A 2A 2A 2A 00 5B 08 04 00 3A 00 77 08 05 00 |*****.[...:.w...|
00000060: 8F 20 46 49 4C 45 2F 4D 41 53 54 45 52 2E 2E 2E |. FILE/MASTER...|
00000070: 46 4F 52 20 43 36 34 00 7D 08 06 00 3A 00 98 08 |FOR C64.}...:...|
00000080: 0A 00 97 35 36 2C 37 AC 31 36 AA 31 32 3A 97 35 |...56,7.16.12:.5|
00000090: 35 2C 38 AC 31 36 3A 9C 00 D0 08 0B 00 99 C7 28 |5,8.16:........(|
000000A0: 31 34 29 3A 43 31 B2 31 35 3A 43 32 B2 31 32 3A |14):C1.15:C2.12:|
000000B0: 43 33 B2 30 3A 97 35 33 32 38 31 2C 43 31 3A 97 |C3.0:.53281,C1:.|
000000C0: 35 33 32 38 30 2C 43 32 3A 97 36 34 36 2C 43 33 |53280,C2:.646,C3|
000000D0: 00 F3 08 0C 00 99 22 93 4D 41 52 43 48 2F 38 34 |......".MARCH/84|
000000E0: 22 3A 81 54 B2 31 A4 35 30 30 3A 82 3A 8D 36 33 |":.T.1.500:.:.63|
000000F0: 30 30 30 00 FE 08 0D 00 8F 20 4D 45 4E 55 00 46 |000...... MENU.F|
00000100: 09 0E 00 57 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...W$.".........|
00000110: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3A 8B 54 46 24 B2 |.........":.TF$.|
00000120: 22 22 A7 54 46 24 B2 22 A0 A0 A0 A0 A0 A0 A0 A0 |"".TF$."........|
00000130: A0 A0 A0 A0 A0 A0 A0 A0 22 3A 4E 4D B2 AB 31 3A |........":NM..1:|
00000140: 4E 43 24 B2 22 22 00 6B 09 0F 00 97 36 34 36 2C |NC$."".k....646,|
00000150: 43 33 3A 99 22 93 20 20 48 49 54 20 12 D3 D0 C1 |C3:.". HIT ....|
00000160: C3 C5 C2 C1 D2 92 20 54 4F 22 3B 00 94 09 10 00 |...... TO";.....|
00000170: 97 36 34 36 2C 43 33 3A 99 22 13 22 57 24 22 4C |.646,C3:."."W$"L|
00000180: 4F 41 44 20 12 D4 C9 D4 CC C5 2D C6 C9 CC C5 22 |OAD ......-...."|
00000190: 3A 99 4C 24 00 B8 09 11 00 4D 24 28 31 29 B2 22 |:.L$.....M$(1)."|
000001A0: D4 59 50 45 11 9D 9D 9D 9D B8 B8 B8 B8 91 20 49 |.YPE.......... I|
000001B0: 4E 20 44 41 54 41 2E 22 00 E2 09 12 00 4D 24 28 |N DATA.".....M$(|
000001C0: 32 29 B2 22 C4 49 53 50 4C 41 59 11 9D 9D 9D 9D |2).".ISPLAY.....|
000001D0: 9D 9D 9D B8 B8 B8 B8 B8 B8 B8 91 20 44 41 54 41 |........... DATA|
000001E0: 2E 22 00 1B 0A 13 00 4D 24 28 33 29 B2 22 D2 45 |.".....M$(3).".E|
000001F0: 43 41 4C 4C 11 9D 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 |CALL............|
00000200: B8 91 20 4F 52 20 D3 41 56 45 11 9D 9D 9D 9D B8 |.. OR .AVE......|
00000210: B8 B8 B8 91 20 44 41 54 41 2E 22 00 50 0A 14 00 |.... DATA.".P...|
00000220: 4D 24 28 34 29 B2 22 D0 45 52 46 4F 52 4D 11 9D |M$(4).".ERFORM..|
00000230: 9D 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 B8 91 20 D5 |.............. .|
00000240: 53 45 52 20 D3 55 42 52 4F 55 54 49 4E 45 2E 22 |SER .UBROUTINE."|
00000250: 00 71 0A 15 00 4D 24 28 35 29 B2 22 D3 4F 52 54 |.q...M$(5).".ORT|
00000260: 11 9D 9D 9D 9D B8 B8 B8 B8 91 20 44 41 54 41 2E |.......... DATA.|
00000270: 22 00 98 0A 16 00 4D 24 28 36 29 B2 22 D3 45 41 |".....M$(6).".EA|
00000280: 52 43 48 11 9D 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 |RCH.............|
00000290: 91 20 44 41 54 41 2E 22 00 E3 0A 17 00 4D 24 28 |. DATA.".....M$(|
000002A0: 37 29 B2 22 C3 52 45 41 54 45 20 4F 52 20 CD 4F |7).".REATE OR .O|
000002B0: 44 49 46 59 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |DIFY............|
000002C0: 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 1D 1D 1D 1D B8 |................|
000002D0: B8 B8 B8 B8 B8 91 20 D4 C9 D4 CC C5 2D C6 C9 CC |...... .....-...|
000002E0: C5 2E 22 00 09 0B 19 00 81 49 B2 31 A4 37 3A 99 |.."......I.1.7:.|
000002F0: 58 24 22 20 12 22 C4 28 49 29 22 92 3A 20 22 4D |X$" .".(I)".: "M|
00000300: 24 28 49 29 22 11 22 3A 82 00 40 0B 22 00 99 4C |$(I)".":..@."..L|
00000310: 24 3A 99 58 24 22 20 1C 12 20 20 20 20 92 20 48 |$:.X$" .. . H|
00000320: 49 54 20 12 22 51 24 22 92 20 54 4F 20 D1 D5 C9 |IT ."Q$". TO ...|
00000330: D4 20 12 20 20 20 20 22 3A 97 36 34 36 2C 43 33 |. . ":.646,C3|
00000340: 00 84 0B 23 00 99 53 44 24 22 91 22 4C 24 53 44 |...#..SD$"."L$SD|
00000350: 24 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |$" |
00000360: 20 20 20 20 20 20 20 20 20 20 20 1D 20 20 1C 12 | . ..|
00000370: 45 92 3D 45 58 50 4C 41 49 4E 13 22 3A 97 36 34 |E.=EXPLAIN.":.64|
00000380: 36 2C 43 33 00 9F 0B 24 00 8D 31 36 30 30 30 3A |6,C3...$..16000:|
00000390: 50 54 B2 30 3A 8D 36 30 3A 8D 36 33 35 30 30 00 |PT.0:.60:.63500.|
000003A0: AA 0B 25 00 8B 51 39 89 31 33 00 DE 0B 2C 00 8B |..%..Q9.13...,..|
000003B0: 41 24 B2 51 24 20 A7 20 85 22 93 D7 41 4E 54 20 |A$.Q$ . ."..ANT |
000003C0: 54 4F 20 51 55 49 54 20 20 20 59 9D 9D 9D 22 3B |TO QUIT Y...";|
000003D0: 55 39 24 3A 8B 55 39 24 B2 22 59 22 A7 80 00 F1 |U9$:.U9$."Y"....|
000003E0: 0B 2D 00 8B 41 24 B2 22 45 22 A7 8D 36 33 36 30 |.-..A$."E"..6360|
000003F0: 30 00 0E 0C 2E 00 41 B2 C5 28 41 24 29 3A 41 41 |0.....A..(A$):AA|
00000400: B2 C6 28 41 24 29 3A 8B 41 B1 37 A7 31 34 00 3E |..(A$):.A.7.14.>|
00000410: 0C 2F 00 99 C8 28 53 44 24 2C 32 AC 41 AA 31 29 |./...(SD$,2.A.1)|
00000420: 58 24 22 1D 1D 1D 1D 1D 12 22 4D 24 28 41 29 3A |X$"......"M$(A):|
00000430: 54 30 B2 30 3A 8B 41 24 B2 51 24 89 31 33 00 54 |T0.0:.A$.Q$.13.T|
00000440: 0C 30 00 8B 41 41 B2 33 32 A7 8D 34 30 30 30 30 |.0..AA.32..40000|
00000450: 3A 89 35 34 00 74 0C 31 00 A1 41 24 3A 54 30 B2 |:.54.t.1..A$:T0.|
00000460: 54 30 AA 31 3A 8B 41 24 B2 22 22 AF 54 30 B3 32 |T0.1:.A$."".T0.2|
00000470: 30 A7 34 39 00 83 0C 32 00 8B 41 24 B3 B1 22 22 |0.49...2..A$..""|
00000480: A7 31 34 00 C2 0C 33 00 8B C8 28 54 46 24 2C 31 |.14...3...(TF$,1|
00000490: 29 B2 22 A0 22 AF 41 B3 37 A7 57 24 B2 22 12 1C |).".".A.7.W$."..|
000004A0: D3 D0 C1 C3 C5 92 20 41 4E 44 20 20 20 1C 12 20 |...... AND .. |
000004B0: 20 20 20 20 20 90 22 3A 8D 31 36 31 30 30 3A 89 | .":.16100:.|
000004C0: 31 36 00 E5 0C 34 00 91 41 8D 31 30 30 2C 32 30 |16...4..A.100,20|
000004D0: 30 2C 33 30 30 2C 34 30 30 2C 36 30 30 2C 37 30 |0,300,400,600,70|
000004E0: 30 2C 39 30 30 00 F3 0C 36 00 8D 32 30 30 30 3A |0,900...6..2000:|
000004F0: 89 31 34 00 26 0D 3C 00 97 36 34 36 2C 43 33 3A |.14.&.<..646,C3:|
00000500: 99 53 44 24 22 91 91 91 91 91 91 B0 22 3B 3A 81 |.SD$".......";:.|
00000510: 4C 39 B2 31 A4 57 44 AB 32 3A 99 22 C0 22 3B 3A |L9.1.WD.2:.".";:|
00000520: 82 3A 99 22 AE 22 00 61 0D 41 00 99 53 44 24 22 |.:.".".a.A..SD$"|
00000530: 91 91 91 91 91 DD 44 41 54 41 20 46 49 4C 45 20 |......DATA FILE |
00000540: 3D 12 1F 22 46 4C 24 22 20 92 22 3B 3A 97 36 34 |=.."FL$" .";:.64|
00000550: 36 2C 43 33 3A 99 4E 22 52 45 43 4F 52 44 53 22 |6,C3:.N"RECORDS"|
00000560: 3B 00 76 0D 42 00 99 22 11 9D 9D 9D 9D 9D 9D 9D |;.v.B.."........|
00000570: 9D 9D 22 4E 43 24 00 B3 0D 46 00 99 53 44 24 22 |.."NC$...F..SD$"|
00000580: 91 91 91 91 DD 11 9D DD 54 49 54 4C 45 20 46 49 |........TITLE FI|
00000590: 4C 45 3D 12 1F 22 54 46 24 22 92 22 3B 3A 97 36 |LE=.."TF$".";:.6|
000005A0: 34 36 2C 43 33 3A 99 4E 4D AA 31 22 54 49 54 4C |46,C3:.NM.1"TITL|
000005B0: 45 53 22 00 E6 0D 4B 00 99 53 44 24 22 91 91 AD |ES"...K..SD$"...|
000005C0: 22 3B 3A 81 4C 39 B2 31 A4 57 44 AB 32 3A 99 22 |";:.L9.1.WD.2:."|
000005D0: C0 22 3B 3A 82 3A 99 22 BD 91 91 91 9D DD 11 9D |.";:.:."........|
000005E0: DD 11 9D DD 22 3B 00 F4 0D 50 00 97 36 34 36 2C |....";...P..646,|
000005F0: 43 33 3A 8E 00 05 0E 64 00 8F 20 45 4E 54 45 52 |C3:....d.. ENTER|
00000600: 20 44 41 54 41 00 13 0E 69 00 8B 4E B3 B1 30 A7 | DATA...i..N..0.|
00000610: 31 32 30 00 56 0E 6E 00 8D 31 36 31 30 30 3A 99 |120.V.n..16100:.|
00000620: 22 93 A6 A6 A6 A6 A6 A6 A6 12 4E 45 57 20 46 49 |".........NEW FI|
00000630: 4C 45 A6 A6 A6 A6 A6 A6 A6 22 3A 85 22 11 11 CE |LE.......":."...|
00000640: 41 4D 45 20 4F 46 20 C4 C1 D4 C1 20 C6 C9 CC C5 |AME OF .... ....|
00000650: 20 22 3B 4E 4D 24 00 67 0E 73 00 46 4C 24 B2 22 | ";NM$.g.s.FL$."|
00000660: 20 12 22 AA 4E 4D 24 00 80 0E 78 00 99 22 93 43 | .".NM$...x..".C|
00000670: 55 52 52 45 4E 54 20 46 49 4C 45 22 3B 46 4C 24 |URRENT FILE";FL$|
00000680: 00 A0 0E 82 00 99 22 11 11 54 48 45 52 45 20 41 |......"..THERE A|
00000690: 52 45 20 22 4E 22 20 52 45 43 4F 52 44 53 2E 22 |RE "N" RECORDS."|
000006A0: 00 D3 0E 8C 00 85 22 11 11 D3 54 41 52 54 20 57 |......"...TART W|
000006B0: 49 54 48 20 52 45 43 4F 52 44 20 23 20 20 20 20 |ITH RECORD # |
000006C0: 31 9D 9D 9D 22 3B 49 3A 8D 31 36 30 30 30 3A 4E |1...";I:.16000:N|
000006D0: 4E B2 4E 00 EF 0E 96 00 8B 49 B1 4E AA 31 B0 49 |N.N......I.N.1.I|
000006E0: B1 4E 43 A7 8D 31 36 31 30 30 3A 89 31 30 30 00 |.NC..16100:.100.|
000006F0: 05 0F A0 00 8D 31 35 30 30 30 3A 8B 41 24 B2 51 |.....15000:.A$.Q|
00000700: 24 A7 31 37 35 00 1A 0F A5 00 49 B2 49 AA 31 3A |$.175.....I.I.1:|
00000710: 8B 49 B3 B2 4E 43 A7 31 36 30 00 5D 0F AA 00 99 |.I..NC.160.]....|
00000720: 22 93 2A 2A 2A 2A 2A 2A 4D 41 58 49 4D 55 4D 20 |".******MAXIMUM |
00000730: 4E 55 4D 42 45 52 20 4F 46 20 52 45 43 4F 52 44 |NUMBER OF RECORD|
00000740: 53 2A 2A 2A 2A 2A 2A 22 3A 99 22 11 11 12 53 54 |S******":."...ST|
00000750: 41 52 54 20 4E 45 57 20 46 49 4C 45 22 00 6D 0F |ART NEW FILE".m.|
00000760: AF 00 8B 49 B1 4E 20 A7 4E B2 49 AB 31 00 73 0F |...I.N .N.I.1.s.|
00000770: B4 00 8E 00 81 0F C8 00 8F 20 44 49 53 50 4C 41 |......... DISPLA|
00000780: 59 00 BE 0F CD 00 50 54 B2 30 3A 46 46 24 B2 22 |Y.....PT.0:FF$."|
00000790: 22 3A 85 22 93 11 4F 55 54 50 55 54 20 54 4F 20 |":."..OUTPUT TO |
000007A0: 50 52 49 4E 54 45 52 20 20 20 4E 9D 9D 9D 22 3B |PRINTER N...";|
000007B0: 41 24 3A 8B 41 24 B2 22 4E 22 A7 32 31 30 00 F9 |A$:.A$."N".210..|
000007C0: 0F CE 00 50 54 B2 31 3A 85 22 11 11 44 4F 45 53 |...PT.1:."..DOES|
000007D0: 20 54 48 45 20 50 52 49 4E 54 45 52 20 4E 45 45 | THE PRINTER NEE|
000007E0: 44 20 41 20 4C 49 4E 45 20 46 45 45 44 20 20 20 |D A LINE FEED |
000007F0: 4E 9D 9D 9D 22 3B 55 39 24 00 10 10 CF 00 8B 4C |N...";U9$......L|
00000800: 39 24 B2 22 59 22 A7 46 46 24 B2 C7 28 31 30 29 |9$."Y".FF$..(10)|
00000810: 00 36 10 D2 00 8D 31 38 30 30 30 3A 41 B2 C5 28 |.6....18000:A..(|
00000820: 41 24 29 3A 91 41 89 32 31 35 2C 31 37 30 30 30 |A$):.A.215,17000|
00000830: 2C 31 37 35 30 30 00 73 10 D7 00 54 39 B2 30 3A |,17500.s...T9.0:|
00000840: 85 22 93 11 11 53 55 50 50 52 45 53 53 20 54 49 |."...SUPPRESS TI|
00000850: 54 4C 45 53 20 20 20 4E 9D 9D 9D 22 3B 54 39 24 |TLES N...";T9$|
00000860: 3A 99 22 93 22 3A 8B 54 39 24 B2 22 4E 22 A7 54 |:.".":.T9$."N".T|
00000870: 39 B2 31 00 84 10 D8 00 8B 50 54 B2 30 A7 8D 31 |9.1......PT.0..1|
00000880: 37 31 31 30 00 96 10 DC 00 8B 50 54 B2 31 A7 9F |7110......PT.1..|
00000890: 34 2C 34 3A 9D 34 00 B8 10 E1 00 81 49 B2 43 31 |4,4:.4......I.C1|
000008A0: A4 43 32 3A 5A B2 30 3A 4B B2 30 3A 43 B2 30 3A |.C2:Z.0:K.0:C.0:|
000008B0: 53 4E B2 53 4E 28 49 29 00 CF 10 E6 00 81 4A B2 |SN.SN(I)......J.|
000008C0: 5A A4 41 28 4B 29 3A 99 50 24 28 50 54 29 3B 00 |Z.A(K):.P$(PT);.|
000008D0: E7 10 EB 00 8B 20 54 39 20 A7 20 99 54 4C 24 28 |..... T9 . .TL$(|
000008E0: 4A 29 22 92 3A 22 3B 00 FC 10 EC 00 99 22 92 22 |J)".:";......"."|
000008F0: 3B 3A 8B 50 54 B2 30 A7 8D 32 38 30 00 1F 11 F0 |;:.PT.0..280....|
00000900: 00 99 44 41 24 28 53 4E 2C 4A 29 22 92 22 3B 3A |..DA$(SN,J)".";:|
00000910: 4C 44 B2 C3 28 44 41 24 28 53 4E 2C 4A 29 29 00 |LD..(DA$(SN,J)).|
00000920: 47 11 F1 00 58 B2 4C 28 4A 29 AA 32 AB 4C 44 3A |G...X.L(J).2.LD:|
00000930: 81 4B 39 B2 31 A4 58 3A 99 22 20 22 3B 3A 82 3A |.K9.1.X:." ";:.:|
00000940: 82 3A 43 B2 31 AB 43 00 65 11 F2 00 8B 50 54 B2 |.:C.1.C.e....PT.|
00000950: 31 AF 57 44 B2 34 30 A7 99 50 54 24 28 43 29 3B |1.WD.40..PT$(C);|
00000960: 3A 89 32 34 34 00 6B 11 F3 00 99 00 89 11 F4 00 |:.244.k.........|
00000970: 8B 4B B3 4B 4D A7 5A B2 41 28 4B 29 AA 31 3A 4B |.K.KM.Z.A(K).1:K|
00000980: B2 4B AA 31 3A 89 32 33 30 00 93 11 F5 00 99 20 |.K.1:.230...... |
00000990: 46 46 24 00 A2 11 F6 00 8B 50 54 B2 30 A7 8D 32 |FF$......PT.0..2|
000009A0: 36 30 00 B4 11 FA 00 82 3A 8B 50 54 B2 31 A7 98 |60......:.PT.1..|
000009B0: 34 3A A0 34 00 C3 11 FF 00 58 B2 30 3A 50 54 B2 |4:.4.....X.0:PT.|
000009C0: 30 3A 8E 00 D9 11 04 01 8B C2 28 31 39 37 29 B2 |0:........(197).|
000009D0: 50 31 A7 49 B2 43 32 3A 8E 00 EA 11 09 01 8B C2 |P1.I.C2:........|
000009E0: 28 31 39 37 29 B2 50 32 A7 8E 00 FD 11 0E 01 8B |(197).P2........|
000009F0: C2 28 31 39 37 29 B2 50 33 A7 32 37 30 00 03 12 |.(197).P3.270...|
00000A00: 13 01 8E 00 15 12 18 01 99 52 56 24 28 52 28 4A |.........RV$(R(J|
00000A10: 29 29 3B 3A 8E 00 27 12 2C 01 8F 20 52 45 43 41 |));:..'.,.. RECA|
00000A20: 4C 4C 2F 53 41 56 45 00 60 12 2D 01 99 22 93 11 |LL/SAVE.`.-.."..|
00000A30: 11 12 31 92 3A D2 45 43 41 4C 4C 22 3A 99 22 11 |..1.:.ECALL":.".|
00000A40: 12 32 92 3A D3 41 56 45 11 11 22 3A 8D 36 33 35 |.2.:.AVE..":.635|
00000A50: 30 31 3A 41 B2 C5 28 41 24 29 3A 99 22 13 11 22 |01:A..(A$):.".."|
00000A60: 00 7C 12 2E 01 8B 20 41 B2 31 A7 99 22 1D 1D 12 |.|.... A.1.."...|
00000A70: D2 45 43 41 4C 4C 22 3A 89 33 30 35 00 92 12 2F |.ECALL":.305.../|
00000A80: 01 99 22 11 11 1D 1D 12 D3 41 56 45 22 3A 89 35 |.."......AVE":.5|
00000A90: 30 30 00 C2 12 31 01 99 3A 85 22 11 11 11 CE 41 |00...1..:."....A|
00000AA0: 4D 45 20 4F 46 20 C4 C1 D4 C1 20 C6 C9 CC C5 22 |ME OF .... ...."|
00000AB0: 3B 4E 4D 24 3A 8D 31 36 30 30 30 3A 4E 24 B2 4E |;NM$:.16000:N$.N|
00000AC0: 4D 24 00 CF 12 32 01 8B 4E 24 B2 51 24 A7 8E 00 |M$...2..N$.Q$...|
00000AD0: EB 12 33 01 8B C9 28 4E 24 2C 31 29 B3 B1 22 2B |..3...(N$,1).."+|
00000AE0: 22 A7 4E 24 B2 4E 24 AA 22 2B 22 00 0B 13 36 01 |".N$.N$."+"...6.|
00000AF0: 85 22 11 C4 52 49 56 45 20 20 20 30 9D 9D 9D 22 |."..RIVE 0..."|
00000B00: 3B 44 52 24 3A 8D 31 36 30 30 30 00 18 13 3B 01 |;DR$:.16000...;.|
00000B10: 9F 31 35 2C 38 2C 31 35 00 35 13 40 01 9F 32 2C |.15,8,15.5.@..2,|
00000B20: 38 2C 32 2C 44 52 24 AA 22 3A 22 AA 4E 24 AA 22 |8,2,DR$.":".N$."|
00000B30: 2C 53 2C 52 22 00 4B 13 45 01 84 31 35 2C 45 2C |,S,R".K.E..15,E,|
00000B40: 45 4D 24 2C 45 54 24 2C 45 53 24 00 70 13 4A 01 |EM$,ET$,ES$.p.J.|
00000B50: 8B 45 B3 B1 30 A7 99 22 11 11 44 49 53 4B 20 53 |.E..0.."..DISK S|
00000B60: 54 41 54 55 53 20 12 22 45 4D 24 3A 89 33 35 35 |TATUS ."EM$:.355|
00000B70: 00 8F 13 4F 01 84 32 2C 4E 3A 8B 53 53 B2 30 A7 |...O..2,N:.SS.0.|
00000B80: 99 22 11 22 4E 22 20 52 45 43 4F 52 44 53 22 00 |."."N" RECORDS".|
00000B90: 99 13 54 01 84 32 2C 4E 4D 00 C3 13 59 01 81 49 |..T..2,NM...Y..I|
00000BA0: B2 31 A4 4E 3A 81 4A B2 30 A4 4E 4D 3A 84 32 2C |.1.N:.J.0.NM:.2,|
00000BB0: 44 41 24 3A 8B 44 41 24 B2 53 53 24 A7 44 41 24 |DA$:.DA$.SS$.DA$|
00000BC0: B2 22 22 00 D8 13 5E 01 44 41 24 28 49 2C 4A 29 |.""...^.DA$(I,J)|
00000BD0: B2 44 41 24 3A 82 3A 82 00 E9 13 63 01 46 4C 24 |.DA$:.:....c.FL$|
00000BE0: B2 22 20 12 22 AA 4E 4D 24 00 F4 13 68 01 A0 32 |." .".NM$...h..2|
00000BF0: 3A A0 31 35 00 0B 14 6D 01 81 49 B2 30 A4 4E 3A |:.15...m..I.0.N:|
00000C00: 53 4E 28 49 29 B2 49 3A 82 3A 8E 00 2B 14 90 01 |SN(I).I:.:..+...|
00000C10: 8F 20 55 53 45 52 20 52 4F 55 54 49 4E 45 20 43 |. USER ROUTINE C|
00000C20: 41 4C 43 55 4C 41 54 49 4F 4E 53 00 48 14 91 01 |ALCULATIONS.H...|
00000C30: 52 24 B2 22 93 D7 4F 52 4B 49 4E 47 20 4F 4E 20 |R$."..ORKING ON |
00000C40: 52 45 43 4F 52 44 20 22 00 72 14 92 01 8B C2 28 |RECORD ".r.....(|
00000C50: 37 30 35 29 B3 B1 31 32 33 A7 99 22 93 CE CF 20 |705)..123.."... |
00000C60: D5 D3 C5 D2 20 D3 D5 C2 D2 CF D5 D4 C9 CE C5 22 |.... .........."|
00000C70: 3A 8E 00 B2 14 95 01 81 49 B2 31 A4 4E 3A 53 4E |:.......I.1.N:SN|
00000C80: B2 53 4E 28 49 29 3A 99 52 24 53 4E 3A 81 57 31 |.SN(I):.R$SN:.W1|
00000C90: B2 30 A4 4E 4D 3A 8B 4E 28 57 31 29 B2 30 A7 56 |.0.NM:.N(W1).0.V|
00000CA0: 28 57 31 29 B2 C5 28 44 41 24 28 53 4E 2C 57 31 |(W1)..(DA$(SN,W1|
00000CB0: 29 29 00 D5 14 9A 01 82 3A 8D 35 35 30 30 30 3A |))......:.55000:|
00000CC0: 81 57 31 B2 30 A4 4E 4D 3A 8B 4E 28 57 31 29 B2 |.W1.0.NM:.N(W1).|
00000CD0: 31 A7 34 35 30 00 F2 14 A4 01 56 31 B2 56 28 57 |1.450.....V1.V(W|
00000CE0: 31 29 3A 4C 31 B2 32 3A 8B 56 31 B3 30 A7 4C 31 |1):L1.2:.V1.0.L1|
00000CF0: B2 31 00 13 15 AE 01 44 41 24 28 53 4E 2C 57 31 |.1.....DA$(SN,W1|
00000D00: 29 B2 CA 28 C4 28 56 31 29 2C 4C 31 2C 4C 28 57 |)..(.(V1),L1,L(W|
00000D10: 31 29 29 00 1D 15 C2 01 82 3A 82 3A 8E 00 30 15 |1))......:.:..0.|
00000D20: F4 01 8F 20 53 41 56 45 20 54 4F 20 44 49 53 4B |... SAVE TO DISK|
00000D30: 00 5C 15 FE 01 99 3A 99 22 11 11 11 CE 41 4D 45 |.\....:."....AME|
00000D40: 20 4F 46 20 C4 C1 D4 C1 20 C6 C9 CC C5 20 20 22 | OF .... .... "|
00000D50: 3B 4E 4D 24 3B 3A 8D 31 36 30 30 30 00 85 15 FF |;NM$;:.16000....|
00000D60: 01 9F 31 2C 30 3A 81 59 B2 31 A4 C3 28 4E 4D 24 |..1,0:.Y.1..(NM$|
00000D70: 29 3A 99 22 9D 22 3B 3A 82 3A 84 31 2C 4E 4D 24 |):.".";:.:.1,NM$|
00000D80: 3A A0 31 3A 99 00 93 15 00 02 8B 4E 4D 24 B2 51 |:.1:.......NM$.Q|
00000D90: 24 A7 8E 00 B1 15 01 02 8B C9 28 4E 4D 24 2C 31 |$.........(NM$,1|
00000DA0: 29 B3 B1 22 2B 22 A7 4E 24 B2 4E 4D 24 AA 22 2B |).."+".N$.NM$."+|
00000DB0: 22 00 C2 15 02 02 46 4C 24 B2 22 20 12 22 AA 4E |".....FL$." .".N|
00000DC0: 4D 24 00 E2 15 03 02 85 22 11 C4 52 49 56 45 20 |M$......"..RIVE |
00000DD0: 20 20 30 9D 9D 9D 22 3B 44 52 24 3A 8D 31 36 30 | 0...";DR$:.160|
00000DE0: 30 30 00 13 16 08 02 85 22 11 CF 56 45 52 57 52 |00......"..VERWR|
00000DF0: 49 54 45 20 45 58 49 53 54 49 4E 47 20 46 49 4C |ITE EXISTING FIL|
00000E00: 45 20 20 20 4E 9D 9D 9D 22 3B 41 24 3A 8D 31 36 |E N...";A$:.16|
00000E10: 30 30 30 00 20 16 0D 02 9F 31 35 2C 38 2C 31 35 |000. ....15,8,15|
00000E20: 00 38 16 12 02 8B 41 24 B2 22 59 22 A7 44 52 24 |.8....A$."Y".DR$|
00000E30: B2 22 40 22 AA 44 52 24 00 55 16 17 02 9F 32 2C |."@".DR$.U....2,|
00000E40: 38 2C 32 2C 44 52 24 AA 22 3A 22 AA 4E 24 AA 22 |8,2,DR$.":".N$."|
00000E50: 2C 53 2C 57 22 00 6B 16 1C 02 84 31 35 2C 45 2C |,S,W".k....15,E,|
00000E60: 45 4D 24 2C 45 54 24 2C 45 53 24 00 90 16 21 02 |EM$,ET$,ES$...!.|
00000E70: 8B 45 B3 B1 30 A7 99 22 11 11 44 49 53 4B 20 53 |.E..0.."..DISK S|
00000E80: 54 41 54 55 53 20 12 22 45 4D 24 3A 89 35 39 30 |TATUS ."EM$:.590|
00000E90: 00 A5 16 26 02 98 32 2C 4E 3B 43 52 24 3B 4E 4D |...&..2,N;CR$;NM|
00000EA0: 3B 43 52 24 3B 00 C1 16 2B 02 81 49 B2 31 A4 4E |;CR$;...+..I.1.N|
00000EB0: 3A 53 4E B2 53 4E 28 49 29 3A 81 4A B2 30 A4 4E |:SN.SN(I):.J.0.N|
00000EC0: 4D 00 E3 16 30 02 44 41 24 B2 44 41 24 28 53 4E |M...0.DA$.DA$(SN|
00000ED0: 2C 4A 29 3A 8B 44 41 24 B2 22 22 A7 44 41 24 B2 |,J):.DA$."".DA$.|
00000EE0: 53 53 24 00 F3 16 3A 02 98 32 2C 44 41 24 3B 43 |SS$...:..2,DA$;C|
00000EF0: 52 24 3B 00 FB 16 44 02 82 3A 82 00 08 17 4E 02 |R$;...D..:....N.|
00000F00: A0 32 3A A0 31 35 3A 8E 00 13 17 58 02 8F 20 53 |.2:.15:....X.. S|
00000F10: 4F 52 54 00 3A 17 62 02 8B 4E B3 B2 31 A7 99 22 |ORT.:.b..N..1.."|
00000F20: 93 2A 2A 2A 2A 12 4E 4F 20 44 41 54 41 20 46 49 |.****.NO DATA FI|
00000F30: 4C 45 92 2A 2A 2A 2A 22 3A 8E 00 4B 17 78 02 99 |LE.****":..K.x..|
00000F40: 22 93 53 4F 52 54 20 4F 4E 3A 22 00 8D 17 79 02 |".SORT ON:"...y.|
00000F50: 49 33 B2 37 AC 34 30 39 36 AA 31 32 AC 32 35 36 |I3.7.4096.12.256|
00000F60: AA 38 AC 31 36 3A 49 34 B2 37 AC 34 30 39 36 AA |.8.16:I4.7.4096.|
00000F70: 31 34 AC 32 35 36 AA 31 34 AC 31 36 3A 49 35 B2 |14.256.14.16:I5.|
00000F80: 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 00 AA 17 |7.4096.15.256...|
00000F90: 7A 02 97 49 34 2C 30 3A 97 49 34 AA 31 2C 36 38 |z..I4,0:.I4.1,68|
00000FA0: 3A 97 49 34 AA 32 2C 31 39 33 00 C8 17 7B 02 81 |:.I4.2,193...{..|
00000FB0: 53 B2 30 A4 4E 4D 3A 99 22 12 22 53 22 92 3A 22 |S.0.NM:."."S".:"|
00000FC0: 46 44 24 28 53 29 3A 82 00 DB 17 7C 02 8D 36 33 |FD$(S):....|..63|
00000FD0: 35 30 30 3A 53 B2 C5 28 41 24 29 00 E9 17 7D 02 |500:S..(A$)...}.|
00000FE0: 8B 53 B1 4E 4D A7 36 33 32 00 28 18 7F 02 4B B2 |.S.NM.632.(...K.|
00000FF0: 37 AA 33 AC 53 AC 28 4E 43 AA 31 29 3A 4B 48 25 |7.3.S.(NC.1):KH%|
00001000: B2 4B AD 32 35 36 3A 97 49 34 AA 34 2C 4B 48 25 |.K.256:.I4.4,KH%|
00001010: 3A 97 49 34 AA 33 2C 4B AB 32 35 36 AC 4B 48 25 |:.I4.3,K.256.KH%|
00001020: 3A 97 49 34 AA 35 2C 4E 00 44 18 80 02 99 22 93 |:.I4.5,N.D....".|
00001030: 11 11 53 4F 52 54 49 4E 47 20 4F 4E 20 22 46 44 |..SORTING ON "FD|
00001040: 24 28 53 29 00 7E 18 81 02 8B 4E 28 53 29 B2 31 |$(S).~....N(S).1|
00001050: A7 97 49 33 AA 39 30 2C 31 33 31 3A 97 49 33 AA |..I3.90,131:.I3.|
00001060: 31 33 32 2C 31 33 31 3A 97 49 33 AA 39 31 2C 31 |132,131:.I3.91,1|
00001070: 32 35 3A 97 49 33 AA 31 33 33 2C 31 32 35 00 B6 |25:.I3.133,125..|
00001080: 18 82 02 8B 4E 28 53 29 B2 30 A7 97 49 33 AA 39 |....N(S).0..I3.9|
00001090: 30 2C 36 36 3A 97 49 33 AA 31 33 32 2C 36 36 3A |0,66:.I3.132,66:|
000010A0: 97 49 33 AA 39 31 2C 31 32 36 3A 97 49 33 AA 31 |.I3.91,126:.I3.1|
000010B0: 33 33 2C 31 32 36 00 BE 18 83 02 9E 49 33 00 F9 |33,126......I3..|
000010C0: 18 84 02 81 49 39 B2 30 A4 4E 3A 53 4E 28 49 39 |....I9.0.N:SN(I9|
000010D0: 29 B2 C2 28 49 35 AA 49 39 29 3A 82 3A 99 22 93 |)..(I5.I9):.:.".|
000010E0: 11 11 CE 4F 57 20 D3 C1 D6 C5 20 D3 CF D2 D4 C5 |...OW .... .....|
000010F0: C4 20 C4 C1 D4 C1 22 3A 8E 00 06 19 BC 02 8F 20 |. ....":....... |
00001100: 53 45 41 52 43 48 00 11 19 C6 02 89 31 30 30 30 |SEARCH......1000|
00001110: 30 00 25 19 D0 02 8F 20 49 4E 50 55 54 20 52 4F |0.%.... INPUT RO|
00001120: 55 54 49 4E 45 00 35 19 DA 02 49 4E 24 B2 22 22 |UTINE.5...IN$.""|
00001130: 3A 4E 30 B2 30 00 40 19 DF 02 99 22 AF 9D 22 3B |:N0.0.@...."..";|
00001140: 00 53 19 E4 02 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.S....A$:.A$."".|
00001150: 37 34 30 00 6E 19 E9 02 41 B2 C6 28 41 24 29 3A |740.n...A..(A$):|
00001160: 8B 41 B1 34 37 AF 41 B3 39 31 A7 37 37 35 00 95 |.A.47.A.91.775..|
00001170: 19 EE 02 8B 41 B2 41 31 B0 41 B2 41 32 B0 41 B2 |....A.A1.A.A2.A.|
00001180: 41 33 B0 41 B2 41 34 B0 41 B2 41 35 B0 41 B2 41 |A3.A.A4.A.A5.A.A|
00001190: 36 A7 37 33 35 00 B3 19 F3 02 99 22 20 9D 22 3B |6.735......" .";|
000011A0: 3A 8B 41 B2 41 39 A7 53 24 B2 49 4E 24 3A 99 41 |:.A.A9.S$.IN$:.A|
000011B0: 24 3A 8E 00 C8 19 FD 02 8B 49 4E 24 B2 22 22 AF |$:.......IN$."".|
000011C0: 41 B2 41 38 A7 37 33 35 00 F5 19 02 03 8B 41 B2 |A.A8.735......A.|
000011D0: 41 38 A7 4E 30 B2 4E 30 AB 31 3A 99 22 9D 20 9D |A8.N0.N0.1:.". .|
000011E0: 22 3B 3A 49 4E 24 B2 C8 28 49 4E 24 2C 4E 30 29 |";:IN$..(IN$,N0)|
000011F0: 3A 89 37 33 35 00 06 1A 07 03 8B 41 B2 34 34 A7 |:.735......A.44.|
00001200: 41 24 B2 22 3B 22 00 2B 1A 0C 03 99 22 20 9D 22 |A$.";".+...." ."|
00001210: 41 24 3B 3A 49 4E 24 B2 49 4E 24 AA 41 24 3A 4E |A$;:IN$.IN$.A$:N|
00001220: 30 B2 4E 30 AA 31 3A 89 37 33 35 00 3C 1A 84 03 |0.N0.1:.735.<...|
00001230: 8F 20 54 49 54 4C 45 2F 46 49 4C 45 00 71 1A 8E |. TITLE/FILE.q..|
00001240: 03 99 22 93 11 11 D7 48 45 52 45 20 49 53 20 C6 |.."....HERE IS .|
00001250: C9 CC C5 2F D4 C9 D4 CC C5 D3 22 3A 85 22 11 11 |.../......":."..|
00001260: C4 52 49 56 45 20 20 20 30 9D 9D 9D 22 3B 44 52 |.RIVE 0...";DR|
00001270: 24 00 91 1A 98 03 99 22 11 11 11 2E 2E 4C 4F 41 |$......".....LOA|
00001280: 44 49 4E 47 20 C6 C9 CC C5 2F D4 C9 D4 CC C5 D3 |DING ..../......|
00001290: 22 00 AC 1A 9D 03 93 44 52 24 AA 22 3A 46 49 4C |"......DR$.":FIL|
000012A0: 45 2F 54 49 54 4C 45 53 2A 22 2C 38 00 BB 1A D0 |E/TITLES*",8....|
000012B0: 07 8F 20 4B 45 59 20 47 45 54 53 00 F0 1A D5 07 |.. KEY GETS.....|
000012C0: 99 53 44 24 22 91 22 4C 24 53 44 24 42 4C 24 53 |.SD$"."L$SD$BL$S|
000012D0: 44 24 58 24 22 92 48 49 54 20 12 D2 C5 D4 D5 D2 |D$X$".HIT ......|
000012E0: CE 92 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3B |.. TO CONTINUE";|
000012F0: 00 05 1B DA 07 A1 41 24 3A 8B 41 24 B3 B1 22 22 |......A$:.A$..""|
00001300: A7 32 30 31 30 00 19 1B E4 07 A1 41 24 3A 8B 41 |.2010......A$:.A|
00001310: 24 B2 22 22 A7 32 30 32 30 00 2D 1B EE 07 8B 41 |$."".2020.-....A|
00001320: 24 B3 B1 C7 28 31 33 29 A7 32 30 31 30 00 33 1B |$...(13).2010.3.|
00001330: F8 07 8E 00 48 1B 34 08 A1 41 24 3A 8B 41 24 B3 |....H.4..A$:.A$.|
00001340: B1 22 22 A7 32 31 30 30 00 5C 1B 3E 08 A1 41 24 |."".2100.\.>..A$|
00001350: 3A 8B 41 24 B2 22 22 A7 32 31 31 30 00 70 1B 48 |:.A$."".2110.p.H|
00001360: 08 8B 41 24 B3 B1 C7 28 33 32 29 A7 32 31 30 30 |..A$...(32).2100|
00001370: 00 76 1B 52 08 8E 00 8B 1B 98 08 A1 41 24 3A 8B |.v.R........A$:.|
00001380: 41 24 B3 B1 22 22 A7 32 32 30 30 00 9F 1B A2 08 |A$.."".2200.....|
00001390: A1 41 24 3A 8B 41 24 B2 22 22 A7 32 32 31 30 00 |.A$:.A$."".2210.|
000013A0: B2 1B AC 08 8B 41 24 B2 C7 28 31 33 29 A7 32 32 |.....A$..(13).22|
000013B0: 30 30 00 B8 1B B6 08 8E 00 D2 1B FC 08 51 39 B2 |00...........Q9.|
000013C0: 30 3A A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 32 33 |0:.A$:.A$.."".23|
000013D0: 30 30 00 E6 1B 06 09 A1 41 24 3A 8B 41 24 B2 22 |00......A$:.A$."|
000013E0: 22 A7 32 33 31 30 00 15 1C 10 09 8B 41 24 B2 22 |".2310......A$."|
000013F0: 85 22 A7 43 31 B2 AB 28 43 31 AA 31 29 AC 28 43 |.".C1..(C1.1).(C|
00001400: 31 B3 31 35 29 3A 97 35 33 32 38 31 2C 43 31 3A |1.15):.53281,C1:|
00001410: 89 32 33 30 30 00 44 1C 1A 09 8B 41 24 B2 22 86 |.2300.D....A$.".|
00001420: 22 A7 43 32 B2 AB 28 43 32 AA 31 29 AC 28 43 32 |".C2..(C2.1).(C2|
00001430: B3 31 35 29 3A 97 35 33 32 38 30 2C 43 32 3A 89 |.15):.53280,C2:.|
00001440: 32 33 30 30 00 70 1C 29 09 8B 41 24 B2 22 87 22 |2300.p.)..A$."."|
00001450: A7 43 33 B2 AB 28 43 33 AA 31 29 AC 28 43 33 B3 |.C3..(C3.1).(C3.|
00001460: 31 35 29 3A 97 36 34 36 2C 43 33 3A 51 39 B2 31 |15):.646,C3:Q9.1|
00001470: 00 76 1C 2E 09 8E 00 83 1C 10 27 8F 20 53 45 41 |.v........'. SEA|
00001480: 52 43 48 00 8B 1C 1A 27 53 B2 30 00 AE 1C 24 27 |RCH....'S.0...$'|
00001490: 4D 4D B2 4E 4D 3A 48 49 24 B2 22 53 45 41 52 43 |MM.NM:HI$."SEARC|
000014A0: 48 22 3A 8D 31 39 30 30 30 3A 4B 38 B2 49 00 D3 |H":.19000:K8.I..|
000014B0: 1C 2E 27 99 22 93 11 11 12 31 92 3A 53 45 41 52 |..'."....1.:SEAR|
000014C0: 43 48 20 46 49 4C 45 20 49 4E 20 C3 36 34 20 22 |CH FILE IN .64 "|
000014D0: 46 4C 24 00 F0 1C 38 27 99 22 11 12 32 92 3A 53 |FL$...8'."..2.:S|
000014E0: 45 41 52 43 48 20 41 4C 4C 20 46 49 4C 45 53 22 |EARCH ALL FILES"|
000014F0: 00 0F 1D 42 27 8D 32 32 30 30 3A 41 31 B2 C5 28 |...B'.2200:A1..(|
00001500: 41 24 29 3A 8B 41 31 B2 30 A7 31 30 30 30 30 00 |A$):.A1.0.10000.|
00001510: 20 1D 4C 27 99 22 93 22 3A 81 53 B2 30 A4 4B 38 | .L'.".":.S.0.K8|
00001520: 00 3A 1D 56 27 99 46 44 24 28 54 4E 28 53 29 29 |.:.V'.FD$(TN(S))|
00001530: 22 3D 20 22 3B 3A 8D 37 32 30 00 45 1D 60 27 8D |"= ";:.720.E.`'.|
00001540: 31 36 30 30 30 00 69 1D 6A 27 53 24 28 53 29 B2 |16000.i.j'S$(S).|
00001550: 53 24 3A 58 28 53 29 B2 C3 28 53 24 29 3A 82 3A |S$:X(S)..(S$):.:|
00001560: 4A 30 B2 31 3A 49 49 B2 30 00 7A 1D 74 27 8B 41 |J0.1:II.0.z.t'.A|
00001570: 31 B2 32 A7 89 31 30 32 35 30 00 82 1D 7E 27 99 |1.2..10250...~'.|
00001580: 4C 24 00 9B 1D 88 27 81 49 B2 4A 30 A4 4E 3A 53 |L$....'.I.J0.N:S|
00001590: 38 B2 30 3A 81 53 B2 30 A4 4B 38 00 C3 1D 8D 27 |8.0:.S.0.K8....'|
000015A0: 8B C8 28 44 41 24 28 49 2C 54 4E 28 53 29 29 2C |..(DA$(I,TN(S)),|
000015B0: 58 28 53 29 29 B2 53 24 28 53 29 A7 53 38 B2 53 |X(S)).S$(S).S8.S|
000015C0: 38 AA 31 00 DC 1D 92 27 82 3A 8B 53 38 B2 4B 38 |8.1....'.:.S8.K8|
000015D0: AA 31 20 A7 49 49 B2 49 3A 49 B2 4E 00 02 1E 9C |.1 .II.I:I.N....|
000015E0: 27 82 3A 8B 49 49 B2 30 A7 99 22 11 12 4E 4F 20 |'.:.II.0.."..NO |
000015F0: 45 58 41 43 54 20 4D 41 54 43 48 22 3A 99 4C 24 |EXACT MATCH":.L$|
00001600: 3A 8E 00 28 1E A6 27 8B 49 49 B2 AB 31 A7 99 22 |:..(..'.II..1.."|
00001610: 11 11 4E 4F 20 4D 4F 52 45 2E 2E 22 3A 99 4C 24 |..NO MORE..":.L$|
00001620: 3A 41 24 B2 22 22 3A 8E 00 3C 1E B0 27 99 22 93 |:A$."":..<..'.".|
00001630: 12 22 49 49 3A 81 4A B2 30 A4 4E 4D 00 4E 1E BA |."II:.J.0.NM.N..|
00001640: 27 99 46 44 24 28 4A 29 3B 3A 8D 32 38 30 00 5F |'.FD$(J);:.280._|
00001650: 1E C4 27 99 44 41 24 28 49 49 2C 4A 29 3A 82 00 |..'.DA$(II,J):..|
00001660: 85 1E D8 27 99 4C 24 3A 99 53 44 24 22 91 22 42 |...'.L$:.SD$"."B|
00001670: 4C 24 53 44 24 22 91 41 4E 59 20 43 48 41 4E 47 |L$SD$".ANY CHANG|
00001680: 45 53 3F 22 3B 00 AB 1E DD 27 8D 36 33 35 30 31 |ES?";....'.63501|
00001690: 3A 8B 41 24 B2 22 59 22 A7 49 B2 49 49 3A 8D 31 |:.A$."Y".I.II:.1|
000016A0: 35 30 30 30 3A 8D 31 30 34 30 30 00 D8 1E E2 27 |5000:.10400....'|
000016B0: 99 53 44 24 22 91 22 42 4C 24 53 44 24 22 91 12 |.SD$"."BL$SD$"..|
000016C0: C3 4F 4E 54 49 4E 55 45 20 53 45 41 52 43 48 3F |.ONTINUE SEARCH?|
000016D0: 20 20 20 20 20 20 20 22 00 E2 1E EC 27 8D 32 32 | "....'.22|
000016E0: 30 30 00 F0 1E F6 27 8B 41 24 B2 22 4E 22 A7 8E |00....'.A$."N"..|
000016F0: 00 0E 1F 00 28 4A 30 B2 49 49 AA 31 3A 49 49 B2 |....(J0.II.1:II.|
00001700: AB 31 3A 99 22 93 22 3A 89 31 30 31 32 30 00 25 |.1:.".":.10120.%|
00001710: 1F 0A 28 8F 20 53 45 41 52 43 48 20 41 4C 4C 20 |..(. SEARCH ALL |
00001720: 46 49 4C 45 53 00 35 1F 14 28 8D 35 30 30 30 30 |FILES.5..(.50000|
00001730: 3A 99 22 93 22 00 61 1F 1E 28 81 50 B2 31 A4 43 |:.".".a..(.P.1.C|
00001740: 4E 3A 4E 4D 24 B2 4E 4D 24 28 50 29 3A 8B C9 28 |N:NM$.NM$(P):..(|
00001750: 4E 4D 24 2C 31 29 B3 B1 22 2B 22 A7 31 30 33 31 |NM$,1).."+".1031|
00001760: 30 00 7D 1F 23 28 99 22 11 11 53 45 41 52 43 48 |0.}.#(."..SEARCH|
00001770: 49 4E 47 20 12 22 4E 4D 24 22 92 20 22 00 8D 1F |ING ."NM$". "...|
00001780: 28 28 4E 24 B2 4E 4D 24 3A 8D 33 31 35 00 9B 1F |((N$.NM$:.315...|
00001790: 32 28 49 49 B2 30 3A 4A 30 B2 31 00 B3 1F 3C 28 |2(II.0:J0.1...<(|
000017A0: 8D 31 30 31 32 30 3A 8B 41 24 B2 22 4E 22 A7 50 |.10120:.A$."N".P|
000017B0: B2 43 4E 00 BB 1F 46 28 82 20 50 00 C1 1F 50 28 |.CN...F(. P...P(|
000017C0: 8E 00 F3 1F A0 28 99 22 93 11 11 D2 45 57 52 49 |.....(."....EWRI|
000017D0: 54 45 20 4D 4F 44 49 46 49 45 44 20 46 49 4C 45 |TE MODIFIED FILE|
000017E0: 20 54 4F 20 44 49 53 4B 20 20 22 3B 3A 8D 36 33 | TO DISK ";:.63|
000017F0: 35 30 31 00 01 20 AA 28 8B 41 24 B2 22 4E 22 A7 |501.. .(.A$."N".|
00001800: 8E 00 0C 20 B4 28 8D 35 30 30 3A 8E 00 20 20 98 |... .(.500:.. .|
00001810: 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 |:. INPUT ROUTINE|
00001820: 00 2D 20 9D 3A 53 4E B2 53 4E 28 49 29 00 62 20 |.- .:SN.SN(I).b |
00001830: A2 3A 99 C7 28 31 34 29 3A 53 24 B2 22 1D 22 3A |.:..(14):S$.".":|
00001840: 99 22 93 52 45 43 4F 52 44 22 49 22 20 20 20 20 |.".RECORD"I" |
00001850: 20 20 2A 3D 44 45 4C 45 54 45 20 52 45 43 4F 52 | *=DELETE RECOR|
00001860: 44 22 00 83 20 A3 3A 81 4B B2 30 A4 4E 4D 3A 99 |D".. .:.K.0.NM:.|
00001870: 50 53 24 28 4B 29 54 4C 24 28 4B 29 42 58 24 28 |PS$(K)TL$(K)BX$(|
00001880: 4B 29 3B 00 A0 20 A7 3A 99 44 41 24 28 53 4E 2C |K);.. .:.DA$(SN,|
00001890: 4B 29 3B 3A 82 3A 4B B2 30 3A 8D 31 35 32 30 30 |K);:.:K.0:.15200|
000018A0: 00 BA 20 AC 3A 4B B2 4B AB 28 4B B3 30 29 3A 8B |.. .:K.K.(K.0):.|
000018B0: 4B B1 4E 4D A7 31 35 31 33 30 00 E6 20 B1 3A 49 |K.NM.15130.. .:I|
000018C0: 4E 24 B2 44 41 24 28 53 4E 2C 4B 29 3A 4E 30 B2 |N$.DA$(SN,K):N0.|
000018D0: C3 28 49 4E 24 29 3A 99 50 53 24 28 4C 4B 29 54 |.(IN$):.PS$(LK)T|
000018E0: 4C 24 28 4C 4B 29 00 10 21 B6 3A 99 50 53 24 28 |L$(LK)..!.:.PS$(|
000018F0: 4B 29 22 12 22 54 4C 24 28 4B 29 22 92 22 53 24 |K)"."TL$(K)"."S$|
00001900: 49 4E 24 3B 3A 4C 4B B2 4B 3A 99 22 AF 9D 22 3B |IN$;:LK.K:."..";|
00001910: 00 25 21 BB 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 |.%!.:.A$:.A$."".|
00001920: 31 35 30 33 35 00 42 21 C0 3A 41 B2 C6 28 41 24 |15035.B!.:A..(A$|
00001930: 29 3A 8B 41 B1 34 37 AF 41 B3 39 31 A7 31 35 30 |):.A.47.A.91.150|
00001940: 39 35 00 6B 21 C5 3A 8B 41 B2 41 31 B0 41 B2 41 |95.k!.:.A.A1.A.A|
00001950: 32 B0 41 B2 41 33 B0 41 B2 41 34 B0 41 B2 41 35 |2.A.A3.A.A4.A.A5|
00001960: B0 41 B2 41 36 A7 31 35 30 33 30 00 A1 21 CF 3A |.A.A6.15030..!.:|
00001970: 8B 41 B2 41 42 A7 49 4E 24 B2 44 41 24 28 53 4E |.A.AB.IN$.DA$(SN|
00001980: 28 49 AB 31 29 2C 4B 29 3A 41 B2 41 39 3A 99 50 |(I.1),K):A.A9:.P|
00001990: 53 24 28 4B 29 54 4C 24 28 4B 29 53 24 49 4E 24 |S$(K)TL$(K)S$IN$|
000019A0: 3B 00 D5 21 D4 3A 99 22 20 9D 22 3B 3A 8B 41 B2 |;..!.:." .";:.A.|
000019B0: 41 39 A7 44 41 24 28 53 4E 2C 4B 29 B2 C8 28 49 |A9.DA$(SN,K)..(I|
000019C0: 4E 24 2C 4C 28 4B 29 29 3A 4B B2 4B AA 31 3A 89 |N$,L(K)):K.K.1:.|
000019D0: 31 35 30 32 30 00 02 22 DE 3A 8B 41 B2 41 37 A7 |15020..".:.A.A7.|
000019E0: 44 41 24 28 53 4E 2C 4B 29 B2 C8 28 49 4E 24 2C |DA$(SN,K)..(IN$,|
000019F0: 4C 28 4B 29 29 3A 4B B2 4B AB 31 3A 89 31 35 30 |L(K)):K.K.1:.150|
00001A00: 32 30 00 19 22 E8 3A 8B 49 4E 24 B2 22 22 AF 41 |20..".:.IN$."".A|
00001A10: B2 41 38 A7 31 35 30 33 30 00 48 22 F2 3A 8B 41 |.A8.15030.H".:.A|
00001A20: B2 41 38 A7 4E 30 B2 4E 30 AB 31 3A 99 22 9D 20 |.A8.N0.N0.1:.". |
00001A30: 9D 22 3B 3A 49 4E 24 B2 C8 28 49 4E 24 2C 4E 30 |.";:IN$..(IN$,N0|
00001A40: 29 3A 89 31 35 30 33 30 00 54 22 F7 3A 8B 41 B2 |):.15030.T".:.A.|
00001A50: 41 51 A7 8E 00 6D 22 F8 3A 8B 41 B2 34 32 20 A7 |AQ...m".:.A.42 .|
00001A60: 8D 31 35 35 30 30 3A 89 31 35 30 30 30 00 87 22 |.15500:.15000.."|
00001A70: FC 3A 8B 4E 30 B2 4C 28 4B 29 A7 4B B2 4B AA 31 |.:.N0.L(K).K.K.1|
00001A80: 3A 89 31 35 30 32 30 00 98 22 06 3B 8B 41 B2 34 |:.15020..".;.A.4|
00001A90: 34 A7 41 24 B2 22 3B 22 00 C9 22 0B 3B 99 22 20 |4.A$.";"..".;." |
00001AA0: 9D 22 41 24 3B 3A 49 4E 24 B2 49 4E 24 AA 41 24 |."A$;:IN$.IN$.A$|
00001AB0: 3A 4E 30 B2 C3 28 49 4E 24 29 3A 8B 4E 30 B3 4C |:N0..(IN$):.N0.L|
00001AC0: 28 4B 29 A7 31 35 30 33 30 00 F6 22 10 3B 44 41 |(K).15030..".;DA|
00001AD0: 24 28 53 4E 2C 4B 29 B2 C8 28 49 4E 24 2C 4C 28 |$(SN,K)..(IN$,L(|
00001AE0: 4B 29 29 3A 4B B2 4B AA 31 3A 8B 4B B3 B2 4E 4D |K)):K.K.1:.K..NM|
00001AF0: A7 31 35 30 32 30 00 24 23 1A 3B 99 22 93 52 45 |.15020.$#.;.".RE|
00001B00: 43 4F 52 44 22 53 4E 3A 81 4B B2 30 A4 4E 4D 3A |CORD"SN:.K.0.NM:|
00001B10: 99 50 53 24 28 4B 29 54 4C 24 28 4B 29 42 58 24 |.PS$(K)TL$(K)BX$|
00001B20: 28 4B 29 3B 00 41 23 1B 3B 99 44 41 24 28 53 4E |(K);.A#.;.DA$(SN|
00001B30: 2C 4B 29 3B 3A 82 3A 4B B2 30 3A 8D 31 35 32 30 |,K);:.:K.0:.1520|
00001B40: 30 00 78 23 1E 3B 99 22 13 1D 1D 1D 1D 1D 1D 1D |0.x#.;."........|
00001B50: 1D 1D 1D 1D 1D 1D 1D 12 C4 C1 D4 C1 20 CF CB 3F |............ ..?|
00001B60: 22 3B 3A 8D 36 33 35 30 31 3A 8B 41 24 B2 22 4E |";:.63501:.A$."N|
00001B70: 22 A7 89 31 35 30 30 30 00 7E 23 1F 3B 8E 00 B9 |"..15000.~#.;...|
00001B80: 23 24 3B 42 58 24 B2 22 DD 91 9D B0 22 3A 81 5A |#$;BX$."....":.Z|
00001B90: B2 31 A4 42 4C AA 31 3A 42 58 24 B2 42 58 24 AA |.1.BL.1:BX$.BX$.|
00001BA0: 22 C0 22 3A 82 3A 42 58 24 B2 42 58 24 AA 22 AE |".":.:BX$.BX$.".|
00001BB0: 11 9D DD 11 9D BD 9D 9D 22 00 EC 23 2E 3B 81 5A |........"..#.;.Z|
00001BC0: B2 31 A4 42 4C AA 31 3A 42 58 24 B2 42 58 24 AA |.1.BL.1:BX$.BX$.|
00001BD0: 22 C0 9D 9D 22 3A 82 3A 42 58 24 B2 42 58 24 AA |"...":.:BX$.BX$.|
00001BE0: 22 AD 91 22 3A 99 42 58 24 3B 3A 8E 00 FF 23 60 |"..":.BX$;:...#`|
00001BF0: 3B 99 53 44 24 22 91 91 22 3A 99 42 42 24 3B 00 |;.SD$"..":.BB$;.|
00001C00: 31 24 6A 3B 99 22 1D 12 22 51 24 22 92 3D 51 55 |1$j;.".."Q$".=QU|
00001C10: 49 54 DD 91 9D B2 11 11 9D B1 91 12 22 42 24 22 |IT.........."B$"|
00001C20: 92 3D 4C 41 53 54 DD 91 9D B2 11 11 9D B1 91 22 |.=LAST........."|
00001C30: 3B 00 5B 24 74 3B 99 22 12 5F 92 42 41 43 4B DD |;.[$t;."._.BACK.|
00001C40: 91 9D B2 11 11 9D B1 91 12 52 45 54 55 52 4E 92 |.........RETURN.|
00001C50: 3D 46 4F 52 57 41 52 44 22 3A 8E 00 9A 24 8C 3C |=FORWARD":...$.<|
00001C60: 99 22 93 11 11 D7 41 4E 54 20 54 4F 20 44 45 4C |."....ANT TO DEL|
00001C70: 45 54 45 20 D2 C5 C3 CF D2 C4 3A 28 D9 2F CE 29 |ETE ......:(./.)|
00001C80: 11 11 22 3A 99 22 12 22 44 41 24 28 53 4E 2C 30 |..":."."DA$(SN,0|
00001C90: 29 3A 85 22 11 22 3B 55 39 24 00 AF 24 96 3C 8B |):.".";U9$..$.<.|
00001CA0: C8 28 55 39 24 2C 31 29 B3 B1 22 59 22 A7 8E 00 |.(U9$,1).."Y"...|
00001CB0: EF 24 A0 3C 99 22 11 11 44 45 4C 45 54 49 4E 47 |.$.<."..DELETING|
00001CC0: 2E 2E 2E 2E 22 3A 4E B2 4E AB 31 3A 81 55 39 B2 |....":N.N.1:.U9.|
00001CD0: 49 A4 4E 3A 53 4E 28 55 39 29 B2 53 4E 28 55 39 |I.N:SN(U9).SN(U9|
00001CE0: AA 31 29 3A 82 3A 53 4E 28 55 39 29 B2 53 4E 00 |.1):.:SN(U9).SN.|
00001CF0: F5 24 AA 3C 8E 00 00 25 80 3E 8F 20 42 45 45 50 |.$.<...%.>. BEEP|
00001D00: 00 2D 25 8A 3E 97 53 49 44 AA 32 34 2C 31 35 3A |.-%.>.SID.24,15:|
00001D10: 97 53 49 44 AA 34 2C 33 33 3A 81 50 50 B2 31 A4 |.SID.4,33:.PP.1.|
00001D20: 35 30 3A 82 3A 97 53 49 44 AA 34 2C 30 00 3B 25 |50:.:.SID.4,0.;%|
00001D30: 8F 3E 97 53 49 44 AA 32 34 2C 30 00 41 25 94 3E |.>.SID.24,0.A%.>|
00001D40: 8E 00 50 25 E4 3E 97 53 49 44 AA 32 34 2C 31 35 |..P%.>.SID.24,15|
00001D50: 00 7B 25 EE 3E 81 55 B2 31 A4 35 3A 97 53 49 44 |.{%.>.U.1.5:.SID|
00001D60: AA 34 2C 31 37 3A 81 50 50 B2 31 A4 35 30 3A 82 |.4,17:.PP.1.50:.|
00001D70: 3A 97 53 49 44 AA 34 2C 30 3A 82 00 89 25 F3 3E |:.SID.4,0:...%.>|
00001D80: 97 53 49 44 AA 32 34 2C 30 00 8F 25 F8 3E 8E 00 |.SID.24,0..%.>..|
00001D90: B2 25 68 42 8F 20 53 45 4C 45 43 54 45 44 20 54 |.%hB. SELECTED T|
00001DA0: 49 54 4C 45 53 20 46 4F 52 20 50 52 49 4E 54 49 |ITLES FOR PRINTI|
00001DB0: 4E 47 00 D1 25 72 42 4D 4D B2 4E 4D 3A 48 49 24 |NG..%rBMM.NM:HI$|
00001DC0: B2 22 44 49 53 50 4C 41 59 22 3A 8D 31 39 30 30 |."DISPLAY":.1900|
00001DD0: 30 00 E7 25 7C 42 4B 38 B2 49 3A 8B 50 54 B2 30 |0..%|BK8.I:.PT.0|
00001DE0: A7 8D 31 37 31 31 30 00 F9 25 86 42 8B 50 54 B2 |..17110..%.B.PT.|
00001DF0: 31 A7 9F 34 2C 34 3A 9D 34 00 0F 26 90 42 81 49 |1..4,4:.4..&.B.I|
00001E00: B2 43 31 A4 43 32 3A 53 4E B2 53 4E 28 49 29 00 |.C1.C2:SN.SN(I).|
00001E10: 3A 26 9A 42 81 4C B2 30 A4 4B 38 3A 4A B2 54 4E |:&.B.L.0.K8:J.TN|
00001E20: 28 4C 29 3A 99 A6 58 29 50 24 28 50 54 29 3B 3A |(L):..X)P$(PT);:|
00001E30: 8B 50 54 B2 31 A7 8D 32 38 30 00 55 26 A4 42 99 |.PT.1..280.U&.B.|
00001E40: 46 44 24 28 4A 29 22 92 22 3B 3A 8B 50 54 B2 30 |FD$(J)".";:.PT.0|
00001E50: A7 8D 32 38 30 00 69 26 AE 42 99 44 41 24 28 53 |..280.i&.B.DA$(S|
00001E60: 4E 2C 4A 29 46 46 24 3A 82 00 7C 26 B8 42 8B 50 |N,J)FF$:..|&.B.P|
00001E70: 54 B2 30 A7 99 4C 24 3A 8D 32 36 30 00 8E 26 C2 |T.0..L$:.260..&.|
00001E80: 42 82 3A 8B 50 54 B2 31 A7 98 34 3A A0 34 00 9D |B.:.PT.1..4:.4..|
00001E90: 26 CC 42 58 B2 30 3A 50 54 B2 30 3A 8E 00 BC 26 |&.BX.0:PT.0:...&|
00001EA0: D6 42 99 22 93 11 11 11 44 55 52 49 4E 47 20 54 |.B."....DURING T|
00001EB0: 48 45 20 44 49 53 50 4C 41 59 3A 22 00 E1 26 E0 |HE DISPLAY:"..&.|
00001EC0: 42 99 22 11 11 50 52 45 53 53 20 12 53 50 41 43 |B."..PRESS .SPAC|
00001ED0: 45 92 20 54 4F 20 53 54 41 52 54 2F 53 54 4F 50 |E. TO START/STOP|
00001EE0: 22 00 08 27 EA 42 99 22 11 11 50 52 45 53 53 20 |"..'.B."..PRESS |
00001EF0: 12 52 45 54 55 52 4E 92 20 54 4F 20 44 49 53 43 |.RETURN. TO DISC|
00001F00: 4F 4E 54 49 4E 55 45 22 00 36 27 F4 42 99 53 44 |ONTINUE".6'.B.SD|
00001F10: 24 22 48 49 54 20 12 53 50 41 43 45 92 20 54 4F |$"HIT .SPACE. TO|
00001F20: 20 42 45 47 49 4E 3A 22 3B 3A 8D 32 31 30 30 3A | BEGIN:";:.2100:|
00001F30: 99 22 93 22 3A 8E 00 4A 27 5C 44 8F 20 42 4F 58 |.".":..J'\D. BOX|
00001F40: 45 44 20 44 49 53 50 4C 41 59 00 5D 27 66 44 53 |ED DISPLAY.]'fDS|
00001F50: 24 B2 22 1D 22 3A 8B 50 54 B2 31 A7 8E 00 7A 27 |$.".":.PT.1...z'|
00001F60: 70 44 8D 31 37 31 31 30 3A 81 49 B2 43 31 A4 43 |pD.17110:.I.C1.C|
00001F70: 32 3A 53 4E B2 53 4E 28 49 29 00 A7 27 7A 44 99 |2:SN.SN(I)..'zD.|
00001F80: 22 93 52 45 43 4F 52 44 22 49 3A 81 4B B2 30 A4 |".RECORD"I:.K.0.|
00001F90: 4E 4D 3A 99 50 53 24 28 4B 29 54 4C 24 28 4B 29 |NM:.PS$(K)TL$(K)|
00001FA0: 42 58 24 28 4B 29 3B 00 C2 27 84 44 99 44 41 24 |BX$(K);..'.D.DA$|
00001FB0: 28 53 4E 2C 4B 29 3B 3A 82 3A 8D 32 36 30 3A 82 |(SN,K);:.:.260:.|
00001FC0: 3A 8E 00 D5 27 50 46 8F 20 44 49 53 50 4C 41 59 |:...'PF. DISPLAY|
00001FD0: 20 4D 45 4E 55 00 18 28 5A 46 99 3A 99 22 11 11 | MENU..(ZF.:."..|
00001FE0: D4 48 45 52 45 20 41 52 45 22 4E 22 20 52 45 43 |.HERE ARE"N" REC|
00001FF0: 4F 52 44 53 11 22 3A 85 22 11 D3 54 41 52 54 20 |ORDS.":."..TART |
00002000: 57 49 54 48 20 52 45 43 4F 52 44 20 23 20 20 20 |WITH RECORD # |
00002010: 31 9D 9D 9D 22 3B 43 31 00 37 28 64 46 8D 31 36 |1...";C1.7(dF.16|
00002020: 30 30 30 3A 8B 43 31 B1 4E A7 8D 31 36 31 30 30 |000:.C1.N..16100|
00002030: 3A 89 31 38 30 30 30 00 5D 28 6E 46 43 32 B2 4E |:.18000.](nFC2.N|
00002040: 3A 99 22 11 C5 4E 44 20 57 49 54 48 20 52 45 43 |:."..ND WITH REC|
00002050: 4F 52 44 20 23 20 20 20 20 22 3B 43 32 00 90 28 |ORD # ";C2..(|
00002060: 73 46 85 22 91 C5 4E 44 20 57 49 54 48 20 52 45 |sF."..ND WITH RE|
00002070: 43 4F 52 44 20 23 20 1D 1D 22 3B 43 32 3A 8D 31 |CORD # ..";C2:.1|
00002080: 36 30 30 30 3A 81 59 39 B2 31 A4 32 30 30 3A 82 |6000:.Y9.1.200:.|
00002090: 00 A8 28 78 46 8B 43 32 B1 4E A7 8D 31 36 31 30 |..(xF.C2.N..1610|
000020A0: 30 3A 89 31 38 30 30 30 00 CB 28 82 46 99 4C 24 |0:.18000..(.F.L$|
000020B0: 3A 99 22 11 11 12 31 92 3A 20 53 54 41 4E 44 41 |:."...1.: STANDA|
000020C0: 52 44 20 44 49 53 50 4C 41 59 22 00 06 29 8C 46 |RD DISPLAY"..).F|
000020D0: 99 22 11 12 32 92 3A 20 53 45 4C 45 43 54 45 44 |."..2.: SELECTED|
000020E0: 20 44 49 53 50 4C 41 59 22 3A 8B 50 54 B2 30 A7 | DISPLAY":.PT.0.|
000020F0: 99 22 11 12 33 92 3A 20 42 4F 58 45 44 20 44 49 |."..3.: BOXED DI|
00002100: 53 50 4C 41 59 22 00 18 29 96 46 8D 36 33 35 30 |SPLAY"..).F.6350|
00002110: 30 3A 8D 31 36 30 30 30 00 33 29 A0 46 41 B2 C5 |0:.16000.3).FA..|
00002120: 28 41 24 29 3A 8B 41 B2 30 B0 41 B1 33 A7 31 38 |(A$):.A.0.A.3.18|
00002130: 30 35 30 00 3F 29 AA 46 58 B2 31 35 AC 50 54 00 |050.?).FX.15.PT.|
00002140: 45 29 B4 46 8E 00 59 29 38 4A 8F 20 43 48 4F 4F |E).F..Y)8J. CHOO|
00002150: 53 45 20 54 49 54 4C 45 53 00 8D 29 42 4A 99 22 |SE TITLES..)BJ."|
00002160: 93 22 3B 3A 81 49 B2 30 A4 4D 4D 3A 99 22 12 22 |.";:.I.0.MM:."."|
00002170: 49 22 92 3A 22 54 4C 24 28 49 29 3A 54 4E 28 49 |I".:"TL$(I):TN(I|
00002180: 29 B2 30 3A 82 3A 49 B2 30 3A 99 4C 24 00 AC 29 |).0:.:I.0:.L$..)|
00002190: 4C 4A 99 53 44 24 22 91 91 91 91 91 91 22 3B 3A |LJ.SD$"......";:|
000021A0: 42 4C B2 33 35 3A 8D 31 35 31 34 30 00 DA 29 51 |BL.35:.15140..)Q|
000021B0: 4A 99 22 43 48 4F 4F 53 45 20 12 22 48 49 24 22 |J."CHOOSE ."HI$"|
000021C0: 92 20 54 49 54 4C 45 53 DD 91 9D B2 11 11 9D B1 |. TITLES........|
000021D0: 91 12 41 92 3D 41 4C 4C 22 3B 00 FD 29 56 4A 99 |..A.=ALL";..)VJ.|
000021E0: 22 20 DD 91 9D B2 11 11 9D B1 91 20 12 22 51 24 |" ......... ."Q$|
000021F0: 22 92 3D 51 55 49 54 22 3A 9F 31 2C 30 00 37 2A |".=QUIT":.1,0.7*|
00002200: 5B 4A 99 53 44 24 22 91 91 22 3B 3A 99 22 54 49 |[J.SD$"..";:."TI|
00002210: 54 4C 45 20 23 20 20 20 20 20 20 9D 9D 9D 9D 22 |TLE # ...."|
00002220: 3B 3A 84 31 2C 54 4E 24 3A 8B 54 4E 24 B2 51 24 |;:.1,TN$:.TN$.Q$|
00002230: 20 A7 31 39 30 36 30 00 61 2A 60 4A 8B 54 4E 24 | .19060.a*`J.TN$|
00002240: B2 22 41 22 A7 81 49 B2 30 A4 4E 4D 3A 54 4E 28 |."A"..I.0.NM:TN(|
00002250: 49 29 B2 53 4E 28 49 29 3A 82 3A 89 31 39 30 36 |I).SN(I):.:.1906|
00002260: 30 00 83 2A 65 4A 8D 31 36 30 30 30 3A 54 4E B2 |0..*eJ.16000:TN.|
00002270: C5 28 54 4E 24 29 3A 8B 54 4E B1 4D 4D A7 31 39 |.(TN$):.TN.MM.19|
00002280: 30 33 35 00 B9 2A 6A 4A 54 4E 28 49 29 B2 54 4E |035..*jJTN(I).TN|
00002290: 3A 49 B2 49 AA 31 3A 99 C8 28 53 44 24 2C 54 4E |:I.I.1:..(SD$,TN|
000022A0: AA 31 29 22 12 22 54 4E 22 3A 22 54 4C 24 28 54 |.1)"."TN":"TL$(T|
000022B0: 4E 29 3A 89 31 39 30 33 35 00 C8 2A 74 4A A0 31 |N):.19035..*tJ.1|
000022C0: 3A 49 B2 49 AB 31 3A 8E 00 DE 2A 40 9C 8F 20 4C |:I.I.1:...*@.. L|
000022D0: 4F 41 44 20 54 49 54 4C 45 2D 46 49 4C 45 00 E9 |OAD TITLE-FILE..|
000022E0: 2A 41 9C 97 37 30 35 2C 31 00 FE 2A 45 9C 8B C8 |*A..705,1..*E...|
000022F0: 28 54 46 24 2C 31 29 B3 B1 22 A0 22 A7 8A 00 1B |(TF$,1).."."....|
00002300: 2B 4A 9C 85 22 93 11 D4 C9 D4 CC C5 2D C6 C9 CC |+J..".......-...|
00002310: C5 20 4E 41 4D 45 22 3B 54 46 24 00 3B 2B 54 9C |. NAME";TF$.;+T.|
00002320: 85 22 11 C4 52 49 56 45 20 20 20 30 9D 9D 9D 22 |."..RIVE 0..."|
00002330: 3B 44 52 24 3A 8D 31 36 30 30 30 00 48 2B 5E 9C |;DR$:.16000.H+^.|
00002340: 9F 31 35 2C 38 2C 31 35 00 66 2B 68 9C 9F 32 2C |.15,8,15.f+h..2,|
00002350: 38 2C 32 2C 44 52 24 AA 22 3A 22 AA 54 46 24 AA |8,2,DR$.":".TF$.|
00002360: 22 2C 53 2C 52 22 00 7C 2B 72 9C 84 31 35 2C 45 |",S,R".|+r..15,E|
00002370: 2C 45 4D 24 2C 45 54 24 2C 45 53 24 00 AB 2B 7C |,EM$,ET$,ES$..+||
00002380: 9C 8B 45 B3 B1 30 A7 99 22 11 11 44 49 53 4B 20 |..E..0.."..DISK |
00002390: 53 54 41 54 55 53 20 12 22 45 4D 24 3A A0 32 3A |STATUS ."EM$:.2:|
000023A0: A0 31 35 3A 8D 32 30 30 30 3A 8E 00 C1 2B 81 9C |.15:.2000:...+..|
000023B0: 84 32 2C 45 4E 3A 8B 45 4E B2 30 A7 34 30 30 37 |.2,EN:.EN.0.4007|
000023C0: 30 00 E9 2B 82 9C 81 59 B2 31 A4 45 4E 3A 84 32 |0..+...Y.1.EN:.2|
000023D0: 2C 45 51 24 28 59 29 3A 82 3A 8B C2 28 37 30 35 |,EQ$(Y):.:..(705|
000023E0: 29 B2 31 A7 36 30 30 30 30 00 03 2C 86 9C 84 32 |).1.60000..,...2|
000023F0: 2C 4E 43 3A 8F 20 4D 41 58 20 23 20 45 4E 54 52 |,NC:. MAX # ENTR|
00002400: 49 45 53 00 31 2C 87 9C 4E 43 24 B2 22 28 22 AA |IES.1,..NC$."(".|
00002410: C9 28 22 20 20 20 22 AA C4 28 4E 43 29 2C 33 29 |.(" "..(NC),3)|
00002420: AA 22 20 CD C1 D8 29 22 3A 5A 4F 24 B2 C7 28 30 |." ...)":ZO$..(0|
00002430: 29 00 4E 2C 8B 9C 84 32 2C 4E 4D 3A 8F 20 4E 55 |).N,...2,NM:. NU|
00002440: 4D 42 45 52 20 4F 46 20 54 49 54 4C 45 53 00 66 |MBER OF TITLES.f|
00002450: 2C 90 9C 84 32 2C 4C 4C 3A 8F 20 4C 49 4E 45 20 |,...2,LL:. LINE |
00002460: 4C 45 4E 47 54 48 00 7E 2C 96 9C 84 32 2C 4B 4D |LENGTH.~,...2,KM|
00002470: 3A 8F 20 54 49 54 4C 45 53 2F 4C 49 4E 45 00 C2 |:. TITLES/LINE..|
00002480: 2C 9A 9C 86 20 54 4C 24 28 4E 4D 29 2C 46 44 24 |,... TL$(NM),FD$|
00002490: 28 4E 4D 29 2C 53 4E 28 4E 43 29 2C 49 28 32 AC |(NM),SN(NC),I(2.|
000024A0: 4E 43 29 2C 4C 28 4E 4D 29 2C 4E 28 4E 4D 29 2C |NC),L(NM),N(NM),|
000024B0: 56 28 4E 4D 29 2C 53 56 28 4E 4D 29 2C 4B 28 4E |V(NM),SV(NM),K(N|
000024C0: 4D 29 00 FD 2C 9F 9C 86 20 44 41 24 28 4E 43 2C |M)..,... DA$(NC,|
000024D0: 4E 4D 29 2C 54 4E 28 4E 4D 29 2C 53 24 28 4E 4D |NM),TN(NM),S$(NM|
000024E0: 29 2C 50 53 24 28 4E 4D 29 2C 52 28 4E 4D 29 2C |),PS$(NM),R(NM),|
000024F0: 42 58 24 28 4E 4D 29 2C 58 28 4E 4D 29 00 20 2D |BX$(NM),X(NM). -|
00002500: A4 9C 81 49 B2 30 A4 4E 4D 3A 84 32 2C 52 28 49 |...I.0.NM:.2,R(I|
00002510: 29 3A 44 41 24 28 30 2C 49 29 B2 5A 4F 24 3A 82 |):DA$(0,I).ZO$:.|
00002520: 00 50 2D AE 9C 81 49 B2 30 A4 4E 4D 3A 84 32 2C |.P-...I.0.NM:.2,|
00002530: 54 4C 24 28 49 29 3A 84 32 2C 46 44 24 28 49 29 |TL$(I):.2,FD$(I)|
00002540: 3A 84 32 2C 4C 28 49 29 3A 84 32 2C 4E 28 49 29 |:.2,L(I):.2,N(I)|
00002550: 00 72 2D B3 9C 84 32 2C 50 53 24 28 49 29 3A 82 |.r-...2,PS$(I):.|
00002560: 3A 81 4B B2 30 A4 4B 4D 3A 84 32 2C 41 28 4B 29 |:.K.0.KM:.2,A(K)|
00002570: 3A 82 00 A8 2D B5 9C A0 32 3A A0 31 35 3A 99 22 |:...-...2:.15:."|
00002580: 93 20 12 D4 C9 D4 CC C5 D3 92 3A 20 12 41 92 3D |. ........: .A.=|
00002590: 41 4C 50 48 41 42 45 54 49 43 20 12 4E 92 3D 4E |ALPHABETIC .N.=N|
000025A0: 55 4D 45 52 49 43 22 22 00 D8 2D B6 9C 52 56 24 |UMERIC""..-..RV$|
000025B0: 28 30 29 B2 22 92 22 3A 52 56 24 28 31 29 B2 22 |(0).".":RV$(1)."|
000025C0: 12 22 3A 41 4C 24 28 31 29 B2 22 41 22 3A 41 4C |.":AL$(1)."A":AL|
000025D0: 24 28 30 29 B2 22 4E 22 00 F5 2D B8 9C 81 49 B2 |$(0)."N"..-...I.|
000025E0: 30 A4 4E 43 3A 53 4E 28 49 29 B2 49 3A 82 3A 53 |0.NC:SN(I).I:.:S|
000025F0: 24 B2 22 1D 22 00 27 2E C2 9C 81 4B B2 30 A4 4E |$.".".'....K.0.N|
00002600: 4D 3A 99 50 53 24 28 4B 29 52 56 24 28 52 28 4B |M:.PS$(K)RV$(R(K|
00002610: 29 29 54 4C 24 28 4B 29 52 56 24 28 30 29 3B 3A |))TL$(K)RV$(0);:|
00002620: 42 4C B2 4C 28 4B 29 00 48 2E CC 9C 8D 31 35 31 |BL.L(K).H....151|
00002630: 34 30 3A 99 41 4C 24 28 4E 28 4B 29 29 3A 42 58 |40:.AL$(N(K)):BX|
00002640: 24 28 4B 29 B2 42 58 24 00 50 2E D6 9C 82 3A 8E |$(K).BX$.P....:.|
00002650: 00 65 2E 50 C3 8F 20 47 45 54 20 46 49 4C 45 20 |.e.P.. GET FILE |
00002660: 4E 41 4D 45 53 00 78 2E 5A C3 42 B2 33 30 3A 41 |NAMES.x.Z.B.30:A|
00002670: 4E B2 31 3A 43 4E B2 30 00 98 2E 64 C3 85 22 93 |N.1:CN.0...d..".|
00002680: C4 52 49 56 45 20 20 20 30 9D 9D 9D 22 3B 44 52 |.RIVE 0...";DR|
00002690: 24 3A 8D 31 36 30 30 30 00 C5 2E 6E C3 9F 31 35 |$:.16000...n..15|
000026A0: 2C 38 2C 31 35 3A 99 22 93 46 49 4C 45 53 20 4F |,8,15:.".FILES O|
000026B0: 4E 20 44 49 53 4B 3A 44 52 49 56 45 20 22 44 52 |N DISK:DRIVE "DR|
000026C0: 24 3A 99 4C 24 00 DF 2E 78 C3 98 31 35 2C 22 4D |$:.L$...x..15,"M|
000026D0: 2D 45 22 C7 28 32 31 32 29 C7 28 32 33 37 29 00 |-E".(212).(237).|
000026E0: F9 2E 82 C3 9F 32 2C 38 2C 30 2C 22 24 22 AA 44 |.....2,8,0,"$".D|
000026F0: 52 24 AA 22 3A 2A 3D 53 22 00 11 2F 8C C3 A1 23 |R$.":*=S"../...#|
00002700: 32 2C 41 24 3A A1 23 32 2C 41 24 3A 49 24 B2 22 |2,A$:.#2,A$:I$."|
00002710: 22 00 2F 2F 96 C3 A1 42 39 24 3A 8B 53 54 B3 B1 |".//...B9$:.ST..|
00002720: 30 B0 42 39 24 B3 B1 22 22 A7 35 30 32 30 30 00 |0.B9$.."".50200.|
00002730: 41 2F A0 C3 81 41 B2 31 A4 42 3A A1 23 32 2C 41 |A/...A.1.B:.#2,A|
00002740: 24 00 54 2F AA C3 8B 41 24 B2 22 22 A7 41 24 B2 |$.T/...A$."".A$.|
00002750: C7 28 30 29 00 75 2F B4 C3 49 24 B2 49 24 AA 41 |.(0).u/..I$.I$.A|
00002760: 24 3A 82 3A 4A 24 B2 49 24 3A 8B 41 4E B2 31 A7 |$:.:J$.I$:.AN.1.|
00002770: 35 30 31 39 30 00 84 2F BE C3 49 24 B2 CA 28 49 |50190../..I$..(I|
00002780: 24 2C 38 29 00 94 2F C8 C3 4C 46 24 B2 C8 28 49 |$,8)../..LF$..(I|
00002790: 24 2C 31 29 00 BD 2F D2 C3 8B 4C 46 24 B2 C7 28 |$,1)../...LF$..(|
000027A0: 33 34 29 B0 4C 46 24 B2 22 20 22 A7 49 24 B2 CA |34).LF$." ".I$..|
000027B0: 28 49 24 2C 32 29 3A 89 35 30 31 32 30 00 CC 2F |(I$,2):.50120../|
000027C0: DC C3 4A B2 31 3A 49 49 24 B2 22 22 00 05 30 E6 |..J.1:II$.""..0.|
000027D0: C3 4A 24 B2 CA 28 49 24 2C 4A 2C 31 29 3A 8B 4A |.J$..(I$,J,1):.J|
000027E0: 24 B3 B1 C7 28 33 34 29 A7 4A B2 4A AA 31 3A 49 |$...(34).J.J.1:I|
000027F0: 49 24 B2 49 49 24 AA 4A 24 3A 8B 4A B3 31 37 A7 |I$.II$.J$:.J.17.|
00002800: 35 30 31 35 30 00 15 30 F0 C3 8B 4A B1 31 36 A7 |50150..0...J.16.|
00002810: 35 30 32 30 30 00 45 30 FA C3 99 22 12 22 49 49 |50200.E0..."."II|
00002820: 24 3A 8B C9 28 49 49 24 2C 31 29 B3 B1 22 2B 22 |$:..(II$,1).."+"|
00002830: A7 99 22 91 22 42 4C 24 3A 99 22 91 22 3B 3A 89 |.."."BL$:.".";:.|
00002840: 35 30 31 39 30 00 5D 30 04 C4 43 4E B2 43 4E AA |50190.]0..CN.CN.|
00002850: 31 3A 4E 4D 24 28 43 4E 29 B2 49 49 24 00 78 30 |1:NM$(CN).II$.x0|
00002860: 0E C4 41 4E B2 30 3A 49 24 B2 22 22 3A 42 B2 33 |..AN.0:I$."":B.3|
00002870: 32 3A 89 35 30 30 37 30 00 85 30 18 C4 A0 32 3A |2:.50070..0...2:|
00002880: A0 31 35 3A 99 00 8B 30 22 C4 8E 00 A1 30 D8 D6 |.15:...0"....0..|
00002890: 8F 20 55 53 45 52 20 53 55 42 52 4F 55 54 49 4E |. USER SUBROUTIN|
000028A0: 45 00 A7 30 BF DA 8E 00 DA 30 78 E6 54 46 24 B2 |E..0.....0x.TF$.|
000028B0: 22 22 3A 4C 31 B2 C2 28 37 30 36 29 3A 81 59 B2 |"":L1..(706):.Y.|
000028C0: 31 A4 4C 31 3A 54 46 24 B2 54 46 24 AA C7 28 C2 |1.L1:TF$.TF$..(.|
000028D0: 28 37 30 36 AA 59 29 29 3A 82 00 FE 30 82 E6 44 |(706.Y)):...0..D|
000028E0: 52 24 B2 C4 28 C2 28 37 30 36 AA 59 29 29 3A 8D |R$..(.(706.Y)):.|
000028F0: 34 30 30 33 30 3A 97 37 30 35 2C 30 3A 8E 00 09 |40030:.705,0:...|
00002900: 31 60 EA A0 32 3A A0 31 35 00 17 31 64 EA 4C 31 |1`..2:.15..1d.L1|
00002910: B2 C3 28 54 46 24 29 00 48 31 65 EA 81 59 B2 31 |..(TF$).H1e..Y.1|
00002920: A4 4C 31 3A 97 37 30 36 AA 59 2C C6 28 CA 28 54 |.L1:.706.Y,.(.(T|
00002930: 46 24 2C 59 2C 31 29 29 3A 82 3A 97 37 30 36 AA |F$,Y,1)):.:.706.|
00002940: 59 2C C5 28 44 52 24 29 00 77 31 6A EA 97 31 39 |Y,.(DR$).w1j..19|
00002950: 38 2C 39 3A 81 49 B2 30 A4 38 3A 97 36 33 31 AA |8,9:.I.0.8:.631.|
00002960: 49 2C 31 33 3A 82 3A 97 37 30 36 2C 4C 31 3A 46 |I,13:.:.706,L1:F|
00002970: 46 B2 35 35 30 30 30 00 A4 31 74 EA 99 22 93 11 |F.55000..1t.."..|
00002980: 11 11 22 3B 3A 81 59 B2 31 A4 45 4E 3A 99 46 46 |..";:.Y.1.EN:.FF|
00002990: AA 59 3B 45 51 24 28 59 29 3A 82 3A 99 22 9B 52 |.Y;EQ$(Y):.:.".R|
000029A0: 55 4E 90 22 00 E0 31 7E EA 99 22 11 11 11 22 4C |UN."..1~.."..."L|
000029B0: 24 3A 99 22 12 D5 D3 C5 D2 20 D3 D5 C2 D2 CF D5 |$:."..... ......|
000029C0: D4 C9 CE C5 2E 2E 13 22 3B 3A 97 37 30 35 2C 31 |.......";:.705,1|
000029D0: 32 33 3A 81 49 39 B2 31 A4 39 30 30 3A 82 3A 80 |23:.I9.1.900:.:.|
000029E0: 00 F1 31 18 F6 8F 20 49 4E 49 54 49 41 4C 49 5A |..1... INITIALIZ|
000029F0: 45 00 0D 32 19 F6 99 22 93 22 3A 8B C2 28 33 31 |E..2...".":..(31|
00002A00: 38 37 32 29 B2 33 32 A7 36 33 30 31 30 00 42 32 |872).32.63010.B2|
00002A10: 1A F6 99 22 93 11 11 11 4C 4F 41 44 22 C7 28 33 |..."....LOAD".(3|
00002A20: 34 29 22 46 49 4C 45 2F 42 4F 4F 54 22 C7 28 33 |4)"FILE/BOOT".(3|
00002A30: 34 29 22 2C 38 22 3A 99 22 11 11 11 11 52 55 4E |4)",8":."....RUN|
00002A40: 13 22 00 5F 32 1B F6 97 31 39 38 2C 32 3A 97 36 |."._2...198,2:.6|
00002A50: 33 31 2C 31 33 3A 97 36 33 32 2C 31 33 3A 80 00 |31,13:.632,13:..|
00002A60: 76 32 22 F6 8B C2 28 37 30 35 29 B2 31 32 33 A7 |v2"...(705).123.|
00002A70: 8D 35 39 30 30 30 00 96 32 24 F6 4E 46 B2 35 30 |.59000..2$.NF.50|
00002A80: 3A 8F 20 4D 41 58 20 4E 55 4D 42 45 52 20 4F 46 |:. MAX NUMBER OF|
00002A90: 20 46 49 4C 45 53 00 B5 32 27 F6 4E 4C B2 37 3A | FILES..2'.NL.7:|
00002AA0: 8F 20 4D 41 58 20 4E 55 4D 42 45 52 20 4F 46 20 |. MAX NUMBER OF |
00002AB0: 4C 49 4E 45 53 00 C3 32 2C F6 86 20 4E 4D 24 28 |LINES..2,.. NM$(|
00002AC0: 4E 46 29 00 F4 32 72 F6 4C 24 B2 22 C0 C0 C0 C0 |NF)..2r.L$."....|
00002AD0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002AE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002AF0: C0 C0 C0 22 00 2F 33 7C F6 4C 50 24 B2 4C 24 AA |..."./3|.LP$.L$.|
00002B00: 4C 24 3A 42 4C 24 B2 22 20 20 20 20 20 20 20 20 |L$:BL$." |
00002B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00002B30: 58 33 81 F6 44 54 24 B2 22 22 3A 81 49 B2 31 A4 |X3..DT$."":.I.1.|
00002B40: 33 39 3A 44 54 24 B2 44 54 24 AA 22 2E 22 3A 82 |39:DT$.DT$.".":.|
00002B50: 3A 53 53 24 B2 22 A0 22 00 92 33 86 F6 51 24 B2 |:SS$."."..3..Q$.|
00002B60: 22 40 22 3A 41 51 B2 C6 28 51 24 29 3A 42 24 B2 |"@":AQ..(Q$):B$.|
00002B70: 22 5E 22 3A 41 42 B2 C6 28 42 24 29 3A 46 4C 24 |"^":AB..(B$):FL$|
00002B80: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00002B90: 20 22 00 AD 33 90 F6 50 31 B2 31 3A 50 32 B2 36 | "..3..P1.1:P2.6|
00002BA0: 30 3A 50 33 B2 36 34 3A 57 44 B2 34 30 00 EB 33 |0:P3.64:WD.40..3|
00002BB0: 9F F6 99 22 93 11 11 11 CE CF D4 C5 3A 20 46 55 |..."........: FU|
00002BC0: 4E 43 54 49 4F 4E 20 4B 45 59 53 20 43 48 41 4E |NCTION KEYS CHAN|
00002BD0: 47 45 20 43 4F 4C 4F 55 52 53 2E 2E 2E 22 3A 81 |GE COLOURS...":.|
00002BE0: 54 39 B2 31 A4 31 30 30 30 3A 82 00 16 34 A4 F6 |T9.1.1000:...4..|
00002BF0: 99 3A 20 99 22 11 11 2E 2E 2E 49 4E 49 54 49 41 |.: .".....INITIA|
00002C00: 4C 49 5A 49 4E 47 20 C6 C9 CC C5 2F CD C1 D3 D4 |LIZING ..../....|
00002C10: C5 D2 2E 2E 2E 22 00 2D 34 A9 F6 4C 24 28 31 29 |.....".-4..L$(1)|
00002C20: B2 4C 50 24 3A 4C 24 28 30 29 B2 4C 24 00 61 34 |.LP$:L$(0).L$.a4|
00002C30: AE F6 43 30 B2 32 31 31 3A 4C 4E B2 32 31 34 3A |..C0.211:LN.214:|
00002C40: 56 24 B2 22 12 22 3A 4F 24 B2 22 92 22 3A 52 56 |V$.".":O$.".":RV|
00002C50: 24 28 30 29 B2 4F 24 3A 52 56 24 28 31 29 B2 56 |$(0).O$:RV$(1).V|
00002C60: 24 00 73 34 B8 F6 4C 24 B2 C8 28 4C 24 2C 57 44 |$.s4..L$..(L$,WD|
00002C70: AB 31 29 00 97 34 C2 F6 53 44 24 B2 22 13 11 11 |.1)..4..SD$."...|
00002C80: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002C90: 11 11 11 11 11 11 22 00 B9 34 CC F6 43 52 24 B2 |......"..4..CR$.|
00002CA0: C7 28 31 33 29 3A 50 24 28 31 29 B2 22 11 12 22 |.(13):P$(1).".."|
00002CB0: 3A 50 24 28 30 29 B2 22 22 00 D4 34 D6 F6 50 54 |:P$(0).""..4..PT|
00002CC0: 24 28 31 29 B2 22 22 3A 50 54 24 28 30 29 B2 C7 |$(1)."":PT$(0)..|
00002CD0: 28 31 33 29 00 1E 35 E0 F6 41 31 B2 31 37 3A 41 |(13)..5..A1.17:A|
00002CE0: 32 B2 31 34 35 3A 41 33 B2 31 34 38 3A 41 34 B2 |2.145:A3.148:A4.|
00002CF0: 31 39 3A 41 35 B2 31 34 37 3A 41 36 B2 31 35 37 |19:A5.147:A6.157|
00002D00: 3A 41 37 B2 39 35 3A 41 38 B2 32 30 3A 41 39 B2 |:A7.95:A8.20:A9.|
00002D10: 31 33 3A 41 54 B2 34 34 3A 41 45 B2 35 39 00 3B |13:AT.44:AE.59.;|
00002D20: 35 EA F6 58 24 B2 22 22 3A 81 49 B2 31 A4 35 AA |5..X$."":.I.1.5.|
00002D30: 32 AC 28 57 44 AB 34 30 29 AD 38 00 4B 35 F4 F6 |2.(WD.40).8.K5..|
00002D40: 58 24 B2 58 24 AA 22 1D 22 3A 82 00 64 35 1C F7 |X$.X$.".":..d5..|
00002D50: 42 4C B2 33 35 3A 8D 31 35 31 34 30 3A 42 42 24 |BL.35:.15140:BB$|
00002D60: B2 42 58 24 00 9B 35 58 F7 53 49 44 B2 35 34 32 |.BX$..5X.SID.542|
00002D70: 37 32 3A 97 53 49 44 AA 31 2C 35 30 3A 97 53 49 |72:.SID.1,50:.SI|
00002D80: 44 AA 33 2C 32 30 30 3A 97 53 49 44 AA 35 2C 30 |D.3,200:.SID.5,0|
00002D90: 3A 97 53 49 44 AA 36 2C 32 34 30 00 A9 35 62 F7 |:.SID.6,240..5b.|
00002DA0: 97 53 49 44 AA 32 34 2C 30 00 AF 35 A7 F7 8E 00 |.SID.24,0..5....|
00002DB0: D9 35 0C F8 99 53 44 24 22 91 22 4C 24 53 44 24 |.5...SD$"."L$SD$|
00002DC0: 22 12 1F 53 45 4C 45 43 54 49 4F 4E 92 3F 20 22 |"..SELECTION.? "|
00002DD0: 3B 3A 97 36 34 36 2C 43 33 00 FF 35 0D F8 97 32 |;:.646,C3..5...2|
00002DE0: 30 34 2C 30 3A 8D 32 33 30 30 3A 97 32 30 34 2C |04,0:.2300:.204,|
00002DF0: 31 3A 8B 51 39 B2 30 A7 20 8D 31 36 30 30 30 00 |1:.Q9.0. .16000.|
00002E00: 05 36 0E F8 8E 00 13 36 70 F8 8F 20 45 58 50 4C |.6.....6p.. EXPL|
00002E10: 41 49 4E 00 25 36 71 F8 8B 4E 4D 24 B2 22 22 A7 |AIN.%6q..NM$."".|
00002E20: 36 33 36 31 30 00 5F 36 75 F8 99 22 93 11 11 11 |63610._6u.."....|
00002E30: D7 41 4E 54 20 54 4F 20 53 41 56 45 20 12 22 4E |.ANT TO SAVE ."N|
00002E40: 4D 24 22 20 92 46 49 52 53 54 22 3B 3A 8D 36 33 |M$" .FIRST";:.63|
00002E50: 35 30 31 3A 8B 41 24 B2 22 59 22 A7 35 30 30 00 |501:.A$."Y".500.|
00002E60: 98 36 7A F8 99 22 93 11 11 D7 48 45 52 45 20 49 |.6z.."....HERE I|
00002E70: 53 20 C6 C9 CC C5 2F C5 D8 D0 CC C1 C9 CE 3A 22 |S ..../.......:"|
00002E80: 3B 3A 85 22 20 20 20 44 52 49 56 45 20 20 20 30 |;:." DRIVE 0|
00002E90: 9D 9D 9D 22 3B 44 52 24 00 C2 36 84 F8 97 37 30 |...";DR$..6...70|
00002EA0: 34 2C C5 28 44 52 24 29 3A 93 44 52 24 AA 22 3A |4,.(DR$):.DR$.":|
00002EB0: 46 49 4C 45 2F 45 58 50 4C 41 49 4E 2A 22 2C 38 |FILE/EXPLAIN*",8|
00002EC0: 3A 8A 00 D6 36 D4 F8 99 C2 28 31 39 37 29 3B 3A |:...6....(197);:|
00002ED0: 89 36 33 37 30 30 00 00 00 |.63700... |
....... *********************.9.... PONZ
O/WATERLOO/MAR/84.U.... ****************
*****.[...:.W.... FILE/MASTER...FOR C64.
}...:......56,7.16.12:.55,8.16:..P....G(
14):C1.15:C2.12:C3.0:.53281,C1:.53280,C2
:.646,C3......".MARCH/84":.T.1.500:.:.63
000...... MENU.F...W$.".................
.":.TF$."".TF$." ":NM..1:
NC$."".K....646,C3:.". HIT .SPACEBAR. T
O";......646,C3:."."W$"LOAD .TITLE-FILE"
:.L$.....M$(1)."TYPE.......... IN DATA."
.....M$(2)."DISPLAY................ DATA
.".....M$(3)."RECALL.............. OR SA
VE.......... DATA.".P...M$(4)."PERFORM..
.............. USER SUBROUTINE.".Q...M$(
5)."SORT.......... DATA.".....M$(6)."SEA
RCH.............. DATA.".....M$(7)."CREA
TE OR MODIFY............................
...... TITLE-FILE."......I.1.7:.X$" ."D(
I)".: "M$(I)".":..@."..L$:.X$" .. . H
IT ."Q$". TO QUIT . ":.646,C3...#..SD
$"."L$SD$" . ..
E.=EXPLAIN.":.646,C3...$..16000:PT.0:.60
:.63500...%..Q9.13...,..A$.Q$ . .".WANT
TO QUIT Y...";U9$:.U9$."Y".....-..A$."
E"..63600.....A.E(A$):AA.F(A$):.A.7.14.>
./..H(SD$,2.A.1)X$"......"M$(A):T0.0:.A$
.Q$.13.T.0..AA.32..40000:.54.T.1..A$:T0.
T0.1:.A$."".T0.20.49...2..A$.."".14.B.3.
.H(TF$,1)." ".A.7.W$."..SPACE. AND ..
.":.16100:.16...4..A.100,200,300,40
0,600,700,900...6..2000:.14.&.<..646,C3:
.SD$".......";:.L9.1.WD.2:.".";:.:.".".A
.A..SD$"......DATA FILE =.."FL$" .";:.64
6,C3:.N"RECORDS";.V.B..".........."NC$..
.F..SD$"........TITLE FILE=.."TF$".";:.6
46,C3:.NM.1"TITLES"...K..SD$"...";:.L9.1
.WD.2:.".";:.:."............";...P..646,
C3:....D.. ENTER DATA...I..N..0.120.V.N.
.16100:.".........NEW FILE.......":."..N
AME OF DATA FILE ";NM$.G.S.FL$." .".NM$.
..X..".CURRENT FILE";FL$. ...."..THERE A
RE "N" RECORDS.".S...."..START WITH RECO
RD # 1...";I:.16000:NN.N......I.N.1.I
.NC..16100:.100... ..15000:.A$.Q$.175...
..I.I.1:.I..NC.160.]....".******MAXIMUM
NUMBER OF RECORDS******":."...START NEW
FILE".M....I.N .N.I.1.S.......H.. DISPLA
Y...M.PT.0:FF$."":."..OUTPUT TO PRINTER
N...";A$:.A$."N".210...N.PT.1:."..DOES
THE PRINTER NEED A LINE FEED N...";U9
$...O..L9$."Y".FF$.G(10).6.R..18000:A.E(
A$):.A.215,17000,17500.S.W.T9.0:."...SUP
PRESS TITLES N...";T9$:.".":.T9$."N".T
9.1...X..PT.0..17110......PT.1..4,4:.4..
....I.C1.C2:Z.0:K.0:C.0:SN.SN(I).O....J.
Z.A(K):.P$(PT);...... T9 . .TL$(J)".:";.
.....".";:.PT.0..280......DA$(SN,J)".";:
LD.C(DA$(SN,J)).G...X.L(J).2.LD:.K9.1.X:
." ";:.:.:C.1.C.E....PT.1.WD.40..PT$(C);
:.244.K..........K.KM.Z.A(K).1:K.K.1:.23
0...... FF$......PT.0..260......:.PT.1..
4: 4.C...X.0:PT.0:..Y....B(197).P1.I.C2:
.......B(197).P2........B(197).P3.270...
.........RV$(R(J));:..'.,.. RECALL/SAVE.
`.-.."....1.:RECALL":."..2.:SAVE..":.635
01:A.E(A$):."..".|.... A.1.."...RECALL":
.305.../..".....SAVE":.500.B.1..:."...NA
ME OF DATA FILE";NM$:.16000:N$.NM$.O.2..
N$.Q$.....3..I(N$,1).."+".N$.N$."+"...6.
.".DRIVE 0...";DR$:.16000...;..15,8,15
.5.@..2,8,2,DR$.":".N$.",S,R".K.E..15,E,
EM$,ET$,ES$.P.J..E..0.."..DISK STATUS ."
EM$:.355...O..2,N:.SS.0.."."N" RECORDS".
..T..2,NM.C.Y..I.1.N:.J.0.NM:.2,DA$:.DA$
.SS$.DA$."".X.^.DA$(I,J).DA$:.:....C.FL$
." .".NM$...H. 2: 15...M..I.0.N:SN(I).I:
.:..+.... USER ROUTINE CALCULATIONS.H...
R$.".WORKING ON RECORD ".R....B(705)..12
3..".NO USER SUBROUTINE":.......I.1.N:SN
.SN(I):.R$SN:.W1.0.NM:.N(W1).0.V(W1).E(D
A$(SN,W1)).U....:.55000:.W1.0.NM:.N(W1).
1.450.....V1.V(W1):L1.2:.V1.0.L1.1.....D
A$(SN,W1).J(D(V1),L1,L(W1))...B..:.:..0.
... SAVE TO DISK.\....:."...NAME OF DATA
FILE ";NM$;:.16000......1,0:.Y.1.C(NM$
):.".";:.:.1,NM$: 1:.......NM$.Q$.......
.I(NM$,1).."+".N$.NM$."+".B...FL$." .".N
M$......".DRIVE 0...";DR$:.16000......
".OVERWRITE EXISTING FILE N...";A$:.16
000. ....15,8,15.8....A$."Y".DR$."@".DR$
.U....2,8,2,DR$.":".N$.",S,W".K....15,E,
EM$,ET$,ES$...!..E..0.."..DISK STATUS ."
EM$:.590...&..2,N;CR$;NM;CR$;.A.+..I.1.N
:SN.SN(I):.J.0.NM...0.DA$.DA$(SN,J):.DA$
."".DA$.SS$...:..2,DA$;CR$;...D..:....N.
2: 15:....X.. SORT.:.B..N..1..".****.NO
DATA FILE.****":..K.X..".SORT ON:"...Y.
I3.7.4096.12.256.8.16:I4.7.4096.14.256.1
4.16:I5.7.4096.15.256...Z..I4,0:.I4.1,68
:.I4.2,193.H.{..S.0.NM:."."S".:"FD$(S):.
...|..63500:S.E(A$)...}..S.NM.632.(..K.
7.3.S.(NC.1):KH%.K.256:.I4.4,KH%:.I4.3,K
.256.KH%:.I4.5,N.D...."...SORTING ON "FD
$(S).~....N(S).1..I3.90,131:.I3.132,131:
.I3.91,125:.I3.133,125......N(S).0..I3.9
0,66:.I3.132,66:.I3.91,126:.I3.133,126..
....I3......I9.0.N:SN(I9).B(I5.I9):.:.".
..NOW SAVE SORTED DATA":....... SEARCH..
.F..10000.%.P.. INPUT ROUTINE.5.Z.IN$.""
:N0.0.@...."..";.S....A$:.A$."".740.N...
A.F(A$):.A.47.A.91.775......A.A1.A.A2.A.
A3.A.A4.A.A5.A.A6.735......" .";:.A.A9.S
$.IN$:.A$:..H....IN$."".A.A8.735......A.
A8.N0.N0.1:.". .";:IN$.H(IN$,N0):.735...
...A.44.A$.";".+...." ."A$;:IN$.IN$.A$:N
0.N0.1:.735.<.... TITLE/FILE.Q...."...WH
ERE IS FILE/TITLES":."..DRIVE 0...";DR
$......".....LOADING FILE/TITLES"......D
R$.":FILE/TITLES*",8...P.. KEY GETS...U.
.SD$"."L$SD$BL$SD$X$".HIT .RETURN. TO CO
NTINUE";...Z..A$:.A$.."".2010......A$:.A
$."".2020.-....A$..G(13).2010.3.....H.4.
.A$:.A$.."".2100.\.>..A$:.A$."".2110.P.H
..A$..G(32).2100.V.R........A$:.A$.."".2
200......A$:.A$."".2210......A$.G(13).22
00.......R...Q9.0:.A$:.A$.."".2300......
A$:.A$."".2310......A$.".".C1..(C1.1).(C
1.15):.53281,C1:.2300.D....A$.".".C2..(C
2.1).(C2.15):.53280,C2:.2300.P.)..A$."."
.C3..(C3.1).(C3.15):.646,C3:Q9.1.V......
..'. SEARCH....'S.0...$'MM.NM:HI$."SEARC
H":.19000:K8.I.S..'."....1.:SEARCH FILE
IN C64 "FL$...8'."..2.:SEARCH ALL FILES"
...B'.2200:A1.E(A$):.A1.0.10000. .L'."."
:.S.0.K8.:.V'.FD$(TN(S))"= ";:.720.E.`'.
16000.I.J'S$(S).S$:X(S).C(S$):.:J0.1:II.
0.Z.T'.A1.2..10250...~'.L$....'.I.J0.N:S
8.0:.S.0.K8.C..'.H(DA$(I,TN(S)),X(S)).S$
(S).S8.S8.1....'.:.S8.K8.1 .II.I:I.N....
'.:.II.0.."..NO EXACT MATCH":.L$:..(..'.
II..1.."..NO MORE..":.L$:A$."":..<..'.".
."II:.J.0.NM.N..'.FD$(J);:.280._.D'.DA$(
II,J):....X'.L$:.SD$"."BL$SD$".ANY CHANG
ES?";....'.63501:.A$."Y".I.II:.15000:.10
400.X..'.SD$"."BL$SD$"..CONTINUE SEARCH?
"....'.2200....'.A$."N"......(J0.
II.1:II..1:.".":.10120.%..(. SEARCH ALL
FILES.5..(.50000:.".".A..(.P.1.CN:NM$.NM
$(P):.I(NM$,1).."+".10310.}.#(."..SEARCH
ING ."NM$". "...((N$.NM$:.315...2(II.0:J
0.1...<(.10120:.A$."N".P.CN...F(. P.A.P(
.... (."...REWRITE MODIFIED FILE TO DISK
";:.63501.. .(.A$."N".... .(.500:.. .
:. INPUT ROUTINE.- .:SN.SN(I).B .:.G(14)
:S$.".":.".RECORD"I" *=DELETE RECOR
D".. .:.K.0.NM:.PS$(K)TL$(K)BX$(K);. .:
.DA$(SN,K);:.:K.0:.15200.. .:K.K.(K.0):.
K.NM.15130.. .:IN$.DA$(SN,K):N0.C(IN$):.
PS$(LK)TL$(LK)..!.:.PS$(K)"."TL$(K)"."S$
IN$;:LK.K:."..";.%!.:.A$:.A$."".15035.B!
.:A.F(A$):.A.47.A.91.15095.K!E:.A.A1.A.A
2.A.A3.A.A4.A.A5.A.A6.15030..!O:.A.AB.IN
$.DA$(SN(I.1),K):A.A9:.PS$(K)TL$(K)S$IN$
;.U!T:." .";:.A.A9.DA$(SN,K).H(IN$,L(K))
:K.K.1:.15020..".:.A.A7.DA$(SN,K).H(IN$,
L(K)):K.K.1:.15020..".:.IN$."".A.A8.1503
0.H".:.A.A8.N0.N0.1:.". .";:IN$.H(IN$,N0
):.15030.T".:.A.AQ...M".:.A.42 ..15500:.
15000..".:.N0.L(K).K.K.1:.15020..".;.A.4
4.A$.";".I".;." ."A$;:IN$.IN$.A$:N0.C(IN
$):.N0.L(K).15030..".;DA$(SN,K).H(IN$,L(
K)):K.K.1:.K..NM.15020.$#.;.".RECORD"SN:
.K.0.NM:.PS$(K)TL$(K)BX$(K);.A#.;.DA$(SN
,K);:.:K.0:.15200.X#.;."................
DATA OK?";:.63501:.A$."N"..15000.~#.;...
#$;BX$."....":.Z.1.BL.1:BX$.BX$.".":.:BX
$.BX$."........."..#.;.Z.1.BL.1:BX$.BX$.
"...":.:BX$.BX$."..":.BX$;:...#`;.SD$"..
":.BB$;.1$J;.".."Q$".=QUIT.........."B$"
.=LAST.........";.[$T;."._.BACK.........
.RETURN.=FORWARD":...$.<."...WANT TO DEL
ETE RECORD:(Y/N)..":."."DA$(SN,0):.".";U
9$..$.<.H(U9$,1).."Y"....$ <."..DELETING
....":N.N.1:.U9.I.N:SN(U9).SN(U9.1):.:SN
(U9).SN..$.<...%.>. BEEP.-%.>.SID.24,15:
.SID.4,33:.PP.1.50:.:.SID.4,0.;%.>.SID.2
4,0.A%.>..P%.>.SID.24,15.{%.>.U.1.5:.SID
.4,17:.PP.1.50:.:.SID.4,0:...%.>.SID.24,
0..%.>...%HB. SELECTED TITLES FOR PRINTI
NG.Q%RBMM.NM:HI$."DISPLAY":.19000..%|BK8
.I:.PT.0..17110..%.B.PT.1..4,4:.4..&.B.I
.C1.C2:SN.SN(I).:&.B.L.0.K8:J.TN(L):..X)
P$(PT);:.PT.1..280.U&.B.FD$(J)".";:.PT.0
..280.I&.B.DA$(SN,J)FF$:..|&.B.PT.0..L$:
.260..&BB.:.PT.1..4: 4..&LBX.0:PT.0:...&
VB."....DURING THE DISPLAY:"..&.B."..PRE
SS .SPACE. TO START/STOP"..'.B."..PRESS
.RETURN. TO DISCONTINUE".6'.B.SD$"HIT .S
PACE. TO BEGIN:";:.2100:.".":..J'\D. BOX
ED DISPLAY.]'FDS$.".":.PT.1...Z'PD.17110
:.I.C1.C2:SN.SN(I)..'ZD.".RECORD"I:.K.0.
NM:.PS$(K)TL$(K)BX$(K);.B'.D.DA$(SN,K);:
.:.260:.:..U'PF. DISPLAY MENU..(ZF.:."..
THERE ARE"N" RECORDS.":.".START WITH REC
ORD # 1...";C1.7(DF.16000:.C1.N..16100
:.18000.](NFC2.N:.".END WITH RECORD #
";C2..(SF.".END WITH RECORD # ..";C2:.1
6000:.Y9.1.200:...(XF.C2.N..16100:.18000
.K(.F.L$:."...1.: STANDARD DISPLAY"..).F
."..2.: SELECTED DISPLAY":.PT.0.."..3.:
BOXED DISPLAY"..).F.63500:.16000.3) FA.E
(A$):.A.0.A.3.18050.?).FX.15.PT.E).F..Y)
8J. CHOOSE TITLES..)BJ.".";:.I.0.MM:."."
I".:"TL$(I):TN(I).0:.:I.0:.L$..)LJ.SD$".
.....";:BL.35:.15140.Z)QJ."CHOOSE ."HI$"
. TITLES..........A.=ALL";..)VJ." ......
... ."Q$".=QUIT":.1,0.7*[J.SD$"..";:."TI
TLE # ....";:.1,TN$:.TN$.Q$ .19060.
A*`J.TN$."A"..I.0.NM:TN(I).SN(I):.:.1906
0..*EJ.16000:TN.E(TN$):.TN.MM.19035..*JJ
TN(I).TN:I.I.1:.H(SD$,TN.1)"."TN":"TL$(T
N):.19035.H*TJ 1:I.I.1:...*@.. LOAD TITL
E-FILE..*A..705,1..*E..H(TF$,1).." "....
+J.."..TITLE-FILE NAME";TF$.;+T..".DRIVE
0...";DR$:.16000.H+^..15,8,15.F+H..2,
8,2,DR$.":".TF$.",S,R".|+R..15,E,EM$,ET$
,ES$..+|..E..0.."..DISK STATUS ."EM$: 2:
15:.2000:..A+...2,EN:.EN.0.40070..+...Y
.1.EN:.2,EQ$(Y):.:.B(705).1.60000..,...2
,NC:. MAX # ENTRIES.1,..NC$."(".I(" ".
D(NC),3)." MAX)":ZO$.G(0).N,...2,NM:. NU
MBER OF TITLES.F,...2,LL:. LINE LENGTH.~
,...2,KM:. TITLES/LINE.B,... TL$(NM),FD$
(NM),SN(NC),I(2.NC),L(NM),N(NM),V(NM),SV
(NM),K(NM)..,... DA$(NC,NM),TN(NM),S$(NM
),PS$(NM),R(NM),BX$(NM),X(NM). -...I.0.N
M:.2,R(I):DA$(0,I).ZO$:..P-...I.0.NM:.2,
TL$(I):.2,FD$(I):.2,L(I):.2,N(I).R-...2,
PS$(I):.:.K.0.KM:.2,A(K):...-.. 2: 15:."
. .TITLES.: .A.=ALPHABETIC .N.=NUMERIC""
.X-..RV$(0).".":RV$(1).".":AL$(1)."A":AL
$(0)."N"..-...I.0.NC:SN(I).I:.:S$.".".'.
B..K.0.NM:.PS$(K)RV$(R(K))TL$(K)RV$(0);:
BL.L(K).H.L..15140:.AL$(N(K)):BX$(K).BX$
.P.V..:..E.PC. GET FILE NAMES.X.ZCB.30:A
N.1:CN.0...DC.".DRIVE 0...";DR$:.16000
.E.NC.15,8,15:.".FILES ON DISK:DRIVE "DR
$:.L$...XC.15,"M-E"G(212)G(237)....C.2,8
,0,"$".DR$.":*=S"../.C.#2,A$:.#2,A$:I$."
".//.C.B9$:.ST..0.B9$.."".50200.A/ C.A.1
.B:.#2,A$.T/.C.A$."".A$.G(0).U/.CI$.I$.A
$:.:J$.I$:.AN.1.50190../.CI$.J(I$,8)../H
CLF$.H(I$,1)../RC.LF$.G(34).LF$." ".I$.J
(I$,2):.50120.L/.CJ.1:II$.""..0.CJ$.J(I$
,J,1):.J$..G(34).J.J.1:II$.II$.J$:.J.17.
50150..0.C.J.16.50200.E0.C."."II$:.I(II$
,1).."+".."."BL$:.".";:.50190.]0.DCN.CN.
1:NM$(CN).II$.X0.DAN.0:I$."":B.32:.50070
..0.D 2: 15:...0"D...0XV. USER SUBROUTIN
E..0.Z..Z0X.TF$."":L1.B(706):.Y.1.L1:TF$
.TF$.G(B(706.Y)):...0..DR$.D(B(706.Y)):.
40030:.705,0:...1`. 2: 15..1D.L1.C(TF$).
H1E..Y.1.L1:.706.Y,F(J(TF$,Y,1)):.:.706.
Y,E(DR$).W1J..198,9:.I.0.8:.631.I,13:.:.
706,L1:FF.55000..1T.."....";:.Y.1.EN:.FF
.Y;EQ$(Y):.:.".RUN."..1~.."..."L$:.".USE
R SUBROUTINE...";:.705,123:.I9.1.900:.:.
..1... INITIALIZE..2...".":.B(31872).32.
63010.B2..."....LOAD"G(34)"FILE/BOOT"G(3
4)",8":."....RUN."._2...198,2:.631,13:.6
32,13:..V2"..B(705).123..59000..2$.NF.50
:. MAX NUMBER OF FILES..2'.NL.7:. MAX NU
MBER OF LINES.C2,.. NM$(NF)..2R.L$."....
..................................."./3|
.LP$.L$.L$:BL$."
".X3..DT$."":.I.1.39:DT$.D
T$.".":.:SS$." "..3..Q$."@":AQ.F(Q$):B$.
"^":AB.F(B$):FL$." "..3..P
1.1:P2.60:P3.64:WD.40..3..."....NOTE: FU
NCTION KEYS CHANGE COLOURS...":.T9.1.100
0:...4...: .".....INITIALIZING FILE/MAST
ER...".-4..L$(1).LP$:L$(0).L$.A4..C0.211
:LN.214:V$.".":O$.".":RV$(0).O$:RV$(1).V
$.S4..L$.H(L$,WD.1)..4B.SD$."...........
.............."..4L.CR$.G(13):P$(1).".."
:P$(0)."".T4V.PT$(1)."":PT$(0).G(13)..5.
.A1.17:A2.145:A3.148:A4.19:A5.147:A6.157
:A7.95:A8.20:A9.13:AT.44:AE.59.;5..X$.""
:.I.1.5.2.(WD.40).8.K5..X$.X$.".":..D5..
BL.35:.15140:BB$.BX$..5X.SID.54272:.SID.
1,50:.SID.3,200:.SID.5,0:.SID.6,240..5B.
.SID.24,0..5....Y5...SD$"."L$SD$"..SELEC
TION.? ";:.646,C3..5...204,0:.2300:.204,
1:.Q9.0. .16000..6.....6P.. EXPLAIN.%6Q.
.NM$."".63610._6U.."....WANT TO SAVE ."N
M$" .FIRST";:.63501:.A$."Y".500..6Z.."..
.WHERE IS FILE/EXPLAIN:";:." DRIVE 0
...";DR$.B6...704,E(DR$):.DR$.":FILE/EXP
LAIN*",8:..V6T..B(197);:.63700...
> CLICK IMAGE PREVIEW FOR FULL MODAL