nY=getycoor()
nX=getxcoor()
nZ=getzcoor()

' X axis keyhole
n1=nx/2
n2=ny/2
n3=-.3

setvar(1000,n1)
setvar(2000,2)
setvar(3000,n3)

code "G20 G90 G64 G40"

code "G0 x #1000 y #2000"
While ismoving()
sleep(100)
Wend
code "g1 f30 z #3000"
While ismoving()
sleep(100)
Wend

setvar(2000,1.25)
code "g1 f50 y #2000"
While ismoving()
sleep(100)
Wend

setvar(2000,2)
code "g1 y #2000"
While ismoving()
sleep(100)
Wend

setvar(3000, .5)
code "g1 z #3000"
While ismoving()
sleep(100)
Wend

' y axis keyhole
setvar(1000,2)
setvar(2000,n2)
setvar(3000,n3)
code "G0 x #1000 y #2000"
While ismoving()
sleep(100)
Wend
code "g1 f30 z #3000"
While ismoving()
sleep(100)
Wend

setvar(1000,1.25)
code "g1 x #1000"
While ismoving()
sleep(100)
Wend

setvar(1000, 2)
code "g1 x #1000"
While ismoving()
sleep(100)
Wend

setvar(3000, .5)
code "g1 z #3000"
While ismoving()
sleep(100)
Wend

setvar(1000,nX+6)
setvar(2000,nY+6)
code "g0 x #1000 y #2000"

While ismoving()
sleep(100)
Wend