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