F - Orgue. Tandy Cartouche de parole/son

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