Programme de démonstration de la cartouche E
Ce programme montre plu si eu rs des possibi lités de la cartou che de parole/son : parole et son simu ltané s, création de musiqu e, effets sonores complex es, u tilisation des comman des et des registres de son , etc.
1 0
R EM
* * * * * * * * * * * * * * * * * * * * * * * * * ** * * *
20 REM
*
P RO G R AMME DE D EMONS T RAT I ON
*
30 REM
* * * * * *
DE CA RTOUCHE
*******
40 REM
* * * * * *
P A R O L E / SON
*******
50 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
60 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
7C1 CLE/� R 5 l 2
80 X =&HFF00 : Y=&HFF7E : Z = &HFF7D
90 D I M P!f:. ( 8 )
1 00 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 1 0 R EM M I SE EN FONCT I ON
1 20 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 30 POKE z , 1 : POKE z , 0
1 40 POKE X + 1 , s 2 : POKE X +3 , 63
1 5 0 PmΠX + 3S , 60
1 60 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 70 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 80
REM DEF I N I
C H A I NES
DE PAROLE
1 90 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2C10 GOSUB 2890
2 1 0 REM
* * * * * * * * * * * * * * * * * * ***********
220 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
230 REM CHA RGE CHA I NES DE PAROLE
240 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2 5 0 P R I NT " LOAD I NG S PE E C H "
260 F O R C= 1 T O 7
270 GOSUE: 3360
280 NE X T C
290 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
300 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3 1 0 REM CHA R G E LE SON
320 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
330 P R I NT " LOAD I NG SOUND "
3412! F O R C= 1 TO 6
3 '5 0 GOt3UI?.. 3490
3612) NE X T C
370 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * � * *
380 REM
* * * * * * * * * * * * * * * * * * * * ** * * * * � * *
45
390 REM E X E CUT I ON DEMO
400 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
4 1 0 P R I NT " DEMON S T RAT I NG "
420 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
430 R E M CHA RGE HORLOGE DE BASE
440 REM
* ** * * * * * * * * * * * * * * * * * * * * * * * * * *
4 5 0 GOSUB 3 1 70
4 6 0 POKE y , &HBF
470 GOSUB 3 1 70
480 POKE Y , 60
490 GOSUB 3 1 70
5 00 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
5 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
5 2 0 REM E X E C TAM PON D E PA ROLE 0
5 30 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
5 40 POKE y , 208
5 5 0 GOSUB 3230
5 60 GOSUB 3030
5 70 GOSUB 3 1 70
5 80 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
5 9 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
600 REM E X E C TAMPON D E PA ROLE 1
6 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
620 POKE Y , 209
630 GOSUB 3030
640 GOSUB 3 1 70
6 5 0 REM
* * * * * * * * * * * ** * * * * * * * * * * * * * * * *
6 6 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
670 REM E X E C TAMPON D E PA ROLE 4
680 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
690 POKE y , 2 1 2
700 GOSUB 3300
7 1 0 GOSUB 3030
720 GOSUB 3 1 70
730 REM
* * * * * * * * * * * * * ** * * * * * * * * * * * * * *
740 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
7 5 0 REM E X E C TAM PON DE SON 0
46
760 REM *****************************
7 70 POKE Y , 2 1 6
780 GOSUB 3230
790 GOSUB 3 1 00
800 GOSUB 3 1 70
8 1 0 REM *****************************
820 REM *****************************
830 REM E X E C TAMPON DE PA ROLE 5
840 REM *****************************
8 5 0 POKE y , 2 1 3
860 GOSUB 3230
870 GOSUB 3030
880 GOSUB 3 1 70
890 REM *************** **************
900 REM *****************************
9 1 0 REM E X E C TAM PON DE SON 1
920 REM *****************************
930 POKE y , 2 1 7
940 GOSUB 3230
95 0 G O S UB 3 1 00
960 GOSUB 3 1 7 0
970 REM
*****************************
980 REM *****************************
990 REM E X E C TAM PON DE P A ROLE 2
1 000 REM ****************************
1 0 1 0 POKE y , 2 1 0
1 020 GOSUB 3030
1 030 GOSUB 3 1 70
1 040 REM *****************************
1 05 0 REM *****************************
1 060 REM E X E C TAMPON DE PA ROLE 4
1 070 REM *****************************
1 080 POKE y , 2 1 2
1 090 GOSUB 3230
1 1 00 GOSUB 3030
1 1 1 0 GOSUB 3 1 70
1 1 20 REM *****************************
1 1 3 0 REM *****************************
1 1 40 REM E X E C TAM PON 3 DE CHA I NE REG
1 1 5 0 REM *****************************
4 7
1 1 6 0 POKE y , 25 1
1 1 7 0 GOSUB 3230
1 1 80 GOSUB 3 1 00
1 1 90 GOSUB 3 1 70
1 200 REM *****************************
1 2 1 0 REM *****************************
1 220 REM E X E C T AM PON 4 DE CHA I N E REG
1 23 0 REM *****************************
1 240 POKE y , 25 2
1 25 0 GOSUB 3230
1 260 GOSUB 3 1 00
1 270 GOSUB 3 1 70
1 280 REM *****************************
1 290 REM ********** *******************
1 300 REM E X E C TAM PON 3 D E CHA I NE REG
1 3 1 0 REM *****************************
1 320 POKE y , 25 1
1 33 0 GOSUB 3230
1 340 GOSUB 3 1 00
1 46 0
1 47 0
1 480
1 490
1 5 00
1 5 1 0
1 5 20
1 5 3 0
1 5 40
1 5 5 0
1 35 0 GOSUB 3 1 70
'
1 360 REM *****************************
1 370
REM
*****************************
1 380
REM E X E C T AM PON 5 DE CHA I NE REG
1 390
REM *****************************
1 400
1 4 1 0
1 420
1 430
1 440
1 45 0
POKE y , 25 3
GOSUB 3230
GOSUB 3 1 00
GOSUB 3 1 70
REM * ****************************
REM *****************************
REM E X E C TAM PON 3 DE CHA I NE REG
REM *****************************
POKE y , 25 1
GOSUB 3230
GOSUB 3 1 00
GOSUB 3 1 70
REM *****************************
REM * ****************************
REM A R RET D U SON
REM * ****************************
48
1 5 60 POKE y , 207
1 5 7 0 GOSUB 3 1 70
1 5 80 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 5 90 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 600 REM E X E C TAM PON 3 DE PA ROLE
1 6 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 620 POKE y , 2 1 1
1 63 0 GOSUB 3230
1 640 GOSUB 3230
1 65 0 GOSUB 3230
1 66 0 GOSUB 3030
1 670 GOSUB 3 1 70
1 680 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 690 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 700 REM E X E C TAMPON 2 D E SON
1 7 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 720 POKE y , 2 1 8
1 730 GOSUB 3 1 00
1 740 GOSUB 3 1 70
1 75 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 760 REM
* ** * * * * * * * * * * * * * * * * * * * * * * * * * *
1 770 REM E X E C TAMPON 7 DE PAROLE
1 780 R E M
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 790 POKE y , 2 1 5
1 800 GOSUB 3 1 70
1 8 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 820 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 8 3 0 REM E X E C TAMPON 3 DE CHA I NE REG
1 8 40 R E M
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 8 5 0 POKE y , 25 1
1 860 G OSUB 3 1 00
1 8 70 GOSUB 3 1 70
1 880 R E M
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 890 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 900 R E M E X E C TAM PON 4 DE CHA I NE REG
1 9 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 920 POKE y , 2 5 2
1 930 G O S U B 3 1 00
1 94 0 GOSUB 3 1 70
49
1 95 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 96 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 97 0 REM E X E C T A M PON 3 DE CHA I NE REG
1 980 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
1 990 POKE y , 25 1
2000 GOSUB 3 1 00
20 1 0 GOSUB 3 1 70
2020 REM
* * ** * * * * * * * * * * * * * * * * * * * * * * * * *
2030 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2040 REM E X E C TAM PON 5 DE CHA I NE REG
2 0 5 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2060 POKE y , 25 3
2070 GOSUB 3 1 00
2080 GOSUB 3 1 70
2090 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2 1 00 REM
* ** * * * * * * * * * * * * * * * * * * * * * * * * * *
2 1 1 0 REM E X E C T A M PON 3 DE CHA I NE REG
2 1 20 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2 1 30 POKE y , 25 1
2 1 40 GOSUB 3 1 00
2 1 5 0 GOSUB 3 1 70
2 1 60 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2 1 70 REM
* * * * * * * * * * * * * ** * * * * * * * * * * * * * *
2 1 80 REM A R RET D U SON
2 1 90 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2200 POKE y , 207
22 1 0 GOSUB 3 1 70
2220 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2230 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2240 REM E X E C T A M PON 6 DE PAROLE
225 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2260 POKE Y , 2 1 4
2270 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2280 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2290 END
2300 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
23 1 0 REM A I R 1
2320 REM COMMANDE MODE DE SON
2330 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2340 DATA 1 1 , 0 , 2 1 4 , 6 , 0 , 0 , 0 , 6
2 3 5 0 DATA 1 1 , 1 , 29 , 4 , 1 1 , 1 , 46 , 4
50
2360 DATA 1 1 ' 1 ' 29 ' LH 1 l ' 1 ' 1 3 ' 1 2
2370 DATA 1 1 , 1 , 29 , 6 , 0 , 0 , 0 , 1 8
2380 DATA l l , 0 , 22 6 , 6 , 0 , 0 , 0 , 6
2390 DATA 1 1 , 0 , 2 1 4 , 6 , 0 , 0 , 0 , 0
2400 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
24 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2420 RE:M A I R :2�
2430 REM COMMANDE MODE D E SON
2440 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
245 0 DATA l 1 , 0 , 2 1 4 , 6 , 0 , 0 , 0 , 0
2460 DATA 1 1 , 0 , 2 1 4 , 1 2 , 0 , 0 , 0 , 0
2470 DATA 1 1 , 0 , 2 1 4 , 1 2 , 0 , 0 , 0 , 0
2480 DATA 1 1 , 1 , 1 3 , 6 , 0 , 0 , 0 , 0
2490 DATA 1 1 , 0 , 25 4 , 1 2 , 0 , 0 , 0 , 0
2 5 00 DATA 1 1 , 1 , 64 i 6 , 0 , 0 , 0 , 0
2 5 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2 5 20 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2 5 3 0 R E M COU P DE FEU
25 40 REM
COMMANDE MODE DE B RU I T
25 5 0 REM
AVEC ENVEL O P PE
2 5 6 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2 5 7 0 DATA 1 5 9 , 1 5 , 1 5 , 1 9 1 , 1 s , 1 s
2 5 8 0 DATA 223 , 1 5 , 1 5 , 99 , 0 , 1 4 , 5
25 90 DATA 0 , 0 , 0 , 0
2600 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
26 1 0 R E M
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2620 REM A C CO R D D E DO
2630 REM R E G I S T R E D I R E C T DE SON
2640 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2 6 5 0 DATA 0 , 1 72 , 1 , 1 , 2 , 93 , 3 , 1
2660 DATA 4 , 29 , 5 , 1 , 6 , 0 , 7 , 5 6
2670 DATA 9 , 9 , 9 , 9 , 1 0 , 9 , 1 1 , 0
2680 DATA 1 2 , 0 , 1 3 , 0
2690 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2700 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
27 1 0 R E M A C CO RD DE FA
2720 REM R E G I S T R E D I R E C T DE SON
2730 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
2740 DATA 0 , 1 72 , 1 , 1 , 2 , 64 , J , 1
2 7 5 0 DATA 4 , 25 4 , 5 , 0 , 6 , 0 , 7 , 5 6
5 1
2760 DATA 9 , 9 , 9 , 9 , 1 0 , 9 , 1 1 , 0
2770 DATA 1 2 , 0 , 1 3 , 0
2780 REM ******************************
2790 REM * *****************************
2800 REM A C CO RD DE S O L
28 1 0 REM REG I ST RE D I R E C T DE SON
2820 REM ******************************
2830 DATA 0 , 1 97 , 1 , 1 , 2 , 1 25 , 3 , 1
2840 DATA 4 , 29 , 5 , 1 , 6 , 0 , 7 , 5 6
2 8 5 0 DATA 9 , 9 , 9 , 9 , 1 0 , 9 , 1 1 , 0
2860 DATA 1 2 , 0 , 1 3 , 0
2870 REM ******************************
2880 REM ******** * * * * ******************
2890 R EM CHA I NES
2900 REM T E X TE - P A ROLE
29 1 0 REM * *****************************
2920 P $ C 1 > = " HE L L O .
.
.
I AM THE COLOR
C O M P U T E R SOUND AND S PE E CH C A RT R I DGE . "
2930 P $ C 2 > = " I CAN NOT ONLY TALK .
.
.
I CAN
ALSO PLAY MELOD I ES . "
2940 P $ ( 3 ) = " I CAN P L A Y CORDS . "
295 0 P $ ( 4 ) = " I CAN MAKE SOUND EFFE CTS .
.
L I KE
TH I S GUNSHOT . "
2960 P $ C S > = " L I KE T H I S . "
2970 PS ( 6 ) = " AND TH I S . "
2980 PS < 7 > = " I HOPE VOU W I LL ENJOY US I NG ME . "
2990 P $ < 8 ) = "
I
CAN P L A '{ CO RDS WH I LE S PEA�ŒYNG . "
3000 RETURN
30 1 0 REM *********** * * **************** *
3020 REM ******************************
3030 REM V E R I F I C A T I ON DE L A PA ROLE
3040 REM ******************************
3 0 5 0 F O R Q= l TO 800 : N E X T Q
3060 I F PEEK C Y > AND 64=0 THEN 3060
3Ql70 RETURN
3080 REM ************ ******************
3090 REM ******************************
3 1 00 REM V E R I F I C A T I ON DU SON
3 1 1 0 REM ******************************
3 1 20 F O R Q= 1 TO 700 : N E X T Q
3 1 30 I F PEEK C Y > AND 32=0 THEN 3 1 30
52
3 1 40
RET U R N
3 1 5 0
REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3 1 60 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3 1 70 REM VE R I F I CAT I ON DU S I GNAL O C CU PE
3 1 80 R EM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3 1 90 IF PEEK C Y > AND 1 28=0 THEN 3 1 90
3200 RETU RN
3 2 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3220 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3230 REM C O U R T DELA I
3240 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3250 GOSUB 3 1 70
3260 F O R 0= 1 TO 800 : NE X T Q
3270 R E T U R N
3 2 8 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3290 REM
* * ** * * * * * * * * * * * * * * * * * * * * * * * * *
3300 REM LONG DELA I
33 1 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3320 F O R Q = 1 TO 6000 : NE X T Q
3330 R E T U RN
3340 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3 3 5 0 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3360 REM CHA RGEMENT D ' UNE CHA I NE
3370 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3380 GOSUB 3 1 70
3390 POKE Y , 1 43 + C
3 400 F O R I = l T O L EN C PS < C > >
34 1 0 GOSUB 3 1 70
3420 POKE Y , AS C C M I DS C P$ C C ) , J , 1 ) )
3430 N E X T I
3440 GOSUB 3 1 70
3 4 5 0 POKE y , 1 3
3460 R E T U R N
3470 R E M
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3480 REM
* * * * ** * * * * * * * * * * * * * * * * * * * * * * *
3490 REM CHA R GEMENT D ' UN SON
3 5 00 REM
* * * * * * * * * * * * * * * * * * * * * * * * * * * * *
3 5 1 0 I F C>2 THEN 3 5 6 0
3 5 20 K=48
3 5 30 GOSUB 3 1 70
53
3 5 4 0 POKE y , 1 5 1 + c
3 5 5 0 GOTO 3600
3 5 60 I F C=3 THEN K = 1 3 : GOTO 35 30
3 5 70 K=28
3 5 80 GOSUB 3 1 70
3 5 9 0 POKE Y , 1 83 + C
3600 F O R I = 1 T O K
36 1 0 READ D
3620 GOSUB 3 1 70
3630 POKE v , n
3640 N E X T I
365 0 GOSUB 3 1 70
3660 POKE y , 25 5
3670 R E T U R N
3 6 8 0 REM
*****************************
3690 REM
*****************************
54
