MAIN
FILE INFORMATION
FILENAME(S): MAIN
FILE TYPE(S): PRG
FILE SIZE: 5.4K
FIRST SEEN: 2025-12-02 02:15:47
APPEARS ON: 1 disk(s)
FILE HASH
8d4a4313edb28ccc6b7f5a9b6c8a3708b7e4d69e6b793f49eeafca204aa8c07a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PLOT B | MAIN | PRG | The BAM Archive | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 32 08 00 00 8F 22 20 8D 12 9E 2A 2A 2A 99 |..2...." ...***.| 00000010: 92 20 12 C3 4F 4D 50 41 54 49 42 4C 45 20 57 2F |. ..OMPATIBLE W/| 00000020: 20 C1 D2 C3 20 9F 56 32 2E 31 30 92 9E 20 12 2A | ... .V2.10.. .*| 00000030: 2A 2A 00 60 08 01 00 8B 20 47 4C B2 31 20 A7 20 |**.`.... GL.1 . | 00000040: 99 22 9E C4 49 53 4B 20 C5 52 52 4F 52 21 22 3A |."..ISK .RROR!":| 00000050: 81 5A B2 31 A4 38 30 30 3A 82 3A 89 20 32 36 30 |.Z.1.800:.:. 260| 00000060: 00 8E 08 02 00 8B 20 47 4C B2 32 20 A7 20 99 22 |...... GL.2 . ."| 00000070: 9E C4 C9 D3 CB 20 C5 52 52 4F 52 21 22 3A 81 5A |..... .RROR!":.Z| 00000080: B2 31 A4 38 30 30 3A 82 3A 89 20 33 32 30 00 BC |.1.800:.:. 320..| 00000090: 08 03 00 8B 20 47 4C B2 33 20 A7 20 99 22 9E C4 |.... GL.3 . ."..| 000000A0: 49 53 4B 20 C5 52 52 4F 52 21 22 3A 81 5A B2 31 |ISK .RROR!":.Z.1| 000000B0: A4 38 30 30 3A 82 3A 89 20 32 37 30 00 EA 08 04 |.800:.:. 270....| 000000C0: 00 8B 20 47 4C B2 34 20 A7 20 99 22 9E C4 49 53 |.. GL.4 . ."..IS| 000000D0: 4B 20 C5 52 52 4F 52 21 22 3A 81 5A B2 31 A4 38 |K .RROR!":.Z.1.8| 000000E0: 30 30 3A 82 3A 89 20 32 38 30 00 18 09 05 00 8B |00:.:. 280......| 000000F0: 20 47 4C B2 35 20 A7 20 99 22 9E C4 49 53 4B 20 | GL.5 . ."..ISK | 00000100: C5 52 52 4F 52 21 22 3A 81 5A B2 31 A4 38 30 30 |.RROR!":.Z.1.800| 00000110: 3A 82 3A 89 20 32 35 33 00 46 09 06 00 8B 20 47 |:.:. 253.F.... G| 00000120: 4C B2 36 20 A7 20 99 22 9E C4 49 53 4B 20 C5 52 |L.6 . ."..ISK .R| 00000130: 52 4F 52 21 22 3A 81 5A B2 31 A4 38 30 30 3A 82 |ROR!":.Z.1.800:.| 00000140: 3A 89 20 32 35 32 00 5D 09 07 00 97 20 37 37 30 |:. 252.].... 770| 00000150: 2C 31 33 31 3A 97 37 37 31 2C 31 36 34 00 6E 09 |,131:.771,164.n.| 00000160: 0A 00 8D 20 33 34 30 3A 8D 20 31 32 35 30 00 82 |... 340:. 1250..| 00000170: 09 14 00 8B 20 47 4C B2 39 32 33 30 20 A7 20 39 |.... GL.9230 . 9| 00000180: 35 30 00 A2 09 1E 00 97 20 35 33 32 38 31 2C 30 |50...... 53281,0| 00000190: 3A 97 35 33 32 38 30 2C 30 3A 99 22 93 05 0E 08 |:.53280,0:."....| 000001A0: 22 3B 00 B7 09 28 00 8B 20 C2 28 32 29 B1 30 20 |";...(.. .(2).0 | 000001B0: A7 20 89 20 31 31 30 00 E8 09 32 00 99 22 93 11 |. . 110...2.."..| 000001C0: 11 11 C8 4F 57 20 4D 41 4E 59 20 44 52 49 56 45 |...OW MANY DRIVE| 000001D0: 53 20 41 52 45 20 59 4F 55 20 47 4F 49 4E 47 20 |S ARE YOU GOING | 000001E0: 54 4F 20 55 53 45 3F 22 00 19 0A 3C 00 99 22 11 |TO USE?"...<..".| 000001F0: 11 20 20 20 20 20 20 20 20 12 9E CF 92 05 4E 45 |. .....NE| 00000200: 20 4F 52 20 12 9E CD 92 05 55 4C 54 49 50 4C 45 | OR .....ULTIPLE| 00000210: 20 C4 52 49 56 45 53 3F 22 00 2F 0A 46 00 A1 20 | .RIVES?"./.F.. | 00000220: 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 37 30 00 |A$:. A$."" . 70.| 00000230: 60 0A 50 00 8B 20 41 24 B3 B1 22 CF 22 20 AF 20 |`.P.. A$.."." . | 00000240: 41 24 B3 B1 22 4F 22 20 AF 20 41 24 B3 B1 22 CD |A$.."O" . A$..".| 00000250: 22 20 AF 20 41 24 B3 B1 22 4D 22 20 A7 20 37 30 |" . A$.."M" . 70| 00000260: 00 6A 0A 5A 00 97 20 32 2C 31 00 8D 0A 64 00 8B |.j.Z.. 2,1...d..| 00000270: 20 41 24 B2 22 4D 22 20 B0 20 41 24 B2 22 CD 22 | A$."M" . A$."."| 00000280: 20 A7 20 97 20 32 2C 32 3A 89 31 31 30 00 B4 0A | . . 2,2:.110...| 00000290: 6E 00 99 22 93 11 11 20 20 20 20 20 20 20 20 20 |n.."... | 000002A0: 20 20 20 20 20 20 12 C1 D2 C3 20 C1 C9 C4 20 56 | .... ... V| 000002B0: 36 2E 30 22 00 BE 0A 78 00 8D 20 34 37 30 00 DD |6.0"...x.. 470..| 000002C0: 0A 82 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." | 000002D0: 20 20 20 20 20 20 20 20 20 C2 59 3A 22 00 0F 0B | .Y:"...| 000002E0: 8C 00 99 22 11 11 11 20 20 20 C3 48 4F 4F 53 45 |..."... .HOOSE| 000002F0: 20 4F 4E 45 20 4F 46 20 54 48 45 20 46 4F 4C 4C | ONE OF THE FOLL| 00000300: 4F 57 49 4E 47 20 4F 50 54 49 4F 4E 53 3A 22 00 |OWING OPTIONS:".| 00000310: 3A 0B 96 00 99 22 11 20 20 20 20 20 20 20 20 20 |:....". | 00000320: 20 20 20 12 9E C3 05 92 52 45 41 54 45 20 41 4E | .....REATE AN| 00000330: 20 C1 D2 C3 20 46 49 4C 45 2E 00 6A 0B A0 00 99 | ... FILE..j....| 00000340: 22 11 20 20 20 20 20 20 12 9E C1 05 92 50 50 45 |". .....PPE| 00000350: 4E 44 20 54 4F 20 41 4E 20 45 58 49 53 49 4E 47 |ND TO AN EXISING| 00000360: 20 C1 D2 C3 20 46 49 4C 45 2E 00 96 0B AA 00 99 | ... FILE.......| 00000370: 22 11 20 20 20 20 20 20 20 20 20 20 20 12 9E C4 |". ...| 00000380: 05 92 49 53 53 4F 4C 56 45 20 41 4E 20 C1 D2 C3 |..ISSOLVE AN ...| 00000390: 20 46 49 4C 45 2E 00 C0 0B AF 00 99 22 11 20 20 | FILE.......". | 000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 12 9E D3 05 | ....| 000003B0: 92 C4 C1 20 C1 C9 C4 20 CD 4F 44 55 4C 45 2E 22 |... ... .ODULE."| 000003C0: 00 EB 0B B4 00 99 22 11 20 20 20 20 20 20 20 20 |......". | 000003D0: 20 20 20 20 20 20 12 9E C6 05 92 49 4C 45 20 4D | .....ILE M| 000003E0: 41 4E 41 47 45 4D 45 4E 54 2E 22 00 20 0C BE 00 |ANAGEMENT.". ...| 000003F0: 8B 20 C2 28 32 29 B2 32 20 A7 20 99 22 11 20 20 |. .(2).2 . .". | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 9E | ..| 00000410: C7 05 92 41 54 48 45 52 20 46 49 4C 45 53 2E 22 |...ATHER FILES."| 00000420: 00 53 0C C8 00 99 22 11 20 20 20 20 12 9E D5 05 |.S....". ....| 00000430: 92 53 45 20 44 49 46 46 45 52 45 4E 54 20 44 52 |.SE DIFFERENT DR| 00000440: 49 56 45 20 43 4F 4E 46 49 47 55 52 41 54 49 4F |IVE CONFIGURATIO| 00000450: 4E 2E 22 00 7D 0C CD 00 99 22 11 20 20 20 20 20 |N.".}....". | 00000460: 20 20 20 20 20 20 20 20 12 9E D0 05 92 52 49 4E | .....RIN| 00000470: 54 20 C1 D2 C3 44 20 44 4F 43 53 2E 22 00 A6 0C |T ...D DOCS."...| 00000480: D2 00 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". | 00000490: 20 20 20 20 12 9E C5 05 92 58 49 54 20 C1 D2 C3 | .....XIT ...| 000004A0: 20 C1 C9 C4 2E 22 00 CB 0C DC 00 A1 20 41 24 3A | ...."...... A$:| 000004B0: 8B 20 41 24 B2 22 22 20 A7 20 8D 20 34 32 30 3A |. A$."" . . 420:| 000004C0: 8D 20 35 34 30 3A 20 89 32 32 30 00 07 0D E6 00 |. 540: .220.....| 000004D0: 8B 41 24 B3 B1 22 44 22 AF 41 24 B3 B1 22 C4 22 |.A$.."D".A$.."."| 000004E0: AF 41 24 B3 B1 22 43 22 AF 41 24 B3 B1 22 C3 22 |.A$.."C".A$.."."| 000004F0: AF 41 24 B3 B1 22 41 22 AF 20 41 24 B3 B1 22 C1 |.A$.."A". A$..".| 00000500: 22 A7 20 56 41 B2 31 00 39 0D F0 00 8B 41 24 B3 |". VA.1.9....A$.| 00000510: B1 22 C6 22 AF 41 24 B3 B1 22 46 22 AF 41 24 B3 |.".".A$.."F".A$.| 00000520: B1 22 45 22 AF 41 24 B3 B1 22 C5 22 AF 20 56 41 |."E".A$..".". VA| 00000530: B2 31 20 A7 20 56 41 B2 32 00 68 0D FA 00 8B 41 |.1 . VA.2.h....A| 00000540: 24 B3 B1 22 C7 22 AF 41 24 B3 B1 22 47 22 AF 41 |$..".".A$.."G".A| 00000550: 24 B3 B1 22 55 22 AF 41 24 B3 B1 22 D5 22 AF 56 |$.."U".A$..".".V| 00000560: 41 B2 32 A7 56 41 B2 33 00 9C 0D FB 00 8B 41 24 |A.2.VA.3......A$| 00000570: B3 B1 22 D0 22 AF 41 24 B3 B1 22 50 22 AF 41 24 |..".".A$.."P".A$| 00000580: B3 B1 22 53 22 AF 41 24 B3 B1 22 D3 22 AF 56 41 |.."S".A$..".".VA| 00000590: B2 33 A7 56 41 B2 34 3A 89 32 32 30 00 E2 0D FC |.3.VA.4:.220....| 000005A0: 00 8B 41 24 B2 22 53 22 B0 41 24 B2 22 D3 22 A7 |..A$."S".A$.".".| 000005B0: 47 4C B2 36 3A 99 22 93 11 11 11 22 3B A6 31 35 |GL.6:."....";.15| 000005C0: 29 3B 22 CC 4F 41 44 49 4E 47 2E 2E 2E 90 22 3A |);".OADING....":| 000005D0: 4E 24 B2 22 4D 4F 44 55 4C 45 36 22 3A 89 31 34 |N$."MODULE6":.14| 000005E0: 35 30 00 28 0E FD 00 8B 41 24 B2 22 D0 22 B0 41 |50.(....A$.".".A| 000005F0: 24 B2 22 50 22 A7 47 4C B2 35 3A 99 22 93 11 11 |$."P".GL.5:."...| 00000600: 11 22 3B A6 31 35 29 3B 22 CC 4F 41 44 49 4E 47 |.";.15);".OADING| 00000610: 2E 2E 2E 90 22 3A 4E 24 B2 22 4D 4F 44 55 4C 45 |....":N$."MODULE| 00000620: 35 22 3A 89 31 34 35 30 00 6E 0E 04 01 8B 41 24 |5":.1450.n....A$| 00000630: B2 22 C3 22 B0 41 24 B2 22 43 22 A7 47 4C B2 31 |.".".A$."C".GL.1| 00000640: 3A 99 22 93 11 11 11 22 3B A6 31 35 29 3B 22 CC |:."....";.15);".| 00000650: 4F 41 44 49 4E 47 2E 2E 2E 90 22 3A 4E 24 B2 22 |OADING....":N$."| 00000660: 4D 4F 44 55 4C 45 31 22 3A 89 31 34 35 30 00 B4 |MODULE1":.1450..| 00000670: 0E 0E 01 8B 41 24 B2 22 C1 22 B0 41 24 B2 22 41 |....A$.".".A$."A| 00000680: 22 A7 47 4C B2 33 3A 99 22 93 11 11 11 22 3B A6 |".GL.3:."....";.| 00000690: 31 35 29 3B 22 CC 4F 41 44 49 4E 47 2E 2E 2E 90 |15);".OADING....| 000006A0: 22 3A 4E 24 B2 22 4D 4F 44 55 4C 45 33 22 3A 89 |":N$."MODULE3":.| 000006B0: 31 34 35 30 00 CF 0E 16 01 8B 41 24 B3 B1 22 C7 |1450......A$..".| 000006C0: 22 AF 41 24 B3 B1 22 47 22 20 A7 20 32 39 30 00 |".A$.."G" . 290.| 000006D0: E3 0E 17 01 8B 20 C2 28 32 29 B3 B1 32 20 A7 20 |..... .(2)..2 . | 000006E0: 32 32 30 00 1A 0F 18 01 47 4C B2 34 3A 99 22 93 |220.....GL.4:.".| 000006F0: 11 11 11 22 3B A6 31 35 29 3B 22 CC 4F 41 44 49 |...";.15);".OADI| 00000700: 4E 47 2E 2E 2E 90 22 3A 4E 24 B2 22 4D 4F 44 55 |NG....":N$."MODU| 00000710: 4C 45 34 22 3A 89 31 34 35 30 00 36 0F 22 01 8B |LE4":.1450.6."..| 00000720: 20 41 24 B2 22 C5 22 20 B0 20 41 24 B2 22 45 22 | A$."." . A$."E"| 00000730: 20 A7 20 35 39 30 00 52 0F 2C 01 8B 20 41 24 B2 | . 590.R.,.. A$.| 00000740: 22 C6 22 20 B0 20 41 24 B2 22 46 22 20 A7 20 36 |"." . A$."F" . 6| 00000750: 39 30 00 6D 0F 36 01 8B 20 41 24 B2 22 D5 22 20 |90.m.6.. A$."." | 00000760: B0 20 41 24 B2 22 55 22 20 A7 20 35 30 00 A5 0F |. A$."U" . 50...| 00000770: 40 01 47 4C B2 32 3A 99 22 93 11 11 11 22 3B A6 |@.GL.2:."....";.| 00000780: 31 35 29 3B 22 CC 4F 41 44 49 4E 47 2E 2E 2E 90 |15);".OADING....| 00000790: 22 3A 4E 24 B2 22 4D 4F 44 55 4C 45 32 22 3A 89 |":N$."MODULE2":.| 000007A0: 20 31 34 35 30 00 AB 0F 4A 01 80 00 C3 0F 54 01 | 1450...J.....T.| 000007B0: 8F 3A 53 43 52 4F 4C 4C 49 4E 47 20 4D 45 53 53 |.:SCROLLING MESS| 000007C0: 41 47 45 00 13 10 5E 01 41 24 B2 22 20 20 20 20 |AGE...^.A$." | 000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D7 | .| 000007E0: 52 49 54 54 45 4E 20 42 59 20 C4 41 4E 20 CC 45 |RITTEN BY .AN .E| 000007F0: 56 49 4E 45 20 46 4F 52 20 54 48 4F 53 45 20 57 |VINE FOR THOSE W| 00000800: 48 4F 20 57 41 4E 54 20 4D 45 4E 55 53 20 57 48 |HO WANT MENUS WH| 00000810: 45 4E 22 00 63 10 68 01 42 24 B2 22 20 C3 52 45 |EN".c.h.B$." .RE| 00000820: 41 54 49 4E 47 20 4F 52 20 C4 49 53 53 4F 4C 56 |ATING OR .ISSOLV| 00000830: 49 4E 47 20 C1 D2 C3 20 46 49 4C 45 53 2E 20 20 |ING ... FILES. | 00000840: C9 54 20 4D 41 4B 45 53 20 49 54 20 4C 49 4B 45 |.T MAKES IT LIKE| 00000850: 20 CC 49 42 52 41 52 59 20 41 4E 44 20 CC 59 4E | .IBRARY AND .YN| 00000860: 58 2E 22 00 95 10 72 01 43 24 B2 22 20 20 D0 4C |X."...r.C$." .L| 00000870: 45 41 53 45 20 53 45 4E 44 20 41 4C 4C 20 51 55 |EASE SEND ALL QU| 00000880: 45 53 54 49 4F 4E 53 2C 20 43 4F 4D 4D 45 4E 54 |ESTIONS, COMMENT| 00000890: 53 20 4F 52 22 00 D8 10 7C 01 44 24 B2 22 20 53 |S OR"...|.D$." S| 000008A0: 55 47 47 45 53 54 49 4F 4E 53 20 54 4F 20 4D 45 |UGGESTIONS TO ME| 000008B0: 2C 20 C3 36 34 20 D5 C7 CF D3 CA 2C 20 54 48 52 |, .64 ....., THR| 000008C0: 4F 55 47 48 20 C5 2D 4D 41 49 4C 20 4F 4E 20 D1 |OUGH .-MAIL ON .| 000008D0: 2D CC 49 4E 4B 21 20 22 00 F4 10 86 01 45 24 B2 |-.INK! ".....E$.| 000008E0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 000008F0: 20 20 20 22 00 0B 11 90 01 4D 53 24 B2 45 24 AA | ".....MS$.E$.| 00000900: 41 24 AA 42 24 AA 43 24 AA 44 24 00 11 11 9A 01 |A$.B$.C$.D$.....| 00000910: 8E 00 1D 11 A4 01 99 22 13 12 9E 22 3B 00 35 11 |......."...";.5.| 00000920: AE 01 58 B2 58 AA 31 3A 8B 20 58 B2 32 35 36 20 |..X.X.1:. X.256 | 00000930: A7 20 58 B2 31 00 5A 11 B8 01 99 CA 28 4D 53 24 |. X.1.Z.....(MS$| 00000940: 2C 58 2C 34 30 29 3B 22 92 05 22 3B 3A 81 20 44 |,X,40);"..";:. D| 00000950: 59 B2 31 20 A4 20 31 30 3A 82 00 60 11 C2 01 8E |Y.1 . 10:..`....| 00000960: 00 7D 11 CC 01 8F 3A 20 41 50 50 45 4E 44 20 54 |.}....: APPEND T| 00000970: 4F 20 41 4E 20 41 52 43 20 46 49 4C 45 00 8B 11 |O AN ARC FILE...| 00000980: D6 01 8F 20 42 59 2D 4C 49 4E 45 00 A8 11 E0 01 |... BY-LINE.....| 00000990: 42 4C 24 28 31 29 B2 22 12 9E C4 9A 41 4E 20 CC |BL$(1)."....AN .| 000009A0: 45 56 49 4E 9E 45 05 22 00 C7 11 EA 01 42 4C 24 |EVIN.E.".....BL$| 000009B0: 28 32 29 B2 22 12 1E C4 9E 41 9A 4E 20 CC 45 56 |(2)."....A.N .EV| 000009C0: 49 9E 4E 1E 45 05 22 00 E6 11 F4 01 42 4C 24 28 |I.N.E.".....BL$(| 000009D0: 33 29 B2 22 12 1E C4 41 9E 4E 9A 20 CC 45 56 9E |3)."...A.N. .EV.| 000009E0: 49 1E 4E 45 05 22 00 05 12 FE 01 42 4C 24 28 34 |I.NE.".....BL$(4| 000009F0: 29 B2 22 12 1E C4 41 4E 9E 20 9A CC 45 9E 56 1E |)."...AN. ..E.V.| 00000A00: 49 4E 45 05 22 00 24 12 08 02 42 4C 24 28 35 29 |INE.".$...BL$(5)| 00000A10: B2 22 12 1E C4 41 4E 20 9E CC 9A 9E 45 1E 56 49 |."...AN ....E.VI| 00000A20: 4E 45 05 22 00 2F 12 12 02 44 49 B2 31 3A 8E 00 |NE."./...DI.1:..| 00000A30: 3A 12 1C 02 42 B2 42 AA 44 49 00 51 12 26 02 8B |:...B.B.DI.Q.&..| 00000A40: 20 42 B2 36 20 A7 20 42 B2 35 3A 20 44 49 B2 AB | B.6 . B.5: DI..| 00000A50: 31 00 62 12 30 02 8B 20 42 B2 30 20 A7 20 44 49 |1.b.0.. B.0 . DI| 00000A60: B2 31 00 89 12 3A 02 99 22 13 11 11 11 11 11 20 |.1...:.."...... | 00000A70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "| 00000A80: 3B 42 4C 24 28 42 29 3A 8E 00 C5 12 44 02 97 20 |;BL$(B):....D.. | 00000A90: 36 33 31 2C 31 33 3A 97 36 33 32 2C 37 31 3A 97 |631,13:.632,71:.| 00000AA0: 20 36 33 33 2C 32 30 37 3A 97 36 33 35 2C 31 33 | 633,207:.635,13| 00000AB0: 3A 97 36 33 36 2C 31 33 3A 97 31 39 38 2C 35 3A |:.636,13:.198,5:| 00000AC0: 89 20 33 33 30 00 EC 12 4E 02 99 22 93 11 11 11 |. 330...N.."....| 00000AD0: 11 20 20 20 20 20 20 20 20 20 20 20 C4 4F 20 59 |. .O Y| 00000AE0: 4F 55 20 57 41 4E 54 20 54 4F 3A 22 00 17 13 58 |OU WANT TO:"...X| 00000AF0: 02 99 22 11 11 20 20 20 20 20 20 20 20 20 20 20 |..".. | 00000B00: 12 9E D2 05 92 45 54 55 52 4E 20 54 4F 20 C1 D2 |.....ETURN TO ..| 00000B10: C3 20 C1 C9 C4 2C 22 00 40 13 62 02 99 22 11 11 |. ...,".@.b.."..| 00000B20: 20 20 20 20 20 20 20 20 20 20 20 12 9E C5 92 05 | .....| 00000B30: 58 49 54 20 C1 D2 C3 20 C1 C9 C4 2C 20 4F 52 22 |XIT ... ..., OR"| 00000B40: 00 68 13 6C 02 99 22 11 11 20 20 20 20 20 20 20 |.h.l..".. | 00000B50: 20 20 20 20 12 9E C7 92 05 4F 54 4F 20 C2 C1 D3 | .....OTO ...| 00000B60: C9 C3 20 32 2E 30 3F 22 00 7F 13 76 02 A1 20 41 |.. 2.0?"...v.. A| 00000B70: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 36 33 30 00 |$:. A$."" . 630.| 00000B80: 99 13 80 02 8B 20 41 24 B2 22 D2 22 20 B0 20 41 |..... A$."." . A| 00000B90: 24 B2 22 52 22 20 A7 20 8A 00 B8 13 8A 02 8B 20 |$."R" . ....... | 00000BA0: 41 24 B2 22 C5 22 20 B0 20 41 24 B2 22 45 22 20 |A$."." . A$."E" | 00000BB0: A7 20 99 22 93 22 3A A2 00 FF 13 94 02 8B 41 24 |. .".":.......A$| 00000BC0: B2 22 C7 22 B0 41 24 B2 22 47 22 A7 99 22 93 22 |.".".A$."G".."."| 00000BD0: 3A 97 31 39 38 2C 35 3A 97 36 33 31 2C 36 37 3A |:.198,5:.631,67:| 00000BE0: 97 36 33 32 2C 37 39 3A 97 36 33 33 2C 37 36 3A |.632,79:.633,76:| 00000BF0: 97 36 33 34 2C 36 38 3A 97 36 33 35 2C 31 33 00 |.634,68:.635,13.| 00000C00: 12 14 9E 02 8B 20 C2 28 31 39 38 29 B2 35 20 A7 |..... .(198).5 .| 00000C10: 20 80 00 1C 14 A8 02 89 20 36 33 30 00 33 14 B2 | ....... 630.3..| 00000C20: 02 8F 3A 20 46 49 4C 45 20 4D 41 4E 41 47 45 4D |..: FILE MANAGEM| 00000C30: 45 4E 54 00 66 14 BC 02 99 22 93 12 D4 48 49 53 |ENT.f...."...HIS| 00000C40: 20 45 4E 54 49 52 45 20 53 45 43 54 49 4F 4E 20 | ENTIRE SECTION | 00000C50: 4F 4E 4C 59 20 55 53 45 53 20 44 52 49 56 45 20 |ONLY USES DRIVE | 00000C60: 38 2C 30 21 92 22 00 8B 14 C6 02 99 22 11 20 20 |8,0!."......". | 00000C70: 20 20 20 20 20 20 20 20 20 20 12 C6 49 4C 45 20 | ..ILE | 00000C80: CD 41 4E 41 47 45 4D 45 4E 54 22 00 B6 14 D0 02 |.ANAGEMENT".....| 00000C90: 99 22 11 11 20 20 20 20 20 20 20 20 20 20 20 9E |.".. .| 00000CA0: 12 24 92 05 20 46 4F 52 20 41 20 44 49 52 45 43 |.$.. FOR A DIREC| 00000CB0: 54 4F 52 59 2E 22 00 DC 14 DA 02 99 22 11 20 20 |TORY."......". | 00000CC0: 20 20 20 20 20 20 20 20 20 9E 12 C6 92 05 4F 52 | .....OR| 00000CD0: 4D 41 54 20 41 20 44 49 53 4B 2E 22 00 04 15 E4 |MAT A DISK."....| 00000CE0: 02 99 22 11 20 20 20 20 20 20 20 20 20 20 20 9E |..". .| 00000CF0: 12 D6 92 05 41 4C 49 44 41 54 45 20 41 20 44 49 |....ALIDATE A DI| 00000D00: 53 4B 2E 22 00 2A 15 EE 02 99 22 11 20 20 20 20 |SK.".*....". | 00000D10: 20 20 20 20 20 20 20 9E 12 D3 92 05 43 52 41 54 | .....CRAT| 00000D20: 43 48 20 46 49 4C 45 53 2E 22 00 50 15 F8 02 99 |CH FILES.".P....| 00000D30: 22 11 20 20 20 20 20 20 20 20 20 20 20 9E 12 D2 |". ...| 00000D40: 92 05 45 4E 41 4D 45 20 41 20 46 49 4C 45 2E 22 |..ENAME A FILE."| 00000D50: 00 7D 15 02 03 99 22 11 20 20 20 20 20 20 20 20 |.}....". | 00000D60: 20 20 20 9E 12 CC 92 05 4F 41 44 20 41 44 44 52 | .....OAD ADDR| 00000D70: 45 53 53 20 4F 46 20 46 49 4C 45 2E 22 00 AD 15 |ESS OF FILE."...| 00000D80: 0C 03 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". | 00000D90: 9E 12 C3 92 05 4F 4E 54 45 4E 54 53 20 4F 46 20 |.....ONTENTS OF | 00000DA0: 41 4E 20 C1 D2 C3 20 46 49 4C 45 2E 22 00 D7 15 |AN ... FILE."...| 00000DB0: 16 03 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". | 00000DC0: 9E 12 C1 92 05 42 4F 52 54 20 54 4F 20 4D 41 49 |.....BORT TO MAI| 00000DD0: 4E 20 4D 45 4E 2E 22 00 EF 15 20 03 A1 20 41 24 |N MEN."... .. A$| 00000DE0: 3A 8B 20 41 24 B3 B1 22 22 20 A7 20 38 36 30 00 |:. A$.."" . 860.| 00000DF0: FB 15 2A 03 54 47 B2 31 AB 54 47 00 10 16 34 03 |..*.TG.1.TG...4.| 00000E00: 8B 20 54 47 B2 30 20 A7 20 99 22 13 9E 12 22 3B |. TG.0 . ."...";| 00000E10: 00 25 16 3E 03 8B 20 54 47 B2 31 20 A7 20 99 22 |.%.>.. TG.1 . ."| 00000E20: 13 05 12 22 3B 00 64 16 48 03 99 22 D4 48 49 53 |...";.d.H..".HIS| 00000E30: 20 45 4E 54 49 52 45 20 53 45 43 54 49 4F 4E 20 | ENTIRE SECTION | 00000E40: 4F 4E 4C 59 20 55 53 45 53 20 44 52 49 56 45 20 |ONLY USES DRIVE | 00000E50: 38 2C 30 21 05 92 22 3A 81 20 44 B2 31 20 A4 20 |8,0!..":. D.1 . | 00000E60: 34 30 3A 82 00 6E 16 52 03 89 20 38 30 30 00 8B |40:..n.R.. 800..| 00000E70: 16 5C 03 8B 20 41 24 B3 B1 22 C6 22 20 AF 41 24 |.\.. A$.."." .A$| 00000E80: B3 B1 22 46 22 20 A7 20 39 31 30 00 A4 16 66 03 |.."F" . 910...f.| 00000E90: 99 22 93 12 C6 4F 52 4D 41 54 20 41 20 44 49 53 |."...ORMAT A DIS| 00000EA0: 4B 2E 92 22 00 C4 16 70 03 85 20 22 11 11 11 C4 |K.."...p.. "....| 00000EB0: 49 53 4B 20 CE 41 4D 45 2C C9 C4 22 3B 44 4E 24 |ISK .AME,..";DN$| 00000EC0: 2C 49 44 24 00 E4 16 7A 03 9F 20 31 35 2C 38 2C |,ID$...z.. 15,8,| 00000ED0: 31 35 2C 22 4E 30 3A 22 AA 44 4E 24 AA 22 2C 22 |15,"N0:".DN$.","| 00000EE0: AA 49 44 24 00 F3 16 84 03 A0 20 31 35 3A 89 20 |.ID$...... 15:. | 00000EF0: 39 32 30 00 07 17 8E 03 8B 20 41 24 B3 B1 22 24 |920...... A$.."$| 00000F00: 22 20 A7 20 39 38 30 00 32 17 98 03 99 22 93 20 |" . 980.2....". | 00000F10: 20 20 20 20 20 20 20 12 C8 4F 4C 44 20 44 4F 57 | ..OLD DOW| 00000F20: 4E 20 D3 C8 C9 C6 D4 20 54 4F 20 50 41 55 53 45 |N ..... TO PAUSE| 00000F30: 2E 22 00 4C 17 A2 03 99 22 11 11 44 49 52 22 3A |.".L...."..DIR":| 00000F40: 99 22 13 22 3A 47 4C B2 39 32 33 30 00 55 17 AC |.".":GL.9230.U..| 00000F50: 03 89 35 38 30 00 90 17 B6 03 99 22 20 20 20 20 |..580......" | 00000F60: 12 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |..RESS ANY KEY T| 00000F70: 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |O RETURN TO MENU| 00000F80: 2E 92 22 3A 97 20 31 39 38 2C 30 3A 47 4C B2 30 |..":. 198,0:GL.0| 00000F90: 00 A7 17 C0 03 A1 20 41 24 3A 8B 20 41 24 B2 22 |...... A$:. A$."| 00000FA0: 22 20 A7 20 39 36 30 00 B1 17 CA 03 89 20 36 39 |" . 960...... 69| 00000FB0: 30 00 CF 17 D4 03 8B 20 41 24 B3 B1 22 56 22 AF |0...... A$.."V".| 00000FC0: 20 41 24 B3 B1 22 D6 22 20 A7 20 31 30 32 30 00 | A$.."." . 1020.| 00000FD0: 05 18 DE 03 99 22 93 11 11 11 11 11 11 D6 41 4C |....."........AL| 00000FE0: 49 44 41 54 49 4E 47 20 49 4E 20 50 52 4F 47 52 |IDATING IN PROGR| 00000FF0: 45 53 53 2E 2E 2E D0 4C 45 41 53 45 20 57 41 49 |ESS....LEASE WAI| 00001000: 54 21 21 21 22 00 21 18 E8 03 9F 20 31 35 2C 38 |T!!!".!.... 15,8| 00001010: 2C 31 35 2C 22 56 22 3A A0 31 35 3A 89 20 39 32 |,15,"V":.15:. 92| 00001020: 30 00 2B 18 F2 03 89 20 38 30 30 00 4A 18 FC 03 |0.+.... 800.J...| 00001030: 8B 20 41 24 B3 B1 22 53 22 20 AF 20 41 24 B3 B1 |. A$.."S" . A$..| 00001040: 22 D3 22 20 A7 20 31 30 37 30 00 62 18 06 04 99 |"." . 1070.b....| 00001050: 22 93 12 D3 43 52 41 54 43 48 20 46 49 4C 45 53 |"...CRATCH FILES| 00001060: 2E 22 00 80 18 10 04 85 20 22 11 11 11 C6 49 4C |."...... "....IL| 00001070: 45 20 4F 52 20 D0 41 54 54 45 52 4E 22 3B 46 24 |E OR .ATTERN";F$| 00001080: 00 97 18 1A 04 9F 20 31 35 2C 38 2C 31 35 2C 22 |...... 15,8,15,"| 00001090: 53 30 3A 22 AA 46 24 00 AB 18 24 04 46 24 B2 22 |S0:".F$...$.F$."| 000010A0: 22 3A A0 31 35 3A 89 20 39 32 30 00 CA 18 2E 04 |":.15:. 920.....| 000010B0: 8B 20 41 24 B3 B1 22 52 22 20 AF 20 41 24 B3 B1 |. A$.."R" . A$..| 000010C0: 22 D2 22 20 A7 20 31 31 33 30 00 E1 18 38 04 99 |"." . 1130...8..| 000010D0: 22 93 11 12 D2 45 4E 41 4D 45 20 C6 49 4C 45 2E |"....ENAME .ILE.| 000010E0: 22 00 FE 18 42 04 85 22 11 11 C3 55 52 52 45 4E |"...B.."...URREN| 000010F0: 54 20 46 49 4C 45 4E 41 4D 45 22 3B 46 24 00 16 |T FILENAME";F$..| 00001100: 19 4C 04 85 22 11 CE 45 57 20 46 49 4C 45 4E 41 |.L.."..EW FILENA| 00001110: 4D 45 22 3B 4E 24 00 34 19 56 04 9F 20 31 35 2C |ME";N$.4.V.. 15,| 00001120: 38 2C 31 35 2C 22 52 30 3A 22 AA 4E 24 AA 22 3D |8,15,"R0:".N$."=| 00001130: 22 AA 46 24 00 4E 19 60 04 46 24 B2 22 22 3A 4E |".F$.N.`.F$."":N| 00001140: 24 B2 22 22 3A A0 31 35 3A 89 20 39 32 30 00 6D |$."":.15:. 920.m| 00001150: 19 6A 04 8B 20 41 24 B3 B1 22 4C 22 20 AF 20 41 |.j.. A$.."L" . A| 00001160: 24 B3 B1 22 CC 22 20 A7 20 31 31 38 30 00 8E 19 |$.."." . 1180...| 00001170: 74 04 99 22 93 12 CC 4F 41 44 20 41 44 44 52 45 |t.."...OAD ADDRE| 00001180: 53 53 20 4F 46 20 41 20 46 49 4C 45 2E 22 00 A5 |SS OF A FILE."..| 00001190: 19 7E 04 85 22 11 11 11 C6 49 4C 45 20 4E 41 4D |.~.."....ILE NAM| 000011A0: 45 22 3B 46 24 00 C9 19 88 04 99 22 93 11 11 11 |E";F$......"....| 000011B0: 53 54 41 52 54 20 41 3A 22 3B 46 24 3A 47 4C B2 |START A:";F$:GL.| 000011C0: 39 32 33 30 3A 99 22 13 22 00 D3 19 92 04 89 20 |9230:."."...... | 000011D0: 35 38 30 00 F2 19 9C 04 8B 20 41 24 B3 B1 22 C3 |580...... A$..".| 000011E0: 22 20 AF 20 41 24 B3 B1 22 43 22 20 A7 20 31 32 |" . A$.."C" . 12| 000011F0: 33 30 00 13 1A A6 04 99 22 93 12 C3 4F 4E 54 45 |30......"...ONTE| 00001200: 4E 54 53 20 4F 46 20 41 4E 20 C1 D2 C3 20 46 49 |NTS OF AN ... FI| 00001210: 4C 45 22 00 2D 1A B0 04 85 22 11 11 11 C1 D2 C3 |LE".-...."......| 00001220: 20 46 49 4C 45 4E 41 4D 45 22 3B 46 24 00 50 1A | FILENAME";F$.P.| 00001230: BA 04 99 22 93 11 11 11 41 52 43 2F 4C 20 41 3A |..."....ARC/L A:| 00001240: 22 46 24 3A 99 22 13 22 3A 47 4C B2 39 32 33 30 |"F$:.".":GL.9230| 00001250: 00 5A 1A C4 04 89 20 35 38 30 00 74 1A CE 04 8B |.Z.... 580.t....| 00001260: 20 41 24 B2 22 41 22 20 B0 20 41 24 B2 22 C1 22 | A$."A" . A$."."| 00001270: 20 A7 20 8A 00 7E 1A D8 04 89 20 38 30 30 00 97 | . ..~.... 800..| 00001280: 1A E2 04 8F 3A 20 47 45 54 20 41 52 43 20 56 45 |....: GET ARC VE| 00001290: 52 53 49 4F 4E 20 23 00 AE 1A EC 04 81 20 56 4E |RSION #...... VN| 000012A0: B2 34 39 33 30 39 20 A4 20 34 39 33 31 32 00 C3 |.49309 . 49312..| 000012B0: 1A F6 04 56 4E 24 B2 56 4E 24 AA C7 28 C2 28 56 |...VN$.VN$..(.(V| 000012C0: 4E 29 29 00 C9 1A 00 05 82 00 E6 1A 0A 05 8B 20 |N))............ | 000012D0: 56 4E 24 B3 B1 22 31 2E 33 34 22 20 A7 20 56 4E |VN$.."1.34" . VN| 000012E0: 24 B2 22 22 3A 8E 00 F8 1A 14 05 99 22 93 11 11 |$."":......."...| 000012F0: 11 11 11 11 11 11 22 3B 00 1D 1B 1E 05 99 22 D9 |......";......".| 00001300: 4F 55 20 41 52 45 20 41 54 54 45 4D 50 54 49 4E |OU ARE ATTEMPTIN| 00001310: 47 20 54 4F 20 55 53 45 20 41 20 22 3B 00 46 1B |G TO USE A ";.F.| 00001320: 28 05 99 22 56 45 52 53 49 4F 4E 20 4F 46 20 20 |(.."VERSION OF | 00001330: C1 D2 C3 20 C1 C9 C4 20 54 48 41 54 20 49 53 20 |... ... THAT IS | 00001340: 4E 4F 54 20 22 3B 00 67 1B 32 05 99 22 31 30 30 |NOT ";.g.2.."100| 00001350: 25 20 43 4F 4D 50 41 54 49 42 4C 45 20 57 49 54 |% COMPATIBLE WIT| 00001360: 48 54 48 45 20 22 3B 00 8C 1B 3C 05 99 22 56 45 |HTHE ";...<.."VE| 00001370: 52 53 49 4F 4E 20 4F 46 20 C1 D2 C3 20 54 48 41 |RSION OF ... THA| 00001380: 54 20 59 4F 55 20 41 52 45 20 22 3B 00 B5 1B 46 |T YOU ARE ";...F| 00001390: 05 99 22 55 53 49 4E 47 2E 20 20 D2 49 47 48 54 |.."USING. .IGHT| 000013A0: 20 4E 4F 57 20 59 4F 55 20 41 52 45 20 55 53 49 | NOW YOU ARE USI| 000013B0: 4E 47 20 22 3B 00 DD 1B 50 05 99 22 56 45 52 53 |NG ";...P.."VERS| 000013C0: 49 4F 4E 20 22 3B 56 4E 24 3B 22 20 57 48 45 4E |ION ";VN$;" WHEN| 000013D0: 59 4F 55 20 53 48 4F 55 4C 44 20 22 3B 00 06 1C |YOU SHOULD ";...| 000013E0: 5A 05 99 22 42 45 20 55 53 49 4E 47 20 56 45 52 |Z.."BE USING VER| 000013F0: 53 49 4F 4E 20 31 2E 33 34 20 4F 46 20 C1 D2 C3 |SION 1.34 OF ...| 00001400: C1 C9 C4 2E 22 3B 00 36 1C 64 05 99 22 20 20 D7 |....";.6.d.." .| 00001410: 48 45 4E 20 59 4F 55 20 47 45 54 20 54 48 45 20 |HEN YOU GET THE | 00001420: 43 4F 52 52 45 43 54 20 56 45 52 53 49 4F 4E 20 |CORRECT VERSION | 00001430: 20 4F 46 20 22 3B 00 5C 1C 6E 05 99 22 C1 D2 C3 | OF ";.\.n.."...| 00001440: 2C 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 57 |, THIS PROGRAM W| 00001450: 49 4C 4C 20 57 4F 52 4B 2E 20 22 3B 00 89 1C 78 |ILL WORK. ";...x| 00001460: 05 99 22 D5 4E 54 49 4C 20 20 20 59 4F 55 20 47 |..".NTIL YOU G| 00001470: 45 54 20 54 48 45 20 43 4F 52 52 45 43 54 20 56 |ET THE CORRECT V| 00001480: 45 52 53 49 4F 4E 2C 22 3B 00 B4 1C 82 05 99 22 |ERSION,";......"| 00001490: 20 59 4F 55 20 57 49 4C 4C 20 20 20 4E 4F 54 20 | YOU WILL NOT | 000014A0: 42 45 20 41 42 4C 45 20 54 4F 20 41 43 43 45 53 |BE ABLE TO ACCES| 000014B0: 53 20 22 3B 00 D6 1C 8C 05 99 22 54 48 45 20 52 |S ";......"THE R| 000014C0: 45 53 54 20 4F 46 20 54 48 45 20 20 20 50 52 4F |EST OF THE PRO| 000014D0: 47 52 41 4D 2E 22 00 E1 1C 96 05 89 20 31 34 33 |GRAM."...... 143| 000014E0: 30 00 FA 1C A0 05 8F 3A 20 46 49 58 20 4C 4F 41 |0......: FIX LOA| 000014F0: 44 20 52 4F 55 54 49 4E 45 21 00 29 1D AA 05 4E |D ROUTINE!.)...N| 00001500: 24 B2 22 4C CF 22 AA C7 28 33 34 29 AA 4E 24 AA |$."L."..(34).N$.| 00001510: C7 28 33 34 29 AA 22 2C 38 22 AA C7 28 30 29 AA |.(34).",8"..(0).| 00001520: 22 52 D5 22 AA C7 28 30 29 00 3B 1D B4 05 81 20 |"R."..(0).;.... | 00001530: 4A B2 31 20 A4 20 C3 28 4E 24 29 00 54 1D BE 05 |J.1 . .(N$).T...| 00001540: 97 20 35 31 31 AA 4A 2C C6 28 CA 28 4E 24 2C 4A |. 511.J,.(.(N$,J| 00001550: 29 29 3A 82 00 69 1D C8 05 97 20 37 38 31 2C 32 |)):..i.... 781,2| 00001560: 35 35 3A 97 37 38 32 2C 31 00 8E 1D D2 05 97 20 |55:.782,1...... | 00001570: 31 39 38 2C 33 3A 97 36 33 31 2C 37 31 3A 97 36 |198,3:.631,71:.6| 00001580: 33 32 2C 31 31 31 3A 97 36 33 33 2C 31 33 00 9A |32,111:.633,13..| 00001590: 1D DC 05 9E 20 34 32 31 31 38 00 00 00 |.... 42118... |
..2...." ...***.. .COMPATIBLE W/ ARC .V2
.10.. .***.`.... GL.1 . .".DISK ERROR!":
.Z.1.800:.:. 260...... GL.2 . .".DISK ER
ROR!":.Z.1.800:.:. 320...... GL.3 . .".D
ISK ERROR!":.Z.1.800:.:. 270...... GL.4
. .".DISK ERROR!":.Z.1.800:.:. 280......
GL.5 . .".DISK ERROR!":.Z.1.800:.:. 253
.F.... GL.6 . .".DISK ERROR!":.Z.1.800:.
:. 252.].... 770,131:.771,164.N.... 340:
. 1250...... GL.9230 . 950...... 53281,0
:.53280,0:."....";...(.. B(2).0 . . 110.
..2.."....HOW MANY DRIVES ARE YOU GOING
TO USE?"...<..".. ..O..NE OR ..M.
.ULTIPLE DRIVES?"./.F.. A$:. A$."" . 70.
`.P.. A$.."O" . A$.."O" . A$.."M" . A$..
"M" . 70.J.Z.. 2,1...D.. A$."M" . A$."M"
. . 2,2:.110...N.."... .A
RC AID V6.0"...X.. 470......"
BY:"......"... CHOOSE ONE OF
THE FOLLOWING OPTIONS:".:....".
..C..REATE AN ARC FILE..J. ..".
..A..PPEND TO AN EXISING ARC FILE.......
". ..D..ISSOLVE AN ARC FILE...
....". ..S..DA AID MODULE."
......". ..F..ILE MANAGEMEN
T.". .... B(2).2 . .". ..
G..ATHER FILES.".S.H..". ..U..SE DIFF
ERENT DRIVE CONFIGURATION.".}.M..".
..P..RINT ARCD DOCS."...R..".
..E..XIT ARC AID.".K.... A$:
. A$."" . . 420:. 540: .220......A$.."D"
.A$.."D".A$.."C".A$.."C".A$.."A". A$.."A
". VA.1.9....A$.."F".A$.."F".A$.."E".A$.
."E". VA.1 . VA.2.H....A$.."G".A$.."G".A
$.."U".A$.."U".VA.2.VA.3......A$.."P".A$
.."P".A$.."S".A$.."S".VA.3.VA.4:.220....
..A$."S".A$."S".GL.6:."....";.15);"LOADI
NG....":N$."MODULE6":.1450.(....A$."P".A
$."P".GL.5:."....";.15);"LOADING....":N$
."MODULE5":.1450.N....A$."C".A$."C".GL.1
:."....";.15);"LOADING....":N$."MODULE1"
:.1450......A$."A".A$."A".GL.3:."....";.
15);"LOADING....":N$."MODULE3":.1450.O..
..A$.."G".A$.."G" . 290...... B(2)..2 .
220.....GL.4:."....";.15);"LOADING....":
N$."MODULE4":.1450.6.".. A$."E" . A$."E"
. 590.R.,.. A$."F" . A$."F" . 690.M.6..
A$."U" . A$."U" . 50...@.GL.2:."....";.
15);"LOADING....":N$."MODULE2":. 1450...
J...C.T..:SCROLLING MESSAGE...^.A$."
WRITTEN BY DAN LEVINE FOR
THOSE WHO WANT MENUS WHEN".C.H.B$." CRE
ATING OR DISSOLVING ARC FILES. IT MAKES
IT LIKE LIBRARY AND LYNX."...R.C$." PL
EASE SEND ALL QUESTIONS, COMMENTS OR".X.
|.D$." SUGGESTIONS TO ME, C64 UGOSJ, THR
OUGH E-MAIL ON Q-LINK! ".....E$."
".....MS$.E$.A$.B$.C$.D$.....
......."...";.5...X.X.1:. X.256 . X.1.Z.
...J(MS$,X,40);"..";:. DY.1 . 10:..`.B..
.}.L..: APPEND TO AN ARC FILE...V.. BY-L
INE.....BL$(1)."..D.AN LEVIN.E.".G...BL$
(2)."..D.A.N LEVI.N.E.".....BL$(3)."..DA
.N. LEV.I.NE.".....BL$(4)."..DAN. .LE.V.
INE.".$...BL$(5)."..DAN .L..E.VINE."./..
.DI.1:..:...B.B.DI.Q.&.. B.6 . B.5: DI..
1.B.0.. B.0 . DI.1...:.."......
";BL$(B):..E.D.. 631,13:.632,71:.
633,207:.635,13:.636,13:.198,5:. 330...
N.."..... DO YOU WANT TO:"...X
..".. ..R..ETURN TO ARC AID,".
@.B..".. ..E..XIT ARC AID, OR"
.H.L..".. ..G..OTO BASIC 2.0?"
..V.. A$:. A$."" . 630...... A$."R" . A
$."R" . ....... A$."E" . A$."E" . .".":.
......A$."G".A$."G"..".":.198,5:.631,67:
.632,79:.633,76:.634,68:.635,13...... B(
198).5 . ....... 630.3....: FILE MANAGEM
ENT.F...."..THIS ENTIRE SECTION ONLY USE
S DRIVE 8,0!."...F..". .FILE
MANAGEMENT"...P..".. ..$.. FOR
A DIRECTORY."...Z..". ..F..OR
MAT A DISK."......". ..V..ALID
ATE A DISK.".*....". ..S..CRAT
CH FILES.".P....". ..R..ENAME
A FILE.".}....". ..L..OAD ADDR
ESS OF FILE."......". ..C..ONT
ENTS OF AN ARC FILE.".W....".
..A..BORT TO MAIN MEN."... .. A$:. A$.."
" . 860...*.TG.1.TG...4.. TG.0 . ."...";
.%.>.. TG.1 . ."...";.D.H.."THIS ENTIRE
SECTION ONLY USES DRIVE 8,0!..":. D.1 .
40:..N.R.. 800...\.. A$.."F" .A$.."F" .
910...F.."..FORMAT A DISK..".D.P.. "...D
ISK NAME,ID";DN$,ID$...Z.. 15,8,15,"N0:"
.DN$.",".ID$..... 15:. 920...... A$.."$
" . 980.2....". .HOLD DOWN SHIFT
TO PAUSE.".L...."..DIR":.".":GL.9230.U..
..580......" .PRESS ANY KEY TO RETURN
TO MENU..":. 198,0:GL.0...... A$:. A$."
" . 960...J.. 690.O.T.. A$.."V". A$.."V"
. 1020......".......VALIDATING IN PROGR
ESS...PLEASE WAIT!!!".!.... 15,8,15,"V":
15:. 920.+.... 800.J.... A$.."S" . A$..
"S" . 1070.B...."..SCRATCH FILES."......
"...FILE OR PATTERN";F$...... 15,8,15,"
S0:".F$...$.F$."": 15:. 920.J.... A$.."R
" . A$.."R" . 1130...8.."...RENAME FILE.
"...B.."..CURRENT FILENAME";F$...L..".NE
W FILENAME";N$.4.V.. 15,8,15,"R0:".N$."=
".F$.N.`.F$."":N$."": 15:. 920.M.J.. A$.
."L" . A$.."L" . 1180...T.."..LOAD ADDRE
SS OF A FILE."...~.."...FILE NAME";F$.I.
..."....START A:";F$:GL.9230:.".".S....
580...... A$.."C" . A$.."C" . 1230......
"..CONTENTS OF AN ARC FILE".-...."...ARC
FILENAME";F$.P...."....ARC/L A:"F$:."."
:GL.9230.Z.D.. 580.T.N.. A$."A" . A$."A"
. ..~.X.. 800......: GET ARC VERSION #.
..... VN.49309 . 49312.C...VN$.VN$.G(B(V
N)).I.......... VN$.."1.34" . VN$."":...
....".........";......"YOU ARE ATTEMPTIN
G TO USE A ";.F.(.."VERSION OF ARC AID
THAT IS NOT ";.G.2.."100% COMPATIBLE WIT
HTHE ";...<.."VERSION OF ARC THAT YOU AR
E ";...F.."USING. RIGHT NOW YOU ARE USI
NG ";...P.."VERSION ";VN$;" WHENYOU SHOU
LD ";...Z.."BE USING VERSION 1.34 OF ARC
AID.";.6.D.." WHEN YOU GET THE CORRECT
VERSION OF ";.\.N.."ARC, THIS PROGRAM W
ILL WORK. ";...X.."UNTIL YOU GET THE C
ORRECT VERSION,";......" YOU WILL NOT
BE ABLE TO ACCESS ";.V...."THE REST OF T
HE PROGRAM."...... 1430... ..: FIX LOA
D ROUTINE!.)...N$."LO".G(34).N$.G(34).",
8".G(0)."RU".G(0).;.... J.1 . C(N$).T...
. 511.J,F(J(N$,J)):..I.H.. 781,255:.782,
1...R.. 198,3:.631,71:.632,111:.633,13..
.... 42118...
> CLICK IMAGE PREVIEW FOR FULL MODAL