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(802,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(806,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