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
LIST.CREATE N,list1
FOR q=1 TO 14
	LIST.ADD list1,10
NEXT
DO
	GR.POLY pt,list1
	GR.RENDER
	FOR q=1 TO 14
		LIST.GET list1,q,x
		LIST.REPLACE list1,q,x+RND()*5
	NEXT
UNTIL 1=2