toolpos1 = GetOemdro(1001)
toolpos2 = GetOemdro(1002)
toolpos3 = GetOemdro(1003)
toolpos4 = GetOemdro(1004)
toolpos5 = GetOemdro(1005)
toolpos6 = GetOemdro(1006)

toolnew = GetSelectedTool()
toolold = GetOemdro(824)

If (toolnew = 0)Or(toolnew = 0 ) Then
MsgBox (" invalid tool number !!!")
message(" invalid tool number !!!")
Call Code("M30")
end
End If

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

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

message(" toolchange running !!")

If (toolnew = 1)then
Call Code("G0 G53 Y"&(toolpos1))
While ismoving()
Sleep 100
Wend
End If

If (toolnew = 2)then
Call Code("G0 G53 Y"&(toolpos2))
While ismoving()
Sleep 100
Wend
End If

If (toolnew = 3)then
Call Code("G0 G53 Y"&(toolpos3))
While ismoving()
Sleep 100
Wend
End If

If (toolnew = 4)then
Call Code("G0 G53 Y"&(toolpos4))
While ismoving()
Sleep 100
Wend
End If

If (toolnew = 5)then
Call Code("G0 G53 Y"&(toolpos5))
While ismoving()
Sleep 100
Wend
End If

If (toolnew = 6)then
Call Code("G0 G53 Y"&(toolpos6))
While ismoving()
Sleep 100
Wend
End If

SetCurrentTool( toolnew )

message("toolchange finished !")

end