MODULE1
FILE INFORMATION
FILENAME(S): MODULE1
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-02 02:15:47
APPEARS ON: 1 disk(s)
FILE HASH
6e21954f7fa0d409c3d07bdb95321ea76b1c19447014f96a0f1db6047a289e8e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PLOT B | MODULE1 | PRG | The BAM Archive | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 8F 00 17 08 01 00 8B 20 47 4C |............. GL| 00000010: B2 30 20 A7 20 34 30 00 29 08 02 00 8B 20 47 4C |.0 . 40.).... GL| 00000020: B2 36 36 20 A7 20 31 34 30 00 3C 08 0A 00 8B 20 |.66 . 140.<.... | 00000030: 47 4C B2 35 30 30 20 A7 20 32 33 30 00 4F 08 14 |GL.500 . 230.O..| 00000040: 00 8B 20 47 4C B2 37 34 30 20 A7 20 34 39 30 00 |.. GL.740 . 490.| 00000050: 62 08 1E 00 8B 20 47 4C B2 37 36 30 20 A7 20 35 |b.... GL.760 . 5| 00000060: 31 30 00 79 08 28 00 8F 3A 20 43 52 45 41 54 45 |10.y.(..: CREATE| 00000070: 20 41 52 43 20 46 49 4C 45 00 A2 08 32 00 99 22 | ARC FILE...2.."| 00000080: 93 11 05 20 20 20 20 20 20 20 20 20 20 20 20 20 |... | 00000090: 12 C3 52 45 41 54 45 20 C1 D2 C3 20 46 49 4C 45 |..REATE ... FILE| 000000A0: 92 22 00 D2 08 3C 00 99 22 11 11 20 20 20 20 20 |."...<..".. | 000000B0: D0 4C 45 41 53 45 20 49 4E 53 45 52 54 20 44 49 |.LEASE INSERT DI| 000000C0: 53 4B 20 57 49 54 48 20 C1 D2 C3 20 46 49 4C 45 |SK WITH ... FILE| 000000D0: 2E 22 00 07 09 46 00 99 22 11 11 20 20 D0 52 45 |."...F..".. .RE| 000000E0: 53 53 20 12 9E 24 05 92 20 46 4F 52 20 41 20 44 |SS ..$.. FOR A D| 000000F0: 49 52 45 43 54 4F 52 59 20 4F 46 20 C4 52 49 56 |IRECTORY OF .RIV| 00000100: 45 20 38 2C 30 2E 22 00 3C 09 50 00 99 22 11 11 |E 8,0.".<.P.."..| 00000110: 20 D0 52 45 53 53 20 12 9E D5 05 92 20 46 4F 52 | .RESS ..... FOR| 00000120: 20 41 20 4E 45 57 20 44 52 49 56 45 20 43 4F 4E | A NEW DRIVE CON| 00000130: 46 49 47 55 52 41 54 49 4F 4E 2E 22 00 72 09 5A |FIGURATION.".r.Z| 00000140: 00 99 22 11 11 20 D0 52 45 53 53 20 12 9E D3 D0 |..".. .RESS ....| 00000150: C1 C3 C5 20 C2 C1 D2 05 92 20 54 4F 20 52 45 54 |... ..... TO RET| 00000160: 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |URN TO MAIN MENU| 00000170: 2E 22 00 9F 09 64 00 99 22 11 11 20 20 20 20 20 |."...d..".. | 00000180: 20 20 C1 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 | .NY OTHER KEY | 00000190: 57 49 4C 4C 20 43 4F 4E 54 49 4E 55 45 2E 22 00 |WILL CONTINUE.".| 000001A0: B6 09 6E 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |..n.. A$:. A$.""| 000001B0: 20 A7 20 31 31 30 00 D5 09 78 00 8B 20 41 24 B2 | . 110...x.. A$.| 000001C0: 22 D5 22 20 B0 20 41 24 B2 22 55 22 20 A7 20 8D |"." . A$."U" . .| 000001D0: 36 36 30 3A 89 00 E9 09 82 00 8B 20 41 24 B3 B1 |660:....... A$..| 000001E0: 22 20 22 20 A7 20 31 39 30 00 24 0A 8C 00 47 4C |" " . 190.$...GL| 000001F0: B2 36 36 3A 99 22 93 05 11 11 11 11 11 20 D0 4C |.66:."....... .L| 00000200: 45 41 53 45 20 49 4E 53 45 52 54 20 44 49 53 4B |EASE INSERT DISK| 00000210: 20 57 49 54 48 20 C1 D2 C3 20 C1 C9 C4 20 4F 4E | WITH ... ... ON| 00000220: 20 49 54 22 00 49 0A 96 00 99 22 20 20 20 20 20 | IT".I...." | 00000230: 20 20 20 20 20 20 41 4E 44 20 50 52 45 53 53 20 | AND PRESS | 00000240: 41 4E 59 20 4B 45 59 2E 22 00 54 0A A0 00 97 31 |ANY KEY.".T....1| 00000250: 39 38 2C 30 00 6A 0A AA 00 A1 41 24 3A 8B 20 41 |98,0.j....A$:. A| 00000260: 24 B2 22 22 20 A7 20 31 37 30 00 88 0A AF 00 99 |$."" . 170......| 00000270: 22 93 11 11 11 22 3B A6 31 35 29 3B 22 CC 4F 41 |"....";.15);".OA| 00000280: 44 49 4E 47 2E 2E 2E 22 00 B3 0A B4 00 99 22 13 |DING..."......".| 00000290: 90 11 11 4C 4F 41 44 22 C7 28 33 34 29 22 4D 41 |...LOAD".(34)"MA| 000002A0: 49 4E 22 C7 28 33 34 29 22 2C 38 13 22 3B 3A 89 |IN".(34)",8.";:.| 000002B0: 36 35 30 00 C7 0A BE 00 8B 20 41 24 B3 B1 22 24 |650...... A$.."$| 000002C0: 22 20 A7 20 32 36 30 00 F2 0A C8 00 99 22 93 20 |" . 260......". | 000002D0: 20 20 20 20 20 20 20 12 C8 4F 4C 44 20 44 4F 57 | ..OLD DOW| 000002E0: 4E 20 D3 C8 C9 C6 D4 20 54 4F 20 50 41 55 53 45 |N ..... TO PAUSE| 000002F0: 2E 22 00 0B 0B D2 00 99 22 11 11 44 49 52 22 3A |."......"..DIR":| 00000300: 99 22 13 22 3A 47 4C B2 35 30 30 00 14 0B DC 00 |.".":GL.500.....| 00000310: 89 36 35 30 00 4E 0B E6 00 97 31 39 38 2C 30 3A |.650.N....198,0:| 00000320: 99 22 20 20 20 20 12 D0 52 45 53 53 20 41 4E 59 |." ..RESS ANY| 00000330: 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 20 54 | KEY TO RETURN T| 00000340: 4F 20 4D 45 4E 55 2E 92 22 3A 47 4C B2 30 00 65 |O MENU..":GL.0.e| 00000350: 0B F0 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |.... A$:. A$."" | 00000360: A7 20 32 34 30 00 6E 0B FA 00 89 20 34 30 00 96 |. 240.n.... 40..| 00000370: 0B 04 01 99 22 93 20 20 20 20 20 20 20 20 20 20 |....". | 00000380: 20 20 20 12 C3 52 45 41 54 45 20 C1 D2 C3 20 46 | ..REATE ... F| 00000390: 49 4C 45 2E 92 22 00 C3 0B 0E 01 99 22 93 11 20 |ILE.."......".. | 000003A0: 20 20 CE 4F 57 20 54 48 41 54 20 59 4F 55 20 4B | .OW THAT YOU K| 000003B0: 4E 4F 57 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 |NOW THE NAME OF | 000003C0: 54 48 45 00 FD 0B 18 01 99 22 46 49 4C 45 20 54 |THE......"FILE T| 000003D0: 4F 20 42 45 20 C1 D2 C3 44 2C 20 41 4E 53 57 45 |O BE ...D, ANSWE| 000003E0: 52 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 |R THE FOLLOWING | 000003F0: 20 20 51 55 45 53 54 49 4F 4E 53 3A 22 00 31 0C | QUESTIONS:".1.| 00000400: 22 01 85 20 22 11 11 11 11 11 11 C1 D2 C3 20 46 |".. "......... F| 00000410: 49 4C 45 20 54 4F 20 42 45 20 43 52 45 41 54 45 |ILE TO BE CREATE| 00000420: 44 22 3B 46 24 3A 8B 20 46 24 B2 22 22 20 A7 20 |D";F$:. F$."" . | 00000430: 8A 00 61 0C 2C 01 8B C2 28 32 29 B1 31 A7 99 22 |..a.,...(2).1.."| 00000440: D0 55 54 20 12 9E CF 55 54 50 55 54 92 05 20 44 |.UT ...UTPUT.. D| 00000450: 49 53 4B 20 49 4E 20 C4 52 49 56 45 20 38 2C 30 |ISK IN .RIVE 8,0| 00000460: 22 00 71 0C 36 01 8B 20 41 B2 39 20 A7 20 34 31 |".q.6.. A.9 . 41| 00000470: 30 00 9C 0C 40 01 85 20 22 C6 49 4C 45 2C 20 50 |0...@.. ".ILE, P| 00000480: 41 54 54 45 52 4E 20 4F 52 20 12 9E D2 C5 D4 D5 |ATTERN OR ......| 00000490: D2 CE 92 05 22 3B 46 49 24 28 41 29 00 B2 0C 4A |....";FI$(A)...J| 000004A0: 01 8B 20 46 49 24 28 41 29 B2 22 22 20 A7 20 34 |.. FI$(A)."" . 4| 000004B0: 31 30 00 F9 0C 54 01 8B C2 28 32 29 B1 31 A7 85 |10...T...(2).1..| 000004C0: 22 CF 4E 20 57 48 41 54 20 44 52 49 56 45 20 43 |".N WHAT DRIVE C| 000004D0: 41 4E 20 54 48 49 53 20 46 49 4C 45 20 42 45 20 |AN THIS FILE BE | 000004E0: 46 4F 55 4E 44 20 20 20 20 28 45 58 2E 20 39 2C |FOUND (EX. 9,| 000004F0: 30 29 22 3B 44 56 2C 44 52 00 0E 0D 5E 01 8D 20 |0)";DV,DR...^.. | 00000500: 35 34 30 3A 46 44 24 28 41 29 B2 44 52 24 00 24 |540:FD$(A).DR$.$| 00000510: 0D 68 01 81 20 49 B2 31 20 A4 20 C3 28 46 49 24 |.h.. I.1 . .(FI$| 00000520: 28 41 29 29 00 56 0D 72 01 8B 20 CA 28 46 49 24 |(A)).V.r.. .(FI$| 00000530: 28 41 29 2C 49 2C 31 29 B2 22 20 22 20 A7 20 54 |(A),I,1)." " . T| 00000540: 45 24 28 41 29 B2 54 45 24 28 41 29 AA 22 3F 22 |E$(A).TE$(A)."?"| 00000550: 3A 89 20 33 39 30 00 76 0D 7C 01 54 45 24 28 41 |:. 390.v.|.TE$(A| 00000560: 29 B2 54 45 24 28 41 29 AA CA 28 46 49 24 28 41 |).TE$(A)..(FI$(A| 00000570: 29 2C 49 2C 31 29 00 7C 0D 86 01 82 00 8C 0D 90 |),I,1).|........| 00000580: 01 41 B2 41 AA 31 3A 89 20 33 31 30 00 A0 0D 9A |.A.A.1:. 310....| 00000590: 01 8B 20 46 49 24 28 30 29 B2 22 22 20 A7 20 8A |.. FI$(0)."" . .| 000005A0: 00 BC 0D A4 01 43 24 B2 22 41 52 43 2F 43 20 41 |.....C$."ARC/C A| 000005B0: 3A 22 AA 46 24 3A 45 58 24 B2 22 22 00 CC 0D AE |:".F$:EX$.""....| 000005C0: 01 81 20 49 B2 30 20 A4 20 41 AB 31 00 EA 0D B8 |.. I.0 . A.1....| 000005D0: 01 45 58 24 B2 45 58 24 AA 22 20 22 AA 46 44 24 |.EX$.EX$." ".FD$| 000005E0: 28 49 29 AA 54 45 24 28 49 29 00 F0 0D C2 01 82 |(I).TE$(I)......| 000005F0: 00 FE 0D CC 01 43 24 B2 43 24 AA 45 58 24 00 19 |.....C$.C$.EX$..| 00000600: 0E D6 01 99 22 93 11 11 11 22 3B 43 24 3A 99 22 |...."....";C$:."| 00000610: 13 22 3A 47 4C B2 37 34 30 00 22 0E E0 01 89 36 |.":GL.740."....6| 00000620: 35 30 00 44 0E EA 01 99 22 93 11 11 11 41 52 43 |50.D...."....ARC| 00000630: 2F 4C 20 41 3A 22 46 24 3A 99 22 13 22 3A 47 4C |/L A:"F$:.".":GL| 00000640: B2 37 36 30 00 4D 0E F4 01 89 36 35 30 00 8B 0E |.760.M....650...| 00000650: FE 01 97 20 31 39 38 2C 30 3A 99 22 20 20 12 D0 |... 198,0:." ..| 00000660: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO | 00000670: 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D |RETURN TO MAIN M| 00000680: 45 4E 55 2E 92 22 3A 47 4C B2 30 00 A2 0E 08 02 |ENU..":GL.0.....| 00000690: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 35 |. A$:. A$."" . 5| 000006A0: 32 30 00 A8 0E 12 02 8A 00 B3 0E 1C 02 44 52 24 |20...........DR$| 000006B0: B2 22 22 00 D0 0E 26 02 8B 20 44 56 B2 38 20 AF |.""...&.. DV.8 .| 000006C0: 20 44 52 B2 30 20 A7 20 44 52 24 B2 22 41 3A 22 | DR.0 . DR$."A:"| 000006D0: 00 ED 0E 30 02 8B 20 44 56 B2 38 20 AF 20 44 52 |...0.. DV.8 . DR| 000006E0: B2 31 20 A7 20 44 52 24 B2 22 42 3A 22 00 0A 0F |.1 . DR$."B:"...| 000006F0: 3A 02 8B 20 44 56 B2 39 20 AF 20 44 52 B2 30 20 |:.. DV.9 . DR.0 | 00000700: A7 20 44 52 24 B2 22 43 3A 22 00 27 0F 44 02 8B |. DR$."C:".'.D..| 00000710: 20 44 56 B2 39 20 AF 20 44 52 B2 31 20 A7 20 44 | DV.9 . DR.1 . D| 00000720: 52 24 B2 22 44 3A 22 00 44 0F 4E 02 8B 20 44 56 |R$."D:".D.N.. DV| 00000730: B2 31 30 AF 20 44 52 B2 30 20 A7 20 44 52 24 B2 |.10. DR.0 . DR$.| 00000740: 22 45 3A 22 00 62 0F 58 02 8B 20 44 56 B2 31 30 |"E:".b.X.. DV.10| 00000750: 20 AF 20 44 52 B2 31 20 A7 20 44 52 24 B2 22 46 | . DR.1 . DR$."F| 00000760: 3A 22 00 80 0F 62 02 8B 20 44 56 B2 31 31 20 AF |:"...b.. DV.11 .| 00000770: 20 44 52 B2 30 20 A7 20 44 52 24 B2 22 47 3A 22 | DR.0 . DR$."G:"| 00000780: 00 9E 0F 6C 02 8B 20 44 56 B2 31 31 20 AF 20 44 |...l.. DV.11 . D| 00000790: 52 B2 31 20 A7 20 44 52 24 B2 22 48 3A 22 00 A4 |R.1 . DR$."H:"..| 000007A0: 0F 76 02 8E 00 AA 0F 80 02 80 00 E6 0F 8A 02 97 |.v..............| 000007B0: 20 36 33 31 2C 31 33 3A 97 36 33 32 2C 37 31 3A | 631,13:.632,71:| 000007C0: 97 20 36 33 33 2C 32 30 37 3A 97 36 33 35 2C 31 |. 633,207:.635,1| 000007D0: 33 3A 97 36 33 36 2C 31 33 3A 97 31 39 38 2C 35 |3:.636,13:.198,5| 000007E0: 3A 89 20 36 34 30 00 16 10 94 02 99 22 93 20 20 |:. 640......". | 000007F0: C8 4F 57 20 4D 41 4E 59 20 44 52 49 56 45 53 20 |.OW MANY DRIVES | 00000800: 41 52 45 20 59 4F 55 20 47 4F 49 4E 47 20 54 4F |ARE YOU GOING TO| 00000810: 20 55 53 45 3F 22 00 47 10 95 02 99 22 11 11 20 | USE?".G....".. | 00000820: 20 20 20 20 20 20 20 12 9E CF 92 05 4E 45 20 4F | .....NE O| 00000830: 52 20 12 9E CD 92 05 55 4C 54 49 50 4C 45 20 C4 |R .....ULTIPLE .| 00000840: 52 49 56 45 53 3F 22 00 5E 10 9E 02 A1 20 41 24 |RIVES?".^.... A$| 00000850: 3A 8B 20 41 24 B2 22 22 20 A7 20 36 37 30 00 90 |:. A$."" . 670..| 00000860: 10 A8 02 8B 20 41 24 B3 B1 22 CF 22 20 AF 20 41 |.... A$.."." . A| 00000870: 24 B3 B1 22 4F 22 20 AF 20 41 24 B3 B1 22 CD 22 |$.."O" . A$.."."| 00000880: 20 AF 20 41 24 B3 B1 22 4D 22 20 A7 20 36 37 30 | . A$.."M" . 670| 00000890: 00 9A 10 B2 02 97 20 32 2C 31 00 B8 10 BC 02 8B |...... 2,1......| 000008A0: 20 41 24 B2 22 4D 22 20 B0 20 41 24 B2 22 CD 22 | A$."M" . A$."."| 000008B0: 20 A7 20 97 20 32 2C 32 00 BE 10 C6 02 8E 00 00 | . . 2,2........| 000008C0: 00 |. |
............. GL.0 . 40.).... GL.66 . 14
0.<.... GL.500 . 230.O.... GL.740 . 490.
B.... GL.760 . 510.Y.(..: CREATE ARC FIL
E...2.."... .CREATE ARC FILE
.".R.<..".. PLEASE INSERT DISK WITH
ARC FILE."...F..".. PRESS ..$.. FOR A D
IRECTORY OF DRIVE 8,0.".<.P..".. PRESS .
.U.. FOR A NEW DRIVE CONFIGURATION.".R.Z
..".. PRESS ..SPACE BAR.. TO RETURN TO M
AIN MENU."...D..".. ANY OTHER KEY
WILL CONTINUE."...N.. A$:. A$."" . 110.U
.X.. A$."U" . A$."U" . .660:....... A$..
" " . 190.$...GL.66:."....... PLEASE INS
ERT DISK WITH ARC AID ON IT".I...."
AND PRESS ANY KEY.".T. ..198,0.J..
..A$:. A$."" . 170......"....";.15);"LOA
DING..."......"....LOAD"G(34)"MAIN"G(34)
",8.";:.650.G.... A$.."$" . 260...H..".
.HOLD DOWN SHIFT TO PAUSE."...R..
"..DIR":.".":GL.500......650.N....198,0:
." .PRESS ANY KEY TO RETURN TO MENU..
":GL.0.E.... A$:. A$."" . 240.N.... 40..
....". .CREATE ARC FILE..".C
....".. NOW THAT YOU KNOW THE NAME OF
THE......"FILE TO BE ARCD, ANSWER THE FO
LLOWING QUESTIONS:".1.".. "......ARC F
ILE TO BE CREATED";F$:. F$."" . ..A.,..B
(2).1.."PUT ..OUTPUT.. DISK IN DRIVE 8,0
".Q.6.. A.9 . 410...@.. "FILE, PATTERN O
R ..RETURN..";FI$(A)...J.. FI$(A)."" . 4
10...T..B(2).1.."ON WHAT DRIVE CAN THIS
FILE BE FOUND (EX. 9,0)";DV,DR...^..
540:FD$(A).DR$.$.H.. I.1 . C(FI$(A)).V.R
.. J(FI$(A),I,1)." " . TE$(A).TE$(A)."?"
:. 390.V.|.TE$(A).TE$(A).J(FI$(A),I,1).|
.........A.A.1:. 310. .... FI$(0)."" . .
.....C$."ARC/C A:".F$:EX$."".L.... I.0 .
A.1.....EX$.EX$." ".FD$(I).TE$(I)...B..
...L.C$.C$.EX$...V.."....";C$:.".":GL.74
0."....650.D...."....ARC/L A:"F$:.".":GL
.760.M....650...... 198,0:." .PRESS ANY
KEY TO RETURN TO MAIN MENU..":GL.0.....
. A$:. A$."" . 520...........DR$."".P.&.
. DV.8 . DR.0 . DR$."A:"...0.. DV.8 . DR
.1 . DR$."B:"...:.. DV.9 . DR.0 . DR$."C
:".'.D.. DV.9 . DR.1 . DR$."D:".D.N.. DV
.10. DR.0 . DR$."E:".B.X.. DV.10 . DR.1
. DR$."F:"...B.. DV.11 . DR.0 . DR$."G:"
...L.. DV.11 . DR.1 . DR$."H:"...V......
........ 631,13:.632,71:. 633,207:.635,1
3:.636,13:.198,5:. 640......". HOW MANY
DRIVES ARE YOU GOING TO USE?".G...."..
..O..NE OR ..M..ULTIPLE DRIVES?".
^.... A$:. A$."" . 670...... A$.."O" . A
$.."O" . A$.."M" . A$.."M" . 670...... 2
,1...... A$."M" . A$."M" . . 2,2...F....
.
> CLICK IMAGE PREVIEW FOR FULL MODAL