'this macro allows you to move the atc back and forward to a known position 'and then tell the software that position 'the way the ENDs are done is odd cos I couldn't get a goto to work! 'so, 'move forward to a tool position 'move back to lock it 'enter the tool number Message ("m3000 setting tool") code "g91" ask_again: Tool = Question ("current tool? (9=forward, 0=backward)") If tool="0" Then code "g00 y10" While IsMoving() Wend GoTo ask_again End If If tool="9" Then code "g00 y-10" While IsMoving() Wend GoTo ask_again End If If tool="100" Then code "g90" End End If If tool>0 And tool<9 Then Call SetUserDRO (1200, Tool) SetCurrentTool(Tool) Call DoOemButton (1009) 'zero Y code "g90" message ("done") End End If message ("invalid input, restart macro") end