2024年2月20日发(作者：段凌春)
O8301(MARPOSS V3.0)
IF[#19EQ#0]GOTO910
IF[#7EQ#0]GOTO970
IF[#7LE0]GOTO930
IF[#3NE#0]GOTO100
#3=1
N100IF[#3LT1]GOTO940
IF[#3GT3]GOTO940
#500=1
IF[#4008NE43]GOTO920
IF[#4006EQ20]GOTO110
IF[#4006EQ70]GOTO110
#500=25.4
N110G65P8360
IF[#6NE#0]GOTO120
#6=-.25*#500
N120IF[#8EQ#0]GOTO130
IF[#8NE1]GOTO950
IF[#24EQ#0]GOTO960
IF[#25EQ#0]GOTO960
N130IF[#24NE#0]GOTO140
#24=0
N140IF[#25NE#0]GOTO150
#25=0
N150#4=506+[#3-1]*6
G65P8300X#24Y#25
G65P8300Z[.3*#500]
G65P8363Z-[.1*#500]
#[#4]=-#105
#2=#7/2
#1=#19+.1*#500
#4=#4-5
IF[#8NE1]GOTO160
G65P8300X0Y0
G65P8300Z#6
GOTO165
N160#2=-#2
N165G65P8300X[#2-#1]Y0
G65P8300Z#6
G65P8361X#2
#[#4]=#2-#105
IF[#8EQ1]GOTO170
G0Z1.
N170G65P8300X[#1-#2]
G65P8300Z#6
G65P8361X-#2
#4=#4+1
#[#4]=-#2-#105
IF[#8EQ1]GOTO180
G0Z1.
N180G65P8300Y[#2-#1]X0
G65P8300Z#6
G65P8362Y#2
#4=#4+1
#[#4]=#2-#105
IF[#8EQ1]GOTO190
G0Z1.
N190G65P8300Y[#1-#2]
G65P8300Z#6
G65P8362Y-#2
#4=#4+1
#[#4]=-#2-#105
G0Z1.
M99
N910#3000=119(NO S)
N920#3000=165(NO TOOL OFFSET) N930#3000=134(INV ALID D)
N940#3000=133(INV ALID C)
N950#3000=135(INV ALID E)
N960#3000=128(NO X/Y)
N970#3000=104(NO D)
O8310(MARPOSS V3.0)
G65P8360
#24=#5041
#25=#5042
IF[#7EQ#0]GOTO920
IF[#7LE0]GOTO960
IF[#3NE#0]GOTO110
#3=1
N110IF[#3LT1]GOTO910
IF[#3GT3]GOTO910
IF[#13NE#0]GOTO120
#13=.1*#500
N120IF[#18NE#0]GOTO130 #18=#5043-#5083
N130IF[#8NE1]GOTO140 #10=1
N140#5=#7/2
IF[#19EQ1]GOTO210
IF[#19EQ3]GOTO200
IF[#19NE2]GOTO930
#5=-#5
N200IF[#6NE#0]GOTO220 #3000=111(NO K)
N210G65P8300Z#6
N220M19
G04X0.5
G65P8300X[#24+#5-#13]
G65P8300Z#6
G65P8361X[#24+#5+#13] #8=#105
IF[#19EQ1]GOTO240
G0Z#18
N240M19S180
G04X0.5
G65P8300X[#24-#5+#13]
G65P8300Z#6
G65P8361X[#24-#5-#13]
#9=#105
IF[#19EQ1]GOTO260
G0Z#18
N260G65P8300X[[#8+#9]/2]
M19S90
G04X0.5
G65P8300Y[#25+#5-#13]
G65P8300Z#6
G65P8362Y[#25+#5+#13] #1=#105
IF[#19EQ1]GOTO280
G0Z#18
N280
M19S270
G04X0.5
G65P8300Y[#25-#5+#13]
G65P8300Z#6
G65P8362Y[#25-#5-#13]
#2=#105
IF[#19EQ1]GOTO300
G0Z#18
N300G65P8300Y[[#1+#2]/2]
IF[#10EQ1]GOTO340
M19
G04X0.5
G65P8300X[#24+#5-#13]
G65P8300Z#6
G65P8361X[#24+#5+#13]
#8=#105
IF[#19EQ1]GOTO320
G0Z#18
N320
M19S180
G04X0.5
G65P8300X[#24-#5+#13]
G65P8300Z#6
G65P8361X[#24-#5-#13]
G0Z#18
#9=#105
G65P8300X[[#8+#9]/2]
N340G0Z#18
#105=#5041
#106=#5042
#107=#5021
#108=#5022
#109=ABS[#8-#9]
#110=ABS[#1-#2]
#111=[#109+#110]/2
#112=#111-#7
IF[#19NE2]GOTO400
#112=-#112
N400IF[#21EQ#0]GOTO710
IF[ABS[#112]GT#21]GOTO940 N710IF[#23EQ#0]GOTO840
IF[#104EQ5200]GOTO810
IF[#23LT54]GOTO950
IF[#23GT59]GOTO950
#9=#104+#23-53
#[#9]=#107
#[#9+100]=#108
GOTO850
N810IF[#23LT54]GOTO820
IF[#23GT59]GOTO950
#9=#104+[#23-53]*20
GOTO830
N820IF[#23LT1]GOTO950
IF[#23GT48]GOTO950
#9=6980+#23*20
N830#[#9+1]=#107
#[#9+2]=#108
GOTO850
N840IF[#20EQ#0]GOTO850
#9=#102+#20
#[#9]=#[#9]+#112/2
N850IF[#17EQ#0]GOTO900
G65P8364Q#17X#7Y#111Z#112
N900M99
N910#3000=133(INV ALID C)
N920#3000=104(NO D)
N930#3000=149(INV ALID S)
N940#3000=170(OUT OF TOLERANCE) N950#3000=153(INV ALID W)
N960#3000=134(INV ALID D)
O8311(MARPOSS V3.0)
G65P8360
G65P8300X#24Y#25Z#26F#9
M99
O8314(MARPOSS V3.0)
G65P8360
IF[#3NE#0]GOTO110
#3=1
N110IF[#3LT1]GOTO910
IF[#3GT3]GOTO910
IF[#13NE#0]GOTO120
#13=.1*#500
N120IF[#18NE#0]GOTO130 #18=#5043-#5083
N130#4=0
IF[#24EQ#0]GOTO200
#4=#4+1
#8=#5041
#1=1
#2=#24
N200IF[#25EQ#0]GOTO210 #4=#4+1
#8=#5042
#1=2
#2=#25
N210IF[#26EQ#0]GOTO220 #4=#4+1
#8=#5043-#5083
#1=3
#2=#26
N220IF[#4EQ0]GOTO920
IF[#4NE1]GOTO930
G65P8300Z#6
#5=501+[#1-1]*2+[#3-1]*6
IF[#8GT#2]GOTO230
#13=-#13
GOTO240
N230#5=#5+1
N240#7=#[#5]
GOTO[240+#1]
N241G65P8300X[#24+#13-#7] G65P8361X[#24-#13+#7] GOTO250
N242G65P8300Y[#25+#13-#7] G65P8362Y[#25-#13+#7] GOTO250
N243G65P8300Z[#26+#13-#7] G65P8363Z[#26-#13+#7]
N250#106=#106+#7
#107=#105+#7
#108=#107-#2
GOTO[260+#1]
N261G0X#8
N262G0Y#8
N263G0Z#18
IF[#21EQ#0]GOTO790
IF[ABS[#108]GT#21]GOTO940
N790IF[#23EQ#0]GOTO830
IF[#104EQ5200]GOTO800
IF[#23LT54]GOTO950
IF[#23GT59]GOTO950
#3=#104+[#1-1]*100+#23-53
GOTO820
N800IF[#23LT54]GOTO810
IF[#23GT59]GOTO950
#3=#104+#1+[#23-53]*20
GOTO820
N810IF[#23LT1]GOTO950
IF[#23GT48]GOTO950
#3=6980+#1+#23*20
N820#[#3]=#106-#107+#108
GOTO860
N830IF[#20EQ#0]GOTO850
#3=#102+#20
IF[#1NE3]GOTO840
#3=#103+#20
N840#[#3]=#[#3]+#108
GOTO860
N850IF[#9EQ#0]GOTO860
IF[#9NE1]GOTO960
#[#5]=#2-#105
N860IF[#17EQ#0]GOTO900
G65P8364Q#17X#2Y#107Z#108
N900M99
N910#3000=133(INV ALID C)
N920#3000=128(NO AXIS)
N930#3000=164(MULTI AXIS)
N940#3000=170(OUT OF TOERANCE)
N950#3000=153(INV ALID W)
N960#3000=136(INV ALID F)
O8358(PROBE ON MARPOSS 2008/08/11) G80G90G21G40G49
M18G4X0.5
T#11M6
M19
M17G4X0.5
G43H#11
M99
O8360(MARPOSS V3.0)
#8=1
IF[#4006EQ20]GOTO100
IF[#4006EQ70]GOTO100
#8=25.4
N100IF[#500NE#8]GOTO200
#100=200*#8
#101=100.
#102=13000
#103=11000
#104=5200
M99
N200#3000=166(INCH/METRIC CONFLICT)
O8361(MARPOSS V3.0)
G04X0.05
#8=#5041
#3=.0002*#500
#3004=2
IF[#2EQ#0]GOTO100
#9=#5042
#25=#5+#24*ROUND[SIN[#2]*10000]/10000
#24=#4+#24*ROUND[COS[#2]*10000]/10000 N100G31X#24Y#25F#101
G04X0.05
#105=#5061
#106=#5021-#5041+#105
#3004=0
IF[#2EQ#0]GOTO120
#107=#5062
#108=#5022-#5042+#107
IF[#9EQ#25]GOTO120
IF[ABS[#107-#9]LT#3]GOTO910
IF[ABS[#107-#25]LT#3]GOTO920
IF[#8EQ#24]GOTO130
N120IF[ABS[#105-#8]LT#3]GOTO910
IF[ABS[#105-#24]LT#3]GOTO920
N130G01X#8Y#9F#100
M99
N910#3000=167(NO PROBE MOVEMENT) N920#3000=168(NO WORKPIECE)
O8362(MARPOSS V3.0)
G04X0.05
#8=#5042
#3=.0002*#500
#3004=2
G31Y#25F#101
G04X0.05
#105=#5062
#106=#5022-#5042+#5062
#3004=0
IF[ABS[#105-#8]LT#3]GOTO910
IF[ABS[#105-#25]LT#3]GOTO920
G01Y#8F#100
M99
N910#3000=167(NO PROBE MOVEMENT) N920#3000=168(NO WORKPIECE)
O8363(MARPOSS V3.0)
G04X0.05
#8=#5043-#5083
#3=.0002*#500
#3004=2
G31Z#26F#101
G04X0.05
#105=#5063-#5083
#106=#5023-#5043+#105
#3004=0
IF[ABS[#105-#8]LT#3]GOTO910
IF[ABS[#105-#26]LT#3]GOTO920
G01Z#8F#100
M99
N910#3000=167(NO PROBE MOVEMENT)
N920#3000=168(NO WORKPIECE)
O8364(MARPOSS V3.0)
IF[#24EQ#0]GOTO220
IF[#25EQ#0]GOTO230
IF[#26EQ#0]GOTO240
IF[#17EQ2]GOTO100
IF[#17NE1]GOTO210
DPRNT[]
DPRNT[*NOMINAL***ACTUAL****ERROR] DPRNT[---------*---------*---------]
N100
DPRNT[#24[44]**#25[44]**#26[44]]
DPRNT[]
M99
N210#3000=147(INV ALID Q)
N220#3000=124(NO X)
N230#3000=125(NO Y)
N240#3000=126(NO Z)
(O8888)(TOOL LIFE )
G90G0G17G40G80G49G69
G91G28Z0M5
M01
G91G28Z0.
#871=#871+1
#971=#971+1
IF[#971GT1200]GOTO1
#872=#872+1
#972=#972+1
IF[#972GT1200]GOTO2
#873=#873+1
#973=#973+1
IF[#973GT900]GOTO3
#874=#874+1
#974=#974+1
IF[#974GT1300]GOTO4 #875=#875+1
#975=#975+1
IF[#975GT800]GOTO5
#876=#876+1
#976=#976+1
IF[#976GT2000]GOTO6 #877=#877+1
#977=#977+1
IF[#977GT3000]GOTO07 #878=#878+1
#978=#978+1
IF[#978GT5000]GOTO08 #879=#879+1
#979=#979+1
IF[#979GT3000]GOTO9 #880=#880+1
#980=#980+1
IF[#980GT1800]GOTO10 #882=#882+1
#982=#982+1
IF[#982GT2500]GOTO12 (#813=#813+1)
(IF[#813GT5000]GOTO13) #884=#884+1
#984=#984+1
IF[#984GT3000]GOTO14 #885=#885+1
#985=#985+1
IF[#985GT800]GOTO15 #886=#886+1
#986=#986+1
IF[#986GT1400]GOTO16
#887=#887+1
#987=#987+1
IF[#987GT800]GOTO17
M99
M01
N1
M6T19
#971=0
M802
M808
#3000=1(T1 OVER)
N2
M6T20
#972=0
M802
M808
#3000=1(T2 OVER)
N3
M6T21
#973=0
M802
M808
#3000=1(T3 OVER)
N4
M6T1
#974=0
M802
M808
#3000=1(T4 OVER)
N5
M6T2
#975=0
M802
M808
#3000=1(T5 OVER)
N6
M6T3
#976=0
M802
#3000=1(T6 OVER) N7
#977=0
M802
M808
#3000=1(T7 OVER) N8
#978=0
M802
M808
#3000=1(T8 OVER) N9
M6T6
#979=0
M802
M808
#3000=1(T9 OVER) N10
M6T7
#980=0
M802
M808
#3000=1(T10 OVER) N11
#981=0
M802
M808
#3000=1(T11 OVER) N12
#982=0
M802
M808
#3000=1(T12 OVER) N13
M6T10
#983=0
M802
M808
#3000=1(T13 OVER) N14
M6T11
#984=0
M808
#3000=1(T14 OVER) N15
M6T12
#985=0
M802
M808
#3000=1(T15 OVER) N16
M6T13
#986=0
M802
M808
#3000=1(T16 OVER) N17
M6T14
#987=0
M802
M808
#3000=1(T17 OVER)
2024年2月20日发(作者：段凌春)
O8301(MARPOSS V3.0)
IF[#19EQ#0]GOTO910
IF[#7EQ#0]GOTO970
IF[#7LE0]GOTO930
IF[#3NE#0]GOTO100
#3=1
N100IF[#3LT1]GOTO940
IF[#3GT3]GOTO940
#500=1
IF[#4008NE43]GOTO920
IF[#4006EQ20]GOTO110
IF[#4006EQ70]GOTO110
#500=25.4
N110G65P8360
IF[#6NE#0]GOTO120
#6=-.25*#500
N120IF[#8EQ#0]GOTO130
IF[#8NE1]GOTO950
IF[#24EQ#0]GOTO960
IF[#25EQ#0]GOTO960
N130IF[#24NE#0]GOTO140
#24=0
N140IF[#25NE#0]GOTO150
#25=0
N150#4=506+[#3-1]*6
G65P8300X#24Y#25
G65P8300Z[.3*#500]
G65P8363Z-[.1*#500]
#[#4]=-#105
#2=#7/2
#1=#19+.1*#500
#4=#4-5
IF[#8NE1]GOTO160
G65P8300X0Y0
G65P8300Z#6
GOTO165
N160#2=-#2
N165G65P8300X[#2-#1]Y0
G65P8300Z#6
G65P8361X#2
#[#4]=#2-#105
IF[#8EQ1]GOTO170
G0Z1.
N170G65P8300X[#1-#2]
G65P8300Z#6
G65P8361X-#2
#4=#4+1
#[#4]=-#2-#105
IF[#8EQ1]GOTO180
G0Z1.
N180G65P8300Y[#2-#1]X0
G65P8300Z#6
G65P8362Y#2
#4=#4+1
#[#4]=#2-#105
IF[#8EQ1]GOTO190
G0Z1.
N190G65P8300Y[#1-#2]
G65P8300Z#6
G65P8362Y-#2
#4=#4+1
#[#4]=-#2-#105
G0Z1.
M99
N910#3000=119(NO S)
N920#3000=165(NO TOOL OFFSET) N930#3000=134(INV ALID D)
N940#3000=133(INV ALID C)
N950#3000=135(INV ALID E)
N960#3000=128(NO X/Y)
N970#3000=104(NO D)
O8310(MARPOSS V3.0)
G65P8360
#24=#5041
#25=#5042
IF[#7EQ#0]GOTO920
IF[#7LE0]GOTO960
IF[#3NE#0]GOTO110
#3=1
N110IF[#3LT1]GOTO910
IF[#3GT3]GOTO910
IF[#13NE#0]GOTO120
#13=.1*#500
N120IF[#18NE#0]GOTO130 #18=#5043-#5083
N130IF[#8NE1]GOTO140 #10=1
N140#5=#7/2
IF[#19EQ1]GOTO210
IF[#19EQ3]GOTO200
IF[#19NE2]GOTO930
#5=-#5
N200IF[#6NE#0]GOTO220 #3000=111(NO K)
N210G65P8300Z#6
N220M19
G04X0.5
G65P8300X[#24+#5-#13]
G65P8300Z#6
G65P8361X[#24+#5+#13] #8=#105
IF[#19EQ1]GOTO240
G0Z#18
N240M19S180
G04X0.5
G65P8300X[#24-#5+#13]
G65P8300Z#6
G65P8361X[#24-#5-#13]
#9=#105
IF[#19EQ1]GOTO260
G0Z#18
N260G65P8300X[[#8+#9]/2]
M19S90
G04X0.5
G65P8300Y[#25+#5-#13]
G65P8300Z#6
G65P8362Y[#25+#5+#13] #1=#105
IF[#19EQ1]GOTO280
G0Z#18
N280
M19S270
G04X0.5
G65P8300Y[#25-#5+#13]
G65P8300Z#6
G65P8362Y[#25-#5-#13]
#2=#105
IF[#19EQ1]GOTO300
G0Z#18
N300G65P8300Y[[#1+#2]/2]
IF[#10EQ1]GOTO340
M19
G04X0.5
G65P8300X[#24+#5-#13]
G65P8300Z#6
G65P8361X[#24+#5+#13]
#8=#105
IF[#19EQ1]GOTO320
G0Z#18
N320
M19S180
G04X0.5
G65P8300X[#24-#5+#13]
G65P8300Z#6
G65P8361X[#24-#5-#13]
G0Z#18
#9=#105
G65P8300X[[#8+#9]/2]
N340G0Z#18
#105=#5041
#106=#5042
#107=#5021
#108=#5022
#109=ABS[#8-#9]
#110=ABS[#1-#2]
#111=[#109+#110]/2
#112=#111-#7
IF[#19NE2]GOTO400
#112=-#112
N400IF[#21EQ#0]GOTO710
IF[ABS[#112]GT#21]GOTO940 N710IF[#23EQ#0]GOTO840
IF[#104EQ5200]GOTO810
IF[#23LT54]GOTO950
IF[#23GT59]GOTO950
#9=#104+#23-53
#[#9]=#107
#[#9+100]=#108
GOTO850
N810IF[#23LT54]GOTO820
IF[#23GT59]GOTO950
#9=#104+[#23-53]*20
GOTO830
N820IF[#23LT1]GOTO950
IF[#23GT48]GOTO950
#9=6980+#23*20
N830#[#9+1]=#107
#[#9+2]=#108
GOTO850
N840IF[#20EQ#0]GOTO850
#9=#102+#20
#[#9]=#[#9]+#112/2
N850IF[#17EQ#0]GOTO900
G65P8364Q#17X#7Y#111Z#112
N900M99
N910#3000=133(INV ALID C)
N920#3000=104(NO D)
N930#3000=149(INV ALID S)
N940#3000=170(OUT OF TOLERANCE) N950#3000=153(INV ALID W)
N960#3000=134(INV ALID D)
O8311(MARPOSS V3.0)
G65P8360
G65P8300X#24Y#25Z#26F#9
M99
O8314(MARPOSS V3.0)
G65P8360
IF[#3NE#0]GOTO110
#3=1
N110IF[#3LT1]GOTO910
IF[#3GT3]GOTO910
IF[#13NE#0]GOTO120
#13=.1*#500
N120IF[#18NE#0]GOTO130 #18=#5043-#5083
N130#4=0
IF[#24EQ#0]GOTO200
#4=#4+1
#8=#5041
#1=1
#2=#24
N200IF[#25EQ#0]GOTO210 #4=#4+1
#8=#5042
#1=2
#2=#25
N210IF[#26EQ#0]GOTO220 #4=#4+1
#8=#5043-#5083
#1=3
#2=#26
N220IF[#4EQ0]GOTO920
IF[#4NE1]GOTO930
G65P8300Z#6
#5=501+[#1-1]*2+[#3-1]*6
IF[#8GT#2]GOTO230
#13=-#13
GOTO240
N230#5=#5+1
N240#7=#[#5]
GOTO[240+#1]
N241G65P8300X[#24+#13-#7] G65P8361X[#24-#13+#7] GOTO250
N242G65P8300Y[#25+#13-#7] G65P8362Y[#25-#13+#7] GOTO250
N243G65P8300Z[#26+#13-#7] G65P8363Z[#26-#13+#7]
N250#106=#106+#7
#107=#105+#7
#108=#107-#2
GOTO[260+#1]
N261G0X#8
N262G0Y#8
N263G0Z#18
IF[#21EQ#0]GOTO790
IF[ABS[#108]GT#21]GOTO940
N790IF[#23EQ#0]GOTO830
IF[#104EQ5200]GOTO800
IF[#23LT54]GOTO950
IF[#23GT59]GOTO950
#3=#104+[#1-1]*100+#23-53
GOTO820
N800IF[#23LT54]GOTO810
IF[#23GT59]GOTO950
#3=#104+#1+[#23-53]*20
GOTO820
N810IF[#23LT1]GOTO950
IF[#23GT48]GOTO950
#3=6980+#1+#23*20
N820#[#3]=#106-#107+#108
GOTO860
N830IF[#20EQ#0]GOTO850
#3=#102+#20
IF[#1NE3]GOTO840
#3=#103+#20
N840#[#3]=#[#3]+#108
GOTO860
N850IF[#9EQ#0]GOTO860
IF[#9NE1]GOTO960
#[#5]=#2-#105
N860IF[#17EQ#0]GOTO900
G65P8364Q#17X#2Y#107Z#108
N900M99
N910#3000=133(INV ALID C)
N920#3000=128(NO AXIS)
N930#3000=164(MULTI AXIS)
N940#3000=170(OUT OF TOERANCE)
N950#3000=153(INV ALID W)
N960#3000=136(INV ALID F)
O8358(PROBE ON MARPOSS 2008/08/11) G80G90G21G40G49
M18G4X0.5
T#11M6
M19
M17G4X0.5
G43H#11
M99
O8360(MARPOSS V3.0)
#8=1
IF[#4006EQ20]GOTO100
IF[#4006EQ70]GOTO100
#8=25.4
N100IF[#500NE#8]GOTO200
#100=200*#8
#101=100.
#102=13000
#103=11000
#104=5200
M99
N200#3000=166(INCH/METRIC CONFLICT)
O8361(MARPOSS V3.0)
G04X0.05
#8=#5041
#3=.0002*#500
#3004=2
IF[#2EQ#0]GOTO100
#9=#5042
#25=#5+#24*ROUND[SIN[#2]*10000]/10000
#24=#4+#24*ROUND[COS[#2]*10000]/10000 N100G31X#24Y#25F#101
G04X0.05
#105=#5061
#106=#5021-#5041+#105
#3004=0
IF[#2EQ#0]GOTO120
#107=#5062
#108=#5022-#5042+#107
IF[#9EQ#25]GOTO120
IF[ABS[#107-#9]LT#3]GOTO910
IF[ABS[#107-#25]LT#3]GOTO920
IF[#8EQ#24]GOTO130
N120IF[ABS[#105-#8]LT#3]GOTO910
IF[ABS[#105-#24]LT#3]GOTO920
N130G01X#8Y#9F#100
M99
N910#3000=167(NO PROBE MOVEMENT) N920#3000=168(NO WORKPIECE)
O8362(MARPOSS V3.0)
G04X0.05
#8=#5042
#3=.0002*#500
#3004=2
G31Y#25F#101
G04X0.05
#105=#5062
#106=#5022-#5042+#5062
#3004=0
IF[ABS[#105-#8]LT#3]GOTO910
IF[ABS[#105-#25]LT#3]GOTO920
G01Y#8F#100
M99
N910#3000=167(NO PROBE MOVEMENT) N920#3000=168(NO WORKPIECE)
O8363(MARPOSS V3.0)
G04X0.05
#8=#5043-#5083
#3=.0002*#500
#3004=2
G31Z#26F#101
G04X0.05
#105=#5063-#5083
#106=#5023-#5043+#105
#3004=0
IF[ABS[#105-#8]LT#3]GOTO910
IF[ABS[#105-#26]LT#3]GOTO920
G01Z#8F#100
M99
N910#3000=167(NO PROBE MOVEMENT)
N920#3000=168(NO WORKPIECE)
O8364(MARPOSS V3.0)
IF[#24EQ#0]GOTO220
IF[#25EQ#0]GOTO230
IF[#26EQ#0]GOTO240
IF[#17EQ2]GOTO100
IF[#17NE1]GOTO210
DPRNT[]
DPRNT[*NOMINAL***ACTUAL****ERROR] DPRNT[---------*---------*---------]
N100
DPRNT[#24[44]**#25[44]**#26[44]]
DPRNT[]
M99
N210#3000=147(INV ALID Q)
N220#3000=124(NO X)
N230#3000=125(NO Y)
N240#3000=126(NO Z)
(O8888)(TOOL LIFE )
G90G0G17G40G80G49G69
G91G28Z0M5
M01
G91G28Z0.
#871=#871+1
#971=#971+1
IF[#971GT1200]GOTO1
#872=#872+1
#972=#972+1
IF[#972GT1200]GOTO2
#873=#873+1
#973=#973+1
IF[#973GT900]GOTO3
#874=#874+1
#974=#974+1
IF[#974GT1300]GOTO4 #875=#875+1
#975=#975+1
IF[#975GT800]GOTO5
#876=#876+1
#976=#976+1
IF[#976GT2000]GOTO6 #877=#877+1
#977=#977+1
IF[#977GT3000]GOTO07 #878=#878+1
#978=#978+1
IF[#978GT5000]GOTO08 #879=#879+1
#979=#979+1
IF[#979GT3000]GOTO9 #880=#880+1
#980=#980+1
IF[#980GT1800]GOTO10 #882=#882+1
#982=#982+1
IF[#982GT2500]GOTO12 (#813=#813+1)
(IF[#813GT5000]GOTO13) #884=#884+1
#984=#984+1
IF[#984GT3000]GOTO14 #885=#885+1
#985=#985+1
IF[#985GT800]GOTO15 #886=#886+1
#986=#986+1
IF[#986GT1400]GOTO16
#887=#887+1
#987=#987+1
IF[#987GT800]GOTO17
M99
M01
N1
M6T19
#971=0
M802
M808
#3000=1(T1 OVER)
N2
M6T20
#972=0
M802
M808
#3000=1(T2 OVER)
N3
M6T21
#973=0
M802
M808
#3000=1(T3 OVER)
N4
M6T1
#974=0
M802
M808
#3000=1(T4 OVER)
N5
M6T2
#975=0
M802
M808
#3000=1(T5 OVER)
N6
M6T3
#976=0
M802
#3000=1(T6 OVER) N7
#977=0
M802
M808
#3000=1(T7 OVER) N8
#978=0
M802
M808
#3000=1(T8 OVER) N9
M6T6
#979=0
M802
M808
#3000=1(T9 OVER) N10
M6T7
#980=0
M802
M808
#3000=1(T10 OVER) N11
#981=0
M802
M808
#3000=1(T11 OVER) N12
#982=0
M802
M808
#3000=1(T12 OVER) N13
M6T10
#983=0
M802
M808
#3000=1(T13 OVER) N14
M6T11
#984=0
M808
#3000=1(T14 OVER) N15
M6T12
#985=0
M802
M808
#3000=1(T15 OVER) N16
M6T13
#986=0
M802
M808
#3000=1(T16 OVER) N17
M6T14
#987=0
M802
M808
#3000=1(T17 OVER)