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