anchor.diff:          22\tFoul-FFL
           3\tSDIP private drainage
           33\tSDIP
  -        4\tPlotLevel +/-50mm\n
  +        4\tPlotLevel +/-50mm
  +        44\tChange Private Sewer Gradient\n
       Create:
           pa\tparking arrow
           ra\troad arrow\n
  
positive.code: 		gradient	; Real gradient
  	);END list
  
    ; v0.2 - 2017.01.30 - Gradient to absolute value
    ; v0.1 - 2017.01.28 - DT:ChangePrivateSewerGradient implementation
    ;                   - Code anotation and tidy up
  	;										- CommandLine messages suppressed
    ; v0.0 - 2017.01.23 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.01.30
  )
  (defun c:garden_gradient (
                            /
  
negative.code: 	(princ (strcat "\nRequested gradient: 1/" (LM:rtos SDIPgradient 2 0) "\n"))
  
  	; Ask user to select private manhole label to be updated:
    (setvar "osmode" 0)
  	(setq
      targetPoint (getpoint (strcat "\nLevel = " (LM:rtos (nth 2 p2) 2 2) "m\nSelect target: "))
    )
  