REM Start of BASIC! Program

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

for i=400 to 0 step -10

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

gr.render

next i

pause 10000

gr.close

END