REM Lissajous_5_7 by RG Weston 01/01/03
      MODE8:OFF
      ORIGIN 600,500
      R=200
      FOR a=1 TO 5
        FOR b=1 TO 7
          PRINTTAB(15,0)"x = R*COSRAD(t*a)    y = R*SINRAD(t*b)"
          PRINTTAB(28,1)"a = ";a
          PRINTTAB(38,1)"b = ";b
          c=RND(15):IF c=8 THEN c=9
          GCOL0,c
          FOR t=0 TO 360
            IF t=0 MOVE R*COSRAD(t*a),R*SINRAD(t*b)
            DRAW R*COSRAD(t*a),R*SINRAD(t*b)
            delay$=INKEY$(1)
          NEXT
          delay$=INKEY$(100)
          CLS
        NEXT
      NEXT
      PRINT"Lissajous has ended..."