CODINGLISTINGS ★ SOUND - SARABANDE ★

Sound - SarabandeCoding Listings

100 CLS
110 LOCATE 1,10
120 PRINT"***************************************"
130 PRINT" SARABANDE"
140 PRINT" d'apres HAENDEL"
150 PRINT
160 PRINT" adaptation D. LEMAHIEU"
170 PRINT" 10/85"
180 PRINT
190 PRINT"***************************************":PEN 3:PRINT:PRINT"Un instant svp"
200 '
210 '
220 '
230 DATA "06020","10022","03022"
240 DATA "06020","10020","03022"
250 DATA "00040","00040","00040"
260 DATA "08040","05041","00040"
270 '
280 DATA "05020","10022","10020"
290 DATA "05020","10020","10020"
300 DATA "00040","00040","10040"
310 DATA "00040","00040","08040"
320 '
330 DATA "10020","01021","06020"
340 DATA "10020","01020","06020"
350 DATA "00040","00040","00040"
360 DATA "11040","08040","00040"
370 '
380 DATA "08020","01020","01021"
390 DATA "08020","01020","01020"
400 DATA "00040","00040","11042"
410 DATA "10040","01040","10040"
420 '
430 DATA "11020","03020","08020"
440 DATA "11020","03020","08021"
450 DATA "00040","00040","08042"
460 DATA "01041","10040","08040"
470 '
480 DATA "10022","03020","03021"
490 DATA "10020","03020","03020"
500 DATA "00040","00040","00040"
510 DATA "10040","05040","01040"
520 '
530 DATA "03021","03020","11022"
540 DATA "03020","03020","11021"
550 DATA "00040","00040","00040"
560 DATA "05040","11040","08040"
570 '
580 DATA "02020","05020","10020"
590 DATA "02020","05020","10022"
600 DATA "00040","00040","08041"
610 DATA "00040","00040","06040"
620 '
630 DATA "06022","10022","03020"
640 DATA "06020","10020","03022"
650 DATA "00040","00040","00040"
660 DATA "08040","05041","00040"
670 '
680 DATA "05020","10022","10020"
690 DATA "05020","10020","10020"
700 DATA "00040","00040","10040"
710 DATA "00040","00040","08040"
720 '
730 DATA "10020","01021","06020"
740 DATA "10020","01020","06020"
750 DATA "00040","00040","00040"
760 DATA "11040","08040","00040"
770 '
780 DATA "08020","01020","01021"
790 DATA "08020","01020","01020"
800 DATA "00040","00040","11042"
810 DATA "10040","01040","10040"
820 '
830 DATA "11040","03040","08040"
840 DATA "11040","03040","08041"
850 DATA "11040","01040","05040"
860 DATA "11040","01040","08040"
870 DATA "00040","00040","01040"
880 DATA "01041","01041","05040"
890 '
900 DATA "10022","01022","06020"
910 DATA "10040","01040","06040"
920 DATA "10040","06040","03040"
930 DATA "03041","06040","11040"
940 DATA "02040","06040","11040"
950 '
960 DATA "03040","11040","08040"
970 DATA "05040","11040","08040"
980 DATA "06020","10020","10020"
990 DATA "05040","08040","10042"
1000 DATA "03040","08040","10040"
1010 '
1020 DATA "03020","06020","03021"
1030 DATA "03020","06020","03022"
1040 DATA "00020","00020","00022"
1050 '
1060 '
1070 '
1080 nn=67
1090 DIM o(nn,3),p(nn,3),d(nn,3)
1100 o(0,1)=0:o(0,2)=0:o(0,3)=0
1110 FOR i=1 TO nn
1120 FOR j=1 TO 3
1130 READ x$
1140 o=VAL(RIGHT$(x$,1))
1150 IF o=1 THEN o(i,j)=o(i-1,j)+1 ELSE IF o=2 THEN o(i,j)=o(i-1,j)-1 ELSE o(i,j)=o(i-1,j)
1160 y=VAL(LEFT$(x$,2))
1170 IF y=0 THEN p(i,j)=0:GOTO 1200
1180 f=440*2^(o(i,j)+(y-10)/12)
1190 p(i,j)=ROUND(62500/f)
1200 d$=MID$(x$,3,2)
1210 d=VAL (d$)
1220 d(i,j)=160/d
1230 NEXT j
1240 NEXT i
1250 '
1260 '
1270 '
1280 ENV 1,2,5,5
1290 FOR i=1 TO nn
1300 SOUND 1,p(i,1),d(i,1),0,1
1310 SOUND 2,p(i,2),d(i,2),0,1
1320 SOUND 4,p(i,3),d(i,3),0,1
1330 NEXT i


★ EDITEUR(S): ???
★ ANNÉE: 1985
★ AUTEUR: D. LEMAHIEU (Adaptation) , d'apres HAENDEL

CPCrulez[Content Management System] v8.7-desktop/cache
Page créée en 130 millisecondes et consultée 408 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.