screen _newimage(40, 5, 0)

GOSUB DisplayStuff
for x = 0 to 39
 scroll (todo, todo) - (todo, todo), -1, 0
 _delay 0.5
next x
_delay 1

GOSUB DisplayStuff
for x = 0 to 39
 scroll (todo, todo) - (todo, todo), +1, 0
 _delay 0.5
next x

end

DisplayStuff:

for x = 0 to 39
 line (x,0) - (x, 4), x mod 14 + 1
next x 
_delay 1

RETURN