SOUND
FILE INFORMATION
FILENAME(S): SOUND
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-10-19 22:49:24
APPEARS ON: 1 disk(s)
FILE HASH
97e05609edd6850747624d1c25c5f0265c75e21244f31c7050fa67094605de79
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GOLD DISK JAN86 | SOUND | PRG | Radd Maxx | 33 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 28 43 29 20 31 39 38 35 |....... (C) 1985| 00000010: 20 47 4F 4C 44 20 44 49 53 4B 20 49 4E 43 00 24 | GOLD DISK INC.$| 00000020: 08 14 00 8F 00 41 08 1E 00 8F 20 53 4F 55 4E 44 |.....A.... SOUND| 00000030: 20 2D 20 47 45 49 47 45 52 20 43 4F 55 4E 54 45 | - GEIGER COUNTE| 00000040: 52 00 47 08 28 00 8F 00 57 08 32 00 99 C7 28 31 |R.G.(...W.2...(1| 00000050: 34 29 3B C7 28 38 29 00 6E 08 3C 00 97 20 35 33 |4);.(8).n.<.. 53| 00000060: 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 86 |281,0:.53280,0..| 00000070: 08 46 00 99 22 93 05 C7 45 49 47 45 52 20 C3 4F |.F.."...EIGER .O| 00000080: 55 4E 54 45 52 22 00 B4 08 50 00 99 22 20 20 20 |UNTER"...P.." | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9F | .| 000000A0: 3C C6 31 3E 20 54 4F 20 53 54 41 52 54 20 53 4F |<.1> TO START SO| 000000B0: 55 4E 44 22 00 E0 08 5A 00 99 22 20 20 20 20 20 |UND"...Z.." | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 3C C6 33 | <.3| 000000D0: 3E 20 54 4F 20 53 54 4F 50 20 53 4F 55 4E 44 22 |> TO STOP SOUND"| 000000E0: 00 11 09 64 00 99 22 05 CC 49 53 54 49 4E 47 3A |...d.."..ISTING:| 000000F0: 20 20 20 20 20 20 20 20 20 20 9F 3C 5F 3E 20 20 | .<_> | 00000100: 9E C7 4F 4C 44 20 C4 49 53 4B 20 9F 4D 45 4E 55 |..OLD .ISK .MENU| 00000110: 22 00 23 09 6E 00 99 22 9C B7 B7 B7 B7 B7 B7 B7 |".#.n.."........| 00000120: B7 05 22 00 50 09 78 00 99 22 31 30 30 20 53 53 |..".P.x.."100 SS| 00000130: 3D 35 34 32 37 32 20 20 20 20 20 20 20 3A 52 45 |=54272 :RE| 00000140: 4D 20 53 49 44 20 43 48 49 50 20 53 54 41 52 54 |M SID CHIP START| 00000150: 00 77 09 82 00 99 22 31 31 30 20 46 4F 52 49 3D |.w...."110 FORI=| 00000160: 53 53 54 4F 53 53 2B 32 34 3A 50 4F 4B 45 49 2C |SSTOSS+24:POKEI,| 00000170: 30 3A 4E 45 58 54 49 00 A4 09 8C 00 99 22 31 32 |0:NEXTI......"12| 00000180: 30 20 50 4F 4B 45 20 53 53 2B 32 34 2C 31 35 20 |0 POKE SS+24,15 | 00000190: 20 3A 52 45 4D 20 56 4F 4C 55 4D 45 20 43 4F 4E | :REM VOLUME CON| 000001A0: 54 52 4F 4C 00 D2 09 96 00 99 22 31 33 30 20 50 |TROL......"130 P| 000001B0: 4F 4B 45 20 53 53 2B 36 2C 32 34 30 20 20 3A 52 |OKE SS+6,240 :R| 000001C0: 45 4D 20 53 55 53 54 41 49 4E 2F 52 45 4C 45 41 |EM SUSTAIN/RELEA| 000001D0: 53 45 00 FD 09 A0 00 99 22 31 34 30 20 50 4F 4B |SE......"140 POK| 000001E0: 45 20 53 53 2B 35 2C 30 20 20 20 20 3A 52 45 4D |E SS+5,0 :REM| 000001F0: 20 41 54 54 41 43 4B 2F 44 45 43 41 59 00 24 0A | ATTACK/DECAY.$.| 00000200: AA 00 99 22 31 35 30 20 50 4F 4B 45 20 53 53 2B |..."150 POKE SS+| 00000210: 33 2C 38 20 20 20 20 3A 52 45 4D 20 48 49 20 50 |3,8 :REM HI P| 00000220: 55 4C 53 45 00 4B 0A B4 00 99 22 31 36 30 20 50 |ULSE.K...."160 P| 00000230: 4F 4B 45 20 53 53 2B 34 2C 30 20 20 20 20 3A 52 |OKE SS+4,0 :R| 00000240: 45 4D 20 47 41 54 45 20 4F 46 46 00 71 0A BE 00 |EM GATE OFF.q...| 00000250: 99 22 31 37 30 20 50 4F 4B 45 20 53 53 2B 34 2C |."170 POKE SS+4,| 00000260: 36 35 20 20 20 3A 52 45 4D 20 47 41 54 45 20 4F |65 :REM GATE O| 00000270: 4E 00 9F 0A C8 00 99 22 31 38 30 20 46 4F 52 49 |N......"180 FORI| 00000280: 3D 33 30 54 4F 31 36 30 3A 4B 3D 28 31 32 30 2D |=30TO160:K=(120-| 00000290: 49 29 2F 34 2B 31 30 2A 52 4E 44 28 54 49 29 00 |I)/4+10*RND(TI).| 000002A0: C5 0A D2 00 99 22 31 39 30 20 49 46 4B 3E 31 38 |....."190 IFK>18| 000002B0: 54 48 45 4E 4B 3D 4B 2D 31 30 2B 34 30 2A 52 4E |THENK=K-10+40*RN| 000002C0: 44 28 54 49 29 00 E6 0A DC 00 99 22 32 30 30 20 |D(TI)......"200 | 000002D0: 49 46 4B 3C 35 54 48 45 4E 4B 3D 31 2B 38 2A 52 |IFK<5THENK=1+8*R| 000002E0: 4E 44 28 54 49 29 00 FC 0A E6 00 99 22 32 31 30 |ND(TI)......"210| 000002F0: 20 50 4F 4B 45 20 53 53 2B 31 2C 33 00 1E 0B F0 | POKE SS+1,3....| 00000300: 00 99 22 32 32 30 20 54 49 24 3D 22 C7 28 33 34 |.."220 TI$=".(34| 00000310: 29 22 30 30 30 30 30 30 22 C7 28 33 34 29 00 36 |)"000000".(34).6| 00000320: 0B FA 00 99 22 32 33 30 20 49 46 54 49 3C 31 54 |...."230 IFTI<1T| 00000330: 48 45 4E 32 33 30 00 58 0B 04 01 99 22 32 34 30 |HEN230.X...."240| 00000340: 20 50 4F 4B 45 20 53 53 2B 31 2C 30 3A 50 4F 4B | POKE SS+1,0:POK| 00000350: 45 20 53 53 2B 30 2C 30 00 72 0B 0E 01 99 22 32 |E SS+0,0.r...."2| 00000360: 35 30 20 46 4F 52 4A 3D 31 54 4F 4B 3A 4E 45 58 |50 FORJ=1TOK:NEX| 00000370: 54 4A 00 8F 0B 18 01 99 22 32 36 30 20 4E 45 58 |TJ......"260 NEX| 00000380: 54 49 3A 50 4F 4B 45 20 53 53 2B 31 35 2C 30 00 |TI:POKE SS+15,0.| 00000390: A3 0B 22 01 99 22 32 37 30 20 47 4F 54 4F 20 31 |..".."270 GOTO 1| 000003A0: 37 30 22 00 D4 0B 2C 01 99 20 22 11 9F D3 4F 55 |70"...,.. "...OU| 000003B0: 52 43 45 20 43 4F 44 45 20 46 49 4C 45 4E 41 4D |RCE CODE FILENAM| 000003C0: 45 3A 20 05 C7 45 49 47 45 52 20 C3 4F 55 4E 54 |E: ..EIGER .OUNT| 000003D0: 45 52 22 3B 00 F9 0B 36 01 53 53 B2 35 34 32 37 |ER";...6.SS.5427| 000003E0: 32 20 20 20 20 20 20 20 3A 8F 20 53 49 44 20 43 |2 :. SID C| 000003F0: 48 49 50 20 53 54 41 52 54 00 11 0C 40 01 81 49 |HIP START...@..I| 00000400: B2 53 53 A4 53 53 AA 32 34 3A 97 49 2C 30 3A 82 |.SS.SS.24:.I,0:.| 00000410: 49 00 33 0C 4A 01 97 20 53 53 AA 32 34 2C 31 35 |I.3.J.. SS.24,15| 00000420: 20 20 3A 8F 20 56 4F 4C 55 4D 45 20 43 4F 4E 54 | :. VOLUME CONT| 00000430: 52 4F 4C 00 56 0C 54 01 97 20 53 53 AA 36 2C 32 |ROL.V.T.. SS.6,2| 00000440: 34 30 20 20 3A 8F 20 53 55 53 54 41 49 4E 2F 52 |40 :. SUSTAIN/R| 00000450: 45 4C 45 41 53 45 00 76 0C 5E 01 97 20 53 53 AA |ELEASE.v.^.. SS.| 00000460: 35 2C 30 20 20 20 20 3A 8F 20 41 54 54 41 43 4B |5,0 :. ATTACK| 00000470: 2F 44 45 43 41 59 00 92 0C 68 01 97 20 53 53 AA |/DECAY...h.. SS.| 00000480: 33 2C 38 20 20 20 20 3A 8F 20 48 49 20 50 55 4C |3,8 :. HI PUL| 00000490: 53 45 00 AE 0C 72 01 97 20 53 53 AA 34 2C 30 20 |SE...r.. SS.4,0 | 000004A0: 20 20 20 3A 8F 20 47 41 54 45 20 4F 46 46 00 C9 | :. GATE OFF..| 000004B0: 0C 7C 01 97 20 53 53 AA 34 2C 36 35 20 20 20 3A |.|.. SS.4,65 :| 000004C0: 8F 20 47 41 54 45 20 4F 4E 00 EC 0C 86 01 81 49 |. GATE ON......I| 000004D0: B2 33 30 A4 31 36 30 3A 4B B2 28 31 32 30 AB 49 |.30.160:K.(120.I| 000004E0: 29 AD 34 AA 31 30 AC BB 28 54 49 29 00 06 0D 90 |).4.10..(TI)....| 000004F0: 01 8B 4B B1 31 38 A7 4B B2 4B AB 31 30 AA 34 30 |..K.18.K.K.10.40| 00000500: AC BB 28 54 49 29 00 1B 0D 9A 01 8B 4B B3 35 A7 |..(TI)......K.5.| 00000510: 4B B2 31 AA 38 AC BB 28 54 49 29 00 28 0D A4 01 |K.1.8..(TI).(...| 00000520: 97 20 53 53 AA 31 2C 33 00 39 0D AE 01 54 49 24 |. SS.1,3.9...TI$| 00000530: B2 22 30 30 30 30 30 30 22 00 47 0D B8 01 8B 54 |."000000".G....T| 00000540: 49 B3 31 A7 34 34 30 00 5D 0D C2 01 97 20 53 53 |I.1.440.].... SS| 00000550: AA 31 2C 30 3A 97 20 53 53 AA 30 2C 30 00 75 0D |.1,0:. SS.0,0.u.| 00000560: CC 01 A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 20 |... A$: . A$."" | 00000570: A7 20 35 34 30 00 88 0D D6 01 8B 20 41 24 B2 22 |. 540...... A$."| 00000580: 5F 22 20 A7 20 35 33 30 00 9C 0D E0 01 8B 20 41 |_" . 530...... A| 00000590: 24 B3 B1 22 86 22 20 A7 20 35 34 30 00 AA 0D EA |$.."." . 540....| 000005A0: 01 97 20 53 53 AA 32 34 2C 30 00 C3 0D F4 01 A1 |.. SS.24,0......| 000005B0: 20 41 24 3A 20 8B 20 41 24 B2 22 5F 22 20 A7 20 | A$: . A$."_" . | 000005C0: 35 33 30 00 D7 0D FE 01 8B 20 41 24 B3 B1 22 85 |530...... A$..".| 000005D0: 22 20 A7 20 35 30 30 00 ED 0D 08 02 97 20 53 53 |" . 500...... SS| 000005E0: AA 32 34 2C 31 35 3A 20 89 20 35 34 30 00 07 0E |.24,15: . 540...| 000005F0: 12 02 97 53 53 AA 32 34 2C 30 3A 99 22 93 22 3A |...SS.24,0:.".":| 00000600: 9E 20 34 39 31 35 32 00 18 0E 1C 02 82 49 3A 97 |. 49152......I:.| 00000610: 20 53 53 AA 31 35 2C 30 00 2B 0E 26 02 81 4A B2 | SS.15,0.+.&..J.| 00000620: 31 20 A4 20 37 30 30 3A 82 20 4A 00 35 0E 30 02 |1 . 700:. J.5.0.| 00000630: 89 20 33 38 30 00 00 00 |. 380... |
....... (C) 1985 GOLD DISK INC.$.....A..
.. SOUND - GEIGER COUNTER.G.(...W.2..G(1
4);G(8).N.<.. 53281,0:.53280,0...F.."..G
EIGER COUNTER"...P.." .
<F1> TO START SOUND"...Z.."
<F3> TO STOP SOUND"...D..".LISTING:
.<_> .GOLD DISK .MENU".#.N.."
..........".P.X.."100 SS=54272 :RE
M SID CHIP START.W...."110 FORI=SSTOSS+2
4:POKEI,0:NEXTI......"120 POKE SS+24,15
:REM VOLUME CONTROL.R...."130 POKE SS+6
,240 :REM SUSTAIN/RELEASE... .."140 POK
E SS+5,0 :REM ATTACK/DECAY.$...."150
POKE SS+3,8 :REM HI PULSE.K...."160 P
OKE SS+4,0 :REM GATE OFF.Q...."170 PO
KE SS+4,65 :REM GATE ON...H.."180 FORI
=30TO160:K=(120-I)/4+10*RND(TI).E.R.."19
0 IFK>18THENK=K-10+40*RND(TI)......"200
IFK<5THENK=1+8*RND(TI)......"210 POKE SS
+1,3......"220 TI$="G(34)"000000"G(34).6
...."230 IFTI<1THEN230.X...."240 POKE SS
+1,0:POKE SS+0,0.R...."250 FORJ=1TOK:NEX
TJ......"260 NEXTI:POKE SS+15,0...".."27
0 GOTO 170".T.,.. "..SOURCE CODE FILENAM
E: .GEIGER COUNTER";...6.SS.54272
:. SID CHIP START...@..I.SS.SS.24:.I,0:.
I.3.J.. SS.24,15 :. VOLUME CONTROL.V.T.
. SS.6,240 :. SUSTAIN/RELEASE.V.^.. SS.
5,0 :. ATTACK/DECAY...H.. SS.3,8 :
. HI PULSE...R.. SS.4,0 :. GATE OFF.I
.|.. SS.4,65 :. GATE ON......I.30.160:
K.(120.I).4.10..(TI)......K.18.K.K.10.40
..(TI)......K.5.K.1.8..(TI).(.... SS.1,3
.9...TI$."000000".G....TI.1.440.].B.. SS
.1,0:. SS.0,0.U.L.. A$: . A$."" . 540...
V.. A$."_" . 530...... A$.."." . 540....
.. SS.24,0.C.... A$: . A$."_" . 530.W...
. A$.."." . 500...... SS.24,15: . 540...
...SS.24,0:.".":. 49152......I:. SS.15,0
.+.&..J.1 . 700:. J.5.0.. 380...
> CLICK IMAGE PREVIEW FOR FULL MODAL