0  BEGIN PGM REF_CALC MM
1  ;--------------------------------------------------------
1  ; Berechnungsprogramm fr Werte die in die Nullpunkt-
2  ; Tabelle geschrieben werden
1  ;--------------------------------------------------------
1  ; Input: 
1  ; Output: 
1  ;Antastachse Y?
1  FN 9: IF +Q109 EQU +1 GOTO LBL 10
1  ;Antastachse Z?
1  FN 9: IF +Q109 EQU +2 GOTO LBL 20
1  ;----------------------------------
1  ;Antastachse X:
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  ;----------------------------------
1  ;Antastachse Y:
1  LBL 10
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  ;----------------------------------
1  ;Antastachse Z:
1  LBL 20
1 LBL 50
5  END PGM REF_CALC MM
