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.cls

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

gr.render

goto cikl