FILE/MASTER
FILE INFORMATION
FILENAME(S): FILE/MASTER
FILE TYPE(S): PRG
FILE SIZE: 10.9K
FIRST SEEN: 2025-11-30 18:13:15
APPEARS ON: 1 disk(s)
FILE HASH
2993c497b0716a49a7e430455a83b7fa04ed5bca621b0d2fddebe1b1ed1cc349
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LCH0538 V3 5 AT | FILE/MASTER | PRG | Sailor, Ganheden | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 8F 00 0D 08 01 00 8F 00 28 08 |..............(.|
00000010: 0A 00 97 35 36 2C 37 AC 31 36 AA 31 32 3A 97 35 |...56,7.16.12:.5|
00000020: 35 2C 38 AC 31 36 3A 9C 00 53 08 0B 00 99 C7 28 |5,8.16:..S.....(|
00000030: 31 34 29 3A 97 35 33 32 38 31 2C 31 35 3A 97 35 |14):.53281,15:.5|
00000040: 33 32 38 30 2C 31 32 3A 99 22 90 22 3A 8D 36 33 |3280,12:.".":.63|
00000050: 30 30 30 00 59 08 0C 00 3A 00 64 08 0D 00 8F 20 |000.Y...:.d.... |
00000060: 4D 45 4E 55 00 A5 08 0E 00 57 24 B2 22 1D 1D 1D |MENU.....W$."...|
00000070: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
00000080: 3A 8B 54 46 24 B2 22 22 A7 54 46 24 B2 22 A0 A0 |:.TF$."".TF$."..|
00000090: A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 22 3A |..............":|
000000A0: 4E 4D B2 AB 31 00 C2 08 0F 00 99 22 93 20 20 48 |NM..1......". H|
000000B0: 49 54 20 12 D3 D0 C1 C3 C5 C2 C1 D2 92 20 54 4F |IT .......... TO|
000000C0: 22 3B 00 E3 08 10 00 99 22 13 22 57 24 22 4C 4F |";......"."W$"LO|
000000D0: 41 44 20 12 D4 C9 D4 CC C5 2D C6 C9 CC C5 22 3A |AD ......-....":|
000000E0: 99 4C 24 00 07 09 11 00 4D 24 28 31 29 B2 22 D4 |.L$.....M$(1).".|
000000F0: 59 50 45 11 9D 9D 9D 9D B8 B8 B8 B8 91 20 49 4E |YPE.......... IN|
00000100: 20 44 41 54 41 2E 22 00 31 09 12 00 4D 24 28 32 | DATA.".1...M$(2|
00000110: 29 B2 22 C4 49 53 50 4C 41 59 11 9D 9D 9D 9D 9D |).".ISPLAY......|
00000120: 9D 9D B8 B8 B8 B8 B8 B8 B8 91 20 44 41 54 41 2E |.......... DATA.|
00000130: 22 00 6A 09 13 00 4D 24 28 33 29 B2 22 D2 45 43 |".j...M$(3).".EC|
00000140: 41 4C 4C 11 9D 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 |ALL.............|
00000150: 91 20 4F 52 20 D3 41 56 45 11 9D 9D 9D 9D B8 B8 |. OR .AVE.......|
00000160: B8 B8 91 20 44 41 54 41 2E 22 00 9F 09 14 00 4D |... DATA.".....M|
00000170: 24 28 34 29 B2 22 D0 45 52 46 4F 52 4D 11 9D 9D |$(4).".ERFORM...|
00000180: 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 B8 91 20 D5 53 |............. .S|
00000190: 45 52 20 D3 55 42 52 4F 55 54 49 4E 45 2E 22 00 |ER .UBROUTINE.".|
000001A0: C0 09 15 00 4D 24 28 35 29 B2 22 D3 4F 52 54 11 |....M$(5).".ORT.|
000001B0: 9D 9D 9D 9D B8 B8 B8 B8 91 20 44 41 54 41 2E 22 |......... DATA."|
000001C0: 00 E7 09 16 00 4D 24 28 36 29 B2 22 D3 45 41 52 |.....M$(6).".EAR|
000001D0: 43 48 11 9D 9D 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 91 |CH..............|
000001E0: 20 44 41 54 41 2E 22 00 32 0A 17 00 4D 24 28 37 | DATA.".2...M$(7|
000001F0: 29 B2 22 C3 52 45 41 54 45 20 4F 52 20 CD 4F 44 |).".REATE OR .OD|
00000200: 49 46 59 11 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |IFY.............|
00000210: 9D 9D 9D 9D B8 B8 B8 B8 B8 B8 1D 1D 1D 1D B8 B8 |................|
00000220: B8 B8 B8 B8 91 20 D4 C9 D4 CC C5 2D C6 C9 CC C5 |..... .....-....|
00000230: 2E 22 00 58 0A 19 00 81 49 B2 31 A4 37 3A 99 58 |.".X....I.1.7:.X|
00000240: 24 22 20 12 22 C4 28 49 29 22 92 3A 20 22 4D 24 |$" .".(I)".: "M$|
00000250: 28 49 29 22 11 22 3A 82 00 88 0A 22 00 99 4C 24 |(I)".":...."..L$|
00000260: 3A 99 58 24 22 20 1C 12 20 20 20 20 92 20 48 49 |:.X$" .. . HI|
00000270: 54 20 12 22 51 24 22 92 20 54 4F 20 D1 D5 C9 D4 |T ."Q$". TO ....|
00000280: 20 12 20 20 20 20 90 22 00 C5 0A 23 00 99 53 44 | . ."...#..SD|
00000290: 24 22 91 22 4C 24 53 44 24 22 20 20 20 20 20 20 |$"."L$SD$" |
000002A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002B0: 20 20 20 1D 20 20 1C 12 45 92 3D 45 58 50 4C 41 | . ..E.=EXPLA|
000002C0: 49 4E 13 90 22 00 E0 0A 24 00 8D 31 36 30 30 30 |IN.."...$..16000|
000002D0: 3A 50 54 B2 30 3A 8D 36 30 3A 8D 36 33 35 30 30 |:PT.0:.60:.63500|
000002E0: 00 F3 0A 2C 00 8B 41 24 B2 51 24 20 A7 20 36 33 |...,..A$.Q$ . 63|
000002F0: 37 31 30 00 06 0B 2D 00 8B 41 24 B2 22 45 22 A7 |710...-..A$."E".|
00000300: 8D 36 33 36 30 30 00 23 0B 2E 00 41 B2 C5 28 41 |.63600.#...A..(A|
00000310: 24 29 3A 41 41 B2 C6 28 41 24 29 3A 8B 41 B1 37 |$):AA..(A$):.A.7|
00000320: A7 31 34 00 49 0B 2F 00 99 C8 28 53 44 24 2C 32 |.14.I./...(SD$,2|
00000330: AC 41 AA 31 29 58 24 22 1D 1D 1D 1D 1D 12 22 4D |.A.1)X$"......"M|
00000340: 24 28 41 29 3A 54 30 B2 30 00 5F 0B 30 00 8B 41 |$(A):T0.0._.0..A|
00000350: 41 B2 33 32 A7 8D 34 30 30 30 30 3A 89 35 34 00 |A.32..40000:.54.|
00000360: 7F 0B 31 00 A1 41 24 3A 54 30 B2 54 30 AA 31 3A |..1..A$:T0.T0.1:|
00000370: 8B 41 24 B2 22 22 AF 54 30 B3 32 30 A7 34 39 00 |.A$."".T0.20.49.|
00000380: 8E 0B 32 00 8B 41 24 B3 B1 22 22 A7 31 34 00 CC |..2..A$.."".14..|
00000390: 0B 33 00 8B C8 28 54 46 24 2C 31 29 B2 22 A0 22 |.3...(TF$,1)."."|
000003A0: AF 41 B3 37 A7 57 24 B2 22 12 D3 D0 C1 C3 C5 92 |.A.7.W$.".......|
000003B0: 20 41 4E 44 20 20 20 1C 12 20 20 20 20 20 20 90 | AND .. .|
000003C0: 22 3A 8D 31 36 31 30 30 3A 89 31 36 00 EF 0B 34 |":.16100:.16...4|
000003D0: 00 91 41 8D 31 30 30 2C 32 30 30 2C 33 30 30 2C |..A.100,200,300,|
000003E0: 34 30 30 2C 36 30 30 2C 37 30 30 2C 39 30 30 00 |400,600,700,900.|
000003F0: FD 0B 36 00 8D 32 30 30 30 3A 89 31 34 00 28 0C |..6..2000:.14.(.|
00000400: 3C 00 99 53 44 24 22 91 91 91 91 91 91 B0 22 3B |<..SD$".......";|
00000410: 3A 81 4C 39 B2 31 A4 57 44 AB 32 3A 99 22 C0 22 |:.L9.1.WD.2:."."|
00000420: 3B 3A 82 3A 99 22 AE 22 00 56 0C 41 00 99 53 44 |;:.:.".".V.A..SD|
00000430: 24 22 91 91 91 91 91 DD 44 41 54 41 20 46 49 4C |$"......DATA FIL|
00000440: 45 20 3D 12 22 46 4C 24 22 20 92 22 4E 22 45 4E |E =."FL$" ."N"EN|
00000450: 54 52 49 45 53 22 00 87 0C 46 00 99 53 44 24 22 |TRIES"...F..SD$"|
00000460: 91 91 91 91 DD 11 9D DD 54 49 54 4C 45 20 46 49 |........TITLE FI|
00000470: 4C 45 3D 12 22 54 46 24 22 92 22 4E 4D AA 31 22 |LE=."TF$"."NM.1"|
00000480: 54 49 54 4C 45 53 22 00 BA 0C 4B 00 99 53 44 24 |TITLES"...K..SD$|
00000490: 22 91 91 AD 22 3B 3A 81 4C 39 B2 31 A4 57 44 AB |"...";:.L9.1.WD.|
000004A0: 32 3A 99 22 C0 22 3B 3A 82 3A 99 22 BD 91 91 91 |2:.".";:.:."....|
000004B0: 9D DD 11 9D DD 11 9D DD 22 3B 00 C0 0C 50 00 8E |........";...P..|
000004C0: 00 D1 0C 64 00 8F 20 45 4E 54 45 52 20 44 41 54 |...d.. ENTER DAT|
000004D0: 41 00 E7 0C 69 00 46 36 B2 B8 28 30 29 3A 8B 4E |A...i.F6..(0):.N|
000004E0: B3 B1 30 A7 31 32 30 00 2A 0D 6E 00 8D 31 36 31 |..0.120.*.n..161|
000004F0: 30 30 3A 99 22 93 A6 A6 A6 A6 A6 A6 A6 12 4E 45 |00:.".........NE|
00000500: 57 20 46 49 4C 45 A6 A6 A6 A6 A6 A6 A6 22 3A 85 |W FILE.......":.|
00000510: 22 11 11 CE 41 4D 45 20 4F 46 20 C4 C1 D4 C1 20 |"...AME OF .... |
00000520: C6 C9 CC C5 20 22 3B 4E 4D 24 00 3B 0D 73 00 46 |.... ";NM$.;.s.F|
00000530: 4C 24 B2 22 20 12 22 AA 4E 4D 24 00 54 0D 78 00 |L$." .".NM$.T.x.|
00000540: 99 22 93 43 55 52 52 45 4E 54 20 46 49 4C 45 22 |.".CURRENT FILE"|
00000550: 3B 46 4C 24 00 74 0D 82 00 99 22 11 11 54 48 45 |;FL$.t...."..THE|
00000560: 52 45 20 41 52 45 20 22 4E 22 20 45 4E 54 52 49 |RE ARE "N" ENTRI|
00000570: 45 53 2E 22 00 A6 0D 8C 00 85 22 11 11 D3 54 41 |ES."......"...TA|
00000580: 52 54 20 57 49 54 48 20 45 4E 54 52 59 20 23 20 |RT WITH ENTRY # |
00000590: 20 20 20 31 9D 9D 9D 22 3B 49 3A 8D 31 36 30 30 | 1...";I:.1600|
000005A0: 30 3A 4E 4E B2 4E 00 C6 0D 96 00 8B 49 B3 31 B0 |0:NN.N......I.1.|
000005B0: 49 B1 4E AA 31 B0 49 B1 4E 43 A7 8D 31 36 31 30 |I.N.1.I.NC..1610|
000005C0: 30 3A 89 31 30 30 00 DC 0D A0 00 8D 31 35 30 30 |0:.100......1500|
000005D0: 30 3A 8B 41 24 B2 51 24 A7 31 37 35 00 F1 0D A5 |0:.A$.Q$.175....|
000005E0: 00 49 B2 49 AA 31 3A 8B 49 B3 B2 4E 43 A7 31 36 |.I.I.1:.I..NC.16|
000005F0: 30 00 34 0E AA 00 99 22 93 2A 2A 2A 2A 2A 2A 4D |0.4....".******M|
00000600: 41 58 49 4D 55 4D 20 4E 55 4D 42 45 52 20 4F 46 |AXIMUM NUMBER OF|
00000610: 20 45 4E 54 52 49 45 53 2A 2A 2A 2A 2A 2A 22 3A | ENTRIES******":|
00000620: 99 22 11 11 12 53 54 41 52 54 20 4E 45 57 20 46 |."...START NEW F|
00000630: 49 4C 45 22 00 44 0E AF 00 8B 49 B1 4E 20 A7 4E |ILE".D....I.N .N|
00000640: B2 49 AB 31 00 4A 0E B4 00 8E 00 58 0E C8 00 8F |.I.1.J.....X....|
00000650: 20 44 49 53 50 4C 41 59 00 8F 0E CD 00 50 54 B2 | DISPLAY.....PT.|
00000660: 30 3A 85 22 93 11 4F 55 54 50 55 54 20 54 4F 20 |0:."..OUTPUT TO |
00000670: 50 52 49 4E 54 45 52 20 20 20 4E 9D 9D 9D 22 3B |PRINTER N...";|
00000680: 41 24 3A 8B 41 24 B2 22 59 22 A7 50 54 B2 31 00 |A$:.A$."Y".PT.1.|
00000690: B5 0E D2 00 8D 31 38 30 30 30 3A 41 B2 C5 28 41 |.....18000:A..(A|
000006A0: 24 29 3A 91 41 89 32 31 35 2C 31 37 30 30 30 2C |$):.A.215,17000,|
000006B0: 31 37 35 30 30 00 C6 0E D7 00 8B 50 54 B2 30 A7 |17500......PT.0.|
000006C0: 8D 31 37 31 31 30 00 D8 0E DC 00 8B 50 54 B2 31 |.17110......PT.1|
000006D0: A7 9F 34 2C 34 3A 9D 34 00 FA 0E E1 00 81 49 B2 |..4,4:.4......I.|
000006E0: 43 31 A4 43 32 3A 5A B2 30 3A 4B B2 30 3A 43 B2 |C1.C2:Z.0:K.0:C.|
000006F0: 30 3A 53 4E B2 53 4E 28 49 29 00 11 0F E6 00 81 |0:SN.SN(I)......|
00000700: 4A B2 5A A4 41 28 4B 29 3A 99 50 24 28 50 54 29 |J.Z.A(K):.P$(PT)|
00000710: 3B 00 2D 0F EB 00 99 54 4C 24 28 4A 29 22 92 3A |;.-....TL$(J)".:|
00000720: 22 3B 3A 8B 50 54 B2 30 A7 8D 32 38 30 00 50 0F |";:.PT.0..280.P.|
00000730: F0 00 99 44 41 24 28 53 4E 2C 4A 29 22 92 22 3B |...DA$(SN,J)".";|
00000740: 3A 4C 44 B2 C3 28 44 41 24 28 53 4E 2C 4A 29 29 |:LD..(DA$(SN,J))|
00000750: 00 78 0F F1 00 58 B2 4C 28 4A 29 AA 32 AB 4C 44 |.x...X.L(J).2.LD|
00000760: 3A 81 4B 39 B2 31 A4 58 3A 99 22 20 22 3B 3A 82 |:.K9.1.X:." ";:.|
00000770: 3A 82 3A 43 B2 31 AB 43 00 96 0F F2 00 8B 50 54 |:.:C.1.C......PT|
00000780: B2 31 AF 57 44 B2 34 30 A7 99 50 54 24 28 43 29 |.1.WD.40..PT$(C)|
00000790: 3B 3A 89 32 34 34 00 9C 0F F3 00 99 00 BA 0F F4 |;:.244..........|
000007A0: 00 8B 4B B3 4B 4D A7 5A B2 41 28 4B 29 AA 31 3A |..K.KM.Z.A(K).1:|
000007B0: 4B B2 4B AA 31 3A 89 32 33 30 00 C6 0F F5 00 99 |K.K.1:.230......|
000007C0: 4C 24 28 50 54 29 00 D5 0F F6 00 8B 50 54 B2 30 |L$(PT)......PT.0|
000007D0: A7 8D 32 36 30 00 E7 0F FA 00 82 3A 8B 50 54 B2 |..260......:.PT.|
000007E0: 31 A7 98 34 3A A0 34 00 F6 0F FF 00 58 B2 30 3A |1..4:.4.....X.0:|
000007F0: 50 54 B2 30 3A 8E 00 0C 10 04 01 8B C2 28 31 39 |PT.0:........(19|
00000800: 37 29 B2 50 31 A7 49 B2 43 32 3A 8E 00 1D 10 09 |7).P1.I.C2:.....|
00000810: 01 8B C2 28 31 39 37 29 B2 50 32 A7 8E 00 30 10 |...(197).P2...0.|
00000820: 0E 01 8B C2 28 31 39 37 29 B2 50 33 A7 32 37 30 |....(197).P3.270|
00000830: 00 36 10 13 01 8E 00 48 10 18 01 99 52 56 24 28 |.6.....H....RV$(|
00000840: 52 28 4A 29 29 3B 3A 8E 00 5F 10 2C 01 8F 20 52 |R(J));:.._.,.. R|
00000850: 45 43 41 4C 4C 20 46 52 4F 4D 20 44 49 53 4B 00 |ECALL FROM DISK.|
00000860: 97 10 2D 01 99 22 93 11 11 12 D2 92 45 43 41 4C |..-.."......ECAL|
00000870: 4C 20 20 4F 52 20 12 D3 92 41 56 45 1D 1D 22 3B |L OR ...AVE..";|
00000880: 3A 8D 36 33 35 30 31 3A 99 41 24 3A 8B 41 24 B2 |:.63501:.A$:.A$.|
00000890: 22 53 22 A7 35 30 30 00 CE 10 31 01 99 3A 85 22 |"S".500...1..:."|
000008A0: 11 11 11 CE 41 4D 45 20 4F 46 20 C4 C1 D4 C1 20 |....AME OF .... |
000008B0: C6 C9 CC C5 20 20 20 A0 9D 9D 9D 22 3B 4E 4D 24 |.... ....";NM$|
000008C0: 3A 8D 31 36 30 30 30 3A 4E 24 B2 4E 4D 24 00 EA |:.16000:N$.NM$..|
000008D0: 10 32 01 8B C9 28 4E 24 2C 31 29 B3 B1 22 2B 22 |.2...(N$,1).."+"|
000008E0: A7 4E 24 B2 4E 24 AA 22 2B 22 00 F6 10 36 01 44 |.N$.N$."+"...6.D|
000008F0: 52 24 B2 22 30 22 00 03 11 3B 01 9F 31 35 2C 38 |R$."0"...;..15,8|
00000900: 2C 31 35 00 20 11 40 01 9F 32 2C 38 2C 32 2C 44 |,15. .@..2,8,2,D|
00000910: 52 24 AA 22 3A 22 AA 4E 24 AA 22 2C 53 2C 52 22 |R$.":".N$.",S,R"|
00000920: 00 36 11 45 01 84 31 35 2C 45 2C 45 4D 24 2C 45 |.6.E..15,E,EM$,E|
00000930: 54 24 2C 45 53 24 00 5B 11 4A 01 8B 45 B3 B1 30 |T$,ES$.[.J..E..0|
00000940: A7 99 22 11 11 44 49 53 4B 20 53 54 41 54 55 53 |.."..DISK STATUS|
00000950: 20 12 22 45 4D 24 3A 89 33 35 35 00 7A 11 4F 01 | ."EM$:.355.z.O.|
00000960: 84 32 2C 4E 3A 8B 53 53 B2 30 A7 99 22 11 22 4E |.2,N:.SS.0.."."N|
00000970: 22 20 45 4E 54 52 49 45 53 22 00 84 11 54 01 84 |" ENTRIES"...T..|
00000980: 32 2C 4E 4D 00 AE 11 59 01 81 49 B2 31 A4 4E 3A |2,NM...Y..I.1.N:|
00000990: 81 4A B2 30 A4 4E 4D 3A 84 32 2C 44 41 24 3A 8B |.J.0.NM:.2,DA$:.|
000009A0: 44 41 24 B2 53 53 24 A7 44 41 24 B2 22 22 00 C3 |DA$.SS$.DA$.""..|
000009B0: 11 5E 01 44 41 24 28 49 2C 4A 29 B2 44 41 24 3A |.^.DA$(I,J).DA$:|
000009C0: 82 3A 82 00 D4 11 63 01 46 4C 24 B2 22 20 12 22 |.:....c.FL$." ."|
000009D0: AA 4E 4D 24 00 DF 11 68 01 A0 32 3A A0 31 35 00 |.NM$...h..2:.15.|
000009E0: F7 11 6D 01 81 49 B2 30 A4 4E 4D 3A 53 4E 28 49 |..m..I.0.NM:SN(I|
000009F0: 29 B2 49 3A 82 3A 8E 00 17 12 90 01 8F 20 55 53 |).I:.:....... US|
00000A00: 45 52 20 52 4F 55 54 49 4E 45 20 43 41 4C 43 55 |ER ROUTINE CALCU|
00000A10: 4C 41 54 49 4F 4E 53 00 33 12 91 01 52 24 B2 22 |LATIONS.3...R$."|
00000A20: 93 D7 4F 52 4B 49 4E 47 20 4F 4E 20 45 4E 54 52 |..ORKING ON ENTR|
00000A30: 59 20 22 00 73 12 95 01 81 49 B2 31 A4 4E 3A 53 |Y ".s....I.1.N:S|
00000A40: 4E B2 53 4E 28 49 29 3A 99 52 24 53 4E 3A 81 57 |N.SN(I):.R$SN:.W|
00000A50: 31 B2 30 A4 4E 4D 3A 8B 4E 28 57 31 29 B2 30 A7 |1.0.NM:.N(W1).0.|
00000A60: 56 28 57 31 29 B2 C5 28 44 41 24 28 53 4E 2C 57 |V(W1)..(DA$(SN,W|
00000A70: 31 29 29 00 79 12 96 01 82 00 9A 12 9A 01 8D 35 |1)).y..........5|
00000A80: 35 30 30 30 3A 81 57 31 B2 30 A4 4E 4D 3A 8B 4E |5000:.W1.0.NM:.N|
00000A90: 28 57 31 29 B2 31 A7 34 35 30 00 B7 12 A4 01 56 |(W1).1.450.....V|
00000AA0: 31 B2 56 28 57 31 29 3A 4C 31 B2 32 3A 8B 56 31 |1.V(W1):L1.2:.V1|
00000AB0: B3 30 A7 4C 31 B2 31 00 D8 12 AE 01 44 41 24 28 |.0.L1.1.....DA$(|
00000AC0: 53 4E 2C 57 31 29 B2 CA 28 C4 28 56 31 29 2C 4C |SN,W1)..(.(V1),L|
00000AD0: 31 2C 4C 28 57 31 29 29 00 E2 12 C2 01 82 3A 82 |1,L(W1))......:.|
00000AE0: 3A 8E 00 F5 12 F4 01 8F 20 53 41 56 45 20 54 4F |:....... SAVE TO|
00000AF0: 20 44 49 53 4B 00 26 13 FE 01 99 3A 99 22 11 11 | DISK.&....:."..|
00000B00: 11 CE 41 4D 45 20 4F 46 20 C4 C1 D4 C1 20 C6 C9 |..AME OF .... ..|
00000B10: CC C5 20 20 22 3B 4E 4D 24 3B 3A 8D 31 36 30 30 |.. ";NM$;:.1600|
00000B20: 30 3A 9F 31 2C 30 00 4A 13 FF 01 81 59 B2 31 A4 |0:.1,0.J....Y.1.|
00000B30: C3 28 4E 4D 24 29 3A 99 22 9D 22 3B 3A 82 3A 84 |.(NM$):.".";:.:.|
00000B40: 31 2C 4E 4D 24 3A A0 31 3A 99 00 68 13 01 02 8B |1,NM$:.1:..h....|
00000B50: C9 28 4E 4D 24 2C 31 29 B3 B1 22 2B 22 A7 4E 24 |.(NM$,1).."+".N$|
00000B60: B2 4E 4D 24 AA 22 2B 22 00 79 13 02 02 46 4C 24 |.NM$."+".y...FL$|
00000B70: B2 22 20 12 22 AA 4E 4D 24 00 85 13 03 02 44 52 |." .".NM$.....DR|
00000B80: 24 B2 22 30 22 00 B6 13 08 02 85 22 11 CF 56 45 |$."0"......"..VE|
00000B90: 52 57 52 49 54 45 20 45 58 49 53 54 49 4E 47 20 |RWRITE EXISTING |
00000BA0: 46 49 4C 45 20 20 20 4E 9D 9D 9D 22 3B 41 24 3A |FILE N...";A$:|
00000BB0: 8D 31 36 30 30 30 00 C3 13 0D 02 9F 31 35 2C 38 |.16000......15,8|
00000BC0: 2C 31 35 00 DB 13 12 02 8B 41 24 B2 22 59 22 A7 |,15......A$."Y".|
00000BD0: 44 52 24 B2 22 40 22 AA 44 52 24 00 F8 13 17 02 |DR$."@".DR$.....|
00000BE0: 9F 32 2C 38 2C 32 2C 44 52 24 AA 22 3A 22 AA 4E |.2,8,2,DR$.":".N|
00000BF0: 24 AA 22 2C 53 2C 57 22 00 0E 14 1C 02 84 31 35 |$.",S,W"......15|
00000C00: 2C 45 2C 45 4D 24 2C 45 54 24 2C 45 53 24 00 33 |,E,EM$,ET$,ES$.3|
00000C10: 14 21 02 8B 45 B3 B1 30 A7 99 22 11 11 44 49 53 |.!..E..0.."..DIS|
00000C20: 4B 20 53 54 41 54 55 53 20 12 22 45 4D 24 3A 89 |K STATUS ."EM$:.|
00000C30: 35 39 30 00 48 14 26 02 98 32 2C 4E 3B 43 52 24 |590.H.&..2,N;CR$|
00000C40: 3B 4E 4D 3B 43 52 24 3B 00 64 14 2B 02 81 49 B2 |;NM;CR$;.d.+..I.|
00000C50: 31 A4 4E 3A 53 4E B2 53 4E 28 49 29 3A 81 4A B2 |1.N:SN.SN(I):.J.|
00000C60: 30 A4 4E 4D 00 86 14 30 02 44 41 24 B2 44 41 24 |0.NM...0.DA$.DA$|
00000C70: 28 53 4E 2C 4A 29 3A 8B 44 41 24 B2 22 22 A7 44 |(SN,J):.DA$."".D|
00000C80: 41 24 B2 53 53 24 00 96 14 3A 02 98 32 2C 44 41 |A$.SS$...:..2,DA|
00000C90: 24 3B 43 52 24 3B 00 9E 14 44 02 82 3A 82 00 AB |$;CR$;...D..:...|
00000CA0: 14 4E 02 A0 32 3A A0 31 35 3A 8E 00 B6 14 58 02 |.N..2:.15:....X.|
00000CB0: 8F 20 53 4F 52 54 00 DD 14 62 02 8B 4E B3 B2 31 |. SORT...b..N..1|
00000CC0: A7 99 22 93 2A 2A 2A 2A 12 4E 4F 20 44 41 54 41 |..".****.NO DATA|
00000CD0: 20 46 49 4C 45 92 2A 2A 2A 2A 22 3A 8E 00 EE 14 | FILE.****":....|
00000CE0: 78 02 99 22 93 53 4F 52 54 20 4F 4E 3A 22 00 30 |x..".SORT ON:".0|
00000CF0: 15 79 02 49 33 B2 37 AC 34 30 39 36 AA 31 32 AC |.y.I3.7.4096.12.|
00000D00: 32 35 36 AA 38 AC 31 36 3A 49 34 B2 37 AC 34 30 |256.8.16:I4.7.40|
00000D10: 39 36 AA 31 34 AC 32 35 36 AA 31 34 AC 31 36 3A |96.14.256.14.16:|
00000D20: 49 35 B2 37 AC 34 30 39 36 AA 31 35 AC 32 35 36 |I5.7.4096.15.256|
00000D30: 00 4D 15 7A 02 97 49 34 2C 30 3A 97 49 34 AA 31 |.M.z..I4,0:.I4.1|
00000D40: 2C 36 38 3A 97 49 34 AA 32 2C 31 39 33 00 6B 15 |,68:.I4.2,193.k.|
00000D50: 7B 02 81 53 B2 30 A4 4E 4D 3A 99 22 12 22 53 22 |{..S.0.NM:."."S"|
00000D60: 92 3A 22 46 44 24 28 53 29 3A 82 00 7E 15 7C 02 |.:"FD$(S):..~.|.|
00000D70: 8D 36 33 35 30 30 3A 53 B2 C5 28 41 24 29 00 8C |.63500:S..(A$)..|
00000D80: 15 7D 02 8B 53 B1 4E 4D A7 36 33 32 00 CB 15 7F |.}..S.NM.632....|
00000D90: 02 4B B2 37 AA 33 AC 53 AC 28 4E 43 AA 31 29 3A |.K.7.3.S.(NC.1):|
00000DA0: 4B 48 25 B2 4B AD 32 35 36 3A 97 49 34 AA 34 2C |KH%.K.256:.I4.4,|
00000DB0: 4B 48 25 3A 97 49 34 AA 33 2C 4B AB 32 35 36 AC |KH%:.I4.3,K.256.|
00000DC0: 4B 48 25 3A 97 49 34 AA 35 2C 4E 00 E7 15 80 02 |KH%:.I4.5,N.....|
00000DD0: 99 22 93 11 11 53 4F 52 54 49 4E 47 20 4F 4E 20 |."...SORTING ON |
00000DE0: 22 46 44 24 28 53 29 00 21 16 81 02 8B 4E 28 53 |"FD$(S).!....N(S|
00000DF0: 29 B2 31 A7 97 49 33 AA 39 30 2C 31 33 31 3A 97 |).1..I3.90,131:.|
00000E00: 49 33 AA 31 33 32 2C 31 33 31 3A 97 49 33 AA 39 |I3.132,131:.I3.9|
00000E10: 31 2C 31 32 35 3A 97 49 33 AA 31 33 33 2C 31 32 |1,125:.I3.133,12|
00000E20: 35 00 59 16 82 02 8B 4E 28 53 29 B2 30 A7 97 49 |5.Y....N(S).0..I|
00000E30: 33 AA 39 30 2C 36 36 3A 97 49 33 AA 31 33 32 2C |3.90,66:.I3.132,|
00000E40: 36 36 3A 97 49 33 AA 39 31 2C 31 32 36 3A 97 49 |66:.I3.91,126:.I|
00000E50: 33 AA 31 33 33 2C 31 32 36 00 61 16 83 02 9E 49 |3.133,126.a....I|
00000E60: 33 00 81 16 84 02 81 49 39 B2 31 A4 4E 3A 53 4E |3......I9.1.N:SN|
00000E70: 28 49 39 29 B2 C2 28 49 35 AA 49 39 29 3A 82 3A |(I9)..(I5.I9):.:|
00000E80: 8E 00 8E 16 BC 02 8F 20 53 45 41 52 43 48 00 99 |....... SEARCH..|
00000E90: 16 C6 02 89 31 30 30 30 30 00 AD 16 D0 02 8F 20 |....10000...... |
00000EA0: 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 BD 16 |INPUT ROUTINE...|
00000EB0: DA 02 49 4E 24 B2 22 22 3A 4E 30 B2 30 00 C8 16 |..IN$."":N0.0...|
00000EC0: DF 02 99 22 AF 9D 22 3B 00 DB 16 E4 02 A1 41 24 |..."..";......A$|
00000ED0: 3A 8B 41 24 B2 22 22 A7 37 34 30 00 F6 16 E9 02 |:.A$."".740.....|
00000EE0: 41 B2 C6 28 41 24 29 3A 8B 41 B1 34 37 AF 41 B3 |A..(A$):.A.47.A.|
00000EF0: 39 31 A7 37 37 35 00 1D 17 EE 02 8B 41 B2 41 31 |91.775......A.A1|
00000F00: B0 41 B2 41 32 B0 41 B2 41 33 B0 41 B2 41 34 B0 |.A.A2.A.A3.A.A4.|
00000F10: 41 B2 41 35 B0 41 B2 41 36 A7 37 33 35 00 3B 17 |A.A5.A.A6.735.;.|
00000F20: F3 02 99 22 20 9D 22 3B 3A 8B 41 B2 41 39 A7 53 |..." .";:.A.A9.S|
00000F30: 24 B2 49 4E 24 3A 99 41 24 3A 8E 00 50 17 FD 02 |$.IN$:.A$:..P...|
00000F40: 8B 49 4E 24 B2 22 22 AF 41 B2 41 38 A7 37 33 35 |.IN$."".A.A8.735|
00000F50: 00 7D 17 02 03 8B 41 B2 41 38 A7 4E 30 B2 4E 30 |.}....A.A8.N0.N0|
00000F60: AB 31 3A 99 22 9D 20 9D 22 3B 3A 49 4E 24 B2 C8 |.1:.". .";:IN$..|
00000F70: 28 49 4E 24 2C 4E 30 29 3A 89 37 33 35 00 8E 17 |(IN$,N0):.735...|
00000F80: 07 03 8B 41 B2 34 34 A7 41 24 B2 22 3B 22 00 B3 |...A.44.A$.";"..|
00000F90: 17 0C 03 99 22 20 9D 22 41 24 3B 3A 49 4E 24 B2 |...." ."A$;:IN$.|
00000FA0: 49 4E 24 AA 41 24 3A 4E 30 B2 4E 30 AA 31 3A 89 |IN$.A$:N0.N0.1:.|
00000FB0: 37 33 35 00 C4 17 84 03 8F 20 54 49 54 4C 45 2F |735...... TITLE/|
00000FC0: 46 49 4C 45 00 F0 17 8E 03 44 52 24 B2 22 30 22 |FILE.....DR$."0"|
00000FD0: 3A 99 22 93 11 11 20 20 20 20 CD 41 4B 45 20 D3 |:."... .AKE .|
00000FE0: 55 52 45 20 CD 41 53 54 45 52 20 C4 49 53 4B 22 |URE .ASTER .ISK"|
00000FF0: 00 0E 18 93 03 99 22 11 20 20 20 20 20 20 C9 53 |......". .S|
00001000: 20 C9 4E 20 D4 48 45 20 C4 52 49 56 45 22 00 18 | .N .HE .RIVE"..|
00001010: 18 95 03 8D 32 30 30 30 00 4A 18 98 03 99 22 93 |....2000.J....".|
00001020: 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 |............ |
00001030: 20 20 20 20 20 20 CC 4F 41 44 49 4E 47 20 C6 C9 | .OADING ..|
00001040: CC C5 2F D4 C9 D4 CC C5 D3 22 00 64 18 9D 03 93 |../......".d....|
00001050: 44 52 24 AA 22 3A 46 49 4C 45 2F 54 49 54 4C 45 |DR$.":FILE/TITLE|
00001060: 53 22 2C 38 00 73 18 D0 07 8F 20 4B 45 59 20 47 |S",8.s.... KEY G|
00001070: 45 54 53 00 AC 18 D5 07 99 53 44 24 22 91 22 4C |ETS......SD$"."L|
00001080: 24 53 44 24 42 4C 24 53 44 24 58 24 22 92 20 20 |$SD$BL$SD$X$". |
00001090: 20 20 C8 49 54 20 12 D2 C5 D4 D5 D2 CE 92 20 54 | .IT ........ T|
000010A0: 4F 20 C3 4F 4E 54 49 4E 55 45 22 3B 00 C1 18 DA |O .ONTINUE";....|
000010B0: 07 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 32 30 31 |..A$:.A$.."".201|
000010C0: 30 00 D5 18 E4 07 A1 41 24 3A 8B 41 24 B2 22 22 |0......A$:.A$.""|
000010D0: A7 32 30 32 30 00 E9 18 EE 07 8B 41 24 B3 B1 C7 |.2020......A$...|
000010E0: 28 31 33 29 A7 32 30 31 30 00 EF 18 F8 07 8E 00 |(13).2010.......|
000010F0: 04 19 34 08 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 |..4..A$:.A$.."".|
00001100: 32 31 30 30 00 18 19 3E 08 A1 41 24 3A 8B 41 24 |2100...>..A$:.A$|
00001110: B2 22 22 A7 32 31 31 30 00 2C 19 48 08 8B 41 24 |."".2110.,.H..A$|
00001120: B3 B1 C7 28 33 32 29 A7 32 31 30 30 00 32 19 52 |...(32).2100.2.R|
00001130: 08 8E 00 47 19 98 08 A1 41 24 3A 8B 41 24 B3 B1 |...G....A$:.A$..|
00001140: 22 22 A7 32 32 30 30 00 5B 19 A2 08 A1 41 24 3A |"".2200.[....A$:|
00001150: 8B 41 24 B2 22 22 A7 32 32 31 30 00 6E 19 AC 08 |.A$."".2210.n...|
00001160: 8B 41 24 B2 C7 28 31 33 29 A7 32 32 30 30 00 74 |.A$..(13).2200.t|
00001170: 19 B6 08 8E 00 89 19 FC 08 A1 41 24 3A 8B 41 24 |..........A$:.A$|
00001180: B3 B1 22 22 A7 32 33 30 30 00 9D 19 06 09 A1 41 |.."".2300......A|
00001190: 24 3A 8B 41 24 B2 22 22 A7 32 33 31 30 00 A3 19 |$:.A$."".2310...|
000011A0: 10 09 8E 00 B0 19 10 27 8F 20 53 45 41 52 43 48 |.......'. SEARCH|
000011B0: 00 B8 19 1A 27 53 B2 30 00 DB 19 24 27 4D 4D B2 |....'S.0...$'MM.|
000011C0: 4E 4D 3A 48 49 24 B2 22 53 45 41 52 43 48 22 3A |NM:HI$."SEARCH":|
000011D0: 8D 31 39 30 30 30 3A 4B 38 B2 49 00 00 1A 2E 27 |.19000:K8.I....'|
000011E0: 99 22 93 11 11 12 31 92 3A 53 45 41 52 43 48 20 |."....1.:SEARCH |
000011F0: 46 49 4C 45 20 49 4E 20 50 45 54 20 22 46 4C 24 |FILE IN PET "FL$|
00001200: 00 1D 1A 38 27 99 22 11 12 32 92 3A 53 45 41 52 |...8'."..2.:SEAR|
00001210: 43 48 20 41 4C 4C 20 46 49 4C 45 53 22 00 3C 1A |CH ALL FILES".<.|
00001220: 42 27 8D 32 32 30 30 3A 41 31 B2 C5 28 41 24 29 |B'.2200:A1..(A$)|
00001230: 3A 8B 41 31 B2 30 A7 31 30 30 30 30 00 4D 1A 4C |:.A1.0.10000.M.L|
00001240: 27 99 22 93 22 3A 81 53 B2 30 A4 4B 38 00 67 1A |'.".":.S.0.K8.g.|
00001250: 56 27 99 46 44 24 28 54 4E 28 53 29 29 22 3D 20 |V'.FD$(TN(S))"= |
00001260: 22 3B 3A 8D 37 32 30 00 72 1A 60 27 8D 31 36 30 |";:.720.r.`'.160|
00001270: 30 30 00 96 1A 6A 27 53 24 28 53 29 B2 53 24 3A |00...j'S$(S).S$:|
00001280: 58 28 53 29 B2 C3 28 53 24 29 3A 82 3A 4A 30 B2 |X(S)..(S$):.:J0.|
00001290: 31 3A 49 49 B2 30 00 A7 1A 74 27 8B 41 31 B2 32 |1:II.0...t'.A1.2|
000012A0: A7 89 31 30 32 35 30 00 AF 1A 7E 27 99 4C 24 00 |..10250...~'.L$.|
000012B0: C8 1A 88 27 81 49 B2 4A 30 A4 4E 3A 53 38 B2 30 |...'.I.J0.N:S8.0|
000012C0: 3A 81 53 B2 30 A4 4B 38 00 F0 1A 8D 27 8B C8 28 |:.S.0.K8....'..(|
000012D0: 44 41 24 28 49 2C 54 4E 28 53 29 29 2C 58 28 53 |DA$(I,TN(S)),X(S|
000012E0: 29 29 B2 53 24 28 53 29 A7 53 38 B2 53 38 AA 31 |)).S$(S).S8.S8.1|
000012F0: 00 09 1B 92 27 82 3A 8B 53 38 B2 4B 38 AA 31 20 |....'.:.S8.K8.1 |
00001300: A7 49 49 B2 49 3A 49 B2 4E 00 2F 1B 9C 27 82 3A |.II.I:I.N./..'.:|
00001310: 8B 49 49 B2 30 A7 99 22 11 12 4E 4F 20 45 58 41 |.II.0.."..NO EXA|
00001320: 43 54 20 4D 41 54 43 48 22 3A 99 4C 24 3A 8E 00 |CT MATCH":.L$:..|
00001330: 55 1B A6 27 8B 49 49 B2 AB 31 A7 99 22 11 11 4E |U..'.II..1.."..N|
00001340: 4F 20 4D 4F 52 45 2E 2E 22 3A 99 4C 24 3A 41 24 |O MORE..":.L$:A$|
00001350: B2 22 22 3A 8E 00 69 1B B0 27 99 22 93 12 22 49 |."":..i..'.".."I|
00001360: 49 3A 81 4A B2 30 A4 4E 4D 00 7B 1B BA 27 99 46 |I:.J.0.NM.{..'.F|
00001370: 44 24 28 4A 29 3B 3A 8D 32 38 30 00 8C 1B C4 27 |D$(J);:.280....'|
00001380: 99 44 41 24 28 49 49 2C 4A 29 3A 82 00 B2 1B D8 |.DA$(II,J):.....|
00001390: 27 99 4C 24 3A 99 53 44 24 22 91 22 42 4C 24 53 |'.L$:.SD$"."BL$S|
000013A0: 44 24 22 91 41 4E 59 20 43 48 41 4E 47 45 53 3F |D$".ANY CHANGES?|
000013B0: 22 3B 00 D9 1B DD 27 8D 36 33 35 30 31 3A 8B 41 |";....'.63501:.A|
000013C0: 24 B2 22 59 22 A7 53 4E B2 49 49 3A 8D 31 35 30 |$."Y".SN.II:.150|
000013D0: 31 30 3A 8D 31 30 34 30 30 00 06 1C E2 27 99 53 |10:.10400....'.S|
000013E0: 44 24 22 91 22 42 4C 24 53 44 24 22 91 12 C3 4F |D$"."BL$SD$"...O|
000013F0: 4E 54 49 4E 55 45 20 53 45 41 52 43 48 3F 20 20 |NTINUE SEARCH? |
00001400: 20 20 20 20 20 22 00 10 1C EC 27 8D 32 32 30 30 | "....'.2200|
00001410: 00 1E 1C F6 27 8B 41 24 B2 22 4E 22 A7 8E 00 3C |....'.A$."N"...<|
00001420: 1C 00 28 4A 30 B2 49 49 AA 31 3A 49 49 B2 AB 31 |..(J0.II.1:II..1|
00001430: 3A 99 22 93 22 3A 89 31 30 31 32 30 00 53 1C 0A |:.".":.10120.S..|
00001440: 28 8F 20 53 45 41 52 43 48 20 41 4C 4C 20 46 49 |(. SEARCH ALL FI|
00001450: 4C 45 53 00 63 1C 14 28 8D 35 30 30 30 30 3A 99 |LES.c..(.50000:.|
00001460: 22 93 22 00 8F 1C 1E 28 81 50 B2 31 A4 43 4E 3A |"."....(.P.1.CN:|
00001470: 4E 4D 24 B2 4E 4D 24 28 50 29 3A 8B C9 28 4E 4D |NM$.NM$(P):..(NM|
00001480: 24 2C 31 29 B3 B1 22 2B 22 A7 31 30 33 31 30 00 |$,1).."+".10310.|
00001490: AB 1C 23 28 99 22 11 11 53 45 41 52 43 48 49 4E |..#(."..SEARCHIN|
000014A0: 47 20 12 22 4E 4D 24 22 92 20 22 00 BB 1C 28 28 |G ."NM$". "...((|
000014B0: 4E 24 B2 4E 4D 24 3A 8D 33 31 35 00 C9 1C 32 28 |N$.NM$:.315...2(|
000014C0: 49 49 B2 30 3A 4A 30 B2 31 00 E1 1C 3C 28 8D 31 |II.0:J0.1...<(.1|
000014D0: 30 31 32 30 3A 8B 41 24 B2 22 4E 22 A7 50 B2 43 |0120:.A$."N".P.C|
000014E0: 4E 00 E9 1C 46 28 82 20 50 00 EF 1C 50 28 8E 00 |N...F(. P...P(..|
000014F0: 21 1D A0 28 99 22 93 11 11 D2 45 57 52 49 54 45 |!..(."....EWRITE|
00001500: 20 4D 4F 44 49 46 49 45 44 20 46 49 4C 45 20 54 | MODIFIED FILE T|
00001510: 4F 20 44 49 53 4B 20 20 22 3B 3A 8D 36 33 35 30 |O DISK ";:.6350|
00001520: 31 00 2F 1D AA 28 8B 41 24 B2 22 4E 22 A7 8E 00 |1./..(.A$."N"...|
00001530: 3A 1D B4 28 8D 35 30 30 3A 8E 00 4E 1D 98 3A 8F |:..(.500:..N..:.|
00001540: 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 5B | INPUT ROUTINE.[|
00001550: 1D 9D 3A 53 4E B2 53 4E 28 49 29 00 96 1D A2 3A |..:SN.SN(I)....:|
00001560: 99 C7 28 31 34 29 3A 53 24 B2 22 1D 22 3A 99 22 |..(14):S$.".":."|
00001570: 93 45 4E 54 52 59 22 53 4E 3A 81 4B B2 30 A4 4E |.ENTRY"SN:.K.0.N|
00001580: 4D 3A 99 50 53 24 28 4B 29 54 4C 24 28 4B 29 42 |M:.PS$(K)TL$(K)B|
00001590: 58 24 28 4B 29 3B 00 B3 1D A7 3A 99 44 41 24 28 |X$(K);....:.DA$(|
000015A0: 53 4E 2C 4B 29 3B 3A 82 3A 4B B2 30 3A 8D 31 35 |SN,K);:.:K.0:.15|
000015B0: 32 30 30 00 CD 1D AC 3A 4B B2 4B AB 28 4B B3 30 |200....:K.K.(K.0|
000015C0: 29 3A 8B 4B B1 4E 4D A7 31 35 31 33 30 00 F9 1D |):.K.NM.15130...|
000015D0: B1 3A 49 4E 24 B2 44 41 24 28 53 4E 2C 4B 29 3A |.:IN$.DA$(SN,K):|
000015E0: 4E 30 B2 C3 28 49 4E 24 29 3A 99 50 53 24 28 4C |N0..(IN$):.PS$(L|
000015F0: 4B 29 54 4C 24 28 4C 4B 29 00 23 1E B6 3A 99 50 |K)TL$(LK).#..:.P|
00001600: 53 24 28 4B 29 22 12 22 54 4C 24 28 4B 29 22 92 |S$(K)"."TL$(K)".|
00001610: 22 53 24 49 4E 24 3B 3A 4C 4B B2 4B 3A 99 22 AF |"S$IN$;:LK.K:.".|
00001620: 9D 22 3B 00 38 1E BB 3A A1 41 24 3A 8B 41 24 B2 |.";.8..:.A$:.A$.|
00001630: 22 22 A7 31 35 30 33 35 00 55 1E C0 3A 41 B2 C6 |"".15035.U..:A..|
00001640: 28 41 24 29 3A 8B 41 B1 34 37 AF 41 B3 39 31 A7 |(A$):.A.47.A.91.|
00001650: 31 35 30 39 35 00 7E 1E C5 3A 8B 41 B2 41 31 B0 |15095.~..:.A.A1.|
00001660: 41 B2 41 32 B0 41 B2 41 33 B0 41 B2 41 34 B0 41 |A.A2.A.A3.A.A4.A|
00001670: B2 41 35 B0 41 B2 41 36 A7 31 35 30 33 30 00 B4 |.A5.A.A6.15030..|
00001680: 1E CF 3A 8B 41 B2 41 42 A7 49 4E 24 B2 44 41 24 |..:.A.AB.IN$.DA$|
00001690: 28 53 4E 28 49 AB 31 29 2C 4B 29 3A 41 B2 41 39 |(SN(I.1),K):A.A9|
000016A0: 3A 99 50 53 24 28 4B 29 54 4C 24 28 4B 29 53 24 |:.PS$(K)TL$(K)S$|
000016B0: 49 4E 24 3B 00 E8 1E D4 3A 99 22 20 9D 22 3B 3A |IN$;....:." .";:|
000016C0: 8B 41 B2 41 39 A7 44 41 24 28 53 4E 2C 4B 29 B2 |.A.A9.DA$(SN,K).|
000016D0: C8 28 49 4E 24 2C 4C 28 4B 29 29 3A 4B B2 4B AA |.(IN$,L(K)):K.K.|
000016E0: 31 3A 89 31 35 30 32 30 00 15 1F DE 3A 8B 41 B2 |1:.15020....:.A.|
000016F0: 41 37 A7 44 41 24 28 53 4E 2C 4B 29 B2 C8 28 49 |A7.DA$(SN,K)..(I|
00001700: 4E 24 2C 4C 28 4B 29 29 3A 4B B2 4B AB 31 3A 89 |N$,L(K)):K.K.1:.|
00001710: 31 35 30 32 30 00 2C 1F E8 3A 8B 49 4E 24 B2 22 |15020.,..:.IN$."|
00001720: 22 AF 41 B2 41 38 A7 31 35 30 33 30 00 5B 1F F2 |".A.A8.15030.[..|
00001730: 3A 8B 41 B2 41 38 A7 4E 30 B2 4E 30 AB 31 3A 99 |:.A.A8.N0.N0.1:.|
00001740: 22 9D 20 9D 22 3B 3A 49 4E 24 B2 C8 28 49 4E 24 |". .";:IN$..(IN$|
00001750: 2C 4E 30 29 3A 89 31 35 30 33 30 00 67 1F F7 3A |,N0):.15030.g..:|
00001760: 8B 41 B2 41 51 A7 8E 00 81 1F FC 3A 8B 4E 30 B2 |.A.AQ......:.N0.|
00001770: 4C 28 4B 29 A7 4B B2 4B AA 31 3A 89 31 35 30 32 |L(K).K.K.1:.1502|
00001780: 30 00 92 1F 06 3B 8B 41 B2 34 34 A7 41 24 B2 22 |0....;.A.44.A$."|
00001790: 3B 22 00 C3 1F 0B 3B 99 22 20 9D 22 41 24 3B 3A |;"....;." ."A$;:|
000017A0: 49 4E 24 B2 49 4E 24 AA 41 24 3A 4E 30 B2 C3 28 |IN$.IN$.A$:N0..(|
000017B0: 49 4E 24 29 3A 8B 4E 30 B3 4C 28 4B 29 A7 31 35 |IN$):.N0.L(K).15|
000017C0: 30 33 30 00 F0 1F 10 3B 44 41 24 28 53 4E 2C 4B |030....;DA$(SN,K|
000017D0: 29 B2 C8 28 49 4E 24 2C 4C 28 4B 29 29 3A 4B B2 |)..(IN$,L(K)):K.|
000017E0: 4B AA 31 3A 8B 4B B3 B2 4E 4D A7 31 35 30 32 30 |K.1:.K..NM.15020|
000017F0: 00 1D 20 1A 3B 99 22 93 45 4E 54 52 59 22 53 4E |.. .;.".ENTRY"SN|
00001800: 3A 81 4B B2 30 A4 4E 4D 3A 99 50 53 24 28 4B 29 |:.K.0.NM:.PS$(K)|
00001810: 54 4C 24 28 4B 29 42 58 24 28 4B 29 3B 00 3A 20 |TL$(K)BX$(K);.: |
00001820: 1B 3B 99 44 41 24 28 53 4E 2C 4B 29 3B 3A 82 3A |.;.DA$(SN,K);:.:|
00001830: 4B B2 30 3A 8D 31 35 32 30 30 00 71 20 1E 3B 99 |K.0:.15200.q .;.|
00001840: 22 13 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001850: 12 C4 C1 D4 C1 20 CF CB 3F 22 3B 3A 8D 36 33 35 |..... ..?";:.635|
00001860: 30 31 3A 8B 41 24 B2 22 4E 22 A7 89 31 35 30 30 |01:.A$."N"..1500|
00001870: 30 00 77 20 1F 3B 8E 00 B2 20 24 3B 42 58 24 B2 |0.w .;... $;BX$.|
00001880: 22 DD 91 9D B0 22 3A 81 5A B2 31 A4 42 4C AA 31 |"....":.Z.1.BL.1|
00001890: 3A 42 58 24 B2 42 58 24 AA 22 C0 22 3A 82 3A 42 |:BX$.BX$.".":.:B|
000018A0: 58 24 B2 42 58 24 AA 22 AE 11 9D DD 11 9D BD 9D |X$.BX$."........|
000018B0: 9D 22 00 E5 20 2E 3B 81 5A B2 31 A4 42 4C AA 31 |.".. .;.Z.1.BL.1|
000018C0: 3A 42 58 24 B2 42 58 24 AA 22 C0 9D 9D 22 3A 82 |:BX$.BX$."...":.|
000018D0: 3A 42 58 24 B2 42 58 24 AA 22 AD 91 22 3A 99 42 |:BX$.BX$."..":.B|
000018E0: 58 24 3B 3A 8E 00 F8 20 60 3B 99 53 44 24 22 91 |X$;:... `;.SD$".|
000018F0: 91 22 3A 99 42 42 24 3B 00 2A 21 6A 3B 99 22 1D |.":.BB$;.*!j;.".|
00001900: 12 22 51 24 22 92 3D 51 55 49 54 DD 91 9D B2 11 |."Q$".=QUIT.....|
00001910: 11 9D B1 91 12 22 42 24 22 92 3D 4C 41 53 54 DD |....."B$".=LAST.|
00001920: 91 9D B2 11 11 9D B1 91 22 3B 00 54 21 74 3B 99 |........";.T!t;.|
00001930: 22 12 5F 92 42 41 43 4B DD 91 9D B2 11 11 9D B1 |"._.BACK........|
00001940: 91 12 52 45 54 55 52 4E 92 3D 46 4F 52 57 41 52 |..RETURN.=FORWAR|
00001950: 44 22 3A 8E 00 5F 21 80 3E 8F 20 42 45 45 50 00 |D":.._!.>. BEEP.|
00001960: 8C 21 8A 3E 97 53 49 44 AA 32 34 2C 31 35 3A 97 |.!.>.SID.24,15:.|
00001970: 53 49 44 AA 34 2C 33 33 3A 81 50 50 B2 31 A4 35 |SID.4,33:.PP.1.5|
00001980: 30 3A 82 3A 97 53 49 44 AA 34 2C 30 00 9A 21 8F |0:.:.SID.4,0..!.|
00001990: 3E 97 53 49 44 AA 32 34 2C 30 00 A0 21 94 3E 8E |>.SID.24,0..!.>.|
000019A0: 00 AF 21 E4 3E 97 53 49 44 AA 32 34 2C 31 35 00 |..!.>.SID.24,15.|
000019B0: DA 21 EE 3E 81 55 B2 31 A4 35 3A 97 53 49 44 AA |.!.>.U.1.5:.SID.|
000019C0: 34 2C 31 37 3A 81 50 50 B2 31 A4 35 30 3A 82 3A |4,17:.PP.1.50:.:|
000019D0: 97 53 49 44 AA 34 2C 30 3A 82 00 E8 21 F3 3E 97 |.SID.4,0:...!.>.|
000019E0: 53 49 44 AA 32 34 2C 30 00 EE 21 F8 3E 8E 00 11 |SID.24,0..!.>...|
000019F0: 22 68 42 8F 20 53 45 4C 45 43 54 45 44 20 54 49 |"hB. SELECTED TI|
00001A00: 54 4C 45 53 20 46 4F 52 20 50 52 49 4E 54 49 4E |TLES FOR PRINTIN|
00001A10: 47 00 30 22 72 42 4D 4D B2 4E 4D 3A 48 49 24 B2 |G.0"rBMM.NM:HI$.|
00001A20: 22 44 49 53 50 4C 41 59 22 3A 8D 31 39 30 30 30 |"DISPLAY":.19000|
00001A30: 00 46 22 7C 42 4B 38 B2 49 3A 8B 50 54 B2 30 A7 |.F"|BK8.I:.PT.0.|
00001A40: 8D 31 37 31 31 30 00 58 22 86 42 8B 50 54 B2 31 |.17110.X".B.PT.1|
00001A50: A7 9F 34 2C 34 3A 9D 34 00 6E 22 90 42 81 49 B2 |..4,4:.4.n".B.I.|
00001A60: 43 31 A4 43 32 3A 53 4E B2 53 4E 28 49 29 00 99 |C1.C2:SN.SN(I)..|
00001A70: 22 9A 42 81 4C B2 30 A4 4B 38 3A 4A B2 54 4E 28 |".B.L.0.K8:J.TN(|
00001A80: 4C 29 3A 99 A6 58 29 50 24 28 50 54 29 3B 3A 8B |L):..X)P$(PT);:.|
00001A90: 50 54 B2 31 A7 8D 32 38 30 00 B4 22 A4 42 99 46 |PT.1..280..".B.F|
00001AA0: 44 24 28 4A 29 22 92 22 3B 3A 8B 50 54 B2 30 A7 |D$(J)".";:.PT.0.|
00001AB0: 8D 32 38 30 00 C5 22 AE 42 99 44 41 24 28 53 4E |.280..".B.DA$(SN|
00001AC0: 2C 4A 29 3A 82 00 D8 22 B8 42 99 4C 24 3A 8B 50 |,J):...".B.L$:.P|
00001AD0: 54 B2 30 A7 8D 32 36 30 00 EA 22 C2 42 82 3A 8B |T.0..260..".B.:.|
00001AE0: 50 54 B2 31 A7 98 34 3A A0 34 00 F9 22 CC 42 58 |PT.1..4:.4..".BX|
00001AF0: B2 30 3A 50 54 B2 30 3A 8E 00 18 23 D6 42 99 22 |.0:PT.0:...#.B."|
00001B00: 93 11 11 11 44 55 52 49 4E 47 20 54 48 45 20 44 |....DURING THE D|
00001B10: 49 53 50 4C 41 59 3A 22 00 3D 23 E0 42 99 22 11 |ISPLAY:".=#.B.".|
00001B20: 11 50 52 45 53 53 20 12 53 50 41 43 45 92 20 54 |.PRESS .SPACE. T|
00001B30: 4F 20 53 54 41 52 54 2F 53 54 4F 50 22 00 64 23 |O START/STOP".d#|
00001B40: EA 42 99 22 11 11 50 52 45 53 53 20 12 52 45 54 |.B."..PRESS .RET|
00001B50: 55 52 4E 92 20 54 4F 20 44 49 53 43 4F 4E 54 49 |URN. TO DISCONTI|
00001B60: 4E 55 45 22 00 92 23 F4 42 99 53 44 24 22 48 49 |NUE"..#.B.SD$"HI|
00001B70: 54 20 12 53 50 41 43 45 92 20 54 4F 20 42 45 47 |T .SPACE. TO BEG|
00001B80: 49 4E 3A 22 3B 3A 8D 32 31 30 30 3A 99 22 93 22 |IN:";:.2100:."."|
00001B90: 3A 8E 00 A6 23 5C 44 8F 20 42 4F 58 45 44 20 44 |:...#\D. BOXED D|
00001BA0: 49 53 50 4C 41 59 00 B9 23 66 44 53 24 B2 22 1D |ISPLAY..#fDS$.".|
00001BB0: 22 3A 8B 50 54 B2 31 A7 8E 00 D6 23 70 44 8D 31 |":.PT.1....#pD.1|
00001BC0: 37 31 31 30 3A 81 49 B2 43 31 A4 43 32 3A 53 4E |7110:.I.C1.C2:SN|
00001BD0: B2 53 4E 28 49 29 00 03 24 7A 44 99 22 93 45 4E |.SN(I)..$zD.".EN|
00001BE0: 54 52 59 22 53 4E 3A 81 4B B2 30 A4 4E 4D 3A 99 |TRY"SN:.K.0.NM:.|
00001BF0: 50 53 24 28 4B 29 54 4C 24 28 4B 29 42 58 24 28 |PS$(K)TL$(K)BX$(|
00001C00: 4B 29 3B 00 1E 24 84 44 99 44 41 24 28 53 4E 2C |K);..$.D.DA$(SN,|
00001C10: 4B 29 3B 3A 82 3A 8D 32 36 30 3A 82 3A 8E 00 31 |K);:.:.260:.:..1|
00001C20: 24 50 46 8F 20 44 49 53 50 4C 41 59 20 4D 45 4E |$PF. DISPLAY MEN|
00001C30: 55 00 73 24 5A 46 99 3A 99 22 11 11 D4 48 45 52 |U.s$ZF.:."...HER|
00001C40: 45 20 41 52 45 22 4E 22 20 45 4E 54 52 49 45 53 |E ARE"N" ENTRIES|
00001C50: 11 22 3A 85 22 11 D3 54 41 52 54 20 57 49 54 48 |.":."..TART WITH|
00001C60: 20 45 4E 54 52 59 20 23 20 20 20 31 9D 9D 9D 22 | ENTRY # 1..."|
00001C70: 3B 43 31 00 92 24 64 46 8D 31 36 30 30 30 3A 8B |;C1..$dF.16000:.|
00001C80: 43 31 B1 4E A7 8D 31 36 31 30 30 3A 89 31 38 30 |C1.N..16100:.180|
00001C90: 30 30 00 CD 24 6E 46 43 32 B2 4E 3A 99 22 11 C5 |00..$nFC2.N:."..|
00001CA0: 4E 44 20 57 49 54 48 20 45 4E 54 52 59 20 23 20 |ND WITH ENTRY # |
00001CB0: 20 20 A0 9D 9D 9D 22 3B 43 32 3A 8D 31 36 30 30 | ....";C2:.1600|
00001CC0: 30 3A 81 59 39 B2 31 A4 32 30 30 3A 82 00 E5 24 |0:.Y9.1.200:...$|
00001CD0: 78 46 8B 43 32 B1 4E A7 8D 31 36 31 30 30 3A 89 |xF.C2.N..16100:.|
00001CE0: 31 38 30 30 30 00 08 25 82 46 99 4C 24 3A 99 22 |18000..%.F.L$:."|
00001CF0: 11 11 12 31 92 3A 20 53 54 41 4E 44 41 52 44 20 |...1.: STANDARD |
00001D00: 44 49 53 50 4C 41 59 22 00 43 25 8C 46 99 22 11 |DISPLAY".C%.F.".|
00001D10: 12 32 92 3A 20 53 45 4C 45 43 54 45 44 20 44 49 |.2.: SELECTED DI|
00001D20: 53 50 4C 41 59 22 3A 8B 50 54 B2 30 A7 99 22 11 |SPLAY":.PT.0..".|
00001D30: 12 33 92 3A 20 42 4F 58 45 44 20 44 49 53 50 4C |.3.: BOXED DISPL|
00001D40: 41 59 22 00 55 25 96 46 8D 36 33 35 30 30 3A 8D |AY".U%.F.63500:.|
00001D50: 31 36 30 30 30 00 70 25 A0 46 41 B2 C5 28 41 24 |16000.p%.FA..(A$|
00001D60: 29 3A 8B 41 B2 30 B0 41 B1 33 A7 31 38 30 35 30 |):.A.0.A.3.18050|
00001D70: 00 7C 25 AA 46 58 B2 31 35 AC 50 54 00 82 25 B4 |.|%.FX.15.PT..%.|
00001D80: 46 8E 00 96 25 38 4A 8F 20 43 48 4F 4F 53 45 20 |F...%8J. CHOOSE |
00001D90: 54 49 54 4C 45 53 00 CA 25 42 4A 99 22 93 22 3B |TITLES..%BJ.".";|
00001DA0: 3A 81 49 B2 30 A4 4D 4D 3A 99 22 12 22 49 22 92 |:.I.0.MM:."."I".|
00001DB0: 3A 22 54 4C 24 28 49 29 3A 54 4E 28 49 29 B2 30 |:"TL$(I):TN(I).0|
00001DC0: 3A 82 3A 49 B2 30 3A 99 4C 24 00 E9 25 4C 4A 99 |:.:I.0:.L$..%LJ.|
00001DD0: 53 44 24 22 91 91 91 91 91 91 22 3B 3A 42 4C B2 |SD$"......";:BL.|
00001DE0: 33 35 3A 8D 31 35 31 34 30 00 17 26 51 4A 99 22 |35:.15140..&QJ."|
00001DF0: 43 48 4F 4F 53 45 20 12 22 48 49 24 22 92 20 54 |CHOOSE ."HI$". T|
00001E00: 49 54 4C 45 53 DD 91 9D B2 11 11 9D B1 91 12 41 |ITLES..........A|
00001E10: 92 3D 41 4C 4C 22 3B 00 3A 26 56 4A 99 22 20 DD |.=ALL";.:&VJ." .|
00001E20: 91 9D B2 11 11 9D B1 91 20 12 22 51 24 22 92 3D |........ ."Q$".=|
00001E30: 51 55 49 54 22 3A 9F 31 2C 30 00 74 26 5B 4A 99 |QUIT":.1,0.t&[J.|
00001E40: 53 44 24 22 91 91 22 3B 3A 99 22 54 49 54 4C 45 |SD$"..";:."TITLE|
00001E50: 20 23 20 20 20 20 20 20 9D 9D 9D 9D 22 3B 3A 84 | # ....";:.|
00001E60: 31 2C 54 4E 24 3A 8B 54 4E 24 B2 51 24 20 A7 31 |1,TN$:.TN$.Q$ .1|
00001E70: 39 30 36 30 00 87 26 60 4A 8B 54 4E 24 B2 22 30 |9060..&`J.TN$."0|
00001E80: 22 A7 31 39 30 33 35 00 A9 26 65 4A 8D 31 36 30 |".19035..&eJ.160|
00001E90: 30 30 3A 54 4E B2 C5 28 54 4E 24 29 3A 8B 54 4E |00:TN..(TN$):.TN|
00001EA0: B1 4D 4D A7 31 39 30 33 35 00 DF 26 6A 4A 54 4E |.MM.19035..&jJTN|
00001EB0: 28 49 29 B2 54 4E 3A 49 B2 49 AA 31 3A 99 C8 28 |(I).TN:I.I.1:..(|
00001EC0: 53 44 24 2C 54 4E AA 31 29 22 12 22 54 4E 22 3A |SD$,TN.1)"."TN":|
00001ED0: 22 54 4C 24 28 54 4E 29 3A 89 31 39 30 33 35 00 |"TL$(TN):.19035.|
00001EE0: EE 26 74 4A A0 31 3A 49 B2 49 AB 31 3A 8E 00 04 |.&tJ.1:I.I.1:...|
00001EF0: 27 40 9C 8F 20 4C 4F 41 44 20 54 49 54 4C 45 2D |'@.. LOAD TITLE-|
00001F00: 46 49 4C 45 00 0F 27 41 9C 97 37 30 35 2C 31 00 |FILE..'A..705,1.|
00001F10: 24 27 45 9C 8B C8 28 54 46 24 2C 31 29 B3 B1 22 |$'E...(TF$,1).."|
00001F20: A0 22 A7 8A 00 41 27 4A 9C 85 22 93 11 D4 C9 D4 |."...A'J..".....|
00001F30: CC C5 2D C6 C9 CC C5 20 4E 41 4D 45 22 3B 54 46 |..-.... NAME";TF|
00001F40: 24 00 4D 27 54 9C 44 52 24 B2 22 30 22 00 5A 27 |$.M'T.DR$."0".Z'|
00001F50: 5E 9C 9F 31 35 2C 38 2C 31 35 00 78 27 68 9C 9F |^..15,8,15.x'h..|
00001F60: 32 2C 38 2C 32 2C 44 52 24 AA 22 3A 22 AA 54 46 |2,8,2,DR$.":".TF|
00001F70: 24 AA 22 2C 53 2C 52 22 00 8E 27 72 9C 84 31 35 |$.",S,R"..'r..15|
00001F80: 2C 45 2C 45 4D 24 2C 45 54 24 2C 45 53 24 00 BD |,E,EM$,ET$,ES$..|
00001F90: 27 7C 9C 8B 45 B3 B1 30 A7 99 22 11 11 44 49 53 |'|..E..0.."..DIS|
00001FA0: 4B 20 53 54 41 54 55 53 20 12 22 45 4D 24 3A A0 |K STATUS ."EM$:.|
00001FB0: 32 3A A0 31 35 3A 8D 32 30 30 30 3A 8E 00 D3 27 |2:.15:.2000:...'|
00001FC0: 81 9C 84 32 2C 45 4E 3A 8B 45 4E B2 30 A7 34 30 |...2,EN:.EN.0.40|
00001FD0: 30 37 30 00 FB 27 82 9C 81 59 B2 31 A4 45 4E 3A |070..'...Y.1.EN:|
00001FE0: 84 32 2C 45 51 24 28 59 29 3A 82 3A 8B C2 28 37 |.2,EQ$(Y):.:..(7|
00001FF0: 30 35 29 B2 31 A7 36 30 30 30 30 00 15 28 86 9C |05).1.60000..(..|
00002000: 84 32 2C 4E 43 3A 8F 20 4D 41 58 20 23 20 45 4E |.2,NC:. MAX # EN|
00002010: 54 52 49 45 53 00 32 28 8B 9C 84 32 2C 4E 4D 3A |TRIES.2(...2,NM:|
00002020: 8F 20 4E 55 4D 42 45 52 20 4F 46 20 54 49 54 4C |. NUMBER OF TITL|
00002030: 45 53 00 4A 28 90 9C 84 32 2C 4C 4C 3A 8F 20 4C |ES.J(...2,LL:. L|
00002040: 49 4E 45 20 4C 45 4E 47 54 48 00 62 28 96 9C 84 |INE LENGTH.b(...|
00002050: 32 2C 4B 4D 3A 8F 20 54 49 54 4C 45 53 2F 4C 49 |2,KM:. TITLES/LI|
00002060: 4E 45 00 A6 28 9A 9C 86 20 54 4C 24 28 4E 4D 29 |NE..(... TL$(NM)|
00002070: 2C 46 44 24 28 4E 4D 29 2C 53 4E 28 4E 43 29 2C |,FD$(NM),SN(NC),|
00002080: 49 28 32 AC 4E 43 29 2C 4C 28 4E 4D 29 2C 4E 28 |I(2.NC),L(NM),N(|
00002090: 4E 4D 29 2C 56 28 4E 4D 29 2C 53 56 28 4E 4D 29 |NM),V(NM),SV(NM)|
000020A0: 2C 4B 28 4E 4D 29 00 E1 28 9F 9C 86 20 44 41 24 |,K(NM)..(... DA$|
000020B0: 28 4E 43 2C 4E 4D 29 2C 54 4E 28 4E 4D 29 2C 53 |(NC,NM),TN(NM),S|
000020C0: 24 28 4E 4D 29 2C 50 53 24 28 4E 4D 29 2C 52 28 |$(NM),PS$(NM),R(|
000020D0: 4E 4D 29 2C 42 58 24 28 4E 4D 29 2C 58 28 4E 4D |NM),BX$(NM),X(NM|
000020E0: 29 00 F7 28 A4 9C 81 49 B2 30 A4 4E 4D 3A 84 32 |)..(...I.0.NM:.2|
000020F0: 2C 52 28 49 29 3A 82 00 27 29 AE 9C 81 49 B2 30 |,R(I):..')...I.0|
00002100: A4 4E 4D 3A 84 32 2C 54 4C 24 28 49 29 3A 84 32 |.NM:.2,TL$(I):.2|
00002110: 2C 46 44 24 28 49 29 3A 84 32 2C 4C 28 49 29 3A |,FD$(I):.2,L(I):|
00002120: 84 32 2C 4E 28 49 29 00 49 29 B3 9C 84 32 2C 50 |.2,N(I).I)...2,P|
00002130: 53 24 28 49 29 3A 82 3A 81 4B B2 30 A4 4B 4D 3A |S$(I):.:.K.0.KM:|
00002140: 84 32 2C 41 28 4B 29 3A 82 00 63 29 B5 9C A0 32 |.2,A(K):..c)...2|
00002150: 3A A0 31 35 3A 99 22 93 20 12 D4 C9 D4 CC C5 D3 |:.15:.". .......|
00002160: 92 3A 22 00 7D 29 B6 9C 52 56 24 28 30 29 B2 22 |.:".})..RV$(0)."|
00002170: 92 22 3A 52 56 24 28 31 29 B2 22 12 22 00 9A 29 |.":RV$(1)."."..)|
00002180: B8 9C 81 49 B2 30 A4 4E 43 3A 53 4E 28 49 29 B2 |...I.0.NC:SN(I).|
00002190: 49 3A 82 3A 53 24 B2 22 1D 22 00 CC 29 C2 9C 81 |I:.:S$."."..)...|
000021A0: 4B B2 30 A4 4E 4D 3A 99 50 53 24 28 4B 29 52 56 |K.0.NM:.PS$(K)RV|
000021B0: 24 28 52 28 4B 29 29 54 4C 24 28 4B 29 52 56 24 |$(R(K))TL$(K)RV$|
000021C0: 28 30 29 3B 3A 42 4C B2 4C 28 4B 29 00 E2 29 CC |(0);:BL.L(K)..).|
000021D0: 9C 8D 31 35 31 34 30 3A 42 58 24 28 4B 29 B2 42 |..15140:BX$(K).B|
000021E0: 58 24 00 EA 29 D6 9C 82 3A 8E 00 FF 29 50 C3 8F |X$..)...:...)P..|
000021F0: 20 47 45 54 20 46 49 4C 45 20 4E 41 4D 45 53 00 | GET FILE NAMES.|
00002200: 12 2A 5A C3 42 B2 33 30 3A 41 4E B2 31 3A 43 4E |.*Z.B.30:AN.1:CN|
00002210: B2 30 00 1E 2A 64 C3 44 52 24 B2 22 30 22 00 4B |.0..*d.DR$."0".K|
00002220: 2A 6E C3 9F 31 35 2C 38 2C 31 35 3A 99 22 93 46 |*n..15,8,15:.".F|
00002230: 49 4C 45 53 20 4F 4E 20 44 49 53 4B 3A 44 52 49 |ILES ON DISK:DRI|
00002240: 56 45 20 22 44 52 24 3A 99 4C 24 00 65 2A 78 C3 |VE "DR$:.L$.e*x.|
00002250: 98 31 35 2C 22 4D 2D 45 22 C7 28 32 31 32 29 C7 |.15,"M-E".(212).|
00002260: 28 32 33 37 29 00 7F 2A 82 C3 9F 32 2C 38 2C 30 |(237)..*...2,8,0|
00002270: 2C 22 24 22 AA 44 52 24 AA 22 3A 2A 3D 53 22 00 |,"$".DR$.":*=S".|
00002280: 97 2A 8C C3 A1 23 32 2C 41 24 3A A1 23 32 2C 41 |.*...#2,A$:.#2,A|
00002290: 24 3A 49 24 B2 22 22 00 B5 2A 96 C3 A1 42 39 24 |$:I$.""..*...B9$|
000022A0: 3A 8B 53 54 B3 B1 30 B0 42 39 24 B3 B1 22 22 A7 |:.ST..0.B9$.."".|
000022B0: 35 30 32 30 30 00 C7 2A A0 C3 81 41 B2 31 A4 42 |50200..*...A.1.B|
000022C0: 3A A1 23 32 2C 41 24 00 DA 2A AA C3 8B 41 24 B2 |:.#2,A$..*...A$.|
000022D0: 22 22 A7 41 24 B2 C7 28 30 29 00 FB 2A B4 C3 49 |"".A$..(0)..*..I|
000022E0: 24 B2 49 24 AA 41 24 3A 82 3A 4A 24 B2 49 24 3A |$.I$.A$:.:J$.I$:|
000022F0: 8B 41 4E B2 31 A7 35 30 31 39 30 00 0A 2B BE C3 |.AN.1.50190..+..|
00002300: 49 24 B2 CA 28 49 24 2C 38 29 00 1A 2B C8 C3 4C |I$..(I$,8)..+..L|
00002310: 46 24 B2 C8 28 49 24 2C 31 29 00 43 2B D2 C3 8B |F$..(I$,1).C+...|
00002320: 4C 46 24 B2 C7 28 33 34 29 B0 4C 46 24 B2 22 20 |LF$..(34).LF$." |
00002330: 22 A7 49 24 B2 CA 28 49 24 2C 32 29 3A 89 35 30 |".I$..(I$,2):.50|
00002340: 31 32 30 00 52 2B DC C3 4A B2 31 3A 49 49 24 B2 |120.R+..J.1:II$.|
00002350: 22 22 00 8B 2B E6 C3 4A 24 B2 CA 28 49 24 2C 4A |""..+..J$..(I$,J|
00002360: 2C 31 29 3A 8B 4A 24 B3 B1 C7 28 33 34 29 A7 4A |,1):.J$...(34).J|
00002370: B2 4A AA 31 3A 49 49 24 B2 49 49 24 AA 4A 24 3A |.J.1:II$.II$.J$:|
00002380: 8B 4A B3 31 37 A7 35 30 31 35 30 00 9B 2B F0 C3 |.J.17.50150..+..|
00002390: 8B 4A B1 31 36 A7 35 30 32 30 30 00 CB 2B FA C3 |.J.16.50200..+..|
000023A0: 99 22 12 22 49 49 24 3A 8B C9 28 49 49 24 2C 31 |."."II$:..(II$,1|
000023B0: 29 B3 B1 22 2B 22 A7 99 22 91 22 42 4C 24 3A 99 |).."+".."."BL$:.|
000023C0: 22 91 22 3B 3A 89 35 30 31 39 30 00 E3 2B 04 C4 |".";:.50190..+..|
000023D0: 43 4E B2 43 4E AA 31 3A 4E 4D 24 28 43 4E 29 B2 |CN.CN.1:NM$(CN).|
000023E0: 49 49 24 00 FE 2B 0E C4 41 4E B2 30 3A 49 24 B2 |II$..+..AN.0:I$.|
000023F0: 22 22 3A 42 B2 33 32 3A 89 35 30 30 37 30 00 0B |"":B.32:.50070..|
00002400: 2C 18 C4 A0 32 3A A0 31 35 3A 99 00 11 2C 22 C4 |,...2:.15:...,".|
00002410: 8E 00 27 2C D8 D6 8F 20 55 53 45 52 20 53 55 42 |..',... USER SUB|
00002420: 52 4F 55 54 49 4E 45 00 2D 2C BF DA 8E 00 60 2C |ROUTINE.-,....`,|
00002430: 78 E6 54 46 24 B2 22 22 3A 4C 31 B2 C2 28 37 30 |x.TF$."":L1..(70|
00002440: 36 29 3A 81 59 B2 31 A4 4C 31 3A 54 46 24 B2 54 |6):.Y.1.L1:TF$.T|
00002450: 46 24 AA C7 28 C2 28 37 30 36 AA 59 29 29 3A 82 |F$..(.(706.Y)):.|
00002460: 00 84 2C 82 E6 44 52 24 B2 C4 28 C2 28 37 30 36 |..,..DR$..(.(706|
00002470: AA 59 29 29 3A 8D 34 30 30 33 30 3A 97 37 30 35 |.Y)):.40030:.705|
00002480: 2C 30 3A 8E 00 8F 2C 60 EA A0 32 3A A0 31 35 00 |,0:...,`..2:.15.|
00002490: 9D 2C 64 EA 4C 31 B2 C3 28 54 46 24 29 00 CE 2C |.,d.L1..(TF$)..,|
000024A0: 65 EA 81 59 B2 31 A4 4C 31 3A 97 37 30 36 AA 59 |e..Y.1.L1:.706.Y|
000024B0: 2C C6 28 CA 28 54 46 24 2C 59 2C 31 29 29 3A 82 |,.(.(TF$,Y,1)):.|
000024C0: 3A 97 37 30 36 AA 59 2C C5 28 44 52 24 29 00 FD |:.706.Y,.(DR$)..|
000024D0: 2C 6A EA 97 31 39 38 2C 39 3A 81 49 B2 30 A4 38 |,j..198,9:.I.0.8|
000024E0: 3A 97 36 33 31 AA 49 2C 31 33 3A 82 3A 97 37 30 |:.631.I,13:.:.70|
000024F0: 36 2C 4C 31 3A 46 46 B2 35 35 30 30 30 00 28 2D |6,L1:FF.55000.(-|
00002500: 74 EA 99 22 93 11 11 11 22 3B 3A 81 59 B2 31 A4 |t.."....";:.Y.1.|
00002510: 45 4E 3A 99 46 46 AA 59 3B 45 51 24 28 59 29 3A |EN:.FF.Y;EQ$(Y):|
00002520: 82 3A 99 22 52 55 4E 22 00 64 2D 7E EA 99 22 11 |.:."RUN".d-~..".|
00002530: 11 11 22 4C 24 3A 99 22 12 D5 D3 C5 D2 20 D3 D5 |.."L$:."..... ..|
00002540: C2 D2 CF D5 D4 C9 CE C5 2E 2E 13 22 3B 3A 97 37 |...........";:.7|
00002550: 30 35 2C 31 32 33 3A 81 49 39 B2 31 A4 39 30 30 |05,123:.I9.1.900|
00002560: 3A 82 3A 80 00 75 2D 18 F6 8F 20 49 4E 49 54 49 |:.:..u-... INITI|
00002570: 41 4C 49 5A 45 00 91 2D 19 F6 99 22 93 22 3A 8B |ALIZE..-...".":.|
00002580: C2 28 33 31 38 37 32 29 B2 33 32 A7 36 33 30 31 |.(31872).32.6301|
00002590: 30 00 C6 2D 1A F6 99 22 93 11 11 11 4C 4F 41 44 |0..-..."....LOAD|
000025A0: 22 C7 28 33 34 29 22 46 49 4C 45 2F 42 4F 4F 54 |".(34)"FILE/BOOT|
000025B0: 22 C7 28 33 34 29 22 2C 38 22 3A 99 22 11 11 11 |".(34)",8":."...|
000025C0: 11 52 55 4E 13 22 00 E3 2D 1B F6 97 31 39 38 2C |.RUN."..-...198,|
000025D0: 32 3A 97 36 33 31 2C 31 33 3A 97 36 33 32 2C 31 |2:.631,13:.632,1|
000025E0: 33 3A 80 00 FA 2D 22 F6 8B C2 28 37 30 35 29 B2 |3:...-"...(705).|
000025F0: 31 32 33 A7 8D 35 39 30 30 30 00 1A 2E 24 F6 4E |123..59000...$.N|
00002600: 46 B2 35 30 3A 8F 20 4D 41 58 20 4E 55 4D 42 45 |F.50:. MAX NUMBE|
00002610: 52 20 4F 46 20 46 49 4C 45 53 00 39 2E 27 F6 4E |R OF FILES.9.'.N|
00002620: 4C B2 37 3A 8F 20 4D 41 58 20 4E 55 4D 42 45 52 |L.7:. MAX NUMBER|
00002630: 20 4F 46 20 4C 49 4E 45 53 00 47 2E 2C F6 86 20 | OF LINES.G.,.. |
00002640: 4E 4D 24 28 4E 46 29 00 78 2E 72 F6 4C 24 B2 22 |NM$(NF).x.r.L$."|
00002650: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002660: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00002670: C0 C0 C0 C0 C0 C0 C0 22 00 B3 2E 7C F6 4C 50 24 |......."...|.LP$|
00002680: B2 4C 24 AA 4C 24 3A 42 4C 24 B2 22 20 20 20 20 |.L$.L$:BL$." |
00002690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000026A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000026B0: 20 20 22 00 DC 2E 81 F6 44 54 24 B2 22 22 3A 81 | ".....DT$."":.|
000026C0: 49 B2 31 A4 33 39 3A 44 54 24 B2 44 54 24 AA 22 |I.1.39:DT$.DT$."|
000026D0: 2E 22 3A 82 3A 53 53 24 B2 22 A0 22 00 16 2F 86 |.":.:SS$."."../.|
000026E0: F6 51 24 B2 22 40 22 3A 41 51 B2 C6 28 51 24 29 |.Q$."@":AQ..(Q$)|
000026F0: 3A 42 24 B2 22 5E 22 3A 41 42 B2 C6 28 42 24 29 |:B$."^":AB..(B$)|
00002700: 3A 46 4C 24 B2 22 20 20 20 20 20 20 20 20 20 20 |:FL$." |
00002710: 20 20 20 20 20 22 00 31 2F 90 F6 50 31 B2 31 3A | ".1/..P1.1:|
00002720: 50 32 B2 36 30 3A 50 33 B2 36 34 3A 57 44 B2 34 |P2.60:P3.64:WD.4|
00002730: 30 00 5C 2F 9F F6 99 3A 20 99 22 11 11 2E 2E 2E |0.\/...: .".....|
00002740: 49 4E 49 54 49 41 4C 49 5A 49 4E 47 20 C6 C9 CC |INITIALIZING ...|
00002750: C5 2F CD C1 D3 D4 C5 D2 2E 2E 2E 22 00 73 2F A9 |./.........".s/.|
00002760: F6 4C 24 28 31 29 B2 4C 50 24 3A 4C 24 28 30 29 |.L$(1).LP$:L$(0)|
00002770: B2 4C 24 00 A7 2F AE F6 43 30 B2 32 31 31 3A 4C |.L$../..C0.211:L|
00002780: 4E B2 32 31 34 3A 56 24 B2 22 12 22 3A 4F 24 B2 |N.214:V$.".":O$.|
00002790: 22 92 22 3A 52 56 24 28 30 29 B2 4F 24 3A 52 56 |".":RV$(0).O$:RV|
000027A0: 24 28 31 29 B2 56 24 00 B9 2F B8 F6 4C 24 B2 C8 |$(1).V$../..L$..|
000027B0: 28 4C 24 2C 57 44 AB 31 29 00 DD 2F C2 F6 53 44 |(L$,WD.1)../..SD|
000027C0: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
000027D0: 11 11 11 11 11 11 11 11 11 11 11 11 22 00 FF 2F |............"../|
000027E0: CC F6 43 52 24 B2 C7 28 31 33 29 3A 50 24 28 31 |..CR$..(13):P$(1|
000027F0: 29 B2 22 11 12 22 3A 50 24 28 30 29 B2 22 22 00 |)."..":P$(0)."".|
00002800: 1A 30 D6 F6 50 54 24 28 31 29 B2 22 22 3A 50 54 |.0..PT$(1)."":PT|
00002810: 24 28 30 29 B2 C7 28 31 33 29 00 64 30 E0 F6 41 |$(0)..(13).d0..A|
00002820: 31 B2 31 37 3A 41 32 B2 31 34 35 3A 41 33 B2 31 |1.17:A2.145:A3.1|
00002830: 34 38 3A 41 34 B2 31 39 3A 41 35 B2 31 34 37 3A |48:A4.19:A5.147:|
00002840: 41 36 B2 31 35 37 3A 41 37 B2 39 35 3A 41 38 B2 |A6.157:A7.95:A8.|
00002850: 32 30 3A 41 39 B2 31 33 3A 41 54 B2 34 34 3A 41 |20:A9.13:AT.44:A|
00002860: 45 B2 35 39 00 81 30 EA F6 58 24 B2 22 22 3A 81 |E.59..0..X$."":.|
00002870: 49 B2 31 A4 35 AA 32 AC 28 57 44 AB 34 30 29 AD |I.1.5.2.(WD.40).|
00002880: 38 00 91 30 F4 F6 58 24 B2 58 24 AA 22 1D 22 3A |8..0..X$.X$.".":|
00002890: 82 00 AA 30 1C F7 42 4C B2 33 35 3A 8D 31 35 31 |...0..BL.35:.151|
000028A0: 34 30 3A 42 42 24 B2 42 58 24 00 E1 30 58 F7 53 |40:BB$.BX$..0X.S|
000028B0: 49 44 B2 35 34 32 37 32 3A 97 53 49 44 AA 31 2C |ID.54272:.SID.1,|
000028C0: 35 30 3A 97 53 49 44 AA 33 2C 32 30 30 3A 97 53 |50:.SID.3,200:.S|
000028D0: 49 44 AA 35 2C 30 3A 97 53 49 44 AA 36 2C 32 34 |ID.5,0:.SID.6,24|
000028E0: 30 00 EF 30 62 F7 97 53 49 44 AA 32 34 2C 30 00 |0..0b..SID.24,0.|
000028F0: F5 30 A7 F7 8E 00 16 31 0C F8 99 53 44 24 22 91 |.0.....1...SD$".|
00002900: 22 4C 24 53 44 24 22 12 53 45 4C 45 43 54 49 4F |"L$SD$".SELECTIO|
00002910: 4E 92 3F 20 22 3B 00 35 31 0D F8 97 32 30 34 2C |N.? ";.51...204,|
00002920: 30 3A 8D 32 33 30 30 3A 97 32 30 34 2C 31 3A 8D |0:.2300:.204,1:.|
00002930: 31 36 30 30 30 00 3B 31 0E F8 8E 00 49 31 70 F8 |16000.;1....I1p.|
00002940: 8F 20 45 58 50 4C 41 49 4E 00 5B 31 71 F8 8B 4E |. EXPLAIN.[1q..N|
00002950: 4D 24 B2 22 22 A7 36 33 36 31 30 00 95 31 75 F8 |M$."".63610..1u.|
00002960: 99 22 93 11 11 11 D7 41 4E 54 20 54 4F 20 53 41 |.".....ANT TO SA|
00002970: 56 45 20 12 22 4E 4D 24 22 20 92 46 49 52 53 54 |VE ."NM$" .FIRST|
00002980: 22 3B 3A 8D 36 33 35 30 31 3A 8B 41 24 B2 22 59 |";:.63501:.A$."Y|
00002990: 22 A7 35 30 30 00 C7 31 7A F8 99 22 93 11 11 11 |".500..1z.."....|
000029A0: 11 11 11 11 11 11 20 20 20 20 20 20 20 CD 41 4B |...... .AK|
000029B0: 45 20 53 55 52 45 20 54 48 45 20 CD 41 53 54 45 |E SURE THE .ASTE|
000029C0: 52 20 C4 49 53 4B 22 00 F0 31 7B F8 99 22 11 11 |R .ISK"..1{.."..|
000029D0: 20 20 20 20 20 20 20 20 20 20 49 53 20 49 4E 20 | IS IN |
000029E0: 54 48 45 20 44 49 53 4B 20 44 52 49 56 45 2E 22 |THE DISK DRIVE."|
000029F0: 00 02 32 7C F8 44 52 24 B2 22 30 22 3A 8D 32 30 |..2|.DR$."0":.20|
00002A00: 30 30 00 2B 32 84 F8 97 37 30 34 2C C5 28 44 52 |00.+2...704,.(DR|
00002A10: 24 29 3A 93 44 52 24 AA 22 3A 46 49 4C 45 2F 45 |$):.DR$.":FILE/E|
00002A20: 58 50 4C 41 49 4E 22 2C 38 3A 8A 00 3F 32 D4 F8 |XPLAIN",8:..?2..|
00002A30: 99 C2 28 31 39 37 29 3B 3A 89 36 33 37 30 30 00 |..(197);:.63700.|
00002A40: 51 32 DE F8 9E 36 35 34 30 39 3A 9E 36 35 34 31 |Q2...65409:.6541|
00002A50: 32 00 67 32 E3 F8 97 35 33 32 38 31 2C 30 3A 97 |2.g2...53281,0:.|
00002A60: 35 33 32 38 30 2C 30 00 9E 32 E5 F8 99 22 11 11 |53280,0..2..."..|
00002A70: 11 11 11 11 11 11 11 11 11 11 9C 20 20 20 20 20 |........... |
00002A80: 20 20 20 20 20 20 20 1C 4C 81 4F 96 41 99 44 9C | .L.O.A.D.|
00002A90: 49 9E 4E 9F 47 1C 2E 95 2E 81 2E 9C 2E 22 00 AD |I.N.G........"..|
00002AA0: 32 E8 F8 93 22 4D 45 4E 55 32 22 2C 38 00 E4 32 |2..."MENU2",8..2|
00002AB0: ED F8 99 22 11 11 11 11 11 11 11 11 11 11 11 11 |..."............|
00002AC0: 9C 20 20 20 20 20 20 20 20 20 20 20 20 1C 4C 81 |. .L.|
00002AD0: 4F 96 41 99 44 9C 49 9E 4E 9F 47 1C 2E 95 2E 81 |O.A.D.I.N.G.....|
00002AE0: 2E 9C 2E 22 00 02 33 F2 F8 97 36 33 2C 30 3A 97 |..."..3...63,0:.|
00002AF0: 36 34 2C 30 3A 97 34 38 2C 38 3A 97 35 32 2C 31 |64,0:.48,8:.52,1|
00002B00: 36 30 00 28 33 FC F8 97 35 34 2C 30 3A 97 35 36 |60.(3...54,0:.56|
00002B10: 2C 31 36 30 3A 97 35 37 2C 30 3A 97 35 38 2C 32 |,160:.57,0:.58,2|
00002B20: 35 35 3A 97 36 32 2C 30 00 3E 33 06 F9 99 22 11 |55:.62,0.>3...".|
00002B30: 11 11 11 52 55 4E 22 3A 97 31 39 38 2C 33 00 63 |...RUN":.198,3.c|
00002B40: 33 10 F9 99 22 11 11 11 11 11 11 11 11 11 11 11 |3..."...........|
00002B50: 22 A3 31 34 29 22 9A 4C 4F 41 44 49 4E 47 2E 2E |".14)".LOADING..|
00002B60: 2E 2E 22 00 8D 33 1A F9 97 36 33 31 2C 31 39 3A |.."..3...631,19:|
00002B70: 97 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A |.632,13:.633,13:|
00002B80: 50 9B 36 33 30 30 30 AB 97 36 30 2C 30 00 00 00 |P.63000..60,0...|
..............(....56,7.16.12:.55,8.16:.
.S....G(14):.53281,15:.53280,12:.".":.63
000.Y...:.D.... MENU.....W$."...........
.......":.TF$."".TF$." ":
NM..1.B....". HIT .SPACEBAR. TO";......
"."W$"LOAD .TITLE-FILE":.L$.....M$(1)."T
YPE.......... IN DATA.".1...M$(2)."DISPL
AY................ DATA.".J...M$(3)."REC
ALL.............. OR SAVE.......... DATA
.".....M$(4)."PERFORM................ US
ER SUBROUTINE.".....M$(5)."SORT.........
. DATA.".....M$(6)."SEARCH..............
DATA.".2...M$(7)."CREATE OR MODIFY.....
............................. TITLE-FILE
.".X....I.1.7:.X$" ."D(I)".: "M$(I)".":.
..."..L$:.X$" .. . HIT ."Q$". TO QUIT
. .".E.#..SD$"."L$SD$"
. ..E.=EXPLAIN.."...$..16000
:PT.0:.60:.63500...,..A$.Q$ . 63710...-.
.A$."E"..63600.#...A.E(A$):AA.F(A$):.A.7
.14.I./..H(SD$,2.A.1)X$"......"M$(A):T0.
0._.0..AA.32..40000:.54..1..A$:T0.T0.1:
.A$."".T0.20.49...2..A$.."".14.L.3..H(TF
$,1)." ".A.7.W$.".SPACE. AND .. .
":.16100:.16...4..A.100,200,300,400,600,
700,900...6..2000:.14.(.<..SD$".......";
:.L9.1.WD.2:.".";:.:.".".V.A..SD$"......
DATA FILE =."FL$" ."N"ENTRIES"...F..SD$"
........TITLE FILE=."TF$"."NM.1"TITLES".
..K..SD$"...";:.L9.1.WD.2:.".";:.:."....
........";...P...Q.D.. ENTER DATA...I.F6
..(0):.N..0.120.*.N..16100:.".........NE
W FILE.......":."..NAME OF DATA FILE ";N
M$.;.S.FL$." .".NM$.T.X..".CURRENT FILE"
;FL$.T...."..THERE ARE "N" ENTRIES."....
.."..START WITH ENTRY # 1...";I:.1600
0:NN.N.F....I.1.I.N.1.I.NC..16100:.100..
. ..15000:.A$.Q$.175.....I.I.1:.I..NC.16
0.4....".******MAXIMUM NUMBER OF ENTRIES
******":."...START NEW FILE".D....I.N .N
.I.1.J.....X.H.. DISPLAY...M.PT.0:."..OU
TPUT TO PRINTER N...";A$:.A$."Y".PT.1.
..R..18000:A.E(A$):.A.215,17000,17500.F.
W..PT.0..17110.X....PT.1..4,4:.4......I.
C1.C2:Z.0:K.0:C.0:SN.SN(I)......J.Z.A(K)
:.P$(PT);.-....TL$(J)".:";:.PT.0..280.P.
...DA$(SN,J)".";:LD.C(DA$(SN,J)).X...X.L
(J).2.LD:.K9.1.X:." ";:.:.:C.1.C......PT
.1.WD.40..PT$(C);:.244............K.KM.Z
.A(K).1:K.K.1:.230.F....L$(PT).U....PT.0
..260......:.PT.1..4: 4.....X.0:PT.0:...
....B(197).P1.I.C2:.......B(197).P2...0.
...B(197).P3.270.6.....H....RV$(R(J));:.
._.,.. RECALL FROM DISK...-.."....R.ECAL
L OR .S.AVE..";:.63501:.A$:.A$."S".500.
N.1..:."...NAME OF DATA FILE ...";NM$
:.16000:N$.NM$...2..I(N$,1).."+".N$.N$."
+"...6.DR$."0"...;..15,8,15. .@..2,8,2,D
R$.":".N$.",S,R".6.E..15,E,EM$,ET$,ES$.[
.J..E..0.."..DISK STATUS ."EM$:.355.Z.O.
.2,N:.SS.0.."."N" ENTRIES"...T..2,NM...Y
..I.1.N:.J.0.NM:.2,DA$:.DA$.SS$.DA$."".C
.^.DA$(I,J).DA$:.:..T.C.FL$." .".NM$...H
. 2: 15...M..I.0.NM:SN(I).I:.:....... US
ER ROUTINE CALCULATIONS.3...R$.".WORKING
ON ENTRY ".S....I.1.N:SN.SN(I):.R$SN:.W
1.0.NM:.N(W1).0.V(W1).E(DA$(SN,W1)).Y...
.......55000:.W1.0.NM:.N(W1).1.450.....V
1.V(W1):L1.2:.V1.0.L1.1.X...DA$(SN,W1).J
(D(V1),L1,L(W1))...B..:.:....... SAVE TO
DISK.&....:."...NAME OF DATA FILE ";NM
$;:.16000:.1,0.J....Y.1.C(NM$):.".";:.:.
1,NM$: 1:..H....I(NM$,1).."+".N$.NM$."+"
.Y...FL$." .".NM$.....DR$."0"......".OVE
RWRITE EXISTING FILE N...";A$:.16000.C
....15,8,15......A$."Y".DR$."@".DR$.....
.2,8,2,DR$.":".N$.",S,W"......15,E,EM$,E
T$,ES$.3.!..E..0.."..DISK STATUS ."EM$:.
590.H.&..2,N;CR$;NM;CR$;.D.+..I.1.N:SN.S
N(I):.J.0.NM...0.DA$.DA$(SN,J):.DA$."".D
A$.SS$...:..2,DA$;CR$;...D..:....N. 2: 1
5:....X.. SORT...B..N..1..".****.NO DATA
FILE.****":....X..".SORT ON:".0.Y.I3.7.
4096.12.256.8.16:I4.7.4096.14.256.14.16:
I5.7.4096.15.256.M.Z..I4,0:.I4.1,68:.I4.
2,193.K.{..S.0.NM:."."S".:"FD$(S):..~.|.
.63500:S.E(A$)...}..S.NM.632.K..K.7.3.S
.(NC.1):KH%.K.256:.I4.4,KH%:.I4.3,K.256.
KH%:.I4.5,N......"...SORTING ON "FD$(S).
!....N(S).1..I3.90,131:.I3.132,131:.I3.9
1,125:.I3.133,125.Y....N(S).0..I3.90,66:
.I3.132,66:.I3.91,126:.I3.133,126.A....I
3......I9.1.N:SN(I9).B(I5.I9):.:.......
SEARCH...F..10000...P.. INPUT ROUTINE...
Z.IN$."":N0.0.H...."..";......A$:.A$."".
740.....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$:..P....IN$."".A.A8.735
.}....A.A8.N0.N0.1:.". .";:IN$.H(IN$,N0)
:.735......A.44.A$.";"......" ."A$;:IN$.
IN$.A$:N0.N0.1:.735.D.... TITLE/FILE....
.DR$."0":."... MAKE SURE MASTER DISK"
......". IS IN THE DRIVE"......2000
.J...."............. LOADING FI
LE/TITLES".D....DR$.":FILE/TITLES",8.S.P
.. KEY GETS...U..SD$"."L$SD$BL$SD$X$".
HIT .RETURN. TO CONTINUE";.A.Z..A$:.A$
.."".2010.U....A$:.A$."".2020......A$..G
(13).2010.........4..A$:.A$.."".2100...>
..A$:.A$."".2110.,.H..A$..G(32).2100.2.R
...G....A$:.A$.."".2200.[....A$:.A$."".2
210.N....A$.G(13).2200.T..........A$:.A$
.."".2300......A$:.A$."".2310..........'
. SEARCH....'S.0...$'MM.NM:HI$."SEARCH":
.19000:K8.I....'."....1.:SEARCH FILE IN
PET "FL$...8'."..2.:SEARCH ALL FILES".<.
B'.2200:A1.E(A$):.A1.0.10000.M.L'.".":.S
.0.K8.G.V'.FD$(TN(S))"= ";:.720.R.`'.160
00...J'S$(S).S$:X(S).C(S$):.:J0.1:II.0..
.T'.A1.2..10250...~'.L$.H..'.I.J0.N:S8.0
:.S.0.K8....'.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$:..U..'.II.
.1.."..NO MORE..":.L$:A$."":..I..'.".."I
I:.J.0.NM.{..'.FD$(J);:.280...D'.DA$(II,
J):....X'.L$:.SD$"."BL$SD$".ANY CHANGES?
";.Y..'.63501:.A$."Y".SN.II:.15010:.1040
0....'.SD$"."BL$SD$"..CONTINUE SEARCH?
"....'.2200....'.A$."N"...<..(J0.II
.1:II..1:.".":.10120.S..(. SEARCH ALL FI
LES.C..(.50000:."."....(.P.1.CN:NM$.NM$(
P):.I(NM$,1).."+".10310...#(."..SEARCHIN
G ."NM$". "...((N$.NM$:.315.I.2(II.0:J0.
1...<(.10120:.A$."N".P.CN...F(. P...P(..
!. (."...REWRITE MODIFIED FILE TO DISK
";:.63501./..(.A$."N"...:..(.500:..N..:.
INPUT ROUTINE.[..:SN.SN(I)....:.G(14):S
$.".":.".ENTRY"SN:.K.0.NM:.PS$(K)TL$(K)B
X$(K);....:.DA$(SN,K);:.:K.0:.15200.M..:
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:."..";.8..:.A$:.A$.
"".15035.U..:A.F(A$):.A.47.A.91.15095.~.
E:.A.A1.A.A2.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$;...T:." .";:.A.A9.DA$(SN,K).
H(IN$,L(K)):K.K.1:.15020....:.A.A7.DA$(S
N,K).H(IN$,L(K)):K.K.1:.15020.,..:.IN$."
".A.A8.15030.[..:.A.A8.N0.N0.1:.". .";:I
N$.H(IN$,N0):.15030.G..:.A.AQ......:.N0.
L(K).K.K.1:.15020....;.A.44.A$.";".C..;.
" ."A$;:IN$.IN$.A$:N0.C(IN$):.N0.L(K).15
030....;DA$(SN,K).H(IN$,L(K)):K.K.1:.K..
NM.15020.. .;.".ENTRY"SN:.K.0.NM:.PS$(K)
TL$(K)BX$(K);.: .;.DA$(SN,K);:.:K.0:.152
00.Q .;."................DATA OK?";:.635
01:.A$."N"..15000.W .;... $;BX$."....":.
Z.1.BL.1:BX$.BX$.".":.:BX$.BX$."........
.".. .;.Z.1.BL.1:BX$.BX$."...":.:BX$.BX$
."..":.BX$;:... `;.SD$"..":.BB$;.*!J;.".
."Q$".=QUIT.........."B$".=LAST.........
";.T!T;."._.BACK..........RETURN.=FORWAR
D":.._!.>. BEEP..!.>.SID.24,15:.SID.4,33
:.PP.1.50:.:.SID.4,0..!.>.SID.24,0. !.>.
..!.>.SID.24,15.Z!.>.U.1.5:.SID.4,17:.PP
.1.50:.:.SID.4,0:...!.>.SID.24,0..!.>...
"HB. SELECTED TITLES FOR PRINTING.0"RBMM
.NM:HI$."DISPLAY":.19000.F"|BK8.I:.PT.0.
.17110.X".B.PT.1..4,4:.4.N".B.I.C1.C2:SN
.SN(I)..".B.L.0.K8:J.TN(L):..X)P$(PT);:.
PT.1..280..".B.FD$(J)".";:.PT.0..280.E".
B.DA$(SN,J):..X".B.L$:.PT.0..260.."BB.:.
PT.1..4: 4.."LBX.0:PT.0:...#VB."....DURI
NG THE DISPLAY:".=#.B."..PRESS .SPACE. T
O START/STOP".D#.B."..PRESS .RETURN. TO
DISCONTINUE"..#.B.SD$"HIT .SPACE. TO BEG
IN:";:.2100:.".":...#\D. BOXED DISPLAY..
#FDS$.".":.PT.1...V#PD.17110:.I.C1.C2:SN
.SN(I)..$ZD.".ENTRY"SN:.K.0.NM:.PS$(K)TL
$(K)BX$(K);..$.D.DA$(SN,K);:.:.260:.:..1
$PF. DISPLAY MENU.S$ZF.:."..THERE ARE"N"
ENTRIES.":.".START WITH ENTRY # 1..."
;C1..$DF.16000:.C1.N..16100:.18000.M$NFC
2.N:.".END WITH ENTRY # ...";C2:.1600
0:.Y9.1.200:...$XF.C2.N..16100:.18000..%
.F.L$:."...1.: STANDARD DISPLAY".C%.F.".
.2.: SELECTED DISPLAY":.PT.0.."..3.: BOX
ED DISPLAY".U%.F.63500:.16000.P% FA.E(A$
):.A.0.A.3.18050.|%.FX.15.PT..%.F...%8J.
CHOOSE TITLES.J%BJ.".";:.I.0.MM:."."I".
:"TL$(I):TN(I).0:.:I.0:.L$..%LJ.SD$"....
..";:BL.35:.15140..&QJ."CHOOSE ."HI$". T
ITLES..........A.=ALL";.:&VJ." .........
."Q$".=QUIT":.1,0.T&[J.SD$"..";:."TITLE
# ....";:.1,TN$:.TN$.Q$ .19060..&`
J.TN$."0".19035..&EJ.16000:TN.E(TN$):.TN
.MM.19035..&JJTN(I).TN:I.I.1:.H(SD$,TN.1
)"."TN":"TL$(TN):.19035..&TJ 1:I.I.1:...
'@.. LOAD TITLE-FILE..'A..705,1.$'E..H(T
F$,1).." "...A'J.."..TITLE-FILE NAME";TF
$.M'T.DR$."0".Z'^..15,8,15.X'H..2,8,2,DR
$.":".TF$.",S,R"..'R..15,E,EM$,ET$,ES$..
'|..E..0.."..DISK STATUS ."EM$: 2: 15:.2
000:..S'...2,EN:.EN.0.40070..'...Y.1.EN:
.2,EQ$(Y):.:.B(705).1.60000..(...2,NC:.
MAX # ENTRIES.2(...2,NM:. NUMBER OF TITL
ES.J(...2,LL:. LINE LENGTH.B(...2,KM:. T
ITLES/LINE..(... 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.NM:.2,R(I):..
')...I.0.NM:.2,TL$(I):.2,FD$(I):.2,L(I):
.2,N(I).I)...2,PS$(I):.:.K.0.KM:.2,A(K):
..C).. 2: 15:.". .TITLES.:".})..RV$(0)."
.":RV$(1)."."..)...I.0.NC:SN(I).I:.:S$."
.".L)B..K.0.NM:.PS$(K)RV$(R(K))TL$(K)RV$
(0);:BL.L(K)..)L..15140:BX$(K).BX$..)V..
:...)PC. GET FILE NAMES..*ZCB.30:AN.1:CN
.0..*DCDR$."0".K*NC.15,8,15:.".FILES ON
DISK:DRIVE "DR$:.L$.E*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.G* C.A.1.B:.#2,A$.Z*.C.A$."".A$.G(
0)..*.CI$.I$.A$:.:J$.I$:.AN.1.50190..+.C
I$.J(I$,8)..+HCLF$.H(I$,1).C+RC.LF$.G(34
).LF$." ".I$.J(I$,2):.50120.R+.CJ.1:II$.
""..+.CJ$.J(I$,J,1):.J$..G(34).J.J.1:II$
.II$.J$:.J.17.50150..+.C.J.16.50200.K+.C
."."II$:.I(II$,1).."+".."."BL$:.".";:.50
190..+.DCN.CN.1:NM$(CN).II$..+.DAN.0:I$.
"":B.32:.50070..,.D 2: 15:...,"D..',XV.
USER SUBROUTINE.-,.Z..`,X.TF$."":L1.B(70
6):.Y.1.L1:TF$.TF$.G(B(706.Y)):...,..DR$
.D(B(706.Y)):.40030:.705,0:...,`. 2: 15.
.,D.L1.C(TF$).N,E..Y.1.L1:.706.Y,F(J(TF$
,Y,1)):.:.706.Y,E(DR$)..,J..198,9:.I.0.8
:.631.I,13:.:.706,L1:FF.55000.(-T.."....
";:.Y.1.EN:.FF.Y;EQ$(Y):.:."RUN".D-~..".
.."L$:.".USER SUBROUTINE...";:.705,123:.
I9.1.900:.:..U-... INITIALIZE..-...".":.
B(31872).32.63010.F-..."....LOAD"G(34)"F
ILE/BOOT"G(34)",8":."....RUN."..-...198,
2:.631,13:.632,13:...-"..B(705).123..590
00...$.NF.50:. MAX NUMBER OF FILES.9.'.N
L.7:. MAX NUMBER OF LINES.G.,.. NM$(NF).
X.R.L$."................................
......."...|.LP$.L$.L$:BL$."
".....DT$."":.
I.1.39:DT$.DT$.".":.:SS$." "../..Q$."@":
AQ.F(Q$):B$."^":AB.F(B$):FL$."
".1/..P1.1:P2.60:P3.64:WD.40.\/...:
.".....INITIALIZING FILE/MASTER...".S/.
.L$(1).LP$:L$(0).L$../..C0.211:LN.214:V$
.".":O$.".":RV$(0).O$:RV$(1).V$../..L$.H
(L$,WD.1)../B.SD$.".....................
...."../L.CR$.G(13):P$(1)."..":P$(0)."".
.0V.PT$(1)."":PT$(0).G(13).D0..A1.17:A2.
145:A3.148:A4.19:A5.147:A6.157:A7.95:A8.
20:A9.13:AT.44:AE.59..0..X$."":.I.1.5.2.
(WD.40).8..0..X$.X$.".":...0..BL.35:.151
40:BB$.BX$..0X.SID.54272:.SID.1,50:.SID.
3,200:.SID.5,0:.SID.6,240..0B..SID.24,0.
.0.....1...SD$"."L$SD$".SELECTION.? ";.5
1...204,0:.2300:.204,1:.16000.;1....I1P.
. EXPLAIN.[1Q..NM$."".63610..1U.."....WA
NT TO SAVE ."NM$" .FIRST";:.63501:.A$."Y
".500.G1Z..".......... MAKE SURE T
HE MASTER DISK"..1{..".. IS IN
THE DISK DRIVE."..2|.DR$."0":.2000.+2...
704,E(DR$):.DR$.":FILE/EXPLAIN",8:..?2T.
.B(197);:.63700.Q2...65409:.65412.G2...5
3281,0:.53280,0..2...".............
.L.O.A.D.I.N.G........"..2..."MEN
U2",8..2..."............. .L.
O.A.D.I.N.G........"..3...63,0:.64,0:.48
,8:.52,160.(3...54,0:.56,160:.57,0:.58,2
55:.62,0.>3..."....RUN":.198,3.C3..."...
........".14)".LOADING...."..3...631,19:
.632,13:.633,13:P.63000..60,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL