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"