CLS
SCREEN 11, 0, 0
'FOR a = 1 TO 640 STEP .06
'x = a
'y = 200 * SIN(x / 5 - 7 / a) / 7 + SIN(x + 45 - 34 / a * x - 32) * 7 + 240
'PSET (x, y)
'NEXT a
FOR a = 1 TO 640 STEP .06
x = a
y = 40 * SIN(5 - 23 / x ^ 2 - 233 / 7 * 9 * 2) * 3 + SIN(SIN(SIN(x / 5) - 3)) + 140
PSET (x, y)
NEXT a