10 REM *** BOMBE ***
30 PRINT""
40 PRINT""
50 GET A$ : IF A$="" THEN 50
60 IF A$="" THEN 90
70 GOSUB 1000 : REM SOUND UNTERPROGRAMM
80 GOTO 30
90 FOR X=1TO 24: POKE 54272+X,0: NEXT
100 END
110 :
1000 REM ** SOUND UNTERPROGRAMM ***
1010 :
1020 S=54272
1030 POKE S+24,7
1040 POKE S+5,12*16+0
1050 POKE S+6,15*16+10
1060 FOR X= 255 TO 100STEP −1
1070 POKE S+1,X
1080 POKE S+4,17
1090 FOR D=1 TO 10 : NEXT D
1100 NEXT X
1110 POKE S+24,15
1120 POKE S+1,15
1130 POKE S+4,128
1140 RETURN
READY.
