&ARGS COVER CMDEG CMMIN LAT
&ECHO &ON
COMO %COVER%.COMO
RENAME %COVER% %COVER%.IN
CREATE %COVER% %COVER%.IN
PROJECT FILE %COVER%.DD %COVER%.LAM
INPUT
PROJECTION GEOGRAPHIC
UNITS DD
QUADRANT SW
PARAMETERS
OUTPUT
PROJECTION LAMBERT
UNITS METERS
SPHEROID INT1909
PARAMETERS
-17 20 00
-22 40 00
-67 30 00
-24 00 00
0.0
0.0
END
&DATA ARC INFO
SEL LOADTICS
PURGE
Y
GET SPMARSH>FINAL>%COVER%.LAM COPY
CA IDTIC = $RECNO + 4
REL %COVER%.TIC BY IDTIC
CA $1XTIC = X
CA $1YTIC = Y
Q STOP
&END
TRANSFORM %COVER%.IN %COVER%
COMO -E
&ECHO &OFF
&RETURN