anchor.diff:  	; 	gradient [real] - Slope, being the slope 1/gradient
   
   	; SAVE SETTINGS
  -	(save_environment (list "nomutt"))
  +	(save_environment (list "nomutt" "osmode"))
   
   	; CHANGE SETTINGS
   	(setvar "nomutt" 1)
  
positive.code:   "))
    (princ "\nENGINEERING SETUP COMPLETED")(princ)
  
    ; v0.2 - 2017.03.09 - scale management added to c:ra
    ; v0.1 - 2017.02.21 - Cheatsheet added
    ; v0.0 - 2017.01.29 - First issue
    ; Author: David Torralba
    ; Last revision: 2017.03.09
  )
  (defun c:WorkSet ()
    ; Working Drawing setup
  
negative.code: 		gradient	; Real gradient
  	);END list
  
    ; v0.2 - 2017.03.10 - Turn off OSnap when selecting target labels to be updated
    ; 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.03.10
  )
  (defun c:garden_gradient (
                            /
  