' *********** CHECK README.1ST FIRST *********************

SCREEN 13

s = 0
s1 = 0

DO

  FOR i = 16 TO 31
   s = s + .0666
   x = 95 * COS(s)
   y = 95 * SIN(s)
   LINE (160, 100)-(x + 160, y + 100), 0
  NEXT i

  FOR i = 16 TO 31
   s = s + .0666
   x = 95 * COS(s)
   y = 95 * SIN(s)
   LINE (160, 100)-(x + 160, y + 100), i
  NEXT i

LOOP UNTIL INKEY$ <> ""