;;;Update profile location and station / elevation text
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 1-14-98
;;;>		   EDITED: 07-11-2005
;;;
(DEFUN c:ucmudp ()
  (IF (AND (> (GETVAR "cvport") 1) (EQ (GETVAR "tilemode") 0))
    nil
    (IF (EQ (GETVAR "tilemode") 0)
      (COMMAND "._mspace")
      (PRINC "\nPaper space is not active")
    ) ;_ end of if
  ) ;_ end of if
  (IF (AND uint ukword)
    nil
    (LOAD "uutils")
  ) ;_ end of if
  (SETQ
    rtview (ukword 1
                   "continue"
                   "Make the profile view current before continuing."
                   "continue"
           ) ;_ end of ukword
  ) ;_ end of setq
  (SETQ curvno (GETVAR "cvport"))
;;;  (REGAPP "ACAD")
  (SETQ cvpss (SSGET "X" (LIST (CONS 69 curvno))))
  (SETQ cvpent (ENTGET (SSNAME cvpss 0) (LIST "ACAD")))
  (SETQ vpscl (/ (GETVAR "viewsize") (CDR (ASSOC 41 cvpent))))
  (COND ((OR (EQ (GETVAR "lunits") 1) (EQ (GETVAR "lunits") 5))
         (PRINC (STRCAT "Viewport scale is: 1:"
                        (RTOS vpscl 2 4)
                        " (1:"
                        (RTOS vpscl 2 4)
                        ")"
                ) ;_ end of strcat
         ) ;_ end of princ
        )
        ((EQ (GETVAR "lunits") 2)
         (PRINC (STRCAT "Viewport scale is: 1\"="
                        (RTOS vpscl 2 4)
                        "' (1:"
                        (RTOS vpscl 2 4)
                        ")"
                ) ;_ end of strcat
         ) ;_ end of princ
        )
        ((EQ (GETVAR "lunits") 3)
         (PRINC (STRCAT "Viewport scale is: 1\"="
                        (RTOS (/ vpscl 12) 2 4)
                        "' (1:"
                        (RTOS vpscl 2 4)
                        ")"
                ) ;_ end of strcat
         ) ;_ end of princ
        )
        ((EQ (GETVAR "lunits") 4)
         (PRINC (STRCAT "Viewport scale is: "
                        (RTOS (/ 12.0000 vpscl) 5 4)
                        "\"=1'-0\" (1:"
                        (RTOS vpscl 2 4)
                        ")"
                ) ;_ end of strcat
         ) ;_ end of princ
        )
  ) ;_ end of cond
  (SETQ cvcntr    (GETVAR "viewctr")
        vrt_scale (ureal 1
                         ""
                         "Vertical scale factor"
                         (IF vrt_scale
                           vrt_scale
                           10
                         ) ;_ end of IF
                  ) ;_ end of ureal
        cvsize    (GETVAR "viewsize")
        cvscle    (/ cvsize (CDR (ASSOC 41 cvpent)))
        cvwdth    (* (CDR (ASSOC 40 cvpent)) cvscle)
        cvpllx    (- (CAR cvcntr) (/ cvwdth 2))
        cvplly    (/ (- (CADR cvcntr) (/ cvsize 2)) vrt_scale)
  ) ;_ end of SETQ
  (PRINC (STRCAT "\nCurrent Profile Beginning Station = "
                 (RTOS cvpllx 2 2)
         ) ;_ end of strcat
  ) ;_ end of princ
  (SETQ cursta (ureal 1
                      ""
                      "    New Profile Grid Beginning Station "
                      cursta
               ) ;_ end of uint
  ) ;_ end of setq
  (SETQ viewsta (ureal 1
                       ""
                       "    New Viewport Beginning Station "
                       (IF viewsta
                         viewsta
                         cursta
                       ) ;_ end of if
                ) ;_ end of uint
  ) ;_ end of setq
  (PRINC (STRCAT "\nCurrent Profile Base Elevation = "
                 (RTOS cvplly 2 0)
         ) ;_ end of strcat
  ) ;_ end of princ
  (SETQ cedatum (ureal 1 "" "    New Profile Base Elevation" cedatum))
  (IF (SETQ sedata (SSGET "x"
                          '((-4 . "<OR")
                            (2 . "CPP40SPL")
                            (2 . "CPP50SPL")
                            (-4 . "OR>")
                           )
                   ) ;_ end of SSGET
      ) ;_ end of SETQ
    (PROGN
      (SETQ sedat (ENTGET (ENTNEXT (SSNAME sedata 0)))
            sendx 0
      ) ;_ end of setq
      (WHILE (/= (CDR (ASSOC 0 sedat)) "SEQEND")
        (SET (READ (STRCAT "sedat" (ITOA sendx))) sedat)
        (SETQ sedat (ENTGET (ENTNEXT (CDAR sedat)))
              sendx (1+ sendx)
        ) ;_ end of setq
      ) ;_ end of while
      (IF (AND sedat0 sedat1 sedat2 sedat3 sedat4 sedat5 sedat6 sedat7
               sedat8 sedat9 sedat10 sedat11 sedat12 sedat13 sedat14
               sedat15 sedat16 sedat17 sedat18 sedat19 sedat20 sedat21
               sedat22 sedat23 sedat24 sedat25 sedat26 sedat27 sedat28
               sedat29 sedat30 sedat31 sedat32 sedat33 sedat34 sedat35
               sedat36 sedat37 sedat38 sedat39 sedat40 sedat41 sedat42
               sedat43 sedat44 sedat45
              ) ;_ end of AND
 ;_ end of AND
 ;_ end of AND
 ;_ end of AND
        (PROGN
;;;	    (PRINC "\nFirst \"PROGN\" ")
          (COND
            ((EQ (CDR (ASSOC 2 (ENTGET (SSNAME sedata 0)))) "CPP40SPL")
             (SETQ grdwid 2.5)
            )
            ((EQ (CDR (ASSOC 2 (ENTGET (SSNAME sedata 0)))) "CPP50SPL")
             (SETQ grdwid 2.0)
            )
            ((/= (CDR (ASSOC 2 (ENTGET (SSNAME sedata 0)))) "CPP40SPL")
             (SETQ grdwid 2.5)
            )
          ) ;_ end of COND
          (SETQ csdat0 (ITOA (FIX (/ cursta 100))))
          (SETQ csdat1 (STRCAT "+" (RTOS (REM cursta 100) 2 0)))
          (SETQ csdat2 (ITOA (FIX (/ (+ (* grdwid vpscl) cursta) 100))))
          (SETQ csdat3
                 (STRCAT
                   "+"
                   (RTOS (REM (+ (* 1 grdwid vpscl) cursta) 100) 2 0)
                 ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ
            csdat4 (ITOA (FIX (/ (+ (* 2 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ csdat5
                 (STRCAT
                   "+"
                   (RTOS (REM (+ (* 2 grdwid vpscl) cursta) 100) 2 0)
                 ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ
            csdat6 (ITOA (FIX (/ (+ (* 3 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ csdat7
                 (STRCAT
                   "+"
                   (RTOS (REM (+ (* 3 grdwid vpscl) cursta) 100) 2 0)
                 ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ
            csdat8 (ITOA (FIX (/ (+ (* 4 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ csdat9
                 (STRCAT
                   "+"
                   (RTOS (REM (+ (* 4 grdwid vpscl) cursta) 100) 2 0)
                 ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ
            csdat10 (ITOA (FIX (/ (+ (* 5 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ csdat11
                 (STRCAT
                   "+"
                   (RTOS (REM (+ (* 5 grdwid vpscl) cursta) 100) 2 0)
                 ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ
            csdat12 (ITOA (FIX (/ (+ (* 6 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ csdat13
                 (STRCAT
                   "+"
                   (RTOS (REM (+ (* 6 grdwid vpscl) cursta) 100) 2 0)
                 ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ
            csdat14 (ITOA (FIX (/ (+ (* 7 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ csdat15
                 (STRCAT
                   "+"
                   (RTOS (REM (+ (* 7 grdwid vpscl) cursta) 100) 2 0)
                 ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ
            csdat16 (ITOA (FIX (/ (+ (* 8 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ csdat17
                 (STRCAT
                   "+"
                   (RTOS (REM (+ (* 8 grdwid vpscl) cursta) 100) 2 0)
                 ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ
            csdat18 (ITOA (FIX (/ (+ (* 9 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ csdat19
                 (STRCAT
                   "+"
                   (RTOS (REM (+ (* 9 grdwid vpscl) cursta) 100) 2 0)
                 ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ csdat20
                 (ITOA (FIX (/ (+ (* 10 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ
            csdat21 (STRCAT
                      "+"
                      (RTOS (REM (+ (* 10 grdwid vpscl) cursta) 100)
                            2
                            0
                      ) ;_ end of RTOS
                    ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ csdat22
                 (ITOA (FIX (/ (+ (* 11 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ
            csdat23 (STRCAT
                      "+"
                      (RTOS (REM (+ (* 11 grdwid vpscl) cursta) 100)
                            2
                            0
                      ) ;_ end of RTOS
                    ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ csdat24
                 (ITOA (FIX (/ (+ (* 12 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ
            csdat25 (STRCAT
                      "+"
                      (RTOS (REM (+ (* 12 grdwid vpscl) cursta) 100)
                            2
                            0
                      ) ;_ end of RTOS
                    ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ csdat26
                 (ITOA (FIX (/ (+ (* 13 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ
            csdat27 (STRCAT
                      "+"
                      (RTOS (REM (+ (* 13 grdwid vpscl) cursta) 100)
                            2
                            0
                      ) ;_ end of RTOS
                    ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ csdat28
                 (ITOA (FIX (/ (+ (* 14 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ
            csdat29 (STRCAT
                      "+"
                      (RTOS (REM (+ (* 14 grdwid vpscl) cursta) 100)
                            2
                            0
                      ) ;_ end of RTOS
                    ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ csdat30
                 (ITOA (FIX (/ (+ (* 15 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ
            csdat31 (STRCAT
                      "+"
                      (RTOS (REM (+ (* 15 grdwid vpscl) cursta) 100)
                            2
                            0
                      ) ;_ end of RTOS
                    ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (SETQ csdat32
                 (ITOA (FIX (/ (+ (* 16 grdwid vpscl) cursta) 100)))
          ) ;_ end of SETQ
          (SETQ
            csdat33 (STRCAT
                      "+"
                      (RTOS (REM (+ (* 16 grdwid vpscl) cursta) 100)
                            2
                            0
                      ) ;_ end of RTOS
                    ) ;_ end of STRCAT
          ) ;_ end of SETQ
          (IF (EQ (REM vrt_scale 2) 0)
            (SETQ vrt_prec 0)
            (IF (EQ (REM vrt_scale 2) 1)
              (SETQ vrt_prec 1)
              (SETQ vrt_prec 2)
            ) ;_ end of if
          ) ;_ end of if
          (SETQ
            cedat34 (RTOS (+ cedatum (* 5 grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ
            cedat35 (RTOS (+ cedatum (* 4 grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ
            cedat36 (RTOS (+ cedatum (* 3 grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ
            cedat37 (RTOS (+ cedatum (* 2 grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ
            cedat38 (RTOS (+ cedatum (* grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ cedat39 (RTOS cedatum 2 vrt_prec))
          (SETQ
            cedat40 (RTOS (+ cedatum (* 5 grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ
            cedat41 (RTOS (+ cedatum (* 4 grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ
            cedat42 (RTOS (+ cedatum (* 3 grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ
            cedat43 (RTOS (+ cedatum (* 2 grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ
            cedat44 (RTOS (+ cedatum (* grdwid (/ vpscl vrt_scale)))
                          2
                          vrt_prec
                    ) ;_ end of RTOS
          ) ;_ end of SETQ
          (SETQ cedat45 (RTOS cedatum 2 vrt_prec))
          (SETQ sedat0 (SUBST (CONS 1 csdat0) (ASSOC 1 sedat0) sedat0)) ;_ end of setq
          (SETQ sedat1
                 (SUBST
                   (CONS 1
                         (IF (OR (EQ csdat1 "+0") (EQ csdat1 "+100"))
                           "+00"
                           csdat1
                         ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat1)
                   sedat1
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat2 (SUBST (CONS 1 csdat2) (ASSOC 1 sedat2) sedat2)) ;_ end of setq
          (SETQ sedat3
                 (SUBST
                   (CONS 1
                         (IF (OR (EQ csdat3 "+0") (EQ csdat3 "+100"))
                           "+00"
                           csdat3
                         ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat3)
                   sedat3
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat4 (SUBST (CONS 1 csdat4) (ASSOC 1 sedat4) sedat4)) ;_ end of setq
          (SETQ sedat5
                 (SUBST
                   (CONS 1
                         (IF (OR (EQ csdat5 "+0") (EQ csdat5 "+100"))
                           "+00"
                           csdat5
                         ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat5)
                   sedat5
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat6 (SUBST (CONS 1 csdat6) (ASSOC 1 sedat6) sedat6)) ;_ end of setq
          (SETQ sedat7
                 (SUBST
                   (CONS 1
                         (IF (OR (EQ csdat7 "+0") (EQ csdat7 "+100"))
                           "+00"
                           csdat7
                         ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat7)
                   sedat7
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat8 (SUBST (CONS 1 csdat8) (ASSOC 1 sedat8) sedat8)) ;_ end of setq
          (SETQ sedat9
                 (SUBST
                   (CONS 1
                         (IF (OR (EQ csdat9 "+0") (EQ csdat9 "+100"))
                           "+00"
                           csdat9
                         ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat9)
                   sedat9
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat10 (SUBST (CONS 1 csdat10) (ASSOC 1 sedat10) sedat10) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat11
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat11 "+0") (EQ csdat11 "+100"))
                       "+00"
                       csdat11
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat11)
                   sedat11
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat12 (SUBST (CONS 1 csdat12) (ASSOC 1 sedat12) sedat12) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat13
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat13 "+0") (EQ csdat13 "+100"))
                       "+00"
                       csdat13
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat13)
                   sedat13
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat14 (SUBST (CONS 1 csdat14) (ASSOC 1 sedat14) sedat14) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat15
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat15 "+0") (EQ csdat15 "+100"))
                       "+00"
                       csdat15
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat15)
                   sedat15
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat16 (SUBST (CONS 1 csdat16) (ASSOC 1 sedat16) sedat16) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat17
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat17 "+0") (EQ csdat17 "+100"))
                       "+00"
                       csdat17
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat17)
                   sedat17
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat18 (SUBST (CONS 1 csdat18) (ASSOC 1 sedat18) sedat18) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat19
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat19 "+0") (EQ csdat19 "+100"))
                       "+00"
                       csdat19
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat19)
                   sedat19
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat20 (SUBST (CONS 1 csdat20) (ASSOC 1 sedat20) sedat20) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat21
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat21 "+0") (EQ csdat21 "+100"))
                       "+00"
                       csdat21
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat21)
                   sedat21
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat22 (SUBST (CONS 1 csdat22) (ASSOC 1 sedat22) sedat22) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat23
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat23 "+0") (EQ csdat23 "+100"))
                       "+00"
                       csdat23
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat23)
                   sedat23
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat24 (SUBST (CONS 1 csdat24) (ASSOC 1 sedat24) sedat24) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat25
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat25 "+0") (EQ csdat25 "+100"))
                       "+00"
                       csdat25
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat25)
                   sedat25
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat26 (SUBST (CONS 1 csdat26) (ASSOC 1 sedat26) sedat26) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat27
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat27 "+0") (EQ csdat27 "+100"))
                       "+00"
                       csdat27
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat27)
                   sedat27
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat28 (SUBST (CONS 1 csdat28) (ASSOC 1 sedat28) sedat28) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat29
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat29 "+0") (EQ csdat29 "+100"))
                       "+00"
                       csdat29
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat29)
                   sedat29
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat30 (SUBST (CONS 1 csdat30) (ASSOC 1 sedat30) sedat30) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat31
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat31 "+0") (EQ csdat31 "+100"))
                       "+00"
                       csdat31
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat31)
                   sedat31
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat32 (SUBST (CONS 1 csdat32) (ASSOC 1 sedat32) sedat32) ;_ end of subst
          ) ;_ end of setq
          (SETQ sedat33
                 (SUBST
                   (CONS
                     1
                     (IF (OR (EQ csdat33 "+0") (EQ csdat33 "+100"))
                       "+00"
                       csdat33
                     ) ;_ end of IF
                   ) ;_ end of CONS
                   (ASSOC 1 sedat33)
                   sedat33
                 ) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat34 (SUBST (CONS 1 cedat34) (ASSOC 1 sedat34) sedat34) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat35 (SUBST (CONS 1 cedat35) (ASSOC 1 sedat35) sedat35) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat36 (SUBST (CONS 1 cedat36) (ASSOC 1 sedat36) sedat36) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat37 (SUBST (CONS 1 cedat37) (ASSOC 1 sedat37) sedat37) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat38 (SUBST (CONS 1 cedat38) (ASSOC 1 sedat38) sedat38) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat39 (SUBST (CONS 1 cedat39) (ASSOC 1 sedat39) sedat39) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat40 (SUBST (CONS 1 cedat40) (ASSOC 1 sedat40) sedat40) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat41 (SUBST (CONS 1 cedat41) (ASSOC 1 sedat41) sedat41) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat42 (SUBST (CONS 1 cedat42) (ASSOC 1 sedat42) sedat42) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat43 (SUBST (CONS 1 cedat43) (ASSOC 1 sedat43) sedat43) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat44 (SUBST (CONS 1 cedat44) (ASSOC 1 sedat44) sedat44) ;_ end of subst
          ) ;_ end of setq
          (SETQ
            sedat45 (SUBST (CONS 1 cedat45) (ASSOC 1 sedat45) sedat45) ;_ end of subst
          ) ;_ end of setq
          (IF (EQ (SETQ updatt
                         (ukword 1
                                 "Yes No"
                                 "Update station and elevation attributes?"
                                 updatt
                         ) ;_ end of ukword
                  ) ;_ end of setq
                  "Yes"
              ) ;_ end of eq
            (PROGN (ENTMOD sedat0)
                   (ENTMOD sedat1)
                   (ENTMOD sedat2)
                   (ENTMOD sedat3)
                   (ENTMOD sedat4)
                   (ENTMOD sedat5)
                   (ENTMOD sedat6)
                   (ENTMOD sedat7)
                   (ENTMOD sedat8)
                   (ENTMOD sedat9)
                   (ENTMOD sedat10)
                   (ENTMOD sedat11)
                   (ENTMOD sedat12)
                   (ENTMOD sedat13)
                   (ENTMOD sedat14)
                   (ENTMOD sedat15)
                   (ENTMOD sedat16)
                   (ENTMOD sedat17)
                   (ENTMOD sedat18)
                   (ENTMOD sedat19)
                   (ENTMOD sedat20)
                   (ENTMOD sedat21)
                   (ENTMOD sedat22)
                   (ENTMOD sedat23)
                   (ENTMOD sedat24)
                   (ENTMOD sedat25)
                   (ENTMOD sedat26)
                   (ENTMOD sedat27)
                   (ENTMOD sedat28)
                   (ENTMOD sedat29)
                   (ENTMOD sedat30)
                   (ENTMOD sedat31)
                   (ENTMOD sedat32)
                   (ENTMOD sedat33)
                   (ENTMOD sedat34)
                   (ENTMOD sedat35)
                   (ENTMOD sedat36)
                   (ENTMOD sedat37)
                   (ENTMOD sedat38)
                   (ENTMOD sedat39)
                   (ENTMOD sedat40)
                   (ENTMOD sedat41)
                   (ENTMOD sedat42)
                   (ENTMOD sedat43)
                   (ENTMOD sedat44)
                   (ENTMOD sedat45)
                   (ENTUPD (SSNAME sedata 0))
            ) ;_ end of progn
            (IF (EQ (SETQ
                      updatt (ukword
                               1
                               "Yes No"
                               "Update right side elevation attributes?"
                               "No"
                             ) ;_ end of ukword
                    ) ;_ end of setq
                    "Yes"
                ) ;_ end of eq
              (PROGN (ENTMOD sedat32)
                     (ENTMOD sedat33)
                     (ENTMOD sedat34)
                     (ENTMOD sedat35)
                     (ENTMOD sedat36)
                     (ENTMOD sedat37)
                     (ENTMOD sedat38)
                     (ENTMOD sedat39)
                     (ENTMOD sedat40)
                     (ENTMOD sedat41)
                     (ENTMOD sedat42)
                     (ENTMOD sedat43)
                     (ENTMOD sedat44)
                     (ENTMOD sedat45)
                     (ENTUPD (SSNAME sedata 0))
              ) ;_ end of progn
            ) ;_ end of if
          ) ;_ end of if
        ) ;_ end of progn
        (IF (AND sedat0 sedat1 sedat2 sedat3 sedat4 sedat5 sedat6 sedat7
                 sedat8 sedat9 sedat10 sedat11 sedat12 sedat13 sedat14
                 sedat15 sedat16 sedat17 sedat18 sedat19 sedat20 sedat21
                 sedat22 sedat23 sedat24 sedat25 sedat26 sedat27 sedat28
                 sedat29 sedat30 sedat31 sedat32 sedat33 sedat34 sedat35
                ) ;_ end of AND
 ;_ end of AND
 ;_ end of AND
          (PROGN
;;;	    (PRINC "\nSecond \"PROGN\" ")
            (COND ((EQ (CDR (ASSOC 2 (ENTGET (SSNAME sedata 0))))
                       "CPP40SPL"
                   ) ;_ end of EQ
                   (SETQ grdwid 2.5)
                  )
                  ((EQ (CDR (ASSOC 2 (ENTGET (SSNAME sedata 0))))
                       "CPP50SPL"
                   ) ;_ end of EQ
                   (SETQ grdwid 2.0)
                  )
                  ((/= (CDR (ASSOC 2 (ENTGET (SSNAME sedata 0))))
                       "CPP40SPL"
                   ) ;_ end of /=
                   (SETQ grdwid 2.5)
                  )
            ) ;_ end of COND
            (SETQ csdat0 (ITOA (FIX (/ cursta 100))))
            (SETQ csdat1 (STRCAT "+" (RTOS (REM cursta 100) 2 0)))
            (SETQ
              csdat2 (ITOA (FIX (/ (+ (* grdwid vpscl) cursta) 100)))
            ) ;_ end of SETQ
            (SETQ csdat3
                   (STRCAT
                     "+"
                     (RTOS (REM (+ (* grdwid vpscl) cursta) 100) 2 0)
                   ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat4
                   (ITOA (FIX (/ (+ (* 2 grdwid vpscl) cursta) 100)))
            ) ;_ end of SETQ
            (SETQ
              csdat5 (STRCAT
                       "+"
                       (RTOS (REM (+ (* 2 grdwid vpscl) cursta) 100)
                             2
                             0
                       ) ;_ end of RTOS
                     ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat6
                   (ITOA (FIX (/ (+ (* 3 grdwid vpscl) cursta) 100)))
            ) ;_ end of SETQ
            (SETQ
              csdat7 (STRCAT
                       "+"
                       (RTOS (REM (+ (* 3 grdwid vpscl) cursta) 100)
                             2
                             0
                       ) ;_ end of RTOS
                     ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat8
                   (ITOA (FIX (/ (+ (* 4 grdwid vpscl) cursta) 100)))
            ) ;_ end of SETQ
            (SETQ
              csdat9 (STRCAT
                       "+"
                       (RTOS (REM (+ (* 4 grdwid vpscl) cursta) 100)
                             2
                             0
                       ) ;_ end of RTOS
                     ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat10
                   (ITOA (FIX (/ (+ (* 5 grdwid vpscl) cursta) 100)))
            ) ;_ end of SETQ
            (SETQ
              csdat11 (STRCAT
                        "+"
                        (RTOS (REM (+ (* 5 grdwid vpscl) cursta) 100)
                              2
                              0
                        ) ;_ end of RTOS
                      ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat12
                   (ITOA (FIX (/ (+ (* 6 grdwid vpscl) cursta) 100)))
            ) ;_ end of SETQ
            (SETQ
              csdat13 (STRCAT
                        "+"
                        (RTOS (REM (+ (* 6 grdwid vpscl) cursta) 100)
                              2
                              0
                        ) ;_ end of RTOS
                      ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat14
                   (ITOA (FIX (/ (+ (* 7 grdwid vpscl) cursta) 100)))
            ) ;_ end of SETQ
            (SETQ
              csdat15 (STRCAT
                        "+"
                        (RTOS (REM (+ (* 7 grdwid vpscl) cursta) 100)
                              2
                              0
                        ) ;_ end of RTOS
                      ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat16
                   (ITOA (FIX (/ (+ (* 8 grdwid vpscl) cursta) 100)))
            ) ;_ end of SETQ
            (SETQ
              csdat17 (STRCAT
                        "+"
                        (RTOS (REM (+ (* 8 grdwid vpscl) cursta) 100)
                              2
                              0
                        ) ;_ end of RTOS
                      ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat18
                   (ITOA (FIX (/ (+ (* 9 grdwid vpscl) cursta) 100)))
            ) ;_ end of SETQ
            (SETQ
              csdat19 (STRCAT
                        "+"
                        (RTOS (REM (+ (* 9 grdwid vpscl) cursta) 100)
                              2
                              0
                        ) ;_ end of RTOS
                      ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat20
                   (ITOA (FIX (/ (+ (* 10 grdwid vpscl) cursta) 100))
                   ) ;_ end of ITOA
            ) ;_ end of SETQ
            (SETQ
              csdat21 (STRCAT
                        "+"
                        (RTOS (REM (+ (* 10 grdwid vpscl) cursta) 100)
                              2
                              0
                        ) ;_ end of RTOS
                      ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat22
                   (ITOA (FIX (/ (+ (* 11 grdwid vpscl) cursta) 100))
                   ) ;_ end of ITOA
            ) ;_ end of SETQ
            (SETQ
              csdat23 (STRCAT
                        "+"
                        (RTOS (REM (+ (* 11 grdwid vpscl) cursta) 100)
                              2
                              0
                        ) ;_ end of RTOS
                      ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (SETQ csdat24
                   (ITOA (FIX (/ (+ (* 12 grdwid vpscl) cursta) 100))
                   ) ;_ end of ITOA
            ) ;_ end of SETQ
            (SETQ
              csdat25 (STRCAT
                        "+"
                        (RTOS (REM (+ (* 12 grdwid vpscl) cursta) 100)
                              2
                              0
                        ) ;_ end of RTOS
                      ) ;_ end of STRCAT
            ) ;_ end of SETQ
            (IF (EQ (REM vrt_scale 2) 0)
              (SETQ vrt_prec 0)
              (IF (EQ (REM vrt_scale 2) 1)
                (SETQ vrt_prec 1)
                (SETQ vrt_prec 2)
              ) ;_ end of if
            ) ;_ end of if
            (SETQ cedat26 (RTOS (+ cedatum (* 10 (/ vpscl vrt_scale)))
                                2
                                vrt_prec
                          ) ;_ end of RTOS
            ) ;_ end of setq
            (SETQ
              cedat27 (RTOS (+ cedatum (* 7.5 (/ vpscl vrt_scale)))
                            2
                            vrt_prec
                      ) ;_ end of RTOS
            ) ;_ end of setq
            (SETQ cedat28 (RTOS (+ cedatum (* 5 (/ vpscl vrt_scale)))
                                2
                                vrt_prec
                          ) ;_ end of RTOS
            ) ;_ end of setq
            (SETQ
              cedat29 (RTOS (+ cedatum (* 2.5 (/ vpscl vrt_scale)))
                            2
                            vrt_prec
                      ) ;_ end of RTOS
            ) ;_ end of setq
            (SETQ cedat30 (RTOS cedatum 2 vrt_prec))
            (SETQ cedat31 (RTOS (+ cedatum (* 10 (/ vpscl vrt_scale)))
                                2
                                vrt_prec
                          ) ;_ end of RTOS
            ) ;_ end of setq
            (SETQ
              cedat32 (RTOS (+ cedatum (* 7.5 (/ vpscl vrt_scale)))
                            2
                            vrt_prec
                      ) ;_ end of RTOS
            ) ;_ end of setq
            (SETQ cedat33 (RTOS (+ cedatum (* 5 (/ vpscl vrt_scale)))
                                2
                                vrt_prec
                          ) ;_ end of RTOS
            ) ;_ end of setq
            (SETQ
              cedat34 (RTOS (+ cedatum (* 2.5 (/ vpscl vrt_scale)))
                            2
                            vrt_prec
                      ) ;_ end of RTOS
            ) ;_ end of setq
            (SETQ cedat35 (RTOS cedatum 2 vrt_prec))
            (SETQ
              sedat0 (SUBST (CONS 1 csdat0) (ASSOC 1 sedat0) sedat0) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat1 (SUBST
                       (CONS
                         1
                         (IF (OR (EQ csdat1 "+0") (EQ csdat1 "+100"))
                           "+00"
                           csdat1
                         ) ;_ end of IF
                       ) ;_ end of CONS
                       (ASSOC 1 sedat1)
                       sedat1
                     ) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat2 (SUBST (CONS 1 csdat2) (ASSOC 1 sedat2) sedat2) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat3 (SUBST
                       (CONS
                         1
                         (IF (OR (EQ csdat3 "+0") (EQ csdat3 "+100"))
                           "+00"
                           csdat3
                         ) ;_ end of IF
                       ) ;_ end of CONS
                       (ASSOC 1 sedat3)
                       sedat3
                     ) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat4 (SUBST (CONS 1 csdat4) (ASSOC 1 sedat4) sedat4) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat5 (SUBST
                       (CONS
                         1
                         (IF (OR (EQ csdat5 "+0") (EQ csdat5 "+100"))
                           "+00"
                           csdat5
                         ) ;_ end of IF
                       ) ;_ end of CONS
                       (ASSOC 1 sedat5)
                       sedat5
                     ) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat6 (SUBST (CONS 1 csdat6) (ASSOC 1 sedat6) sedat6) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat7 (SUBST
                       (CONS
                         1
                         (IF (OR (EQ csdat7 "+0") (EQ csdat7 "+100"))
                           "+00"
                           csdat7
                         ) ;_ end of IF
                       ) ;_ end of CONS
                       (ASSOC 1 sedat7)
                       sedat7
                     ) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat8 (SUBST (CONS 1 csdat8) (ASSOC 1 sedat8) sedat8) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat9 (SUBST
                       (CONS
                         1
                         (IF (OR (EQ csdat9 "+0") (EQ csdat9 "+100"))
                           "+00"
                           csdat9
                         ) ;_ end of IF
                       ) ;_ end of CONS
                       (ASSOC 1 sedat9)
                       sedat9
                     ) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat10
                   (SUBST (CONS 1 csdat10) (ASSOC 1 sedat10) sedat10) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat11 (SUBST
                        (CONS
                          1
                          (IF
                            (OR (EQ csdat11 "+0") (EQ csdat11 "+100"))
                             "+00"
                             csdat11
                          ) ;_ end of IF
                        ) ;_ end of CONS
                        (ASSOC 1 sedat11)
                        sedat11
                      ) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat12
                   (SUBST (CONS 1 csdat12) (ASSOC 1 sedat12) sedat12) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat13 (SUBST
                        (CONS
                          1
                          (IF
                            (OR (EQ csdat13 "+0") (EQ csdat13 "+100"))
                             "+00"
                             csdat13
                          ) ;_ end of IF
                        ) ;_ end of CONS
                        (ASSOC 1 sedat13)
                        sedat13
                      ) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat14
                   (SUBST (CONS 1 csdat14) (ASSOC 1 sedat14) sedat14) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat15 (SUBST
                        (CONS
                          1
                          (IF
                            (OR (EQ csdat15 "+0") (EQ csdat15 "+100"))
                             "+00"
                             csdat15
                          ) ;_ end of IF
                        ) ;_ end of CONS
                        (ASSOC 1 sedat15)
                        sedat15
                      ) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat16
                   (SUBST (CONS 1 csdat16) (ASSOC 1 sedat16) sedat16) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat17 (SUBST
                        (CONS
                          1
                          (IF
                            (OR (EQ csdat17 "+0") (EQ csdat17 "+100"))
                             "+00"
                             csdat17
                          ) ;_ end of IF
                        ) ;_ end of CONS
                        (ASSOC 1 sedat17)
                        sedat17
                      ) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat18
                   (SUBST (CONS 1 csdat18) (ASSOC 1 sedat18) sedat18) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat19 (SUBST
                        (CONS
                          1
                          (IF
                            (OR (EQ csdat19 "+0") (EQ csdat19 "+100"))
                             "+00"
                             csdat19
                          ) ;_ end of IF
                        ) ;_ end of CONS
                        (ASSOC 1 sedat19)
                        sedat19
                      ) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat20
                   (SUBST (CONS 1 csdat20) (ASSOC 1 sedat20) sedat20) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat21 (SUBST
                        (CONS
                          1
                          (IF
                            (OR (EQ csdat21 "+0") (EQ csdat21 "+100"))
                             "+00"
                             csdat21
                          ) ;_ end of IF
                        ) ;_ end of CONS
                        (ASSOC 1 sedat21)
                        sedat21
                      ) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat22
                   (SUBST (CONS 1 csdat22) (ASSOC 1 sedat22) sedat22) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat23 (SUBST
                        (CONS
                          1
                          (IF
                            (OR (EQ csdat23 "+0") (EQ csdat23 "+100"))
                             "+00"
                             csdat23
                          ) ;_ end of IF
                        ) ;_ end of CONS
                        (ASSOC 1 sedat23)
                        sedat23
                      ) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat24
                   (SUBST (CONS 1 csdat24) (ASSOC 1 sedat24) sedat24) ;_ end of subst
            ) ;_ end of setq
            (SETQ
              sedat25 (SUBST
                        (CONS
                          1
                          (IF
                            (OR (EQ csdat25 "+0") (EQ csdat25 "+100"))
                             "+00"
                             csdat25
                          ) ;_ end of IF
                        ) ;_ end of CONS
                        (ASSOC 1 sedat25)
                        sedat25
                      ) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat26
                   (SUBST (CONS 1 cedat26) (ASSOC 1 sedat26) sedat26) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat27
                   (SUBST (CONS 1 cedat27) (ASSOC 1 sedat27) sedat27) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat28
                   (SUBST (CONS 1 cedat28) (ASSOC 1 sedat28) sedat28) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat29
                   (SUBST (CONS 1 cedat29) (ASSOC 1 sedat29) sedat29) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat30
                   (SUBST (CONS 1 cedat30) (ASSOC 1 sedat30) sedat30) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat31
                   (SUBST (CONS 1 cedat31) (ASSOC 1 sedat31) sedat31) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat32
                   (SUBST (CONS 1 cedat32) (ASSOC 1 sedat32) sedat32) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat33
                   (SUBST (CONS 1 cedat33) (ASSOC 1 sedat33) sedat33) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat34
                   (SUBST (CONS 1 cedat34) (ASSOC 1 sedat34) sedat34) ;_ end of subst
            ) ;_ end of setq
            (SETQ sedat35
                   (SUBST (CONS 1 cedat35) (ASSOC 1 sedat35) sedat35) ;_ end of subst
            ) ;_ end of setq
            (IF (EQ (SETQ
                      updatt (ukword
                               1
                               "Yes No"
                               "Update station and elevation attributes?"
                               updatt
                             ) ;_ end of ukword
                    ) ;_ end of setq
                    "Yes"
                ) ;_ end of eq
              (PROGN (ENTMOD sedat0)
                     (ENTMOD sedat1)
                     (ENTMOD sedat2)
                     (ENTMOD sedat3)
                     (ENTMOD sedat4)
                     (ENTMOD sedat5)
                     (ENTMOD sedat6)
                     (ENTMOD sedat7)
                     (ENTMOD sedat8)
                     (ENTMOD sedat9)
                     (ENTMOD sedat10)
                     (ENTMOD sedat11)
                     (ENTMOD sedat12)
                     (ENTMOD sedat13)
                     (ENTMOD sedat14)
                     (ENTMOD sedat15)
                     (ENTMOD sedat16)
                     (ENTMOD sedat17)
                     (ENTMOD sedat18)
                     (ENTMOD sedat19)
                     (ENTMOD sedat20)
                     (ENTMOD sedat21)
                     (ENTMOD sedat22)
                     (ENTMOD sedat23)
                     (ENTMOD sedat24)
                     (ENTMOD sedat25)
                     (ENTMOD sedat26)
                     (ENTMOD sedat27)
                     (ENTMOD sedat28)
                     (ENTMOD sedat29)
                     (ENTMOD sedat30)
                     (ENTMOD sedat31)
                     (ENTMOD sedat32)
                     (ENTMOD sedat33)
                     (ENTMOD sedat34)
                     (ENTMOD sedat35)
                     (ENTUPD (SSNAME sedata 0))
              ) ;_ end of progn
              (IF (EQ (SETQ
                        updatt (ukword
                                 1
                                 "Yes No"
                                 "Update right side elevation attributes?"
                                 "No"
                               ) ;_ end of ukword
                      ) ;_ end of setq
                      "Yes"
                  ) ;_ end of eq
                (PROGN (ENTMOD sedat31)
                       (ENTMOD sedat32)
                       (ENTMOD sedat33)
                       (ENTMOD sedat34)
                       (ENTMOD sedat35)
                       (ENTUPD (SSNAME sedata 0))
                ) ;_ end of progn
              ) ;_ end of if
            ) ;_ end of if
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of if
      (IF (= rtview "continue")
        (panprv)
        (PRINC
          "\nProfile view has not been adjusted to new station/elevation notation. "
        ) ;_ end of PRINC
      ) ;_ end of if
    ) ;_ end of progn
    (IF (= rtview "continue")
      (panprv)
      (PRINC
        "\nProfile view has not been adjusted to new station/elevation notation. "
      ) ;_ end of PRINC
    ) ;_ end of if
  ) ;_ end of if
  (PRINC)
) ;_ end of defun
(DEFUN panprv ()
  (PROGN (SETQ nvctrx (+ viewsta (/ cvwdth 2))
               nvctry (+ (* cedatum vrt_scale) (/ cvsize 2))
               pxdist (- (CAR cvcntr) nvctrx)
               pydist (- (CADR cvcntr) nvctry)
         ) ;_ end of setq
         (PRINC (STRCAT "dX=" (RTOS pxdist) ", dY=" (RTOS pydist)))
         (COMMAND "._zoom"
                  "c"
                  (STRCAT (RTOS nvctrx) "," (RTOS nvctry))
                  ""
         ) ;_ end of command
  ) ;_ end of progn
) ;_ end of defun


;|«Visual LISP© Format Options» (72 2 40 2 T "end of " 60 9 2 0 1 nil nil nil T)
 ***Don't add text below the comment!***|;