CODINGLISTINGS ★ SOUND - ONZIEME SONATE DE MOZART ★

Sound - onzieme sonate de MOZARTCoding Listings

1 ' ******************************
2 ' * *
3 ' * Motif de la onzieme sonate *
4 ' * *
5 ' * MOZART *
6 ' * *
7 ' * Programme : Henri Bittner *
8 ' * *
9 ' ******************************
10 '
20 a=12:b=a*2:c=a*3:d=a*4:e=a*6
30 q=0:w=0:y=0
40 SOUND 1,213,c:SOUND 1,190,a:SOUND 1,213,b:SOUND 1,169,d:SOUND 1,169,b
50 SOUND 2,84,c:SOUND 2,80,a:SOUND 2,84,b:SOUND 2,71,d:SOUND 2,71,b
60 SOUND 4,142,b:SOUND 4,142,b:SOUND 4,142,b:SOUND 4,142,d:SOUND 4,142,b
70 SOUND 1,225,c:SOUND 1,213,a:SOUND 1,225,b:SOUND 1,190,d:SOUND 1,190,b
80 SOUND 2,95,c:SOUND 2,84,a:SOUND 2,95,b:SOUND 2,80,d:SOUND 2,80,b
90 SOUND 4,142,b:SOUND 4,142,b:SOUND 4,142,b:SOUND 4,142,d:SOUND 4,142,b
100 IF q=1 OR q=3 OR q=4 THEN q=q+1:GOTO 190
110 q=q+1
120 SOUND 1,253,d:SOUND 1,253,b:SOUND 1,225,d:SOUND 1,225,b:SOUND 1,213,d
130 SOUND 2,106,d:SOUND 2,106,b:SOUND 2,95,d:SOUND 2,95,b:SOUND 2,84,d
140 SOUND 4,142,d:SOUND 4,142,b:SOUND 4,142,d:SOUND 4,142,b:SOUND 4,142,d
150 SOUND 1,319,a:SOUND 1,319,a:SOUND 1,284,b:SOUND 1,284,b:SOUND 1,284,b
160 SOUND 2,71,a:SOUND 2,80,a:SOUND 2,84,b:SOUND 2,84,b:SOUND 2,95,b
170 SOUND 4,95,a:SOUND 4,95,a:SOUND 4,106,b:SOUND 4,106,b:SOUND 4,113,b
180 GOTO 40
190 SOUND 1,253,d:SOUND 1,225,b:SOUND 1,213,d:SOUND 1,319,b:SOUND 1,284,d
200 SOUND 2,106,d:SOUND 2,95,b:SOUND 2,84,d:SOUND 2,95,b:SOUND 2,84,d
210 SOUND 4,142,d:SOUND 4,142,b:SOUND 4,142,d:SOUND 4,142,b:SOUND 4,106,d
220 IF w=2 THEN 400
230 SOUND 1,159,a:SOUND 1,159,a:SOUND 1,169,b:SOUND 1,169,b:SOUND 1,0,e,0
240 SOUND 2,95,a:SOUND 2,95,a:SOUND 2,106,b:SOUND 2,106,b:SOUND 2,0,e,0
250 SOUND 4,113,a:SOUND 4,113,a:SOUND 4,169,b:SOUND 4,169,b:SOUND 4,0,e,0
260 IF q=4 THEN 280
270 w=1:GOTO 40
280 SOUND 1,213,b:SOUND 1,169,b:SOUND 1,71,b,1:SOUND 1,213,b:SOUND 1,159,b
290 SOUND 2,71,c:SOUND 2,63,a:SOUND 2,71,b:SOUND 2,63,b:SOUND 2,63,b
300 SOUND 1,63,b,1:SOUND 1,213,b:SOUND 1,159,b:SOUND 1,63,b,1:SOUND 1,213,b
310 SOUND 2,63,b:SOUND 2,56,c:SOUND 2,60,a:SOUND 2,63,b:SOUND 2,63,b
320 SOUND 1,169,b:SOUND 1,71,b,1:SOUND 1,213,b:SOUND 1,213,b:SOUND 1,213,b
330 SOUND 2,71,b:SOUND 2,71,b:SOUND 2,71,b:SOUND 2,84,b:SOUND 2,106,b
340 SOUND 1,225,b:SOUND 1,225,b:SOUND 1,225,b:SOUND 1,213,b:SOUND 1,213,b
350 SOUND 2,71,b:SOUND 2,80,b:SOUND 2,95,b:SOUND 2,71,b:SOUND 2,84,b
360 SOUND 1,253,a:SOUND 1,253,a:SOUND 1,284,b:SOUND 1,284,b:SOUND 1,284,b
370 SOUND 2,106,a:SOUND 2,106,a:SOUND 2,84,b:SOUND 2,84,b:SOUND 2,95,b
380 SOUND 4,150,a:SOUND 4,150,a:SOUND 4,106,b:SOUND 4,106,b:SOUND 4,113,b
390 w=2:GOTO 40
400 '
410 SOUND 1,284,a:SOUND 1,284,a:SOUND 1,213,b:SOUND 1,213,b:SOUND 1,213,b
420 SOUND 2,95,a:SOUND 2,95,a:SOUND 2,95,b:SOUND 2,95,b:SOUND 2,84,b
430 SOUND 4,113,a:SOUND 4,113,a:SOUND 4,113,b:SOUND 4,113,b:SOUND 4,106,b
440 SOUND 1,213,b:SOUND 1,213,b:SOUND 1,190,b:SOUND 1,169,b:SOUND 1,169,b
450 SOUND 2,84,b:SOUND 2,84,b:SOUND 2,80,b:SOUND 2,71,b:SOUND 2,71,b
460 SOUND 4,142,b:SOUND 4,142,b:SOUND 4,113,b:SOUND 4,106,b:SOUND 4,142,b
470 SOUND 1,159,a:SOUND 1,159,a/2:SOUND 1,159,a/2:SOUND 1,106,a:SOUND 1,106,a
480 SOUND 2,63,a:SOUND 2,60,a/2:SOUND 2,53,a/2:SOUND 2,106,a:SOUND 2,106,a
490 SOUND 1,284,b:SOUND 1,159,b:SOUND 1,213,b:SOUND 1,213,b:SOUND 1,0,b,0
500 SOUND 2,106,b:SOUND 2,84,a:SOUND 2,95,a:SOUND 2,106,d:SOUND 2,0,b,0
510 SOUND 4,284,b,1:SOUND 4,113,b:SOUND 4,169,b:SOUND 4,169,b:SOUND 4,0,b,0
520 IF y=1 THEN END
530 SOUND 1,213,a:SOUND 1,213,a:SOUND 1,213,a:SOUND 1,213,a:SOUND 1,213,a
540 SOUND 2,89,a:SOUND 2,95,a:SOUND 2,106,a:SOUND 2,95,a:SOUND 2,89,a
550 SOUND 1,213,a:SOUND 1,179,a:SOUND 1,179,a:SOUND 1,179,a:SOUND 1,179,a
560 SOUND 2,80,a:SOUND 2,71,a:SOUND 2,75,a:SOUND 2,67,a:SOUND 2,71,a
570 SOUND 1,213,a:SOUND 1,213,a:SOUND 1,284,a:SOUND 1,284,a:SOUND 1,284,a
580 SOUND 2,80,a:SOUND 2,89,a:SOUND 2,95,a:SOUND 2,106,a:SOUND 2,113,a
590 SOUND 1,284,a:SOUND 1,284,a:SOUND 1,284,a:SOUND 1,190,a:SOUND 1,190,a
600 SOUND 2,106,a:SOUND 2,95,a:SOUND 2,89,a:SOUND 2,80,a:SOUND 2,84,a
610 SOUND 1,190,a:SOUND 1,190,a:SOUND 1,284,a:SOUND 1,284,a:SOUND 1,213,a
620 SOUND 2,71,a:SOUND 2,80,a:SOUND 2,89,a:SOUND 2,95,a:SOUND 2,106,a
630 SOUND 1,213,a:SOUND 1,213,a:SOUND 1,213,a:SOUND 1,213,a:SOUND 1,213,a
640 SOUND 2,71,a:SOUND 2,75,a:SOUND 2,71,a:SOUND 2,89,a:SOUND 2,106,a
650 SOUND 1,190,a:SOUND 1,190,a:SOUND 1,190,a:SOUND 1,190,a:SOUND 1,190,a
660 SOUND 2,113,a:SOUND 2,71,a:SOUND 2,67,a:SOUND 2,71,a:SOUND 2,80,a
670 SOUND 1,190,a:SOUND 1,179,a:SOUND 1,179,a:SOUND 1,190,a:SOUND 1,190,a
680 SOUND 2,95,a:SOUND 2,95,a:SOUND 2,106,a:SOUND 2,113,a:SOUND 2,106,a
690 SOUND 1,213,a:SOUND 1,213,a:SOUND 1,106,a:SOUND 1,106,a:SOUND 1,106,a
700 SOUND 2,95,a:SOUND 2,89,a:SOUND 2,284,a:SOUND 2,142,a:SOUND 2,150,a
710 SOUND 4,213,a,1:SOUND 4,213,a,1:SOUND 4,89,a:SOUND 4,89,a:SOUND 4,89,a
720 SOUND 1,106,a:SOUND 1,113,a:SOUND 1,142,a:SOUND 1,213,a:SOUND 1,213,a
730 SOUND 2,89,a:SOUND 2,95,a:SOUND 2,95,a:SOUND 2,89,a:SOUND 2,95,a
740 SOUND 4,142,a:SOUND 4,113,a,1:SOUND 4,142,a,1:SOUND 4,213,a,1:SOUND 4,213,a,1
750 SOUND 1,213,a:SOUND 1,213,a:SOUND 1,213,a:SOUND 1,213,a:SOUND 1,179,a
760 SOUND 2,106,a:SOUND 2,95,a:SOUND 2,89,a:SOUND 2,80,a:SOUND 2,71,a
770 SOUND 1,179,a:SOUND 1,179,a:SOUND 1,179,a:SOUND 1,213,a:SOUND 1,213,a
780 SOUND 2,75,a:SOUND 2,67,a:SOUND 2,71,a:SOUND 2,80,a:SOUND 2,89,a
790 SOUND 1,284,a:SOUND 1,284,a:SOUND 1,284,a:SOUND 1,284,a:SOUND 1,284,a
800 SOUND 2,95,a:SOUND 2,106,a:SOUND 2,113,a:SOUND 2,106,a:SOUND 2,95,a
810 SOUND 1,284,a:SOUND 1,190,a:SOUND 1,190,a:SOUND 1,190,a:SOUND 1,190,a
820 SOUND 2,89,a:SOUND 2,80,a:SOUND 2,84,a:SOUND 2,71,a:SOUND 2,80,a
830 SOUND 1,284,a:SOUND 1,284,a:SOUND 1,213,a:SOUND 1,213,a:SOUND 1,213,a
840 SOUND 2,89,a:SOUND 2,95,a:SOUND 2,106,a:SOUND 2,113,a:SOUND 2,106,a
850 SOUND 1,213,a,1:SOUND 1,225,a:SOUND 1,225,a:SOUND 1,106,a:SOUND 1,106,a
860 SOUND 2,89,a:SOUND 2,95,a:SOUND 2,80,a:SOUND 2,89,a:SOUND 2,95,a
870 SOUND 1,213,a:SOUND 1,213,a:SOUND 1,134,a:SOUND 1,134,a:SOUND 1,142,a
880 SOUND 2,89,a:SOUND 2,71,a:SOUND 2,80,a:SOUND 2,67,a:SOUND 2,71,a
890 SOUND 1,142,a:SOUND 1,142,a:SOUND 1,142,a:SOUND 1,284,a:SOUND 1,284,a
900 SOUND 2,75,a:SOUND 2,71,a:SOUND 2,142,a:SOUND 2,127,a:SOUND 2,113,a
910 SOUND 1,213,a:SOUND 1,142,a:SOUND 1,89,a:SOUND 1,142,a:SOUND 1,213,b
920 SOUND 2,106,a:SOUND 2,106,a:SOUND 2,106,a:SOUND 2,106,a:SOUND 2,0,b,0
930 q=0:w=0:y=1
940 GOTO 40

★ EDITEUR: CPC REVUE
★ ANNÉE: 1986
★ AUTEUR: HENRI BITTNER

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 886 millisecondes et consultée 406 fois

L'Amstrad CPC est une machine 8 bits à base d'un Z80 à 4MHz. Le premier de la gamme fut le CPC 464 en 1984, équipé d'un lecteur de cassettes intégré il se plaçait en concurrent  du Commodore C64 beaucoup plus compliqué à utiliser et plus cher. Ce fut un réel succès et sorti cette même années le CPC 664 équipé d'un lecteur de disquettes trois pouces intégré. Sa vie fut de courte durée puisqu'en 1985 il fut remplacé par le CPC 6128 qui était plus compact, plus soigné et surtout qui avait 128Ko de RAM au lieu de 64Ko.