%_N_UGUD_DEF（定义全局变量） ;$PATH=/_N_DEF_DIR def nck real renc[50] def nck real rene[20] def nck real renp[66] def nck axis axv[5]
DEF NCK STRING[32] RENTL m17
%_N_L9700_SPF
;$PATH=/_N_SPF_DIR
; RENISHAW ERROR MESSAGE ; 40140358.0A STOPRE
CASE(RENP[4]) OF 1 GOTOF LN1 2 GOTOF LN2 3 GOTOF LN3 4 GOTOF LN4 STOPRE LN1:
L9701; ENGLISH GOTOF END LN2:
L9702; GERMAN GOTOF END LN3:
L9703; FRENCH LN4: END: RET
%_N_L9701_SPF
;$PATH=/_N_SPF_DIR
; RENISHAW ERROR MESSAGE IN ENGLISH STOPRE
CASE(RENC[15]) OF 500 GOTOF LN500 510 GOTOF LN510 520 GOTOF LN520 CASE(RENC[15]) OF 530 GOTOF LN530 540 GOTOF LN540 550 GOTOF LN550 CASE(RENC[15]) OF 560 GOTOF LN560 DEFAULT GOTOF LN1000 LN500: MSG(\STOPRE M00
GOTOF END
LN510: MSG(\STOPRE M00
GOTOF END
LN520: MSG(\STOPRE M00
GOTOF END
LN530: MSG(\STOPRE M00
GOTOF END
LN540: MSG(\STOPRE M00
GOTOF END
LN550: MSG(\STOPRE M00
GOTOF END
LN560: MSG(\STOPRE M00
GOTOF END ;
LN1000:
L9800; CLEAR INPUTS
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_L9702_SPF
;$PATH=/_N_SPF_DIR
; RENISHAW FEHLERMELDUNGEN IN DEUTSCH STOPRE
CASE(RENC[15]) OF 500 GOTOF LN500 510 GOTOF LN510 520 GOTOF LN520 CASE(RENC[15]) OF 530 GOTOF LN530 540 GOTOF LN540 550 GOTOF LN550 CASE(RENC[15]) OF 560 GOTOF LN560 DEFAULT GOTOF LN1000 LN500: MSG(\STOPRE M00
GOTOF END
LN510: MSG(\STOPRE M00
GOTOF END
LN520: MSG(\STOPRE M00
GOTOF END
LN530: MSG(\STOPRE M00
GOTOF END
LN540: MSG(\STOPRE M00
GOTOF END
LN550: MSG(\STOPRE M00
GOTOF END
LN560: MSG(\STOPRE M00
GOTOF END ;
LN1000: