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


SetVar 1, GetUserDRO(1001)
SetVar 2, GetUserDRO(1002)
SetVar 3, GetUserDRO(1003)
SetVar 4, GetUserDRO(1004)
SetVar 5, GetUserDRO(1005)
SetVar 6, GetUserDRO(1006)

SetVar 100,0

If (toolnew = GetVar(1)) Then
SetVar 100,1
End If

If (toolnew = GetVar(2)) Then
SetVar 100,2
End If

If (toolnew = GetVar(3)) Then
SetVar 100,3
End If

If (toolnew = GetVar(4)) Then
SetVar 100,4
End If

If (toolnew = GetVar(5)) Then
SetVar 100,5
End If

If (toolnew = GetVar(6)) Then
SetVar 100,6
End If

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

If IsActive(INPUT1) then

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

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

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

If (GetVar(100) = 4) Then
SendSerial("****for tool 4****")
end If

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

If (GetVar(100) = 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