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