0  BEGIN PGM NP_CALC MM 
1  ;--------------------------------------------------------
2  ; Berechnungsprogramm fr Werte die in die Nullpunkt-
3  ; Tabelle geschrieben werden
4  ;--------------------------------------------------------
5  ; Input: 
6  ; Output: 
7  ;Antastachse Y?
8  FN 9: IF +Q109 EQU +1 GOTO LBL 10
9  ;Antastachse Z?
10 FN 9: IF +Q109 EQU +2 GOTO LBL 20
11 ;----------------------------------
12 ;Antastachse X:
13 FN 17: SYSWRITE ID 500 NRQ714 IDX2 =+Q13
14 FN 17: SYSWRITE ID 500 NRQ714 IDX3 =+Q14
15 FN 9: IF +1 EQU +1 GOTO LBL 50
16 ;----------------------------------
17 ;Antastachse Y:
18 LBL 10
19 FN 17: SYSWRITE ID 500 NRQ714 IDX3 =+Q13
20 FN 17: SYSWRITE ID 500 NRQ714 IDX1 =+Q14
21 FN 9: IF +1 EQU +1 GOTO LBL 50
22 ;----------------------------------
23 ;Antastachse Z:
24 LBL 20
25 FN 17: SYSWRITE ID 500 NRQ714 IDX1 =+Q13
26 FN 17: SYSWRITE ID 500 NRQ714 IDX2 =+Q14
27 LBL 50
28 END PGM NP_CALC MM 
