CODINGLISTINGS ★ MUSIQUE RENDEZ-VOUS ★

Musique Rendez-vousCoding Listings

10 '***** MUSIQUE *****
20 w=15
30 ENV 3,14,-1,1:ENV 2,1,1,1,15,0,1,7,-1,1
40 FOR a=1 TO 15:b=b+1:c=c+1.3:SOUND 1,716,23,12,2:SOUND 2+16,0,23,b,,,c:SOUND 4+32,0,23,0:NEXT a
50 FOR tr=1 TO 2:tes=1:ENV 2,18,0,1,5,-1,1:z=1:RESTORE 270:FOR a=1 TO 24:READ n
60 IF a=24 THEN ENV 4,20,0,1,3,-1,1
70 SOUND 1,716/z,23,14,2,1:SOUND 2+16,n,23,13,4:SOUND 4+32,0,23,15,3,,w
80 IF w=15 THEN w=31 ELSE IF w=31 THEN w=15
90 IF tes=2 THEN RETURN
100 NEXT a
110 tes=2:z=1.497908:ENV 4,23,0,1:FOR a=1 TO 4:n=142:GOSUB 70:NEXT a:FOR a1=1 TO 12:n=159:GOSUB 70
120 IF a1=11 AND tr=2 THEN 140
130 NEXT a1:NEXT tr:END
140 tes=2:n=239:GOSUB 70:n=179:z=1.335821:FOR a=1 TO 15:GOSUB 70:NEXT a:n=239:GOSUB 70:n=179:z=1
150 FOR a2=1 TO 16:GOSUB 70:IF p=1 AND a2=12 THEN 180
160 NEXT a2:p=p+1
170 GOTO 50
180 tes=2:RESTORE 280:FOR a=1 TO 4:READ n:GOSUB 70:NEXT a:z=1.680751:RESTORE 290:FOR a=1 TO 8:READ n:GOSUB 70:NEXT a:z=1.335821:RESTORE 290:FOR a=1 TO 8:READ n:GOSUB 70:NEXT a
190 tes=2:z=1.122257:RESTORE 300:FOR a=1 TO 7:READ n:GOSUB 70:NEXT a:FOR a=1 TO 9:n=190:z=1.497908:GOSUB 70:NEXT a
200 tes=2:RESTORE 310:FOR a=1 TO 8:READ n:FOR b=1 TO 4:GOSUB 70:NEXT b:NEXT a
210 FOR fgh=1 TO 2
220 n=179:z=2:GOSUB 230:n=179:z=1.680751:GOSUB 230:n=179:z=1.335821:GOSUB 230:n=179:GOTO 250
230 FOR a=1 TO 10:GOSUB 70:NEXT a:
240 RESTORE 320:FOR a=1 TO 6:READ n:GOSUB 70:NEXT a:RETURN
250 z=1:FOR a=1 TO 16:GOSUB 70:NEXT a
260 NEXT fgh:GOTO 50
270 DATA 239,239,239,179,142,142,142,239,134,134,142,239,239,239,239,179,134,134,142,239,239,239,239,142
280 DATA 190,179,190,179
290 DATA 213,213,213,213,190,179,190,179
300 DATA 134,134,142,142,159,159,179
310 DATA 319,239,179,134,119,119,119,119
320 DATA 159,142,134,142,159,142

★ ÉDITEUR: Amstrad Magazine
★ LICENCE: LISTING
★ ANNÉE: 1987
★ CONFIG: 64K + AMSDOS
★ LANGAGE:
★ AUTEUR(S): ???

CPCrulez[Content Management System] v8.75-desktop/c
Page créée en 059 millisecondes et consultée 50 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.