MODULE3
FILE INFORMATION
FILENAME(S): MODULE3
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-02 02:15:47
APPEARS ON: 1 disk(s)
FILE HASH
921819747d6a7775bb9150489fb47a107d4ec8863df9e6d4216b4733b928130e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PLOT B | MODULE3 | PRG | The BAM Archive | 19 | 14 | 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 33 31 32 00 2D 08 0A 00 8B 20 |.66 . 312.-.... | 00000020: 47 4C B2 35 31 31 30 20 A7 20 33 36 30 00 41 08 |GL.5110 . 360.A.| 00000030: 14 00 8B 20 47 4C B2 35 33 37 30 20 A7 20 36 32 |... GL.5370 . 62| 00000040: 30 00 55 08 1E 00 8B 20 47 4C B2 35 33 39 30 20 |0.U.... GL.5390 | 00000050: A7 20 36 34 30 00 5F 08 28 00 89 20 32 36 30 00 |. 640._.(.. 260.| 00000060: 6A 08 32 00 44 52 24 B2 22 22 00 87 08 3C 00 8B |j.2.DR$.""...<..| 00000070: 20 44 56 B2 38 20 AF 20 44 52 B2 30 20 A7 20 44 | DV.8 . DR.0 . D| 00000080: 52 24 B2 22 41 3A 22 00 A4 08 46 00 8B 20 44 56 |R$."A:"...F.. DV| 00000090: B2 38 20 AF 20 44 52 B2 31 20 A7 20 44 52 24 B2 |.8 . DR.1 . DR$.| 000000A0: 22 42 3A 22 00 C1 08 50 00 8B 20 44 56 B2 39 20 |"B:"...P.. DV.9 | 000000B0: AF 20 44 52 B2 30 20 A7 20 44 52 24 B2 22 43 3A |. DR.0 . DR$."C:| 000000C0: 22 00 DE 08 5A 00 8B 20 44 56 B2 39 20 AF 20 44 |"...Z.. DV.9 . D| 000000D0: 52 B2 31 20 A7 20 44 52 24 B2 22 44 3A 22 00 FB |R.1 . DR$."D:"..| 000000E0: 08 64 00 8B 20 44 56 B2 31 30 AF 20 44 52 B2 30 |.d.. DV.10. DR.0| 000000F0: 20 A7 20 44 52 24 B2 22 45 3A 22 00 19 09 6E 00 | . DR$."E:"...n.| 00000100: 8B 20 44 56 B2 31 30 20 AF 20 44 52 B2 31 20 A7 |. DV.10 . DR.1 .| 00000110: 20 44 52 24 B2 22 46 3A 22 00 37 09 78 00 8B 20 | DR$."F:".7.x.. | 00000120: 44 56 B2 31 31 20 AF 20 44 52 B2 30 20 A7 20 44 |DV.11 . DR.0 . D| 00000130: 52 24 B2 22 47 3A 22 00 55 09 82 00 8B 20 44 56 |R$."G:".U.... DV| 00000140: B2 31 31 20 AF 20 44 52 B2 31 20 A7 20 44 52 24 |.11 . DR.1 . DR$| 00000150: B2 22 48 3A 22 00 5B 09 8C 00 8E 00 61 09 96 00 |."H:".[.....a...| 00000160: 80 00 7E 09 04 01 8F 3A 20 41 50 50 45 4E 44 20 |..~....: APPEND | 00000170: 54 4F 20 41 4E 20 41 52 43 20 46 49 4C 45 00 AF |TO AN ARC FILE..| 00000180: 09 0E 01 99 22 93 11 05 20 20 20 20 20 20 12 C1 |...."... ..| 00000190: 50 50 45 4E 44 20 54 4F 20 41 4E 20 45 58 49 53 |PPEND TO AN EXIS| 000001A0: 54 49 4E 47 20 C1 D2 C3 20 46 49 4C 45 92 22 00 |TING ... FILE.".| 000001B0: DF 09 18 01 99 22 11 11 20 20 20 20 20 D0 4C 45 |.....".. .LE| 000001C0: 41 53 45 20 49 4E 53 45 52 54 20 44 49 53 4B 20 |ASE INSERT DISK | 000001D0: 57 49 54 48 20 C1 D2 C3 20 46 49 4C 45 2E 22 00 |WITH ... FILE.".| 000001E0: 14 0A 22 01 99 22 11 11 20 20 D0 52 45 53 53 20 |.."..".. .RESS | 000001F0: 12 9E 24 05 92 20 46 4F 52 20 41 20 44 49 52 45 |..$.. FOR A DIRE| 00000200: 43 54 4F 52 59 20 4F 46 20 C4 52 49 56 45 20 38 |CTORY OF .RIVE 8| 00000210: 2C 30 2E 22 00 49 0A 23 01 99 22 11 11 20 D0 52 |,0.".I.#..".. .R| 00000220: 45 53 53 20 12 9E D5 05 92 20 46 4F 52 20 41 20 |ESS ..... FOR A | 00000230: 4E 45 57 20 44 52 49 56 45 20 43 4F 4E 46 49 47 |NEW DRIVE CONFIG| 00000240: 55 52 41 54 49 4F 4E 2E 22 00 7F 0A 24 01 99 22 |URATION."...$.."| 00000250: 11 11 20 D0 52 45 53 53 20 12 9E D3 D0 C1 C3 C5 |.. .RESS .......| 00000260: 20 C2 C1 D2 05 92 20 54 4F 20 52 45 54 55 52 4E | ..... TO RETURN| 00000270: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 22 00 | TO MAIN MENU.".| 00000280: AC 0A 2C 01 99 22 11 11 20 20 20 20 20 20 20 C1 |..,..".. .| 00000290: 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 57 49 4C |NY OTHER KEY WIL| 000002A0: 4C 20 43 4F 4E 54 49 4E 55 45 2E 22 00 C3 0A 36 |L CONTINUE."...6| 000002B0: 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 |.. A$:. A$."" . | 000002C0: 33 31 30 00 D7 0A 37 01 8B 20 41 24 B3 B1 22 20 |310...7.. A$.." | 000002D0: 22 20 A7 20 33 32 30 00 12 0B 38 01 47 4C B2 36 |" . 320...8.GL.6| 000002E0: 36 3A 99 22 93 05 11 11 11 11 11 20 D0 4C 45 41 |6:."....... .LEA| 000002F0: 53 45 20 49 4E 53 45 52 54 20 44 49 53 4B 20 57 |SE INSERT DISK W| 00000300: 49 54 48 20 C1 D2 C3 20 C1 C9 C4 20 4F 4E 20 49 |ITH ... ... ON I| 00000310: 54 22 00 3E 0B 39 01 99 22 20 20 20 20 20 20 20 |T".>.9.." | 00000320: 20 20 20 20 41 4E 44 20 50 52 45 53 53 20 41 4E | AND PRESS AN| 00000330: 59 20 4B 45 59 2E 22 3A 97 31 39 38 2C 30 00 55 |Y KEY.":.198,0.U| 00000340: 0B 3A 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |.:.. A$:. A$."" | 00000350: A7 20 33 31 34 00 73 0B 3B 01 99 22 93 11 11 11 |. 314.s.;.."....| 00000360: 22 3B A6 31 35 29 3B 22 CC 4F 41 44 49 4E 47 2E |";.15);".OADING.| 00000370: 2E 2E 22 00 9E 0B 3C 01 99 22 13 90 11 11 4C 4F |.."...<.."....LO| 00000380: 41 44 22 C7 28 33 34 29 22 4D 41 49 4E 22 C7 28 |AD".(34)"MAIN".(| 00000390: 33 34 29 22 2C 38 13 22 3B 3A 89 36 37 30 00 B3 |34)",8.";:.670..| 000003A0: 0B 40 01 8B 20 41 24 B3 B1 22 24 22 20 A7 20 20 |.@.. A$.."$" . | 000003B0: 33 39 30 00 DE 0B 4A 01 99 22 93 20 20 20 20 20 |390...J..". | 000003C0: 20 20 20 12 C8 4F 4C 44 20 44 4F 57 4E 20 D3 C8 | ..OLD DOWN ..| 000003D0: C9 C6 D4 20 54 4F 20 50 41 55 53 45 2E 22 00 F8 |... TO PAUSE."..| 000003E0: 0B 54 01 99 22 11 11 44 49 52 22 3A 99 22 13 22 |.T.."..DIR":."."| 000003F0: 3A 47 4C B2 35 31 31 30 00 01 0C 5E 01 89 36 37 |:GL.5110...^..67| 00000400: 30 00 3B 0C 68 01 97 31 39 38 2C 30 3A 99 22 20 |0.;.h..198,0:." | 00000410: 20 20 20 12 D0 52 45 53 53 20 41 4E 59 20 4B 45 | ..RESS ANY KE| 00000420: 59 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D |Y TO RETURN TO M| 00000430: 45 4E 55 2E 92 22 3A 47 4C B2 30 00 52 0C 72 01 |ENU..":GL.0.R.r.| 00000440: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 33 |. A$:. A$."" . 3| 00000450: 37 30 00 5C 0C 7C 01 89 20 32 36 30 00 7C 0C 86 |70.\.|.. 260.|..| 00000460: 01 8B 20 41 24 B2 22 D5 22 20 B0 20 41 24 B2 22 |.. A$."." . A$."| 00000470: 55 22 20 A7 20 8D 20 37 36 30 3A 8A 00 AA 0C 87 |U" . . 760:.....| 00000480: 01 99 22 93 20 20 20 20 20 12 C1 50 50 45 4E 44 |..". ..PPEND| 00000490: 20 54 4F 20 41 4E 20 45 58 49 53 54 49 4E 47 20 | TO AN EXISTING | 000004A0: C1 D2 C3 20 46 49 4C 45 92 22 00 D8 0C 90 01 99 |... FILE."......| 000004B0: 22 93 11 20 20 CE 4F 57 20 54 48 41 54 20 59 4F |".. .OW THAT YO| 000004C0: 55 20 4B 4E 4F 57 20 54 48 45 20 4E 41 4D 45 53 |U KNOW THE NAMES| 000004D0: 20 4F 46 20 54 48 45 22 00 12 0D 9A 01 99 22 46 | OF THE"......"F| 000004E0: 49 4C 45 53 20 54 4F 20 42 45 20 C1 D2 C3 44 2C |ILES TO BE ...D,| 000004F0: 20 41 4E 53 57 45 52 20 54 48 45 20 46 4F 4C 4C | ANSWER THE FOLL| 00000500: 4F 57 49 4E 47 20 20 51 55 45 53 54 49 4F 4E 53 |OWING QUESTIONS| 00000510: 3A 22 00 4A 0D A4 01 85 20 22 11 11 11 11 11 11 |:".J.... "......| 00000520: C1 D2 C3 20 46 49 4C 45 20 54 4F 20 42 45 20 41 |... FILE TO BE A| 00000530: 50 50 45 4E 44 45 44 20 54 4F 22 3B 46 24 3A 8B |PPENDED TO";F$:.| 00000540: 20 46 24 B2 22 22 20 A7 20 8A 00 7A 0D AE 01 8B | F$."" . ..z....| 00000550: C2 28 32 29 B1 31 A7 99 22 D0 55 54 20 12 9E CF |.(2).1..".UT ...| 00000560: 55 54 50 55 54 92 05 20 44 49 53 4B 20 49 4E 20 |UTPUT.. DISK IN | 00000570: C4 52 49 56 45 20 38 2C 30 22 00 8A 0D B8 01 8B |.RIVE 8,0"......| 00000580: 20 41 B2 39 20 A7 20 35 34 30 00 B5 0D C2 01 85 | A.9 . 540......| 00000590: 20 22 C6 49 4C 45 2C 20 50 41 54 54 45 52 4E 20 | ".ILE, PATTERN | 000005A0: 4F 52 20 12 9E D2 C5 D4 D5 D2 CE 92 05 22 3B 46 |OR ..........";F| 000005B0: 49 24 28 41 29 00 CB 0D CC 01 8B 20 46 49 24 28 |I$(A)...... FI$(| 000005C0: 41 29 B2 22 22 20 A7 20 35 34 30 00 12 0E D6 01 |A)."" . 540.....| 000005D0: 8B C2 28 32 29 B1 31 A7 85 22 CF 4E 20 57 48 41 |..(2).1..".N WHA| 000005E0: 54 20 44 52 49 56 45 20 43 41 4E 20 54 48 49 53 |T DRIVE CAN THIS| 000005F0: 20 46 49 4C 45 20 42 45 20 46 4F 55 4E 44 20 20 | FILE BE FOUND | 00000600: 20 20 28 45 58 2E 20 39 2C 30 29 22 3B 44 56 2C | (EX. 9,0)";DV,| 00000610: 44 52 00 26 0E E0 01 8D 20 35 30 3A 46 44 24 28 |DR.&.... 50:FD$(| 00000620: 41 29 B2 44 52 24 00 3C 0E EA 01 81 20 49 B2 31 |A).DR$.<.... I.1| 00000630: 20 A4 20 C3 28 46 49 24 28 41 29 29 00 6E 0E F4 | . .(FI$(A)).n..| 00000640: 01 8B 20 CA 28 46 49 24 28 41 29 2C 49 2C 31 29 |.. .(FI$(A),I,1)| 00000650: B2 22 20 22 20 A7 20 54 45 24 28 41 29 B2 54 45 |." " . TE$(A).TE| 00000660: 24 28 41 29 AA 22 3F 22 3A 89 20 35 32 30 00 8E |$(A)."?":. 520..| 00000670: 0E FE 01 54 45 24 28 41 29 B2 54 45 24 28 41 29 |...TE$(A).TE$(A)| 00000680: AA CA 28 46 49 24 28 41 29 2C 49 2C 31 29 00 94 |..(FI$(A),I,1)..| 00000690: 0E 08 02 82 00 A4 0E 12 02 41 B2 41 AA 31 3A 89 |.........A.A.1:.| 000006A0: 20 34 34 30 00 B8 0E 1C 02 8B 20 46 49 24 28 30 | 440...... FI$(0| 000006B0: 29 B2 22 22 20 A7 20 8A 00 D4 0E 26 02 43 24 B2 |)."" . ....&.C$.| 000006C0: 22 41 52 43 2F 41 20 41 3A 22 AA 46 24 3A 45 58 |"ARC/A A:".F$:EX| 000006D0: 24 B2 22 22 00 E4 0E 30 02 81 20 49 B2 30 20 A4 |$.""...0.. I.0 .| 000006E0: 20 41 AB 31 00 02 0F 3A 02 45 58 24 B2 45 58 24 | A.1...:.EX$.EX$| 000006F0: AA 22 20 22 AA 46 44 24 28 49 29 AA 54 45 24 28 |." ".FD$(I).TE$(| 00000700: 49 29 00 08 0F 44 02 82 00 16 0F 4E 02 43 24 B2 |I)...D.....N.C$.| 00000710: 43 24 AA 45 58 24 00 32 0F 58 02 99 22 93 11 11 |C$.EX$.2.X.."...| 00000720: 11 22 3B 43 24 3A 99 22 13 22 3A 47 4C B2 35 33 |.";C$:.".":GL.53| 00000730: 37 30 00 3B 0F 62 02 89 36 37 30 00 5E 0F 6C 02 |70.;.b..670.^.l.| 00000740: 99 22 93 11 11 11 41 52 43 2F 4C 20 41 3A 22 46 |."....ARC/L A:"F| 00000750: 24 3A 99 22 13 22 3A 47 4C B2 35 33 39 30 00 67 |$:.".":GL.5390.g| 00000760: 0F 76 02 89 36 37 30 00 A5 0F 80 02 97 20 31 39 |.v..670...... 19| 00000770: 38 2C 30 3A 99 22 20 20 12 D0 52 45 53 53 20 41 |8,0:." ..RESS A| 00000780: 4E 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E |NY KEY TO RETURN| 00000790: 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 92 22 | TO MAIN MENU.."| 000007A0: 3A 47 4C B2 30 00 BC 0F 8A 02 A1 20 41 24 3A 8B |:GL.0...... A$:.| 000007B0: 20 41 24 B2 22 22 20 A7 20 36 35 30 00 C2 0F 94 | A$."" . 650....| 000007C0: 02 8A 00 FE 0F 9E 02 97 20 36 33 31 2C 31 33 3A |........ 631,13:| 000007D0: 97 36 33 32 2C 37 31 3A 97 20 36 33 33 2C 32 30 |.632,71:. 633,20| 000007E0: 37 3A 97 36 33 35 2C 31 33 3A 97 36 33 36 2C 31 |7:.635,13:.636,1| 000007F0: 33 3A 97 31 39 38 2C 35 3A 89 20 31 35 30 00 2E |3:.198,5:. 150..| 00000800: 10 F8 02 99 22 93 20 20 C8 4F 57 20 4D 41 4E 59 |....". .OW MANY| 00000810: 20 44 52 49 56 45 53 20 41 52 45 20 59 4F 55 20 | DRIVES ARE YOU | 00000820: 47 4F 49 4E 47 20 54 4F 20 55 53 45 3F 22 00 5F |GOING TO USE?"._| 00000830: 10 F9 02 99 22 11 11 20 20 20 20 20 20 20 20 12 |....".. .| 00000840: 9E CF 92 05 4E 45 20 4F 52 20 12 9E CD 92 05 55 |....NE OR .....U| 00000850: 4C 54 49 50 4C 45 20 C4 52 49 56 45 53 3F 22 00 |LTIPLE .RIVES?".| 00000860: 76 10 02 03 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |v.... A$:. A$.""| 00000870: 20 A7 20 37 37 30 00 A8 10 0C 03 8B 20 41 24 B3 | . 770...... A$.| 00000880: B1 22 CF 22 20 AF 20 41 24 B3 B1 22 4F 22 20 AF |."." . A$.."O" .| 00000890: 20 41 24 B3 B1 22 CD 22 20 AF 20 41 24 B3 B1 22 | A$.."." . A$.."| 000008A0: 4D 22 20 A7 20 37 37 30 00 B2 10 16 03 97 20 32 |M" . 770...... 2| 000008B0: 2C 31 00 D0 10 20 03 8B 20 41 24 B2 22 4D 22 20 |,1... .. A$."M" | 000008C0: B0 20 41 24 B2 22 CD 22 20 A7 20 97 20 32 2C 32 |. A$."." . . 2,2| 000008D0: 00 D6 10 2A 03 8E 00 00 00 |...*..... |
............. GL.66 . 312.-.... GL.5110
. 360.A.... GL.5370 . 620.U.... GL.5390
. 640._.(.. 260.J.2.DR$.""...<.. DV.8 .
DR.0 . DR$."A:"...F.. DV.8 . DR.1 . DR$.
"B:".A.P.. DV.9 . DR.0 . DR$."C:"...Z..
DV.9 . DR.1 . DR$."D:"...D.. DV.10. DR.0
. DR$."E:"...N.. DV.10 . DR.1 . DR$."F:
".7.X.. DV.11 . DR.0 . DR$."G:".U.... DV
.11 . DR.1 . DR$."H:".[.....A.....~....:
APPEND TO AN ARC FILE......"... .A
PPEND TO AN EXISTING ARC FILE."......"..
PLEASE INSERT DISK WITH ARC FILE.".
.."..".. PRESS ..$.. FOR A DIRECTORY OF
DRIVE 8,0.".I.#..".. PRESS ..U.. FOR A
NEW DRIVE CONFIGURATION."..$..".. PRESS
..SPACE BAR.. TO RETURN TO MAIN MENU.".
..,..".. ANY OTHER KEY WILL CONTIN
UE.".C.6.. A$:. A$."" . 310.W.7.. A$.."
" . 320...8.GL.66:."....... PLEASE INSER
T DISK WITH ARC AID ON IT".>.9.."
AND PRESS ANY KEY.":.198,0.U.:.. A$:
. A$."" . 314.S.;.."....";.15);"LOADING.
.."...<.."....LOAD"G(34)"MAIN"G(34)",8."
;:.670...@.. A$.."$" . 390...J..".
.HOLD DOWN SHIFT TO PAUSE."...T.."..D
IR":.".":GL.5110...^..670.;.H..198,0:."
.PRESS ANY KEY TO RETURN TO MENU..":G
L.0.R.R.. A$:. A$."" . 370.\.|.. 260.|..
.. A$."U" . A$."U" . . 760:.......".
.APPEND TO AN EXISTING ARC FILE.".X....
".. NOW THAT YOU KNOW THE NAMES OF THE"
......"FILES TO BE ARCD, ANSWER THE FOLL
OWING QUESTIONS:".J.... "......ARC FILE
TO BE APPENDED TO";F$:. F$."" . ..Z....
B(2).1.."PUT ..OUTPUT.. DISK IN DRIVE 8,
0"...... A.9 . 540...B.. "FILE, PATTERN
OR ..RETURN..";FI$(A).K.L.. FI$(A)."" .
540...V..B(2).1.."ON WHAT DRIVE CAN THIS
FILE BE FOUND (EX. 9,0)";DV,DR.&....
50:FD$(A).DR$.<.... I.1 . C(FI$(A)).N..
.. J(FI$(A),I,1)." " . TE$(A).TE$(A)."?"
:. 520.....TE$(A).TE$(A).J(FI$(A),I,1)..
.........A.A.1:. 440...... FI$(0)."" . .
.T.&.C$."ARC/A A:".F$:EX$.""...0.. I.0 .
A.1...:.EX$.EX$." ".FD$(I).TE$(I)...D..
...N.C$.C$.EX$.2.X.."....";C$:.".":GL.53
70.;.B..670.^.L.."....ARC/L A:"F$:.".":G
L.5390.G.V..670...... 198,0:." .PRESS A
NY KEY TO RETURN TO MAIN MENU..":GL.0...
... A$:. A$."" . 650.B.......... 631,13:
.632,71:. 633,207:.635,13:.636,13:.198,5
:. 150......". HOW MANY DRIVES ARE YOU
GOING TO USE?"._....".. ..O..NE O
R ..M..ULTIPLE DRIVES?".V.... A$:. A$.""
. 770...... A$.."O" . A$.."O" . A$.."M"
. A$.."M" . 770...... 2,1.P. .. A$."M"
. A$."M" . . 2,2.V.*.....
> CLICK IMAGE PREVIEW FOR FULL MODAL