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[100]

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

for q=1 to 100

a[q]=10+q*10

next q

cikl:

LIST.CREATE n,list1

LIST.ADD.ARRAY list1,a[]

gr.poly rf,list1

gr.render

 gr.cls

for q=1 to 100

	a[q]=a[q]+rnd()*5*sin (q)

next q

goto cikl