GLOAD %1
UNMAP
RESCALE 800 600
SET PALETTE 256
PLOAD GEOS.MAP
MAP
GSAVE C:\GEOS20\DOCUMENT\PICLAB.GIF