arcplot
disp 1040
leggeolterr
mape legendgeol
mapunits cm
mapscale 1
shadeset ver256.shd
polygonshade legendgeol fmatn prprov.lut
annotext legendgeol 
lineset pd24a.lin
arclines legendgeol 1
shadeset plotter
polygonshade legendgeol fmatn prshade.lut
mapshift .65 0
textsize .1
polygontext legendgeol fmatn
q
&watch &off