Sub Main()
 z= GetUserDro(1202)
code"G53 G0z"&z 
While IsMoving()
Wend
NewTool = GetSelectedTool()
OldTool = GetCurrentTool()
MaxToolNum = 16 'Max number of tools for the changer

While NewTool > MaxToolNum 
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend

If NewTool = OldTool Or NewTool = 0 Then
Exit Sub
End If

If OldTool <> NewTool Then

SetUserDRO(2000, NewTool) 
End If

'systemwaitfor (21)
While Not (isactive(21))
wend
SetOEMDRO(824,NewTool)

DeActivateSignal (21)

End Sub

Main