:8010(X,Y,Z,MESUA)
(+X,D1)
(-X,D2)
(+Y,D3)
(-Y,D4)
(-Z,D5)
G65P9738
G58H58
G65P9728D1J1.
G65P9739
M30
:8011
G65P9738
G58
G65P9712I4.J0.2
G65P9739
M30
:8012(HABA)
G65P9738
G58
G65P9713U200.J1.K50.
G65P9739
M30
:8100(REN BRDOCAL)
G90G80G40
M98P9724
#9=#109
#1=#5041
#2=#5042
#15=#5021
#16=#5022
IF[#7EQ#0]GOTO3
#118=#0
G65P9705D[#7]Q[#17]F[#9]
IF[#145NE0.0]GOTO1
G0X#132
G65P9704D[#7]Q[#17]F[#9]
IF[#145NE0.0]GOTO1
G0Y#133
G65P9705D[#7]Q[#17]F[#9]
IF[#145NE0.0]GOTO1
#500=#7/2-ABS[#132-#130]
#501=#7/2-ABS[#132-#131]
G65P9704D[#7]Q[#17]F[#9]
IF[#145NE0.0]GOTO1
#502=#7/2-ABS[#133-#130]
#503=#7/2-ABS[#133-#131]
IF[#19EQ#0]GOTO4
IF[#19NE0]GOTO10
#2500=#2500+[#132+#504-#1]
#2600=#2600+[#133+#505-#2]
GOTO4

N10
#[#105]=[#15-#1]+[#132+#504-#1]-#2500
#[#106]=[#16-#2]+[#133+#505-#2]-#2600

GOTO4

N1
G0X#1Y#2
IF[#145EQ2.0]GOTO2
#3000=92(PROBE OPEN)--（探针打开）

N2
#3000=93(PROBE FAIL)

N3
#3000=91(FORMAT ERROR)--（尺寸误差）

N4
G0X#1Y#2
M99

:8101(REN STYLCAL)
G90G80G40
M98P9724
#9=#109
#1=#5041
#2=#5042
IF[#7EQ#0]GOTO1
#118=#0
G65P9705D[#7]Q[#17]F[#9]
IF[#145NE0]GOTO2
G0X#132
#504=#1-#132
G65P9704D[#7]Q[#17]F[#9]
IF[#145NE0]GOTO2
#505=#2-#133
GOTO4

N1
#3000=91(FORMAT ERROR)

N2
G0X#1Y#2
IF[#145EQ2]GOTO3
#3000=92(PROBE OPEN)

N3
#3000=93(PROBE FAIL)

N4
G0X#1Y#2
M99

:9005(SE074-9405 WORK ZERO SET)
M98P9100
IF[#101EQ0]GOTO1
IF[#101EQ10]GOTO1
IF[#101EQ20]GOTO1
IF[#101EQ30]GOTO30
IF[#101EQ40]GOTO40
IF[#101EQ50]GOTO50
IF[#101EQ60]GOTO50
N1( FS15,16,11 )
#1=4014( WORK OFST NO )
#2=5221( WK/OFST X )
#3=5222( WK/OFST Y )
#4=5021( MCHN POS X )
#5=5022( MCHN POS Y )
#6=20( COEFFI. WK/OFST )
GOTO201
N30( FS0,6 )
#1=4014
#2=2501
#3=2601
#4=5021
#5=5022
#6=1
GOTO201
N40( MX3 )
#1=4012
#2=2501
#3=2601
#4=5021
#5=5022
#6=1
GOTO201
N50( HDNC C3,C5 )
#1=4014
#2=5221
#3=5224
#4=5021
#5=5024
#6=20
#7=2
N201#10=ROUND[[#[#1]-54]*1000]/1000
#11=#[#4]-0.0001
#12=#[#5]-0.0001
G4
#11=ROUND[#11*1000]/1000( MCHN POS X )
#12=ROUND[#12*1000]/1000( MCHN POS Y )
G4
IF[#10EQ0.1]GOTO202
#[#2+#6*#10]=#11( WK/OFST SET X )
#[#3+#6*#10]=#12( WK/OFST SET Y )
GOTO99
N202( ADD WK/OFST )
#13=ROUND[[#4130-1]*1000]/1000
G4
#[7001+20*#13]=#11
#[7002+#7+20*#13]=#12
N99M99




:9700( A.16M 0108 )
#500=#0
#501=#0
#502=#0
#503=#0
#509=1
IF[#4006EQ21]GOTO1
#509=25.4
N1IF[#13NE#0]GOTO2
#13=5/#509
N2#508=#13
IF[#511AND128EQ0]GOTO5
G65P9715A1.B2.C#3
N5M98P9718
IF[#511AND128EQ0]GOTO6
M98P9716
N6#9=#4/2-#13
X#24Y#25
G49Z[#26+#2]
#5=0
#6=0
#7=0
#8=0
#27=1
WHILE[#27LE7]DO1
X[#24+#9-#19]
G65P9714A1.S1.X[2*#19]
#5=#5+#24+#9-#5061
X[#24-#9+#19]
G65P9714A1.S-1.X-[2*#19]
#6=#6+#24-#9-#5061
X#24
Y[#25+#9-#19]
G65P9714A2.S1.Y[2*#19]
#7=#7+#25+#9-#5062
Y[#25-#9+#19]
G65P9714A2.S-1.Y-[2*#19]
#8=#8+#25-#9-#5062
Y#25
#27=#27+1
G04X4.
END1
M98P9709
#33=#9-SQRT[#9*#9-[#7+#8]*[#7+#8]/196]
#500=#5/7-#33
#501=#6/7+#33
#33=#9-SQRT[#9*#9-[#5+#6]*[#5+#6]/196]
#502=#7/7-#33
#503=#8/7+#33
G65P9797A500.B503.
IF[#1001EQ1]GOTO3
IF[#1000EQ0]GOTO4
IF[#18EQ#0]GOTO4
N3G65P9771R#18
N4G#28G#29
IF[#511AND128EQ0]GOTO7
G65P9715A1.B1.C#3
N7M99

:9701
#504=#0
#509=1
IF[#4006EQ21]GOTO1
#509=25.4
N1IF[#13NE#0]GOTO2
#13=5/#509
N2#508=#13
#10=2
M98P9718
#12=0
#27=1
WHILE[#27LE7]DO1
G49Z[#26+#2+#19+#13]
G65P9714A3.S-1.Z-[2*#19]
#12=#12+#26+#2+#13-#5063
IF[#27EQ7]GOTO5
G#15Z#32H#14
G04X4.
N5#27=#27+1
END1
IF[#20EQ#0]GOTO6
IF[#511AND260EQ260]GOTO6
IF[#511AND260LE4]GOTO7
G91G30Z0
GOTO8
N6G#15Z#32H#14
G53
IF[#5023NE0]GOTO8
N7G91G28Z0
N8#504=#12/7
G65P9797A504.B504.
IF[#1001EQ1]GOTO3
IF[#1000EQ0]GOTO4
IF[#18EQ#0]GOTO4
N3G65P9771A1.R#18
N4G#28G#29
M99

:9704(REN Y DIAM)
G90G80G40
#1=#5042
#2=#5043-#5083
IF[#26EQ#0]GOTO1
G31Y[#1-#118]F[5000*#9]
M98P9723
IF[ABS[#5062-[#1-#118]]GE#103]GOTO3
G31Z#26F[3000*#9]
M98P9723
IF[ABS[[#5063-#5083]-#26]GE#103]GOTO3

N1
G65P9722Y[#1-#7/2]Q[#17]F[#9]
G0Z#2
Y#1
IF[#145NE0.0]GOTO4
#130=#5062
IF[#26EQ#0]GOTO2
G31Y[#1+#118]F[5000*#9]
M98P9723
IF[ABS[#5062-[#1+#118]]GE#103]GOTO3
G31Z#26F[3000*#9]
M98P9723
IF[ABS[[#5063-#5083]-#26]GE#103]GOTO3

N2
G65P9722Y[#1+#7/2]Q[#17]F[#9]
G0Z#2
IF[#145NE0.0]GOTO4
#131=#5062
#133=[#131+#130]/2
GOTO4

N3
#145=1.0

N4
G0Z#2
G0Y#1
M99

:9705(REN X DIAM)
G90G80G40
#1=#5041
#2=#5043-#5083
IF[#26EQ#0]GOTO1
G31X[#1-#118]F[5000*#9]
M98P9723
IF[ABS[#5061-[#1-#118]]GE#103]GOTO3
G31Z[#26]F[3000*#9]
M98P9723
IF[ABS[[#5063-#5083]-#26]GE#103]GOTO3

N1
G65P9721X[#1-#7/2]Q[#17]F[#9]
G0Z#2
X#1
IF[#145NE0.0]GOTO4
#130=#5061
IF[#26EQ#0]GOTO2
G31X[#1+#118]F[5000*#9]
M98P9723
IF[ABS[#5061-[#1+#118]]GE#103]GOTO3
G31Z#26F[3000*#9]
M98P9723
IF[ABS[[#5063-#5083]-#26]GE#103]GOTO3

N2
G65P9721X[#1+#7/2]Q[#17]F[#9]
G0Z#2
IF[#145NE0.0]GOTO4
#131=#5061
#132=[#131+#130]/2
GOTO4

N3
#145=1.0

N4
G0Z#2
G0X#1
M99

:9709
IF[#20EQ#0]GOTO3
IF[#511AND260EQ260]GOTO3
IF[#511AND260EQ256]GOTO2
IF[#511AND260EQ4]GOTO1
G91G28Z0
G28Y0
G90X#30
GOTO5
N1G91G28Z0
G90X#30Y#31
GOTO5
N2G91G30Z0
G30X0Y0
GOTO5
N3G#15Z#32H#14
X#30Y#31
G53
IF[#5023NE0]GOTO4
G91G28Z0
N4IF[#5022NE0]GOTO5
G91G28Y0
N5M99

:9710
#17=#0
IF[#511AND128EQ0]GOTO6
G65P9715A2.C#3
N6M98P9799
M98P9718
IF[#511AND128EQ0]GOTO7
M98P9716
N7#9=#4/2-#13-#19
#26=#26+#2
#6=ABS[#6]+#26
X#24Y[#25-[#502+#503]/2]
G49Z#6
#10=#120
#12=#121
DO1
X[#24+#9-[#500+#501]/2]
Z#26
G65P9714A1.S1.X[2*#19]
Z#6
#128=#5061+#500+#13
X[#24-#9-[#500+#501]/2]
Z#26
G65P9714A1.S-1.X-[2*#19]
Z#6
#129=#5061+#501-#13
#120=[#128+#129]/2
#135=ABS[#10-#120]
#137=[#10+#120]/2
#124=#120-#24
X[#120-[#500+#501]/2]
IF[#17EQ9]GOTO1
Y[#25+#9-[#502+#503]/2]
Z#26
G65P9714A2.S1.Y[2*#19]
Z#6
#130=#5062+#502+#13
Y[#25-#9-[#502+#503]/2]
Z#26
G65P9714A2.S-1.Y-[2*#19]
Z#6
#131=#5062+#503-#13
#121=[#130+#131]/2
#136=ABS[#12-#121]
#138=[#12+#121]/2
#125=#121-#25
#127=#0
Y[#121-[#502+#503]/2]
IF[#5EQ#0]GOTO1
#17=9
END1
N1IF[#149EQ5]GOTO2
#135=#0
#136=#0
#137=#0
#138=#0
N2M98P9709
G65P9797A120.B125.
G65P9797A128.B131.
G65P9797A135.B138.
#122=ABS[#128-#129]
#123=ABS[#130-#131]
IF[#4GE0]GOTO3
#10=#128
#128=#129
#129=#10
#10=#130
#130=#131
#131=#10
N3IF[#1001EQ1]GOTO4
IF[#1000EQ0]GOTO5
IF[#18EQ#0]GOTO5
N4G65P9772R#18
N5G#28G#29
#149=5
M99

:9711
IF[#6NE#0]GOTO1
#6=30/#509
N1IF[#4EQ#0]GOTO2
#4=-#4
N2G65P9710A#1B#2C#3I#4J#5K#6R#18S#19T#20X#24Y#25Z#26
M99

:9712
IF[#511AND1024EQ0]GOTO59
G65P9738D1.
N59#27=#4109
#28=#4001
#29=#4003
M31
M86
IF[#511AND128EQ0]GOTO21
G65P9715A2.C#3
N21M98P9799
#10=0
#13=#508/2
#33=2000/#509
#32=#5003
#31=#32-ABS[#6]
IF[#21EQ#0]GOTO2
#10=1
IF[#21GT#508+10/#509]GOTO1
IF[#21GE0]GOTO2
N1#9=#21/2-#13-5/#509
N2IF[#22EQ#0]GOTO4
#10=#10+2
IF[#22GT#508+10/#509]GOTO3
IF[#22GE0]GOTO4
N3#8=#22/2-#13-5/#509
N4IF[#4GT#508+10/#509]GOTO5
IF[#4GE0]GOTO6
N5#9=#4/2-#13-5/#509
#8=#9
N6IF[#4EQ#0]GOTO7
IF[#10EQ0]GOTO7
#3000=10(I OR U,V DATA NOT FOUND)
N7G90G01F[#33*2]
G53
M463
IF[#19NE#0]GOTO8
#19=#33/2
N8IF[#10EQ2]GOTO9
#120=#5041
Y[#5002-[#502+#503]/2]
X[#120+#9]
Z#31F#33
G65P9714A1.B1.S1.X#19
Z#32
#128=#5061+#500+#13
X[#120-#9]
Z#31F#33
G65P9714A1.B1.S-1.X-#19
Z#32
#129=#5061+#501-#13
#120=[#128+#129]/2
G65P9797A120.B120.
X#120
G53
#124=#5021
IF[#10EQ1]GOTO12
N9#121=#5042
X[#5001-[#500+#501]/2]
Y[#121+#8]
Z#31F#33
G65P9714A2.B1.S1.Y#19
Z#32
#130=#5062+#502+#13
Y[#121-#8]
Z#31F#33
G65P9714A2.B1.S-1.Y-#19
Z#32
#131=#5062+#503-#13
#121=[#130+#131]/2
#123=ABS[#130-#131]
G65P9797A121.B121.
Y#121
G53
#125=#5022
IF[#10NE0]GOTO12
#30=#123/2-#13-1/#509
IF[#511AND16EQ0]GOTO10
#30=#30-2/#509
N10IF[#9GE0]GOTO11
#30=#30-#123
N11Y[#5002-[#502+#503]/2]
X[#120+#30]
Z#31F#33
G65P9714A1.S1.X[5/#509]
Z#32
#128=#5061+#500+#13
X[#120-#30]
Z#31F#33
G65P9714A1.S-1.X-[5/#509]
Z#32
#129=#5061+#501-#13
#120=[#128+#129]/2
G65P9797A120.B120.
X[#120-[#500+#501]/2]
G53
#124=#5021+[#500+#501]/2
N12G65P9797A120.B125.
G65P9797A128.B131.
IF[#10EQ2]GOTO22
#122=ABS[#128-#129]
N22IF[#10EQ1]GOTO23
#123=ABS[#130-#131]
N23IF[#8LT0]GOTO13
IF[#9GE0]GOTO14
N13#14=#128
#128=#129
#129=#14
#14=#130
#130=#131
#131=#14
N14IF[#1001EQ1]GOTO15
IF[#1000EQ0]GOTO16
IF[#18EQ#0]GOTO16
N15M98P9774
N16IF[#5EQ#0]GOTO19
#12=4141+20*#4014
IF[ROUND[#12]NE5223]GOTO17
#12=6981+20*#4130
IF[#4130LE48]GOTO17
#12=#12+7000
N17IF[#10EQ2]GOTO18
#[#12]=#124
N18IF[#10EQ1]GOTO19
#[#12+1]=#125
N19IF[#17EQ1]GOTO20
M85
M00
IF[#143EQ1]GOTO20
#149=30
M#149
N20G#28G#29F#27
M86
M99

:9713
IF[#4GT0]GOTO1
IF[#21GT0]GOTO1
IF[#22GT0]GOTO1
#3000=10(I OR U,V DATA NOT FOUND)
N1IF[#6NE#0]GOTO2
#6=30/#509
N2IF[#4EQ#0]GOTO3
#4=-#4
N3IF[#21EQ#0]GOTO4
#21=-#21
N4IF[#22EQ#0]GOTO5
#22=-#22
N5G65P9712C#3I#4J#5K#6Q#17R#18S#19U#21V#22
M99

:9714
#29=#4001
#30=#4003
G53
#[30+#1]=#[5020+#1]
M85
IF[#2EQ#0]GOTO3
M48
G91G31X#24Y#25Z#26F[1500/#509]
IF[ABS[#[30+#1]+#[23+#1]-#[5020+#1]]*#509LT0.005]GOTO5
#[3+#1]=-5.5*#19/#509
IF[#511AND16EQ0]GOTO1
#[3+#1]=-7.5*#19/#509
N1#[23+#1]=-2*#[3+#1]
#18=#[30+#1]-#[5020+#1]
IF[[#[3+#1]-#18]*#19GE0]GOTO2
#[3+#1]=#18
N2G01X#4Y#5Z#6F[4000/#509]
N3G53
#[13+#1]=#[5020+#1]
#[3+#1]=-#19/#509
#10=50/#509
IF[#511AND16EQ0]GOTO4
#[3+#1]=-3*#19/#509
#10=500/#509
N4M49
G91G31X#24Y#25Z#26F#10
IF[ABS[#[13+#1]+#[23+#1]-#[5020+#1]]*#509GE0.005]GOTO6
N5M48
#3000=16(NOT REACH TO SURFACE)
N6#12=1
IF[#511AND8EQ0]GOTO7
#27=#[5060+#1]
WHILE[#12LE7]DO1
G01X#4Y#5Z#6F[4000/#509]
G04P1
G31X#24Y#25Z#26F#10
#28=#[5060+#1]
#11=0.002
IF[#4006EQ21]GOTO10
#11=0.0001
N10IF[ABS[#28-#27]LE#11]GOTO7
#27=#28
#12=#12+1
END1
N7#145=#[5020+#1]-#[5040+#1]+#[5060+#1]
IF[#3EQ#0]GOTO8
#[3+#1]=#[30+#1]-#[5020+#1]
N8M48
G01X#4Y#5Z#6F[4000/#509]
M86
IF[#12LE7]GOTO9
#3000=24(POINT ERROR OVER TOLERANCE)
N9G#29G#30
M99

:9718
IF[#511AND1024EQ0]GOTO15
G65P9738D1.
N15M31
M86
M463
#14=#4111
#15=#4008
#16=#4109
#28=#4001
#29=#4003
#30=#5001
#31=#5002
#32=#5003
#13=#508/2
IF[#19NE#0]GOTO1
#19=1/#509
IF[#511AND16EQ0]GOTO1
#19=3/#509
N1IF[#19*#509GT5]GOTO2
IF[#19*#509GE0.1]GOTO3
N2#3000=18(APPROACH DATA AL.)
N3IF[#15NE43]GOTO4
IF[#14EQ0]GOTO4
#1=#14
N4IF[#1EQ#0]GOTO6
#27=2000
IF[#1LE200]GOTO5
#27=10000
N5#2=#[#1+#27]
IF[#512AND3EQ0]GOTO6
#2=#[#1+1.1*#27]
N6IF[#10EQ1]GOTO13
IF[#26NE#0]GOTO7
#3000=13(Z DATA NOT FOUND)
N7IF[#10EQ2]GOTO11
IF[#4LT0]GOTO9
IF[#4LE#508]GOTO8
IF[#511AND16EQ0]GOTO9
IF[#4GT#508+4/#509]GOTO9
N8#3000=10(I OR U,V DATA NOT FOUND)
N9IF[#24NE#0]GOTO10
#3000=11(X DATA NOT FOUND)
N10IF[#25NE#0]GOTO11
#3000=12(Y DATA NOT FOUND)
N11IF[#29EQ90]GOTO12
#24=#5001+#24
#25=#5002+#25
#26=#5003+#26
N12G90G00G40
N13M99

:9720
#10=1
IF[#511AND128EQ0]GOTO1
G65P9715A2.C#3
N1M98P9799
M98P9718
IF[#11NE#0]GOTO2
#3000=14(H DATA NOT FOUND)
N2IF[#7EQ#0]GOTO7
#8=FUP[#7/2]
IF[#21EQ#0]GOTO5
IF[#21*#509GT40]GOTO3
IF[#21*#509GE0.1]GOTO4
N3#3000=18(APPROACH DATA AL.)
N4#19=#21
N5#33=#19+#13
#[23+#8]=#11
IF[#29EQ90]GOTO6
#[23+#8]=#[5000+#8]+#11
N6G90G00G40
IF[#7EQ5]GOTO12
IF[#7EQ4]GOTO11
IF[#7EQ3]GOTO10
IF[#7EQ2]GOTO9
IF[#7EQ1]GOTO8
N7#3000=15(D DATA NOT FOUND)
N8Y[#31-[#502+#503]/2]
X[#24-#33-[#500+#501]/2]
G65P9714A1.B#21S1.X[2*#19]
#128=#5061+#500+#13
GOTO13
N9Y[#31-[#502+#503]/2]
X[#24+#33-[#500+#501]/2]
G65P9714A1.B#21S-1.X-[2*#19]
#129=#5061+#501-#13
GOTO13
N10X[#30-[#500+#501]/2]
Y[#25-#33-[#502+#503]/2]
G65P9714A2.B#21S1.Y[2*#19]
#130=#5062+#502+#13
GOTO13
N11X[#30-[#500+#501]/2]
Y[#25+#33-[#502+#503]/2]
G65P9714A2.B#21S-1.Y-[2*#19]
#131=#5062+#503-#13
GOTO13
N12X[#30-[#500+#501]/2]Y[#31-[#502+#503]/2]
G49Z[#26+#2+#33]
G65P9714A3.B#21S-1.Z-[2*#19]
#132=#5063-#2+#504-#13
N13#20=#[127+#7]
#[123+#8]=#20-#[23+#8]
#[136+#8]=0
IF[#21EQ#0]GOTO22
IF[#22EQ#0]GOTO22
#27=2000
IF[#22LE200]GOTO14
#27=10000
N14#9=#22+#27
IF[#512AND3EQ0]GOTO15
#9=#22+1.1*#27
IF[#512AND3EQ1]GOTO15
IF[#7EQ5]GOTO15
#9=#22+13000
N15IF[#7NE1]GOTO16
#[#9]=#[#9]-#124
N16IF[#7NE2]GOTO17
#[#9]=#[#9]+#124
N17IF[#7NE3]GOTO18
#[#9]=#[#9]-#125
N18IF[#7NE4]GOTO19
#[#9]=#[#9]+#125
N19IF[#7NE5]GOTO20
#[#9]=#[#9]+#126
N20IF[#512AND3EQ0]GOTO22
IF[#512AND3EQ1]GOTO21
IF[#7EQ5]GOTO21
#[#9]=#[#9]+#[#22+12000]
#[#22+12000]=0
GOTO22
N21#[#9]=#[#9]+#[#22+#27]
#[#22+#27]=0
N22G#15Z#32H#14
X#30Y#31
IF[#7NE5]GOTO23
IF[#6NE#0]GOTO24
N23#133=ABS[#144-#20]
#[136+#8]=[#144+#20]/2
GOTO26
N24#7=6
#8=4
#12=4143+20*#4014
IF[ROUND[#12]NE5225]GOTO25
#12=6983+20*#4130
IF[#4130LE48]GOTO25
#12=#12+7000
N25#20=#20+#6+#[#12]
#133=#144+#20
#134=#133/2
N26#144=#20
IF[#149EQ#8]GOTO27
#149=#8
#133=#0
#134=#0
#[136+FUP[#7/2]]=#0
N27#127=#0
G65P9797A124.B134.
G65P9797A137.B139.
IF[#1001EQ1]GOTO28
IF[#1000EQ0]GOTO29
IF[#18EQ#0]GOTO29
N28M98P9773
N29G#28G#29F#16
M99

:9723(REN PC DELAY)
#3001=0.0
WHILE[#3001LE140]DO1
END1
M99

:9724(REN INCH MET)
#109=1.0
#103=.050
IF[#4006NE20]GOTO1
#103=.002
#109=0.04

N1
IF[#4006NE70]GOTO2
#103=.002
#109=0.04

N2
IF[#506LE0]GOTO3
IF[#506GT1.]GOTO3
GOTO4

N3
#506=.5

N4
IF[#19EQ#0]GOTO5
#105=2500+#19
#106=2600+#19
#107=2700+#19
IF[#19LT100]GOTO5
#105=6981+[20*[#19-100]]
#106=6982+[20*[#19-100]]
#107=6983+[20*[#19-100]]

N5
M99




:9728
IF[#7NE#0]GOTO1
#3000=15(D DATA NOT FOUND)
N1G65P9746C#3J#5K1.D#7E#19Q#17R#18
M99

:9730
#8=FUP[#7/2]
IF[#24EQ#0]GOTO1
#33=1
IF[#25NE#0]GOTO3
IF[#26NE#0]GOTO3
IF[#8EQ1]GOTO3
GOTO4
N1IF[#25EQ#0]GOTO2
#33=2
IF[#26NE#0]GOTO3
IF[#8EQ2]GOTO3
GOTO4
N2#33=3
IF[#26EQ#0]GOTO3
IF[#8NE3]GOTO4
N3#3000=19(FORMAT ERROR)
N4IF[#4003EQ91]GOTO5
#[23+#33]=#[23+#33]+#[5000+#33]
N5G65P9720A#1B#2C#3D#7H#11R#18S#19U#21
#31=#[127+#7]
G53
#32=#[5040+#33]
X#24Y#25Z#26
#149=0
G65P9720A#1B#2C#3D#7H#11R#18S#19U#21
G53
#30=[#[127+#7]-#31]/[#[5040+#33]-#32]
#127=ATAN[#30]/[1]
IF[#127LT180]GOTO12
#127=#127-360
N12IF[#8NE1]GOTO6
IF[#33EQ3]GOTO9
N6IF[#8NE2]GOTO7
IF[#33EQ1]GOTO9
N7IF[#8NE3]GOTO8
IF[#33EQ2]GOTO9
N8#127=-#127
N9#124=#0
#125=#0
#126=#0
G65P9797A127.B127.
IF[#1001EQ1]GOTO10
IF[#1000EQ0]GOTO11
IF[#18EQ#0]GOTO11
N10M98P9778
N11#149=0
M99

:9736
G65P9738D2.
M99

:9737
G65P9739D2.
M99

:9738
IF[#511AND32EQ0]GOTO1
M914
N1IF[#511AND1024EQ0]GOTO2
IF[#7EQ1]GOTO2
M19
N2M941
G53
IF[#1005EQ1]GOTO10
IF[#511AND1024EQ0]GOTO4
IF[#7EQ2]GOTO3
M966
G04X2.
M941
G53
IF[#1005EQ1]GOTO10
IF[#3NE#0]GOTO9
N3M964
GOTO10
N4IF[#2NE#0]GOTO5
#2=2
N5IF[#1014EQ1]GOTO6
#2=#0
N6M911
M59
M85
S500
#10=0
WHILE[#10LE#2]DO1
IF[#10GE1]GOTO7
IF[#1NE1]GOTO8
N7G04X10.
N8M03
G04X0.2
M19
IF[#2EQ#0]GOTO10
M941
G53
IF[#1005EQ1]GOTO10
#10=#10+1
END1
IF[#3EQ#0]GOTO10
N9#108=0
M98P#3
IF[#108EQ1]GOTO11
N10M31
G04X0.6
M86
IF[#7GE1]GOTO11
#143=1
N11M99

:9739
#143=0
IF[#511AND1024EQ0]GOTO2
M19
IF[#7EQ2]GOTO1
M965
GOTO8
N1M963
GOTO8
N2IF[#2NE#0]GOTO3
#2=2
N3M941
G53
IF[#1005EQ1]GOTO4
IF[#1014EQ1]GOTO7
#2=#0
N4M910
M59
M85
S500
#10=0
WHILE[#10LE#2]DO1
IF[#10GE1]GOTO5
IF[#1NE1]GOTO6
N5G04X10.
N6M03
G04X0.2
M19
IF[#2EQ#0]GOTO7
M941
G53
IF[#1005EQ0]GOTO7
#10=#10+1
END1
IF[#3EQ#0]GOTO7
#108=0
M98P#3
IF[#108EQ1]GOTO9
N7M911
M58
N8IF[#511AND32EQ0]GOTO9
M913
N9M99

:9741( +X DIRECTION )
G65P9746C#3D1.E#19Q#17R#18
M99

:9742( -X DIRECTION )
G65P9746C#3D2.E#19Q#17R#18
M99

:9743( +Y DIRECTION )
G65P9746C#3D3.E#19Q#17R#18
M99

:9744( -Y DIRECTION )
G65P9746C#3D4.E#19Q#17R#18
M99

:9745( -Z DIRECTION )
G65P9746C#3D5.E#19Q#17R#18
M99

:9746
IF[#511AND1024EQ0]GOTO19
G65P9738D1.
N19M31
M86
IF[#511AND128EQ0]GOTO1
G65P9715A2.C#3
N1M98P9799
#1=FUP[#7/2]
#19=1
IF[#7EQ1]GOTO2
IF[#7EQ3]GOTO2
#19=-1
N2#16=2000
IF[#4111LE200]GOTO3
#16=10000
N3IF[#8NE#0]GOTO4
#8=1000/#509
N4#[23+#1]=#8*#19
#15=#[#16+#4111]
IF[#4111EQ0]GOTO14
IF[#512AND3EQ0]GOTO14
#15=#[1.1*#16+#4111]
N14G53
M463
#120=#5041
#121=#5042
#122=#5043-#15
#124=#5021
#125=#5022
#126=#5023-#15
#30=#4003
#31=#5001
#32=#5002
G90
IF[#7GE3]GOTO15
Y[#32-[#502+#503]/2]
GOTO17
N15IF[#7GE5]GOTO16
X[#31-[#500+#501]/2]
GOTO17
N16X[#31-[#500+#501]/2]Y[#32-[#502+#503]/2]
N17G65P9714A#1B1.C1.S#19X#24Y#25Z#26
X#31Y#32
G#30
IF[#1EQ3]GOTO5
#15=0
N5#10=#[499+#7]+#508*#19/2-#15
#[123+#1]=#145+#10
#33=1
IF[#1001EQ1]GOTO6
IF[#1000EQ0]GOTO7
IF[#18EQ#0]GOTO7
N6#33=0
N7#12=4140+20*#4014
IF[ROUND[#12]NE5222]GOTO8
#12=6980+20*#4130
IF[#4130LE48]GOTO8
#12=#12+7000
N8IF[#6EQ#0]GOTO10
#[119+#1]=#[5060+#1]+#10
G65P9797A120.B122.
G65P9797A124.B126.
IF[#33EQ1]GOTO9
M98P9775
N9IF[#5EQ#0]GOTO11
#[#12+#1]=#[123+#1]
GOTO11
N10#[#12+#1]=#[123+#1]-#[136+#1]
IF[#33EQ1]GOTO11
M98P9777
N11IF[#17EQ1]GOTO13
IF[#6NE1]GOTO12
M85
M00
N12IF[#143EQ1]GOTO13
#149=30
M#149
N13M86
M99

:9750
#10=0
IF[#7EQ#0]GOTO1
#10=#10+1
N1IF[#8EQ#0]GOTO2
#10=#10+1
N2IF[#9EQ#0]GOTO3
#10=#10+1
N3IF[#10GE2]GOTO4
IF[#22EQ#0]GOTO5
IF[#21LE#22]GOTO5
N4#3000=8(D,E,F OR U,V DATA SET ERR.)
N5IF[#17EQ-1]GOTO6
#17=1
N6IF[#24NE#0]GOTO7
IF[#25NE#0]GOTO7
IF[#26NE#0]GOTO7
IF[#7NE#0]GOTO7
IF[#8NE#0]GOTO7
IF[#9NE#0]GOTO7
#24=0
#25=0
#26=0
#7=0
N7#33=1
M463
G53
IF[#1001EQ1]GOTO8
IF[#1000EQ0]GOTO9
IF[#18EQ#0]GOTO9
N8#33=0
N9#12=0
#14=0
#15=-5
#16=0
WHILE[#15LE#16]DO1
IF[#15GE1]GOTO10
IF[#[#15+6]EQ#0]GOTO25
N10IF[#33EQ1]GOTO11
G65P9776A#15B#14D#7E#8F#9Q#17
N11#31=5321+20*#15+#14
#32=#23
IF[#15GE1]GOTO12
#32=#[#15+6]
N12IF[#24EQ#0]GOTO15
IF[#20EQ3]GOTO14
IF[#20NE1]GOTO13
#[#31]=#[#31]+[#124+#24]*#17
GOTO15
N13#[#31]=#[#31]+[#124*COS[#32]-#126*SIN[#32]+#24]*#17
GOTO15
N14#[#31]=#[#31]+[#124*COS[#32]+#125*SIN[#32]+#24]*#17
N15IF[#25EQ#0]GOTO18
IF[#20EQ3]GOTO17
IF[#20NE1]GOTO16
#[#31+1]=#[#31+1]+[#125*COS[#32]+#126*SIN[#32]+#25]*#17
GOTO18
N16#[#31+1]=#[#31+1]+[#125+#25]*#17
GOTO18
N17#[#31+1]=#[#31+1]+[#125*COS[#32]-#124*SIN[#32]+#25]*#17
N18IF[#26EQ#0]GOTO21
IF[#20EQ3]GOTO20
IF[#20NE1]GOTO19
#[#31+2]=#[#31+2]+[#126*COS[#32]-#125*SIN[#32]+#26]*#17
GOTO21
N19#[#31+2]=#[#31+2]+[#126*COS[#32]+#124*SIN[#32]+#26]*#17
GOTO21
N20#[#31+2]=#[#31+2]+[#126+#26]*#17
N21IF[#7EQ#0]GOTO22
#[#31+3]=#[#31+3]+[#127-#7]*#17
N22IF[#8EQ#0]GOTO23
#[#31+4]=#[#31+4]+[#127-#8]*#17
N23IF[#9EQ#0]GOTO24
#[#31+5]=#[#31+5]+[#127-#9]*#17
N24IF[#33EQ1]GOTO25
G65P9776A#15B#14C1.D#7E#8F#9Q#17
N25#15=#15+1
IF[#15LE0]GOTO29
IF[#12EQ2]GOTO29
IF[#12EQ1]GOTO28
IF[#21NE#0]GOTO26
IF[#22EQ#0]GOTO29
N26#12=1
#14=1660
#15=#21
IF[#15NE#0]GOTO27
#15=#22
N27#16=#22
IF[#16NE#0]GOTO28
#16=#21
N28IF[#15LE48]GOTO29
#12=2
#14=8660
N29END1
M99

:9751
G65P9750A#1B#2C#3I#4J#5K#6D#7E#8F#9Q-1.R#18T#20U#21V#22W#23X#24Y#25Z#26
M99

:9752
#12=4141+20*#4014
IF[ROUND[#12]NE5223]GOTO1
#12=6981+20*#4130
IF[#4130LE48]GOTO1
#12=#12+7000
N1IF[#24NE#0]GOTO2
IF[#25NE#0]GOTO3
IF[#26NE#0]GOTO4
#24=0
#25=0
#26=0
N2#[#12]=#137+#[#12]+#24
N3IF[#25EQ#0]GOTO4
#[#12+1]=#138+#[#12+1]+#25
N4IF[#26EQ#0]GOTO5
#[#12+2]=#139+#[#12+2]+#26
N5M99

:9753
#12=4141+20*#4014
IF[ROUND[#12]NE5223]GOTO1
#12=6981+20*#4130
IF[#4130LE48]GOTO1
#12=#12+7000
N1IF[#24NE#0]GOTO2
IF[#25NE#0]GOTO3
IF[#26NE#0]GOTO4
#24=1
#25=1
#26=1
N2#[#12]=#505
N3IF[#25EQ#0]GOTO4
#[#12+1]=#506
N4IF[#26EQ#0]GOTO5
#[#12+2]=#507
N5M99

:9754
#12=4141+20*#4014
IF[ROUND[#12]NE5223]GOTO1
#12=6981+20*#4130
IF[#4130LE48]GOTO1
#12=#12+7000
N1IF[#24NE#0]GOTO2
IF[#25NE#0]GOTO3
IF[#26NE#0]GOTO4
#24=1
#25=1
#26=1
N2#505=#[#12]
N3IF[#25EQ#0]GOTO4
#506=#[#12+1]
N4IF[#26EQ#0]GOTO5
#507=#[#12+2]
N5M99

:9760
#146=0.015/#509
#147=-#146
IF[#1EQ#0]GOTO1
#146=#1
N1IF[#2EQ#0]GOTO2
#147=#2
N2IF[#146GE#147]GOTO3
#3000=0(TOLERANCE SET ERROR)
N3IF[#8EQ#0]GOTO4
#9=-#9
N4#12=1
M463
G53
IF[#1001EQ1]GOTO5
IF[#1000EQ0]GOTO6
IF[#18EQ#0]GOTO6
N5#12=0
N6IF[#4EQ#0]GOTO8
IF[#5EQ#0]GOTO7
#3000=3(I OR J SET ERROR)
N7IF[#26NE#0]GOTO15
#4=#4-#9*2
#146=#146+#4
#147=#147+#4
#31=#122/2-[#146+#147]/4
#32=#123/2-[#146+#147]/4
#28=#122
#29=#123
#27=1
GOTO10
N8IF[#5EQ#0]GOTO9
#5=#5-#9*2
#146=#146+#5
#147=#147+#5
#31=#133/2-[#146+#147]/4
#32=#31
#33=#31*2
#28=#133
#29=#133
#30=#133
#27=2
GOTO10
N9#31=#124-[#146+#147]/2
#32=#125-[#146+#147]/2
#33=#126-[#146+#147]/2
#28=#124
#29=#125
#30=#126
N10IF[#12EQ1]GOTO11
G65P9779A#27
N11#148=#0
IF[#26EQ#0]GOTO12
#148=#33
N12IF[#25EQ#0]GOTO13
#148=#32
N13IF[#24EQ#0]GOTO14
#148=#31
IF[#25EQ#0]GOTO14
#148=[#31+#32]/2
N14IF[#148NE#0]GOTO16
N15#3000=19(FORMAT ERROR)
N16IF[#8EQ#0]GOTO17
#148=-#148
N17#148=#148+#23
G65P9797A148.B148.
#10=0
WHILE[#10LE2]DO1
IF[#[24+#10]EQ#0]GOTO18
IF[#[28+#10]LT#147]GOTO19
IF[#[28+#10]GT#146]GOTO20
N18#10=#10+1
END1
IF[#6EQ#0]GOTO47
M140
GOTO47
N19IF[#8NE#0]GOTO29
GOTO21
N20IF[#8EQ#0]GOTO29
N21IF[#13NE0]GOTO23
IF[#12EQ1]GOTO22
G65P9780A1.B0
N22M00
N23IF[#6EQ#0]GOTO24
M141
N24IF[#3NE#0]GOTO48
IF[#7EQ0]GOTO48
IF[#7NE#0]GOTO37
IF[#21EQ#0]GOTO26
IF[#12EQ1]GOTO25
G65P9780A1.B#21M#13
N25M98P#21
GOTO48
N26IF[#6EQ#0]GOTO27
M142
N27IF[#13EQ0]GOTO47
IF[#12EQ1]GOTO28
G65P9780A1.
N28#3000=2(UNDER TOLERANCE)
N29IF[#13NE0]GOTO31
IF[#12EQ1]GOTO30
G65P9780A2.B0
N30M00
N31IF[#3EQ#0]GOTO32
IF[#6EQ#0]GOTO48
M141
GOTO48
N32IF[#7GT0]GOTO37
IF[#6EQ#0]GOTO33
M142
N33IF[#22EQ#0]GOTO35
IF[#12EQ1]GOTO34
G65P9780A2.B#22M#13
N34M98P#22
GOTO48
N35IF[#13EQ0]GOTO47
IF[#12EQ1]GOTO36
G65P9780A2.
N36#3000=1(OVER TOLERANCE)
N37#7=ABS[#7]
#15=920
IF[#19NE1]GOTO38
#15=921
N38IF[#20NE0]GOTO55
#20=#107
IF[#20LE0]GOTO56
N55IF[#7EQ0.1]GOTO44
#16=2000
IF[#7LE200]GOTO39
#16=10000
N39IF[#19NE1]GOTO40
IF[#512AND3GE2]GOTO41
N40IF[#512AND3GE1]GOTO54
#[#7+#16]=#[#7+#16]+#148
GOTO42
N54#[#7+1.1*#16]=#[#7+1.1*#16]+#[#7+#16]+#148
#[#7+#16]=0
GOTO42
N41#[#7+13000]=#[#7+13000]+#[#7+12000]+#148
#[#7+12000]=0
N42IF[#20EQ#0]GOTO46
#100=#[#7+#16]
IF[#512AND3EQ0]GOTO43
#100=#[#7+1.1*#16]
IF[#19NE1]GOTO43
IF[#512AND3EQ1]GOTO43
#100=#[#7+13000]
N43#109=#20
M#15
GOTO46
N44IF[#20NE#0]GOTO45
N56#3000=26(T DATA NOT FOUND)
N45#100=#148
#109=#20
M922
M#15
N46IF[#12EQ1]GOTO48
M98P9781
GOTO48
N47IF[#12EQ1]GOTO48
G65P9780
N48M99

:9791
M34
T#11
G28G91G00Z0
G28G49X0Y0
M99

:9792
M35
G04X10.
M30

:9793
M142
M99

:9797
#10=1000
IF[#4006EQ21]GOTO1
#10=10000
N1WHILE[#1LE#2]DO1
IF[#[#1]EQ#0]GOTO2
#[#1]=ROUND[#[#1]*#10]
#[#1]=#[#1]/#10
N2#1=#1+1
END1
M99

:9799
IF[#509*1EQ0]GOTO2
IF[#7EQ5]GOTO1
IF[#500EQ#0]GOTO2
IF[#501EQ#0]GOTO2
IF[#502EQ#0]GOTO2
IF[#503EQ#0]GOTO2
GOTO3
N1IF[#504NE#0]GOTO3
N2#3000=17(CALIBRATION DATA NOT FOUND)
N3IF[#4006EQ20]GOTO8
IF[#509EQ1]GOTO12
#500=#500*#509
#501=#501*#509
#502=#502*#509
#503=#503*#509
#504=#504*#509
#508=#508*#509
IF[#512AND4EQ4]GOTO4
IF[#511AND128EQ0]GOTO7
#516=#516*#509
N4#517=#517*#509
#518=#518*#509
#519=#519*#509
#520=#520*#509
IF[#512AND4EQ4]GOTO5
#521=#521*#509
N5#522=#522*#509
#523=#523*#509
#524=#524*#509
#525=#525*#509
IF[#512AND4EQ4]GOTO6
#526=#526*#509
N6#527=#527*#509
IF[#512AND4EQ0]GOTO7
#528=#528*#509
#529=#529*#509
#530=#530*#509
N7#509=1
GOTO12
N8IF[#509EQ25.4]GOTO12
#509=25.4
#500=#500/#509
#501=#501/#509
#502=#502/#509
#503=#503/#509
#504=#504/#509
#508=#508/#509
IF[#512AND4EQ4]GOTO9
IF[#511AND128EQ0]GOTO12
#516=#516/#509
N9#517=#517/#509
#518=#518/#509
#519=#519/#509
#520=#520/#509
IF[#512AND4EQ4]GOTO10
#521=#521/#509
N10#522=#522/#509
#523=#523/#509
#524=#524/#509
#525=#525/#509
IF[#512AND4EQ4]GOTO11
#526=#526/#509
N11#527=#527/#509
IF[#512AND4EQ0]GOTO12
#528=#528/#509
#529=#529/#509
#530=#530/#509
N12M99

:9810
M60
M600
M99
:9811
G00G90B90.0
M601
M99
:9812
G00G90B180.0
M601
M99
:9813
G00G90B270.0
M601
M99
:9814
G90G28B0
M601
M99
:9819
G28G91G00Z0
G28G49X0Y0
G28B0
T0
M06
T0
M30
:9855
M30
%
上面的程序是日本（牧野）卧式加工中心3D探头的宏程序，是日本工程师编写的，请教每节的含意，尽量详细些，谢谢。