C64 Software  <  SCA: The C64 Software Collection / M7 SCHUSS

  Run
10 REM    >> SCHUSS <<
20 :
30 PRINT""
40 PRINT""
50 GET A$ : IF A$="" THEN 50
60 IF A$="" THEN 90
70 GOSUB 1000  : REM SOUND SUBROUTINE
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+5,9
1050 POKE S+1,20
1060 POKE S+4,128
1070 FOR D=1 TO 10: NEXT D
1080 POKE S+4,129
1090 RETURN
READY.