Remove the extra 5% of the extent that MAPEXTENT adds via SML

The MAPEXTENT command in ARCPLOT or ARCEDIT will set the extent to be 5% more than the extent of the coverage (which allows tics to be displayed). The below SML code will remove the 5% increase from the current mapextent. Note, if you run this more than once, the mapextent will be decreased by an additional 5% each time.

Code:
&rem REMAP.SML 
&rem Recalculate original mapext after 
&rem ARCPLOT has increased by 5%. 

show mapext 1 2 3 4 
&cv 5 ( %4 - %2 ) * 0.045454545 
&cv 6 ( %3 - %1 ) * 0.045454545 
&goto OKAY &if &rn %5 %6 1e38 
&sv 5 %6 
&LABEL OKAY 
&cv 1 %1 + %5 
&cv 2 %2 + %5 
&cv 3 %3 - %5 
&cv 4 %4 - %5 
mapext %1 %2 %3 %4 
&return