10 dx=1: x=scw(0)/2-20
20 cls:setcolor 0,0,0
30 fillrect x,y,40,sch(0)/2-20
40 x=x+dx
50 if x<=0 then dx=1
60 if x>=scw(0)-40 then dx=-1
70 sleep 10
80 goto 20