REM Start of BASIC! Program

gr.open 255,255,255,255
gr.color 255,25,0,255,0
gr.orientation 1

for i=200 to 400 step 1

gr.rect rct1,i,i,200,i

gr.render

next i

pause 10000

gr.close

END