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 dim a[14] gr.color 255,255,0,0,1 for q=1 to 14 a[q]=10 next cikl: LIST.CREATE n,list1 LIST.ADD.ARRAY list1,a[] gr.poly pt,list1 gr.render gr.cls for q=1 to 14 a[q]=a[q]+rnd()*5 next goto cikl