PICTURE arrow
   PLOT AREA: 0,0 ; 3,0 ; 2,1 ; 2,0.5 ; 0,0.5
END PICTURE
SET WINDOW 0,8,0,8
FOR i=1 TO 6
   SET AREA COLOR 1
   SET AREA STYLE "HATCH"
   SET AREA STYLE INDEX i
   DRAW arrow WITH SHIFT(0,i)
   SET AREA COLOR i+1
   DRAW arrow WITH SHIFT(5,i)
   PLOT TEXT, AT 3,i : "AREA STYLE INDEX " & STR$(i)
NEXT i
END
