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