MODE8:OFF
      ORIGIN 640,512
      REPEAT
        a=a+1
        GCOL0,15:PLOT69,0,0
        R=50
        FOR n=1 TO 10
          R=R+RND(100):c=RND(15):IF c=8 THEN c=15
          COLOUR 15:PRINTTAB(0,0)"Radius = ";R;SPC(3)
          COLOUR c:PRINTTAB(0,4)"Colour = ";c;SPC(3)
          MOVE R,0
          GCOL0,c
          FOR t=0 TO 360
            COLOUR 15:PRINTTAB(1,2)"Angle = ";t
            DRAW R*COSRADt,R*SINRADt
            IF a<2 AND n<4 THEN
              delay$=INKEY$(1)
              IF delay$=" " THEN END
            ENDIF
          NEXT
          delay$=INKEY$(100/a)
        NEXT
        CLS:
      UNTIL FALSE