'Rem	Probe Down by PEU (Based on Erniebro Work)
FeedCurrent = GetOemDRO(818) 	'Get the current settings
ZCurrent = GetDro(2)
Code "G4 P1"			'Pause 1 second to give time to position probe plate
Code "F1"			'slow feed rate to 10 MM/MIN
GageH = GetOEMDRO (1002)
Rem	Probe Down by PEU (Based On Erniebro Work)
FeedCurrent = GetOemDRO(818) 	'Get the current settings
ZCurrent = GetOemDro(802)
Code "G4 P1"			'Pause 1 second to give time to position probe plate
Code "F1"			'slow feed rate to 10 MM/MIN
GageH = GetUserDRO(1152)
ZNew = ZCurrent - 30		'probe down 30mm 
Code "G31 Z" &ZNew
While IsMoving()
Wend
Call SetDro (2,GageH)
FinalMove = GageH * 1
Code  "G0 Z" &FinalMove
Code  "G0 Z" &30
Code "F" &FeedCurrent  		'restore starting