1
CLS
SCREEN 11, 0, 0
'GOTO 2
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
2
FOR a = 1 TO 640 STEP .04
x = a
y = 70 * SIN(x * 4) + 140
PSET (x, y)
NEXT a
GOTO 1