CLS
SCREEN 2
s = .01
i = 0
j = .7
DO WHILE i < 30
        FOR x = 0 TO 7 STEP s
                LINE (x * 100 - s, 50 + 15 * SIN(x - s + j))-(x * 100, 50 + 15 * SIN(x + j))
                LINE (x * 100 - s, 100 + 20 * SIN(x - s + i))-(x * 100, 100 + 20 * SIN(x + i))
        NEXT
        i = i + .3
        j = j + .7
        CLS
LOOP