0 REM SOUND BOARD DEMO BY M.STANTON
10 DIM D(8,14)
20 FOR J=1 TO 8 : FOR I=0 TO 14
30 READ D(J,I)
40 NEXT I : NEXT J
50 FOR I=1 TO 16 : PRINT : NEXT I
60 PRINT "SOUND MENU"
70 PRINT : PRINT "1 SHOOT" : PRINT "2 SHOOT" : PRINT "3 TRAIN"
80 PRINT "4 PING" : PRINT "5 EXPLODE" : PRINT "6 TICK"
90 PRINT "7 TOCK" : PRINT "8 BOING"
100 PRINT : PRINT "CHOOSE"
110 GET A$ : POKE 3,0 : A=VAL(A$)
120 IF A <1 OR A > 8 THEN 110
130 FOR I=0 TO 14
140 POKE 48128,I : POKE 48129,D(A,I)
150 NEXT I : FOR I=1 TO 500 : NEXT I : GOTO 100
160 DATA 0,0,0,0,0,0,0,55,16,0,0,0,5,9,0 :          REM SHOOT
170 DATA 0,0,0,0,0,0,15,7,16,16,16,0,8,0,0 :        REM SHOOT
180 DATA 0,0,0,0,0,0,30,55,16,0,0,200,0,14,0 :      REM TRAIN
190 DATA 24,0,0,0,0,0,0,62,16,0,0,0,15,0,0 :        REM PING
200 DATA 0,0,0,0,0,0,31,7,16,16,16,0,24,0,0 :       REM EXPLODE
210 DATA 31,0,0,0,0,0,0,62,16,0,0,31,0,0,0 :        REM TICK
220 DATA 47,0,0,0,0,0,0,62,16,0,0,31,0,0,0 :        REM TOCK
230 DATA 0,1,130,0,54,0,0,56,16,16,16,0,50,8,0 :    REM BOING