cls
color 5,7
screen 1
for a=1 to 319

cls
line (1,1)-(319,199),5,b
wait (10)
line (a,1)-(150,199)
next a
end