REM Spirals by RG Weston 19-11-02
      MODE8:OFF
      REPEAT
        ORIGIN RND(1300),RND(1100)
        R=1: L=10+RND(100) :c=RND(9)
        MOVE 0,0
        REPEAT
          t=t+20 :R=R+0.5: GCOL0,c : REM PRINTTAB(0,0)c,L;"   ",R;"    "
          DRAW R*COSRADt,R*SINRADt
          REM delay=INKEY(1)
        UNTIL R>L
      UNTIL FALSE