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
