% rem start of basic! program

GR.OPEN 255,0,0,0
GR.ORIENTATION 1

gr.screen f,h

gr.set.stroke 2

gr.color 250,0,255,0,0

gr.rect o,100,100,500,500
gr.rect t,200,200,400,400

gr.color 250,255,0,0,0

gr.circle o,300,300,200
gr.circle o,300,300,100

gr.color 255,0,0,250,0

gr.line l1,100,100,500,500
gr.line l2,100,500,500,100

gr.color 255,255,255,0,0
gr.line l3,100,300,500,300
gr.line l4,300,100,300,500

gr.set.stroke 1

gr.color 255,0,0,0

for f=0 to 128

   gr.line fon,0,f*10,h,f*10
   gr.line fon,0,f*10+1,h,f*10+1
   gr.line fon,f*10,0,f*10,h
   gr.line fon,f*10+1,0,f*10+1,h

next f

 gr.render

do

until 0