Annexes. Tandy Cartouche de parole/son
ANNEXES
27
28
Commandes A
IMPLANTATION DES INSTRUCTIONS
80 Charge une chaîne de parole dans les tampons 0-7 pour l'exécution ultérieure. Le caractère d'arrêt est OO.
8 1 Charge une chaîne de parole dans les tampons 1-7.
82
Charge une chaîne de parole dans les tampons 2-7.
83 Charge une chaîne de parole dans les tampons 3-7.
84 Charge une chaîne de parole dans les tampons 4-7.
85
Charge une chaîne de parole dans les tampons 5-7.
86 Charge uné chaîne de parole dans les tampons 6-7.
87 Charge une chaîne de parole dans le tampon 7.
88 Charge les données de son dans les tampons 0-7 pour exécution ultérieure. Le caractère d'arrêt est FF.
89 Charge les données de son dans les tampons 1-7.
8A Charge les données de son dans les tampons 2-7.
88 Charge les données de son dans les tampons 3-7.
8C Charge des données de son dans les tampons 4-7.
80 Charge des données de son dans les tampons 5-7.
8E Charge des données de son dans les tampons 6-7.
8F Charge la valeur de la base de temps. Avec cette commande, on doit charger un post-octet de données (dans l'intervalle 0-255) dans le registre d'horloge. 255 donne la durée la plus longue et 0 la durée la plus courte.
90 Charge une chaîne de parole dans le tampon 0 pour exécution
ultérieure. Le caractère d'arrêt est OO.
9 1 Charge une chaîne de parole dans le tampon 1.
92 Charge une chaîne de parole dans le tampon 2.
93 Charge une chaîne de parole dans le tampon 3.
94 Charge une chaîne de parole dans le tampon 4.
95
Charge une chaîne de parole dans le tampon 5.
96 Charge une chaîne de parole dans le tampon 6.
97 Charge une chaîne de parole dans le tampon 7.
98 Charge des données de son dans le tampon 0 pour exécution ultérieure. Le caractère d'arrêt est FF.
99 Charge des données de son dans le tampon 1.
9A Charge des données de son dans le tampon 2.
98 Charge des données de son dans le tampon 3.
9C Charge des données de son dans le tampon 4.
90 Charge des données de son dans le tampon 5.
9E Charge des données de son dans le tampon 6.
9F Charge des données de son dans le tampon 7.
29
AO Charge une suite d'adresses d'allophones dans les tampons 0-7 po111 exécution ultérieure. Le caractère d'arrêt est FF.
A1 Charge une suite d'adresses d'allophones dans les tampons 1-7.
A2 Charge une suite d'adresses d'allophones dans les tampons 2-7.
A3 Charge une suite d'adresses d'allophones dans les tampons 3-7.
A4 Charge une suite d'adresses d'allophones dans les tampons 4-7.
A5 Charge une suite d'adresses d'allophones dans les tampons 5-7.
A6 Charge une suite d'adresses d'allophones dans les tampons 6-7.
A7 Charge une suite. d'adresses d'allophones dans le tampon 7.
A8 Charge une chaîne de registre dans les tampons 0-7 pour exécution ultérieure. Le caractère d'arrêt est FF.
A9 Charge une chaîne de registre dans les tampons 1-7.
AA Charge une chaîne de registre dans les tampons 2-7.
AB Charge une chaîne de registre dans les tampons 3-7.
AC Charge une chaîne de registre dans les tampons 4-7.
A D Charge une chaîne de registre dans les tampons 5-7.
AE Charge une chaîne de registre dans les tampons 6-7.
AF Fait passer une fonction d'entrée dans un mode qui permet l'accès direct aux registres de son.
BO Charge une suite d'adresses d'allophones dans le tampon O pour exécution ultérieure. Le caractère d'arrêt est FF.
B1 Charge une suite d'adresses d'allophones dans le tampon 1.
B2 Charge une suite d'adresses d'allophones dans le tampon 2.
B3 Charge une suite d'adresses d'allophones dans le tampon 3.
B4 Charge une suite d'adresses d'allophones dans le tampon 4.
B5 Charge une suite d'adresses d'allophones dans le tampon 5.
B6 Charge une suite d'adresses d'allophones dans le tampon 6.
B7 Charge une suite d'adresses d'allophones dans le tampon 7.
B8 Charge une suite de registre dans le tampon 0 pour exécution ultérieure. Le caractère d'arrêt est FF.
B9 Charge une chaîne de registre dans le tampon 1.
BA Charge une chaîne de registre dans le tampon 2.
BB Charge une chaîne de registre dans le tampon 3.
BC Charge une chaîne de registre dans le tampon 4.
B D Charge une chaîne de registre dans le tampon 5.
BE Charge une chaîne de registre dans le tampon 6.
BF Charge une chaîne de registre dans le tampon 7.
30
CO Exécute une chaîne de parole des tampons 0-7.
C 1 Exécute une chaîne de parole des tampons 1-7.
C2 Exécute une chaîne de parole des tampons 2-7.
C3 Exécute une chaîne de parole des tampons 3-7.
C4 Exécute une chaîne de parole des tampons 4-7.
C5 Exécute une chaîne de parole des tampons 5-7.
C6 Exécute une chaîne de parole des tampons 6-7.
C7 Arrête la parole.
C8 Exécute les données de son des tampons 0-7.
C9 Exécute les données de son des tampons 1-7.
CA Exécute les données de son des tampons 2-7.
CB Exécute les données de son des tampons 3-7.
CC Exécute les données de son des tampons 4-7.
C D Exécute les données de son des tampons 5-7.
CE Exécute les données de son des tampons 6-7.
CF Arrête le son.
DO Exécute une chaîne de parole du tampon O.
0 1 Exécute une chaîne de parole du tampon 1.
02 Exécute une chaîne de parole du tampon 2.
03 Exécute une chaîne de parole du tampon 3.
04 Exécute une chaîne de parole du tampon 4.
05 Exécute une chaîne de parole du tampon 5.
06 Exécute une chaîne de parole du tampon 6.
07 Exécute une chaîne de parole du tampon 7.
08 Exécute des données de son du tampon O.
09 Exécute des données de son du tampon 1.
DA Exécute des données de son du tampon 2.
DB Exécute des données de son du tampon 3.
OC Exécute des données de son du tampon 4.
DO Exécute des données de son du tampon 5.
DE Exécute des données de son du tampon 6.
OF Exécute des données de son du tampon 7.
3 1
EO Exécute une suite d'adresses d'allophones des tampons 0-7.
E1 Exécute une suite d'adresses d'allophones des tampons 1-7.
E2 Exécute une suite d'adresses d'allophones des tampons 2-7.
E3 Exécute une suite d'adresses d'allophones des tampons 3-7.
E4 Exécute une suite d'adresses d'allophones des tampons 4-7.
E5 Exécute une suite d'adresses d'allophones des tampons 5-7.
E6 Exécute une suite d'adresses d'allophones des tampons 6-7.
E7 Exécute une suite d'adresses d'allophones du tampon 7.
E8 Exécute une chaîne de registre des tampons 0-7.
E9 Exécute une chaîne de registre des tampons 1-7.
EA Exécute une chaîne de registre des tampons 2-7.
EB Exécute une chaîne de registre des tampons 3-7.
EC Exécute une chaîne de registre des tampons 4-7.
E D Exécute une chaîne de registre des tampons 5-7.
EE Exécute une chaîne de registre des tampons 6-7.
EF Exécute une chaîne de registre du tampon 7.
FO Exécute une suite d'adresses d'allophones du tampon O.
F 1 Exécute une suite d'adresses d'allophones d u tampon 1.
F2 Exécute une suite d'adresses d'allophones du tampon 2.
F3 Exécute une suite d'adresses d'allophones du tampon 3.
F4 Exécute une suite d'adresses d'allophones du tampon 4.
F5 Exécute une suite d'adresses d'allophones du tampon 5.
F6 Exécute une suite d'adresses d'allophones du tampon 6.
F7 Exécute une suite d'adresses d'allophones du tampon 7.
F8 Exécute une chaîne de registre du tampon O.
F9 Exécute une chaîne de registre du tampon 1.
FA Exécute une chaîne de registre du tampon 2.
FB Exécute une chaîne de registre du tampon 3.
FC Exécute une chaîne de registre du tampon 4.
FD Exécute une chaîne de registre du tampon 5.
FE Exécute une chaîne de registre du tampon 6.
FF Exécute une chaîne de registre du tampon 7.
OO Arrête l'ensem ble du son, y compris la parole. N'efface pas les tampons.
32
Registres de générateur de son
B
Fonctionnement
Toutes les fonctions du générateur de son programmable étant commandées par le processeur. par l'intermédiaire d'une série de chargements dans les registres, il est plus facile de décrire en détail le fonctionnement du générateur de son programmable en rattachant chacune de ses fonctions
à la commande du registre correspondant. La fonction de création ou de programmation d'un son ou d'un effet sonore spécifique suit logiquement la séquence de commande ci-dessous:
Fonctionnement
Commande de générateur de tonalités
Commande de générateur de bruit commande de mélangeur
Commande d'amplitude
ëomman e de gén rateur d'enveloppe
Registres
RO--R5
R7
R8--R10
R11--R13
Fonction
Programme les périodes de n li
Programme la période de bruit. ah e onafTfè e ou bruit dans les canaux ch isis.
Choisit l'amplitude
"fixe" ou "variable
à envelo pe''.
Prog ram m e l "" p --.
� 00 e _ d'enveloppe et choisit la configuration d'enveloppe.
'
Commande de générateur de tonalité
(Registres RO, R1, R2, R3, R4 et RS)
La fréquence de chaque onde carrée créée par les trois générateurs de tonalité (un pour chacun des canaux
A, B et C) s'obtient dans le générateur de son programmable en décomptant d'abord l'horloge d'entrée de 16 et en décomptant ensuite le résultat de la valeur programmée de période de tonalité de 12 bits. Dans le générateur de son programmable, chaque valeur de 12 bits s'obtient en combinant les contenus des registres de tonalités approximatives et précises relatives. comme le montre le tableau suivant:
Canal Registre de tonalité approximative
R1
R3
RS
A
B c
Registre de tonalité précise
RO
R2
R4
33
.__...
INUTILISÉ
Péri ode de ton ali té de 12 bits (TP) vers le g énérateur de ton ali té
Commande de générateur de bruit
( Registre R6)
Dans le g én érateur ae son prog rammable, la fréquen ce de la s ource de brui t s'obti ent en décomptan t d'abord l'horlog e d'entrée de 16 et en décomptan t ensuite le résultat de la valeur programmée de la péri ode de brui t de 5 bits. Cette valeur de 5 bits se compos e des 5 bi ts in féri eurs (84--80) du reg istre R6 , comme le montre le schéma sui vant:
Période de bruit
Reg istre R6 is1is61s51s41s31s2is1i sol
,,,,.
__.._.... .... ___
INUTILISÉ
Période de brui t de 5 bi ts (NP) vers le g én érateur de brui t
Commande de mélange
(Registre R7)
Le registre de vali dati on mul tifon cti on R7 comman de les trois mélang eurs de brui t/ton al i té.
Comme n ous l'avons déjà vu, les mélang eurs combin en t les fréquen ces de brui t et de ton alité pour chacun des trois can aux. La détermi n ation des combi n aisons ni l'un ni l'autre/l'un ou l'autre/les deux pour les fréquen ces de brui t et de ton ali té de chaque canal dépen d de l'état des bi ts 85--80 de R7. Ces bi ts son t acti fs à l'état bas.
Le schéma sui van t montre ces fon cti ons:
34
Validation de commande de mélangeur
Registre R7
87 86 85
..___..
IN UTILISË
Fonction
Canal
Validation bruit
C B A
Validation tonalité c
B A
Commande d'amplitude
(R egistres RB, R9 et R 10)
L es amplitudes des signaux créés par chacun des trois convertisseurs numériques/analogiques (un de chaque pour les canaux
A,
8 et
C)
sont déterminées par l es contenus des 5 bi ts inférieurs (84--80) des registres RB, R9 et R 10. E lles se sch émati sent ainsi:
87 86 85 84 83 82 8 1 BO
INUTILISË
"Mode" d'amplitude
Niveau d'amplitude
"fixe" de
4 bits
Si le bit 4 est haut, l'enveloppe commande l'ampli tude; s'i l est bas; les bits 3-0 fi xent l'amplitude.
35
Commande de générateur d'enveloppe
( Regi stres R11, R12 et R13)
Pour parvenir à créer des configuratio ns d'enveloppe assez complexes, on dispose de deux méthodes i ndépendantes de commande avec le générateur de son programmable. On peut d'abo rd faire vari er la fréquence de l'enveloppe à l'aide des regi stres R11 et R12. E nsui te, on peut faire varier la fo rme relative et la configuration de cycle de l'enveloppe à l'aide du registre R13. Les paragraphes sui vants expli quent en détai l les fonctions de commande d'enveloppe; ils décri vent d'abord la commande de période d'enveloppe puis la commande de forme/cycle d'enveloppe.
COMMANDE DE PËRIODE D'ENVELOPPE ( Regi stres R11 et R12)
Dans le générateur de son programmable, la fréquence de l'enveloppe s'obtient en décomptant d'abord l'ho rloge d'entrée de 25 6 et en décomptant ensuite le résultat de la valeur programmée de période d'enveloppe de 16 bits. Dans le générateur de son programmable, cette valeur de 16 bi ts s'obti ent en combi nant les contenus des registres de tonalité approxi mative et préci se d'enveloppe, comme le montre le schéma sui vant:
Tonalité approximative d'enveloppe
Registre
1 2
B 7 B 6 B 5 B 4 B 3 B 2 B 1 BO
Tonalité précise d'enveloppe
Registre 1 1
B 7 B6 B 5 B4 B3 B 2 B 1 BO
Période d'enveloppe (EP) de 16 bits vers le générateur d'enveloppe
COMMANDE DE FORM E/CYCLE D'ENVELOPPE ( Registre R13)
Le générateur d'enveloppe décompte enco re la fréquence d'enveloppe de 16 pour donner une configuration d'enveloppe de 16 états par cycle, défi nie par sa so rti e de co mpteur à 4 bi ts (E3, E2, E1, E O) . La configuration particuliè re de forme et de cycle d'une enveloppe désirée s'obtient par la commande de la confi guration du comptage
( comptage progressif/dégressif) du compteur à 4 bi ts et en défi nissant une configuration à cycle simple ou répétitif.
36
Cette com , man de de forme/cycle d'en veloppe se trouve dan s les 4 bits inférieurs
(83--80) du registre R 13. Chacun de ces b its comman de une fon ction dan s le gén érateur d'enveloppe, comme l e mon tre le schéma suivan t:
Registre de commande de forme/cyc le d'enveloppe ( R 1 3)
�
Inutil isé
Fonction
L----------4�
Continu ité
1
Vers le gén érateur d'en vel oppe
Remarque:
Dan s la détermin ation de l a période des événemen ts, il faut in terpréter un compte de zéro en aj outan t une unité son t
à un. Par exemple, si 12 b its son t
Toutefois, si les 12 bits son t
à
à
à la valeur correspon dante quan d tous l es bits un dan s une ton alité, le diviseur est 4095. zéro, le diviseur n 'est pas 0, car on ne peut pas diviser par cette valeur. De ce fait, l e diviseur devien t 409 6 .
3 7
38
Table des adresses d'allophones C
Adresse
Déc. Hex.
0 1 7 0 1 1
0 1 8 0 1 2
0 1 9 0 1 3
020 0 1 4
02 1 0 1 5
022 0 1 6
023
0 1 7
024 0 1 8
025 0 1 9
026 0 1 A
027 0 1 B
028 0 1 C
029 0 1 D
030 0 1 E
03 1
0 1 F
032 020
033 0 2 1 .
000 000
001 00 1
002
002
003
003
004
004
005 005
006 006
007 007
008 008
009 009
.
0 1 0
OOA
0 1 1
OOB
0 1 2 ooc
0 1 3
OOD
0 1 4 OOE
0 1 5 OO F
0 1 6 0 1 0
Allophone
/D D1 !
/UW 1 /
/AO/
/AA/
/YY2/
/A E/
/ H H 1 !
/B B 1 /
/T H /
/U H/
/UW2/
/AW/
/D D2/
PA 1
PA2
PA3
PA4
PA5
/O Y/
/AY/
/ E H /
/ K K 3/
/PP/
/J H /
/N N 1 !
/1 H /
/TT2/
/ R R 1 /
/AX/
/ M M /
/TT1 /
/D H 1 /
/ I Y/
/ E Y/
Exemple de mot
Sit
To
R u ra l
Succeed
M i l k
Part
They
See
Beige
Cou I d
To
Aught
H ot
Yes
Hat
He
Business
Th i n
Book
Food
Out
Do
PAUSE
PAUSE
PAUSE
PAUSE
PAUSE
Boy
Sky
E n d
Com b
Pow
Dodge
Thi n
Durée
1 80MS
1 00MS
290MS
250MS
280MS
70MS
1 00MS
1 00MS
1 00MS
1 80 MS
1 20 MS
1 30MS
80MS
1 80MS
1 00 MS
260MS
370MS
1 60MS
1 0MS
30MS
50MS
1 00MS
200MS
420MS
260MS
70MS
1 20 MS
2 1 0MS
1 40MS
1 40MS
70MS
1 40MS
1 70 MS
70MS
39
Adresse
Déc. Hex.
034 022
035 023
036 024
037 025
038 026
039 027
040 028
04 1
029
042 02A
043 02B
044 02C
045 02D
046 02E
047 02 F
048 030
049 031
050
032
051 033
052 034
053 035
054 036
055 037
056 038
057 039
058 03A
059 03B
060
03C
061 03D
062
03E
063
03F
Allophone
/G G3/
/VV/
/G G 1 /
/S H /
/Z H /
/ R R2/
/ F F/
/ K K2/
/ K K 1 /
/ZZ/
/ N G /
/ L LI
/WW/
/X R/
/W H /
/YY 1 /
/C H /
/ E R 1 /
/ E R 2/
/OW/
/ D H 2/
/SS/
/ N N2/
/H H2/
/O R/
/A R/
/Y R/
/G G2/
/ E L/
/B B2/
Exemple de mots
Yes
C h u rch
F i r
F i r
Beau
They
Vest
No
H oe
Store
Alarm
C lear
G uest
Sadd le
B usi ness
Wig
Vest
G ot
S h i p
Azu re
Bra i n
Food
Sky
Can't
Zoo
Anchor
Lake
Woo l
R epai r
Whig
Durée
1 40MS
1 90MS
80M S
1 60MS
1 90MS
1 20MS
1 50MS
1 90MS
1 60MS
2 1 0M S
220MS
1 1 0MS
1 80MS
360MS
200MS
1 30MS
1 90MS
1 60MS
300MS
240MS
240MS
90MS
1 90MS
1 80MS
330MS
290MS
350MS
40MS
1 90MS
50M S
40
Note c
C#
D
D#
E
F
F #
G
G#
A
A#
8 c
C#
D
D#
E
F
F #
G
G#
A
A#
8 c
C#
D
D#
E
F
F #
G
2
3
3
3
3
3
3
3
3
2
2
2
2
2
2
2
2
2
2
1
1
1
2
1
1
1
1
1
1
1
1
1
Gamme chromatiq ue tempérée
D
Octave
(f horloge =
1.78977
MHz)
HEXADÉCIMAL
Approxi matif Précis
6
6
5
5
5
8
7
7
7
A
A
9
8
D c
8
8
2
2
2
3
2
2
2
3
3
3
3
5
4
4
4
9 E
4 D
1
89
7 5
3 5
F 9
CO
BA
57
27
F A
C F
A7
8 1
5D
E 8
6 8
F 2
80
1 4
A E
4 E
F4
5 D
9C
E 7
3 C
9 8
02
73
3 8
DÉCIMAL
Approximatif Préci s
249
1 92
1 38
87
39
250
207
1 67
1 29
93
59
235
1 07
242
1 28
20
1 74
78
244
1 58
77
1
1 85
1 1 7
53
93
1 56
23 1
60
1 55
2
1 1 5
1 3
1 2
1 1
1 1
8
7
7
7
1 0
1 0
9
8
6
6
5
5
5
5
4
4
4
3
3
3
3
3
2
2
2
2
2
2
4 1
Note
G#
A
A#
B c
C#
0
0#
E
F
F #
G
A#
B c
C#
0
0#
E
F
F #
G
G#
A
A#
G#
A
A#
B c
C#
0
D#
E
F
F #
G
G#
A
Octave
6
6
6
6
6
5
5
5
5
6
6
6
6
6
6
4
4
4
4
5
4
4
4
4
4
4
4
4
3
3
3
3
5
5
5
5
5
5
5
HEXADÉCIMAL
Approximatif
Précis
1
1
1
1
1
1
1
1
1
1
2
1
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1
0
0
0
0
0
0
0
06
CA
B E
84
AA
AO
97
8 F
40
2E
1 0
0
F E
F O
E2
55
50
4C
47
43
40
3C
87
7 F
78
7 1
6 8
6 5
5 F
5A
1 8
F C
EO
C5
AC
94
7 0
68
53
42
DÉCIMAL
Approximatif
Précis
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1
1
1
1
1
1
2
1
1
1
1
1
1
27
252
224
1 97
1 72
1 48
1 25
1 04
95
90
85
80
76
7 1
6 7
64
60
1 60
1 5 1
1 43
1 3 5
1 27
1 20
1 1 3
1 07
1 0 1
254
240
226
2 1 4
202
1 90
1 80
1 70
83
64
46
29
1 3
Note
F #
G
G#
A
A#
B c
C#
D
D#
E
F
B c
C#
D
D#
E
F
F #
G
G#
A
A#
B
Octave
8
8
8
8
8
8
8
8
8
8
7
7
7
7
7
7
7
6
7
7
7
7
7
8
8
HEXADÉCIMAL
Approxi matif Préci s
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
1 C
1 8
1 9
1 8
1 6
1 5
1 4
1 3
1 2
1 1
1 0
F
E
39
35
32
30
2 0
2A
28
26
24
22
20
1 E
DÉCIMAL
Approxi matif Préci s
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
0
57
53
50
1 9
1 8
1 7
1 6
1 5
1 4
28
27
25
24
22
2 1
20
48
4 5
42
40
38
36
34
32
30
43
44
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
ORGUE
F
Ce programme pe rmet de c réer u n clavier d'orgue avec les deux rangée s i nférieu re s du c lavier de l' ordi nateur. Cet orgue peut reprodui re
16 notes, en com menç ant au LA au -dessou s du DO. La li ste su i vante montre la correspondance des lettres du clavier avec le s touches blanches et noires du c lavier de l' orgue:
Z
=
LA
S = LA dièse/SI bémol
X = S I
C
=
F
=
D O
DO diè se/R Ë bémol
V =
R Ë
G = RË dièse/M l bémol
8 = M l
N
J
=
=
FA
FA diè se/SOL bémol
M
=
SOL
K
=
SOL diè se/LA bémol
LA
L = LA dièse/SI bémol
S I
/ = DO
Les notes durent au ssi l ongte mps que l' on appuie su r u ne touche. Pou r reprodui re les p re miers acc ords de "Star-Spangled Banner," tape r: e.F� z
F B '
5 REM REM I SE DE L A CARTE DE SON A L ' ETAT
I N I T I AL
1 0 CLS : W=&HFF7D : X =&HFF00 : Y=&HFF7E
20 POKE x + 1 , s 2 : POKE X +] , 63 : POKE X +3 5 , 60
30 POKE C W ) , 1 : POKE < W > , 0
35 REM TABLEAU DE VALEURS DE TONAL I TE
40 D I M T < 20 )
5 0 REM ETABL I SSEMENT DU
60 POKE y , 1 75 : GOSUB 280
SON EN MODE I MMED I AT
70 REM ETABL I SSEMENT D ' AUT RES PARAMETRES
80 REM M I SE A Z E RO D U REG I ST RE D E TONAL I TE
A P P R O X
9 0 REM S U R L E CANAL A D E TONAL I TE
1 00 POKE y , 1 : GOSUB 280 : POKE y , 0 : GOSUB 280
55
1 1 0 F O R A = l TO 8 : READ 8 : POKE y , 9
1 20 GOSUB 280 : NE X T A
1 30 REM L I RE EN VALEU R S DE TONAL I TE
1 40 F O R A=2 T O 1 7 : READ T C A ) : NE X T
1 5 0 I N$·= I NfŒY$
1 60 REM R E C HE R CHE D ' UNE TOU CHE VAL I DE
1 70 A= H�S T R
C
"
Z S X CF'v'GBr\l.JMK , L .
/ " ,
I N$ )
1 75 REM PAS D E TOU CHE VAL I DE . . . A R RE T DU SON
1 80 I F A < 2 THEN 260
1 t35 REM MEMO R I SA T I ON D U SON
1. 90 PmŒ
1 95 R EM y , (?.) : GOSUB 280
MEMO R I SAT I ON DU SON
DANS L E REG I ST RE 0
200 PmŒ
2 1. 0 REM
Y , T ( A ) : GOSUB 280
M I SE EN F ON C T I ON DE SON DU Ct1NAL A
220 POKEv , a : GOSUB 280 : POKE y , 1 6
230 REM EFFA CEMENT DE L A TABLE D E SUBST I TUT I ON
240 F O R 8=338 TO 3 4 5 : POKE B , 25 5 : NE X T : GOTO 1 5 0
25 0 REM A R RET DU SON DU CANAL A NNEL A
260 POKE y , 9 : GOSUB 280 : POKE y , 0 � G O T O 1 5 0
270
280
REM
A T T E N D R E S I
L A CA RTE
N ' E S T PAS P RETE
I F
PEEK < Y > AND
1 28=0 THEN
280 ELBE
R E T U R N
2 9 0 REM CHO I X
D U M O D E
I MMED I AT ( 1 7 5 )
300 REM M I SE EN F ON CT I ON DE TONAL I TE < 7 . 25 4 ) DE
CANAL.. A
3 H'l D A TA
320 REM
330 REM
340 REM
3 5 0 REM
3 6 0 D A T A
370
R E M
3 8 0
Ft:E M
390 DATA
41Zl0 REM
4 1 0 DATA
420 DATA
431Z)
DATA
7 ' 2�j L�
ETABL I SSEMENT D E PE R I ODE D E R E P E T I T I ON
P R E C I SE E T A P P FW X . < 1 1 d�) , 1 2 , 2 )
CHANGEMENT DE LA L I GNE P O U R 1 1 , 1 00 , 1 2 , 1
P O U R A C C RO I T RE V I TESSE D U T REMOLO
1 1 , 5 0 , 1 2 , 3 , o r M I NUE LA V I TESSE
1 1 , Q) , l:? , :2
E TABL I T LE T Y P E DE SON < 1 3 , . . . )
B=ATTACK , 1 0= T R EMOLO , 1 1 = CONSTANT
1 3 ,
H �
VALEU R D E S TONAL I TES
25 4 , 240 , 226 , 2 1 4 , 202 , 1 90
1 80 , 1 70 , 1 60 , l 5 1 , 1 43 , 1 35 i::n ,
1 20 , 1 1 3 , 1 01
56
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
Conversion de texte en parole H
(avec éd ite u r d 'écra n )
Ce programme, à l'i mage de celui de la p age 7. conv erti t le texte en parole. I l contient en plus un éditeur d'écran qui p ermet de taper une li gne de 252 caractè res au maximum et de la changer p ar la sui te en ne tapant que les correcti ons (on n'a p as à retaper la ligne entiè re) .
Après av oi r tapé une ligne, on peut uti li ser les commandes suivantes p our déplacer le curseur et i nsérer ou annuler des caractè res:
G
(SHIFTl El
(SHIFT) G
CD
CD
(SHIFT) CD
(SHIFT) CD
(CLEAR)
flèche
à gauche déplace le curseur vers la gauche
(n'efface pas le caractère) flèche flèche
à droite déplace le curseur vers la d roite
à gauche annule le caractère sous le curseur flèche
à droite insère u n espace
à la position du curseu r flèche vers le haut déplace le curseu r d'une ligne vers le haut (ou vers le début si l'on uti l ise cette commande sur la l i g ne supérieure) flèche vers le bas déplace le curseur d'une ligne vers le bas (ou vers la fin si on util ise cette commande sur la ligne du bas) flèche vers le haut amène le curseu r au premier caractère de la l i g ne flèche vers le bas amène le curseur au dernier caractère de la ligne efface tous les caractères entre le curseur et la fin de la l i g ne
(Après av oi r tapé une ligne et pressé
(ENTER)
p our la converti r en p arole, le curseur revient toujours au p remi er caractère de l a ligne.)
1 0 CLS : C L E A R 2000
20 X =&H�F00 : Y = $ H � F 7 E : POKE X + l , 5 2
30 POKE X + 3 , 63 � POKE X +3S , 60
40 POKE C &HFF70 ) , 1 : POKE C &HFF7D ) , 0
5 0 CF$= " " : F O R X = 1 TO 1 0 : READ A
60 CF$=CF$ + C H R$ C A ) : N E X T : 8=0
70 GOSUB 1 20 : Z t= I NS + " " + C H R$ C 1 3 )
80 F O R Z = l T O L EN C Z $ )
90 I F PEEK < Y > A N D 1 28=0 THEN 90
1 00 POKE Y , AS C < M I D$ C Z $ , Z , 1 l )
1 1 0 N E X T z :
8=0 : GOTO 70
1 20 8$=S T R I NG$ C 25 4 , J2 >
1 30 M l 0$ ( 8$ , 1 , 25 3 l = I N$ + " "
59
1 40 C=LEN C I NS >
1 5 0 P R I N T @ 0 , 8 $
1 60 P R I NT @ 8 , C H R$ C 1 42 ) ;
1 70 A $ = I NKEY$ : I F A$= " " THEN 1 70
1 80 I F C < B THEN C=B
1 90 P R I N T @ 8 , M I D$ C 8$ , 8+ 1 , 1 ) ;
200 CF= I NS T R C CF $ , A$ ) : I F C F THEN 2 5 0
2 1 0 D = A S C C A$ ) : I F D < 32 O R D > 96 THEN 1 60
220 I F 8 < 25 2 THEN 8 = 8 + 1 ELSE 1 60
230 P R I N T @ 8- 1 , A$ ;
240 M I D$ C B$ , 8 , 1 > =A $ : GOTO 1 60
25 0 O N C F GOTO 3 1 0 , 3 30 , 35 0 , 3 7 0
2 6 0 O N C F - 4 G O T O 3 90 , 4 20 , 460 , 4 70
270 I F C F =9 THEN 290
280 I N$ =M I D$ ( 8$ , 1 , 8 ) : C=B : GOTO 1 20
290 I N$=M I D$ ( 8$ , 1 , C )
300 I F C > 0 THEN RETURN
3 1 0 IF 8 > 0 THEN B=B- 1
320 GOTO 1 60
3 3 0 I F B < C THEN 8 = 8 + 1
340 G O T O 1 60
3 5 0 I F B > 3 1 THEN B=B-32 ELSE 8 = 0
360 GOTO 1 60
370 I F 8 < C C- 3 2 ) THEN 8=8+32 ELSE B= C
380 GOTO 1 60
390 M I D$ C 8$ , 8+ 1 ) = M I D$ ( 8$ , 8+2 )
400 M I D$ C 8$ , 25 J , 1 ) = " "
4 1 0 C = C- 1 - C C < l ) : GOTO 1 5 0
420 M I D$ ( 8$ , 8 + 2 ) =M I D$ ( 8$ , B+ 1 )
430 M I D S ( 8$ , 8+ 1 , 1 > = " "
4 4 0 M I D$ C 8$ , 2 5 3 , 1 ) = " "
4 5 0 C = C+ 1 + C C > 25 1 ) : GOTO 1 5 0
4 6 0 8 = 0 : GOTO 1 5 0
470 B = C : GOTO 1 5 0
4 8 0 P R I N T @ 0 , 8 $ : GOTO 1 60
490 DATA 9 , 9 , 94 , 1 0 , 2 1 , 93 , 95 , 9 1 , 1 3 , 1 2
60

Öffentlicher Link aktualisiert
Der öffentliche Link zu Ihrem Chat wurde aktualisiert.