CLS
SCREEN 11, 0, 0
FOR a = 0 TO 7 * 3.14159 STEP .001#
x = 100 * SIN(a / 3) * COS(a * 3) - SIN(a + 32) + 320
y = 100 * COS(a - 24) / (SIN(COS(a / 3))) + 240
PSET (x, y)
NEXT a