&ARGS COVER CMDEG CMMIN LAT
&ECHO &ON
COMO %COVER%.COMO
RENAME %COVER% %COVER%.IN
CREATE %COVER% %COVER%.IN
PROJECT FILE %COVER%.DD %COVER%.TM
INPUT
PROJECTION GEOGRAPHIC
UNITS DD
QUADRANT SW
PARAMETERS
OUTPUT
PROJECTION TRANSVERSE
UNITS METERS
SPHEROID INT1909
PARAMETERS
.9996
-%CMDEG% %CMMIN% 00
-%LAT% 0 0
0
0
END
&DATA ARC INFO
SEL LOADTICS
PURGE
Y
GET SPMARSH>FINAL>%COVER%.TM 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