BEGIN PGM INIT41X MM 
;Ueberpruefen ob Preset-Zeile schreibgeschtzt
;diese Funktion unterstuetzt NC-Kern derzeit noch nicht
FN 9: IF +0 EQU +0 GOTO LBL 2
;=FN 9: IF +Q305 EQU +0 GOTO LBL 2
FN 18: SYSREAD Q1 = ID530 NR2 IDXQ305
FN 9: IF +Q1 EQU +0 GOTO LBL 2
FN 14: ERROR= 1085
LBL 2
;---------------------------------------------
;FN 18: SYSREAD Q0 = ID220 NR2 IDX1;--NPV X
;FN 9: IF +Q0 EQU +0 GOTO LBL 381
;FN 14: ERROR= 1009
;LBL 381
;FN 18: SYSREAD Q0 = ID220 NR2 IDX2;--NPV Y
;FN 9: IF +Q0 EQU +0 GOTO LBL 382
;FN 14: ERROR= 1009
;LBL 382
;FN 18: SYSREAD Q0 = ID220 NR2 IDX3;--NPV Z
;FN 9: IF +Q0 EQU +0 GOTO LBL 383
;FN 14: ERROR= 1009
;LBL 383
;FN 18: SYSREAD Q0 = ID210 NR2;--ROT
;FN 9: IF +Q0 EQU +0 GOTO LBL 384
;FN 14: ERROR= 1006
;LBL 384
END PGM INIT41X MM 
