BEGIN PGM SL2_Z MM 
FN 22: FUNCT Q0 FNR1 PIN0 PIN1
FN 22: FUNCT Q0 FNR121 PIN0 PIN0 PIN29 ;SAVE Q20-Q29
FN 9: IF +Q0 EQU +0 GOTO LBL 1
FN 14: ERROR= 1011
FN 9: IF +0 EQU +0 GOTO LBL 254
LBL 1 
FN 17: SYSWRITE ID30 NR2 =+Q1 ; Q1 FRAESTIEFE
FN 17: SYSWRITE ID31 NR17 =+Q3 ; Q3 SCHLICHTAUFMASS SEITE
FN 17: SYSWRITE ID30 NR1 =+Q6 ; Q6 SICHERHEITSABSTAND
FN 17: SYSWRITE ID31 NR23 =+Q5 ; Q5 WERKSTUECKOBERFLAECHE
FN 17: SYSWRITE ID31 NR22 =+Q7 ; Q7 RUECKZUGSHOEHE
FN 17: SYSWRITE ID30 NR3 =+Q10 ; Q10 ZUSTELLTIEFE
FN 17: SYSWRITE ID30 NR4 =+Q11 ; Q11 VORSCHUB TIEFENZUSTELLUNG
FN 17: SYSWRITE ID30 NR10 =+Q12	; Q12 VORSCHUB RAEUMEN
FN 17: SYSWRITE ID31 NR28 =+Q16	; Q16 ZYLINDERRADIUS
FN 17: SYSWRITE ID31 NR30 =+Q17	; Q17 BEMASSUNGSART
FN 18: SYSREAD Q0 = ID31 NR31 IDX0
FN 22: FUNCT Q0 FNR110 PINQ0 PIN0 PIN1
FN 9: IF +Q19 EQU +28 GOTO LBL 2
FN 22: FUNCT Q0 FNR111 PINQ0 PIN0 PINQ17 PEX+Q16 PEX+Q1 PEX+Q3 ; Zylinder - konturzug 
FN 9: IF +0 EQU +0 GOTO LBL 253
LBL 2  ; ZYLINDERNUT
FN 0: Q24 =+0 ;AKT. ZUSTELLTIEFE
FN 0: Q25 =+Q5 ;ZYKLUSBEGINNHOEHE
FN 0: Q26 =+0 ;AKTUELLE ZUSTELLUNG
FN 17: SYSWRITE ID31 NR29 =+Q20	; NUTBREITE
LBL 3
CALL LBL 4
FN 2: Q25 =+Q5 - +Q24 ;AKT.BEARBEITUNGSHOEHE
FN 10: IF +Q24 NE +Q1 GOTO LBL 3
FN 22: FUNCT Q0 FNR111 PINQ0 PIN1 PINQ17 PEX+Q16 PEX+Q24 PEX+Q3
FN 1: Q25 =+Q5 + +Q24 ;AKT.BEARBEITUNGSHOEHE
FN 10: IF +Q24 NE +Q1 GOTO LBL 3
FN 9: IF +Q0 EQU +0 GOTO LBL 253
LBL 4
FN 2: Q24 =+Q24 - +Q10 ;ZUSTELLUNG
FN 11: IF +Q24 GT +Q1 GOTO LBL 5
FN 0: Q24 =+Q1 ;LETZE ZUSTELLUNG
LBL 5
FN 17: SYSWRITE ID30 NR2 =+Q24 ;AKT.FRAESZUSTELLUNG
LBL 0
LBL 253
FN 22: FUNCT Q0 FNR121 PIN1 PIN0 PIN29 ;RESTORE Q20-Q29
FN 22: FUNCT Q0 FNR2
LBL 254
END PGM SL2_Z MM 
