Effets sonores G
Ce programme mon tre la faci lité de c réati on de sept effets sonores de j eux couran ts avec la cartouche de parole/son. À l'éc ran de menu, c hoisi r le n u méro d'un eff et sonore; l'ordin ateu r c ouleur et la c artouche de parole/son fon t le reste. On peu t modi fier l es l i gn es de don n ées du programme pour produ i re des effets sonores particuliers.
1 0 GOTO 40
20 I F PEEK < Y > AND 1 28=0 THEN 20
30 i�ETU RN
40 CLS : W=&HFF7D : X =&HFF00
50 Y=&HFF7E : POKE x + 1 , s 2
60 POKE X + J , 63 : POKE X + 3S , 60
70 POKE < W > ,
1 :
POKE < W > , 0
80 D I M A ( B , 1 3 ) : FO R A = 1 TO 7
90 F O R 8 = 0 TO 1 3 : R E A D A ( A , B > : N E X T 8 , A
1 00 CLS : P R I NT TAB < 9 > " EFFETS SONO RES "
1 1 0 P R I NT : P R I NT TAB < 7 > " < 1 > S I FFLET "
1 20 P R I NT TAB C 7 ) " < 2 > BOL I DE D E COURSE "
1 30 P R I NT TAB ( 7 ) " < 3 > LASE R "
1 40 P R I NT TAB < 7 > " < 4 > S I FFLEMENT D E BOMBE "
1 5 0 P R I NT TAB C 7 ) " < S > BOMBE AVE C E X PLOS I ON "
1 60 P R I NT TA8 ( 7 ) " < 6 > E X PLOS I ON "
1 70 P R I NT TAB C 7 ) " < 7 > C O U P D E FEU "
1 80 P R I NT : P R I NT T A8 < 7 > ;
1 90 I N PUT " VO T RE CHO I X " ; S
200 I F S < l O R S > 7 THEN 1 00
2 1 0 POKE y , 1 75 : GOSUB 20
220 F O R A=0 TO 1 3 : POKE Y , A : GOSUB 20
230 POKE Y , A ( S , A ) : GOSUB 20 : NE X T A
240 ON S GOSUB 2 70 , 36 0 , 480 , 5 30 , 5 3 0 , 5 7 0 , 5 70
25 0 I F S=S THEN 5=6 : GOTO 220
260 POKE w , 1 : POKE w , 0 : GOTO 1 00
270 REM S I FFLET
280 F O R A=64 TO 3 2 STEP -2 : POKE y , 0
290 GOSUB 20 : POKE Y , A : GOSUB 20
300 N E X T A : F O R A= l TO 200 : N E X T
3 1 0 F O R A=64 T O 4 8 STE P -2 : POKE y , 0
320 GOSUB 20 : POKE Y , A : GOSUB 20
330 N E X T A : FOR A=48 TO 96 STEP 2
340 POKE y , 0 : GOSUB 20
5 7
3 5 0 POKE Y , A : GOSUB 20 : NE X T A : RETURN
360 REM BOL I DE D E COU RSE
370 F O R A = 1 1 TO 4 S T E P - 1 : POKE y , 1 : GOSUB 20
380 POKE Y , A : GOSUB 20 : GOSUB 4 5 0
3 90 N E X T A : F O R A = 9 TO 3 S T E P - 1
400 POKE y , 1 : GOSUB 20 : POKE Y , A
4 1 0 GOSUB 20 : GOSUB 4 5 0 : N E X T A
420 F O R A = 6 TO 1 S T E P - 1 : POKE y , 1
430 GOSUB 20 : POKE Y , A : GOSUB 20
440 GOSUB 4 5 0 : N E X T A : RETURN
450 FOR 8=255 T O 0 STE P -8 : POKE y , 0
460 GOSUB 20 : POKE y , 9 : GOSUB 20
470 N E X T 8 : RETURN
480 REM LASER
490 F O R A=0 T O 1 0
5 00 F O R 8 = 5 0 T O 1 00 S T E P 1 0 : POKE y , 0
5 1 0 GOSUB 20 : POKE y , 9 : GOSUB 20 : NE X T B
5 20 N E X T A : RETURN
5 3 0 REM S I FFLEMENT D E BOMBE
5 40 FOR B=30 TO 200 : POKE y , 0
5 5 0 GOSUB 20 : POKE y , 9 : GOSUB 20
5 60 N E X T 8 : RETURN
5 70 REM E X PL O S I ON OU C O U P DE FEU
5 80 POKE y , 1 3 : GOSUB 20 : POKE y , 0
5 90 F O R A= l TO 1 5 0 0 + 1 000* ( 8=7 )
600 NE X T A : RETURN
6 1 0 REM S I FFLET
620 DATA 0 , 0 , 0 , 0 , 0 , 0 , 1 , 46 , 1 5 , 9 , 0 , 0 , 0 , 0
630 REM BOL I DE D E COU RSE
640 DATA 0 , 0 , 0 , 1 5 , 0 , 0 , 0 , 60 , 1 5 , 1 0 , 0 , 0 , 0 , 0
6 5 0 REM LASER
660 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 25 4 , 1 5 , 0 , 0 , 0 , 0 , 0
6 7 0 REM S I FFLEMENT DE BOMBE
680 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 25 4 , 1 5 , 0 , 0 , 0 , 0 , 0
690 REM BOMBE A V E C E X PLOS I ON
700 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 25 4 , 1 5 , 0 , 0 , 0 , 0 , 0
7 1 0 REM E X PLOS I ON
720 DATA 0 , 0 , 0 , 0 , 0 , 0 , 0 , 7 , 1 6 , 1 6 , 1 6 , 0 , S 6 , 0
730 REM C O U P D E FEU
740 DATA 0 ,
QI , Q) ,
0 , 0 , 0 , 1 5 , 7 ,
Hn
1 6 , 1. 6 ,
12),
1 6 , 0
58
