%
O0800(HS*BROKEN*TOOL*NC2)
#14=0(EDIT X AXIS BEAM POSITION)
#15=0(EDIT Y AXIS BEAM POSITION)
#16=0(EDIT Z AXIS BEAM POSITION)
#17=1(EDIT TOOL OFFSET TYPE 1=TYPE A 2=TYPE B & C)
#5=#0(EDIT*M*CODE*BROKEN TOOL)
#6=#0(EDIT*M*CODE*CANCEL BROKEN TOOL)
#148=0(SETS FLAG TO ZERO)
IF[#4111EQ0]GOTO998
IF[#4111EQ#0]GOTO998
#7=#4111
IF[#11NE#0]GOTO2
#11=.5
N2IF[#17GT1.1]GOTO5
#8=#[2000+#4111]
GOTO9
N5#8=[#[2000+#4111]+#[2200+#4111]]
N9IF[#26NE#0]GOTO10
G91G0G28Z0.
G90G0G43Z[#5043-#8]H#7
GOTO30
N10#1=#5023-#5043+#8+#26
#2=#16+#8+12.
#3=#2-#1
IF[#2LT#1]GOTO20
#26=#26+#3

N20G0G43Z#26H#7
N30M#6(DISABLELATCH)
G53G00X#14Y#15
#3=#5043-#5023
G0Z[#3-#11+#16+.5]
G1Z[#3-#11+#16]F300
M#5
G04X.3
#1=#5043-#8
G31Z[#1-.006]F1
#3=#1-.006
#2=#5043-#8
N100IF[ABS[#3-#2]LT.001]GOTO999
M#6
#1=#5043-#8
G1Z[#1+#11+.5]F5000
#1=#5043-#8
G31Z[#1+#11+5.]F2000
#2=#5043-#8
#3=#1+#11+5.
N101IF[ABS[#3-#2]GT0.05]GOTO9999
M#6(DISABLE*LATCH)
IF[#26NE#0]GOTO50
G91
G00G28Z0.
G90
GOTO60
N50G0Z#26
N60GOTO99
N999M#6
G91
G00G28Z0.
G90
M5
#148=1.
IF[#13NE#0]GOTO99
#3000=98(BROKEN*T00L)
N998M5
#3000=97(NO*H*OFFSET*ACTIVE)
N9999M5
#3000=97(PROBE*NOT*WORKING)
N99
M99
%