Rem	Probe Down by leafboy77 2019-6-22 (Based On Erniebro & PEU Work)

FeedCurrent = GetOemDRO(818)    'Get the current settings, OEM DROs (818)=Feedrate DRO
ZCurrent = GetOemDro(186)       'OEM DROs (186)=Z Cont. Pnt. coord (Machine - Work - Tool len. - G52/G92) DRO 
GageH = GetOEMDRO(1001)         'OEMDRO(1001)=Gage Block Height
ZNew = ZCurrent - 20		'probe down 20 mm

Code "G90F100"                  'slow feed rate to 100 MM/MIN
Code "G4 P1"                    'Pause 1 second to give time to position probe plate

Code "G31 Z" &ZNew
While IsMoving()
    Sleep(10)    'Release CPU
Wend
Call SetDro (2,GageH)           'DRO(2)=Z DRO

FinalMove = GageH + 10
Code  "G0 Z" &FinalMove
While IsMoving()
    Sleep(10)    'Release CPU
Wend

Code "F" &FeedCurrent           'restore starting feed rate   dr.lin 2009.10.16 
