> 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 38 08 1E 00 8F 20 53 4F 55 4E 44 |.....8.... SOUND|
00000030: 20 2D 20 54 52 41 49 4E 00 3E 08 28 00 8F 00 4E | - TRAIN.>.(...N|
00000040: 08 32 00 99 C7 28 31 34 29 3B C7 28 38 29 00 65 |.2...(14);.(8).e|
00000050: 08 3C 00 97 20 35 33 32 38 31 2C 30 3A 97 35 33 |.<.. 53281,0:.53|
00000060: 32 38 30 2C 30 00 74 08 46 00 99 22 93 05 D4 52 |280,0.t.F.."...R|
00000070: 41 49 4E 22 00 9E 08 50 00 99 22 9C B7 B7 B7 B7 |AIN"...P..".....|
00000080: B7 20 20 20 20 20 20 20 20 9F 3C C6 31 3E 20 54 |. .<.1> T|
00000090: 4F 20 53 54 41 52 54 20 53 4F 55 4E 44 22 00 C5 |O START SOUND"..|
000000A0: 08 5A 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |.Z.." |
000000B0: 20 20 3C C6 33 3E 20 54 4F 20 53 54 4F 50 20 53 | <.3> TO STOP S|
000000C0: 4F 55 4E 44 22 00 EF 08 64 00 99 22 20 20 20 20 |OUND"...d.." |
000000D0: 20 20 20 20 20 20 20 20 20 3C 5F 3E 20 20 81 C7 | <_> ..|
000000E0: CF CC C4 20 C4 C9 D3 CB A0 9F 4D 45 4E 55 22 00 |... ......MENU".|
000000F0: 00 09 6E 00 99 22 05 CC 49 53 54 49 4E 47 3A 22 |..n.."..ISTING:"|
00000100: 00 12 09 78 00 99 22 9C B7 B7 B7 B7 B7 B7 B7 B7 |...x..".........|
00000110: 05 22 00 3F 09 82 00 99 22 31 30 30 20 53 53 3D |.".?...."100 SS=|
00000120: 35 34 32 37 32 20 20 20 20 20 20 20 3A 52 45 4D |54272 :REM|
00000130: 20 53 49 44 20 43 48 49 50 20 53 54 41 52 54 00 | SID CHIP START.|
00000140: 66 09 8C 00 99 22 31 31 30 20 46 4F 52 49 3D 53 |f...."110 FORI=S|
00000150: 53 54 4F 53 53 2B 32 34 3A 50 4F 4B 45 49 2C 30 |STOSS+24:POKEI,0|
00000160: 3A 4E 45 58 54 49 00 93 09 96 00 99 22 31 32 30 |:NEXTI......"120|
00000170: 20 50 4F 4B 45 20 53 53 2B 32 34 2C 31 35 20 20 | POKE SS+24,15 |
00000180: 3A 52 45 4D 20 56 4F 4C 55 4D 45 20 43 4F 4E 54 |:REM VOLUME CONT|
00000190: 52 4F 4C 00 C1 09 A0 00 99 22 31 33 30 20 50 4F |ROL......"130 PO|
000001A0: 4B 45 20 53 53 2B 36 2C 30 20 20 20 20 3A 52 45 |KE SS+6,0 :RE|
000001B0: 4D 20 53 55 53 54 41 49 4E 2F 52 45 4C 45 41 53 |M SUSTAIN/RELEAS|
000001C0: 45 00 E7 09 AA 00 99 22 31 34 30 20 50 4F 4B 45 |E......"140 POKE|
000001D0: 20 53 53 2B 31 2C 31 32 20 20 20 3A 52 45 4D 20 | SS+1,12 :REM |
000001E0: 48 49 20 46 52 45 51 00 12 0A B4 00 99 22 31 35 |HI FREQ......"15|
000001F0: 30 20 50 4F 4B 45 20 53 53 2B 35 2C 39 20 20 20 |0 POKE SS+5,9 |
00000200: 20 3A 52 45 4D 20 41 54 54 41 43 4B 2F 44 45 43 | :REM ATTACK/DEC|
00000210: 41 59 00 39 0A BE 00 99 22 31 36 30 20 50 4F 4B |AY.9...."160 POK|
00000220: 45 20 53 53 2B 34 2C 30 20 20 20 20 3A 52 45 4D |E SS+4,0 :REM|
00000230: 20 47 41 54 45 20 4F 46 46 00 5F 0A C8 00 99 22 | GATE OFF._...."|
00000240: 31 37 30 20 50 4F 4B 45 20 53 53 2B 30 2C 30 20 |170 POKE SS+0,0 |
00000250: 20 20 20 3A 52 45 4D 20 4C 4F 20 46 52 45 51 00 | :REM LO FREQ.|
00000260: 8D 0A D2 00 99 22 31 38 30 20 46 4F 52 20 49 3D |....."180 FOR I=|
00000270: 31 35 54 4F 2D 35 53 54 45 50 2D 31 3A 4B 3D 49 |15TO-5STEP-1:K=I|
00000280: 3A 49 46 49 3C 32 54 48 45 4E 4B 3D 32 00 A6 0A |:IFI<2THENK=2...|
00000290: DC 00 99 22 31 39 30 20 49 46 49 3D 31 34 54 48 |..."190 IFI=14TH|
000002A0: 45 4E 49 3D 31 33 00 BF 0A E6 00 99 22 32 30 30 |ENI=13......"200|
000002B0: 20 49 46 49 3D 31 32 54 48 45 4E 49 3D 31 31 00 | IFI=12THENI=11.|
000002C0: E8 0A F0 00 99 22 32 31 30 20 46 4F 52 20 4A 3D |....."210 FOR J=|
000002D0: 30 20 54 4F 20 33 3A 50 4F 4B 45 20 53 53 2B 32 |0 TO 3:POKE SS+2|
000002E0: 34 2C 31 35 2D 33 2A 4A 00 18 0B FA 00 99 22 32 |4,15-3*J......"2|
000002F0: 32 30 20 50 4F 4B 45 20 53 53 2B 34 2C 31 32 39 |20 POKE SS+4,129|
00000300: 3A 54 49 24 3D 22 C7 28 33 34 29 22 30 30 30 30 |:TI$=".(34)"0000|
00000310: 30 30 22 C7 28 33 34 29 00 33 0B 04 01 99 22 32 |00".(34).3...."2|
00000320: 33 30 20 49 46 20 54 49 3C 32 2A 4B 54 48 45 4E |30 IF TI<2*KTHEN|
00000330: 32 33 30 00 55 0B 0E 01 99 22 32 34 30 20 50 4F |230.U...."240 PO|
00000340: 4B 45 20 53 53 2B 34 2C 30 3A 4E 45 58 54 4A 3A |KE SS+4,0:NEXTJ:|
00000350: 4E 45 58 54 49 00 74 0B 18 01 99 22 32 35 30 20 |NEXTI.t...."250 |
00000360: 46 4F 52 20 4B 3D 31 20 54 4F 20 31 30 30 30 3A |FOR K=1 TO 1000:|
00000370: 4E 45 58 54 00 86 0B 22 01 99 22 32 36 30 20 47 |NEXT...".."260 G|
00000380: 4F 54 4F 31 38 30 00 B3 0B 2C 01 99 20 22 11 9F |OTO180...,.. "..|
00000390: D3 4F 55 52 43 45 20 43 4F 44 45 20 46 4F 55 4E |.OURCE CODE FOUN|
000003A0: 44 20 49 4E 20 46 49 4C 45 3A 20 05 D4 D2 C1 C9 |D IN FILE: .....|
000003B0: CE 22 3B 00 D8 0B 36 01 53 53 B2 35 34 32 37 32 |.";...6.SS.54272|
000003C0: 20 20 20 20 20 20 20 3A 8F 20 53 49 44 20 43 48 | :. SID CH|
000003D0: 49 50 20 53 54 41 52 54 00 F0 0B 40 01 81 49 B2 |IP START...@..I.|
000003E0: 53 53 A4 53 53 AA 32 34 3A 97 49 2C 30 3A 82 49 |SS.SS.24:.I,0:.I|
000003F0: 00 12 0C 4A 01 97 20 53 53 AA 32 34 2C 31 35 20 |...J.. SS.24,15 |
00000400: 20 3A 8F 20 56 4F 4C 55 4D 45 20 43 4F 4E 54 52 | :. VOLUME CONTR|
00000410: 4F 4C 00 35 0C 54 01 97 20 53 53 AA 36 2C 30 20 |OL.5.T.. SS.6,0 |
00000420: 20 20 20 3A 8F 20 53 55 53 54 41 49 4E 2F 52 45 | :. SUSTAIN/RE|
00000430: 4C 45 41 53 45 00 50 0C 5E 01 97 20 53 53 AA 31 |LEASE.P.^.. SS.1|
00000440: 2C 31 32 20 20 20 3A 8F 20 48 49 20 46 52 45 51 |,12 :. HI FREQ|
00000450: 00 70 0C 68 01 97 20 53 53 AA 35 2C 39 20 20 20 |.p.h.. SS.5,9 |
00000460: 20 3A 8F 20 41 54 54 41 43 4B 2F 44 45 43 41 59 | :. ATTACK/DECAY|
00000470: 00 8C 0C 72 01 97 20 53 53 AA 34 2C 30 20 20 20 |...r.. SS.4,0 |
00000480: 20 3A 8F 20 47 41 54 45 20 4F 46 46 00 A7 0C 7C | :. GATE OFF...||
00000490: 01 97 20 53 53 AA 30 2C 30 20 20 20 20 3A 8F 20 |.. SS.0,0 :. |
000004A0: 4C 4F 20 46 52 45 51 00 C5 0C 86 01 81 20 49 B2 |LO FREQ...... I.|
000004B0: 31 35 A4 AB 35 A9 AB 31 3A 4B B2 49 3A 8B 49 B3 |15..5..1:K.I:.I.|
000004C0: 32 A7 4B B2 32 00 D4 0C 90 01 8B 49 B2 31 34 A7 |2.K.2......I.14.|
000004D0: 49 B2 31 33 00 E3 0C 9A 01 8B 49 B2 31 32 A7 49 |I.13......I.12.I|
000004E0: B2 31 31 00 00 0D A4 01 81 20 4A B2 30 20 A4 20 |.11...... J.0 . |
000004F0: 33 3A 97 20 53 53 AA 32 34 2C 31 35 AB 33 AC 4A |3:. SS.24,15.3.J|
00000500: 00 1C 0D AE 01 97 20 53 53 AA 34 2C 31 32 39 3A |...... SS.4,129:|
00000510: 54 49 24 B2 22 30 30 30 30 30 30 22 00 2D 0D B8 |TI$."000000".-..|
00000520: 01 8B 20 54 49 B3 32 AC 4B A7 34 34 30 00 46 0D |.. TI.2.K.440.F.|
00000530: C2 01 97 20 53 53 AA 34 2C 30 3A 8D 20 34 38 30 |... SS.4,0:. 480|
00000540: 3A 82 4A 3A 82 49 00 59 0D CC 01 81 20 4B B2 31 |:.J:.I.Y.... K.1|
00000550: 20 A4 20 31 30 30 30 3A 82 00 62 0D D6 01 89 33 | . 1000:..b....3|
00000560: 39 30 00 78 0D E0 01 A1 20 41 24 3A 20 8B 20 41 |90.x.... A$: . A|
00000570: 24 B2 22 22 20 A7 20 8E 00 8B 0D EA 01 8B 20 41 |$."" . ....... A|
00000580: 24 B2 22 5F 22 20 A7 20 35 34 30 00 9D 0D F4 01 |$."_" . 540.....|
00000590: 8B 20 41 24 B3 B1 22 86 22 20 A7 20 8E 00 B6 0D |. A$.."." . ....|
000005A0: FE 01 A1 20 41 24 3A 20 8B 20 41 24 B2 22 5F 22 |... A$: . A$."_"|
000005B0: 20 A7 20 35 34 30 00 CA 0D 08 02 8B 20 41 24 B3 | . 540...... A$.|
000005C0: B1 22 85 22 20 A7 20 35 31 30 00 D0 0D 12 02 8E |."." . 510......|
000005D0: 00 EA 0D 1C 02 97 53 53 AA 32 34 2C 30 3A 99 22 |......SS.24,0:."|
000005E0: 93 22 3A 9E 20 34 39 31 35 32 00 00 00 |.":. 49152... |
....... (C) 1985 GOLD DISK INC.$.....8..
.. SOUND - TRAIN.>.(...N.2..G(14);G(8).E
.<.. 53281,0:.53280,0.T.F.."..TRAIN"...P
.."...... .<F1> TO START SOUND".E
.Z.." <F3> TO STOP SOUND"...
D.." <_> .GOLD DISK .MENU".
..N..".LISTING:"...X.."..........".?....
"100 SS=54272 :REM SID CHIP START.
F...."110 FORI=SSTOSS+24:POKEI,0:NEXTI..
...."120 POKE SS+24,15 :REM VOLUME CONT
ROL.A. .."130 POKE SS+6,0 :REM SUSTAI
N/RELEASE......"140 POKE SS+1,12 :REM
HI FREQ......"150 POKE SS+5,9 :REM AT
TACK/DECAY.9...."160 POKE SS+4,0 :REM
GATE OFF._.H.."170 POKE SS+0,0 :REM
LO FREQ...R.."180 FOR I=15TO-5STEP-1:K=I
:IFI<2THENK=2......"190 IFI=14THENI=13..
...."200 IFI=12THENI=11......"210 FOR J=
0 TO 3:POKE SS+24,15-3*J......"220 POKE
SS+4,129:TI$="G(34)"000000"G(34).3...."2
30 IF TI<2*KTHEN230.U...."240 POKE SS+4,
0:NEXTJ:NEXTI.T...."250 FOR K=1 TO 1000:
NEXT...".."260 GOTO180...,.. "..SOURCE C
ODE FOUND IN FILE: .TRAIN";.X.6.SS.54272
:. SID CHIP START...@..I.SS.SS.24
:.I,0:.I...J.. SS.24,15 :. VOLUME CONTR
OL.5.T.. SS.6,0 :. SUSTAIN/RELEASE.P.
^.. SS.1,12 :. HI FREQ.P.H.. SS.5,9
:. ATTACK/DECAY...R.. SS.4,0 :. GATE
OFF...|.. SS.0,0 :. LO FREQ.E.... I.
15..5..1:K.I:.I.2.K.2.T....I.14.I.13....
..I.12.I.11...... J.0 . 3:. SS.24,15.3.J
...... SS.4,129:TI$."000000".-.... TI.2.
K.440.F.B.. SS.4,0:. 480:.J:.I.Y.L.. K.1
. 1000:..B.V..390.X.... A$: . A$."" . .
...... A$."_" . 540...... A$.."." . ....
... A$: . A$."_" . 540.J.... A$.."." . 5
10.P..........SS.24,0:.".":. 49152...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL