NEWTOOL = GetSelectedTool()

If GetSelectedTool = GetCurrentTool Then  ' If the tool called for is the same as already in then toolchange ignored
 End
 End If
 
If GetSelectedTool > 8 Then            'If tool called is greater than 8 then code is stopped and message telling you why is displayed
 DoOemButton(1003) 
 MsgBox("Tool number too high, file will rewind")
 DoOemButton(1002)
 End
   End If
  
If GetSelectedTool < 1 Then            ' If tool called is less than 1 then code is stopped and message telling you why is displayed
 DoOemButton(1003) 
 MsgBox("Tool number too low, file will rewind") 'Tool number called is too high so code will stop and rewind so editing can take place
 DoOemButton(1002)	
 End
  End If 
  
If GetSelectedTool = 1 Then
Code("G0A0")
While IsMoving()
Wend
Code("G0A-358")
While IsMoving()
Wend
SetOemDRO(803,1)

End If  
   
   
If GetSelectedTool = 2 Then
Code("G0A45")
While IsMoving()
Wend
Code("G0A-43")
While IsMoving()
Wend
SetOemDRO(803,2)

End If  
   

If GetSelectedTool = 3 Then
Code("G0A90")
While IsMoving()
Wend
Code("G0A-88")
While IsMoving()
Wend
SetOemDRO(803,3)

End If  
   
   
If GetSelectedTool = 4 Then
Code("G0A135")
While IsMoving()
Wend
Code("G0A-133")
While IsMoving()
Wend
SetOemDRO(803,4)

End If  
   
If GetSelectedTool = 5 Then
Code("G0A180")
While IsMoving()
Wend
Code("G0A-178")
While IsMoving()
Wend
SetOemDRO(803,5)

End If  
   
If GetSelectedTool = 6 Then
Code("G0A225")
While IsMoving()
Wend
Code("G0A-223")
While IsMoving()
Wend
SetOemDRO(803,6)

End If 

If GetSelectedTool = 7 Then
Code("G0A270")
While IsMoving()
Wend
Code("G0A-268")
While IsMoving()
Wend
SetOemDRO(803,7)

End If  

If GetSelectedTool = 8 Then
Code("G0A315")
While IsMoving()
Wend
Code("G0A-313")
While IsMoving()
Wend
SetOemDRO(803,8)

End If  
 
   


Call SetCurrentTool(NEWTOOL)       ' Set Tool number DRO to new tool