COLOR Example

10    GINIT
20    PLOTTER IS CRT,"INTERNAL";COLOR MAP
30    AREA COLOR .8,.8,.8      !Change the FILL color
40    RECTANGLE 45,45,FILL,EDGE
50    MOVE 30,30
60    AREA COLOR .2,.9,.5      !Change the FILL color
70    RECTANGLE 45,45,FILL,EDGE
80    END