&rem Z.SML

&rem **** pan and/or zoom ARCEDITW graphic display ********************

&rem Revised version: 8/22/96  mtc

SHOW MAPE -11 -12 -13 -14
 &goto *FALSE0000* &if &NE %-11 900000000
   &type "Map extent not defined"
   &return
 &LABEL *FALSE0000*
 &goto *FALSE0001* &if &NE "x%39" "x"
   &sv 39 39
 &LABEL *FALSE0001*
 &goto *FALSE0002* &if &RN %39 39 49
   &sv 39 39
 &LABEL *FALSE0002*
&key 1 "Pan <1>/<2> Point | Zoom <B>ox <O>ut <F>ull <P>revious"
&extract 1 1 1

&rem **** process options *********************************************

 &goto *FALSE0003* &if &NE %1 1
   &cv -7 ( %-13 - %-11 ) / 2 + %-11
   &cv -8 ( %-14 - %-12 ) / 2 + %-12
   &type "Point to new centerpoint:"
   &getxym -5 -6 -20
   WIN FOCUS T
   &cv -1 %-11 + %-5 - %-7
   &cv -2 %-12 + %-6 - %-8
   &cv -3 %-13 + %-5 - %-7
   &cv -4 %-14 + %-6 - %-8
   MAPE %-1 %-2 %-3 %-4
 &goto *END__0003*
 &LABEL *FALSE0003*
 &goto *FALSE0004* &if &NE %1 2
   &type "Enter Point 1:"
   &getxym -5 -6 -20
   &type "Enter Point 2:"
   &getxym -8 -9 -20 1
   WIN FOCUS T
   &cv -1 %-11 + ( %-5 - %-8 )
   &cv -2 %-12 + ( %-6 - %-9 )
   &cv -3 %-13 + ( %-5 - %-8 )
   &cv -4 %-14 + ( %-6 - %-9 )
   MAPE %-1 %-2 %-3 %-4
 &goto *END__0003*
 &LABEL *FALSE0004*
 &goto *FALSE0005* &if &NE %1 B
   MAPE *
   WIN FOCUS T
 &goto *END__0003*
 &LABEL *FALSE0005*
 &goto *FALSE0006* &if &NE %1 O
   MAPE zoom 0.5
 &goto *END__0003*
 &LABEL *FALSE0006*
 &goto *FALSE0007* &if &NE %1 F
   MAPE DEF
 &goto *END__0003*
 &LABEL *FALSE0007*
 &goto *FALSE0008* &if &NE %1 P

   &rem **** pop previous mapextent from stack ************************

   &value -1 %39
   MAPE %-1
   &cv 39 %39 - 1
   DRAW
   &return
 &goto *END__0003*
 &LABEL *FALSE0008*
   &return
 &LABEL *END__0003*

&rem **** shift stack contents if full *****************************

 &goto *FALSE0010* &if &NE %39 49

   &rem **** shift values of %41-%49 to %40-%48 ***********************

   &sv -2 41
   &sv -3 40
    &LABEL *WHILE0011*
    &goto *END__0011* &if &NR %-2 41 49
      &value -4 %-2
      &value %-3 -4
      &cv -2 %-2 + 1
      &cv -3 %-3 + 1
    &goback *WHILE0011*
    &LABEL *END__0011*
 &LABEL *FALSE0010*

&rem **** push previous mapextent onto stack ***********************

 &goto *FALSE0012* &if &EQ %39 49
   &cv 39 %39 + 1
 &LABEL *FALSE0012*
&sv %39 "%-11 %-12 %-13 %-14"
SHOW MAPE -11 -12 -13 -14
DRAW
&return