BEGIN PGM 481 MM
FN 18: SYSREAD QL0 = ID 990 NR 2 IDX 10
FN 9: IF +QL0 EQU +1 GOTO LBL "END"
FN 18: SYSREAD QL1 = ID 990 NR 2 IDX 16
FN 9: IF +QL1 EQU +0 GOTO LBL "END"
FN 18: SYSREAD QL10 = ID 1000 NR 6562 IDX 0
FN 9: IF +QL10 EQU -1 GOTO LBL "NO_PRE"
M QL10
LBL "NO_PRE"
Q340 = ABS Q340  
Q341 = ABS Q341  
TCH PROBE 31.0 WERKZEUG-LAENGE
TCH PROBE 31.1 PRUEFEN: Q340 Q199
TCH PROBE 31.2 HOEHE: +Q260
TCH PROBE 31.3 SCHNEIDENVERMESSUNG: Q341
FN 18: SYSREAD QL11 = ID 1000 NR 6562 IDX 1
FN 9: IF +QL11 EQU -1 GOTO LBL "NO_POST"
M QL11
LBL "NO_POST"
LBL "END"
END PGM 481 MM
