MODULE4
FILE INFORMATION
FILENAME(S): MODULE4
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-10-20 14:29:54
APPEARS ON: 1 disk(s)
FILE HASH
064ed7ddf123631e5282de6be159a85d148bc71cfe54a9378989d90a455a51e4
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0026UT | MODULE4 | PRG | Treasure Chest - Klaus Der Suhler | 20 | 5 | 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: 53 08 28 00 8F 3A 20 47 41 54 48 45 52 20 46 49 |S.(..: GATHER FI|
00000050: 4C 45 53 00 7B 08 32 00 99 22 93 11 05 20 20 20 |LES.{.2.."... |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 12 C7 41 54 | ..AT|
00000070: 48 45 52 20 C6 49 4C 45 53 2E 22 00 AB 08 3C 00 |HER .ILES."...<.|
00000080: 99 22 11 11 20 20 20 20 20 D0 4C 45 41 53 45 20 |.".. .LEASE |
00000090: 49 4E 53 45 52 54 20 44 49 53 4B 20 57 49 54 48 |INSERT DISK WITH|
000000A0: 20 C1 D2 C3 20 46 49 4C 45 2E 22 00 E0 08 46 00 | ... FILE."...F.|
000000B0: 99 22 11 11 20 20 D0 52 45 53 53 20 12 9E C4 05 |.".. .RESS ....|
000000C0: 92 20 46 4F 52 20 41 20 44 49 52 45 43 54 4F 52 |. FOR A DIRECTOR|
000000D0: 59 20 4F 46 20 C4 52 49 56 45 20 38 2C 30 2E 22 |Y OF .RIVE 8,0."|
000000E0: 00 16 09 5A 00 99 22 11 11 20 D0 52 45 53 53 20 |...Z..".. .RESS |
000000F0: 12 9E D3 D0 C1 C3 C5 20 C2 C1 D2 05 92 20 54 4F |....... ..... TO|
00000100: 20 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 | RETURN TO MAIN |
00000110: 4D 45 4E 55 2E 22 00 43 09 64 00 99 22 11 11 20 |MENU.".C.d..".. |
00000120: 20 20 20 20 20 20 C1 4E 59 20 4F 54 48 45 52 20 | .NY OTHER |
00000130: 4B 45 59 20 57 49 4C 4C 20 43 4F 4E 54 49 4E 55 |KEY WILL CONTINU|
00000140: 45 2E 22 00 5A 09 6E 00 A1 20 41 24 3A 8B 20 41 |E.".Z.n.. A$:. A|
00000150: 24 B2 22 22 20 A7 20 31 31 30 00 6E 09 82 00 8B |$."" . 110.n....|
00000160: 20 41 24 B3 B1 22 20 22 20 A7 20 31 39 30 00 A9 | A$.." " . 190..|
00000170: 09 8C 00 47 4C B2 36 36 3A 99 22 93 05 11 11 11 |...GL.66:.".....|
00000180: 11 11 20 D0 4C 45 41 53 45 20 49 4E 53 45 52 54 |.. .LEASE INSERT|
00000190: 20 44 49 53 4B 20 57 49 54 48 20 C1 D2 C3 20 C1 | DISK WITH ... .|
000001A0: C9 C4 20 4F 4E 20 49 54 22 00 CE 09 96 00 99 22 |.. ON IT"......"|
000001B0: 20 20 20 20 20 20 20 20 20 20 20 41 4E 44 20 50 | AND P|
000001C0: 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 22 00 D9 |RESS ANY KEY."..|
000001D0: 09 A0 00 97 31 39 38 2C 30 00 EF 09 AA 00 A1 41 |....198,0......A|
000001E0: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 37 30 00 |$:. A$."" . 170.|
000001F0: 0D 0A AF 00 99 22 93 11 11 11 22 3B A6 31 35 29 |....."....";.15)|
00000200: 3B 22 CC 4F 41 44 49 4E 47 2E 2E 2E 22 00 38 0A |;".OADING...".8.|
00000210: B4 00 99 22 13 90 11 11 4C 4F 41 44 22 C7 28 33 |..."....LOAD".(3|
00000220: 34 29 22 4D 41 49 4E 22 C7 28 33 34 29 22 2C 38 |4)"MAIN".(34)",8|
00000230: 13 22 3B 3A 89 36 35 30 00 55 0A BE 00 8B 20 41 |.";:.650.U.... A|
00000240: 24 B3 B1 22 44 22 20 AF 20 41 24 B3 B1 22 C4 22 |$.."D" . A$.."."|
00000250: A7 20 32 36 30 00 80 0A C8 00 99 22 93 20 20 20 |. 260......". |
00000260: 20 20 20 20 20 12 C8 4F 4C 44 20 44 4F 57 4E 20 | ..OLD DOWN |
00000270: D3 C8 C9 C6 D4 20 54 4F 20 50 41 55 53 45 2E 22 |..... TO PAUSE."|
00000280: 00 99 0A D2 00 99 22 11 11 44 49 52 22 3A 99 22 |......"..DIR":."|
00000290: 13 22 3A 47 4C B2 35 30 30 00 A2 0A DC 00 89 36 |.":GL.500......6|
000002A0: 35 30 00 DC 0A E6 00 97 31 39 38 2C 30 3A 99 22 |50......198,0:."|
000002B0: 20 20 20 20 12 D0 52 45 53 53 20 41 4E 59 20 4B | ..RESS ANY K|
000002C0: 45 59 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |EY TO RETURN TO |
000002D0: 4D 45 4E 55 2E 92 22 3A 47 4C B2 30 00 F3 0A F0 |MENU..":GL.0....|
000002E0: 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 |.. A$:. A$."" . |
000002F0: 32 34 30 00 FC 0A FA 00 89 20 34 30 00 23 0B 04 |240...... 40.#..|
00000300: 01 99 22 93 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00000310: 20 20 20 20 12 C7 41 54 48 45 52 20 46 49 4C 45 | ..ATHER FILE|
00000320: 53 2E 22 00 51 0B 0E 01 99 22 93 11 20 20 20 CE |S.".Q....".. .|
00000330: 4F 57 20 54 48 41 54 20 59 4F 55 20 4B 4E 4F 57 |OW THAT YOU KNOW|
00000340: 20 54 48 45 20 4E 41 4D 45 53 20 4F 46 20 54 48 | THE NAMES OF TH|
00000350: 45 00 8B 0B 18 01 99 22 46 49 4C 45 53 20 54 4F |E......"FILES TO|
00000360: 20 47 41 54 48 45 52 20 41 4E 53 57 45 52 20 54 | GATHER ANSWER T|
00000370: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 20 20 20 |HE FOLLOWING |
00000380: 51 55 45 53 54 49 4F 4E 53 3A 22 00 D3 0B 22 01 |QUESTIONS:"...".|
00000390: 85 22 11 11 CF 4E 20 57 48 41 54 20 44 52 49 56 |."...N WHAT DRIV|
000003A0: 45 20 53 48 4F 55 4C 44 20 41 4C 4C 20 46 49 4C |E SHOULD ALL FIL|
000003B0: 45 53 20 50 55 54 20 20 20 20 20 20 28 45 58 2E |ES PUT (EX.|
000003C0: 20 39 2C 30 29 22 3B 4C 2C 4D 3A 8B 4C AA 4D B2 | 9,0)";L,M:.L.M.|
000003D0: 30 A7 8A 00 E3 0B 36 01 8B 20 41 B2 39 20 A7 20 |0.....6.. A.9 . |
000003E0: 34 31 30 00 0E 0C 40 01 85 20 22 C6 49 4C 45 2C |410...@.. ".ILE,|
000003F0: 20 50 41 54 54 45 52 4E 20 4F 52 20 12 9E D2 C5 | PATTERN OR ....|
00000400: D4 D5 D2 CE 92 05 22 3B 46 49 24 28 41 29 00 24 |......";FI$(A).$|
00000410: 0C 4A 01 8B 20 46 49 24 28 41 29 B2 22 22 20 A7 |.J.. FI$(A)."" .|
00000420: 20 34 31 30 00 63 0C 54 01 85 22 CF 4E 20 57 48 | 410.c.T..".N WH|
00000430: 41 54 20 44 52 49 56 45 20 43 41 4E 20 54 48 49 |AT DRIVE CAN THI|
00000440: 53 20 46 49 4C 45 20 42 45 20 46 4F 55 4E 44 20 |S FILE BE FOUND |
00000450: 20 20 20 28 45 58 2E 20 39 2C 30 29 22 3B 44 56 | (EX. 9,0)";DV|
00000460: 2C 44 52 00 78 0C 5E 01 8D 20 35 34 30 3A 46 44 |,DR.x.^.. 540:FD|
00000470: 24 28 41 29 B2 44 52 24 00 8E 0C 68 01 81 20 49 |$(A).DR$...h.. I|
00000480: B2 31 20 A4 20 C3 28 46 49 24 28 41 29 29 00 C0 |.1 . .(FI$(A))..|
00000490: 0C 72 01 8B 20 CA 28 46 49 24 28 41 29 2C 49 2C |.r.. .(FI$(A),I,|
000004A0: 31 29 B2 22 20 22 20 A7 20 54 45 24 28 41 29 B2 |1)." " . TE$(A).|
000004B0: 54 45 24 28 41 29 AA 22 3F 22 3A 89 20 33 39 30 |TE$(A)."?":. 390|
000004C0: 00 E0 0C 7C 01 54 45 24 28 41 29 B2 54 45 24 28 |...|.TE$(A).TE$(|
000004D0: 41 29 AA CA 28 46 49 24 28 41 29 2C 49 2C 31 29 |A)..(FI$(A),I,1)|
000004E0: 00 E6 0C 86 01 82 00 F6 0C 90 01 41 B2 41 AA 31 |...........A.A.1|
000004F0: 3A 89 20 33 31 30 00 0A 0D 9A 01 8B 20 46 49 24 |:. 310...... FI$|
00000500: 28 30 29 B2 22 22 20 A7 20 8A 00 1F 0D A4 01 43 |(0)."" . ......C|
00000510: 24 B2 22 4D 4F 56 45 22 3A 45 58 24 B2 22 22 00 |$."MOVE":EX$."".|
00000520: 2F 0D AE 01 81 20 49 B2 30 20 A4 20 41 AB 31 00 |/.... I.0 . A.1.|
00000530: 4D 0D B8 01 45 58 24 B2 45 58 24 AA 22 20 22 AA |M...EX$.EX$." ".|
00000540: 46 44 24 28 49 29 AA 54 45 24 28 49 29 00 53 0D |FD$(I).TE$(I).S.|
00000550: C2 01 82 00 72 0D C3 01 44 56 B2 4C 3A 44 52 B2 |....r...DV.L:DR.|
00000560: 4D 3A 8D 35 34 30 3A 53 52 24 B2 22 20 22 AA 44 |M:.540:SR$." ".D|
00000570: 52 24 00 84 0D CC 01 43 24 B2 43 24 AA 45 58 24 |R$.....C$.C$.EX$|
00000580: AA 53 52 24 00 9F 0D D6 01 99 22 93 11 11 11 22 |.SR$......"...."|
00000590: 3B 43 24 3A 99 22 13 22 3A 47 4C B2 37 34 30 00 |;C$:.".":GL.740.|
000005A0: A8 0D E0 01 89 36 35 30 00 E1 0D FE 01 97 20 31 |.....650...... 1|
000005B0: 39 38 2C 30 3A 99 22 20 20 12 D0 52 45 53 53 20 |98,0:." ..RESS |
000005C0: 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 |ANY KEY TO RETUR|
000005D0: 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 92 |N TO MAIN MENU..|
000005E0: 22 00 F8 0D 08 02 A1 20 41 24 3A 8B 20 41 24 B2 |"...... A$:. A$.|
000005F0: 22 22 20 A7 20 35 32 30 00 FE 0D 12 02 8A 00 09 |"" . 520........|
00000600: 0E 1C 02 44 52 24 B2 22 22 00 26 0E 26 02 8B 20 |...DR$."".&.&.. |
00000610: 44 56 B2 38 20 AF 20 44 52 B2 30 20 A7 20 44 52 |DV.8 . DR.0 . DR|
00000620: 24 B2 22 41 3A 22 00 43 0E 30 02 8B 20 44 56 B2 |$."A:".C.0.. DV.|
00000630: 38 20 AF 20 44 52 B2 31 20 A7 20 44 52 24 B2 22 |8 . DR.1 . DR$."|
00000640: 42 3A 22 00 60 0E 3A 02 8B 20 44 56 B2 39 20 AF |B:".`.:.. DV.9 .|
00000650: 20 44 52 B2 30 20 A7 20 44 52 24 B2 22 43 3A 22 | DR.0 . DR$."C:"|
00000660: 00 7D 0E 44 02 8B 20 44 56 B2 39 20 AF 20 44 52 |.}.D.. DV.9 . DR|
00000670: B2 31 20 A7 20 44 52 24 B2 22 44 3A 22 00 9A 0E |.1 . DR$."D:"...|
00000680: 4E 02 8B 20 44 56 B2 31 30 AF 20 44 52 B2 30 20 |N.. DV.10. DR.0 |
00000690: A7 20 44 52 24 B2 22 45 3A 22 00 B8 0E 58 02 8B |. DR$."E:"...X..|
000006A0: 20 44 56 B2 31 30 20 AF 20 44 52 B2 31 20 A7 20 | DV.10 . DR.1 . |
000006B0: 44 52 24 B2 22 46 3A 22 00 D6 0E 62 02 8B 20 44 |DR$."F:"...b.. D|
000006C0: 56 B2 31 31 20 AF 20 44 52 B2 30 20 A7 20 44 52 |V.11 . DR.0 . DR|
000006D0: 24 B2 22 47 3A 22 00 F4 0E 6C 02 8B 20 44 56 B2 |$."G:"...l.. DV.|
000006E0: 31 31 20 AF 20 44 52 B2 31 20 A7 20 44 52 24 B2 |11 . DR.1 . DR$.|
000006F0: 22 48 3A 22 00 FA 0E 76 02 8E 00 00 0F 80 02 80 |"H:"...v........|
00000700: 00 3C 0F 8A 02 97 20 36 33 31 2C 31 33 3A 97 36 |.<.... 631,13:.6|
00000710: 33 32 2C 37 31 3A 97 20 36 33 33 2C 32 30 37 3A |32,71:. 633,207:|
00000720: 97 36 33 35 2C 31 33 3A 97 36 33 36 2C 31 33 3A |.635,13:.636,13:|
00000730: 97 31 39 38 2C 35 3A 89 20 36 34 30 00 6D 0F 95 |.198,5:. 640.m..|
00000740: 02 99 22 11 11 20 20 20 20 20 20 20 20 12 9E CF |..".. ...|
00000750: 92 05 4E 45 20 4F 52 20 12 9E CD 92 05 55 4C 54 |..NE OR .....ULT|
00000760: 49 50 4C 45 20 C4 52 49 56 45 53 3F 22 00 00 00 |IPLE .RIVES?"...|
............. GL.66 . 140.,.... GL.500 .
230.?.... GL.740 . 510.S.(..: GATHER FI
LES.{.2.."... .GATHER FILE
S."...<..".. PLEASE INSERT DISK WITH
ARC FILE."...F..".. PRESS ..D.. FOR A
DIRECTORY OF DRIVE 8,0."...Z..".. PRESS
..SPACE BAR.. TO RETURN TO MAIN MENU.".C
.D..".. ANY OTHER KEY WILL CONTINU
E.".Z.N.. A$:. A$."" . 110.N.... A$.." "
. 190.....GL.66:."....... PLEASE INSERT
DISK WITH ARC AID ON IT".N...."
AND PRESS ANY KEY.".Y. ..198,0......A
$:. A$."" . 170......"....";.15);"LOADIN
G...".8...."....LOAD"G(34)"MAIN"G(34)",8
.";:.650.U.... A$.."D" . A$.."D". 260...
H..". .HOLD DOWN SHIFT TO PAUSE."
...R.."..DIR":.".":GL.500......650......
198,0:." .PRESS ANY KEY TO RETURN TO
MENU..":GL.0...... A$:. A$."" . 240.....
. 40.#....". .GATHER FILE
S.".Q....".. NOW THAT YOU KNOW THE NAM
ES OF THE......"FILES TO GATHER ANSWER T
HE FOLLOWING QUESTIONS:".S.".."..ON W
HAT DRIVE SHOULD ALL FILES PUT (EX.
9,0)";L,M:.L.M.0.....6.. A.9 . 410...@.
. "FILE, PATTERN OR ..RETURN..";FI$(A).$
.J.. FI$(A)."" . 410.C.T.."ON WHAT DRIVE
CAN THIS FILE BE FOUND (EX. 9,0)";DV
,DR.X.^.. 540:FD$(A).DR$...H.. I.1 . C(F
I$(A))...R.. J(FI$(A),I,1)." " . TE$(A).
TE$(A)."?":. 390...|.TE$(A).TE$(A).J(FI$
(A),I,1)...........A.A.1:. 310...... FI$
(0)."" . ......C$."MOVE":EX$.""./.... I.
0 . A.1.M...EX$.EX$." ".FD$(I).TE$(I).S.
B...R.C.DV.L:DR.M:.540:SR$." ".DR$...L.C
$.C$.EX$.SR$...V.."....";C$:.".":GL.740.
.....650...... 198,0:." .PRESS ANY KEY
TO RETURN TO MAIN MENU.."...... A$:. A$.
"" . 520...........DR$."".&.&.. DV.8 . D
R.0 . DR$."A:".C.0.. DV.8 . DR.1 . DR$."
B:".`.:.. DV.9 . DR.0 . DR$."C:".}.D.. D
V.9 . DR.1 . DR$."D:"...N.. DV.10. DR.0
. DR$."E:"...X.. DV.10 . DR.1 . DR$."F:"
.V.B.. DV.11 . DR.0 . DR$."G:"...L.. DV.
11 . DR.1 . DR$."H:"...V.........<.... 6
31,13:.632,71:. 633,207:.635,13:.636,13:
.198,5:. 640.M....".. ..O..NE OR
..M..ULTIPLE DRIVES?"...
> CLICK IMAGE PREVIEW FOR FULL MODAL