FeedCurrent = GetOemDRO(818) 	'Get the current settings
ZCurrent = GetOemDro(802)
Code "G4 P1"			'Pause 1 second to give time to position probe plate
Code "F100"			'slow feed rate to 10 MM/MIN
ToolH =1.4                       'Tool tool height requires actual measurement
ZNew = ZCurrent - 30		'probe down 30mm
Code "G31 Z" &ZNew
While IsMoving()
Wend
Call SetDro (2,ToolH)
Code  "G0 Z" &10                'This number is greater than the height of the tool setting tool
Code "F" &FeedCurrent  		'restore starting