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 1

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

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:

ARRAY.LOAD a[],a1,a2~
b1,b2~
c1,c2~
d1,d2~
e1,e2~
f1,f2~
g1,g2


LIST.CREATE n,list1
LIST.ADD.ARRAY list1,a[]

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

gr.poly pt,list1

gr.render


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

!gr.poly pt,list1

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