REM Start of BASIC!Program

gr.open 255,255,255,255
gr.orientation 1
gr.screen w,h

gr.set.antialias 0
gr.set.stroke 0


a1=10
a2=10
b1=10
b2=10
c1=10
c2=10
d1=10
d2=10
e1=10
e2=10
f1=10
f2=10
g1=10
g2=10

cikl:

gr.color 255,0,0,0,1

gr.line s1,a1,a2,b1,b2

gr.line s2,b1,b2,c1,c2

gr.line s3,c1,c2,d1,d2

gr.line s4,d1,d2,e1,e2

gr.line s5,e1,e2,f1,f2

gr.line s6,f1,f2,g1,g2 

gr.line s7,g1,g2,a1,a2

gr.render


gr.color 255,255,255,255,1

gr.line s1,a1,a2,b1,b2

gr.line s2,b1,b2,c1,c2

gr.line s3,c1,c2,d1,d2

gr.line s4,d1,d2,e1,e2

gr.line s5,e1,e2,f1,f2

gr.line s6,f1,f2,g1,g2

gr.line s7,g1,g2,a1,a2

a1=a1+rnd()*2
a2=a2+rnd()*2
b1=b1+rnd()*2
b2=b2+rnd()*2
c1=c1+rnd()*2
c2=c2+rnd()*2
d1=b1+rnd()*2
d2=d2+rnd()*2
e1=e1+rnd()*2
e2=e2+rnd()*2
f1=f1+rnd()*2
f2=f2+rnd()*2
g1=g1+rnd()*2
g2=g2+rnd()*2

gr.render

goto cikl