screen 21
dim x as double
dim z as double
dim y as double
animate:
for x = 0 to 1300 step 1
z = x * (3.142 / 180)
for j = -80 to 500 step 20
y = j * 3 + sin(z) * 100
circle (x,y),12, &hff0000 + (abs(sin(z)*250)*256), , , ,F
next y
sleep 0.0001
next x