MODULE1
FILE INFORMATION
FILENAME(S): MODULE1
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-10-20 14:29:54
APPEARS ON: 1 disk(s)
FILE HASH
b5b33c3564c1a9213c82f84b7a4526e51bd6ba3f5ebfb01a3a45edd8fb610c1d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0026UT | MODULE1 | PRG | Treasure Chest - Klaus Der Suhler | 19 | 8 | 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 C4 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 D1 0A BE 00 8B 20 41 24 B3 B1 22 44 |650...... A$.."D|
000002C0: 22 20 AF 20 41 24 B3 B1 22 C4 22 20 A7 20 32 36 |" . A$.."." . 26|
000002D0: 30 00 FC 0A C8 00 99 22 93 20 20 20 20 20 20 20 |0......". |
000002E0: 20 12 C8 4F 4C 44 20 44 4F 57 4E 20 D3 C8 C9 C6 | ..OLD DOWN ....|
000002F0: D4 20 54 4F 20 50 41 55 53 45 2E 22 00 15 0B D2 |. TO PAUSE."....|
00000300: 00 99 22 11 11 44 49 52 22 3A 99 22 13 22 3A 47 |.."..DIR":.".":G|
00000310: 4C B2 35 30 30 00 1E 0B DC 00 89 36 35 30 00 58 |L.500......650.X|
00000320: 0B E6 00 97 31 39 38 2C 30 3A 99 22 20 20 20 20 |....198,0:." |
00000330: 12 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 |..RESS ANY KEY T|
00000340: 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |O RETURN TO MENU|
00000350: 2E 92 22 3A 47 4C B2 30 00 6F 0B F0 00 A1 20 41 |..":GL.0.o.... A|
00000360: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 32 34 30 00 |$:. A$."" . 240.|
00000370: 78 0B FA 00 89 20 34 30 00 A0 0B 04 01 99 22 93 |x.... 40......".|
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 12 C3 52 | ..R|
00000390: 45 41 54 45 20 C1 D2 C3 20 46 49 4C 45 2E 92 22 |EATE ... FILE.."|
000003A0: 00 CD 0B 0E 01 99 22 93 11 20 20 20 CE 4F 57 20 |......".. .OW |
000003B0: 54 48 41 54 20 59 4F 55 20 4B 4E 4F 57 20 54 48 |THAT YOU KNOW TH|
000003C0: 45 20 4E 41 4D 45 20 4F 46 20 54 48 45 00 07 0C |E NAME OF THE...|
000003D0: 18 01 99 22 46 49 4C 45 20 54 4F 20 42 45 20 C1 |..."FILE TO BE .|
000003E0: D2 C3 44 2C 20 41 4E 53 57 45 52 20 54 48 45 20 |..D, ANSWER THE |
000003F0: 46 4F 4C 4C 4F 57 49 4E 47 20 20 20 51 55 45 53 |FOLLOWING QUES|
00000400: 54 49 4F 4E 53 3A 22 00 3B 0C 22 01 85 20 22 11 |TIONS:".;.".. ".|
00000410: 11 11 11 11 11 C1 D2 C3 20 46 49 4C 45 20 54 4F |........ FILE TO|
00000420: 20 42 45 20 43 52 45 41 54 45 44 22 3B 46 24 3A | BE CREATED";F$:|
00000430: 8B 20 46 24 B2 22 22 20 A7 20 8A 00 6B 0C 2C 01 |. F$."" . ..k.,.|
00000440: 8B C2 28 32 29 B1 31 A7 99 22 D0 55 54 20 12 9E |..(2).1..".UT ..|
00000450: CF 55 54 50 55 54 92 05 20 44 49 53 4B 20 49 4E |.UTPUT.. DISK IN|
00000460: 20 C4 52 49 56 45 20 38 2C 30 22 00 7B 0C 36 01 | .RIVE 8,0".{.6.|
00000470: 8B 20 41 B2 39 20 A7 20 34 31 30 00 A6 0C 40 01 |. A.9 . 410...@.|
00000480: 85 20 22 C6 49 4C 45 2C 20 50 41 54 54 45 52 4E |. ".ILE, PATTERN|
00000490: 20 4F 52 20 12 9E D2 C5 D4 D5 D2 CE 92 05 22 3B | OR ..........";|
000004A0: 46 49 24 28 41 29 00 BC 0C 4A 01 8B 20 46 49 24 |FI$(A)...J.. FI$|
000004B0: 28 41 29 B2 22 22 20 A7 20 34 31 30 00 D0 0C 4B |(A)."" . 410...K|
000004C0: 01 8B 20 C2 28 32 29 B3 B2 31 20 A7 20 33 35 30 |.. .(2)..1 . 350|
000004D0: 00 12 0D 54 01 99 22 CF 4E 20 57 48 41 54 20 44 |...T..".N WHAT D|
000004E0: 52 49 56 45 20 43 41 4E 20 54 48 49 53 20 46 49 |RIVE CAN THIS FI|
000004F0: 4C 45 20 42 45 20 46 4F 55 4E 44 20 20 20 20 28 |LE BE FOUND (|
00000500: 45 58 2E 20 39 2C 30 29 22 3B 3A 85 20 44 56 2C |EX. 9,0)";:. DV,|
00000510: 44 52 00 27 0D 5E 01 8D 20 35 34 30 3A 46 44 24 |DR.'.^.. 540:FD$|
00000520: 28 41 29 B2 44 52 24 00 3D 0D 68 01 81 20 49 B2 |(A).DR$.=.h.. I.|
00000530: 31 20 A4 20 C3 28 46 49 24 28 41 29 29 00 6F 0D |1 . .(FI$(A)).o.|
00000540: 72 01 8B 20 CA 28 46 49 24 28 41 29 2C 49 2C 31 |r.. .(FI$(A),I,1|
00000550: 29 B2 22 20 22 20 A7 20 54 45 24 28 41 29 B2 54 |)." " . TE$(A).T|
00000560: 45 24 28 41 29 AA 22 3F 22 3A 89 20 33 39 30 00 |E$(A)."?":. 390.|
00000570: 8F 0D 7C 01 54 45 24 28 41 29 B2 54 45 24 28 41 |..|.TE$(A).TE$(A|
00000580: 29 AA CA 28 46 49 24 28 41 29 2C 49 2C 31 29 00 |)..(FI$(A),I,1).|
00000590: 95 0D 86 01 82 00 A5 0D 90 01 41 B2 41 AA 31 3A |..........A.A.1:|
000005A0: 89 20 33 31 30 00 B9 0D 9A 01 8B 20 46 49 24 28 |. 310...... FI$(|
000005B0: 30 29 B2 22 22 20 A7 20 8A 00 D5 0D A4 01 43 24 |0)."" . ......C$|
000005C0: B2 22 41 52 43 2F 43 20 41 3A 22 AA 46 24 3A 45 |."ARC/C A:".F$:E|
000005D0: 58 24 B2 22 22 00 E5 0D AE 01 81 20 49 B2 30 20 |X$.""...... I.0 |
000005E0: A4 20 41 AB 31 00 03 0E B8 01 45 58 24 B2 45 58 |. A.1.....EX$.EX|
000005F0: 24 AA 22 20 22 AA 46 44 24 28 49 29 AA 54 45 24 |$." ".FD$(I).TE$|
00000600: 28 49 29 00 09 0E C2 01 82 00 17 0E CC 01 43 24 |(I)...........C$|
00000610: B2 43 24 AA 45 58 24 00 32 0E D6 01 99 22 93 11 |.C$.EX$.2...."..|
00000620: 11 11 22 3B 43 24 3A 99 22 13 22 3A 47 4C B2 37 |..";C$:.".":GL.7|
00000630: 34 30 00 3B 0E E0 01 89 36 35 30 00 5D 0E EA 01 |40.;....650.]...|
00000640: 99 22 93 11 11 11 41 52 43 2F 4C 20 41 3A 22 46 |."....ARC/L A:"F|
00000650: 24 3A 99 22 13 22 3A 47 4C B2 37 36 30 00 66 0E |$:.".":GL.760.f.|
00000660: F4 01 89 36 35 30 00 A4 0E FE 01 97 20 31 39 38 |...650...... 198|
00000670: 2C 30 3A 99 22 20 20 12 D0 52 45 53 53 20 41 4E |,0:." ..RESS AN|
00000680: 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 20 |Y KEY TO RETURN |
00000690: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 92 22 3A |TO MAIN MENU..":|
000006A0: 47 4C B2 30 00 BB 0E 08 02 A1 20 41 24 3A 8B 20 |GL.0...... A$:. |
000006B0: 41 24 B2 22 22 20 A7 20 35 32 30 00 C1 0E 12 02 |A$."" . 520.....|
000006C0: 8A 00 CC 0E 1C 02 44 52 24 B2 22 22 00 E9 0E 26 |......DR$.""...&|
000006D0: 02 8B 20 44 56 B2 38 20 AF 20 44 52 B2 30 20 A7 |.. DV.8 . DR.0 .|
000006E0: 20 44 52 24 B2 22 41 3A 22 00 06 0F 30 02 8B 20 | DR$."A:"...0.. |
000006F0: 44 56 B2 38 20 AF 20 44 52 B2 31 20 A7 20 44 52 |DV.8 . DR.1 . DR|
00000700: 24 B2 22 42 3A 22 00 23 0F 3A 02 8B 20 44 56 B2 |$."B:".#.:.. DV.|
00000710: 39 20 AF 20 44 52 B2 30 20 A7 20 44 52 24 B2 22 |9 . DR.0 . DR$."|
00000720: 43 3A 22 00 40 0F 44 02 8B 20 44 56 B2 39 20 AF |C:".@.D.. DV.9 .|
00000730: 20 44 52 B2 31 20 A7 20 44 52 24 B2 22 44 3A 22 | DR.1 . DR$."D:"|
00000740: 00 5D 0F 4E 02 8B 20 44 56 B2 31 30 AF 20 44 52 |.].N.. DV.10. DR|
00000750: B2 30 20 A7 20 44 52 24 B2 22 45 3A 22 00 7B 0F |.0 . DR$."E:".{.|
00000760: 58 02 8B 20 44 56 B2 31 30 20 AF 20 44 52 B2 31 |X.. DV.10 . DR.1|
00000770: 20 A7 20 44 52 24 B2 22 46 3A 22 00 99 0F 62 02 | . DR$."F:"...b.|
00000780: 8B 20 44 56 B2 31 31 20 AF 20 44 52 B2 30 20 A7 |. DV.11 . DR.0 .|
00000790: 20 44 52 24 B2 22 47 3A 22 00 B7 0F 6C 02 8B 20 | DR$."G:"...l.. |
000007A0: 44 56 B2 31 31 20 AF 20 44 52 B2 31 20 A7 20 44 |DV.11 . DR.1 . D|
000007B0: 52 24 B2 22 48 3A 22 00 BD 0F 76 02 8E 00 C3 0F |R$."H:"...v.....|
000007C0: 80 02 80 00 FF 0F 8A 02 97 20 36 33 31 2C 31 33 |......... 631,13|
000007D0: 3A 97 36 33 32 2C 37 31 3A 97 20 36 33 33 2C 32 |:.632,71:. 633,2|
000007E0: 30 37 3A 97 36 33 35 2C 31 33 3A 97 36 33 36 2C |07:.635,13:.636,|
000007F0: 31 33 3A 97 31 39 38 2C 35 3A 89 20 36 34 30 00 |13:.198,5:. 640.|
00000800: 2F 10 94 02 99 22 93 20 20 C8 4F 57 20 4D 41 4E |/....". .OW MAN|
00000810: 59 20 44 52 49 56 45 53 20 41 52 45 20 59 4F 55 |Y DRIVES ARE YOU|
00000820: 20 47 4F 49 4E 47 20 54 4F 20 55 53 45 3F 22 00 | GOING TO USE?".|
00000830: 60 10 95 02 99 22 11 11 20 20 20 20 20 20 20 20 |`....".. |
00000840: 12 9E CF 92 05 4E 45 20 4F 52 20 12 9E CD 92 05 |.....NE OR .....|
00000850: 55 4C 54 49 50 4C 45 20 C4 52 49 56 45 53 3F 22 |ULTIPLE .RIVES?"|
00000860: 00 77 10 9E 02 A1 20 41 24 3A 8B 20 41 24 B2 22 |.w.... A$:. A$."|
00000870: 22 20 A7 20 36 37 30 00 A9 10 A8 02 8B 20 41 24 |" . 670...... A$|
00000880: B3 B1 22 CF 22 20 AF 20 41 24 B3 B1 22 4F 22 20 |.."." . A$.."O" |
00000890: AF 20 41 24 B3 B1 22 CD 22 20 AF 20 41 24 B3 B1 |. A$.."." . A$..|
000008A0: 22 4D 22 20 A7 20 36 37 30 00 B3 10 B2 02 97 20 |"M" . 670...... |
000008B0: 32 2C 31 00 D1 10 BC 02 8B 20 41 24 B2 22 4D 22 |2,1...... A$."M"|
000008C0: 20 B0 20 41 24 B2 22 CD 22 20 A7 20 97 20 32 2C | . A$."." . . 2,|
000008D0: 32 00 D7 10 C6 02 8E 00 00 00 |2......... |
............. 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 ..D.. 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.Q.... A$.."D" . A$.."D" . 26
0...H..". .HOLD DOWN SHIFT TO PAU
SE."...R.."..DIR":.".":GL.500......650.X
....198,0:." .PRESS ANY KEY TO RETURN
TO MENU..":GL.0.O.... A$:. A$."" . 240.
X.... 40. ....". .CREATE ARC
FILE..".M....".. NOW THAT YOU KNOW TH
E NAME OF THE......"FILE TO BE ARCD, ANS
WER THE FOLLOWING QUESTIONS:".;.".. ".
.....ARC FILE TO BE CREATED";F$:. F$.""
. ..K.,..B(2).1.."PUT ..OUTPUT.. DISK IN
DRIVE 8,0".{.6.. A.9 . 410...@.. "FILE,
PATTERN OR ..RETURN..";FI$(A)...J.. FI$
(A)."" . 410.P.K.. B(2)..1 . 350...T.."O
N WHAT DRIVE CAN THIS FILE BE FOUND (
EX. 9,0)";:. DV,DR.'.^.. 540:FD$(A).DR$.
=.H.. I.1 . C(FI$(A)).O.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)."" . ..U...C$."ARC/C
A:".F$:EX$.""...... I.0 . A.1.....EX$.EX
$." ".FD$(I).TE$(I)...B.....L.C$.C$.EX$.
2.V.."....";C$:.".":GL.740.;....650.]...
."....ARC/L A:"F$:.".":GL.760.F....650..
.... 198,0:." .PRESS ANY KEY TO RETURN
TO MAIN MENU..":GL.0...... A$:. A$."" .
520.A.....L...DR$.""...&.. 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:".].N.. DV.10. DR.0 . DR$
."E:".{.X.. DV.10 . DR.1 . DR$."F:"...B.
. DV.11 . DR.0 . DR$."G:"...L.. DV.11 .
DR.1 . DR$."H:"...V...C.......... 631,13
:.632,71:. 633,207:.635,13:.636,13:.198,
5:. 640./....". HOW MANY DRIVES ARE YOU
GOING TO USE?".`....".. ..O..NE
OR ..M..ULTIPLE DRIVES?".W.... A$:. A$."
" . 670...... A$.."O" . A$.."O" . A$.."M
" . A$.."M" . 670...... 2,1.Q.... A$."M"
. A$."M" . . 2,2.W.F.....
> CLICK IMAGE PREVIEW FOR FULL MODAL