REM Start of BASIC!Program
GR.OPEN 255,255,255,255
GR.ORIENTATION 0
GR.SCREEN w,h
GR.SET.ANTIALIAS 0
GR.SET.STROKE 1
GR.COLOR 255,255,0,0,0
LIST.CREATE N,list1
GR.RECT r,10,10,w-10,h-10
ARRAY.LOAD m[],10,h/2,w-10,h/2,w-10,h-10,10,w-10
LIST.ADD.ARRAY list1,m[]
FOR q=1 TO 120 STEP 2
	LIST.INSERT list1,2+q,10+ABS(w/60)*ABS(q/2)
	LIST.INSERT list1,2+q+1,ABS(RND()*(h-40))+20
NEXT
GR.POLY pt,list1
DO
	GR.RENDER
	FOR q=1 TO 120 STEP 2
		LIST.REPLACE list1,2+q+1,ABS(RND()*(h-40))+20
	NEXT
UNTI