MODULE4
FILE INFORMATION
FILENAME(S): MODULE4
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-12-02 02:15:47
APPEARS ON: 1 disk(s)
FILE HASH
1d89181fcf56a81e809e944ab456ecb92e6f93aaa7cc1311a457caacb9f7faac
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PLOT B | MODULE4 | PRG | The BAM Archive | 16 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 8F 00 19 08 01 00 8B 20 47 4C |............. GL|
00000010: B2 36 36 20 A7 20 31 34 30 00 2C 08 0A 00 8B 20 |.66 . 140.,.... |
00000020: 47 4C B2 35 30 30 20 A7 20 32 33 30 00 3F 08 14 |GL.500 . 230.?..|
00000030: 00 8B 20 47 4C B2 37 34 30 20 A7 20 35 31 30 00 |.. GL.740 . 510.|
00000040: 56 08 28 00 8F 3A 20 43 52 45 41 54 45 20 41 52 |V.(..: CREATE AR|
00000050: 43 20 46 49 4C 45 00 7E 08 32 00 99 22 93 11 05 |C FILE.~.2.."...|
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .|
00000070: C7 41 54 48 45 52 20 C6 49 4C 45 53 2E 22 00 AE |.ATHER .ILES."..|
00000080: 08 3C 00 99 22 11 11 20 20 20 20 20 D0 4C 45 41 |.<..".. .LEA|
00000090: 53 45 20 49 4E 53 45 52 54 20 44 49 53 4B 20 57 |SE INSERT DISK W|
000000A0: 49 54 48 20 C1 D2 C3 20 46 49 4C 45 2E 22 00 E3 |ITH ... FILE."..|
000000B0: 08 46 00 99 22 11 11 20 20 D0 52 45 53 53 20 12 |.F..".. .RESS .|
000000C0: 9E 24 05 92 20 46 4F 52 20 41 20 44 49 52 45 43 |.$.. FOR A DIREC|
000000D0: 54 4F 52 59 20 4F 46 20 C4 52 49 56 45 20 38 2C |TORY OF .RIVE 8,|
000000E0: 30 2E 22 00 18 09 50 00 99 22 11 11 20 D0 52 45 |0."...P..".. .RE|
000000F0: 53 53 20 12 9E D5 05 92 20 46 4F 52 20 41 20 4E |SS ..... FOR A N|
00000100: 45 57 20 44 52 49 56 45 20 43 4F 4E 46 49 47 55 |EW DRIVE CONFIGU|
00000110: 52 41 54 49 4F 4E 2E 22 00 4E 09 5A 00 99 22 11 |RATION.".N.Z..".|
00000120: 11 20 D0 52 45 53 53 20 12 9E D3 D0 C1 C3 C5 20 |. .RESS ....... |
00000130: C2 C1 D2 05 92 20 54 4F 20 52 45 54 55 52 4E 20 |..... TO RETURN |
00000140: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 22 00 7B |TO MAIN MENU.".{|
00000150: 09 64 00 99 22 11 11 20 20 20 20 20 20 20 C1 4E |.d..".. .N|
00000160: 59 20 4F 54 48 45 52 20 4B 45 59 20 57 49 4C 4C |Y OTHER KEY WILL|
00000170: 20 43 4F 4E 54 49 4E 55 45 2E 22 00 92 09 6E 00 | CONTINUE."...n.|
00000180: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 |. A$:. A$."" . 1|
00000190: 31 30 00 B1 09 78 00 8B 20 41 24 B2 22 D5 22 20 |10...x.. A$."." |
000001A0: B0 20 41 24 B2 22 55 22 20 A7 20 8D 36 36 30 3A |. A$."U" . .660:|
000001B0: 89 00 C5 09 82 00 8B 20 41 24 B3 B1 22 20 22 20 |....... A$.." " |
000001C0: A7 20 31 39 30 00 00 0A 8C 00 47 4C B2 36 36 3A |. 190.....GL.66:|
000001D0: 99 22 93 05 11 11 11 11 11 20 D0 4C 45 41 53 45 |."....... .LEASE|
000001E0: 20 49 4E 53 45 52 54 20 44 49 53 4B 20 57 49 54 | INSERT DISK WIT|
000001F0: 48 20 C1 D2 C3 20 C1 C9 C4 20 4F 4E 20 49 54 22 |H ... ... ON IT"|
00000200: 00 25 0A 96 00 99 22 20 20 20 20 20 20 20 20 20 |.%...." |
00000210: 20 20 41 4E 44 20 50 52 45 53 53 20 41 4E 59 20 | AND PRESS ANY |
00000220: 4B 45 59 2E 22 00 30 0A A0 00 97 31 39 38 2C 30 |KEY.".0....198,0|
00000230: 00 46 0A AA 00 A1 41 24 3A 8B 20 41 24 B2 22 22 |.F....A$:. A$.""|
00000240: 20 A7 20 31 37 30 00 64 0A AF 00 99 22 93 11 11 | . 170.d...."...|
00000250: 11 22 3B A6 31 35 29 3B 22 CC 4F 41 44 49 4E 47 |.";.15);".OADING|
00000260: 2E 2E 2E 22 00 8F 0A B4 00 99 22 13 90 11 11 4C |..."......"....L|
00000270: 4F 41 44 22 C7 28 33 34 29 22 4D 41 49 4E 22 C7 |OAD".(34)"MAIN".|
00000280: 28 33 34 29 22 2C 38 13 22 3B 3A 89 36 35 30 00 |(34)",8.";:.650.|
00000290: A3 0A BE 00 8B 20 41 24 B3 B1 22 24 22 20 A7 20 |..... A$.."$" . |
000002A0: 32 36 30 00 CE 0A C8 00 99 22 93 20 20 20 20 20 |260......". |
000002B0: 20 20 20 12 C8 4F 4C 44 20 44 4F 57 4E 20 D3 C8 | ..OLD DOWN ..|
000002C0: C9 C6 D4 20 54 4F 20 50 41 55 53 45 2E 22 00 E7 |... TO PAUSE."..|
000002D0: 0A D2 00 99 22 11 11 44 49 52 22 3A 99 22 13 22 |...."..DIR":."."|
000002E0: 3A 47 4C B2 35 30 30 00 F0 0A DC 00 89 36 35 30 |:GL.500......650|
000002F0: 00 2A 0B E6 00 97 31 39 38 2C 30 3A 99 22 20 20 |.*....198,0:." |
00000300: 20 20 12 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 | ..RESS ANY KEY|
00000310: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 | TO RETURN TO ME|
00000320: 4E 55 2E 92 22 3A 47 4C B2 30 00 41 0B F0 00 A1 |NU..":GL.0.A....|
00000330: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 32 34 | A$:. A$."" . 24|
00000340: 30 00 4A 0B FA 00 89 20 34 30 00 71 0B 04 01 99 |0.J.... 40.q....|
00000350: 22 93 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00000360: 20 20 12 C7 41 54 48 45 52 20 46 49 4C 45 53 2E | ..ATHER FILES.|
00000370: 22 00 9F 0B 0E 01 99 22 93 11 20 20 20 CE 4F 57 |"......".. .OW|
00000380: 20 54 48 41 54 20 59 4F 55 20 4B 4E 4F 57 20 54 | THAT YOU KNOW T|
00000390: 48 45 20 4E 41 4D 45 53 20 4F 46 20 54 48 45 00 |HE NAMES OF THE.|
000003A0: D9 0B 18 01 99 22 46 49 4C 45 53 20 54 4F 20 47 |....."FILES TO G|
000003B0: 41 54 48 45 52 20 41 4E 53 57 45 52 20 54 48 45 |ATHER ANSWER THE|
000003C0: 20 46 4F 4C 4C 4F 57 49 4E 47 20 20 20 20 51 55 | FOLLOWING QU|
000003D0: 45 53 54 49 4F 4E 53 3A 22 00 21 0C 22 01 85 22 |ESTIONS:".!.".."|
000003E0: 11 11 CF 4E 20 57 48 41 54 20 44 52 49 56 45 20 |...N WHAT DRIVE |
000003F0: 53 48 4F 55 4C 44 20 41 4C 4C 20 46 49 4C 45 53 |SHOULD ALL FILES|
00000400: 20 50 55 54 20 20 20 20 20 20 28 45 58 2E 20 39 | PUT (EX. 9|
00000410: 2C 30 29 22 3B 4C 2C 4D 3A 8B 4C AA 4D B2 30 A7 |,0)";L,M:.L.M.0.|
00000420: 8A 00 31 0C 36 01 8B 20 41 B2 39 20 A7 20 34 31 |..1.6.. A.9 . 41|
00000430: 30 00 5C 0C 40 01 85 20 22 C6 49 4C 45 2C 20 50 |0.\.@.. ".ILE, P|
00000440: 41 54 54 45 52 4E 20 4F 52 20 12 9E D2 C5 D4 D5 |ATTERN OR ......|
00000450: D2 CE 92 05 22 3B 46 49 24 28 41 29 00 72 0C 4A |....";FI$(A).r.J|
00000460: 01 8B 20 46 49 24 28 41 29 B2 22 22 20 A7 20 34 |.. FI$(A)."" . 4|
00000470: 31 30 00 B1 0C 54 01 85 22 CF 4E 20 57 48 41 54 |10...T..".N WHAT|
00000480: 20 44 52 49 56 45 20 43 41 4E 20 54 48 49 53 20 | DRIVE CAN THIS |
00000490: 46 49 4C 45 20 42 45 20 46 4F 55 4E 44 20 20 20 |FILE BE FOUND |
000004A0: 20 28 45 58 2E 20 39 2C 30 29 22 3B 44 56 2C 44 | (EX. 9,0)";DV,D|
000004B0: 52 00 C6 0C 5E 01 8D 20 35 34 30 3A 46 44 24 28 |R...^.. 540:FD$(|
000004C0: 41 29 B2 44 52 24 00 DC 0C 68 01 81 20 49 B2 31 |A).DR$...h.. I.1|
000004D0: 20 A4 20 C3 28 46 49 24 28 41 29 29 00 0E 0D 72 | . .(FI$(A))...r|
000004E0: 01 8B 20 CA 28 46 49 24 28 41 29 2C 49 2C 31 29 |.. .(FI$(A),I,1)|
000004F0: B2 22 20 22 20 A7 20 54 45 24 28 41 29 B2 54 45 |." " . TE$(A).TE|
00000500: 24 28 41 29 AA 22 3F 22 3A 89 20 33 39 30 00 2E |$(A)."?":. 390..|
00000510: 0D 7C 01 54 45 24 28 41 29 B2 54 45 24 28 41 29 |.|.TE$(A).TE$(A)|
00000520: AA CA 28 46 49 24 28 41 29 2C 49 2C 31 29 00 34 |..(FI$(A),I,1).4|
00000530: 0D 86 01 82 00 44 0D 90 01 41 B2 41 AA 31 3A 89 |.....D...A.A.1:.|
00000540: 20 33 31 30 00 58 0D 9A 01 8B 20 46 49 24 28 30 | 310.X.... FI$(0|
00000550: 29 B2 22 22 20 A7 20 8A 00 6D 0D A4 01 43 24 B2 |)."" . ..m...C$.|
00000560: 22 4D 4F 56 45 22 3A 45 58 24 B2 22 22 00 7D 0D |"MOVE":EX$."".}.|
00000570: AE 01 81 20 49 B2 30 20 A4 20 41 AB 31 00 9B 0D |... I.0 . A.1...|
00000580: B8 01 45 58 24 B2 45 58 24 AA 22 20 22 AA 46 44 |..EX$.EX$." ".FD|
00000590: 24 28 49 29 AA 54 45 24 28 49 29 00 A1 0D C2 01 |$(I).TE$(I).....|
000005A0: 82 00 C0 0D C3 01 44 56 B2 4C 3A 44 52 B2 4D 3A |......DV.L:DR.M:|
000005B0: 8D 35 34 30 3A 53 52 24 B2 22 20 22 AA 44 52 24 |.540:SR$." ".DR$|
000005C0: 00 D2 0D CC 01 43 24 B2 43 24 AA 45 58 24 AA 53 |.....C$.C$.EX$.S|
000005D0: 52 24 00 ED 0D D6 01 99 22 93 11 11 11 22 3B 43 |R$......"....";C|
000005E0: 24 3A 99 22 13 22 3A 47 4C B2 37 34 30 00 F6 0D |$:.".":GL.740...|
000005F0: E0 01 89 36 35 30 00 2F 0E FE 01 97 20 31 39 38 |...650./.... 198|
00000600: 2C 30 3A 99 22 20 20 12 D0 52 45 53 53 20 41 4E |,0:." ..RESS AN|
00000610: 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 20 |Y KEY TO RETURN |
00000620: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 92 22 00 |TO MAIN MENU..".|
00000630: 46 0E 08 02 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |F.... A$:. A$.""|
00000640: 20 A7 20 35 32 30 00 4C 0E 12 02 8A 00 57 0E 1C | . 520.L.....W..|
00000650: 02 44 52 24 B2 22 22 00 74 0E 26 02 8B 20 44 56 |.DR$."".t.&.. DV|
00000660: B2 38 20 AF 20 44 52 B2 30 20 A7 20 44 52 24 B2 |.8 . DR.0 . DR$.|
00000670: 22 41 3A 22 00 91 0E 30 02 8B 20 44 56 B2 38 20 |"A:"...0.. DV.8 |
00000680: AF 20 44 52 B2 31 20 A7 20 44 52 24 B2 22 42 3A |. DR.1 . DR$."B:|
00000690: 22 00 AE 0E 3A 02 8B 20 44 56 B2 39 20 AF 20 44 |"...:.. DV.9 . D|
000006A0: 52 B2 30 20 A7 20 44 52 24 B2 22 43 3A 22 00 CB |R.0 . DR$."C:"..|
000006B0: 0E 44 02 8B 20 44 56 B2 39 20 AF 20 44 52 B2 31 |.D.. DV.9 . DR.1|
000006C0: 20 A7 20 44 52 24 B2 22 44 3A 22 00 E8 0E 4E 02 | . DR$."D:"...N.|
000006D0: 8B 20 44 56 B2 31 30 AF 20 44 52 B2 30 20 A7 20 |. DV.10. DR.0 . |
000006E0: 44 52 24 B2 22 45 3A 22 00 06 0F 58 02 8B 20 44 |DR$."E:"...X.. D|
000006F0: 56 B2 31 30 20 AF 20 44 52 B2 31 20 A7 20 44 52 |V.10 . DR.1 . DR|
00000700: 24 B2 22 46 3A 22 00 24 0F 62 02 8B 20 44 56 B2 |$."F:".$.b.. DV.|
00000710: 31 31 20 AF 20 44 52 B2 30 20 A7 20 44 52 24 B2 |11 . DR.0 . DR$.|
00000720: 22 47 3A 22 00 42 0F 6C 02 8B 20 44 56 B2 31 31 |"G:".B.l.. DV.11|
00000730: 20 AF 20 44 52 B2 31 20 A7 20 44 52 24 B2 22 48 | . DR.1 . DR$."H|
00000740: 3A 22 00 48 0F 76 02 8E 00 4E 0F 80 02 80 00 8A |:".H.v...N......|
00000750: 0F 8A 02 97 20 36 33 31 2C 31 33 3A 97 36 33 32 |.... 631,13:.632|
00000760: 2C 37 31 3A 97 20 36 33 33 2C 32 30 37 3A 97 36 |,71:. 633,207:.6|
00000770: 33 35 2C 31 33 3A 97 36 33 36 2C 31 33 3A 97 31 |35,13:.636,13:.1|
00000780: 39 38 2C 35 3A 89 20 36 34 30 00 BA 0F 94 02 99 |98,5:. 640......|
00000790: 22 93 20 20 C8 4F 57 20 4D 41 4E 59 20 44 52 49 |". .OW MANY DRI|
000007A0: 56 45 53 20 41 52 45 20 59 4F 55 20 47 4F 49 4E |VES ARE YOU GOIN|
000007B0: 47 20 54 4F 20 55 53 45 3F 22 00 EB 0F 95 02 99 |G TO USE?"......|
000007C0: 22 11 11 20 20 20 20 20 20 20 20 12 9E CF 92 05 |".. .....|
000007D0: 4E 45 20 4F 52 20 12 9E CD 92 05 55 4C 54 49 50 |NE OR .....ULTIP|
000007E0: 4C 45 20 C4 52 49 56 45 53 3F 22 00 02 10 9E 02 |LE .RIVES?".....|
000007F0: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 36 |. A$:. A$."" . 6|
00000800: 37 30 00 34 10 A8 02 8B 20 41 24 B3 B1 22 CF 22 |70.4.... A$.."."|
00000810: 20 AF 20 41 24 B3 B1 22 4F 22 20 AF 20 41 24 B3 | . A$.."O" . A$.|
00000820: B1 22 CD 22 20 AF 20 41 24 B3 B1 22 4D 22 20 A7 |."." . A$.."M" .|
00000830: 20 36 37 30 00 3E 10 B2 02 97 20 32 2C 31 00 5C | 670.>.... 2,1.\|
00000840: 10 BC 02 8B 20 41 24 B2 22 4D 22 20 B0 20 41 24 |.... A$."M" . A$|
00000850: B2 22 CD 22 20 A7 20 97 20 32 2C 32 00 62 10 C6 |."." . . 2,2.b..|
00000860: 02 8E 00 00 00 |..... |
............. GL.66 . 140.,.... GL.500 .
230.?.... GL.740 . 510.V.(..: CREATE AR
C FILE.~.2.."... .GATHER F
ILES."...<..".. PLEASE INSERT DISK W
ITH ARC FILE."...F..".. PRESS ..$.. FOR
A DIRECTORY OF DRIVE 8,0."...P..".. PRE
SS ..U.. FOR A NEW DRIVE CONFIGURATION."
.N.Z..".. PRESS ..SPACE BAR.. TO RETURN
TO MAIN MENU.".{.D..".. ANY OTHER
KEY WILL CONTINUE."...N.. A$:. A$."" . 1
10...X.. A$."U" . A$."U" . .660:..E....
A$.." " . 190.....GL.66:."....... PLEASE
INSERT DISK WITH ARC AID ON IT".%...."
AND PRESS ANY KEY.".0. ..198,0
.F....A$:. A$."" . 170.D...."....";.15);
"LOADING..."......"....LOAD"G(34)"MAIN"G
(34)",8.";:.650...... A$.."$" . 260.N.H.
.". .HOLD DOWN SHIFT TO PAUSE."..
.R.."..DIR":.".":GL.500......650.*....19
8,0:." .PRESS ANY KEY TO RETURN TO ME
NU..":GL.0.A.... A$:. A$."" . 240.J....
40.Q....". .GATHER FILES.
"......".. NOW THAT YOU KNOW THE NAMES
OF THE.Y...."FILES TO GATHER ANSWER THE
FOLLOWING QUESTIONS:".!.".."..ON WHA
T DRIVE SHOULD ALL FILES PUT (EX. 9
,0)";L,M:.L.M.0...1.6.. A.9 . 410.\.@..
"FILE, PATTERN OR ..RETURN..";FI$(A).R.J
.. FI$(A)."" . 410...T.."ON WHAT DRIVE C
AN THIS FILE BE FOUND (EX. 9,0)";DV,D
R.F.^.. 540:FD$(A).DR$...H.. I.1 . C(FI$
(A))...R.. J(FI$(A),I,1)." " . TE$(A).TE
$(A)."?":. 390...|.TE$(A).TE$(A).J(FI$(A
),I,1).4.....D...A.A.1:. 310.X.... FI$(0
)."" . ..M...C$."MOVE":EX$."".}.... I.0
. A.1.....EX$.EX$." ".FD$(I).TE$(I)...B.
....C.DV.L:DR.M:.540:SR$." ".DR$.R.L.C$.
C$.EX$.SR$...V.."....";C$:.".":GL.740...
...650./.... 198,0:." .PRESS ANY KEY TO
RETURN TO MAIN MENU..".F.... A$:. A$.""
. 520.L.....W...DR$."".T.&.. DV.8 . DR.
0 . DR$."A:"...0.. DV.8 . DR.1 . DR$."B:
"...:.. DV.9 . DR.0 . DR$."C:".K.D.. DV.
9 . DR.1 . DR$."D:"...N.. DV.10. DR.0 .
DR$."E:"...X.. DV.10 . DR.1 . DR$."F:".$
.B.. DV.11 . DR.0 . DR$."G:".B.L.. DV.11
. DR.1 . DR$."H:".H.V...N.......... 631
,13:.632,71:. 633,207:.635,13:.636,13:.1
98,5:. 640......". HOW MANY DRIVES ARE
YOU GOING TO USE?"......".. ..O..
NE OR ..M..ULTIPLE DRIVES?"...... A$:. A
$."" . 670.4.... A$.."O" . A$.."O" . A$.
."M" . A$.."M" . 670.>.... 2,1.\.... A$.
"M" . A$."M" . . 2,2.B.F.....
> CLICK IMAGE PREVIEW FOR FULL MODAL