Dim b As String

Code "G90"                     
Code "G53 G0 Z-0.1"            
Code "G53 G0 X-36.39 Y-51.27"       
Code "M5"                      
Code "M9"                      
Code "G4 P4"                   
Code "G31 G91 Z-200 F300"      
While ismoving()               
Wend
Code "G91 G1 Z1"               
Code "G31 G91 Z-20 F100"       
While ismoving()               
Wend
Call SetUserDRO(1151,GetDRO(2))                  
Code "G90"
Code "G53 G0 Z-0.1"            
Code "G53 G0 X-150 Y-200"