MAIN
FILE INFORMATION
FILENAME(S): MAIN
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-10-20 14:29:54
APPEARS ON: 1 disk(s)
FILE HASH
4e96659a4f668aa58cad148fe2e12f25cb7b689a115fee98c7a0396f9741c33a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0026UT | MAIN | PRG | Treasure Chest - Klaus Der Suhler | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 8F 00 35 08 01 00 8B 20 47 4C |........5.... GL| 00000010: B2 31 20 A7 20 99 22 9E C4 49 53 4B 20 C5 52 52 |.1 . ."..ISK .RR| 00000020: 4F 52 21 22 3A 81 5A B2 31 A4 38 30 30 3A 82 3A |OR!":.Z.1.800:.:| 00000030: 89 20 32 36 30 00 63 08 02 00 8B 20 47 4C B2 32 |. 260.c.... GL.2| 00000040: 20 A7 20 99 22 9E C4 49 53 4B 20 C5 52 52 4F 52 | . ."..ISK .RROR| 00000050: 21 22 3A 81 5A B2 31 A4 38 30 30 3A 82 3A 89 20 |!":.Z.1.800:.:. | 00000060: 33 32 30 00 91 08 03 00 8B 20 47 4C B2 33 20 A7 |320...... GL.3 .| 00000070: 20 99 22 9E C4 49 53 4B 20 C5 52 52 4F 52 21 22 | ."..ISK .RROR!"| 00000080: 3A 81 5A B2 31 A4 38 30 30 3A 82 3A 89 20 32 37 |:.Z.1.800:.:. 27| 00000090: 30 00 BF 08 04 00 8B 20 47 4C B2 34 20 A7 20 99 |0...... GL.4 . .| 000000A0: 22 9E C4 49 53 4B 20 C5 52 52 4F 52 21 22 3A 81 |"..ISK .RROR!":.| 000000B0: 5A B2 31 A4 38 30 30 3A 82 3A 89 20 32 38 30 00 |Z.1.800:.:. 280.| 000000C0: ED 08 05 00 8B 20 47 4C B2 35 20 A7 20 99 22 9E |..... GL.5 . .".| 000000D0: C4 49 53 4B 20 C5 52 52 4F 52 21 22 3A 81 5A B2 |.ISK .RROR!":.Z.| 000000E0: 31 A4 38 30 30 3A 82 3A 89 20 32 35 33 00 1B 09 |1.800:.:. 253...| 000000F0: 06 00 8B 20 47 4C B2 36 20 A7 20 99 22 9E C4 49 |... GL.6 . ."..I| 00000100: 53 4B 20 C5 52 52 4F 52 21 22 3A 81 5A B2 31 A4 |SK .RROR!":.Z.1.| 00000110: 38 30 30 3A 82 3A 89 20 32 35 32 00 30 09 07 00 |800:.:. 252.0...| 00000120: 8B 20 47 4C B2 32 30 31 30 20 A7 20 32 30 33 30 |. GL.2010 . 2030| 00000130: 00 45 09 08 00 8B 20 47 4C B2 32 30 30 30 20 A7 |.E.... GL.2000 .| 00000140: 20 32 30 30 30 00 5C 09 09 00 97 20 37 37 30 2C | 2000.\.... 770,| 00000150: 31 33 31 3A 97 37 37 31 2C 31 36 34 00 6D 09 0A |131:.771,164.m..| 00000160: 00 8D 20 33 34 30 3A 8D 20 31 32 35 30 00 81 09 |.. 340:. 1250...| 00000170: 14 00 8B 20 47 4C B2 39 32 33 30 20 A7 20 39 35 |... GL.9230 . 95| 00000180: 30 00 A1 09 1E 00 97 20 35 33 32 38 31 2C 30 3A |0...... 53281,0:| 00000190: 97 35 33 32 38 30 2C 30 3A 99 22 93 05 0E 08 22 |.53280,0:."...."| 000001A0: 3B 00 CD 09 28 00 8B 20 C2 28 32 29 B1 30 20 AF |;...(.. .(2).0 .| 000001B0: 20 C2 28 32 29 B3 B1 32 35 34 20 AF 20 C2 28 32 | .(2)..254 . .(2| 000001C0: 29 B3 B1 39 35 20 A7 20 89 20 31 31 30 00 05 0A |)..95 . . 110...| 000001D0: 32 00 97 31 39 38 2C 30 3A 99 22 93 11 11 11 C8 |2..198,0:.".....| 000001E0: 4F 57 20 4D 41 4E 59 20 44 52 49 56 45 53 20 41 |OW MANY DRIVES A| 000001F0: 52 45 20 59 4F 55 20 47 4F 49 4E 47 20 54 4F 20 |RE YOU GOING TO | 00000200: 55 53 45 3F 22 00 36 0A 3C 00 99 22 11 11 20 20 |USE?".6.<..".. | 00000210: 20 20 20 20 20 20 12 9E CF 92 05 4E 45 20 4F 52 | .....NE OR| 00000220: 20 12 9E CD 92 05 55 4C 54 49 50 4C 45 20 C4 52 | .....ULTIPLE .R| 00000230: 49 56 45 53 3F 22 00 42 0A 45 00 97 20 31 39 38 |IVES?".B.E.. 198| 00000240: 2C 30 00 58 0A 46 00 A1 20 41 24 3A 8B 20 41 24 |,0.X.F.. A$:. A$| 00000250: B2 22 22 20 A7 20 37 30 00 89 0A 50 00 8B 20 41 |."" . 70...P.. A| 00000260: 24 B3 B1 22 CF 22 20 AF 20 41 24 B3 B1 22 4F 22 |$.."." . A$.."O"| 00000270: 20 AF 20 41 24 B3 B1 22 CD 22 20 AF 20 41 24 B3 | . A$.."." . A$.| 00000280: B1 22 4D 22 20 A7 20 37 30 00 93 0A 5A 00 97 20 |."M" . 70...Z.. | 00000290: 32 2C 31 00 B6 0A 64 00 8B 20 41 24 B2 22 4D 22 |2,1...d.. A$."M"| 000002A0: 20 B0 20 41 24 B2 22 CD 22 20 A7 20 97 20 32 2C | . A$."." . . 2,| 000002B0: 32 3A 89 31 31 30 00 DC 0A 6E 00 99 22 93 11 20 |2:.110...n..".. | 000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 C1 | ..| 000002D0: D2 C3 20 C1 C9 C4 20 56 37 2E 31 22 00 E6 0A 78 |.. ... V7.1"...x| 000002E0: 00 8D 20 34 37 30 00 05 0B 82 00 99 22 20 20 20 |.. 470......" | 000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000300: 20 C2 59 3A 22 00 35 0B 8C 00 99 22 11 20 20 20 | .Y:".5....". | 00000310: C3 48 4F 4F 53 45 20 4F 4E 45 20 4F 46 20 54 48 |.HOOSE ONE OF TH| 00000320: 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 4F 50 54 49 |E FOLLOWING OPTI| 00000330: 4F 4E 53 3A 22 00 5F 0B 96 00 99 22 20 20 20 20 |ONS:"._...." | 00000340: 20 20 20 20 20 20 20 20 12 9E C3 05 92 52 45 41 | .....REA| 00000350: 54 45 20 41 4E 20 C1 D2 C3 20 46 49 4C 45 2E 00 |TE AN ... FILE..| 00000360: 8F 0B A0 00 99 22 11 20 20 20 20 20 20 12 9E C1 |.....". ...| 00000370: 05 92 50 50 45 4E 44 20 54 4F 20 41 4E 20 45 58 |..PPEND TO AN EX| 00000380: 49 53 49 4E 47 20 C1 D2 C3 20 46 49 4C 45 2E 00 |ISING ... FILE..| 00000390: BB 0B AA 00 99 22 11 20 20 20 20 20 20 20 20 20 |.....". | 000003A0: 20 20 12 9E C4 05 92 49 53 53 4F 4C 56 45 20 41 | .....ISSOLVE A| 000003B0: 4E 20 C1 D2 C3 20 46 49 4C 45 2E 00 E5 0B AF 00 |N ... FILE......| 000003C0: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". | 000003D0: 20 12 9E D3 05 92 C4 C1 20 C1 C9 C4 20 CD 4F 44 | ....... ... .OD| 000003E0: 55 4C 45 2E 22 00 10 0C B4 00 99 22 11 20 20 20 |ULE."......". | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 12 9E C6 05 92 | .....| 00000400: 49 4C 45 20 4D 41 4E 41 47 45 4D 45 4E 54 2E 22 |ILE MANAGEMENT."| 00000410: 00 44 0C BE 00 8B 20 C2 28 32 29 B2 32 20 A7 20 |.D.... .(2).2 . | 00000420: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". | 00000430: 20 20 12 9E C7 05 92 41 54 48 45 52 20 46 49 4C | .....ATHER FIL| 00000440: 45 53 2E 22 00 77 0C C8 00 99 22 11 20 20 20 20 |ES.".w....". | 00000450: 12 9E D5 05 92 53 45 20 44 49 46 46 45 52 45 4E |.....SE DIFFEREN| 00000460: 54 20 44 52 49 56 45 20 43 4F 4E 46 49 47 55 52 |T DRIVE CONFIGUR| 00000470: 41 54 49 4F 4E 2E 22 00 A2 0C CD 00 99 22 11 20 |ATION."......". | 00000480: 20 20 20 20 20 20 20 20 20 20 20 20 20 12 9E D0 | ...| 00000490: 05 92 52 49 4E 54 20 C1 D2 C3 44 20 44 4F 43 53 |..RINT ...D DOCS| 000004A0: 2E 22 00 C9 0C CF 00 99 22 11 20 20 20 20 20 20 |."......". | 000004B0: 20 20 20 20 20 20 20 20 20 20 20 12 9E CE 05 92 | .....| 000004C0: 45 57 20 44 41 54 45 2E 22 00 F2 0C D2 00 99 22 |EW DATE."......"| 000004D0: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 000004E0: 12 9E C5 05 92 58 49 54 20 C1 D2 C3 20 C1 C9 C4 |.....XIT ... ...| 000004F0: 2E 22 00 17 0D DC 00 A1 20 41 24 3A 8B 20 41 24 |."...... A$:. A$| 00000500: B2 22 22 20 A7 20 8D 20 34 32 30 3A 8D 20 35 34 |."" . . 420:. 54| 00000510: 30 3A 20 89 32 32 30 00 53 0D E6 00 8B 41 24 B3 |0: .220.S....A$.| 00000520: B1 22 44 22 AF 41 24 B3 B1 22 C4 22 AF 41 24 B3 |."D".A$..".".A$.| 00000530: B1 22 43 22 AF 41 24 B3 B1 22 C3 22 AF 41 24 B3 |."C".A$..".".A$.| 00000540: B1 22 41 22 AF 20 41 24 B3 B1 22 C1 22 A7 20 56 |."A". A$..".". V| 00000550: 41 B2 31 00 85 0D F0 00 8B 41 24 B3 B1 22 C6 22 |A.1......A$.."."| 00000560: AF 41 24 B3 B1 22 46 22 AF 41 24 B3 B1 22 45 22 |.A$.."F".A$.."E"| 00000570: AF 41 24 B3 B1 22 C5 22 AF 20 56 41 B2 31 20 A7 |.A$..".". VA.1 .| 00000580: 20 56 41 B2 32 00 B4 0D F5 00 8B 41 24 B3 B1 22 | VA.2......A$.."| 00000590: C7 22 AF 41 24 B3 B1 22 47 22 AF 41 24 B3 B1 22 |.".A$.."G".A$.."| 000005A0: 55 22 AF 41 24 B3 B1 22 D5 22 AF 56 41 B2 32 A7 |U".A$..".".VA.2.| 000005B0: 56 41 B2 33 00 E3 0D F6 00 8B 41 24 B3 B1 22 D0 |VA.3......A$..".| 000005C0: 22 AF 41 24 B3 B1 22 50 22 AF 41 24 B3 B1 22 53 |".A$.."P".A$.."S| 000005D0: 22 AF 41 24 B3 B1 22 D3 22 AF 56 41 B2 33 A7 56 |".A$..".".VA.3.V| 000005E0: 41 B2 34 00 08 0E F7 00 8B 41 24 B3 B1 22 4E 22 |A.4......A$.."N"| 000005F0: AF 20 41 24 B3 B1 22 CE 22 AF 56 41 B2 34 A7 56 |. A$..".".VA.4.V| 00000600: 41 B2 35 3A 89 32 32 30 00 4E 0E FC 00 8B 41 24 |A.5:.220.N....A$| 00000610: B2 22 53 22 B0 41 24 B2 22 D3 22 A7 47 4C B2 36 |."S".A$.".".GL.6| 00000620: 3A 99 22 93 11 11 11 22 3B A6 31 35 29 3B 22 CC |:."....";.15);".| 00000630: 4F 41 44 49 4E 47 2E 2E 2E 90 22 3A 4E 24 B2 22 |OADING....":N$."| 00000640: 4D 4F 44 55 4C 45 36 22 3A 89 31 34 35 30 00 94 |MODULE6":.1450..| 00000650: 0E FD 00 8B 41 24 B2 22 D0 22 B0 41 24 B2 22 50 |....A$.".".A$."P| 00000660: 22 A7 47 4C B2 35 3A 99 22 93 11 11 11 22 3B A6 |".GL.5:."....";.| 00000670: 31 35 29 3B 22 CC 4F 41 44 49 4E 47 2E 2E 2E 90 |15);".OADING....| 00000680: 22 3A 4E 24 B2 22 4D 4F 44 55 4C 45 35 22 3A 89 |":N$."MODULE5":.| 00000690: 31 34 35 30 00 DA 0E 04 01 8B 41 24 B2 22 C3 22 |1450......A$."."| 000006A0: B0 41 24 B2 22 43 22 A7 47 4C B2 31 3A 99 22 93 |.A$."C".GL.1:.".| 000006B0: 11 11 11 22 3B A6 31 35 29 3B 22 CC 4F 41 44 49 |...";.15);".OADI| 000006C0: 4E 47 2E 2E 2E 90 22 3A 4E 24 B2 22 4D 4F 44 55 |NG....":N$."MODU| 000006D0: 4C 45 31 22 3A 89 31 34 35 30 00 20 0F 0E 01 8B |LE1":.1450. ....| 000006E0: 41 24 B2 22 C1 22 B0 41 24 B2 22 41 22 A7 47 4C |A$.".".A$."A".GL| 000006F0: B2 33 3A 99 22 93 11 11 11 22 3B A6 31 35 29 3B |.3:."....";.15);| 00000700: 22 CC 4F 41 44 49 4E 47 2E 2E 2E 90 22 3A 4E 24 |".OADING....":N$| 00000710: B2 22 4D 4F 44 55 4C 45 33 22 3A 89 31 34 35 30 |."MODULE3":.1450| 00000720: 00 3B 0F 16 01 8B 41 24 B3 B1 22 C7 22 AF 41 24 |.;....A$..".".A$| 00000730: B3 B1 22 47 22 20 A7 20 32 39 30 00 4F 0F 17 01 |.."G" . 290.O...| 00000740: 8B 20 C2 28 32 29 B3 B1 32 20 A7 20 32 32 30 00 |. .(2)..2 . 220.| 00000750: 86 0F 18 01 47 4C B2 34 3A 99 22 93 11 11 11 22 |....GL.4:."...."| 00000760: 3B A6 31 35 29 3B 22 CC 4F 41 44 49 4E 47 2E 2E |;.15);".OADING..| 00000770: 2E 90 22 3A 4E 24 B2 22 4D 4F 44 55 4C 45 34 22 |..":N$."MODULE4"| 00000780: 3A 89 31 34 35 30 00 A2 0F 22 01 8B 20 41 24 B2 |:.1450...".. A$.| 00000790: 22 C5 22 20 B0 20 41 24 B2 22 45 22 20 A7 20 35 |"." . A$."E" . 5| 000007A0: 39 30 00 BF 0F 27 01 8B 20 41 24 B2 22 4E 22 20 |90...'.. A$."N" | 000007B0: B0 20 41 24 B2 22 CE 22 20 A7 20 32 30 30 30 00 |. A$."." . 2000.| 000007C0: DB 0F 2C 01 8B 20 41 24 B2 22 C6 22 20 B0 20 41 |..,.. A$."." . A| 000007D0: 24 B2 22 46 22 20 A7 20 36 39 30 00 F6 0F 36 01 |$."F" . 690...6.| 000007E0: 8B 20 41 24 B2 22 D5 22 20 B0 20 41 24 B2 22 55 |. A$."." . A$."U| 000007F0: 22 20 A7 20 35 30 00 2E 10 40 01 47 4C B2 32 3A |" . 50...@.GL.2:| 00000800: 99 22 93 11 11 11 22 3B A6 31 35 29 3B 22 CC 4F |."....";.15);".O| 00000810: 41 44 49 4E 47 2E 2E 2E 90 22 3A 4E 24 B2 22 4D |ADING....":N$."M| 00000820: 4F 44 55 4C 45 32 22 3A 89 20 31 34 35 30 00 34 |ODULE2":. 1450.4| 00000830: 10 4A 01 80 00 4C 10 54 01 8F 3A 53 43 52 4F 4C |.J...L.T..:SCROL| 00000840: 4C 49 4E 47 20 4D 45 53 53 41 47 45 00 9C 10 5E |LING MESSAGE...^| 00000850: 01 41 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |.A$." | 00000860: 20 20 20 20 20 20 20 20 D7 52 49 54 54 45 4E 20 | .RITTEN | 00000870: 42 59 20 C4 41 4E 20 CC 45 56 49 4E 45 20 46 4F |BY .AN .EVINE FO| 00000880: 52 20 54 48 4F 53 45 20 57 48 4F 20 57 41 4E 54 |R THOSE WHO WANT| 00000890: 20 4D 45 4E 55 53 20 57 48 45 4E 22 00 EC 10 68 | MENUS WHEN"...h| 000008A0: 01 42 24 B2 22 20 C3 52 45 41 54 49 4E 47 20 4F |.B$." .REATING O| 000008B0: 52 20 C4 49 53 53 4F 4C 56 49 4E 47 20 C1 D2 C3 |R .ISSOLVING ...| 000008C0: 20 46 49 4C 45 53 2E 20 20 C9 54 20 4D 41 4B 45 | FILES. .T MAKE| 000008D0: 53 20 49 54 20 4C 49 4B 45 20 CC 49 42 52 41 52 |S IT LIKE .IBRAR| 000008E0: 59 20 41 4E 44 20 CC 59 4E 58 2E 22 00 1E 11 72 |Y AND .YNX."...r| 000008F0: 01 43 24 B2 22 20 20 D0 4C 45 41 53 45 20 53 45 |.C$." .LEASE SE| 00000900: 4E 44 20 41 4C 4C 20 51 55 45 53 54 49 4F 4E 53 |ND ALL QUESTIONS| 00000910: 2C 20 43 4F 4D 4D 45 4E 54 53 20 4F 52 22 00 61 |, COMMENTS OR".a| 00000920: 11 7C 01 44 24 B2 22 20 53 55 47 47 45 53 54 49 |.|.D$." SUGGESTI| 00000930: 4F 4E 53 20 54 4F 20 4D 45 2C 20 C3 36 34 20 D5 |ONS TO ME, .64 .| 00000940: C7 CF D3 CA 2C 20 54 48 52 4F 55 47 48 20 C5 2D |...., THROUGH .-| 00000950: 4D 41 49 4C 20 4F 4E 20 D1 2D CC 49 4E 4B 21 20 |MAIL ON .-.INK! | 00000960: 22 00 7D 11 86 01 45 24 B2 22 20 20 20 20 20 20 |".}...E$." | 00000970: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 94 11 | "...| 00000980: 90 01 4D 53 24 B2 45 24 AA 41 24 AA 42 24 AA 43 |..MS$.E$.A$.B$.C| 00000990: 24 AA 44 24 00 9A 11 9A 01 8E 00 A6 11 A4 01 99 |$.D$............| 000009A0: 22 13 12 9E 22 3B 00 BE 11 AE 01 58 B2 58 AA 31 |"...";.....X.X.1| 000009B0: 3A 8B 20 58 B2 32 35 36 20 A7 20 58 B2 31 00 E3 |:. X.256 . X.1..| 000009C0: 11 B8 01 99 CA 28 4D 53 24 2C 58 2C 34 30 29 3B |.....(MS$,X,40);| 000009D0: 22 92 05 22 3B 3A 81 20 44 59 B2 31 20 A4 20 31 |"..";:. DY.1 . 1| 000009E0: 30 3A 82 00 E9 11 C2 01 8E 00 F7 11 D6 01 8F 20 |0:............. | 000009F0: 42 59 2D 4C 49 4E 45 00 14 12 E0 01 42 4C 24 28 |BY-LINE.....BL$(| 00000A00: 31 29 B2 22 12 9E C4 9A 41 4E 20 CC 45 56 49 4E |1)."....AN .EVIN| 00000A10: 9E 45 05 22 00 33 12 EA 01 42 4C 24 28 32 29 B2 |.E.".3...BL$(2).| 00000A20: 22 12 1E C4 9E 41 9A 4E 20 CC 45 56 49 9E 4E 1E |"....A.N .EVI.N.| 00000A30: 45 05 22 00 52 12 F4 01 42 4C 24 28 33 29 B2 22 |E.".R...BL$(3)."| 00000A40: 12 1E C4 41 9E 4E 9A 20 CC 45 56 9E 49 1E 4E 45 |...A.N. .EV.I.NE| 00000A50: 05 22 00 71 12 FE 01 42 4C 24 28 34 29 B2 22 12 |.".q...BL$(4).".| 00000A60: 1E C4 41 4E 9E 20 9A CC 45 9E 56 1E 49 4E 45 05 |..AN. ..E.V.INE.| 00000A70: 22 00 90 12 08 02 42 4C 24 28 35 29 B2 22 12 1E |".....BL$(5)."..| 00000A80: C4 41 4E 20 9E CC 9A 9E 45 1E 56 49 4E 45 05 22 |.AN ....E.VINE."| 00000A90: 00 9B 12 12 02 44 49 B2 31 3A 8E 00 A6 12 1C 02 |.....DI.1:......| 00000AA0: 42 B2 42 AA 44 49 00 BD 12 26 02 8B 20 42 B2 36 |B.B.DI...&.. B.6| 00000AB0: 20 A7 20 42 B2 35 3A 20 44 49 B2 AB 31 00 CE 12 | . B.5: DI..1...| 00000AC0: 30 02 8B 20 42 B2 30 20 A7 20 44 49 B2 31 00 F3 |0.. B.0 . DI.1..| 00000AD0: 12 3A 02 99 22 13 11 11 11 20 20 20 20 20 20 20 |.:..".... | 00000AE0: 20 20 20 20 20 20 20 20 20 22 3B 42 4C 24 28 42 | ";BL$(B| 00000AF0: 29 3A 8E 00 2F 13 44 02 97 20 36 33 31 2C 31 33 |):../.D.. 631,13| 00000B00: 3A 97 36 33 32 2C 37 31 3A 97 20 36 33 33 2C 32 |:.632,71:. 633,2| 00000B10: 30 37 3A 97 36 33 35 2C 31 33 3A 97 36 33 36 2C |07:.635,13:.636,| 00000B20: 31 33 3A 97 31 39 38 2C 35 3A 89 20 33 33 30 00 |13:.198,5:. 330.| 00000B30: 56 13 4E 02 99 22 93 11 11 11 11 20 20 20 20 20 |V.N.."..... | 00000B40: 20 20 20 20 20 20 C4 4F 20 59 4F 55 20 57 41 4E | .O YOU WAN| 00000B50: 54 20 54 4F 3A 22 00 81 13 58 02 99 22 11 11 20 |T TO:"...X..".. | 00000B60: 20 20 20 20 20 20 20 20 20 20 12 9E D2 05 92 45 | .....E| 00000B70: 54 55 52 4E 20 54 4F 20 C1 D2 C3 20 C1 C9 C4 2C |TURN TO ... ...,| 00000B80: 22 00 AA 13 62 02 99 22 11 11 20 20 20 20 20 20 |"...b..".. | 00000B90: 20 20 20 20 20 12 9E C5 92 05 58 49 54 20 C1 D2 | .....XIT ..| 00000BA0: C3 20 C1 C9 C4 2C 20 4F 52 22 00 D2 13 6C 02 99 |. ..., OR"...l..| 00000BB0: 22 11 11 20 20 20 20 20 20 20 20 20 20 20 12 9E |".. ..| 00000BC0: C7 92 05 4F 54 4F 20 C2 C1 D3 C9 C3 20 32 2E 30 |...OTO ..... 2.0| 00000BD0: 3F 22 00 E9 13 76 02 A1 20 41 24 3A 8B 20 41 24 |?"...v.. A$:. A$| 00000BE0: B2 22 22 20 A7 20 36 33 30 00 03 14 80 02 8B 20 |."" . 630...... | 00000BF0: 41 24 B2 22 D2 22 20 B0 20 41 24 B2 22 52 22 20 |A$."." . A$."R" | 00000C00: A7 20 8A 00 22 14 8A 02 8B 20 41 24 B2 22 C5 22 |. ..".... A$."."| 00000C10: 20 B0 20 41 24 B2 22 45 22 20 A7 20 99 22 93 22 | . A$."E" . ."."| 00000C20: 3A A2 00 69 14 94 02 8B 41 24 B2 22 C7 22 B0 41 |:..i....A$.".".A| 00000C30: 24 B2 22 47 22 A7 99 22 93 22 3A 97 31 39 38 2C |$."G"..".":.198,| 00000C40: 35 3A 97 36 33 31 2C 36 37 3A 97 36 33 32 2C 37 |5:.631,67:.632,7| 00000C50: 39 3A 97 36 33 33 2C 37 36 3A 97 36 33 34 2C 36 |9:.633,76:.634,6| 00000C60: 38 3A 97 36 33 35 2C 31 33 00 7C 14 9E 02 8B 20 |8:.635,13.|.... | 00000C70: C2 28 31 39 38 29 B2 35 20 A7 20 80 00 86 14 A8 |.(198).5 . .....| 00000C80: 02 89 20 36 33 30 00 9D 14 B2 02 8F 3A 20 46 49 |.. 630......: FI| 00000C90: 4C 45 20 4D 41 4E 41 47 45 4D 45 4E 54 00 D0 14 |LE MANAGEMENT...| 00000CA0: BC 02 99 22 93 12 D4 48 49 53 20 45 4E 54 49 52 |..."...HIS ENTIR| 00000CB0: 45 20 53 45 43 54 49 4F 4E 20 4F 4E 4C 59 20 55 |E SECTION ONLY U| 00000CC0: 53 45 53 20 44 52 49 56 45 20 38 2C 30 21 92 22 |SES DRIVE 8,0!."| 00000CD0: 00 F5 14 C6 02 99 22 11 20 20 20 20 20 20 20 20 |......". | 00000CE0: 20 20 20 20 12 C6 49 4C 45 20 CD 41 4E 41 47 45 | ..ILE .ANAGE| 00000CF0: 4D 45 4E 54 22 00 20 15 D0 02 99 22 11 11 20 20 |MENT". ....".. | 00000D00: 20 20 20 20 20 20 20 20 20 9E 12 C4 92 05 20 46 | ..... F| 00000D10: 4F 52 20 41 20 44 49 52 45 43 54 4F 52 59 2E 22 |OR A DIRECTORY."| 00000D20: 00 46 15 DA 02 99 22 11 20 20 20 20 20 20 20 20 |.F....". | 00000D30: 20 20 20 9E 12 C6 92 05 4F 52 4D 41 54 20 41 20 | .....ORMAT A | 00000D40: 44 49 53 4B 2E 22 00 6E 15 E4 02 99 22 11 20 20 |DISK.".n....". | 00000D50: 20 20 20 20 20 20 20 20 20 9E 12 D6 92 05 41 4C | .....AL| 00000D60: 49 44 41 54 45 20 41 20 44 49 53 4B 2E 22 00 94 |IDATE A DISK."..| 00000D70: 15 EE 02 99 22 11 20 20 20 20 20 20 20 20 20 20 |....". | 00000D80: 20 9E 12 D3 92 05 43 52 41 54 43 48 20 46 49 4C | .....CRATCH FIL| 00000D90: 45 53 2E 22 00 BA 15 F8 02 99 22 11 20 20 20 20 |ES."......". | 00000DA0: 20 20 20 20 20 20 20 9E 12 D2 92 05 45 4E 41 4D | .....ENAM| 00000DB0: 45 20 41 20 46 49 4C 45 2E 22 00 E7 15 02 03 99 |E A FILE."......| 00000DC0: 22 11 20 20 20 20 20 20 20 20 20 20 20 9E 12 CC |". ...| 00000DD0: 92 05 4F 41 44 20 41 44 44 52 45 53 53 20 4F 46 |..OAD ADDRESS OF| 00000DE0: 20 46 49 4C 45 2E 22 00 17 16 0C 03 99 22 11 20 | FILE."......". | 00000DF0: 20 20 20 20 20 20 20 20 20 20 9E 12 C3 92 05 4F | .....O| 00000E00: 4E 54 45 4E 54 53 20 4F 46 20 41 4E 20 C1 D2 C3 |NTENTS OF AN ...| 00000E10: 20 46 49 4C 45 2E 22 00 41 16 16 03 99 22 11 20 | FILE.".A....". | 00000E20: 20 20 20 20 20 20 20 20 20 20 9E 12 C1 92 05 42 | .....B| 00000E30: 4F 52 54 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 2E |ORT TO MAIN MEN.| 00000E40: 22 00 59 16 20 03 A1 20 41 24 3A 8B 20 41 24 B3 |".Y. .. A$:. A$.| 00000E50: B1 22 22 20 A7 20 38 36 30 00 65 16 2A 03 54 47 |."" . 860.e.*.TG| 00000E60: B2 31 AB 54 47 00 7A 16 34 03 8B 20 54 47 B2 30 |.1.TG.z.4.. TG.0| 00000E70: 20 A7 20 99 22 13 9E 12 22 3B 00 8F 16 3E 03 8B | . ."...";...>..| 00000E80: 20 54 47 B2 31 20 A7 20 99 22 13 05 12 22 3B 00 | TG.1 . ."...";.| 00000E90: CE 16 48 03 99 22 D4 48 49 53 20 45 4E 54 49 52 |..H..".HIS ENTIR| 00000EA0: 45 20 53 45 43 54 49 4F 4E 20 4F 4E 4C 59 20 55 |E SECTION ONLY U| 00000EB0: 53 45 53 20 44 52 49 56 45 20 38 2C 30 21 05 92 |SES DRIVE 8,0!..| 00000EC0: 22 3A 81 20 44 B2 31 20 A4 20 34 30 3A 82 00 D8 |":. D.1 . 40:...| 00000ED0: 16 52 03 89 20 38 30 30 00 F5 16 5C 03 8B 20 41 |.R.. 800...\.. A| 00000EE0: 24 B3 B1 22 C6 22 20 AF 41 24 B3 B1 22 46 22 20 |$.."." .A$.."F" | 00000EF0: A7 20 39 31 30 00 0E 17 66 03 99 22 93 12 C6 4F |. 910...f.."...O| 00000F00: 52 4D 41 54 20 41 20 44 49 53 4B 2E 92 22 00 2E |RMAT A DISK.."..| 00000F10: 17 70 03 85 20 22 11 11 11 C4 49 53 4B 20 CE 41 |.p.. "....ISK .A| 00000F20: 4D 45 2C C9 C4 22 3B 44 4E 24 2C 49 44 24 00 4E |ME,..";DN$,ID$.N| 00000F30: 17 7A 03 9F 20 31 35 2C 38 2C 31 35 2C 22 4E 30 |.z.. 15,8,15,"N0| 00000F40: 3A 22 AA 44 4E 24 AA 22 2C 22 AA 49 44 24 00 5D |:".DN$.",".ID$.]| 00000F50: 17 84 03 A0 20 31 35 3A 89 20 39 32 30 00 7A 17 |.... 15:. 920.z.| 00000F60: 8E 03 8B 20 41 24 B3 B1 22 44 22 20 AF 20 41 24 |... A$.."D" . A$| 00000F70: B3 B1 22 C4 22 A7 20 39 38 30 00 A5 17 98 03 99 |..".". 980......| 00000F80: 22 93 20 20 20 20 20 20 20 20 12 C8 4F 4C 44 20 |". ..OLD | 00000F90: 44 4F 57 4E 20 D3 C8 C9 C6 D4 20 54 4F 20 50 41 |DOWN ..... TO PA| 00000FA0: 55 53 45 2E 22 00 BF 17 A2 03 99 22 11 11 44 49 |USE."......"..DI| 00000FB0: 52 22 3A 99 22 13 22 3A 47 4C B2 39 32 33 30 00 |R":.".":GL.9230.| 00000FC0: C8 17 AC 03 89 35 38 30 00 03 18 B6 03 99 22 20 |.....580......" | 00000FD0: 20 20 20 12 D0 52 45 53 53 20 41 4E 59 20 4B 45 | ..RESS ANY KE| 00000FE0: 59 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D |Y TO RETURN TO M| 00000FF0: 45 4E 55 2E 92 22 3A 97 20 31 39 38 2C 30 3A 47 |ENU..":. 198,0:G| 00001000: 4C B2 30 00 1A 18 C0 03 A1 20 41 24 3A 8B 20 41 |L.0...... A$:. A| 00001010: 24 B2 22 22 20 A7 20 39 36 30 00 24 18 CA 03 89 |$."" . 960.$....| 00001020: 20 36 39 30 00 42 18 D4 03 8B 20 41 24 B3 B1 22 | 690.B.... A$.."| 00001030: 56 22 AF 20 41 24 B3 B1 22 D6 22 20 A7 20 31 30 |V". A$.."." . 10| 00001040: 32 30 00 78 18 DE 03 99 22 93 11 11 11 11 11 11 |20.x....".......| 00001050: D6 41 4C 49 44 41 54 49 4E 47 20 49 4E 20 50 52 |.ALIDATING IN PR| 00001060: 4F 47 52 45 53 53 2E 2E 2E D0 4C 45 41 53 45 20 |OGRESS....LEASE | 00001070: 57 41 49 54 21 21 21 22 00 94 18 E8 03 9F 20 31 |WAIT!!!"...... 1| 00001080: 35 2C 38 2C 31 35 2C 22 56 22 3A A0 31 35 3A 89 |5,8,15,"V":.15:.| 00001090: 20 39 32 30 00 9E 18 F2 03 89 20 38 30 30 00 BD | 920...... 800..| 000010A0: 18 FC 03 8B 20 41 24 B3 B1 22 53 22 20 AF 20 41 |.... A$.."S" . A| 000010B0: 24 B3 B1 22 D3 22 20 A7 20 31 30 37 30 00 D5 18 |$.."." . 1070...| 000010C0: 06 04 99 22 93 12 D3 43 52 41 54 43 48 20 46 49 |..."...CRATCH FI| 000010D0: 4C 45 53 2E 22 00 F3 18 10 04 85 20 22 11 11 11 |LES."...... "...| 000010E0: C6 49 4C 45 20 4F 52 20 D0 41 54 54 45 52 4E 22 |.ILE OR .ATTERN"| 000010F0: 3B 46 24 00 0A 19 1A 04 9F 20 31 35 2C 38 2C 31 |;F$...... 15,8,1| 00001100: 35 2C 22 53 30 3A 22 AA 46 24 00 1E 19 24 04 46 |5,"S0:".F$...$.F| 00001110: 24 B2 22 22 3A A0 31 35 3A 89 20 39 32 30 00 3D |$."":.15:. 920.=| 00001120: 19 2E 04 8B 20 41 24 B3 B1 22 52 22 20 AF 20 41 |.... A$.."R" . A| 00001130: 24 B3 B1 22 D2 22 20 A7 20 31 31 33 30 00 54 19 |$.."." . 1130.T.| 00001140: 38 04 99 22 93 11 12 D2 45 4E 41 4D 45 20 C6 49 |8.."....ENAME .I| 00001150: 4C 45 2E 22 00 71 19 42 04 85 22 11 11 C3 55 52 |LE.".q.B.."...UR| 00001160: 52 45 4E 54 20 46 49 4C 45 4E 41 4D 45 22 3B 46 |RENT FILENAME";F| 00001170: 24 00 89 19 4C 04 85 22 11 CE 45 57 20 46 49 4C |$...L.."..EW FIL| 00001180: 45 4E 41 4D 45 22 3B 4E 24 00 A7 19 56 04 9F 20 |ENAME";N$...V.. | 00001190: 31 35 2C 38 2C 31 35 2C 22 52 30 3A 22 AA 4E 24 |15,8,15,"R0:".N$| 000011A0: AA 22 3D 22 AA 46 24 00 C1 19 60 04 46 24 B2 22 |."=".F$...`.F$."| 000011B0: 22 3A 4E 24 B2 22 22 3A A0 31 35 3A 89 20 39 32 |":N$."":.15:. 92| 000011C0: 30 00 E0 19 6A 04 8B 20 41 24 B3 B1 22 4C 22 20 |0...j.. A$.."L" | 000011D0: AF 20 41 24 B3 B1 22 CC 22 20 A7 20 31 31 38 30 |. A$.."." . 1180| 000011E0: 00 01 1A 74 04 99 22 93 12 CC 4F 41 44 20 41 44 |...t.."...OAD AD| 000011F0: 44 52 45 53 53 20 4F 46 20 41 20 46 49 4C 45 2E |DRESS OF A FILE.| 00001200: 22 00 18 1A 7E 04 85 22 11 11 11 C6 49 4C 45 20 |"...~.."....ILE | 00001210: 4E 41 4D 45 22 3B 46 24 00 3C 1A 88 04 99 22 93 |NAME";F$.<....".| 00001220: 11 11 11 53 54 41 52 54 20 41 3A 22 3B 46 24 3A |...START A:";F$:| 00001230: 47 4C B2 39 32 33 30 3A 99 22 13 22 00 46 1A 92 |GL.9230:.".".F..| 00001240: 04 89 20 35 38 30 00 65 1A 9C 04 8B 20 41 24 B3 |.. 580.e.... A$.| 00001250: B1 22 C3 22 20 AF 20 41 24 B3 B1 22 43 22 20 A7 |."." . A$.."C" .| 00001260: 20 31 32 33 30 00 86 1A A6 04 99 22 93 12 C3 4F | 1230......"...O| 00001270: 4E 54 45 4E 54 53 20 4F 46 20 41 4E 20 C1 D2 C3 |NTENTS OF AN ...| 00001280: 20 46 49 4C 45 22 00 A0 1A B0 04 85 22 11 11 11 | FILE"......"...| 00001290: C1 D2 C3 20 46 49 4C 45 4E 41 4D 45 22 3B 46 24 |... FILENAME";F$| 000012A0: 00 C3 1A BA 04 99 22 93 11 11 11 41 52 43 2F 4C |......"....ARC/L| 000012B0: 20 41 3A 22 46 24 3A 99 22 13 22 3A 47 4C B2 39 | A:"F$:.".":GL.9| 000012C0: 32 33 30 00 CD 1A C4 04 89 20 35 38 30 00 E7 1A |230...... 580...| 000012D0: CE 04 8B 20 41 24 B2 22 41 22 20 B0 20 41 24 B2 |... A$."A" . A$.| 000012E0: 22 C1 22 20 A7 20 8A 00 F1 1A D8 04 89 20 38 30 |"." . ....... 80| 000012F0: 30 00 0A 1B E2 04 8F 3A 20 47 45 54 20 41 52 43 |0......: GET ARC| 00001300: 20 56 45 52 53 49 4F 4E 20 23 00 21 1B EC 04 81 | VERSION #.!....| 00001310: 20 56 4E B2 34 39 33 30 39 20 A4 20 34 39 33 31 | VN.49309 . 4931| 00001320: 32 00 36 1B F6 04 56 4E 24 B2 56 4E 24 AA C7 28 |2.6...VN$.VN$..(| 00001330: C2 28 56 4E 29 29 00 3C 1B 00 05 82 00 59 1B 0A |.(VN)).<.....Y..| 00001340: 05 8B 20 56 4E 24 B3 B1 22 31 2E 33 34 22 20 A7 |.. VN$.."1.34" .| 00001350: 20 56 4E 24 B2 22 22 3A 8E 00 6B 1B 14 05 99 22 | VN$."":..k...."| 00001360: 93 11 11 11 11 11 11 11 11 22 3B 00 90 1B 1E 05 |.........";.....| 00001370: 99 22 D9 4F 55 20 41 52 45 20 41 54 54 45 4D 50 |.".OU ARE ATTEMP| 00001380: 54 49 4E 47 20 54 4F 20 55 53 45 20 41 20 22 3B |TING TO USE A ";| 00001390: 00 B9 1B 28 05 99 22 56 45 52 53 49 4F 4E 20 4F |...(.."VERSION O| 000013A0: 46 20 20 C1 D2 C3 20 C1 C9 C4 20 54 48 41 54 20 |F ... ... THAT | 000013B0: 49 53 20 4E 4F 54 20 22 3B 00 DA 1B 32 05 99 22 |IS NOT ";...2.."| 000013C0: 31 30 30 25 20 43 4F 4D 50 41 54 49 42 4C 45 20 |100% COMPATIBLE | 000013D0: 57 49 54 48 54 48 45 20 22 3B 00 FF 1B 3C 05 99 |WITHTHE ";...<..| 000013E0: 22 56 45 52 53 49 4F 4E 20 4F 46 20 C1 D2 C3 20 |"VERSION OF ... | 000013F0: 54 48 41 54 20 59 4F 55 20 41 52 45 20 22 3B 00 |THAT YOU ARE ";.| 00001400: 28 1C 46 05 99 22 55 53 49 4E 47 2E 20 20 D2 49 |(.F.."USING. .I| 00001410: 47 48 54 20 4E 4F 57 20 59 4F 55 20 41 52 45 20 |GHT NOW YOU ARE | 00001420: 55 53 49 4E 47 20 22 3B 00 50 1C 50 05 99 22 56 |USING ";.P.P.."V| 00001430: 45 52 53 49 4F 4E 20 22 3B 56 4E 24 3B 22 20 57 |ERSION ";VN$;" W| 00001440: 48 45 4E 59 4F 55 20 53 48 4F 55 4C 44 20 22 3B |HENYOU SHOULD ";| 00001450: 00 79 1C 5A 05 99 22 42 45 20 55 53 49 4E 47 20 |.y.Z.."BE USING | 00001460: 56 45 52 53 49 4F 4E 20 31 2E 33 34 20 4F 46 20 |VERSION 1.34 OF | 00001470: C1 D2 C3 C1 C9 C4 2E 22 3B 00 A9 1C 64 05 99 22 |.......";...d.."| 00001480: 20 20 D7 48 45 4E 20 59 4F 55 20 47 45 54 20 54 | .HEN YOU GET T| 00001490: 48 45 20 43 4F 52 52 45 43 54 20 56 45 52 53 49 |HE CORRECT VERSI| 000014A0: 4F 4E 20 20 4F 46 20 22 3B 00 CF 1C 6E 05 99 22 |ON OF ";...n.."| 000014B0: C1 D2 C3 2C 20 54 48 49 53 20 50 52 4F 47 52 41 |..., THIS PROGRA| 000014C0: 4D 20 57 49 4C 4C 20 57 4F 52 4B 2E 20 22 3B 00 |M WILL WORK. ";.| 000014D0: FC 1C 78 05 99 22 D5 4E 54 49 4C 20 20 20 59 4F |..x..".NTIL YO| 000014E0: 55 20 47 45 54 20 54 48 45 20 43 4F 52 52 45 43 |U GET THE CORREC| 000014F0: 54 20 56 45 52 53 49 4F 4E 2C 22 3B 00 27 1D 82 |T VERSION,";.'..| 00001500: 05 99 22 20 59 4F 55 20 57 49 4C 4C 20 20 20 4E |.." YOU WILL N| 00001510: 4F 54 20 42 45 20 41 42 4C 45 20 54 4F 20 41 43 |OT BE ABLE TO AC| 00001520: 43 45 53 53 20 22 3B 00 49 1D 8C 05 99 22 54 48 |CESS ";.I...."TH| 00001530: 45 20 52 45 53 54 20 4F 46 20 54 48 45 20 20 20 |E REST OF THE | 00001540: 50 52 4F 47 52 41 4D 2E 22 00 54 1D 96 05 89 20 |PROGRAM.".T.... | 00001550: 31 34 33 30 00 6D 1D A0 05 8F 3A 20 46 49 58 20 |1430.m....: FIX | 00001560: 4C 4F 41 44 20 52 4F 55 54 49 4E 45 21 00 9C 1D |LOAD ROUTINE!...| 00001570: AA 05 4E 24 B2 22 4C CF 22 AA C7 28 33 34 29 AA |..N$."L."..(34).| 00001580: 4E 24 AA C7 28 33 34 29 AA 22 2C 38 22 AA C7 28 |N$..(34).",8"..(| 00001590: 30 29 AA 22 52 D5 22 AA C7 28 30 29 00 AE 1D B4 |0)."R."..(0)....| 000015A0: 05 81 20 4A B2 31 20 A4 20 C3 28 4E 24 29 00 C7 |.. J.1 . .(N$)..| 000015B0: 1D BE 05 97 20 35 31 31 AA 4A 2C C6 28 CA 28 4E |.... 511.J,.(.(N| 000015C0: 24 2C 4A 29 29 3A 82 00 DC 1D C8 05 97 20 37 38 |$,J)):....... 78| 000015D0: 31 2C 32 35 35 3A 97 37 38 32 2C 31 00 01 1E D2 |1,255:.782,1....| 000015E0: 05 97 20 31 39 38 2C 33 3A 97 36 33 31 2C 37 31 |.. 198,3:.631,71| 000015F0: 3A 97 36 33 32 2C 31 31 31 3A 97 36 33 33 2C 31 |:.632,111:.633,1| 00001600: 33 00 0D 1E DC 05 9E 20 34 32 31 31 38 00 22 1E |3...... 42118.".| 00001610: D0 07 8F 20 2A 2A 20 4E 45 57 20 44 41 54 45 20 |... ** NEW DATE | 00001620: 2A 2A 00 3D 1E DA 07 99 22 93 11 11 11 90 44 41 |**.=....".....DA| 00001630: 54 45 05 13 22 3A 47 4C B2 32 30 31 30 00 47 1E |TE..":GL.2010.G.| 00001640: E4 07 89 20 35 38 30 00 87 1E EE 07 99 22 13 11 |... 580......"..| 00001650: 11 11 11 94 94 94 94 94 94 94 94 94 94 94 94 94 |................| 00001660: 94 94 94 94 94 94 94 94 94 94 94 94 94 D4 48 49 |..............HI| 00001670: 53 20 49 53 20 54 48 45 20 43 55 52 52 45 4E 54 |S IS THE CURRENT| 00001680: 20 44 41 54 45 3A 22 00 B0 1E F8 07 99 22 11 11 | DATE:"......"..| 00001690: C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 |.O YOU WANT TO C| 000016A0: 48 41 4E 47 45 20 54 48 45 20 44 41 54 45 3F 22 |HANGE THE DATE?"| 000016B0: 00 BB 1E F9 07 97 31 39 38 2C 30 00 D3 1E 02 08 |......198,0.....| 000016C0: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 32 |. A$:. A$."" . 2| 000016D0: 30 35 30 00 F0 1E 0C 08 8B 20 41 24 B2 22 4E 22 |050...... A$."N"| 000016E0: 20 B0 20 41 24 B2 22 CE 22 20 A7 20 89 31 31 30 | . A$."." . .110| 000016F0: 00 05 1F 16 08 85 22 11 11 C5 4E 54 45 52 20 44 |......"...NTER D| 00001700: 41 59 22 3B 44 00 32 1F 20 08 85 22 C5 4E 54 45 |AY";D.2. ..".NTE| 00001710: 52 20 4E 55 4D 42 45 52 20 43 4F 52 52 45 53 50 |R NUMBER CORRESP| 00001720: 4F 4E 44 49 4E 47 20 54 4F 20 4D 4F 4E 54 48 22 |ONDING TO MONTH"| 00001730: 3B 4D 00 52 1F 2A 08 85 22 C5 4E 54 45 52 20 59 |;M.R.*..".NTER Y| 00001740: 45 41 52 20 28 34 20 44 49 47 49 54 53 21 29 22 |EAR (4 DIGITS!)"| 00001750: 3B 59 00 76 1F 34 08 8B 20 44 B3 31 30 20 A7 20 |;Y.v.4.. D.10 . | 00001760: 44 41 24 B2 22 44 41 54 45 20 22 AA C4 28 44 29 |DA$."DATE "..(D)| 00001770: 3A 89 32 31 31 30 00 8B 1F 39 08 44 41 24 B2 22 |:.2110...9.DA$."| 00001780: 44 41 54 45 20 22 AA C4 28 44 29 00 AF 1F 3E 08 |DATE "..(D)...>.| 00001790: 8B 20 4D B3 31 30 20 A7 20 44 41 24 B2 44 41 24 |. M.10 . DA$.DA$| 000017A0: AA 22 2C 22 AA C4 28 4D 29 3A 89 32 31 32 30 00 |.","..(M):.2120.| 000017B0: C0 1F 43 08 44 41 24 B2 22 2C 22 AA C4 28 4D 29 |..C.DA$.","..(M)| 000017C0: 00 D5 1F 48 08 44 41 24 B2 44 41 24 AA 22 2C 22 |...H.DA$.DA$.","| 000017D0: AA C4 28 59 29 00 F6 1F 52 08 99 22 93 11 11 11 |..(Y)...R.."....| 000017E0: 90 22 3B 44 41 24 22 13 22 3A 47 4C B2 32 30 30 |.";DA$".":GL.200| 000017F0: 30 3A 89 35 38 30 00 00 00 |0:.580... |
........5.... GL.1 . .".DISK ERROR!":.Z.
1.800:.:. 260.C.... GL.2 . .".DISK ERROR
!":.Z.1.800:.:. 320...... GL.3 . .".DISK
ERROR!":.Z.1.800:.:. 270...... GL.4 . .
".DISK ERROR!":.Z.1.800:.:. 280...... GL
.5 . .".DISK ERROR!":.Z.1.800:.:. 253...
... GL.6 . .".DISK ERROR!":.Z.1.800:.:.
252.0.... GL.2010 . 2030.E.... GL.2000 .
2000.\.... 770,131:.771,164.M.... 340:.
1250...... GL.9230 . 950...... 53281,0:
.53280,0:."....";.M.(.. B(2).0 . B(2)..2
54 . B(2)..95 . . 110...2..198,0:."....H
OW MANY DRIVES ARE YOU GOING TO USE?".6.
<..".. ..O..NE OR ..M..ULTIPLE DR
IVES?".B.E.. 198,0.X.F.. A$:. A$."" . 70
...P.. A$.."O" . A$.."O" . A$.."M" . A$.
."M" . 70...Z.. 2,1...D.. A$."M" . A$."M
" . . 2,2:.110...N..".. .A
RC AID V7.1"...X.. 470......"
BY:".5....". CHOOSE ONE OF TH
E FOLLOWING OPTIONS:"._...."
..C..REATE AN ARC FILE.... ..". ..A
..PPEND TO AN EXISING ARC FILE.......".
..D..ISSOLVE AN ARC FILE......
.". ..S..DA AID MODULE."...
...". ..F..ILE MANAGEMENT."
.D.... B(2).2 . .". ..G..A
THER FILES.".W.H..". ..U..SE DIFFEREN
T DRIVE CONFIGURATION."...M..".
..P..RINT ARCD DOCS.".I.O..".
..N..EW DATE."...R..".
..E..XIT ARC AID."...... A$:. A$
."" . . 420:. 540: .220.S....A$.."D".A$.
."D".A$.."C".A$.."C".A$.."A". A$.."A". V
A.1......A$.."F".A$.."F".A$.."E".A$.."E"
. VA.1 . VA.2......A$.."G".A$.."G".A$.."
U".A$.."U".VA.2.VA.3......A$.."P".A$.."P
".A$.."S".A$.."S".VA.3.VA.4......A$.."N"
. A$.."N".VA.4.VA.5:.220.N....A$."S".A$.
"S".GL.6:."....";.15);"LOADING....":N$."
MODULE6":.1450......A$."P".A$."P".GL.5:.
"....";.15);"LOADING....":N$."MODULE5":.
1450.Z....A$."C".A$."C".GL.1:."....";.15
);"LOADING....":N$."MODULE1":.1450. ....
A$."A".A$."A".GL.3:."....";.15);"LOADING
....":N$."MODULE3":.1450.;....A$.."G".A$
.."G" . 290.O.... B(2)..2 . 220.....GL.4
:."....";.15);"LOADING....":N$."MODULE4"
:.1450...".. A$."E" . A$."E" . 590...'..
A$."N" . A$."N" . 2000...,.. A$."F" . A
$."F" . 690...6.. A$."U" . A$."U" . 50..
.@.GL.2:."....";.15);"LOADING....":N$."M
ODULE2":. 1450.4.J...L.T..:SCROLLING MES
SAGE...^.A$." WRITTEN
BY DAN LEVINE FOR THOSE WHO WANT MENUS W
HEN"...H.B$." CREATING OR DISSOLVING ARC
FILES. IT MAKES IT LIKE LIBRARY AND LY
NX."...R.C$." PLEASE SEND ALL QUESTIONS
, COMMENTS OR".A.|.D$." SUGGESTIONS TO M
E, C64 UGOSJ, THROUGH E-MAIL ON Q-LINK!
".}...E$." ".....MS$.E$
.A$.B$.C$.D$............"...";.....X.X.1
:. X.256 . X.1......J(MS$,X,40);"..";:.
DY.1 . 10:....B.....V.. BY-LINE.....BL$(
1)."..D.AN LEVIN.E.".3...BL$(2)."..D.A.N
LEVI.N.E.".R...BL$(3)."..DA.N. LEV.I.NE
.".Q...BL$(4)."..DAN. .LE.V.INE.".....BL
$(5)."..DAN .L..E.VINE.".....DI.1:......
B.B.DI...&.. B.6 . B.5: DI..1.N.0.. B.0
. DI.1...:..".... ";BL$(B
):../.D.. 631,13:.632,71:. 633,207:.635,
13:.636,13:.198,5:. 330.V.N..".....
DO YOU WANT TO:"...X.."..
..R..ETURN TO ARC AID,"...B.."..
..E..XIT ARC AID, OR".R.L.."..
..G..OTO BASIC 2.0?"...V.. A$:. A$
."" . 630...... A$."R" . A$."R" . .."...
. A$."E" . A$."E" . .".":..I....A$."G".A
$."G"..".":.198,5:.631,67:.632,79:.633,7
6:.634,68:.635,13.|.... B(198).5 . .....
.. 630......: FILE MANAGEMENT.P...."..TH
IS ENTIRE SECTION ONLY USES DRIVE 8,0!."
...F..". .FILE MANAGEMENT". .
P..".. ..D.. FOR A DIRECTORY."
.F.Z..". ..F..ORMAT A DISK.".N
....". ..V..ALIDATE A DISK."..
....". ..S..CRATCH FILES."....
..". ..R..ENAME A FILE."......
". ..L..OAD ADDRESS OF FILE.".
.....". ..C..ONTENTS OF AN ARC
FILE.".A....". ..A..BORT TO M
AIN MEN.".Y. .. A$:. A$.."" . 860.E.*.TG
.1.TG.Z.4.. TG.0 . ."...";...>.. TG.1 .
."...";.N.H.."THIS ENTIRE SECTION ONLY U
SES DRIVE 8,0!..":. D.1 . 40:..X.R.. 800
...\.. A$.."F" .A$.."F" . 910...F.."..FO
RMAT A DISK.."...P.. "...DISK NAME,ID";D
N$,ID$.N.Z.. 15,8,15,"N0:".DN$.",".ID$.]
... 15:. 920.Z.... A$.."D" . A$.."D". 9
80......". .HOLD DOWN SHIFT TO PA
USE."......"..DIR":.".":GL.9230.H....580
......" .PRESS ANY KEY TO RETURN TO M
ENU..":. 198,0:GL.0...... A$:. A$."" . 9
60.$.J.. 690.B.T.. A$.."V". A$.."V" . 10
20.X....".......VALIDATING IN PROGRESS..
.PLEASE WAIT!!!"...... 15,8,15,"V": 15:.
920...... 800...... A$.."S" . A$.."S" .
1070.U...."..SCRATCH FILES."...... "...
FILE OR PATTERN";F$...... 15,8,15,"S0:".
F$...$.F$."": 15:. 920.=.... A$.."R" . A
$.."R" . 1130.T.8.."...RENAME FILE.".Q.B
.."..CURRENT FILENAME";F$...L..".NEW FIL
ENAME";N$...V.. 15,8,15,"R0:".N$."=".F$.
A.`.F$."":N$."": 15:. 920...J.. A$.."L"
. A$.."L" . 1180...T.."..LOAD ADDRESS OF
A FILE."...~.."...FILE NAME";F$.<....".
...START A:";F$:GL.9230:.".".F.... 580.E
.... A$.."C" . A$.."C" . 1230......"..CO
NTENTS OF AN ARC FILE". ...."...ARC FILE
NAME";F$.C...."....ARC/L A:"F$:.".":GL.9
230.M.D.. 580...N.. A$."A" . A$."A" . ..
..X.. 800......: GET ARC VERSION #.!....
VN.49309 . 49312.6...VN$.VN$.G(B(VN)).<
.....Y.... VN$.."1.34" . VN$."":..K...."
.........";......"YOU ARE ATTEMPTING TO
USE A ";...(.."VERSION OF ARC AID THAT
IS NOT ";.Z.2.."100% COMPATIBLE WITHTHE
";...<.."VERSION OF ARC THAT YOU ARE ";.
(.F.."USING. RIGHT NOW YOU ARE USING ";
.P.P.."VERSION ";VN$;" WHENYOU SHOULD ";
.Y.Z.."BE USING VERSION 1.34 OF ARCAID."
;...D.." WHEN YOU GET THE CORRECT VERSI
ON OF ";.O.N.."ARC, THIS PROGRAM WILL W
ORK. ";...X.."UNTIL YOU GET THE CORREC
T VERSION,";.'...." YOU WILL NOT BE AB
LE TO ACCESS ";.I...."THE REST OF THE
PROGRAM.".T.... 1430.M. ..: FIX LOAD ROU
TINE!.....N$."LO".G(34).N$.G(34).",8".G(
0)."RU".G(0)...... J.1 . C(N$).G.... 511
.J,F(J(N$,J)):....H.. 781,255:.782,1...R
.. 198,3:.631,71:.632,111:.633,13......
42118.".P.. ** NEW DATE **.=.Z..".....DA
TE..":GL.2010.G.... 580......"..........
.....................THIS IS THE CURRENT
DATE:"......"..DO YOU WANT TO CHANGE TH
E DATE?"......198,0.S.... A$:. A$."" . 2
050...... A$."N" . A$."N" . .110......".
.ENTER DAY";D.2. .."ENTER NUMBER CORRESP
ONDING TO MONTH";M.R.*.."ENTER YEAR (4 D
IGITS!)";Y.V.4.. D.10 . DA$."DATE ".D(D)
:.2110...9.DA$."DATE ".D(D)...>.. M.10 .
DA$.DA$.",".D(M):.2120...C.DA$.",".D(M)
.U.H.DA$.DA$.",".D(Y)...R..".....";DA$".
":GL.2000:.580...
> CLICK IMAGE PREVIEW FOR FULL MODAL