C64 Software  <  SCA: The C64 Software Collection / M8 SOUND

  Run
10 REM   >>> SOUND <<<
20 :
30 PRINT""
40 PRINT""
50 GET A$ : IF A$="" THEN 50
60 IF A$="" THEN 90
70 GOSUB 1000 : REM SOUND SUBROUTINE
75 FOR A=1 TO 10
80 GOTO 30
90 FOR X=1TO24 : POKE 54272+X,0: NEXT
100 END
110 :
1000 REM ** SOUND SUBROUTINE **
1010 :
1020 S=54272
1030 POKE S+24,15
1040 POKE S+6,240
1050 POKE S+4,17
1060 FOR A=1 TO 10
1070 FOR X= 1 TO 255  STEP 25
1080 POKE S+1,X
1090 NEXT X
1100 NEXT A
1110 POKE S+4,32
1120 RETURN
READY.