TO CYCLE :INDEX :LAST PENUP SETXY :INDEX 0 PENDOWN SETXY 0 (:LAST - :INDEX) SETXY -:INDEX 0 SETXY 0 (:INDEX - :LAST) SETXY :INDEX 0 END TO PLUSART REPEAT 11 [ CYCLE ((REPCOUNT - 1) * 10) 100 ] END