%
O9857(REN*TOOL*AUTO*SET)
M5
M98P9750
IF[#18EQ#0]GOTO10
#125=#18
N10
IF[#7LT[35.*#129]]GOTO20
IF[#26LT[10.2*#129]]GOTO20
M0
()
()
()
(POTENTIAL*COLLISION)
()
()
()
N20
#146=0
IF[#2NE#0]GOTO30
()
()
()
#2=1
N30IF[#2EQ1]GOTO40
()
()
#149=120
IF[#7EQ#0]GOTO260
N40
IF[#7NE#0]GOTO50
()
()
()
#7=0
N50IF[#7GT0.]GOTO60
#19=3
GOTO70
()
()
()
N60#19=4
N70
IF[#20NE#0]GOTO80
()
()
()
#20=#4120
N80(IF*T*D*INPUT)
IF[#2EQ1]GOTO110
N90(C*TYPE)
IF[#8NE#0]GOTO110()
()
()
()
IF[#102EQ3.]GOTO100
#149=90.
M98P9759
N100
#8=#20(D)
N110
#7=#7/2
N120
IF[#25EQ#0]GOTO130
IF[#102LT1.1]GOTO125
#[#140+#20]=0(LW)
N125
#[#141+#20]=#25(LG)
N130
()
#7=ABS[#7]
IF[#7EQ0]GOTO170
N140
#130=800(RPM*SECOND*TOUCH)
#132=[#7*2]/#129
#132=[ROUND[1910/#132]]*10
IF[#132LT800]GOTO150
#132=800(RPM*FIRST*TOUCH)
()
()
()
N150
IF[#132GT150]GOTO160
()
()
()
#132=150
N160
#9=#132/8*#129(FEED*FIRST*TOUCH)
#144=4.*#129(FEED*SECOND*TOUCH)
N170
M98P9751
()
()
()
N180(LENGTH*SET)
IF[ABS[#7*2]LE#110]GOTO200
IF[ABS[#104]EQ1.]GOTO190
G65P9754X[#137-[#7*#103]]Y[#136]
()
()
()
GOTO210
N190G65P9754X[#137]Y[#136-[#7*#103]]
GOTO210
N200G65P9754X#137Y#136
()
()
()
N210
IF[#118EQ0]GOTO220
(OTS*PROBE*0N)
G4X1.0
()
()
N220
IF[#2EQ#0]GOTO230
IF[#2EQ1]GOTO230
IF[#2EQ2]GOTO310
IF[#2EQ3]GOTO230
IF[#2EQ4]GOTO410
N230
IF[#7NE0]GOTO240
IF[#138EQ0]GOTO240
#135=[[#[#120]/#107*#129]-#14]
#135=#135-[#112*2]
G65P9754Z[#135+[#138*#100]-#116]
G65P9753A#123T[#135+[#139*#100]-#116]F#124
#130=#131
G65P9754Z[#130+[[5.*#129]*#100]]
G65P9752A#123T#130F[30*#129]Q#17
#10=[[#[#120]/#107*#129]-#131-#14]
#10=#10-#112
#30=#10
GOTO490
N240
IF[#138EQ0]GOTO270
N250#149=140.
N260M98P9759
N270
#135=[[#[#120]/#107*#129]-#14+[#113*#100]]-#112
G65P9754Z#135
G65P9753A#123T[[#[#120]/#107*#129]-#14+[#114*#100]-#112]F#127W1.
IF[ABS[#7*2]GT#110]GOTO290
(STATIC)
N280
G65P9752A#123T[[#[#120]/#107*#129]-#14-#112]F[30*#129]D#101Q#17
#10=[#[#120]/#107*#129]-#131-#14
#10=#10-#112
GOTO300
N290
S#132
M#19
(ROTATING)
G65P9752A#123T[[[#[#120]]/#107*#129]-#14-#112]F#144D#9Q#17S#130
#10=[[#[#120]/#107*#129]-#131-#14]
#10=#10+[#[#120+6]/#107*#129]
#10=#10-#112
N300
#30=#10
IF[#2EQ3]GOTO310
()
()
()
GOTO490
N310(DIAMETER*SET)
IF[#108EQ44]GOTO320
#10=#10*[-1]
N320
IF[#23EQ#0]GOTO330
#23=#23+#114
GOTO340
N330#23=#114
N340
G65P9753A#123T[[#[#120]/#107*#129]-#14+[[#23+#10]*#100]-#112]F#127W1.
G65P9753A#121T[#137]F#127W1.
G65P9753A#122T[#136]F#127W1.
S#132
M#19
IF[#26NE#0]GOTO350
()
()
()
#26=5.*#129
N350
IF[ABS[#7*2]GT#111]GOTO380
N360
(DOUBLE*SIDED)
IF[ABS[#104]EQ1.]GOTO370
(X*AXIS)
G65P9753A#121T[#137-[[#133+#125+ABS[#7]]*#115]]F#127W1.
G65P9753A#123T[[#[#120]/#107*#129]-#14-[[#26-#10]*#100]-#112]F#127W1.
G65P9752A#121T[#137-[[#133+ABS[#7]]*#115]]F#144D#9Q#17S#130
#21=#137-#131-[[#133+[#[#120+6]]/#107*#129]*#115]
G65P9753A#123T[[#[#120]/#107*#129]-#14+[[#23+#10]*#100]-#112]F#127W1.
S#132
M#19
G65P9753A#121T[#137+[[#133+#125+ABS[#7]]*#115]]F#127W1.
G65P9753A#123T[[#[#120]/#107*#129]-#14-[[#26-#10]*#100]-#112]F#127W1.
G65P9752A#121T[#137+[[#133+ABS[#7]]*#115]]F#144D#9Q#17S#130
#12=#131
G65P9753A#123T[[#[#120]/#107*#129]-#14+[[#23+#10]*#100]-#112]F#127W1.
#12=#137-#12+[[#133+[#[#120+6]]/#107*#129]*#115]
#21=ABS[#21]
#12=ABS[#12]
#12=[#12+#21]/2
GOTO400
N370(Y*AXIS)
G65P9753A#122T[#136-[[#134+#125+ABS[#7]]*#115]]F#127W1.
G65P9753A#123T[[#[#120]/#107*#129]-#14-[[#26-#10]*#100]-#112]F#127W1.
G65P9752A#122T[#136-[[#134+ABS[#7]]*#115]]F#144D#9Q#17S#130
#21=#136-#131-[[#134+[#[#120+6]]/#107*#129]*#115]
G65P9753A#123T[[#[#120]/#107*#129]-#14+[[#23+#10]*#100]-#112]F#127W1.
S#132
M#19
G65P9753A#122T[#136+[[#134+#125+ABS[#7]]*#115]]F#127W1.
G65P9753A#123T[[#[#120]/#107*#129]-#14-[[#26-#10]*#100]-#112]F#127W1.
G65P9752A#122T[#136+[[#134+ABS[#7]]*#115]]F#144D#9Q#17S#130
#12=#131
G65P9753A#123T[[#[#120]/#107*#129]-#14+[[#23+#10]*#100]-#112]F#127W1.
#12=#136-#12+[[#134+[[#[#120+6]]/#107*#129]]*#115]
#21=ABS[#21]
#12=ABS[#12]
#12=[#12+#21]/2
GOTO400
N380(SINGLE*SIDED)
IF[ABS[#104]EQ2.]GOTO390
(Y*AXIS)
G65P9753A#122T[#136-[[#134+#125+ABS[#7]]*#103]]F#127W1.
G65P9753A#123T[[#[#120]/#107*#129]-#14-[[#26-#10]*#100]-#112]F#127W1.
G65P9752A#122T[#136-[[#134+ABS[#7]]*#103]]F#144D#9Q#17S#130
#12=#136-#131
#12=#12-[[#134+[[#[#120+6]]/#107*#129]]*#103]
#12=#12*#103
GOTO400
N390(X*AXIS)
G65P9753A#121T[#137-[[#133+#125+ABS[#7]]*#103]]F#127W1.
G65P9753A#123T[[#[#120]/#107*#129]-#14-[[#26-#10]*#100]-#112]F#127W1.
G65P9752A#121T[#137-[[#133+ABS[#7]]*#103]]F#144D#9Q#17S#130
#12=#137-#131
#12=#12-[[#133+[[#[#120+6]]/#107*#129]]*#103]
#12=#12*#103
N400
GOTO490
N410(MEASURE*UP)
S#132
M#19
IF[#21NE#0]GOTO420
()
()
()
#21=2.*#129
N420
IF[ABS[#104]EQ2.]GOTO430
G65P9754X[#137-[[#7+#133+#125]*#115]]Y[#136]
GOTO440
()
()
()
N430G65P9754X[#137]Y[#136-[[#7+#134+#125]*#115]]
N440
#135=[[#[#120]]/#107*#129]-#14+[#113*#100]-#112
G65P9754Z#135
S#132
M#19
G65P9753A#123T[[#[#120+5]/#107*#129]-#14-[#114*#100]-#112]F#127W1.
(ROTATING)
IF[ABS[#104]EQ2.]GOTO450
G65P9753A#121T[#137-[[#133+#7-#21]*#115]]F#127W1.
GOTO460
()
()
()
N450G65P9753A#122T[#136-[[#134+#7-#21]*#115]]F#127W1.
N460
G65P9752A#123T[[#[#120+5]/#107*#129]-#14-#112]F#144D#9Q#17S#130
#10=[[#[#120+5]]/#107*#129]-#131-#14
#10=#10+[[#[#120+6]]/#107*#129]
#10=#10-#112
IF[ABS[#104]EQ2.]GOTO470
G65P9753A#121T[#137-[[#133+#7+#125]*#115]]F#127W1.
GOTO480
()
()
()
N470G65P9753A#122T[#136-[[#134+#7+#125]*#115]]F#127W1.
N480
G65P9753A#123T[[#[#120]/#107*#129]-#14+[#114*#100]-#112]F#127W1.
#30=#10
N490
M98P9751
N500G90
(TOOL*OFFSET*UPDATE)
IF[#2EQ2]GOTO520
(LEN*SET)
IF[#11EQ#0]GOTO510
IF[ABS[#30]LE#11]GOTO510
()
#149=130
#146=1
IF[#13NE#0]GOTO520
GOTO260
N510
#116=#116*#100
#30=#30*#100
#[#141+#20]=[#116+#112-#30-#6](A*TYPE*LG)
IF[#140EQ0]GOTO520
()
()
#[#140+#20]=0(LW)
N520IF[#2EQ1]GOTO580
IF[#2EQ4]GOTO580
(RAD*SET)
N530IF[#11EQ#0]GOTO560
IF[#142EQ0]GOTO540
IF[ABS[#[#143+#8]+#[#142+#8]-#12]LE#11]GOTO560
GOTO550
()
()
()
N540IF[ABS[#[#143+#8]-#12]LE#11]GOTO560
N550#149=130
#146=1
IF[#13NE#0]GOTO570
GOTO600
N560
#[#143+#8]=[#12-#5]*#109(A*TYPE*RG)
IF[#142EQ0]GOTO570
()
()
()
#[#142+#8]=0(RW)
N570
N580
M98P9751
N590G90
IF[#146EQ0]GOTO610
IF[#13NE#0]GOTO610
N600M98P9759
()
()
()
N610#149=#0
M5
(OTS*PROBE*OFF)
()
()
()
N620
M99
%