'place after each chain cut in project to 
'to remove 0.0015 accum.of movement
'that is not shown by DRO's in Mach3

'***requires home soft limits to be set to 
'*** X min -0.0015
'*** Y min -0.0015
'*** Z max  0.0015

'Edit G-code
'1. Place M209 after Each Z1.0

'2. copy last Y movement to after each 
'   Next X movement so that Mach3 
'   will show correct tool path
'   In tool path window

'*******************************************
'*******************************************

'1. manually Set axis To home location With
'   control box off

'2. turn On control box

'3. Ref. mach. And work coordinates To zero

'4. Jog To start location of project

'5. Ref. work coord. To zero 

'6. Regen toolpath window

'******************************************
'******************************************
'******************************************
'*** Written by www.runetec.com 4/6/09 ****
'***          AS IS                    ****
'******************************************
'$$$$$$$$$$$ Send donation To:$$$$$$$$$$$$$
'$$	Lauri Koponen                    $$
'$$	372 Millard Hill Rd              $$
'$$	Newfield, NY 14867               $$
'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$                   
'******************************************
'******************************************
'******************************************

varx = 0'zero var to pervent
vary = 0'accum. of variables values
varz = 0

varx1 = 0'zero var to pervent
vary1 = 0'accum. of variables values
varz1 = 0

varx1 = GetDRO(0)'set var to DRO's
vary1 = GetDRO(1)
varz1 = GetDRO(2)


code "G28"

While IsMoving()'wait for movement
Wend            'to stop 

varx = GetDRO(0)'set var to DRO's
vary = GetDRO(1)
varz = GetDRO(2)


SetDRO(0,0)
SetDRO(1,0)
SetDRO(2,0)


DoButton( 24 )
DoButton( 23 )
DoButton( 22 )
DoButton( 25 )


code "G28.1 X-0.003"'remove un-wanted shift
code "G28.1 Y-0.003"
code "G28.1 Z0.003"

While IsMoving()'wait for movement
Wend            'to stop 

DoButton( 24 )
DoButton( 23 )
DoButton( 22 )
DoButton( 25 )

SetDRO(0,0)
SetDRO(1,0)
SetDRO(2,0)


code "G28.1 X-0.0015"'remove un-wanted shift
code "G28.1 Y-0.0015"
code "G28.1 Z0.0015"

While IsMoving()'wait for movement
Wend            'to stop 

DoButton( 24 )
DoButton( 23 )
DoButton( 22 )
DoButton( 25 )



SetDRO(0,0)
SetDRO(1,0)
SetDRO(2,0)

varz = varz * -1'return to start position
varx = varx * -1
vary = vary * -1


code "G0 Y" & vary
code "G0 X" & varx  'return to starting point
code "G0 Z" & varz

While IsMoving()'wait for movement
Wend            'to stop 

SetDRO(0,0)'required to return
SetDRO(1,0)'DRO's to state before Macro call
SetDRO(2,0)


code "G0 Z" & varz1
code "G0 Y" & vary1
code "G0 X" & varx1  'return to starting point



varx = 0'zero var to pervent
vary = 0'accum. of variables values
varz = 0

varx1 = 0'zero var to pervent
vary1 = 0'accum. of variables values
varz1 = 0