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 .04
x = a
y = 40 * SIN(x / 7 + 9 * 2) + 140
PSET (x, y)
NEXT a