Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
%
N0 O9002 (WORK OFFSET COMPENSATOR)
#IF H21 < 0 THEN GOTO :ERROR
#IF H21 = 0 THEN GOTO :ERROR
#PRINT "THIS PROGRAM UPDATES A FIXTURE OFFSET Z POSITION TO"
#PRINT "TAKE INTO ACCOUNT THE LENGTH OF THE REFERENCE TOOL (TOOL 21)."
#PRINT ""
#PRINT "ENTER THE NUMBER OF THE FIXTURE OFFSET TO UPDATE:"
#INPUT V10
#V1 = FZ(V10)
#V2 = V1 - H21
#PRINT ""
#PRINT ""
#PRINT "Z POSITION OF FIXTURE OFFSET: ", V10
#PRINT "WILL BE UPDATED FROM: ", V1, "TO: ", V2
#PRINT "UPDATE FIXTURE OFFSET? (1 = YES, 0 = NO)"
#INPUT V11
#IF V11 = 0 THEN GOTO :END
#FZ(V10) = V1 - H2
1
#PRINT "DONE..."
#GOTO :END
#:ERROR
#PRINT "ERROR:"
#PRINT "REFERENCE TOOL (TOOL 21) DOES NOT HAVE A SUITABLE LENGTH!"
#PRINT "REFERENCE LENGTH MUST BE POSITIVE LENGTH FROM GAGE LINE."
#:END
%
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment