'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