CODINGLISTINGS ★ MUSIC GALORE ★

Music GaloreCoding Listings

10 PAPER 0:CLS:MODE 1:PEN 3:INK 0,0:PRINT "<<<<<<<<<<<<< MUSIC GALORE >>>>>>>>>>>>> By Laurence Rapaccioli":PRINT:PRINT:PRINT:PRINT"1. RUNNING MUSIC":PRINT"2. MYSTERIOUS Music":PRINT"3. FIRE POWER":PRINT"4. CRAZY ROCKET":PRINT"5. SPOOKY"
20 PRINT"6. FINISH":PRINT:PEN 2:PRINT" (DON'T ENTER A NUMBER WHILE PREVIOUS MUSIC IS STILL PLAYING)":PRINT:PEN 1:INPUT "Please Enter Number To Choose From";a:ON a GOSUB 30,40,50,60,70:IF a=6 THEN LOCATE 10,20:PEN 3:PRINT"Goodbye!":END
30 ENV 1,1,15,1,10,-1,1:ENT 1,1,15,2,1,-15,2:ENV 2,1,15,1,15,-1,70:RESTORE 80:FOR M=1 TO 14:READ A,B:SOUND 2,B,352,13,2::FOR N=0 TO 31:SOUND 1,A,0,0,1,1,N:SOUND 4,A+1,0,0,1:NEXT N,M:GOTO 10
40 ENV 1,1,15,1,10,-1,15:RESTORE 90:FOR N=1 TO 26:READ A,B:SOUND 1,A,B,0,1:SOUND 2,A+1,B,0,1:SOUND 4,A+2,B,0,1:NEXT N:GOTO 10
50 ENT -8,15,-8,1,15,8,1:ENT -5,30,-8,4,30,8,4:ENT -1,5,-10,1,5,10,1:SOUND 2,200,400,12,,8:SOUND 1,948,400,12,,5:SOUND 1,948,800,12,,5:SOUND 2,100,800,12,,1:SOUND 1,200,870,12,,8:SOUND 2,100,870,12,,5:FOR N=1 TO 14000:NEXT:GOTO 10
60 ENT 1,31,31,1,31,-31,1:ENV 1,27,15,1,27,-15,1:FOR N=1 TO 31 STEP 2:SOUND 1,N*10,0,0,1,1,N:NEXT N:FOR N=1 TO 25 STEP 2:SOUND 1,0,0,15,,1,N:SOUND 2,N*10,0,0,1,1,32-N:NEXT N:GOTO 10
70 RANDOMIZE TIME:ENV 1,1,0,1,15,1,6:ENT -1,5,3,1,5,-3,1:PRINT "Press Space To Finish":WHILE INKEY$<>" ":SOUND 1,100+RND*450,0,0,1,1:SOUND 2,700+RND*700,0,0,1,1:SOUND 4,750+RND*800,0,0,1,1:WEND:FOR N=1 TO 2500:NEXT:GOTO 10
80 DATA 185,250,235,310,200,250,250,185,155,235,127,200,116,185,127,200,155,185,155,210,155,235,140,185,130,185,125,200
90 DATA 150,0,150,20,140,20,125,40,150,20,190,40,150,60,170,0,170,20,150,20,140,40,150,20,170,35,170,0,170,20,150,20,140,40,150,20,170,40,170,60,190,0,150,20,140,20,125,40,150,20,190,35

★ PUBLISHER: Amstrad Computer User
★ LICENCE: LISTING
★ ANNÉE: 1990
★ CONFIG: 64K + AMSDOS
★ LANGAGE:
★ AUTHOR: Laurence Rapaccioli

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