start:
SCREEN 7
WINDOW (-1.75, 1.4)-(1.75, -1.4)
CLS
FOR j = 0 TO 15 STEP .5
FOR k = 0 TO 50 STEP .5
n = (k * 2) * (3.141596 / 50)
m = j * (3.141596 / 15)
x = SIN(m) * COS(n)
y = ((SIN(m)) * (((-1) + (2 / 3.141596)) * ((SIN(n))))) + COS(m)
PSET (x, y)
NEXT k
NEXT j
FOR x = 1 TO 1000000
NEXT x
SCREEN 7
WINDOW (-20, 13)-(20, -13)
CLS
FOR j = -20 TO 20 STEP .02
a = j
b = 0
FOR k = 1 TO 15 STEP 2
b = b + ((1 / k) * SIN(k * j))
NEXT k
x = a
y = b
PSET (x, y)
NEXT j
FOR x = 1 TO 1000000
NEXT x
SCREEN 7
WINDOW (-1.75, 1.4)-(1.75, -1.4)
CLS
FOR j = 0 TO 15 STEP .2
  FOR k = 0 TO 50 STEP .2
n = (k * 2) * (3.141596 / 50)
m = j * (3.141596 / 15)
a = (SIN(m)) * COS(n)
o = 0
FOR w = 1 TO 7 STEP 2
o = o + ((1 / w) * SIN(w * n))
NEXT w
b = (((SIN(m)) * (((-1) + (2.5 / 3.141596)) * o))) + (COS(m))
x = a
y = b
PSET (x, y)
NEXT k
NEXT j
FOR x = 1 TO 1000000
NEXT x
l = l + 1
IF (l > 15) THEN l = 1
COLOR (l)
GOTO start