L9800; LOESCHE EINGABEN
CASE(RENC[15]) OF 40 GOTOF LN40 50 GOTOF LN50 60 GOTOF LN60 CASE(RENC[15]) OF 70 GOTOF LN70 80 GOTOF LN80 90 GOTOF LN90
CASE(RENC[15]) OF 100 GOTOF LN100 110 GOTOF LN110 120 GOTOF LN120 CASE(RENC[15]) OF 130 GOTOF LN130 140 GOTOF LN140 150 GOTOF LN150 CASE(RENC[15]) OF 160 GOTOF LN160 170 GOTOF LN170 180 GOTOF LN180 CASE(RENC[15]) OF 190 GOTOF LN190 200 GOTOF LN200 210 GOTOF LN210 CASE(RENC[15]) OF 220 GOTOF LN220 230 GOTOF LN230 240 GOTOF LN240 CASE(RENC[15]) OF 250 GOTOF LN250 260 GOTOF LN260 270 GOTOF LN270 CASE(RENC[15]) OF 280 GOTOF LN280 290 GOTOF LN290 300 GOTOF LN300 CASE(RENC[15]) OF 310 GOTOF LN310 320 GOTOF LN320 330 GOTOF LN330 CASE(RENC[15]) OF 340 GOTOF LN340 350 GOTOF LN350 360 GOTOF LN360 CASE(RENC[15]) OF 365 GOTOF LN365 370 GOTOF LN370 380 GOTOF LN380 CASE(RENC[15]) OF 390 GOTOF LN390 400 GOTOF LN400 LN5: STOPRE M00
GOTOB LN5
LN40: MSG(\STOPRE M00
GOTOB LN40
LN50: MSG(\STOPRE M00
GOTOB LN50
LN60: MSG(\STOPRE M00
GOTOB LN60
LN70: MSG(\STOPRE M00
GOTOB LN70
LN80: MSG(\STOPRE M00
GOTOB LN80
LN90: MSG(\STOPRE M00
GOTOB LN90
LN100: MSG(\STOPRE M00
GOTOB LN100
LN110: MSG(\STOPRE M00
GOTOB LN110
LN120: MSG(\STOPRE M00
GOTOB LN120
LN130: MSG(\STOPRE
M00
GOTOB LN130
LN140: MSG(\STOPRE M00
GOTOB LN140
LN150: MSG(\STOPRE M00
GOTOB LN150
LN160: MSG(\STOPRE M00
GOTOB LN160
LN170: MSG(\STOPRE M00
GOTOB LN170
LN180: MSG(\STOPRE M00
GOTOB LN180
LN190: MSG(\STOPRE M00
GOTOB LN190
LN200: MSG(\STOPRE M00
GOTOB LN200
LN210: MSG(\STOPRE M00
GOTOB LN210
LN220: MSG(\STOPRE M00
GOTOB LN220
LN230: MSG(\STOPRE M00
GOTOB LN230
LN240: MSG(\STOPRE M00
GOTOB LN240
LN250: MSG(\STOPRE M00
GOTOB LN250
LN260: MSG(\STOPRE M00
GOTOB LN260
LN270: MSG(\STOPRE
M00
GOTOB LN270
LN280: MSG(\STOPRE M00
GOTOB LN280
LN290: MSG(\STOPRE M00
GOTOB LN290
LN300: MSG(\STOPRE M00
GOTOB LN300
LN310: MSG(\STOPRE M00
GOTOB LN310
LN320: MSG(\STOPRE M00
GOTOB LN320
LN330: MSG(\STOPRE M00
GOTOB LN330
LN340: MSG(\STOPRE M00
GOTOB LN340
LN350: MSG(\STOPRE M00
GOTOB LN350
LN360: MSG(\STOPRE M00
GOTOB LN360
LN365: MSG(\STOPRE M00
GOTOB LN365
LN370: MSG(\STOPRE M00
GOTOB LN370
LN380: MSG(\STOPRE M00
GOTOB LN380
LN390: MSG(\STOPRE M00
GOTOB LN390
LN400: MSG(\STOPRE
M00
GOTOB LN400 END: STOPRE MSG(\STOPRE RET
%_N_L9710_SPF
;$PATH=/_N_SPF_DIR
PROC L9710(REAL _XX,REAL _YY,REAL _ZZ,REAL _FF) ; REN PROBE MOVE
IF _XX<>9999 GOTOF LN1 _XX=$AA_IW[AXV[1]] LN1:
IF _YY<>9999 GOTOF LN2 _YY=$AA_IW[AXV[2]] LN2:
IF _ZZ<>9999 GOTOF LN3 _ZZ=$AA_IW[AXV[3]] LN3:
RENC[49]=1; PROBE OPEN
IF $A_PROBE[ABS(RENP[7])]==1 GOTOF LN4 STOPRE
MEAS=RENP[7] G1 AX[AXV[1]]=_XX AX[AXV[2]]=_YY AX[AXV[3]]=_ZZ F=_FF STOPRE
RENC[49]=2; PROBE FAIL
IF $AC_MEA[ABS(RENP[7])]==0 GOTOF LN4 RENC[49]=0; NORMAL HIT LN4: STOPRE RET
%_N_L9721_SPF
;$PATH=/_N_SPF_DIR
PROC L9721(REAL _DD,REAL _QQ,REAL _RR,REAL _ZZ,REAL _SS) EXTERN L9726(REAL,REAL,REAL,REAL,REAL,REAL,REAL) EXTERN L9710(REAL,REAL,REAL,REAL) DEF REAL _REN[33] ; REN X DIAM
_REN[1]=$AA_IW[AXV[1]] _REN[2]=$AA_IW[AXV[3]] IF _ZZ==9999 GOTOF LN15
_REN[30]=RENP[0]*RENC[29]/RENC[7] IF _RR>0 GOTOF LN1
_REN[30]=-RENP[0]*RENC[29]/RENC[7] LN1:
_REN[32]=_DD/2+_REN[30]+_RR
L9710(_REN[1]-_REN[32],9999,9999,RENC[19]); PROTECT MOVE IF RENC[49]<>2 GOTOF LN3
L9710(9999,9999,_ZZ,RENC[19]*.6); PROTECT MOVE IF RENC[49]<>2 GOTOF LN3 LN15:
L9726(9999,9999,_REN[1]-_DD/2,9999,9999,_QQ,_SS); X MEASURE
G0 AX[AXV[3]]=_REN[2] AX[AXV[1]]=_REN[1]
IF RENC[49]<>0 GOTOF LN4 RENC[27]=RENC[24]
IF _ZZ==9999 GOTOF LN2
L9710(_REN[1]+_REN[32],9999,9999,RENC[19]); PROTECT MOVE IF RENC[49]<>2 GOTOF LN3
L9710(9999,9999,_ZZ,RENC[19]*.6); PROTECT MOVE IF RENC[49]<>2 GOTOF LN3 LN2:
L9726(9999,9999,_REN[1]+_DD/2,9999,9999,_QQ,_SS); X MEASURE G0 AX[AXV[3]]=_REN[2] IF RENC[49]<>0 GOTOF LN4
RENC[27]=(RENC[27]+RENC[24])/2 GOTOF LN4 LN3:
RENC[49]=1 LN4:
G0 AX[AXV[3]]=_REN[2] AX[AXV[1]]=_REN[1] STOPRE RET
%_N_L9722_SPF
;$PATH=/_N_SPF_DIR
PROC L9722(REAL _DD,REAL _QQ,REAL _RR,REAL _ZZ,REAL _SS) EXTERN L9726(REAL,REAL,REAL,REAL,REAL,REAL,REAL) EXTERN L9710(REAL,REAL,REAL,REAL) DEF REAL _REN[33] ; REN Y DIAM
_REN[1]=$AA_IW[AXV[2]] _REN[2]=$AA_IW[AXV[3]] IF _ZZ==9999 GOTOF LN15
_REN[30]=RENP[0]*RENC[29]/RENC[7] IF _RR>0 GOTOF LN1
_REN[30]=-RENP[0]*RENC[29]/RENC[7] LN1:
_REN[32]=_DD/2+_REN[30]+_RR
L9710(9999,_REN[1]-_REN[32],9999,RENC[19]); PROTECT MOVE IF RENC[49]<>2 GOTOF LN3
L9710(9999,9999,_ZZ,RENC[19]*.6); PROTECT MOVE IF RENC[49]<>2 GOTOF LN3 LN15:
L9726(9999,9999,9999,_REN[1]-_DD/2,9999,_QQ,_SS); Y MEASURE G0 AX[AXV[3]]=_REN[2] AX[AXV[2]]=_REN[1]
IF RENC[49]<>0 GOTOF LN4 RENC[28]=RENC[25]
IF _ZZ==9999 GOTOF LN2
L9710(9999,_REN[1]+_REN[32],9999,RENC[19]); PROTECT MOVE IF RENC[49]<>2 GOTOF LN3
L9710(9999,9999,_ZZ,RENC[19]*.6); PROTECT MOVE IF RENC[49]<>2 GOTOF LN3 LN2:
L9726(9999,9999,9999,_REN[1]+_DD/2,9999,_QQ,_SS); Y MEASURE