10REM Wavey Colours 20REM By Andrew Snodgrass 30REM v1.01 2nd June 1993 40REM <<< 8 Bit Software >>> 50: 60MODE2:*LO. Wavscr FFFF3000 70PROCcircle(0,200,1,50,1) 80PROCcircle(1250,600,5,-50,-1) 90PROCcircle(0,1000,1,50,1) 100G=GET 110DIM c(7) 120FOR no=1 TO 7 130c(no)=no 140NEXT 150FOR pass=1 TO 90 160FOR no=1 TO 7 170no2=no+1 180IFno2=8 no2=1 190VDU19,no,no2,0,0,0 200NEXT 210NEXT 220END 230: 240DEFPROCcircle(MX,MY,CL,sh,ord) 250FOR M=0TO29 STEP1 260GCOL0,CL 270MOVE MX,MY 280FOR I=0TO2.1*PI STEP 0.1 290MOVE MX,MY 300X=MX+200*SIN(I) 310Y=MY+200*COS(I) 320PLOT85,X,Y 330NEXT 340MX=MX+sh:CL=CL+ord 350IFord=1AND CL>=8 CL=1 360IFord=-1AND CL<1 CL=7 370NEXT 380ENDPROC