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