aşağıda link ini de verdiğim video daki gibi işleme yapmak için nasıl bir program yazmalıyız? daha önce bu tip bir işleme yapmış arkadaş varmı aramızda? videoyu açamayanlar için sorum şu:
tezgaha bağladığımız parçayı probla sıfırlarını ölçüp ölçülen koordinatlara göre parçayı işlemek için nasıl bir program yazmalıyız...
http://www.youtube.com/watch?v=l4yzS-4H8DU
Linki Göremedim..
link yok youtube videosu ekli eğer youtubeden video izleyemiyorsanız sitemizde youtube eklentisi mevcuttur
aşağıdaki linkden yükleyebilirsin
http://rapidshare.com/files/224608291/www.turkeycnc.com-youtube.rar
rar pass:www.turkeycnc.com
Alıntı yapılan: bilgehan - Haziran 24, 2009, 06:59:26 ÖS
aşağıda link ini de verdiğim video daki gibi işleme yapmak için nasıl bir program yazmalıyız? daha önce bu tip bir işleme yapmış arkadaş varmı aramızda? videoyu açamayanlar için sorum şu:
tezgaha bağladığımız parçayı probla sıfırlarını ölçüp ölçülen koordinatlara göre parçayı işlemek için nasıl bir program yazmalıyız...
http://www.youtube.com/watch?v=l4yzS-4H8DU
Her parcanın referans istasyonlarını (G54,G55,G56 ...) ayrı kullanarak aynı programda isleyebilirsin.
Basit Bir Örnek : Videodaki gibi bir aparata 4 veya 5 parca bağlandıgını hayal edelim bu parcaların referanslarını ayrı istasyona tasıyalım, (G54,G55,G56 ...) parcaların referans noktalarına birer punta atalım.
G15 G17 G40 G49 G80
G91 G28 Z0
T1 M6
G90 G54 G0 X0 Y0 S1800 M3
G43 Z100 H1
Z50 M8
G98 G81 Z-6 R1 F100
G55 X0 Y0
G56 X0 Y0
G57 X0 Y0
G58 X0 Y0
G80 G0 Z100 M9
G91 G28 Z0 M5
M30
Umarım sormak istedigin sorunun cevabı budur..
hayır demek istediğim o değil. cycle start bastıktan sonra probla koordinatları ölçüyor. ölçtüğü koordinatları kullanarak parçayı işliyor. probla ölçmesinin sebebi herhangi bir bağlama hatasını tolere edebilmek.
Soruyu birazdaha iyi anladım oyle bir program yazabilmek icin referans kontrolu yapabilen tezgaha sahip olmak gerekir, bu piyasada start tusuyla referans kontrolu yapan (fanuc kontrol) tezgaha rastlamadım. Uc boyutlu ölcüm aletini andırıyor..
renishaw takım olcme probunu montaj yaptırınca servis ozaman onunla alakalı diye bu sistemin programı nıda yuklemişti o zaman ama otamatik olcum yapıp ona gore gidiyor
nasıl otomatik ölçüm yapıp ona göre gidiyor biraz açarmısın. ayrı bir pc kullanıyormusun yoksa tezgah mı desteklemesi gerekiyor?
Alıntı yapılan: birkan66 - Haziran 26, 2009, 10:56:33 ÖÖ
renishaw takım olcme probunu montaj yaptırınca servis ozaman onunla alakalı diye bu sistemin programı nıda yuklemişti o zaman ama otamatik olcum yapıp ona gore gidiyor
cnc torna tezgahında görmüştüm.bunun için macro program yazılıydı.ama sistem hakkında pek bi bilgim yok malesef..
çok gerekliydi emeğine sağlık!
evet semih haklı macro program ile birseyler veriyorsun ona gore olcuyor
işte ben de tam olarak o birşeyeri soruyırum. :) forumda bunu bilen arkadaş vardır mutlaka ama bu konuya denk gelmedi herhalde...
Alıntı yapılan: birkan66 - Haziran 27, 2009, 02:12:47 ÖÖ
evet semih haklı macro program ile birseyler veriyorsun ona gore olcuyor
Alıntı yapılan: bilgehan - Haziran 25, 2009, 02:47:38 ÖS
hayır demek istediğim o değil. cycle start bastıktan sonra probla koordinatları ölçüyor. ölçtüğü koordinatları kullanarak parçayı işliyor. probla ölçmesinin sebebi herhangi bir bağlama hatasını tolere edebilmek.
Bilgehan kardeş gerekli açıklamayı yapmış. teşekkür ederim.
Buda 5 eksenli turningcenter icin bir seyler
O8006(Z EKSEN SIFIRLAMA)
G54
G28U0.V0.
T03000
M06T03003
G400B-90.J0.
G0C100.
G54G0Z10.
X30
M74
G65P9513Z0.S2
M73
G28U0.
G28V0.
M30
O8007(X EKSEN SIFIRLAMA)
G28U0.
G28V0.
T03003
G400B-90.J0.
G57G0Z-20.
X106
M74
G65P9513X90S4
M73
G0Z50
G28U0.
M30
O8008(Y EKSEN SIFIRLAMA)
T03003
G400B-90.J0.
G58Z50.
X0.
Y55.
Z-10
M74
G65P9513Y0.S4
M73
G0Z50
G28V0
G28U0
M30
O8009(DELIK MERKEZI BULMA)
M06T03003
G400B-90.J0.
G0Z10
G54G0X0.
Z-10
M74
G65P9519D20S4
M73
G0Z50
G28U0.
M30
O8010(EKSENDEN KACIK DELIK MERKEZI BULMA)
G58
T03003
G400B-90.J0.
G0Z10
C0.
X54
M74
G0G31Z-10
G65P9512S4D20
M73
G0Z50
G28U0
M30
O8011(CEP MERKEZI BULMA)
G58
M06T03000
T03003
G0B0.
G0X100.
Z-43.4
C185.3
X60.
M74
G65P9410Z40S4
M73
G0X100
G28U0.
G28V0.
G28W0.
M30
O8012(DELIK MERKEZI BULMA VERTICAL)
G58
M06T03003
T03003
G58G0C96
Z-42.6
X100.
M74
G1G31X75F100
G65P9420D20S4
G0G31X100.
M73
G28U0.
G28V0.
G28W0.
M30
O8013(CEP UZUNLUGUNU BULMA)
G58
M06T03000
T03003
G0B0
Z-38
C183.4
X100.
G65P9740
G28U0
G28V0
G28W0
M30
O9740
M74
G1G31X65.6F100
G4P100
G1G31W-30F100
G4P100
/#501=#5062
G4P100
G1W30F100
G4P100
G1G31W30F100
/#502=#5062
#503=[#502-#501]+6
G4P100
G1W-30F100
G4P100
G1X100.F100
M73
M99
O8014(DELIK CAPI BULMA)
G28U0V0W0
M06T03000
T03003
G58
G0B0.
Z-62.900
C242
X80
G65P9741
M73
G28V0
G28U0
G28W0.
M30
O9741
M74
G1G31X50.F100
G4P100
G1G31V-80F100
G4P100
/#501=#5061
G4P100
G1V30F100
G4P100
G1G31V80F100
/#502=#5061
#503=53
G4P100
G1V-30F100
G4P100
G1X100.F100
M73
M99
O8017(POCKET KOSE BULMA)
G54
M35
M06T03003
G0B0
G0Z20
C0.
Y17
X70
M74
G0X66
G65P9413Z0S2
G0Z20
Y17
G65P9413Y0S2
M73
G0X200
M30
%
%
O9007(MILLING SPINDLE WARMINH UP V1.0)
(NO.3457 = 00001011)
(NO.6077 = 102)
G31
G97
G5.1Q0
IF[#1000EQ1]GOTO5
IF[#1001EQ1]GOTO5
GOTO999
N5
G31
G490S0
M102(WARMING UP START)
G04U1.0
G31
G97
IF[#1000EQ1]GOTO10
GOTO20
N10(9HR, 6000RPM,10MIN)
M03S1000P12
G04U600.
M05P12
N20(7DAYS, 12000RPM,30MIN)
M03S2000P12
G04U60.
M03S4000P12
G04U60.
M03S6000P12
G04U60.
M03S8000P12
G04U30.
M03S10000P12
G04U30.
M03S12000P12
G04U1800.
M05P12
N900
G490S0
M121
N999
G5.1Q1
M99
O8000(HOR CAL)
G28U0W0
T03003
G400B-90.J0
G54X0.Y0.Z50.
M74
G65P9314X0.Z10.
G65P9314Z-10.
G65P9500D16.0
G65P9515D16.0
G65P9516D16.0
G65P9314Z50.
G65P9314X100.
M73
G28U0.W0.V0.
M30
O8001(HOR CIR)
T03003
G400B-90.J0.
G55X100.Y0.Z20.
M74
G65P9314X0.Z20.
G65P9314X0.Z-10.
G65P9519D16.T5.
G65P9314Z50.
G65P9314X100.
M73
M01
G28U0.W0.
M30
O8002(VER CAL)
T03003
G54G00X200.0Z10.C0.
M101
M74
G65P9314X150.Z-50.
G65P9314X85.0
G65P9400D16.0
G65P9415D16.0
G65P9416D16.0
G65P9314X150.
M73
M01
G28U0.W0.
M30
O8003(VER CIR)
G00B0
T03003
G55G00X150.Y0.Z10.C216.2
M74
G65P9314Z-50.
G65P9314X85.
G65P9412D16.H0.5
G65P9314X150.
M73
M01
G28U0.W0.
M30
O8004(ANGLED MEA)
G28U0.W0.V0.
G54G98G80G40
M05P11
G28U0.W0.V0.
M35
M90
G00C0.
M89
M101
M74
T03003
G368X98.Z0.D1.B-45.
G01X20.Z0.F2000.
X-60.F200
T03000
G69.1
G65P9619D16.0K0.C1.
T03003
G368X98.Z0.D1.B-45.
M01
M73
G369
M35
M30
O8005(X SURFACE MEAS.)
G28U0.W0
T03003
G55X200.Y0.Z10.
M74
G65P9314X150.Z-30.
G65P9413X97.
G65P9314X150.
M73
M00
G28U0.W0.
M30
O9311(REN X MEAS)
(A-4012-1018-0C BASED ON 4012-0836)
G65P9724
#31=#5041-#5081
IF[#24EQ#0]GOTO18
IF[#21EQ#0]GOTO2
IF[#22EQ#0]GOTO18
IF[#26EQ#0]GOTO18
G65P9314Z#22F#9
G65P9314X[#21+[20*#129]]F#9
G65P9721X#21Q#17
IF[#135NE0]GOTO14
#[#119+17]=#21-[#5061-#5081]
G65P9314X#31F#9
G65P9314Z#26F#9
G65P9314X[#24+[20*#129]]
N2
IF[#18NE#0]GOTO6
(OD)
#1=0
#2=#[#119+17]
#3=0
#27=1
IF[#5EQ#0]GOTO4
(COSINE CORRECT)
IF[#4EQ#0]GOTO18
#3=[[[#4/COS[ABS[#5]]]-#4]*2]
#3=-#3
N4
IF[#24LT[#5041-#5081]]GOTO6
(ID)
#1=#[#119+16]*4
#2=#[#119+17]
#3=0
#27=-1
IF[#5EQ#0]GOTO6
(COSINE CORRECT)
IF[#4EQ#0]GOTO18
#3=[[[#4/COS[ABS[#5]]]-#4]*2]
N6
G65P9721X#24Q#17
IF[#135NE0]GOTO14
#32=#5061-#5081
IF[#18EQ#0]GOTO8
#[#119+17]=#24-#32
GOTO20
N8
(X POS)
#140=#32+#2+#1+#3
#141=#5045-#5085
#142=#5042-#5082
#143=#140
#144=#140-#24
#145=#144*#27
G65P9314X#31
IF[#20EQ#0]GOTO10
G65P9732T#20X#144
N10
IF[#23EQ#0]GOTO12
G65P9730A13.X#24D#24
N12
IF[#11EQ#0]GOTO20
IF[ABS[#144]LE#11]GOTO20
#3000=90(OUT OF TOLERANCE)
N14
IF[#135EQ2]GOTO16
#3000=92(PROBE OPEN)
N16
#3000=93(PROBE FAIL)
N18
#3000=91(FORMAT ERROR)
N20
M99
O9312(REN C AXIS LEVEL)
G65P9724
#2=#5042-#5082
#3=#5041-#5081
IF[#25EQ#0]GOTO6
IF[#24EQ#0]GOTO6
IF[#25EQ0]GOTO6
G65P9314Y[#2+[#25/2]]F#9
G65P9721X#24Q#17
IF[#135NE0]GOTO8
#29=[#5061-#5081]/2
G0X#3
Y#2
G65P9314Y[#2-[#25/2]]F#9
G65P9721X#24Q#17
IF[#135NE0]GOTO8
#30=[#5061-#5081]/2
G0X#3
Y#2
#31=[#30-#29]
#32=ABS[#31]
#33=ATAN[#32]/[#25]
IF[#31GT0]GOTO2
#33=[#33*[-1]]
N2
(POSITION)
#146=#33
(ERROR)
#147=[#5043-#5083]+#33
IF[#11EQ#0]GOTO4
IF[ABS[#147]LT#11]GOTO4
#3000=90(OUT OF TOLERANCE)
N4
GOTO14
N6
#3000=91(FORMAT ERROR)
N8
G0X#3
Y#2
N10
#3000=92(PROBE OPEN)
N12
#3000=93(PROBE FAIL)
N14
IF[#19EQ#0]GOTO16
G65P9732S#19C#147
N16
M99
O9314(REN PRO POS)
G65P9724
IF[#9NE#0]GOTO2
#9=#118
N2
G31X#24Y#25Z#26F#9
G4P100
IF[#24EQ#0]GOTO4
IF[ABS[[#5041-#5081]-#24]GE#130]GOTO8
N4
IF[#25EQ#0]GOTO6
IF[ABS[[#5045-#5085]-#25]GE#130]GOTO8
N6
IF[#26EQ#0]GOTO10
IF[ABS[[#5042-#5082]-#26]GE#130]GOTO8
GOTO10
N8
#3000=94(PATH OBSTRUCTED)
N10
M99
O9318(REN FEATURE)
IF[#24NE#0]GOTO2
IF[#25NE#0]GOTO2
IF[#26NE#0]GOTO2
IF[#3NE#0]GOTO2
#125=#142
#126=#141
#127=#140
#128=#146
GOTO14
N2
#33=0
IF[#3EQ#0]GOTO4
#146=#146-#128
IF[#11EQ#0]GOTO4
IF[ABS[#146-#3]LT#11]GOTO4
#33=1
N4
IF[#26EQ#0]GOTO6
#142=#142-#125
IF[#11EQ#0]GOTO6
IF[ABS[#142-#26]LT#11]GOTO6
#33=1
N6
IF[#25EQ#0]GOTO8
#141=#141-#126
IF[#11EQ#0]GOTO8
IF[ABS[#141-#25]LT#11]GOTO8
#33=1
N8
IF[#24EQ#0]GOTO10
#140=#140-#127
IF[#11EQ#0]GOTO10
IF[ABS[#140-#24]LT#11]GOTO10
#33=1
N10
IF[#23EQ#0]GOTO12
G65P9730A18.C#3X#24Y#25Z#26I#33H#11
N12
IF[#33EQ0]GOTO14
#3000=95(OUT OF POSITION)
N14
M99
O9400(REN-V CENTREFIND)
G65P9724
#[#119+4]=0
#[#119+5]=0
M101
M279S1800
M100
G65P9419D#7X#24
#2=#141
#3=#142
M101
M279S0
M100
G65P9419D#7X#24
#2=[#2+#141]/2
#3=[#3+#142]/2
G65P9314Y#2Z#3
M99
O9410(REN-V WEB PKT)
G65P9724
#1=#5042-#5082
#2=#5045-#5085
IF[#26EQ#0]GOTO6
IF[#25NE#0]GOTO20
#27=#1
#7=#26
#4=#[#119]
(X POS)
#140=#5041-#5081
IF[#24EQ#0]GOTO4
IF[#18NE#0]GOTO2
(X POS)
#140=#24
#18=5*#129
N2
#136=#26/2+#4+#18
N4(ZX)
G65P9314Y[#2-#[#119+5]]
G65P9705D#7Q#17X#24
G0Y#2
IF[#135NE0]GOTO22
(Z POS)
#142=#139+#[#119+4]
(Y POS)
#141=#5045-#5085
GOTO12
N6
IF[#25EQ#0]GOTO20
#28=#2
#7=#25
#4=#[#119+2]
(X POS)
#140=#5041-#5081
IF[#24EQ#0]GOTO10
IF[#18NE#0]GOTO8
(X POS)
#140=#24
#18=5*#129
N8
#136=#25/2+#4+#18
N10(YX)
G65P9314Z[#1-#[#119+4]]
G65P9704D#7Q#17X#24
G0Z#1
IF[#135NE0]GOTO22
(Y POS)
#141=#139+#[#119+5]
(Z POS)
#142=#5042-#5082
N12
#3=#138-#137+#4*2
#145=-1
IF[#24EQ#0]GOTO14
#3=#138-#137-#4*2
#145=1
N14
(SIZE)
#143=#3
(ERROR)
#144=#3-#7
(METAL ON/OFF)
#145=#144*#145
IF[#23EQ#0]GOTO16
G65P9730A10.D#7Y#28Z#27H#11
N16
IF[#21EQ#0]GOTO18
G65P9732U#21C[#145/2]
N18
IF[#11EQ#0]GOTO26
IF[ABS[#144]LT#11]GOTO26
#3000=90(OUT OF TOLERANCE)
N20
#3000=91(FORMAT ERROR)
N22
IF[#135EQ2]GOTO24
#3000=92(PROBE OPEN)
N24
#3000=93(PROBE FAIL)
N26
IF[#19EQ#0]GOTO30
IF[#25NE#0]GOTO28
G65P9732S#19Z[#142-#1]
GOTO30
N28
G65P9732S#19Y[#141-#2]
N30
M99
O9412(REN-V CZ BORE/BOSS)
IF[#7EQ#0]GOTO28
G65P9724
#27=#5041-#5081
#30=#5042-#5082
#28=#5043-#5083
#29=#5045-#5085
G65P9314Z[#30-#[#119+4]]Y[#29-#[#119+5]]F[500*#129]
#3=[ATAN[[#7/2]/[#27/2]]/[1]]*2
IF[#24EQ#0]GOTO2
#3=[ATAN[[#7/2]/[#24/2]]/[1]]*2
N2
#9=3.142*#27/360(ARC DIST PER DEG)
IF[#24EQ#0]GOTO4
#9=3.142*#24/360
N4
IF[#8NE#0]GOTO6
#8=[[5*#129]+#[#119+2]]/#9
N6
#136=#0
IF[#24EQ#0]GOTO10
#136=#28+[#3/2]+#8
N8
G4P100
G31C#136F[#118/#9]
G4P100
IF[ABS[[#5063-#5083]-#136]GT0.1]GOTO22
G31X#24F#118
G4P100
IF[ABS[[#5061-#5081]-#24]GT#130]GOTO22
N10
G65P9723C[#28+[#3/2]]Q#8F#9
IF[#135NE0]GOTO24
G1X#27F#118
#121=#5063-#5083
IF[#24EQ#0]GOTO14
#136=#28-[#3/2]-#8
N12
G4P100
G31C#136F[#118/#9]
G4P100
IF[ABS[[#5063-#5083]-#136]GT0.1]GOTO22
G31X#24F#118
G4P100
IF[ABS[[#5061-#5081]-#24]GT#130]GOTO22
N14
G65P9723C[#28-[#3/2]]Q#8F#9
IF[#135NE0]GOTO24
#122=#5063-#5083
#123=[#121+#122]/2
IF[#121GT#122]GOTO111
#123=#123-180.
N111
(C POS)
#146=#123
G0X#27
C#123
(X POS)
#140=#5041-#5081
IF[#24EQ#0]GOTO18
IF[#18NE#0]GOTO16
(X POS)
#140=#24
#18=5*#129
N16
#136=#7/2+#18+#[#119]
N18
G65P9705D#7Q#17X#24
IF[#135NE0]GOTO24
(Z POS)
#142=#139+#[#119+4]
(Y POS)
#141=#5045-#5085
(SIZE)
#143=ABS[#138-#137]+#[#119]+#[#119+1]
#145=-1
IF[#24EQ#0]GOTO20
(SIZE)
#143=ABS[#138-#137]-#[#119]-#[#119+1]
#145=1
N20
(SIZE ERROR)
#144=#143-#7
(METAL ON/OFF)
#145=#144*#145
GOTO24
N22
#135=1
N24
G0X#27
C#28
Y#29Z#30
IF[#135NE0]GOTO30
IF[#23EQ#0]GOTO25
G65P9730A12.D#7C#28Y#29Z#30X#27H#11
N25
IF[#11EQ#0]GOTO26
IF[ABS[#144]LTABS[#11]]GOTO26
#3000=90(OUT OF TOLERANCE)
N26
IF[#21EQ#0]GOTO27
G65P9732U#21C[#145/2]
N27
GOTO34
N28
#3000=91(FORMAT ERROR)
N30
IF[#135EQ2]GOTO32
#3000=92(PROBE OPEN)
N32
#3000=93(PROBE FAIL)
N34
IF[#19EQ#0]GOTO36
G65P9732S#19Z[#142-#30]
G65P9732S#19C[#146-#28]
N36
M99
O9413(REN-V XYZ MEAS)
G65P9724
IF[#20EQ#0]GOTO2
IF[#21NE#0]GOTO14
N2
#135=0
IF[#24NE#0]GOTO20
IF[#25NE#0]GOTO34
IF[#26EQ#0]GOTO14
(Z SURFACE)
N4
#2=#5045-#5085
(Y POS)
#141=#2
(X POS)
#140=#5041-#5081
G65P9314Y[#2-#[#119+5]]
#8=#[#119]
#145=-1
IF[[#5042-#5082]LT#26]GOTO6
#8=-#8
#145=1
N6
G65P9720Z#26Q#17
#5=#5062-#5082
G0Y#2
IF[#135NE0]GOTO16
#3=#5+#8+#[#119+4]
(POS)
#142=#3
(SIZE)
#143=#3
(ERR)
#144=#3-#26
#145=#144
IF[#23EQ#0]GOTO8
G65P9730A13.Z#26D#26H#11
N8
IF[#20EQ#0]GOTO10
G65P9732T#20Z#144
N10
IF[#21EQ#0]GOTO12
G65P9732U#21C#145
N12
IF[#11EQ#0]GOTO48
IF[ABS[#144]LE#11]GOTO48
#3000=90(OUT OF TOLERANCE)
N14
#3000=91(FORMAT ERROR)
N16
IF[#135EQ2]GOTO18
#3000=92(PROBE OPEN)
N18
#3000=93(PROBE FAIL)
(X SURFACE)
N20
#2=#5042-#5082
#4=#5045-#5085
(Y POS)
#141=#4
(Z POS)
#142=#2
G65P9314Z[#2-#[#119+4]]Y[#4-#[#119+5]]
G65P9721X#24Q#17
#5=#5061-#5081
N22
G0Z#2Y#4
IF[#135NE0]GOTO30
(POS)
#140=#5
(SIZE)
#143=#5
(ERR)
#144=#5-#24
#145=#144
IF[#23EQ#0]GOTO24
G65P9730A13.X#24D#24H#11
N24
IF[#20EQ#0]GOTO26
G65P9732T#20X#144
N26
IF[#21EQ#0]GOTO28
G65P9732U#21C#145
N28
IF[#11EQ#0]GOTO48
IF[ABS[#144]LE#11]GOTO48
#3000=90(OUT OF TOLERANCE)
N30
IF[#135EQ2]GOTO32
#3000=92(PROBE OPEN)
N32
#3000=93(PROBE FAIL)
(Y SURFACE)
N34
#2=#5042-#5082
(X POS)
#140=#5041-#5081
(Z POS)
#142=#2
G65P9314Z[#2-#[#119+4]]
#8=#[#119+2]
#145=-1
IF[[#5045-#5085]LT#25]GOTO36
#8=-#8
#145=1
N36
G65P9722Y#25Q#17
#5=#5065-#5085
G0Z#2
IF[#135NE0]GOTO44
#3=#5+#8+#[#119+5]
(POS)
#141=#3
(SIZE)
#143=#3
(ERR)
#144=#3-#25
#145=#144*#145
IF[#23EQ#0]GOTO38
G65P9730A13.Y#25D#25H#11
N38
IF[#20EQ#0]GOTO40
#3000=91(FORMAT ERROR)
N40
IF[#21EQ#0]GOTO42
G65P9732U#21C#145
N42
IF[#11EQ#0]GOTO48
IF[ABS[#144]LE#11]GOTO48
#3000=90(OUT OF TOLERANCE)
N44
IF[#135EQ2]GOTO46
#3000=92(PROBE OPEN)
N46
#3000=93(PROBE FAIL)
N48
IF[#19EQ#0]GOTO54
IF[#24NE#0]GOTO50
IF[#25NE#0]GOTO52
G65P9732S#19Z[#142-#26]
GOTO54
N50
G65P9732S#19X[#140-#24]
GOTO54
N52
G65P9732S#19Y[#141-#25]
N54
M99
O9415(REN-V CAL)
G65P9724
IF[#26EQ#0]GOTO2
IF[#25EQ#0]GOTO2
GOTO10
N2
IF[#26EQ#0]GOTO4
#7=#26
GOTO6
N4
IF[#25EQ#0]GOTO6
#7=#25
N6
IF[#7EQ#0]GOTO26
#1=#5042-#5082
#2=#5045-#5085
IF[#24EQ#0]GOTO10
IF[#18NE#0]GOTO8
#18=5*#129
N8
#136=#7/2+#[#119]+#18
N10
IF[#26NE#0]GOTO12
IF[#25NE#0]GOTO18
G65P9705D#7Q#17X#24
IF[#135NE0]GOTO22
G65P9314Z#139
G65P9704D#7Q#17X#24
IF[#135NE0]GOTO22
G65P9314Y#139
N12
G65P9705D#7Q#17X#24
IF[#135NE0]GOTO22
IF[#24NE#0]GOTO14
#[#119]=#7/2-ABS[#139-#137]
#[#119+1]=#7/2-ABS[#139-#138]
GOTO16
N14
#[#119]=ABS[#139-#137]-#7/2
#[#119+1]=ABS[#139-#138]-#7/2
N16
IF[#26NE#0]GOTO28
N18
G65P9704D#7Q#17X#24
IF[#135NE0]GOTO22
IF[#24NE#0]GOTO20
#[#119+2]=#7/2-ABS[#139-#137]
#[#119+3]=#7/2-ABS[#139-#138]
GOTO28
N20
#[#119+2]=ABS[#139-#137]-#7/2
#[#119+3]=ABS[#139-#138]-#7/2
GOTO28
N22
G0Z#1Y#2
IF[#135EQ2]GOTO24
#3000=92(PROBE OPEN)
N24
#3000=93(PROBE FAIL)
N26
#3000=91(FORMAT ERROR)
N28
G0Z#1Y#2
M99
O9416(REN-V CAL)
G65P9724
IF[#26EQ#0]GOTO2
IF[#25EQ#0]GOTO2
GOTO14
N2
IF[#26EQ#0]GOTO4
#7=#26
GOTO6
N4
IF[#25EQ#0]GOTO6
#7=#25
N6
IF[#7EQ#0]GOTO14
#1=#5042-#5082
#2=#5045-#5085
IF[#24EQ#0]GOTO10
IF[#18NE#0]GOTO8
#18=5*#129
N8
#136=#7/2+#[#119]+#18
N10
IF[#25NE#0]GOTO12
G65P9705D#7Q#17X#24
IF[#135NE0]GOTO16
#[#119+4]=#1-#139
IF[#26NE#0]GOTO20
G65P9314Z#139
N12
G65P9704D#7Q#17X#24
IF[#135NE0]GOTO16
#[#119+5]=#2-#139
GOTO20
N14
#3000=91(FORMAT ERROR)
N16
G0Z#1Y#2
IF[#135EQ2]GOTO18
#3000=92(PROBE OPEN)
N18
#3000=93(PROBE FAIL)
N20
G0Z#1Y#2
M99
O9417(REN-V CAL)
#32=-1
G65P9724
IF[#24EQ#0]GOTO6
IF[#20EQ#0]GOTO6
G65P9721X#24Q#17
IF[#135NE0]GOTO2
#1=#24-[#5061-#5081]
#1=#1*#32
G65P9732T#20X-[#1]
GOTO8
N2
IF[#135EQ2]GOTO4
#3000=92(PROBE OPEN)
N4
#3000=93(PROBE FAIL)
N6
#3000=91(FORMAT ERROR)
N8
M99
O9419(REN-V BORE/BOSS)
G65P9724
#1=#5042-#5082
#2=#5045-#5085
G65P9314Z[#1-#[#119+4]]Y[#2-#[#119+5]]
IF[#7EQ#0]GOTO12
(X POS)
#140=#5041-#5081
IF[#24EQ#0]GOTO4
(X POS)
#140=#24
IF[#18NE#0]GOTO2
#18=5*#129
N2
#136=#7/2+#[#119]+#18
N4
G65P9704D#7Q#17X#24
IF[#135NE0]GOTO14
(Y POS)
#141=#139+#[#119+5]
G65P9314Y#139
G65P9705D#7Q#17X#24
IF[#135NE0]GOTO14
(Z POS)
#142=#139+#[#119+4]
(SIZE)
#143=ABS[#138-#137]+#[#119]+#[#119+1]
#145=-1
IF[#24EQ#0]GOTO6
(SIZE)
#143=ABS[#138-#137]-#[#119]-#[#119+1]
#145=1
N6
(ERROR)
#144=#143-#7
#145=#144*#145
IF[#23EQ#0]GOTO8
G65P9730A19.D#7H#11Z#1Y#2
N8
IF[#21EQ#0]GOTO10
G65P9732U#21C[#145/2]
N10
IF[#11EQ#0]GOTO18
IF[ABS[#144]LT#11]GOTO18
#3000=90(OUT OF TOLERANCE)
N12
#3000=91(FORMAT ERROR)
N14
G0Z#1Y#2
IF[#135EQ2]GOTO16
#3000=92(PROBE OPEN)
N16
#3000=93(PROBE FAIL)
N18
G0Z#1Y#2
IF[#19EQ#0]GOTO20
G65P9732S#19Z[#142-#1]
G65P9732S#19Y[#141-#2]
N20
M99
O9420(REN-V C AXIS)
IF[#7EQ#0]GOTO2
IF[#3NE#0]GOTO22
N2
G65P9724
#27=#5041-#5081
#28=#5043-#5083
#29=#5045-#5085
G65P9314Y[#29-#[#119+5]]F[500*#129]
IF[#3NE#0]GOTO4
IF[#7EQ#0]GOTO22
#3=[ATAN[[#7/2]/[#27/2]]/[1]]*2
IF[#24EQ#0]GOTO4
#3=[ATAN[[#7/2]/[#24/2]]/[1]]*2
N4
#9=3.142*#27/360(ARC DIST PER DEG)
IF[#24EQ#0]GOTO6
#9=3.142*#24/360
N6
IF[#17NE#0]GOTO8
#17=[[5*#129]+#[#119+2]]/#9
N8
#136=#0
IF[#24EQ#0]GOTO12
#136=#28+[#3/2]+#17
N10
G4P100
G31C#136F[#118/#9]
G4P100
IF[ABS[[#5063-#5083]-#136]GT0.1]GOTO18
G31X#24F#118
G4P100
IF[ABS[[#5061-#5081]-#24]GT#130]GOTO18
N12
G65P9723C[#28+[#3/2]]Q#17F#9
IF[#135NE0]GOTO20
G1X#27F#118
#121=#5063-#5083
IF[#24EQ#0]GOTO16
#136=#28-[#3/2]-#17
N14
G4P100
G31C#136F[#118/#9]
G4P100
IF[ABS[[#5063-#5083]-#136]GT0.1]GOTO18
G31X#24F#118
G4P100
IF[ABS[[#5061-#5081]-#24]GT#130]GOTO18
N16
G65P9723C[#28-[#3/2]]Q#17F#9
IF[#135NE0]GOTO20
#122=#5063-#5083
#123=[#121+#122]/2
IF[#121GT#122]GOTO111
#123=#123-180.
N111
GOTO20
N18
#135=1
N20
G0X#27
C#28
Y#29
IF[#135NE0]GOTO24
#124=[#121-#122]
#120=#123-#28
IF[#11EQ#0]GOTO28
IF[ABS[#120]LTABS[#11]]GOTO28
#3000=90(OUT OF TOLERANCE)
GOTO28
N22
#3000=91(FORMAT ERROR)
N24
IF[#135EQ2]GOTO26
#3000=92(PROBE OPEN)
N26
#3000=93(PROBE FAIL)
N28
IF[#19EQ#0]GOTO30
G65P9732S#19C#120
N30
M99
O9500(REN-H CENTREFIND)
G65P9724
#[#119+14]=0
#[#119+15]=0
M101
M279S1800
M100
G65P9519D#7Z#26
#1=#140
#2=#141
M101
M279S0
M100
G65P9519D#7Z#26
#1=[#1+#140]/2
#2=[#2+#141]/2
G65P9314X#1Y#2
M99
O9510(REN-H WEB PKT)
G65P9724
#1=#5041-#5081
#2=#5045-#5085
IF[#25NE#0]GOTO6
IF[#24EQ#0]GOTO20
#27=#1
#7=#24
#4=#[#119+10]
#33=2
(Z POS)
#142=#5042-#5082
IF[#26EQ#0]GOTO4
IF[#18NE#0]GOTO2
(Z POS)
#142=#26
#18=5*#129
N2
#136=#24/2+#4+#18
N4(XZ)
G65P9314Y[#2-#[#119+15]]
G65P9703D#7Q#17Z#26
G0Y#2
IF[#135NE0]GOTO22
(X POS)
#140=#139+[#[#119+14]*2]
(Y POS)
#141=#5045-#5085
#143=[ABS[#138-#137]/2]+#[#119+10]+#[#119+11]
#145=-1
IF[#26EQ#0]GOTO14
#143=[ABS[#138-#137]/2]-#[#119+10]-#[#119+11]
#145=1
GOTO14
N6(Y WEB/POCK)
#28=#2
#7=#25
#4=#[#119+12]
#33=1
(Z POS)
#142=#5042-#5082
IF[#26EQ#0]GOTO10
IF[#18NE#0]GOTO8
(Z POS)
#142=#26
#18=5*#129
N8
#136=#25/2+#4+#18
N10(YZ)
G65P9314X[#1-[#[#119+14]*2]]
G65P9702D#7Q#17Z#26
G0X#1
IF[#135NE0]GOTO22
(Y POS)
#141=#139+#[#119+15]
(X POS)
#140=#5041-#5081
N12
#143=ABS[#138-#137]+#[#119+12]+#[#119+13]
#145=-1
IF[#26EQ#0]GOTO14
#143=ABS[#138-#137]-#[#119+12]-#[#119+13]
#145=1
N14
(ERR)
#144=#143-#7
#145=#144*#145
IF[#23EQ#0]GOTO16
G65P9730A10.D#7Y#28X#27H#11
N16
IF[#20EQ#0]GOTO17
G65P9732T#20X#144
N17
IF[#21EQ#0]GOTO18
G65P9732U#21C[#145/2]
N18
IF[#11EQ#0]GOTO26
IF[ABS[#144]LT#11]GOTO26
#3000=90(OUT OF TOLERANCE)
N20
#3000=91(FORMAT ERROR)
N22
IF[#135EQ2]GOTO24
#3000=92(PROBE OPEN)
N24
#3000=93(PROBE FAIL)
N26
G0X#1Y#2
IF[#19EQ#0]GOTO30
IF[#25NE#0]GOTO28
G65P9732S#19X[#140-#1]
GOTO30
N28
G65P9732S#19Y[#141-#2]
N30
M99
O9512(REN-V CX BORE/BOSS)
IF[#7EQ#0]GOTO26
G65P9724
#27=#5041-#5081
#30=#5042-#5082
#28=#5043-#5083
#29=#5045-#5085
G65P9314X[#27-[#[#119+14]*2]]Y[#29-#[#119+15]]F[500*#129]
#3=[ATAN[[#7/2]/[#27/2]]/[1]]*2
#9=3.142*#27/360(ARC DIST PER DEG)
IF[#8NE#0]GOTO2
#8=[[5*#129]+#[#119+12]]/#9
N2
#136=#0
IF[#26EQ#0]GOTO6
#136=#28+[#3/2]+#8
N4
G4P100
G31C#136F[#118/#9]
G4P100
IF[ABS[[#5063-#5083]-#136]GT0.1]GOTO18
G31Z#26F#118
G4P100
IF[ABS[[#5062-#5082]-#26]GT#130]GOTO18
N6
G65P9723C[#28+[#3/2]]Q#8F#9
IF[#135NE0]GOTO20
G1Z#30F#118
#121=#5063-#5083
IF[#26EQ#0]GOTO10
#136=#28-[#3/2]-#8
N8
G4P100
G31C#136F[#118/#9]
G4P100
IF[ABS[[#5063-#5083]-#136]GT0.1]GOTO18
G31Z#26F#118
G4P100
IF[ABS[[#5062-#5082]-#26]GT#130]GOTO18
N10
G65P9723C[#28-[#3/2]]Q#8F#9
IF[#135NE0]GOTO20
#122=#5063-#5083
#123=[#121+#122]/2
IF[#121GT#122]GOTO111
#123=#123-180.
N111
(C POS)
#146=#123
G0Z#30
C#123
(Z POS)
#142=#5042-#5082
IF[#26EQ#0]GOTO14
IF[#18NE#0]GOTO12
(Z POS)
#142=#26
#18=5*#129
N12
#136=#7/2+#[#119+10]+#18
N14
G65P9703D#7Q#17Z#26
IF[#135NE0]GOTO20
(X POS)
#140=#139+#[#119+14]
(Y POS)
#141=#5045-#5085
(SIZE)
#143=[ABS[#138-#137]/2]+#[#119+10]+#[#119+11]
#145=-1
IF[#26EQ#0]GOTO16
(SIZE)
#143=[ABS[#138-#137]/2]-#[#119+10]-#[#119+11]
#145=1
N16
(SIZE ERROR)
#144=#143-#7
(METAL ON/OFF)
#145=#144*#145
GOTO20
N18
#135=1
N20
G0Z#30
C#28
X#27Y#29
IF[#135NE0]GOTO28
IF[#23EQ#0]GOTO22
G65P9730A12.D#7C#28Y#29Z#30X#27H#11
N22
IF[#21EQ#0]GOTO23
G65P9732U#21C[#145/2]
N23
IF[#11EQ#0]GOTO24
IF[ABS[#144]LTABS[#11]]GOTO24
#3000=90(OUT OF TOLERANCE)
N24
GOTO32
N26
#3000=91(FORMAT ERROR)
N28
IF[#135EQ2]GOTO30
#3000=92(PROBE OPEN)
N30
#3000=93(PROBE FAIL)
N32
IF[#19EQ#0]GOTO34
G65P9732S#19X[#140-#27]
G65P9732S#19C[#146-#28]
N34
M99
O9513(REN-H XYZ MEAS)
G65P9724
IF[#20EQ#0]GOTO2
IF[#21NE#0]GOTO14
N2
#135=0
IF[#26NE#0]GOTO20
IF[#25NE#0]GOTO30
IF[#24EQ#0]GOTO14
(X SURFACE)
N4
#2=#5045-#5085
(Y POS)
#141=#2
(Z POS)
#142=#5042-#5082
G65P9314Y[#141-#[#119+15]]
#8=#[#119+10]
#145=-1
IF[[#5041-#5081]LT#24]GOTO6
#8=-#8
#145=1
N6
G65P9721X#24Q#17
#5=#5061-#5081
G0Y#2
IF[#135NE0]GOTO16
#3=#5+[#8*2]+[#[#119+14]*2]
(POS)
#140=#3
(SIZE)
#143=#3
(ERR)
#144=#3-#24
#145=#144*#145
IF[#23EQ#0]GOTO8
G65P9730A13.X#24D#24H#11
N8
IF[#20EQ#0]GOTO10
G65P9732T#20X#144
N10
IF[#21EQ#0]GOTO12
G65P9732U#21C#145
N12
IF[#11EQ#0]GOTO42
IF[ABS[#144]LE#11]GOTO42
#3000=90(OUT OF TOLERANCE)
N14
#3000=91(FORMAT ERROR)
N16
IF[#135EQ2]GOTO18
#3000=92(PROBE OPEN)
N18
#3000=93(PROBE FAIL)
(Z SURFACE)
N20
#1=#5041-#5081
#2=#5045-#5085
(Y POS)
#141=#2
(X POS)
#140=#1
G65P9314X[#1-[#[#119+14]*2]]Y[#2-#[#119+15]]
G65P9720Z#26Q#17
#5=#5062-#5082
G0X#1Y#2
IF[#135NE0]GOTO26
(POS)
#142=#5
#146=#142-#26
(SIZE)
#143=#5
(ERR)
#144=#5-#26
#145=#144
IF[#23EQ#0]GOTO22
G65P9730A13.Z#26D#26H#11
N22
IF[#21EQ#0]GOTO23
G65P9732U#21C#145
N23
IF[#20EQ#0]GOTO24
G65P9732T#20Z#144
N24
IF[#11EQ#0]GOTO42
IF[ABS[#144]LE#11]GOTO42
#3000=90(OUT OF TOLERANCE)
N26
IF[#135EQ2]GOTO28
#3000=92(PROBE OPEN)
N28
#3000=93(PROBE FAIL)
(Y SURFACE)
N30
#1=#5041-#5081
(X POS)
#140=#1
(Z POS)
#142=#5042-#5082
G65P9314X[#1-[#[#119+14]*2]]
#8=#[#119+12]
#145=-1
IF[[#5045-#5085]LT#25]GOTO32
#145=1
#8=-#8
N32
G65P9722Y#25Q#17
#5=#5065-#5085
G0X#1
IF[#135NE0]GOTO38
#3=#5+#8+#[#119+15]
(POS)
#141=#3
(SIZE)
#143=#3
(ERR)
#144=#3-#25
#145=#144*#145
IF[#23EQ#0]GOTO34
G65P9730A13.Y#25D#25H#11
N34
IF[#21EQ#0]GOTO36
G65P9732U#21C#145
N36
IF[#11EQ#0]GOTO42
IF[ABS[#144]LE#11]GOTO42
#3000=90(OUT OF TOLERANCE)
N38
IF[#135EQ2]GOTO40
#3000=92(PROBE OPEN)
N40
#3000=93(PROBE FAIL)
N42
IF[#19EQ#0]GOTO48
IF[#24NE#0]GOTO44
IF[#25NE#0]GOTO46
G65P9732S#19Z[#142-#26]
GOTO48
N44
G65P9732S#19X[#140-#24]
GOTO48
N46
G65P9732S#19Y[#141-#25]
N48
M99
O9515(REN-H CAL)
G65P9724
IF[#24EQ#0]GOTO2
IF[#25EQ#0]GOTO2
GOTO10
N2
IF[#24EQ#0]GOTO4
#7=#24
GOTO6
N4
IF[#25EQ#0]GOTO6
#7=#25
N6
IF[#7EQ#0]GOTO26
#1=#5041-#5081
#2=#5045-#5085
IF[#26EQ#0]GOTO10
IF[#18NE#0]GOTO8
#18=5*#129
N8
#136=#7/2+#[#119+10]+#18
N10
IF[#25NE#0]GOTO12
IF[#24NE#0]GOTO18
G65P9702D#7Q#17Z#26
IF[#135NE0]GOTO22
G65P9314Y#139
G65P9703D#7Q#17Z#26
IF[#135NE0]GOTO22
G65P9314X#139
N12
G65P9702D#7Q#17Z#26
IF[#135NE0]GOTO22
IF[#26NE#0]GOTO14
#[#119+12]=#7/2-ABS[#139-#137]
#[#119+13]=#7/2-ABS[#139-#138]
GOTO16
N14
#[#119+12]=ABS[#139-#137]-#7/2
#[#119+13]=ABS[#139-#138]-#7/2
N16
IF[#25NE#0]GOTO28
N18
G65P9703D#7Q#17Z#26
IF[#135NE0]GOTO22
IF[#26NE#0]GOTO20
#[#119+10]=[#7-ABS[#139-#137]]/2
#[#119+11]=[#7-ABS[#139-#138]]/2
GOTO28
N20
#[#119+10]=[ABS[#139-#137]-#7]/2
#[#119+11]=[ABS[#139-#138]-#7]/2
GOTO28
N22
G0X#1Y#2
IF[#135EQ2]GOTO24
#3000=92(PROBE OPEN)
N24
#3000=93(PROBE FAIL)
N26
#3000=91(FORMAT ERROR)
N28
G0X#1Y#2
M99
O9516(REN-H CAL)
G65P9724
IF[#24EQ#0]GOTO2
IF[#25EQ#0]GOTO2
GOTO14
N2
IF[#24EQ#0]GOTO4
#7=#24
GOTO6
N4
IF[#25EQ#0]GOTO6
#7=#25
N6
IF[#7EQ#0]GOTO14
#1=#5041-#5081
#2=#5045-#5085
IF[#26EQ#0]GOTO10
IF[#18NE#0]GOTO8
#18=5*#129
N8
#136=[#7/2]+#[#119+10]+#18
N10
IF[#24NE#0]GOTO12
G65P9702D#7Q#17Z#26
IF[#135NE0]GOTO16
#[#119+15]=#2-#139
IF[#25NE#0]GOTO20
G65P9314Y#139
N12
G65P9703D#7Q#17Z#26
IF[#135NE0]GOTO16
#[#119+14]=[#1-#139]/2
GOTO20
N14
#3000=91(FORMAT ERROR)
N16
G0X#1Y#2
IF[#135EQ2]GOTO18
#3000=92(PROBE OPEN)
N18
#3000=93(PROBE FAIL)
N20
G0X#1Y#2
M99
O9517(REN-H CAL)
#32=-1
G65P9724
IF[#26EQ#0]GOTO6
IF[#20EQ#0]GOTO6
G65P9720Z#26Q#17
IF[#135NE0]GOTO2
#1=#26-[#5062-#5082]
#1=#1*#32
G65P9732T#20Z-[#1]
GOTO8
N2
IF[#135EQ2]GOTO4
#3000=92(PROBE OPEN)
N4
#3000=93(PROBE FAIL)
N6
#3000=91(FORMAT ERROR)
N8
M99
O9519(REN-H BORE/BOSS)
G65P9724
IF[#20EQ#0]GOTO2
IF[#21NE#0]GOTO16
N2
#1=#5041-#5081
#2=#5045-#5085
G65P9314X[#1-[#[#119+14]*2]]Y[#2-#[#119+15]]
IF[#7EQ#0]GOTO16
(Z POS)
#142=#5042-#5082
IF[#26EQ#0]GOTO6
(Z POS)
#142=#26
IF[#18NE#0]GOTO4
#18=5*#129
N4
#136=#7/2+#[#119+12]+#18
N6
G65P9703D#7Q#17Z#26
IF[#135NE0]GOTO18
(X POS)
#140=#139+[#[#119+14]*2]
G65P9314X#139
G65P9702D#7Q#17Z#26
IF[#135NE0]GOTO18
(Y POS)
#141=#139+#[#119+15]
(SIZE)
#143=[ABS[#138-#137]]+#[#119+12]+#[#119+13]
#145=-1
IF[#26EQ#0]GOTO8
(SIZE)
#143=[ABS[#138-#137]]-#[#119+12]-#[#119+13]
#145=1
N8
(ERROR)
#144=#143-#7
#145=#144*#145
IF[#23EQ#0]GOTO10
G65P9730A19.D#7H#11X#1Y#2
N10
IF[#20EQ#0]GOTO12
G65P9732T#20X#144
N12
IF[#21EQ#0]GOTO14
G65P9732U#21C[#145/2]
N14
IF[#11EQ#0]GOTO22
IF[ABS[#144]LT#11]GOTO22
G0X#1Y#2
#3000=90(OUT OF TOLERANCE)
N16
#3000=91(FORMAT ERROR)
N18
G0X#1Y#2
IF[#135EQ2]GOTO20
#3000=92(PROBE OPEN)
N20
#3000=93(PROBE FAIL)
N22
G0X#1Y#2
IF[#19EQ#0]GOTO24
G65P9732S#19X[#140-#1]
G65P9732S#19Y[#141-#2]
N24
M99
O9520(REN-H C AXIS)
IF[#7EQ#0]GOTO2
IF[#3NE#0]GOTO20
N2
G65P9724
#27=#5041-#5081
#28=#5043-#5083
#29=#5042-#5082
G65P9314X[#27-[#[#119+14]*2]]Y[[#5045-#5085]-#[#119+15]]F[500*#129]
IF[#3NE#0]GOTO4
IF[#7EQ#0]GOTO20
#3=[ATAN[[#7/2]/[#27/2]]/[1]]*2
N4
IF[#17NE#0]GOTO6
#9=3.142*#27/360(ARC DIST PER DEG)
#17=[[5*#129]+#[#119+12]]/#9
N6
#136=#0
IF[#26EQ#0]GOTO10
#136=#28+[#3/2]+#17
N8
G4P100
G31C#136F[#118/#9]
G4P100
IF[ABS[[#5063-#5083]-#136]GT0.1]GOTO16
G31Z#26F#118
G4P100
IF[ABS[[#5062-#5082]-#26]GT#130]GOTO16
N10
G65P9723C[#28+[#3/2]]Q#17F#9
IF[#135NE0]GOTO18
G1Z#29F#118
#121=#5063-#5083
IF[#26EQ#0]GOTO14
#136=#28-[#3/2]-#17
N12
G4P100
G31C#136F[#118/#9]
G4P100
IF[ABS[[#5063-#5083]-#136]GT0.1]GOTO16
G31Z#26F#118
G4P100
IF[ABS[[#5062-#5082]-#26]GT#130]GOTO16
N14
G65P9723C[#28-[#3/2]]Q#17F#9
IF[#135NE0]GOTO18
#122=#5063-#5083
#123=[#121+#122]/2
IF[#121GT#122]GOTO111
#123=#123-180.
N111
GOTO18
N16
#135=1
N18
G0Z#29
C#28
IF[#135NE0]GOTO22
#124=[#121-#122]
#120=#123-#28
IF[#11EQ#0]GOTO26
IF[ABS[#120]LTABS[#11]]GOTO26
#3000=90(OUT OF TOLERANCE)
N20
#3000=91(FORMAT ERROR)
N22
IF[#135EQ2]GOTO24
#3000=92(PROBE OPEN)
N24
#3000=93(PROBE FAIL)
N26
IF[#19EQ#0]GOTO28
G65P9732S#19C#120
N28
M99
O9610(REN-A WEB PKT)
G65P9724
#32=#119+8
IF[#5025LT0]GOTO2
#32=#119+9
N2
#2=#5041-#5081
#3=#5042-#5082
#1=#5045-#5085
IF[#6EQ#0]GOTO18
IF[#17NE#0]GOTO4
#17=10*#129
N4
IF[#18NE#0]GOTO6
#18=5*#129
N6
G65P9614Z#6F#9
#19=#5041-#5081
#22=#5042-#5082
IF[#24NE#0]GOTO8
IF[#25EQ#0]GOTO18
#7=#25
G65P9707D#7Q#17R#18Z#26
(POS ERR)
#140=0
#141=#1-[[#131+#132]/2]+#[#119+5]
#142=#6
IF[#135NE0]GOTO20
#143=ABS[#131-#132]+[#[#119+2]*2]
#145=-1
IF[#26EQ#0]GOTO10
#143=ABS[#131-#132]-[#[#119+2]*2]
#145=1
GOTO12
N8
#7=#24
G65P9706D#7Q#17R#18Z#26
IF[#135NE0]GOTO20
(WIDTH)
#15=ABS[#131-#133]/2
#16=ABS[#132-#134]
#143=SQRT[[#15*#15]+[#16*#16]]+[#[#119+7]*2]
#145=-1
IF[#26EQ#0]GOTO10
#143=SQRT[[#15*#15]+[#16*#16]]-[#[#119+7]*2]
#145=1
N10
(POS ERR)
#27=ABS[#131-#19]/2
#28=ABS[#19-#133]/2
#29=ABS[#132-#22]
#30=ABS[#22-#134]
#140=[SQRT[[#27*#27]+[#29*#29]]-SQRT[[#28*#28]+[#30*#30]]]/2
#140=#140+#[#32]
#141=0
#142=#6
(ERR)
N12
#144=#143-#7
(MC ERR)
#145=#144*#145
IF[#23EQ#0]GOTO14
(PRINT OUT)
G65P9730A210.D#7H#11X#24Y#25
N14
IF[#21EQ#0]GOTO16
(RAD OFFSET UPDATE)
G65P9732U#21C[#145/2]
N16
(TOLERANCE CHK)
IF[#11EQ#0]GOTO24
IF[ABS[#144]LE#11]GOTO24
#3000=90(OUT OF TOLERANCE)
N18
#3000=91(FORMAT ERROR)
N20
IF[#135NE1]GOTO22
#3000=92(PROBE OPEN)
N22
#3000=93(PROBE FAIL)
N24
G65P9614Z[ABS[#6]]F#9
M99
O9613(REN-A Z MEAS)
G65P9724
#1=#5041-#5081
#2=#5042-#5082
#4=[#5024-90]*[-1]
#4=#4-90
IF[#26EQ#0]GOTO14
IF[#26GT0]GOTO14
IF[#18NE#0]GOTO2
#18=5*#129
N2
IF[#17NE#0]GOTO4
#17=5*#129
N4
#6=#26+#18
#25=#26
#24=[#5041-#5081]+[[#6*COS[#4]]*2]
#26=[#5042-#5082]+[#6*SIN[#4]]
G65P9314X#24Z#26F#9
#7=-[#18+#17]
#24=[#5041-#5081]+[[#7*COS[#4]]*2]
#26=[#5042-#5082]+[#7*SIN[#4]]
G65P9726X#24Y[#5045-#5085]Z#26Q#17S0
G1X#1Z#2F#118
IF[#135NE0]GOTO10
#12=ABS[#1-[#5061-#5081]]/2
#13=ABS[#2-[#5062-#5082]]
#14=SQRT[[#12*#12]+[#13*#13]]
#140=0
#141=0
#142=#14-ABS[#25]
#143=#142
#144=#142
#145=#144
IF[#20EQ#0]GOTO6
G65P9732T#20Z#145
N6
IF[#23EQ#0]GOTO8
G65P9730A213.H#11Z#25
N8
IF[#11EQ#0]GOTO16
IF[ABS[#144]LE#11]GOTO16
#3000=90(OUT OF TOLERANCE)
N10
IF[#135EQ2]GOTO12
#3000=91(PROBE OPEN)
N12
#3000=92(PROBE FAIL)
N14
#3000=91(FORMAT ERROR)
N16
M99
O9614(REN-A Z POS)
G65P9724
#4=[#5024-90]*[-1]
#4=#4-90
IF[#9NE#0]GOTO2
#9=#118
N2(MOVE)
IF[#26NE#0]GOTO4
#3000=91(FORMAT ERROR)
N4
#24=[#5041-#5081]+[[#26*COS[#4]]*2]
#26=[#5042-#5082]+[#26*SIN[#4]]
G31X#24Z#26F#9
G4P100
IF[ABS[[#5041-#5081]-#24]GE#130]GOTO6
IF[ABS[[#5042-#5082]-#26]GE#130]GOTO6
GOTO8
N6
#3000=103(PATH OBSTRUCTED)
N8
M99
O9619(REN-A BORE BOSS)
G65P9724
#33=#3
#32=#119+8
IF[#5025LT0]GOTO2
#32=#119+9
N2
#1=#5045-#5085
#2=#5041-#5081
#3=#5042-#5082
IF[#6EQ#0]GOTO20
IF[#7EQ#0]GOTO20
IF[#17NE#0]GOTO4
#17=10*#129
N4
IF[#18NE#0]GOTO6
#18=5*#129
N6
G65P9614Z#6F#9
#19=#5041-#5081
#22=#5042-#5082
G65P9707D#7Q#17R#18Z#26
IF[#135NE0]GOTO22
G65P9314Y[[#131+#132]/2]
(POS ERR)
IF[#33NE#0]GOTO8
#141=#1-[#5045-#5085]+#[#119+5]
N8
G65P9706D#7Q#17R#18Z#26
G65P9314Y#1
IF[#135NE0]GOTO22
(DIAMETER)
#15=ABS[#131-#133]/2
#16=ABS[#132-#134]
IF[#33EQ#0]GOTO12
#31=SQRT[[#15*#15]+[#16*#16]]
#[#119+7]=[#7-#31]/2
IF[#26EQ#0]GOTO10
#[#119+7]=[#31-#7]/2
N10
#27=ABS[#131-#19]/2
#28=ABS[#19-#133]/2
#29=ABS[#132-#22]
#30=ABS[#22-#134]
#[#32]=[SQRT[[#27*#27]+[#29*#29]]-SQRT[[#28*#28]+[#30*#30]]]/2
#[#32]=-#[#32]
GOTO26
N12
#143=SQRT[[#15*#15]+[#16*#16]]+[#[#119+7]*2]
#145=-1
IF[#26EQ#0]GOTO14
#143=SQRT[[#15*#15]+[#16*#16]]-[#[#119+7]*2]
#145=1
N14
(ERR)
#144=#143-#7
#142=#6
(MC ERR)
#145=#144*#145
(POS ERR)
#27=ABS[#131-#19]/2
#28=ABS[#19-#133]/2
#29=ABS[#132-#22]
#30=ABS[#22-#134]
#140=[SQRT[[#27*#27]+[#29*#29]]-SQRT[[#28*#28]+[#30*#30]]]/2
#140=#140+#[#32]
IF[#23EQ#0]GOTO16
(PRINT OUT)
G65P9730A219.D#7H#11
N16
IF[#21EQ#0]GOTO18
(RAD OFFSET UPDATE)
G65P9732U#21C[#145/2]
N18
(TOLERANCE CHK)
IF[#11EQ#0]GOTO26
IF[ABS[#144]LE#11]GOTO26
#3000=90(OUT OF TOLERANCE)
N20
#3000=91(FORMAT ERROR)
N22
IF[#135NE1]GOTO24
#3000=92(PROBE OPEN)
N24
#3000=93(PROBE FAIL)
N26
G65P9614Z[ABS[#6]]F#9
M99
O9625(RENISHAW CAL SAVE)
(RENISHAW CALIBRATION SAVE)
G65P9724
IF[#1NE#0]GOTO1
IF[#11NE#0]GOTO2
IF[#22NE#0]GOTO3
GOTO4
N1
IF[#11NE#0]GOTO4
N2
IF[#22NE#0]GOTO4
N3
#30=20
#31=0
IF[#22EQ1]GOTO5
#30=26
IF[#22EQ2]GOTO5
#30=32
#31=10
IF[#11EQ1]GOTO5
#30=38
IF[#11EQ2]GOTO5
#30=44
#31=7
IF[#1EQ1]GOTO5
#30=47
IF[#1EQ2]GOTO5
N4
#3000=91(FORMAT ERROR)
N5
#[#119+#30]=#[#119+#31]
#[#119+1+#30]=#[#119+1+#31]
#[#119+2+#30]=#[#119+2+#31]
IF[#1NE#0]GOTO6
#[#119+3+#30]=#[#119+3+#31]
#[#119+4+#30]=#[#119+4+#31]
#[#119+5+#30]=#[#119+5+#31]
N6
M99
O9626(RENISHAW CAL LOAD)
(RENISHAW CALIBRATION LOAD)
G65P9724
IF[#1NE#0]GOTO1
IF[#11NE#0]GOTO2
IF[#22NE#0]GOTO3
GOTO4
N1
IF[#11NE#0]GOTO4
N2
IF[#22NE#0]GOTO4
N3
#30=20
#31=0
IF[#22EQ1]GOTO5
#30=26
IF[#22EQ2]GOTO5
#30=32
#31=10
IF[#11EQ1]GOTO5
#30=38
IF[#11EQ2]GOTO5
#30=44
#31=7
IF[#1EQ1]GOTO5
#30=47
IF[#1EQ2]GOTO5
N4
#3000=91(FORMAT ERROR)
N5
#[#119+#31]=#[#119+#30]
#[#119+1+#31]=#[#119+1+#30]
#[#119+2+#31]=#[#119+2+#30]
IF[#1NE#0]GOTO6
#[#119+3+#31]=#[#119+3+#30]
#[#119+4+#31]=#[#119+4+#30]
#[#119+5+#31]=#[#119+5+#30]
N6
M99
O9702(REN-H Y DIA)
#1=#5045-#5085
#2=#5042-#5082
IF[#26EQ#0]GOTO2
G31Y[#1-#136]F#118
G4P100
IF[ABS[[#5045-#5085]-[#1-#136]]GE#130]GOTO6
G4P100
G31Z#26F#118
G4P100
IF[ABS[[#5042-#5082]-#26]GE#130]GOTO6
N2
G65P9722Y[#1-#7/2]Q#17
G4P100
G1Z#2F#118
Y#1
G4P100
IF[#135NE0]GOTO8
#137=#5065-#5085
IF[#26EQ#0]GOTO4
G4P100
G31Y[#1+#136]F#118
G4P100
IF[ABS[[#5045-#5085]-[#1+#136]]GE#130]GOTO6
G4P100
G31Z#26F#118
G4P100
IF[ABS[[#5042-#5082]-#26]GE#130]GOTO6
N4
G65P9722Y[#1+#7/2]Q#17
IF[#135NE0]GOTO8
#138=#5065-#5085
#139=[#138+#137]/2
GOTO8
N6
#135=1
N8
G1Z#2F#118
Y#1
M99
O9703(REN-H X DIA)
#1=#5041-#5081
#2=#5042-#5082
IF[#26EQ#0]GOTO2
G31X[#1-[#136*2]]F#118
G4P100
IF[ABS[[#5041-#5081]-[#1-[#136*2]]]GE#130]GOTO6
G4P100
G31Z#26F#118
G4P100
IF[ABS[[#5042-#5082]-#26]GE#130]GOTO6
N2
G65P9721X[#1-#7]Q#17
G4P100
G1Z#2F#118
X#1
G4P100
IF[#135NE0]GOTO8
#137=#5061-#5081
IF[#26EQ#0]GOTO4
G4P100
G31X[#1+[#136*2]]F#118
G4P100
IF[ABS[[#5041-#5081]-[#1+[#136*2]]]GE#130]GOTO6
G4P100
G31Z#26F#118
G4P100
IF[ABS[[#5042-#5082]-#26]GE#130]GOTO6
N4
G65P9721X[#1+#7]Q#17
IF[#135NE0]GOTO8
#138=#5061-#5081
#139=[#138+#137]/2
GOTO8
N6
#135=1
N8
G1Z#2F#118
X#1
M99
O9704(REN-V Y DIA)
#1=#5045-#5085
#2=#5041-#5081
IF[#24EQ#0]GOTO2
G31Y[#1-#136]F#118
G4P100
IF[ABS[[#5045-#5085]-[#1-#136]]GE#130]GOTO6
G4P100
G31X#24F#118
G4P100
IF[ABS[[#5041-#5081]-#24]GE#130]GOTO6
N2
G65P9722Y[#1-#7/2]Q#17
G4P100
G1X#2F#118
Y#1
G4P100
IF[#135NE0]GOTO8
#137=#5065-#5085
IF[#24EQ#0]GOTO4
G4P100
G31Y[#1+#136]F#118
G4P100
IF[ABS[[#5045-#5085]-[#1+#136]]GE#130]GOTO6
G4P100
G31X#24F#118
G4P100
IF[ABS[[#5041-#5081]-#24]GE#130]GOTO6
N4
G65P9722Y[#1+#7/2]Q#17
IF[#135NE0]GOTO8
#138=#5065-#5085
#139=[#138+#137]/2
GOTO8
N6
#135=1
N8
G1X#2F#118
Y#1
M99
O9705(REN-V Z DIA)
#1=#5042-#5082
#2=#5041-#5081
IF[#24EQ#0]GOTO2
G31Z[#1-#136]F#118
G4P100
IF[ABS[[#5042-#5082]-[#1-#136]]GE#130]GOTO6
G4P100
G31X#24F#118
G4P100
IF[ABS[[#5041-#5081]-#24]GE#130]GOTO6
N2
G65P9720Z[#1-#7/2]Q#17
G4P100
G1X#2F#118
Z#1
G4P100
IF[#135NE0]GOTO8
#137=#5062-#5082
IF[#24EQ#0]GOTO4
G4P100
G31Z[#1+#136]F#118
G4P100
IF[ABS[[#5042-#5082]-[#1+#136]]GE#130]GOTO6
G4P100
G31X#24F#118
G4P100
IF[ABS[[#5041-#5081]-#24]GE#130]GOTO6
N4
G65P9720Z[#1+#7/2]Q#17
IF[#135NE0]GOTO8
#138=#5062-#5082
#139=[#138+#137]/2
GOTO8
N6
#135=1
N8
G1X#2F#118
Z#1
M99
O9706(REN-A X DIA)
#1=#5041-#5081
#2=#5042-#5082
#4=[#5024-90]*[-1]
#4=#4-90
#135=0
#33=#[#119]
(1ST SIDE)
IF[#26EQ#0]GOTO6
(BOSS CALC)
(X CLEARANCE 1)
#29=#1+[[[[#7/2]+#[#119+7]+#18]*SIN[#4]]*2]
(Z CLEARANCE 1)
#30=#2-[[[#7/2]+#[#119+7]+#18]*COS[#4]]
G31X#29Z#30F#118
G4P200
IF[ABS[[#5041-#5081]-#29]LE#130]GOTO2
#135=1
G1X#1Z#2F#118
GOTO18
N2
(X CLEARANCE 2)
#19=#29+[[[#26*COS[#4]]*2]]
(Z CLEARANCE 2)
#20=#30+[#26*SIN[#4]]
G31X#19Z#20F#118
G4P200
IF[ABS[[#5041-#5081]-#19]LE#130]GOTO4
#135=1
G1X#29Z#30F#118
X#1Z#2
GOTO18
N4
(X TARGET)
#9=#19-[[[#18+#[#119+7]+#17]*SIN[#4]]*2]
(Z TARGET)
#10=#20+[[#18+#[#119+7]+#17]*COS[#4]]
GOTO8
N6
(BORE CALC)
#29=#1
#30=#2
#19=#1
#20=#2
(X TARGET)
#9=#1+[[[[#7/2]-#[#119+7]+#17]*SIN[#4]]*2]
(Z TARGET)
#10=#2-[[[#7/2]-#[#119+7]+#17]*COS[#4]]
N8
G65P9726X#9Z#10Y[#5045-#5085]Q#17S#33
G1X#19Z#20F#118
X#29Z#30
X#1Z#2
IF[#135NE0]GOTO18
#131=#5061-#5081
#132=#5062-#5082
#135=0
(2ND SIDE)
IF[#26EQ#0]GOTO14
(BOSS CALC)
(X CLEARANCE 1)
#29=#1-[[[[#7/2]+#[#119+7]+#18]*SIN[#4]]*2]
(Z CLEARANCE 1)
#30=#2+[[[#7/2]+#[#119+7]+#18]*COS[#4]]
G31X#29Z#30F#118
G4P200
IF[ABS[[#5041-#5081]-#29]LE#130]GOTO10
#135=1
G1X#1Z#2F#118
GOTO18
N10
(X CLEARANCE 2)
#19=#29+[[[#26*COS[#4]]*2]]
(Z CLEARANCE 2)
#20=#30+[#26*SIN[#4]]
G31X#19Z#20F#118
G4P200
IF[ABS[[#5041-#5081]-#19]LE#130]GOTO12
#135=1
G1X#29Z#30F#118
X#1Z#2
GOTO18
N12
(X TARGET)
#9=#19+[[[#18+#[#119+7]+#17]*SIN[#4]]*2]
(Z TARGET)
#10=#20-[[#18+#[#119+7]+#17]*COS[#4]]
GOTO16
N14
(BORE CALC)
#29=#1
#30=#2
#19=#1
#20=#2
(X TARGET)
#9=#1-[[[[#7/2]-#[#119+7]+#17]*SIN[#4]]*2]
(Z TARGET)
#10=#2+[[[#7/2]-#[#119+7]+#17]*COS[#4]]
N16
G65P9726X#9Y[#5045-#5085]Z#10Q#17S#33
G1X#19Z#20F#118
X#29Z#30
X#1Z#2
#133=#5061-#5081
#134=#5062-#5082
N18
M99
O9707(REN-A Y DIA)
#1=#5041-#5081
#2=#5042-#5082
#3=#5045-#5085
#4=[#5024-90]*[-1]
#4=#4-90
#33=#[#119+2]
#135=0
(1ST SIDE)
IF[#26EQ#0]GOTO6
(BOSS CALC)
(Y CLEARANCE 1)
#29=#3+[[#7/2]+#[#119+7]+#18]
G31Y#29F#118
G4P200
IF[ABS[[#5045-#5085]-#29]LE#130]GOTO2
#135=1
G1Y#3F#118
GOTO18
N2
(X CLEARANCE 2)
#19=#1+[[[#26*COS[#4]]*2]]
(Z CLEARANCE 2)
#20=#2+[#26*SIN[#4]]
G31X#19Z#20F#118
G4P200
IF[ABS[[#5041-#5081]-#19]LE#130]GOTO4
#135=1
G1X#1Z#2F#118
Y#3
GOTO18
N4
(Y TARGET)
#9=#3+[[#7/2]+#[#119+7]-#17]
GOTO8
N6
(BORE CALC)
#29=#3
(Y TARGET)
#9=#3+[[#7/2]-#[#119+7]+#17]
N8
G65P9726X[#5041-#5081]Y#9Z[#5042-#5082]Q#17S#33
G1Y#29F#118
X#1Z#2
Y#3
IF[#135NE0]GOTO18
#131=#5065-#5085
#135=0
(2ND SIDE)
IF[#26EQ#0]GOTO14
(BOSS CALC)
(Y CLEARANCE 1)
#29=#3-[[#7/2]+#[#119+7]+#18]
G31Y#29F#118
G4P200
IF[ABS[[#5045-#5085]-#29]LE#130]GOTO10
#135=1
G1Y#3F#118
GOTO18
N10
(X CLEARANCE 2)
#19=#1+[[[#26*COS[#4]]*2]]
(Z CLEARANCE 2)
#20=#2+[#26*SIN[#4]]
G31X#19Z#20F#118
G4P200
IF[ABS[[#5041-#5081]-#19]LE#130]GOTO12
#135=1
G1X#1Z#2F#118
Y#3
GOTO18
N12
(Y TARGET)
#9=#3-[[#7/2]+#[#119+7]-#17]
GOTO16
N14
(BORE CALC)
#29=#3
(Y TARGET)
#9=#3-[[#7/2]-#[#119+7]+#17]
N16
G65P9726X[#5041-#5081]Y#9Z[#5042-#5082]Q#17S#33
G1Y#29F#118
X#1Z#2
Y#3
#132=#5065-#5085
N18
M99
O9720(REN Z MOVE)
#135=0
#1=#5042-#5082
IF[#17NE#0]GOTO2
#17=5*#129
N2
#4=5*#129
IF[#1LE#26]GOTO4
#17=-#17
#4=-5*#129
N4
#4=#4*#[#119+6]
G4P100
G31Z[#26+#17]F#148
G4P100
IF[ABS[[#5062-#5082]-[#26+#17]]LT#130]GOTO8
IF[ABS[[#5062-#5082]-#1]LT#130]GOTO6
#3=#5062-#5082
G4P100
G1Z[#3-#4]F#118
G4P300(MP700 DELAY)
#3004=2
G4P100
G31Z[#26+#17]F#147
G4P100
#3004=0
IF[ABS[[#5062-#5082]-[#26+#17]]LT#130]GOTO8
IF[ABS[[#5062-#5082]-[#3-#4]]LT#130]GOTO6
GOTO10
N6
#135=1
GOTO10
N8
#135=2
N10
G1Z#1F#118
M99
O9721(REN X MOVE)
#135=0
#1=#5041-#5081
IF[#17NE#0]GOTO2
#17=10*#129
N2
#4=10*#129
IF[#1LE#24]GOTO4
#17=-#17
#4=-10*#129
N4
#4=#4*#[#119+6]
G4P100
G31X[#24+#17]F#148
G4P100
IF[ABS[[#5061-#5081]-[#24+#17]]LT#130]GOTO8
IF[ABS[[#5061-#5081]-#1]LT#130]GOTO6
#3=#5061
G4P100
G1X[#3-#4]F#118
G4P300(MP700 DELAY)
#3004=2
G4P100
G31X[#24+#17]F#147
G4P100
#3004=0
IF[ABS[[#5061-#5081]-[#24+#17]]LT#130]GOTO8
IF[ABS[[#5061-#5081]-[#3-#4]]LT#130]GOTO6
GOTO10
N6
#135=1
GOTO10
N8
#135=2
N10
G1X#1F#118
M99
O9722(REN Y MOVE)
#135=0
#1=#5045-#5085
IF[#17NE#0]GOTO2
#17=5*#129
N2
#4=5*#129
IF[#1LE#25]GOTO4
#17=-#17
#4=-5*#129
N4
#4=#4*#[#119+6]
G4P100
G31Y[#25+#17]F#148
G4P100
IF[ABS[[#5065-#5085]-[#25+#17]]LT#130]GOTO8
IF[ABS[[#5065-#5085]-#1]LT#130]GOTO6
#3=#5065
G4P100
G1Y[#3-#4]F#118
G4P300(MP700 DELAY)
#3004=2
G4P100
G31Y[#25+#17]F#147
G4P100
#3004=0
IF[ABS[[#5065-#5085]-[#25+#17]]LT#130]GOTO8
IF[ABS[[#5065-#5085]-[#3-#4]]LT#130]GOTO6
GOTO10
N6
#135=1
GOTO10
N8
#135=2
N10
G1Y#1F#118
M99
O9723(REN C MOVE)
#135=0
#1=#5043-#5083
IF[#17NE#0]GOTO2
#17=5*#129/#9
N2
#4=5*#129/#9
IF[#1LE#3]GOTO4
#17=-#17
#4=-#4
N4
#4=#4*#[#119+6]
G4P100
G31C[#3+#17]F[#148/#9]
G4P100
IF[ABS[#5063-[#3+#17]]LT0.1]GOTO8
IF[ABS[#5063-#1]LT0.1]GOTO6
#2=#5063
G1C[#2-#4]F[#118/#9]
G4P300(MP700 DELAY)
#3004=2
G4P100
G31C[#3+#17]F[#147/#9]
G4P100
IF[ABS[#5063-[#3+#17]]LT0.1]GOTO8
IF[ABS[#5063-[#2-#4]]LT0.1]GOTO6
GOTO10
N6
#135=1
GOTO10
N8
#135=2
N10
G0C#1
#3004=0
M99
O9724(REN SETTINGS)
G31
G4X1.
#119=700(CAL BASE NUMBER)
#147=30(GAUGING FEED IN MM)
#148=200(1ST TOUCH FEED IN MM)
#118=500(RAPID MOVE FEED IN MM)
G98G80G40
#129=1
#130=.050
IF[#4006NE20]GOTO2
#130=.002
#129=.03937
N2
IF[#[#119+6]LE0]GOTO4
IF[#[#119+6]GT1]GOTO4
IF[#[#119+6]EQ#0]GOTO4
GOTO6
N4
#[#119+6]=.35
N6
#147=#147*#129
#148=#148*#129
#118=#118*#129
G1U[.005*#129]V[.005*#129]F#147
U-[.005*#129]V-[.005*#129]
M99
O9726(REN ANGLE BASIC MOVE)
IF[#17NE#0]GOTO1
#17=5*#129
N1
IF[#7EQ#0]GOTO2
(* A D INPUT XY PLANE ONLY)
#24=#5041-#5081+[[#7/2]*COS[#1]]
#25=#5045-#5085+[[#7/2]*SIN[#1]]
#26=#5042-#5082
N2
#31=8*#[#119+6]*#129(* BACK OFF)
#135=0
#1=#5041-#5081
IF[#24NE#0]GOTO3
#24=#1
N3
#2=#5045-#5085
IF[#25NE#0]GOTO4
#25=#2
N4
#3=#5042-#5082
IF[#26NE#0]GOTO5
#26=#3
N5
(* CALC NRML DIR VEC)
#11=#24-#1
#12=#25-#2
#13=#26-#3
#10=SQRT[[#11*#11]+[#12*#12]+[#13*#13]]
IF[#10EQ0]GOTO6(* NO MOVE)
#11=#11/#10
#12=#12/#10
#13=#13/#10
(*CALC TARGET POS.)
#14=#24+[#17*#11]
#15=#25+[#17*#12]
#16=#26+[#17*#13]
#3004=2
G31X#14Y#15Z#16F#148
(* P.FAIL)
#4=#5061-#5081-#14
#5=#5065-#5085-#15
#6=#5062-#5082-#16
#29=SQRT[[#4*#4]+[#5*#5]+[#6*#6]]
IF[#29LT#130]GOTO7(* P F)
(* P.OPEN)
#4=#5061-#5081-#1
#5=#5065-#5085-#2
#6=#5062-#5082-#3
#29=SQRT[[#4*#4]+[#5*#5]+[#6*#6]]
IF[#29LT#130]GOTO6(* P O)
(* CALC BACK OFF POS.)
#21=#5061-#5081-[#31*#11]
#22=#5065-#5085-[#31*#12]
#23=#5062-#5082-[#31*#13]
G01X#21Y#22Z#23F#118(* BACK OFF)
G04P300(DWELL MP700)
G31X#14Y#15Z#16F#147
#3004=0
G01X#1Y#2Z#3F#118
(* P F CHCK)
#4=#5061-#5081-#14
#5=#5065-#5085-#15
#6=#5062-#5082-#16
#29=SQRT[[#4*#4]+[#5*#5]+[#6*#6]]
IF[#29LT#130]GOTO7(* P F)
(* P O CHCK)
#4=#5061-#5081-#21
#5=#5065-#5085-#22
#6=#5062-#5082-#23
#29=SQRT[[#4*#4]+[#5*#5]+[#6*#6]]
IF[#29LT#130]GOTO6(* P O)
#135=0(* NRML MEAS)
#124=#5061-#5081
#125=#5065-#5085
#126=#5062-#5082
IF[#29GT#130]GOTO8
N6
#135=1
#124=#1
#125=#2
#126=#3
GOTO8
N7
#135=2
#124=#14
#125=#15
#126=#16
N8
G01X#1Y#2Z#3F#119
M99
O9730(REN DATA PRINT)
POPEN
DPRNT[]
DPRNT[------------------*PROBING**RESULTS*--------------------]
#32=#3011/10000
#31=#3011/100
DPRNT[---------------*DATE**#32[40]*/*#31[20]*/*#3011[20]*----------------]
#32=#3012/10000
#31=#3012/100
DPRNT[---------------*TIME**#32[20]*/*#31[20]*/*#3012[20]*------------------]
IF[#1EQ10]GOTO2
IF[#1EQ13]GOTO4
IF[#1EQ18]GOTO6
IF[#1EQ19]GOTO8
IF[#1EQ12]GOTO8
IF[#1EQ210]GOTO2
IF[#1EQ213]GOTO4
IF[#1EQ219]GOTO8
IF[#1EQ212]GOTO8
N2
DPRNT[------------------*WEB/POCKET*CYCLE*--------------------]
GOTO10
N4
DPRNT[------------------*XZY*SURFACE*CYCLE*-------------------]
GOTO10
N6
DPRNT[------------------*FEATURE*TO*FEATURE*------------------]
GOTO10
N8
DPRNT[------------------*BORE/BOSS**CYCLE*--------------------]
N10
IF[#1GT20]GOTO18
(V OR H DATA)
DPRNT[-------*TARGET*------------*ACTUAL*------------*ERROR*--]
DPRNT[]
IF[#3EQ#0]GOTO12
#30=#146
#2=#30-#3
DPRNT[*C****#3[33]************#30[33]************#2[33]]
DPRNT[]
N12
IF[#24EQ#0]GOTO14
#30=#140
#2=#30-#24
DPRNT[*X***#24[44]**********#30[44]**********#2[44]]
DPRNT[]
N14
IF[#25EQ#0]GOTO16
#30=#141
#2=#30-#25
DPRNT[*Y***#25[44]**********#30[44]**********#2[44]]
DPRNT[]
N16
IF[#26EQ#0]GOTO24
#30=#142
#2=#30-#26
DPRNT[*Z***#26[44]**********#30[44]**********#2[44]]
DPRNT[]
GOTO26
N18(ANGLED DATA)
DPRNT[-*ANGLED*PROBING*------------------------------*ERROR*--]
DPRNT[]
IF[#24EQ#0]GOTO20
#30=#140
DPRNT[******************************************X**#30[44]]
DPRNT[]
N20
IF[#25EQ#0]GOTO22
#30=#141
DPRNT[******************************************Y**#30[44]]
DPRNT[]
N22
IF[#26EQ#0]GOTO24
#30=#142
DPRNT[******************************************Z**#30[44]]
DPRNT[]
N24
IF[#7EQ#0]GOTO26
DPRNT[-------*TARGET*------------*ACTUAL*------------*ERROR*--]
DPRNT[]
N26
IF[#7EQ#0]GOTO30
#30=#143
#2=#144
(SIZE DATA)
IF[#1EQ18]GOTO28
DPRNT[*SIZE#7[44]**********#30[44]**********#2[44]]
DPRNT[]
N28
IF[#1EQ18]GOTO30
IF[#11EQ#0]GOTO30
IF[ABS[#144]LE#11]GOTO30
DPRNT[------------------*OUT*OF*TOLERANCE*--------------------]
N30
IF[#1NE18]GOTO32
IF[#11EQ#0]GOTO32
IF[#4NE1]GOTO32
DPRNT[------------------*OUT*OF*POSITION*---------------------]
N32
PCLOS
N34
M99
O9732(REN OFFSET UPDATE)
IF[#19NE#0]GOTO18
(UPTO 64 TOOL OFFSETS)
#9=0
#10=1
IF[#20GT64]GOTO10
IF[#21GT64]GOTO10
GOTO12
(OVER 64 TOOL OFFSETS)
N10
#9=1000
#10=10
N12
#11=[2000-#9]*#10(X WEAR)
#12=[2100-#9]*#10(Z WEAR)
#13=[2200-#9]*#10(R WEAR)
#14=[2400-#9]*#10(Y WEAR)
IF[#21NE#0]GOTO16
(TURNING TOOL UPDATE)
IF[#26NE#0]GOTO14
(X TOOL OFFSET UPDATE)
#[#11+#20]=#[#11+#20]-#24
GOTO62
N14
(Z TOOL OFFSET UPDATE)
#[#12+#20]=#[#12+#20]-#26
GOTO62
N16
(TOOL OFFSET R UPDATE)
#[#13+#21]=#[#13+#21]-#3
GOTO62
N18
(WORK OFFSET UPDATE)
IF[#3NE#0]GOTO30
IF[#24NE#0]GOTO38
IF[#25NE#0]GOTO50
IF[#19EQ50]GOTO28
IF[#19GT100]GOTO24
IF[#19NE0]GOTO20
(UPDATE Z)
(Z EXTERNAL WORK OFFSET)
#5202=#5202-#26
GOTO62
N20
(G54-G59 Z UPDATE)
IF[#4014EQ54.1]GOTO22
#[5202+[#19*20]]=#[5202+[[#4014-53]*20]]+#26
GOTO62
N22
#[5202+[#19*20]]=#[6982+[#4130*20]]+#26
GOTO62
N24
(G54.1 P1-P48 Z UPDATE)
IF[#4014EQ54.1]GOTO26
#[7002+[[#19-101]*20]]=#[5202+[[#4014-53]*20]]+#26
GOTO62
N26
#[7002+[[#19-101]*20]]=#[6982+[#4130*20]]+#26
GOTO62
N28
(Z G50 SHIFT)
G50W-#26
GOTO62
N30
IF[#19EQ50]GOTO36
IF[#19GT100]GOTO34
IF[#19NE0]GOTO32
(UPDATE C)
(EXTERNAL C WORK OFFSET)
#5203=#5203-#3
GOTO62
N32
(G54-G59 C UPDATE)
#[5203+[#19*20]]=#5023-#5043-[-#5203]+#3
GOTO62
N34
(G54.1 P1-P48 C UPDATE)
#[7003+[[#19-101]*20]]=#5023-#5043-[-#5203]+#3
GOTO62
N36
(C G50 SHIFT)
G50H-#3
GOTO62
N38
IF[#19EQ50]GOTO48
IF[#19GT100]GOTO44
IF[#19NE0]GOTO40
(UPDATE X)
(EXTERNAL X WORK OFFSET)
#5201=#5201-#24
GOTO62
N40
(G54-G59 X UPDATE)
IF[#4014EQ54.1]GOTO42
#[5201+[#19*20]]=#[5201+[[#4014-53]*20]]+#24
GOTO62
N42
#[5201+[#19*20]]=#[6981+[#4130*20]]+#24
GOTO62
N44
(G54.1 P1-P48 X UPDATE)
IF[#4014EQ54.1]GOTO46
#[7001+[[#19-101]*20]]=#[5201+[[#4014-53]*20]]+#24
GOTO62
N46
#[7001+[[#19-101]*20]]=#[6981+[#4130*20]]+#24
GOTO62
N48
(G50 X SHIFT)
G50U-#25
GOTO62
N50
IF[#19EQ50]GOTO60
IF[#19GT100]GOTO56
IF[#19NE0]GOTO52
(UPDATE Y)
(EXTERNAL Y WORK OFFSET)
#5205=#5205-#25
GOTO62
N52
(G54-G59 Y UPDATE)
IF[#4014EQ54.1]GOTO54
#[5205+[#19*20]]=#[5205+[[#4014-53]*20]]+#25
GOTO62
N54
#[5205+[#19*20]]=#[6984+[#4130*20]]+#25
GOTO62
N56
(G54.1 P1-P48 Y UPDATE)
IF[#4014EQ54.1]GOTO58
#[7005+[[#19-101]*20]]=#[5205+[[#4014-53]*20]]+#25
GOTO62
N58
#[7005+[[#19-101]*20]]=#[6984+[#4130*20]]+#25
GOTO62
N60
(G50 Y SHIFT)
G50V-#25
N62
M99