CLS
SCREEN 12
ax = 0
ay = 240
magsin = 20
c = 1
x = 0
DO
magsin = 20 * SIN(x)
FOR rot = 0 TO 40 STEP .4
LINE (ax, ay + magsin * SIN(rot))-(ax + 5, ay + magsin * SIN(rot + .4)), c
ax = ax + 5
NEXT rot
c = INT(RND * 6) + 1
ax = ax - 505


ax = ax + 4
ay = ay + 1
x = x + .1
LOOP UNTIL ay > 480