From the dreadful Falling Triangles! to this... haha. I like this one.
Sort of has a 'relax and watch' feel. I watched it for awhile... to see how it would look when it went off screen :P
open window 640, 512
y = 256
label loop
setdrawbuf db
db = 1 - db
setdispbuf db
pek = ran(2) - 1
x = x + 1
if x > 640 x = 0
y = y + sin(pek) * 5
if y < 0 y = 512
if y > 512 y = 0
setrgb 1, 0, 100 + (ran(80) + 20), 0
fill rect x - 4, y - 2, x, y + 2
clear fill rect x, 0, x + 1, 512
goto loop
Like a heart monitor or something does the line go offscreen at the top and wrap around how long does it take?