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