10MODE2 20c=0 30VDU29,640;512; 40t=PI/100 50FOR s=0 TO 2*PI STEP t 60c=(c+1) MOD 8 70GCOL 0,c 80MOVE 0,0 90MOVE 400*COS(s-t),100*SIN(s-t) 100PLOT 85,100*COS(s),400*SIN(s) 110NEXT