CLS
SCREEN 11, 0, 0
LINE (320, 0)-(320, 480)
LINE (0, 240)-(640, 240)
FOR a = 1 TO 640 STEP .06
x = a
y = 200 * SIN(x / 5 - 2 / a) / 7 + SIN(x + 345 - 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