gr.OPEN
PAUSE 500
GR.ORIENTATION 0
FOR j=10 TO 1000 STEP 10
 ARRAY.LOAD a[], j, 20,180,70,30,180

 LIST.CREATE n, List1
 LIST.ADD.ARRAY List1, a[]

 GR.COLOR 255, 255-(j*5), 3*j, 0, 2
 REM GR.COLOR 255, 255, 0, 0, 1
 GR.POLY pt, List1
 f$="ARRAY.LOAD a[ ], "+str$((j))+",20,180, 70,30, 180"
GR.COLOR 255, 255, 0, 0, 1
GR.TEXT.SIZE 50
GR.TEXT.ALIGN 
GR.HIDE txt
GR.TEXT.DRAW txt,30,230,f$
gr.render

 GR.RENDER

 
NEXT j


PAUSE 2500
END