0  BEGIN PGM SOFTKEY MM
1  ;--------------------------------------------------------
1  ; ALLGEMEINES SOFTKEY-UNTERPROGRAMM FR DAS WEITERSCHALTEN
2  ; der aktiven Achssoftkeys
1  ;--------------------------------------------------------
1  ; Input: Q109 Antastachse
1  ; Output: Q750 bis Q755 Softkeyzustand X+,X-,Y+,Y-,Z+,Z-
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 +Q752 EQU +1 GOTO LBL 1
1  FN 9: IF +Q753 EQU +1 GOTO LBL 2  
1  FN 9: IF +Q754 EQU +1 GOTO LBL 3
1  FN 0: Q755 = 0
1  FN 0: Q752 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50
1  LBL 1
1  FN 0: Q752 = 0
1  FN 0: Q753 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  LBL 2
1  FN 0: Q753 = 0
1  FN 0: Q754 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  LBL 3
1  FN 0: Q754 = 0
1  FN 0: Q755 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  ;----------------------------------
1  ;Antastachse Y:
1  LBL 10
1  FN 9: IF +Q750 EQU +1 GOTO LBL 4
1  FN 9: IF +Q751 EQU +1 GOTO LBL 5  
1  FN 9: IF +Q754 EQU +1 GOTO LBL 6 
1  FN 0: Q755 = 0
1  FN 0: Q750 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50
1  LBL 4
1  FN 0: Q750 = 0
1  FN 0: Q751 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  LBL 5
1  FN 0: Q751 = 0
1  FN 0: Q754 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  LBL 6
1  FN 0: Q754 = 0
1  FN 0: Q755 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  ;----------------------------------
1  ;Antastachse Z:
1  LBL 20
1  FN 9: IF +Q750 EQU +1 GOTO LBL 7
1  FN 9: IF +Q751 EQU +1 GOTO LBL 8  
1  FN 9: IF +Q752 EQU +1 GOTO LBL 9 
1  FN 0: Q753 = 0
1  FN 0: Q750 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50
1  LBL 7
1  FN 0: Q750 = 0
1  FN 0: Q751 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  LBL 8
1  FN 0: Q751 = 0
1  FN 0: Q752 = 1
1  FN 9: IF +1 EQU +1 GOTO LBL 50  
1  LBL 9
1  FN 0: Q752 = 0
1  FN 0: Q753 = 1
1 LBL 50
5  END PGM SOFTKEY MM
