'get new tool number
	newtool = GetSelectedTool()

       'select Offset by toolnumber
       If newtool = 1 Then
           Code "G54"
       Else          
           Code "G55"
           
      End If
   
           
        If newtool = 2 Then
           Code "G55"
         Else        
           Code "G56"       
    
       End If       
       
       
        If newtool = 3 Then
           Code "G56"
       Else   
       
           Code "G57"   
      
    
       End If