100 REM Musician 110 GRAPHICS 19 120 DIM SC(21),MU(1024) 130 FOR I=0 TO 21 140 READ SC 150 SC(I)=SC 160 NEXT I 170 DATA 243,217,193,182,162,144 180 DATA 128,121,108,96,91,81,72 190 DATA 64,60,53,47,45,40,35,31,29 200 PER=INT(13*RND(0))+3 210 PHR=INT(54*RND(0))+10 220 FOR I=0 TO PHR 230 BASE=INT(15*RND(0)) 240 FOR J=0 TO PER 250 MU(J+I*PER)=BASE+INT(8*RND(0)) 260 NEXT J 270 NEXT I 280 RPT=INT(3*RND(0))+2 290 SPD=0.5+2*RND(0) 300 FOR I=0 TO PHR 310 IF X0>39-PER THEN X0=0:GRAPHICS 19 320 FOR J=0 TO RPT 330 FOR K=0 TO PER-1 340 X=X0+K:Y=MU(K+I*PER) 350 COLOR 1:PLOT X,23-Y 360 P=PEEK(53279) 370 IF P=6 THEN POP :X0=40:GOTO 300 380 IF P=5 THEN RUN 390 IF P=3 THEN POP :GOTO 320 400 CHAN=INT(RND(0)*4) 410 FOR V=15 TO 2 STEP -SPD 420 SOUND CHAN,SC(Y),10,V 430 NEXT V 440 COLOR 3:PLOT X,23-Y 450 NEXT K 460 NEXT J 470 X0=X0+PER+1:POKE 77,0 480 NEXT I 490 FOR I=0 TO 500:NEXT I 500 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I 510 X0=0:GRAPHICS 19:GOTO 200