MODULE2
FILE INFORMATION
FILENAME(S): MODULE2
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-02 02:15:47
APPEARS ON: 1 disk(s)
FILE HASH
825c012f2f00d8eb4eb108cb2e70afdfa87a8bc292d8de6f816b0f3a9ce5e56b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PLOT B | MODULE2 | PRG | The BAM Archive | 19 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 8F 00 18 08 01 00 8B 20 47 4C |............. GL|
00000010: B2 36 36 20 A7 20 39 35 00 2B 08 0A 00 8B 20 47 |.66 . 95.+.... G|
00000020: 4C B2 31 39 30 20 A7 20 31 35 30 00 3E 08 14 00 |L.190 . 150.>...|
00000030: 8B 20 47 4C B2 33 36 30 20 A7 20 33 35 30 00 56 |. GL.360 . 350.V|
00000040: 08 1E 00 8F 3A 20 44 49 53 53 4F 4C 56 45 20 52 |....: DISSOLVE R|
00000050: 4F 55 54 49 4E 45 00 80 08 28 00 99 22 93 11 05 |OUTINE...(.."...|
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 12 C4 49 53 | ..IS|
00000070: 53 4F 4C 56 45 20 C1 D2 C3 20 46 49 4C 45 92 22 |SOLVE ... FILE."|
00000080: 00 B0 08 32 00 99 22 11 11 20 20 20 20 20 D0 4C |...2..".. .L|
00000090: 45 41 53 45 20 49 4E 53 45 52 54 20 44 49 53 4B |EASE INSERT DISK|
000000A0: 20 57 49 54 48 20 C1 D2 C3 20 46 49 4C 45 2E 22 | WITH ... FILE."|
000000B0: 00 E5 08 3C 00 99 22 11 11 20 20 D0 52 45 53 53 |...<..".. .RESS|
000000C0: 20 12 9E 24 05 92 20 46 4F 52 20 41 20 44 49 52 | ..$.. FOR A DIR|
000000D0: 45 43 54 4F 52 59 20 4F 46 20 C4 52 49 56 45 20 |ECTORY OF .RIVE |
000000E0: 38 2C 30 2E 22 00 1A 09 41 00 99 22 11 11 20 D0 |8,0."...A..".. .|
000000F0: 52 45 53 53 20 12 9E D5 05 92 20 46 4F 52 20 41 |RESS ..... FOR A|
00000100: 20 4E 45 57 20 44 52 49 56 45 20 43 4F 4E 46 49 | NEW DRIVE CONFI|
00000110: 47 55 52 41 54 49 4F 4E 2E 22 00 50 09 46 00 99 |GURATION.".P.F..|
00000120: 22 11 11 20 D0 52 45 53 53 20 12 9E D3 D0 C1 C3 |".. .RESS ......|
00000130: C5 20 C2 C1 D2 05 92 20 54 4F 20 52 45 54 55 52 |. ..... TO RETUR|
00000140: 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 22 |N TO MAIN MENU."|
00000150: 00 7D 09 50 00 99 22 11 11 20 20 20 20 20 20 20 |.}.P..".. |
00000160: C1 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 57 49 |.NY OTHER KEY WI|
00000170: 4C 4C 20 43 4F 4E 54 49 4E 55 45 2E 22 00 93 09 |LL CONTINUE."...|
00000180: 5A 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |Z.. A$:. A$."" .|
00000190: 20 39 30 00 B3 09 5B 00 8B 20 41 24 B2 22 D5 22 | 90...[.. A$."."|
000001A0: 20 B0 20 41 24 B2 22 55 22 20 A7 20 8D 20 36 36 | . A$."U" . . 66|
000001B0: 30 3A 89 00 C7 09 5C 00 8B 20 41 24 B3 B1 22 20 |0:....\.. A$.." |
000001C0: 22 20 A7 20 31 31 30 00 02 0A 5F 00 47 4C B2 36 |" . 110..._.GL.6|
000001D0: 36 3A 99 22 93 05 11 11 11 11 11 20 D0 4C 45 41 |6:."....... .LEA|
000001E0: 53 45 20 49 4E 53 45 52 54 20 44 49 53 4B 20 57 |SE INSERT DISK W|
000001F0: 49 54 48 20 C1 D2 C3 20 C1 C9 C4 20 4F 4E 20 49 |ITH ... ... ON I|
00000200: 54 22 00 2E 0A 61 00 99 22 20 20 20 20 20 20 20 |T"...a.." |
00000210: 20 20 20 20 41 4E 44 20 50 52 45 53 53 20 41 4E | AND PRESS AN|
00000220: 59 20 4B 45 59 2E 22 3A 97 31 39 38 2C 30 00 44 |Y KEY.":.198,0.D|
00000230: 0A 62 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |.b.. A$:. A$."" |
00000240: A7 20 39 38 00 62 0A 63 00 99 22 93 11 11 11 22 |. 98.b.c.."...."|
00000250: 3B A6 31 35 29 3B 22 CC 4F 41 44 49 4E 47 2E 2E |;.15);".OADING..|
00000260: 2E 22 00 8D 0A 64 00 99 22 13 90 11 11 4C 4F 41 |."...d.."....LOA|
00000270: 44 22 C7 28 33 34 29 22 4D 41 49 4E 22 C7 28 33 |D".(34)"MAIN".(3|
00000280: 34 29 22 2C 38 13 22 3B 3A 89 35 39 30 00 A3 0A |4)",8.";:.590...|
00000290: 6E 00 8B 20 41 24 B3 B1 22 24 22 20 A7 20 89 20 |n.. A$.."$" . . |
000002A0: 31 38 30 00 CE 0A 78 00 99 22 93 20 20 20 20 20 |180...x..". |
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 82 00 99 22 11 11 44 49 52 22 3A 99 22 13 22 |...."..DIR":."."|
000002E0: 3A 47 4C B2 31 39 30 00 F0 0A 8C 00 89 35 39 30 |:GL.190......590|
000002F0: 00 2B 0B 96 00 99 22 20 20 20 20 12 D0 52 45 53 |.+...." ..RES|
00000300: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 |S ANY KEY TO RET|
00000310: 55 52 4E 20 54 4F 20 4D 45 4E 55 2E 92 22 3A 97 |URN TO MENU..":.|
00000320: 20 31 39 38 2C 30 3A 47 4C B2 30 00 42 0B A0 00 | 198,0:GL.0.B...|
00000330: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 |. A$:. A$."" . 1|
00000340: 36 30 00 4E 0B AA 00 99 22 93 22 3B 3A 8A 00 7B |60.N....".";:..{|
00000350: 0B B4 00 99 22 93 11 20 20 20 CE 4F 57 20 54 48 |....".. .OW TH|
00000360: 41 54 20 59 4F 55 20 4B 4E 4F 57 20 54 48 45 20 |AT YOU KNOW THE |
00000370: 4E 41 4D 45 20 4F 46 20 54 48 45 00 AB 0B BE 00 |NAME OF THE.....|
00000380: 99 22 20 20 20 20 20 20 20 20 20 20 C1 D2 C3 20 |." ... |
00000390: 46 49 4C 45 2C 20 54 59 50 45 20 49 54 20 49 4E |FILE, TYPE IT IN|
000003A0: 3A 22 3A 53 52 24 B2 22 41 3A 22 00 D6 0B C8 00 |:":SR$."A:".....|
000003B0: 85 20 22 11 11 11 11 11 11 C1 D2 C3 20 46 49 4C |. "......... FIL|
000003C0: 45 20 4E 41 4D 45 22 3B 46 24 3A 8B 20 46 24 B2 |E NAME";F$:. F$.|
000003D0: 22 22 20 A7 20 8A 00 1D 0C D2 00 8B C2 28 32 29 |"" . ........(2)|
000003E0: B1 31 A7 85 22 CF 4E 20 57 48 41 54 20 44 52 49 |.1..".N WHAT DRI|
000003F0: 56 45 20 43 41 4E 20 54 48 49 53 20 46 49 4C 45 |VE CAN THIS FILE|
00000400: 20 42 45 20 46 4F 55 4E 44 20 20 20 20 28 45 58 | BE FOUND (EX|
00000410: 2E 20 39 2C 30 29 22 3B 44 56 2C 44 52 00 2F 0C |. 9,0)";DV,DR./.|
00000420: DC 00 8D 20 33 38 30 3A 53 52 24 B2 44 52 24 00 |... 380:SR$.DR$.|
00000430: 76 0C E6 00 8B C2 28 32 29 B1 31 A7 85 22 CF 4E |v.....(2).1..".N|
00000440: 20 57 48 41 54 20 44 52 49 56 45 20 43 41 4E 20 | WHAT DRIVE CAN |
00000450: 54 48 49 53 20 46 49 4C 45 20 42 45 20 44 45 2D |THIS FILE BE DE-|
00000460: C1 D2 C3 45 44 20 28 45 58 2E 20 39 2C 30 29 22 |...ED (EX. 9,0)"|
00000470: 3B 44 56 2C 44 52 00 88 0C F0 00 8D 20 34 39 30 |;DV,DR...... 490|
00000480: 3A 44 53 24 B2 44 52 24 00 94 0C FA 00 4C B2 C3 |:DS$.DR$.....L..|
00000490: 28 46 24 29 00 A7 0C 04 01 4C B2 C3 28 46 24 29 |(F$).....L..(F$)|
000004A0: 3A 4E 46 24 B2 22 22 00 C4 0C 0E 01 8B 20 C9 28 |:NF$.""...... .(|
000004B0: 46 24 2C 34 29 B2 22 2E 41 52 43 22 20 A7 20 4C |F$,4).".ARC" . L|
000004C0: B2 4C AB 34 00 D2 0C 18 01 81 20 49 B2 31 20 A4 |.L.4...... I.1 .|
000004D0: 20 4C 00 FA 0C 22 01 8B 20 CA 28 46 24 2C 49 2C | L...".. .(F$,I,|
000004E0: 31 29 B2 22 20 22 20 A7 20 4E 46 24 B2 4E 46 24 |1)." " . NF$.NF$|
000004F0: AA 22 3F 22 3A 89 20 33 31 30 00 10 0D 2C 01 4E |."?":. 310...,.N|
00000500: 46 24 B2 4E 46 24 AA CA 28 46 24 2C 49 2C 31 29 |F$.NF$..(F$,I,1)|
00000510: 00 16 0D 36 01 82 00 3B 0D 40 01 99 22 93 11 11 |...6...;.@.."...|
00000520: 11 41 52 43 2F 58 20 22 44 52 24 AA 4E 46 24 3A |.ARC/X "DR$.NF$:|
00000530: 99 22 13 22 3A 47 4C B2 33 36 30 00 71 0D 4A 01 |.".":GL.360.q.J.|
00000540: 8B 20 C2 28 32 29 B1 31 20 A7 99 22 93 11 11 11 |. .(2).1 .."....|
00000550: 41 52 43 2F 58 22 44 53 24 AA 22 20 22 AA 53 52 |ARC/X"DS$." ".SR|
00000560: 24 AA 4E 46 24 3A 99 22 13 22 3A 47 4C B2 33 36 |$.NF$:.".":GL.36|
00000570: 30 00 7A 0D 54 01 89 35 39 30 00 B7 0D 5E 01 97 |0.z.T..590...^..|
00000580: 31 39 38 2C 30 3A 99 22 20 20 12 D0 52 45 53 53 |198,0:." ..RESS|
00000590: 20 41 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 | ANY KEY TO RETU|
000005A0: 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E |RN TO MAIN MENU.|
000005B0: 92 22 3A 47 4C B2 30 00 CE 0D 68 01 A1 20 41 24 |.":GL.0...h.. A$|
000005C0: 3A 8B 20 41 24 B2 22 22 20 A7 20 33 36 30 00 D4 |:. A$."" . 360..|
000005D0: 0D 72 01 8A 00 DF 0D 7C 01 44 52 24 B2 22 22 00 |.r.....|.DR$."".|
000005E0: FC 0D 86 01 8B 20 44 56 B2 38 20 AF 20 44 52 B2 |..... DV.8 . DR.|
000005F0: 30 20 A7 20 44 52 24 B2 22 41 3A 22 00 19 0E 90 |0 . DR$."A:"....|
00000600: 01 8B 20 44 56 B2 38 20 AF 20 44 52 B2 31 20 A7 |.. DV.8 . DR.1 .|
00000610: 20 44 52 24 B2 22 42 3A 22 00 36 0E 9A 01 8B 20 | DR$."B:".6.... |
00000620: 44 56 B2 39 20 AF 20 44 52 B2 30 20 A7 20 44 52 |DV.9 . DR.0 . DR|
00000630: 24 B2 22 43 3A 22 00 53 0E A4 01 8B 20 44 56 B2 |$."C:".S.... DV.|
00000640: 39 20 AF 20 44 52 B2 31 20 A7 20 44 52 24 B2 22 |9 . DR.1 . DR$."|
00000650: 44 3A 22 00 70 0E AE 01 8B 20 44 56 B2 31 30 AF |D:".p.... DV.10.|
00000660: 20 44 52 B2 30 20 A7 20 44 52 24 B2 22 45 3A 22 | DR.0 . DR$."E:"|
00000670: 00 8E 0E B8 01 8B 20 44 56 B2 31 30 20 AF 20 44 |...... DV.10 . D|
00000680: 52 B2 31 20 A7 20 44 52 24 B2 22 46 3A 22 00 AC |R.1 . DR$."F:"..|
00000690: 0E C2 01 8B 20 44 56 B2 31 31 20 AF 20 44 52 B2 |.... DV.11 . DR.|
000006A0: 30 20 A7 20 44 52 24 B2 22 47 3A 22 00 CA 0E CC |0 . DR$."G:"....|
000006B0: 01 8B 20 44 56 B2 31 31 20 AF 20 44 52 B2 31 20 |.. DV.11 . DR.1 |
000006C0: A7 20 44 52 24 B2 22 48 3A 22 00 D0 0E D6 01 8E |. DR$."H:"......|
000006D0: 00 D6 0E E0 01 80 00 E1 0E EA 01 44 52 24 B2 22 |...........DR$."|
000006E0: 22 00 FD 0E F4 01 8B 20 44 56 B2 38 20 AF 20 44 |"...... DV.8 . D|
000006F0: 52 B2 30 20 A7 20 44 52 24 B2 22 41 22 00 19 0F |R.0 . DR$."A"...|
00000700: FE 01 8B 20 44 56 B2 38 20 AF 20 44 52 B2 31 20 |... DV.8 . DR.1 |
00000710: A7 20 44 52 24 B2 22 42 22 00 35 0F 08 02 8B 20 |. DR$."B".5.... |
00000720: 44 56 B2 39 20 AF 20 44 52 B2 30 20 A7 20 44 52 |DV.9 . DR.0 . DR|
00000730: 24 B2 22 43 22 00 51 0F 12 02 8B 20 44 56 B2 39 |$."C".Q.... DV.9|
00000740: 20 AF 20 44 52 B2 31 20 A7 20 44 52 24 B2 22 44 | . DR.1 . DR$."D|
00000750: 22 00 6E 0F 1C 02 8B 20 44 56 B2 31 30 20 AF 20 |".n.... DV.10 . |
00000760: 44 52 B2 30 20 A7 20 44 52 24 B2 22 45 22 00 8B |DR.0 . DR$."E"..|
00000770: 0F 26 02 8B 20 44 56 B2 31 30 20 AF 20 44 52 B2 |.&.. DV.10 . DR.|
00000780: 31 20 A7 20 44 52 24 B2 22 46 22 00 A8 0F 30 02 |1 . DR$."F"...0.|
00000790: 8B 20 44 56 B2 31 31 20 AF 20 44 52 B2 30 20 A7 |. DV.11 . DR.0 .|
000007A0: 20 44 52 24 B2 22 47 22 00 C5 0F 3A 02 8B 20 44 | DR$."G"...:.. D|
000007B0: 56 B2 31 31 20 AF 20 44 52 B2 31 20 A7 20 44 52 |V.11 . DR.1 . DR|
000007C0: 24 B2 22 48 22 00 CB 0F 44 02 8E 00 07 10 4E 02 |$."H"...D.....N.|
000007D0: 97 20 36 33 31 2C 31 33 3A 97 36 33 32 2C 37 31 |. 631,13:.632,71|
000007E0: 3A 97 20 36 33 33 2C 32 30 37 3A 97 36 33 35 2C |:. 633,207:.635,|
000007F0: 31 33 3A 97 36 33 36 2C 31 33 3A 97 31 39 38 2C |13:.636,13:.198,|
00000800: 35 3A 89 20 34 38 30 00 37 10 94 02 99 22 93 20 |5:. 480.7....". |
00000810: 20 C8 4F 57 20 4D 41 4E 59 20 44 52 49 56 45 53 | .OW MANY DRIVES|
00000820: 20 41 52 45 20 59 4F 55 20 47 4F 49 4E 47 20 54 | ARE YOU GOING T|
00000830: 4F 20 55 53 45 3F 22 00 68 10 95 02 99 22 11 11 |O USE?".h...."..|
00000840: 20 20 20 20 20 20 20 20 12 9E CF 92 05 4E 45 20 | .....NE |
00000850: 4F 52 20 12 9E CD 92 05 55 4C 54 49 50 4C 45 20 |OR .....ULTIPLE |
00000860: C4 52 49 56 45 53 3F 22 00 7F 10 9E 02 A1 20 41 |.RIVES?"...... A|
00000870: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 36 37 30 00 |$:. A$."" . 670.|
00000880: B1 10 A8 02 8B 20 41 24 B3 B1 22 CF 22 20 AF 20 |..... A$.."." . |
00000890: 41 24 B3 B1 22 4F 22 20 AF 20 41 24 B3 B1 22 CD |A$.."O" . A$..".|
000008A0: 22 20 AF 20 41 24 B3 B1 22 4D 22 20 A7 20 36 37 |" . A$.."M" . 67|
000008B0: 30 00 BB 10 B2 02 97 20 32 2C 31 00 D9 10 BC 02 |0...... 2,1.....|
000008C0: 8B 20 41 24 B2 22 4D 22 20 B0 20 41 24 B2 22 CD |. A$."M" . A$.".|
000008D0: 22 20 A7 20 97 20 32 2C 32 00 DF 10 C6 02 8E 00 |" . . 2,2.......|
000008E0: 00 00 |.. |
............. GL.66 . 95.+.... GL.190 .
150.>.... GL.360 . 350.V....: DISSOLVE R
OUTINE...(.."... .DISSOLVE AR
C FILE."...2..".. PLEASE INSERT DISK
WITH ARC FILE."...<..".. PRESS ..$.. F
OR A DIRECTORY OF DRIVE 8,0."...A..".. P
RESS ..U.. FOR A NEW DRIVE CONFIGURATION
.".P.F..".. PRESS ..SPACE BAR.. TO RETUR
N TO MAIN MENU.".}.P..".. ANY OTHE
R KEY WILL CONTINUE."...Z.. A$:. A$."" .
90...[.. A$."U" . A$."U" . . 660:..G.\.
. A$.." " . 110..._.GL.66:."....... PLEA
SE INSERT DISK WITH ARC AID ON IT"...A..
" AND PRESS ANY KEY.":.198,0.D
.B.. A$:. A$."" . 98.B.C.."....";.15);"L
OADING..."...D.."....LOAD"G(34)"MAIN"G(3
4)",8.";:.590...N.. A$.."$" . . 180.N.X.
.". .HOLD DOWN SHIFT TO PAUSE."..
...."..DIR":.".":GL.190......590.+...."
.PRESS ANY KEY TO RETURN TO MENU..":.
198,0:GL.0.B. .. A$:. A$."" . 160.N....
".";:..{....".. NOW THAT YOU KNOW THE
NAME OF THE......" ARC FILE, TY
PE IT IN:":SR$."A:".V.H.. "......ARC FIL
E NAME";F$:. F$."" . ....R..B(2).1.."ON
WHAT DRIVE CAN THIS FILE BE FOUND (EX
. 9,0)";DV,DR./.... 380:SR$.DR$.V....B(2
).1.."ON WHAT DRIVE CAN THIS FILE BE DE-
ARCED (EX. 9,0)";DV,DR...... 490:DS$.DR$
.....L.C(F$).....L.C(F$):NF$."".D.... I(
F$,4).".ARC" . L.L.4.R.... I.1 . L..."..
J(F$,I,1)." " . NF$.NF$."?":. 310...,.N
F$.NF$.J(F$,I,1)...6...;.@.."....ARC/X "
DR$.NF$:.".":GL.360.Q.J.. B(2).1 .."....
ARC/X"DS$." ".SR$.NF$:.".":GL.360.Z.T..5
90...^..198,0:." .PRESS ANY KEY TO RETU
RN TO MAIN MENU..":GL.0.N.H.. A$:. A$.""
. 360.T.R.....|.DR$.""...... DV.8 . DR.
0 . DR$."A:"...... DV.8 . DR.1 . DR$."B:
".6.... DV.9 . DR.0 . DR$."C:".S.... DV.
9 . DR.1 . DR$."D:".P.... DV.10. DR.0 .
DR$."E:"...... DV.10 . DR.1 . DR$."F:"..
.B.. DV.11 . DR.0 . DR$."G:".J.L.. DV.11
. DR.1 . DR$."H:".P.V...V.........DR$."
"...... DV.8 . DR.0 . DR$."A"...... DV.8
. DR.1 . DR$."B".5.... DV.9 . DR.0 . DR
$."C".Q.... DV.9 . DR.1 . DR$."D".N....
DV.10 . DR.0 . DR$."E"...&.. DV.10 . DR.
1 . DR$."F"...0.. DV.11 . DR.0 . DR$."G"
.E.:.. DV.11 . DR.1 . DR$."H".K.D.....N.
. 631,13:.632,71:. 633,207:.635,13:.636,
13:.198,5:. 480.7....". HOW MANY DRIVES
ARE YOU GOING TO USE?".H...."..
..O..NE OR ..M..ULTIPLE DRIVES?"..... A
$:. A$."" . 670...... A$.."O" . A$.."O"
. A$.."M" . A$.."M" . 670...... 2,1.Y...
. A$."M" . A$."M" . . 2,2...F.....
> CLICK IMAGE PREVIEW FOR FULL MODAL