Probing Z gives problem

[dhookings]

I have been working on a Z probe macro, similar to a recent post.
I use the keygrabber to input joystick signals.
I have 6 jogging buttons, 3 buttons to set the jog rate, 1 button to zero X and Y, and 1 button to zero Z.
The jogging buttons are routed directly using Config - Ports and Pins
I have been successfully using these for months.
Now added 2 more buttons through the keygrabber. One of them initiates M991.m1s through the oem(301) and the other is routed to input#1.
The codes are attached.
My problem is that everything works perfectly, except that after doing a Z probe the two buttons that move X and Y and Z to zero do not work. Everything else in the macropump.m1s does work. I have to close down Mach3 and start again to get my normal buttons working again. Any suggestions as to where I have gone wrong?

[dhookings]

Sorry the macropump.m1s did not attach.
Here it is:
MACROPUMP.M1S
Option Explicit

Dim jog_rate
jog_rate = getoemdro(3)
If isactive(29) Then
   jog_rate = 4
elseif isactive(30) Then
   jog_rate = 40
elseif isactive(31) Then
   jog_rate = 100
elseif isactive(33) Then
   code("g0 x0 y0")
elseif isactive(34) Then
   code("g0 z0")
End If


setoemdro(3,jog_rate)

and M991.m1s

M991.M1S
Code "G71 G91"   ' METRIC And INCREMENTAL
Code "F500"
Do While Not isactive(18)

Code "G1 Z -.01"
While ismoving()
Wend

Loop



setoemdro(802,0.1)   'set Z height to thickness of brass shim

[dhookings]

Panic over - I was still leaving incremental mode on in my probe macro. So when I subsequently asked it to go to Z0 nothing happened.

Dave