Sound Effects This program demonstrates how easily the S/SC produces 7 popular game sound effects. Select the number of a sound effect from the menu screen~the Color Computer and the S/SC do the rest. Modify the program's data lines to produce your own sound effects. 10 GOTO 40 20 IF (PEEK(Y) AND 128)=0 THEN 20 30 RETURN 40 CLS:W=&HFF7D: X=&HFF00 50 Y=&HFF7E: POKE X+1,52 60 POKE X+3,63:POKEX+35,60 70 POKE W,1: POKE W,0 80 DIM A(8,13):FOR A=1 TO 7 90 FOR B = 0 TO 13:READ A(A,B):NEXT B,A 100 CLS:PRINT TAB(9) "SOUND EFFECTS" 110 PRINT:PRINT TAB(7)"<1> WHISTLE" 120 PRINT TAB(7)"<2> RACECAR" 130 PRINT TAB(7)"<3> LASER" 140 PRINT TAB(7)"<4> WHISTLING BOMB" 150 PRINT TAB(7)"<5> BOMB WITH EXPLOSIONS" 160 PRINT TAB(7)"<6> EXPLOSION" 170 PRINT TAB(7)"<7> GUNSHOT" 180 PRINT:PRINT TAB(7); 190 INPUT "YOUR SELECTION";S 200 IF S <1 OR S>7 THEN 100 210 POKE Y,175:GOSUB20 220 FORA=0 TO 13:POKEY,A:GOSUB 20 230 POKE Y,A(S,A):GOSUB 20:NEXT A 240 ON S GOSUB 270,360,480,530,530,570,570 250 IF S=5 THEN S=6:GOTO 220 260 POKE W,1:POKE W,0:GOTO 100 270 REM WHISTLE 280 FOR A=64 TO 32 STEP -2:POKE Y,0 290 GOSUB 20:POKE Y,A:GOSUB 20 300 NEXT A:FOR A=1 TO 200:NEXT A 310 FOR A=64 TO 48 STEP -2:POKE Y,0 320 GOSUB 20:POKE Y,A:GOSUB 20 330 NEXT A:FOR A=48 TO 96 STEP 2 340 POKE Y,0:GOSUB 20 350 POKE Y,A: GOSUB 20: NEXT A: RETURN 360 REM RACE CAR 370 FOR A = 11 TO 4 STEP -1:POKE Y,1:GOSUB 20 380 POKE Y,A: GOSUB 20:GOSUB 450 390 NEXT A:FOR A = 9 TO 3 STEP -1 400 POKE Y,1:GOSUB 20:POKE Y,A 410 GOSUB 20:GOSUB 450:NEXT A 420 FOR A=6TO1STEP-1:POKE Y,1 430 GOSUB 20:POKE Y,A:GOSUB20 440 GOSUB450:NEXT A:RETURN 450 FOR B=255 TO 0 STEP -8:POKE Y,0 460 GOSUB 20:POKE Y,B:GOSUB 20 470 NEXT B:RETURN 480 REM LASER 490 FOR A=0 TO 10 500 FOR B=50 TO 100 STEP 10: POKE Y,0 510 GOSUB 20: POKE Y,B: GOSUB 20:NEXT B 520 NEXT A :RETURN 530 REM WHISTLING BOMB 540 FOR B=30 TO 200: POKE Y,0 550 GOSUB 20:POKE Y,B:GOSUB 20 560 NEXT B: RETURN 570 REM EXPLOSION OR GUNSHOT 580 POKE Y,13: GOSUB 20: POKE Y,0 590 FOR A = 1 TO 1500+1000*(S=7) 600 NEXT A: RETURN 610 REM WHISTLE 620 DATA 0,0,0,0,0,0,1,46,15,9,0,0,0,0 630 REM RACE CAR 640 DATA 0,0,0,15,0,0,0,60,15,10,0,0,0,0 650 REM LASER 660 DATA 0,0,0,0,0,0,0,254,15,0,0,0,0,0 670 REM WHISTLING BOMB 680 DATA 0,0,0,0,0,0,0,254,15,0,0,0,0,0 690 REM BOMB WITH EXPLOSION 700 DATA 0,0,0,0,0,0,0,254,15,0,0,0,0,0 710 REM EXPLOSION 720 DATA 0,0,0,0,0,0,0,7,16,16,16,0,56,0 730 REM GUNSHOT 740 DATA 0,0,0,0,0,0,15,7,16,16,16,0,16,0 |