REM Start of BASIC! Program

gr.open 255,255,255,255
gr.color 255,25,0,255,0
gr.rect rct1,50,40,60,15
gr.render
for i=50 to 100 step 1
gr.modify rct1, "left", i
gr.modify rct1, "right", (i+10)
gr.render
pause 1
next
pause 1
gr.close
END