'Add .010 to Z  12/17/13




If GetUserLED(1214) then   'Z add script is processing
MsgBox ("Can't Add to Z while Processing, Cancel Oversize Z & Try again.")
exit sub
end If

setUserLED(1214,1)   'Z add script is processing

H=0
For H= 0 to 800000  'produces about .5 sec delay
	H = H+2
Next


IF GetLED(0) Then
MsgBox("Can't Add - Mach3 in E-stop")
setUserLED(1214,0)   'Z add script is not processing
exit sub
end if


if getUserLED(1213) then  'undercut on
MsgBox ("Can't add to Z with UnderCut ON")
setUserLED(1214,0)   'Z add script is not processing
exit sub
end if

if getUserLED(1204) then  ''scaling on
MsgBox ("Can't add to Z with Scaling ON")
setUserLED(1214,0)   'Z add script is not processing
exit sub
end if


If GetUserLED (1200 ) Then 'cancel oversize z
D=GetOEMDRO (49)  'current ZWOS
SetUserDRO (1011, D)   'Holding register
End If 

D=GetOEMDRO (49)  'current ZWOS
D=D+.010
SetOEMDRO (49, D)
SetUserLED (1201 , 1)   'Z add on
B=GetUserDRO (1006)   'Z add value
B=B+.010
SetUserLED (1200, 0)
SetUserDro (1006 , B)

H=0
For H= 0 to 800000   'produces about .5 sec delay
	H = H+2
Next

setUserLED(1214,0)   'Z add script is not processing