BEGIN PGM WRITE_BROT MM 
; Schreiben in Grunddrehungsmenue
;FN 17: SYSWRITE ID 210 NR1 =+Q50
; Grunddrehung schreiben in Preset-Tabelle
;=== FN 17: SYSWRITE ID 504 NRQ305 =+Q50
;Spindelachse Y?
FN 9: IF +Q109 EQU +1 GOTO LBL 91
;Antastachse Z?
FN 9: IF +Q109 EQU +2 GOTO LBL 92
Q23 = 4 ;### Achs-ID A=4, B=5, C=6
FN 9: IF +0 EQU +0 GOTO LBL 93
LBL 91
Q23 = 5 ;### Achs-ID A=4, B=5, C=6
FN 9: IF +0 EQU +0 GOTO LBL 93
LBL 92
Q23 = 6 ;### Achs-ID A=4, B=5, C=6
LBL 93
Q21 = Q305 ;### Preset-Nummer
Q22 = 1 ;### 0=Achs-Offset, 1=Basistrafo
Q25 = 0 ;### Preset nach Eintrag aktivieren, 0= Vorheriger Preset
Q24 = Q50
FN 11: IF +Q305 GT +0 GOTO LBL 252
;MAN Grunddrehung => Zeile 0 
Q25 = 1 ;### Preset nach Eintrag aktivieren, 0= Vorheriger Preset
LBL 252
CYCL DEF 952
LBL 253
END PGM WRITE_BROT MM 
