1 REM Lol Simmonds 1992 10 REM JOYNOYZ 20 ONERRORGOTO200 30 MODE2:count=0 40 VDU23;8202;0;0;0; 50 P%=255-(ADVAL1/256):count=count+1 60 B=ADVAL2:A%=B/257 70 X%=ADVAL(0) AND 3 80 C%=3-X% 82 COLOUR X%+133 85 GCOL 0,1+(A%/84) 90 IFcount=1 PLOT3,5*P%,A%*4 100 ENVELOPE 1,2,0,-1,1,10,20,10,0,0,0,-1,100,100 110 SOUND C%,1,P%,X%*(A%/50) 120 SOUND &0013,1,A%,C%*(P%/50) 130 PLOT5,5*P%,A%*4 140 IFX%>0 PLOT1,X%*12,X%*8 150 IFINKEY$(1)="S" THEN *FX210,0 160 IFINKEY$(1)="Q" THEN *FX210,1 170 IFC%=0 GOTO50 180 IFcount>5 THEN CLS:count=1 190 GOTO50 200 MODE0:END