AREA PEN Example

GINIT
GCLEAR
PLOTTER IS CRT,"INTERNAL";COLOR MAP  !Set it to color map mode.
MOVE 40,40
FOR L=1 TO 40
  AREA PEN L        !Show the different AREA PEN colors.
  RECTANGLE 90,30,FILL,EDGE
  LABEL L;
  MOVE 40,40
  WAIT 1
  GCLEAR
NEXT L
END