MODULE5
FILE INFORMATION
FILENAME(S): MODULE5
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-12-02 02:15:47
APPEARS ON: 1 disk(s)
FILE HASH
38efa479fefa0e6af1ee0fe06b0b3b89cb9e9e423d4d9abc0168787b8ed5d862
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PLOT B | MODULE5 | PRG | The BAM Archive | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 07 08 00 00 8F 00 15 08 01 00 8B 47 4C B2 |.............GL.|
00000010: 36 36 A7 31 36 00 24 08 02 00 8B 47 4C B2 35 30 |66.16.$....GL.50|
00000020: 30 A7 32 36 00 31 08 03 00 8B 46 4C B2 31 A7 36 |0.26.1....FL.1.6|
00000030: 31 00 37 08 04 00 9C 00 4D 08 05 00 8F 3A 43 52 |1.7.....M....:CR|
00000040: 45 41 54 45 20 41 52 43 20 46 49 4C 45 00 8C 08 |EATE ARC FILE...|
00000050: 06 00 54 31 B2 30 3A 50 44 B2 34 3A 54 24 28 30 |..T1.0:PD.4:T$(0|
00000060: 29 B2 22 CE 4F 20 D4 52 41 4E 53 4C 41 54 49 4F |).".O .RANSLATIO|
00000070: 4E 22 3A 54 24 28 31 29 B2 22 C1 53 43 49 49 20 |N":T$(1).".SCII |
00000080: 54 4F 20 D0 45 54 41 53 43 49 49 22 00 CA 08 07 |TO .ETASCII"....|
00000090: 00 54 24 28 32 29 B2 22 D0 45 54 41 53 43 49 49 |.T$(2).".ETASCII|
000000A0: 20 54 4F 20 C1 53 43 49 49 22 3A 54 52 24 28 30 | TO .SCII":TR$(0|
000000B0: 29 B2 22 22 3A 54 52 24 28 31 29 B2 22 50 22 3A |)."":TR$(1)."P":|
000000C0: 54 52 24 28 32 29 B2 22 41 22 00 F4 08 08 00 99 |TR$(2)."A"......|
000000D0: 22 93 11 05 20 20 20 20 20 20 20 20 20 12 D0 52 |"... ..R|
000000E0: 49 4E 54 20 C1 D2 C3 44 20 C4 CF C3 20 46 49 4C |INT ...D ... FIL|
000000F0: 45 53 2E 22 00 24 09 09 00 99 22 11 11 20 20 20 |ES.".$....".. |
00000100: 20 20 D0 4C 45 41 53 45 20 49 4E 53 45 52 54 20 | .LEASE INSERT |
00000110: 44 49 53 4B 20 57 49 54 48 20 C1 D2 C3 20 46 49 |DISK WITH ... FI|
00000120: 4C 45 2E 22 00 59 09 0A 00 99 22 11 11 20 20 D0 |LE.".Y....".. .|
00000130: 52 45 53 53 20 12 9E 24 05 92 20 46 4F 52 20 41 |RESS ..$.. FOR A|
00000140: 20 44 49 52 45 43 54 4F 52 59 20 4F 46 20 C4 52 | DIRECTORY OF .R|
00000150: 49 56 45 20 38 2C 30 2E 22 00 8B 09 0B 00 99 22 |IVE 8,0."......"|
00000160: 11 11 20 20 20 20 D0 52 45 53 53 20 12 9E D0 92 |.. .RESS ....|
00000170: 05 20 54 4F 20 43 48 41 4E 47 45 20 50 52 49 4E |. TO CHANGE PRIN|
00000180: 54 45 52 20 53 45 54 55 50 2E 22 00 C1 09 0C 00 |TER SETUP.".....|
00000190: 99 22 11 11 20 D0 52 45 53 53 20 12 9E D3 D0 C1 |.".. .RESS .....|
000001A0: C3 C5 20 C2 C1 D2 05 92 20 54 4F 20 52 45 54 55 |.. ..... TO RETU|
000001B0: 52 4E 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E |RN TO MAIN MENU.|
000001C0: 22 00 EE 09 0D 00 99 22 11 11 20 20 20 20 20 20 |"......".. |
000001D0: 20 C1 4E 59 20 4F 54 48 45 52 20 4B 45 59 20 57 | .NY OTHER KEY W|
000001E0: 49 4C 4C 20 43 4F 4E 54 49 4E 55 45 2E 22 00 00 |ILL CONTINUE."..|
000001F0: 0A 0E 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 34 |....A$:.A$."".14|
00000200: 00 10 0A 0F 00 8B 41 24 B3 B1 22 20 22 A7 32 32 |......A$.." ".22|
00000210: 00 4B 0A 10 00 47 4C B2 36 36 3A 99 22 93 05 11 |.K...GL.66:."...|
00000220: 11 11 11 11 20 D0 4C 45 41 53 45 20 49 4E 53 45 |.... .LEASE INSE|
00000230: 52 54 20 44 49 53 4B 20 57 49 54 48 20 C1 D2 C3 |RT DISK WITH ...|
00000240: 20 C1 C9 C4 20 4F 4E 20 49 54 22 00 70 0A 11 00 | ... ON IT".p...|
00000250: 99 22 20 20 20 20 20 20 20 20 20 20 20 41 4E 44 |." AND|
00000260: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 2E 22 | PRESS ANY KEY."|
00000270: 00 7B 0A 12 00 97 31 39 38 2C 30 00 8E 0A 13 00 |.{....198,0.....|
00000280: A1 41 24 3A 8B 20 41 24 B2 22 22 A7 31 39 00 AC |.A$:. A$."".19..|
00000290: 0A 14 00 99 22 93 11 11 11 22 3B A6 31 35 29 3B |...."....";.15);|
000002A0: 22 CC 4F 41 44 49 4E 47 2E 2E 2E 22 00 D6 0A 15 |".OADING..."....|
000002B0: 00 99 22 13 90 11 11 4C 4F 41 44 22 C7 28 33 34 |.."....LOAD".(34|
000002C0: 29 22 4D 41 49 4E 22 C7 28 33 34 29 22 2C 38 13 |)"MAIN".(34)",8.|
000002D0: 22 3B 3A 89 36 36 00 E6 0A 16 00 8B 41 24 B3 B1 |";:.66......A$..|
000002E0: 22 24 22 A7 32 39 00 11 0B 17 00 99 22 93 20 20 |"$".29......". |
000002F0: 20 20 20 20 20 20 12 C8 4F 4C 44 20 44 4F 57 4E | ..OLD DOWN|
00000300: 20 D3 C8 C9 C6 D4 20 54 4F 20 50 41 55 53 45 2E | ..... TO PAUSE.|
00000310: 22 00 2A 0B 18 00 99 22 11 11 44 49 52 22 3A 99 |".*...."..DIR":.|
00000320: 22 13 22 3A 47 4C B2 35 30 30 00 32 0B 19 00 89 |".":GL.500.2....|
00000330: 36 36 00 6C 0B 1A 00 97 31 39 38 2C 30 3A 99 22 |66.l....198,0:."|
00000340: 20 20 20 20 12 D0 52 45 53 53 20 41 4E 59 20 4B | ..RESS ANY K|
00000350: 45 59 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |EY TO RETURN TO |
00000360: 4D 45 4E 55 2E 92 22 3A 47 4C B2 30 00 7E 0B 1B |MENU..":GL.0.~..|
00000370: 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 32 37 00 85 |..A$:.A$."".27..|
00000380: 0B 1C 00 89 35 00 9D 0B 1D 00 8B 41 24 B3 B1 22 |....5......A$.."|
00000390: D0 22 AF 41 24 B3 B1 22 50 22 A7 34 36 00 C7 0B |.".A$.."P".46...|
000003A0: 1E 00 99 22 93 11 20 20 20 20 20 20 20 20 20 12 |...".. .|
000003B0: C3 48 41 4E 47 45 20 D0 52 49 4E 54 45 52 20 CF |.HANGE .RINTER .|
000003C0: 50 54 49 4F 4E 53 22 00 F9 0B 1F 00 99 22 11 20 |PTIONS"......". |
000003D0: 20 D0 52 45 53 53 20 9E 12 D4 92 05 20 54 4F 20 | .RESS ..... TO |
000003E0: 43 48 41 4E 47 45 20 54 52 41 4E 53 4C 41 54 49 |CHANGE TRANSLATI|
000003F0: 4F 4E 20 4D 4F 44 45 2E 22 00 2B 0C 20 00 99 22 |ON MODE.".+. .."|
00000400: 11 20 20 D0 52 45 53 53 20 9E 12 C4 92 05 20 54 |. .RESS ..... T|
00000410: 4F 20 43 48 41 4E 47 45 20 50 52 49 4E 54 45 52 |O CHANGE PRINTER|
00000420: 20 44 45 56 49 43 45 20 23 2E 22 00 5E 0C 21 00 | DEVICE #.".^.!.|
00000430: 99 22 11 20 20 D0 52 45 53 53 20 9E 12 D3 92 05 |.". .RESS .....|
00000440: 20 54 4F 20 43 48 41 4E 47 45 20 53 45 43 4F 4E | TO CHANGE SECON|
00000450: 44 41 52 59 20 41 44 44 52 45 53 53 2E 22 00 A5 |DARY ADDRESS."..|
00000460: 0C 22 00 99 22 11 20 20 C1 4E 59 20 4F 54 48 45 |."..". .NY OTHE|
00000470: 52 20 4B 45 59 20 52 45 54 55 52 4E 53 20 54 4F |R KEY RETURNS TO|
00000480: 20 C4 4F 43 20 D0 52 49 4E 54 45 52 20 20 20 20 | .OC .RINTER |
00000490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CD | .|
000004A0: 45 4E 55 2E 22 00 D5 0C 23 00 99 22 13 11 11 11 |ENU."...#.."....|
000004B0: 11 11 11 11 11 11 11 11 11 11 D4 52 41 4E 53 4C |...........RANSL|
000004C0: 41 54 49 4F 4E 3A 20 22 3B 54 24 28 54 31 29 3B |ATION: ";T$(T1);|
000004D0: 22 20 20 20 22 00 F1 0C 24 00 99 22 D0 52 49 4E |" "...$..".RIN|
000004E0: 54 45 52 20 44 45 56 49 43 45 20 23 3A 22 3B 50 |TER DEVICE #:";P|
000004F0: 44 00 16 0D 25 00 99 22 D3 45 43 4F 4E 44 41 52 |D...%..".ECONDAR|
00000500: 59 20 41 44 44 52 45 53 53 3A 20 20 20 20 9D 9D |Y ADDRESS: ..|
00000510: 9D 9D 22 3B 53 41 00 28 0D 26 00 A1 41 24 3A 8B |..";SA.(.&..A$:.|
00000520: 41 24 B2 22 22 A7 33 38 00 40 0D 27 00 8B 41 24 |A$."".38.@.'..A$|
00000530: B3 B1 22 54 22 AF 41 24 B3 B1 22 D4 22 A7 34 31 |.."T".A$..".".41|
00000540: 00 59 0D 28 00 54 31 B2 54 31 AA 31 AA 28 54 31 |.Y.(.T1.T1.1.(T1|
00000550: B2 32 29 AC 33 3A 89 33 35 00 71 0D 29 00 8B 41 |.2).3:.35.q.)..A|
00000560: 24 B3 B1 22 44 22 AF 41 24 B3 B1 22 C4 22 A7 34 |$.."D".A$..".".4|
00000570: 33 00 81 0D 2A 00 50 44 B2 39 AB 50 44 3A 89 33 |3...*.PD.9.PD:.3|
00000580: 35 00 99 0D 2B 00 8B 41 24 B3 B1 22 53 22 AF 41 |5...+..A$.."S".A|
00000590: 24 B3 B1 22 D3 22 A7 34 36 00 E1 0D 2C 00 85 22 |$..".".46...,.."|
000005A0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000005B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000005C0: 1D 1D 1D 20 20 20 20 9D 9D 9D 9D 22 3B 53 41 3A |... ....";SA:|
000005D0: 8B 53 41 B1 32 35 35 B0 53 41 B3 30 A7 53 41 B2 |.SA.255.SA.0.SA.|
000005E0: 30 00 F8 0D 2D 00 97 37 38 31 2C 31 35 3A 9E 35 |0...-..781,15:.5|
000005F0: 39 39 30 33 3A 89 33 35 00 21 0E 2E 00 99 22 93 |9903:.35.!....".|
00000600: 20 20 20 20 20 20 20 20 20 20 12 D0 52 49 4E 54 | ..RINT|
00000610: 20 C1 D2 C3 44 20 C4 CF C3 20 46 49 4C 45 53 2E | ...D ... FILES.|
00000620: 22 00 4E 0E 2F 00 99 22 11 20 20 20 CE 4F 57 20 |".N./..". .OW |
00000630: 54 48 41 54 20 59 4F 55 20 4B 4E 4F 57 20 54 48 |THAT YOU KNOW TH|
00000640: 45 20 4E 41 4D 45 53 20 4F 46 20 54 48 45 00 92 |E NAMES OF THE..|
00000650: 0E 30 00 99 22 C1 D2 C3 44 20 C4 CF C3 20 46 49 |.0.."...D ... FI|
00000660: 4C 45 20 54 4F 20 50 52 49 4E 54 2C 20 41 4E 53 |LE TO PRINT, ANS|
00000670: 57 45 52 20 54 48 45 20 20 20 20 20 20 46 4F 4C |WER THE FOL|
00000680: 4C 4F 57 49 4E 47 20 51 55 45 53 54 49 4F 4E 53 |LOWING QUESTIONS|
00000690: 3A 22 00 CE 0E 31 00 99 22 11 11 D0 55 54 20 44 |:"...1.."...UT D|
000006A0: 49 53 4B 20 43 4F 4E 54 41 49 4E 49 4E 47 20 54 |ISK CONTAINING T|
000006B0: 48 45 20 44 4F 43 20 46 49 4C 45 20 49 4E 54 4F |HE DOC FILE INTO|
000006C0: 20 20 20 44 52 49 56 45 20 38 2C 30 2E 22 00 F2 | DRIVE 8,0."..|
000006D0: 0E 32 00 85 22 11 11 C6 49 4C 45 4E 41 4D 45 20 |.2.."...ILENAME |
000006E0: 4F 52 20 12 9E D2 C5 D4 D5 D2 CE 92 05 22 3B 46 |OR ..........";F|
000006F0: 49 24 00 01 0F 33 00 8B 20 46 49 24 B2 22 22 A7 |I$...3.. FI$."".|
00000700: 8A 00 2F 0F 34 00 99 22 11 11 CF 55 54 50 55 54 |../.4.."...UTPUT|
00000710: 20 54 4F 20 9E 12 D3 92 05 43 52 45 45 4E 20 4F | TO .....CREEN O|
00000720: 52 20 12 9E D0 92 05 52 49 4E 54 45 52 3F 22 00 |R .....RINTER?".|
00000730: 41 0F 35 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 |A.5..A$:.A$."".5|
00000740: 33 00 66 0F 36 00 8B 41 24 B2 22 D3 22 B0 41 24 |3.f.6..A$.".".A$|
00000750: B2 22 53 22 A7 43 24 B2 22 41 52 43 2F 50 20 41 |."S".C$."ARC/P A|
00000760: 3A 22 AA 46 49 24 00 9D 0F 37 00 8B 41 24 B2 22 |:".FI$...7..A$."|
00000770: D0 22 B0 41 24 B2 22 50 22 A7 43 24 B2 22 41 52 |.".A$."P".C$."AR|
00000780: 43 2F 50 22 AA 54 52 24 28 54 31 29 AA 22 2F 50 |C/P".TR$(T1)."/P|
00000790: 20 41 3A 22 AA 46 49 24 3A 46 4C B2 31 00 B8 0F | A:".FI$:FL.1...|
000007A0: 38 00 99 22 93 11 11 11 22 3B 43 24 3A 99 22 13 |8.."....";C$:.".|
000007B0: 22 3A 47 4C B2 37 34 30 00 C6 0F 39 00 8B 46 4C |":GL.740...9..FL|
000007C0: B3 B1 31 A7 35 39 00 FF 0F 3A 00 99 22 13 11 11 |..1.59...:.."...|
000007D0: 11 11 11 11 11 11 11 11 11 11 50 CF 32 30 35 31 |..........P.2051|
000007E0: 2C 30 3A 50 CF 32 30 35 32 2C 30 11 11 50 CF 32 |,0:P.2052,0..P.2|
000007F0: 30 35 31 2C 30 3A 50 CF 32 30 35 32 2C 30 22 00 |051,0:P.2052,0".|
00000800: 0F 10 3B 00 99 22 13 22 3A 47 4C B2 37 34 30 00 |..;..".":GL.740.|
00000810: 17 10 3C 00 89 36 35 00 4F 10 3D 00 97 31 39 38 |..<..65.O.=..198|
00000820: 2C 30 3A 99 22 20 20 12 D0 52 45 53 53 20 41 4E |,0:." ..RESS AN|
00000830: 59 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 20 |Y KEY TO RETURN |
00000840: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 92 22 00 |TO MAIN MENU..".|
00000850: 61 10 3E 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 36 |a.>..A$:.A$."".6|
00000860: 32 00 67 10 3F 00 8A 00 72 10 40 00 44 52 24 B2 |2.g.?...r.@.DR$.|
00000870: 22 22 00 8E 10 41 00 8B 46 4C B2 31 A7 97 32 30 |""...A..FL.1..20|
00000880: 35 31 2C 50 44 3A 97 32 30 35 32 2C 53 41 00 C4 |51,PD:.2052,SA..|
00000890: 10 42 00 97 36 33 31 2C 31 33 3A 97 36 33 32 2C |.B..631,13:.632,|
000008A0: 31 33 3A 97 20 36 33 33 2C 37 31 3A 97 36 33 34 |13:. 633,71:.634|
000008B0: 2C 32 30 37 3A 97 36 33 35 2C 31 33 3A 97 36 33 |,207:.635,13:.63|
000008C0: 36 2C 31 33 00 D1 10 43 00 97 31 39 38 2C 36 3A |6,13...C..198,6:|
000008D0: 80 00 00 00 |.... |
.............GL.66.16.$....GL.500.26.1..
..FL.1.61.7.....M....:CREATE ARC FILE...
..T1.0:PD.4:T$(0)."NO TRANSLATION":T$(1)
."ASCII TO PETASCII".J...T$(2)."PETASCII
TO ASCII":TR$(0)."":TR$(1)."P":TR$(2)."
A"......"... .PRINT ARCD DOC FIL
ES.".$....".. PLEASE INSERT DISK WIT
H ARC FILE.".Y....".. PRESS ..$.. FOR A
DIRECTORY OF DRIVE 8,0."......".. PR
ESS ..P.. TO CHANGE PRINTER SETUP.".A...
.".. PRESS ..SPACE BAR.. TO RETURN TO MA
IN MENU."......".. ANY OTHER KEY W
ILL CONTINUE."......A$:.A$."".14......A$
.." ".22.K...GL.66:."....... PLEASE INSE
RT DISK WITH ARC AID ON IT".P...."
AND PRESS ANY KEY.".{....198,0.....
.A$:. A$."".19......"....";.15);"LOADING
...".V...."....LOAD"G(34)"MAIN"G(34)",8.
";:.66......A$.."$".29......". .H
OLD DOWN SHIFT TO PAUSE.".*...."..DIR":.
".":GL.500.2....66.L....198,0:." .PRE
SS ANY KEY TO RETURN TO MENU..":GL.0.~..
..A$:.A$."".27......5......A$.."P".A$.."
P".46.G....".. .CHANGE PRINTER O
PTIONS"......". PRESS ..T.. TO CHANGE T
RANSLATION MODE.".+. ..". PRESS ..D.. T
O CHANGE PRINTER DEVICE #.".^.!..". PRE
SS ..S.. TO CHANGE SECONDARY ADDRESS."..
."..". ANY OTHER KEY RETURNS TO DOC PRI
NTER MENU.".U.#.."....
..........TRANSLATION: ";T$(T1);" "...
$.."PRINTER DEVICE #:";PD...%.."SECONDAR
Y ADDRESS: ....";SA.(.&..A$:.A$."".38
.@.'..A$.."T".A$.."T".41.Y.(.T1.T1.1.(T1
.2).3:.35.Q.)..A$.."D".A$.."D".43...*.PD
.9.PD:.35...+..A$.."S".A$.."S".46...,.."
................................... .
...";SA:.SA.255.SA.0.SA.0...-..781,15:.5
9903:.35.!....". .PRINT ARCD DO
C FILES.".N./..". NOW THAT YOU KNOW TH
E NAMES OF THE...0.."ARCD DOC FILE TO PR
INT, ANSWER THE FOLLOWING QUESTIONS
:".N.1.."..PUT DISK CONTAINING THE DOC F
ILE INTO DRIVE 8,0."...2.."..FILENAME
OR ..RETURN..";FI$...3.. FI$."".../.4.."
..OUTPUT TO ..S..CREEN OR ..P..RINTER?".
A.5..A$:.A$."".53.F.6..A$."S".A$."S".C$.
"ARC/P A:".FI$...7..A$."P".A$."P".C$."AR
C/P".TR$(T1)."/P A:".FI$:FL.1...8.."....
";C$:.".":GL.740.F.9..FL..1.59...:.."...
..........PO2051,0:PO2052,0..PO2051,0:PO
2052,0"...;..".":GL.740...<..65.O.=..198
,0:." .PRESS ANY KEY TO RETURN TO MAIN
MENU..".A.>..A$:.A$."".62.G.?...R.@.DR$.
""...A..FL.1..2051,PD:.2052,SA.D.B..631,
13:.632,13:. 633,71:.634,207:.635,13:.63
6,13.Q.C..198,6:....
> CLICK IMAGE PREVIEW FOR FULL MODAL