toolnew = GetSelectedTool()
toolold = GetOemdro(824)

If (toolnew = toolold) Then
message("tool is already in use!")
end
end If

If (toolnew < 1)Or(toolnew >999 ) Then
SetCurrentTool(toolold)
MsgBox ("wrong tool number!")
message("wrong tool number!")
Call Code("M30")
end
End If


Slot1 = GetUserDRO(1001)
Slot2 = GetUserDRO(1002)
Slot3 = GetUserDRO(1003)
Slot4 = GetUserDRO(1004)
Slot5 = GetUserDRO(1005)
Slot6 = GetUserDRO(1006)

Toolpos = 0

If (toolnew = Slot1) Then
Toolpos = 1
End If

If (toolnew = Slot2) Then
Toolpos = 2
End If

If (toolnew = Slot3) Then
Toolpos = 3
End If

If (toolnew = Slot4) Then
Toolpos = 4
End If

If (toolnew = Slot5) Then
Toolpos = 5
End If

If (toolnew = Slot6) Then
Toolpos = 6
End If

If (Toolpos = 0) Then
message("tool not in carousel!")
MsgBox ("tool not in carousel!")
Call Code("M30")
end
end If

If IsActive(INPUT1) then

If (Toolpos = 1) Then
SendSerial("B0000133E9>7R25")
end If

If (Toolpos = 2) Then
SendSerial("B0000133E:?7R25")
end If

If (Toolpos = 3) Then
SendSerial("B0000133E;08R25")
end If

If (Toolpos = 4) Then
Call Code("G0A"&(toolnew)*60)
While ismoving()
Sleep 100
Wend
end If

If (Toolpos = 5) Then
SendSerial("****for tool 5****")
end If

If (Toolpos = 6) Then
SendSerial("****for tool 6****")
end If

Else

Message("Toolchange failed")
MsgBox ("Toolchange failed")
DoOEMButton(1021)
end
End If

message("tool change is running !")

SetCurrentTool( toolnew )
end