> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 8F 20 28 43 29 20 31 39 38 34 |....... (C) 1984|
00000010: 20 47 4F 4C 44 20 44 49 53 4B 20 49 4E 43 00 2E | GOLD DISK INC..|
00000020: 08 14 00 99 C7 28 31 34 29 3B C7 28 38 29 00 45 |.....(14);.(8).E|
00000030: 08 1E 00 97 20 35 33 32 38 31 2C 30 3A 97 35 33 |.... 53281,0:.53|
00000040: 32 38 30 2C 30 00 76 08 28 00 99 22 05 93 11 C2 |280,0.v.(.."....|
00000050: 49 52 44 20 C3 41 4C 4C 53 20 20 20 20 20 20 20 |IRD .ALLS |
00000060: 20 20 20 20 20 20 20 20 D3 4F 55 52 43 45 43 4F | .OURCECO|
00000070: 44 45 20 49 4E 22 00 A3 08 32 00 99 22 9C B7 B7 |DE IN"...2.."...|
00000080: B7 B7 B7 B7 B7 B7 B7 B7 05 20 20 20 20 20 20 20 |......... |
00000090: 20 20 20 20 20 20 20 20 46 49 4C 45 3A C2 C9 D2 | FILE:...|
000000A0: C4 D3 22 00 CF 08 3C 00 99 22 20 20 20 20 20 20 |.."...<.." |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 9E A3 A3 A3 A3 A3 22 00 | ......".|
000000D0: F7 08 46 00 99 22 20 20 20 20 20 20 20 20 20 20 |..F.." |
000000E0: 20 9F 3C C6 31 3E 05 20 54 4F 20 53 54 41 52 54 | .<.1>. TO START|
000000F0: 20 53 4F 55 4E 44 22 00 1E 09 50 00 99 22 20 20 | SOUND"...P.." |
00000100: 20 20 20 20 20 20 20 20 20 9F 3C C6 33 3E 05 20 | .<.3>. |
00000110: 54 4F 20 53 54 4F 50 20 53 4F 55 4E 44 22 00 50 |TO STOP SOUND".P|
00000120: 09 5A 00 99 22 CC 49 53 54 49 4E 47 3A 20 20 20 |.Z..".ISTING: |
00000130: 9F 3C 5F 3E 05 20 20 42 41 43 4B 20 54 4F 20 81 |.<_>. BACK TO .|
00000140: C7 CF CC C4 20 C4 C9 D3 CB 05 A0 4D 45 4E 55 22 |.... ......MENU"|
00000150: 00 62 09 64 00 99 22 9C B7 B7 B7 B7 B7 B7 B7 B7 |.b.d..".........|
00000160: 05 22 00 90 09 6E 00 99 22 31 30 30 20 53 53 3D |."...n.."100 SS=|
00000170: 35 34 32 37 32 20 20 20 20 20 20 20 3A 52 45 4D |54272 :REM|
00000180: 20 49 4E 49 54 49 41 4C 49 5A 41 54 49 4F 4E 22 | INITIALIZATION"|
00000190: 00 BF 09 78 00 99 22 31 31 30 20 44 49 4D 20 41 |...x.."110 DIM A|
000001A0: 28 31 38 29 3A 46 4F 52 49 3D 31 54 4F 31 38 3A |(18):FORI=1TO18:|
000001B0: 52 45 41 44 20 41 28 49 29 3A 4E 45 58 54 22 00 |READ A(I):NEXT".|
000001C0: 0A 0A 82 00 99 22 31 32 30 20 44 41 54 41 20 38 |....."120 DATA 8|
000001D0: 36 2C 39 32 2C 31 30 33 2C 31 30 37 2C 31 30 33 |6,92,103,107,103|
000001E0: 2C 31 30 31 2C 31 30 30 2C 39 38 2C 39 36 2C 39 |,101,100,98,96,9|
000001F0: 34 2C 39 32 2C 39 30 2C 38 38 2C 38 36 2C 38 34 |4,92,90,88,86,84|
00000200: 2C 38 32 2C 38 30 2C 37 37 22 00 34 0A 8C 00 99 |,82,80,77".4....|
00000210: 22 31 33 30 20 46 4F 52 20 49 3D 30 54 4F 32 35 |"130 FOR I=0TO25|
00000220: 3A 20 50 4F 4B 45 20 53 53 2B 49 2C 30 3A 20 4E |: POKE SS+I,0: N|
00000230: 45 58 54 22 00 61 0A 96 00 99 22 31 34 30 20 50 |EXT".a...."140 P|
00000240: 4F 4B 45 20 53 53 2B 32 34 2C 31 35 20 20 3A 52 |OKE SS+24,15 :R|
00000250: 45 4D 20 56 4F 4C 55 4D 45 20 43 4F 4E 54 52 4F |EM VOLUME CONTRO|
00000260: 4C 00 8D 0A A0 00 99 22 31 35 30 20 50 4F 4B 45 |L......"150 POKE|
00000270: 20 53 53 2B 36 2C 32 34 36 20 20 3A 52 45 4D 20 | SS+6,246 :REM |
00000280: 56 43 20 23 31 20 53 55 53 2F 52 45 4C 00 B9 0A |VC #1 SUS/REL...|
00000290: AA 00 99 22 31 36 30 20 50 4F 4B 45 20 53 53 2B |..."160 POKE SS+|
000002A0: 35 2C 35 30 20 20 20 3A 52 45 4D 20 56 43 20 23 |5,50 :REM VC #|
000002B0: 31 20 41 54 54 2F 44 45 43 00 E1 0A B4 00 99 22 |1 ATT/DEC......"|
000002C0: 31 37 30 20 50 4F 4B 45 20 53 53 2B 34 2C 30 20 |170 POKE SS+4,0 |
000002D0: 20 20 20 3A 52 45 4D 20 56 43 20 23 31 20 4F 46 | :REM VC #1 OF|
000002E0: 46 00 09 0B BE 00 99 22 31 38 30 20 50 4F 4B 45 |F......"180 POKE|
000002F0: 20 53 53 2B 31 38 2C 30 20 20 20 3A 52 45 4D 20 | SS+18,0 :REM |
00000300: 56 43 20 23 33 20 4F 46 46 00 25 0B C8 00 99 22 |VC #3 OFF.%...."|
00000310: 31 39 30 20 49 46 20 54 49 3C 31 36 20 54 48 45 |190 IF TI<16 THE|
00000320: 4E 20 31 39 30 00 51 0B D2 00 99 22 32 30 30 20 |N 190.Q...."200 |
00000330: 50 4F 4B 45 20 53 53 2B 31 35 2C 31 39 20 20 3A |POKE SS+15,19 :|
00000340: 52 45 4D 20 56 43 20 23 33 20 48 49 20 46 52 45 |REM VC #3 HI FRE|
00000350: 51 00 7E 0B DC 00 99 22 32 31 30 20 50 4F 4B 45 |Q.~...."210 POKE|
00000360: 20 53 53 2B 34 2C 32 31 20 20 20 3A 52 45 4D 20 | SS+4,21 :REM |
00000370: 56 43 20 23 31 20 54 52 49 2D 52 49 4E 47 00 A8 |VC #1 TRI-RING..|
00000380: 0B E6 00 99 22 32 32 30 20 46 4F 52 20 49 3D 31 |...."220 FOR I=1|
00000390: 20 54 4F 20 31 38 3A 20 50 4F 4B 45 20 53 53 2B | TO 18: POKE SS+|
000003A0: 31 2C 20 41 28 49 29 22 00 CD 0B F0 00 99 22 32 |1, A(I)"......"2|
000003B0: 33 30 20 54 49 24 3D 22 3B C7 28 33 34 29 3B 22 |30 TI$=";.(34);"|
000003C0: 30 30 30 30 30 30 22 3B C7 28 33 34 29 00 E8 0B |000000";.(34)...|
000003D0: FA 00 99 22 32 34 30 20 49 46 20 54 49 3C 31 20 |..."240 IF TI<1 |
000003E0: 54 48 45 4E 20 32 34 30 00 05 0C 04 01 99 22 32 |THEN 240......"2|
000003F0: 35 30 20 4E 45 58 54 20 49 3A 20 47 4F 54 4F 20 |50 NEXT I: GOTO |
00000400: 31 37 30 22 3B 00 11 0C 0E 01 86 20 41 28 31 38 |170";...... A(18|
00000410: 29 00 36 0C 18 01 53 53 B2 35 34 32 37 32 20 20 |).6...SS.54272 |
00000420: 20 20 20 20 20 3A 8F 20 53 49 44 20 43 48 49 50 | :. SID CHIP|
00000430: 20 53 54 41 52 54 00 4C 0C 22 01 81 49 B2 30 A4 | START.L."..I.0.|
00000440: 32 35 3A 97 53 53 AA 49 2C 30 3A 82 00 8D 0C 2C |25:.SS.I,0:....,|
00000450: 01 83 20 38 36 2C 39 32 2C 31 30 33 2C 31 30 37 |.. 86,92,103,107|
00000460: 2C 31 30 33 2C 31 30 31 2C 31 30 30 2C 39 38 2C |,103,101,100,98,|
00000470: 39 36 2C 39 34 2C 39 32 2C 39 30 2C 38 38 2C 38 |96,94,92,90,88,8|
00000480: 36 2C 38 34 2C 38 32 2C 38 30 2C 37 37 00 A5 0C |6,84,82,80,77...|
00000490: 36 01 81 20 49 B2 31 A4 31 38 3A 87 20 41 28 49 |6.. I.1.18:. A(I|
000004A0: 29 3A 82 20 49 00 C7 0C 40 01 97 20 53 53 AA 32 |):. I...@.. SS.2|
000004B0: 34 2C 31 35 20 20 3A 8F 20 56 4F 4C 55 4D 45 20 |4,15 :. VOLUME |
000004C0: 43 4F 4E 54 52 4F 4C 00 E8 0C 4A 01 97 20 53 53 |CONTROL...J.. SS|
000004D0: AA 36 2C 32 34 36 20 20 3A 8F 20 56 43 20 23 31 |.6,246 :. VC #1|
000004E0: 20 53 55 53 2F 52 45 4C 00 09 0D 54 01 97 20 53 | SUS/REL...T.. S|
000004F0: 53 AA 35 2C 35 30 20 20 20 3A 8F 20 56 43 20 23 |S.5,50 :. VC #|
00000500: 31 20 41 54 54 2F 44 45 43 00 26 0D 5E 01 97 20 |1 ATT/DEC.&.^.. |
00000510: 53 53 AA 34 2C 30 20 20 20 20 3A 8F 20 56 43 20 |SS.4,0 :. VC |
00000520: 23 31 20 4F 46 46 00 43 0D 68 01 97 20 53 53 AA |#1 OFF.C.h.. SS.|
00000530: 31 38 2C 30 20 20 20 3A 8F 20 56 43 20 23 33 20 |18,0 :. VC #3 |
00000540: 4F 46 46 00 55 0D 72 01 8B 20 54 49 B3 31 36 20 |OFF.U.r.. TI.16 |
00000550: A7 20 33 37 30 00 76 0D 7C 01 97 20 53 53 AA 31 |. 370.v.|.. SS.1|
00000560: 35 2C 31 39 20 20 3A 8F 20 56 43 20 23 33 20 48 |5,19 :. VC #3 H|
00000570: 49 20 46 52 45 51 00 98 0D 86 01 97 20 53 53 AA |I FREQ...... SS.|
00000580: 34 2C 32 31 20 20 20 3A 8F 20 56 43 20 23 31 20 |4,21 :. VC #1 |
00000590: 54 52 49 2D 52 49 4E 47 00 A7 0D 90 01 81 20 49 |TRI-RING...... I|
000005A0: B2 31 20 A4 20 31 38 00 C4 0D 9A 01 97 20 53 53 |.1 . 18...... SS|
000005B0: AA 31 2C 41 28 49 29 3A 54 49 24 B2 22 30 30 30 |.1,A(I):TI$."000|
000005C0: 30 30 30 22 00 D5 0D A4 01 8B 20 54 49 B3 31 20 |000"...... TI.1 |
000005D0: A7 20 34 32 30 00 DD 0D AE 01 82 20 49 00 F6 0D |. 420...... I...|
000005E0: B8 01 A1 20 41 24 3A 20 8B 20 41 24 B2 22 5F 22 |... A$: . A$."_"|
000005F0: 20 A7 20 34 39 30 00 0C 0E C2 01 8B 20 41 24 20 | . 490...... A$ |
00000600: B3 B1 20 22 86 22 20 A7 20 33 35 30 00 2F 0E CC |.. "." . 350./..|
00000610: 01 97 20 53 53 AA 34 2C 30 3A 20 97 20 53 53 AA |.. SS.4,0: . SS.|
00000620: 31 31 2C 30 3A 20 97 20 53 53 AA 31 38 2C 30 00 |11,0: . SS.18,0.|
00000630: 48 0E D6 01 A1 20 41 24 3A 20 8B 20 41 24 B2 22 |H.... A$: . A$."|
00000640: 85 22 20 A7 20 33 35 30 00 5E 0E E0 01 8B 20 41 |." . 350.^.... A|
00000650: 24 20 B3 B1 20 22 5F 22 20 A7 20 34 37 30 00 88 |$ .. "_" . 470..|
00000660: 0E EA 01 97 20 53 53 AA 34 2C 30 3A 20 97 20 53 |.... SS.4,0: . S|
00000670: 53 AA 31 31 2C 30 3A 20 99 20 22 93 22 3A 20 9E |S.11,0: . ".": .|
00000680: 20 31 32 AC 34 30 39 36 00 00 00 | 12.4096... |
....... (C) 1984 GOLD DISK INC......G(14
);G(8).E.... 53281,0:.53280,0.V.(.."...B
IRD CALLS SOURCECODE IN"..
.2.."............ FILE:BIR
DS".O.<.."
......"...F.." .<F1>. TO START
SOUND"...P.." .<F3>. TO STOP
SOUND".P.Z.."LISTING: .<_>. BACK TO .
GOLD DISK. MENU".B.D..".........."...N..
"100 SS=54272 :REM INITIALIZATION"
...X.."110 DIM A(18):FORI=1TO18:READ A(I
):NEXT"......"120 DATA 86,92,103,107,103
,101,100,98,96,94,92,90,88,86,84,82,80,7
7".4...."130 FOR I=0TO25: POKE SS+I,0: N
EXT".A...."140 POKE SS+24,15 :REM VOLUM
E CONTROL... .."150 POKE SS+6,246 :REM
VC #1 SUS/REL......"160 POKE SS+5,50 :
REM VC #1 ATT/DEC......"170 POKE SS+4,0
:REM VC #1 OFF......"180 POKE SS+18,0
:REM VC #3 OFF.%.H.."190 IF TI<16 THE
N 190.Q.R.."200 POKE SS+15,19 :REM VC #
3 HI FREQ.~...."210 POKE SS+4,21 :REM
VC #1 TRI-RING......"220 FOR I=1 TO 18:
POKE SS+1, A(I)".M...."230 TI$=";G(34);"
000000";G(34)......"240 IF TI<1 THEN 240
......"250 NEXT I: GOTO 170";...... A(18
).6...SS.54272 :. SID CHIP START.L
."..I.0.25:.SS.I,0:....,.. 86,92,103,107
,103,101,100,98,96,94,92,90,88,86,84,82,
80,77...6.. I.1.18:. A(I):. I.G.@.. SS.2
4,15 :. VOLUME CONTROL...J.. SS.6,246
:. VC #1 SUS/REL...T.. SS.5,50 :. VC #
1 ATT/DEC.&.^.. SS.4,0 :. VC #1 OFF.C
.H.. SS.18,0 :. VC #3 OFF.U.R.. TI.16
. 370.V.|.. SS.15,19 :. VC #3 HI FREQ..
.... SS.4,21 :. VC #1 TRI-RING...... I
.1 . 18.D.... SS.1,A(I):TI$."000000".U..
.. TI.1 . 420...... I...... A$: . A$."_"
. 490...B.. A$ .. "." . 350./.L.. SS.4,
0: . SS.11,0: . SS.18,0.H.V.. A$: . A$."
." . 350.^.... A$ .. "_" . 470...... SS.
4,0: . SS.11,0: . ".": . 12.4096...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL