0  BEGIN PGM SL2_28 MM 
1  FN 22: FUNCT Q0 FNR1 PIN0 PIN1 ; Konturbearbeitung initialisieren
2  FN 22: FUNCT Q0 FNR121 PIN0 PIN0 PIN29 ;SAVE Q0-Q29
3  FN 9: IF +Q0 EQU +0 GOTO LBL 1
4  FN 14: ERROR= 1011
5  FN 9: IF +0 EQU +0 GOTO LBL 254
6  LBL 1
7  FN 17: SYSWRITE ID30 NR2 =+Q1 ; Q1 FRAESTIEFE
8  FN 17: SYSWRITE ID31 NR17 =+Q3 ; Q3 SCHLICHTAUFMASS SEITE
9  FN 17: SYSWRITE ID30 NR1 =+Q6 ; Q6 SICHERHEITSABSTAND
10 FN 17: SYSWRITE ID30 NR3 =+Q10 ; Q10 ZUSTELLTIEFE
11 FN 17: SYSWRITE ID30 NR4 =+Q11 ; Q11 VORSCHUB TIEFENZUSTELLUNG
12 FN 17: SYSWRITE ID30 NR10 =+Q12 ; Q12 VORSCHUB RAEUMEN
13 FN 17: SYSWRITE ID31 NR28 =+Q16 ; Q16 ZYLINDERRADIUS
14 FN 17: SYSWRITE ID31 NR29 =+Q20 ; NUTBREITE
15 FN 17: SYSWRITE ID31 NR30 =+Q17 ; Q17 BEMASSUNGSART
16 FN 18: SYSREAD Q0 = ID31 NR31 IDX0 ; hole 1. Konturlabel
17 FN 22: FUNCT Q0 FNR110 PINQ0 PINQ17 PIN1 ;Kontur Einlesen Zylinderkoord.
18 FN 18: SYSREAD Q2 = ID31 NR34
19 FN 17: SYSWRITE ID31 NR34 =+Q2
20 FN 17: SYSWRITE ID31 NR33 =+1 ; Modus CYC28 Standardverfahren
21 FN 17: SYSWRITE ID31 NR35 =+0 ; Position vor Fn-Funktion setzen
22 FN 9: IF +Q21 EQU +0 GOTO LBL 254 ; Nachbearbeitung programmiert?
23 Q22 = Q16 - ABS ( Q1 ) ;// Radius - Tiefe
24 FN 17: SYSWRITE ID31 NR36 =+Q22 ; auf Fraestiefe Beenden
25 FN 22: FUNCT Q0 FNR111 PIN0 PIN1 PIN0 PEX+Q16 PEX+Q1 PEX+Q3 ; akt.Kontur bearbeiten
26 FN 17: SYSWRITE ID31 NR33 =+5 ; neuer Modus CYC28 nachbearbeiten
27 FN 17: SYSWRITE ID31 NR46 =+Q1 ; Q1 FRAESTIEFE
28 FN 17: SYSWRITE ID31 NR47 =+Q21 ; Toleranz fr Nachbearbeitung
29 FN 17: SYSWRITE ID31 NR35 =+1 ; keine Position vor Fn-Funktion setzen
30 LBL 254
31 Q22 = Q16 + ABS ( Q6 ) ;// Radius + Sicherheitsabstand
32 FN 17: SYSWRITE ID31 NR36 =+Q22 ; SICHERE HHE DAZWISCHEN
33 FN 22: FUNCT Q0 FNR111 PIN0 PIN1 PIN0 PEX+Q16 PEX+Q1 PEX+Q3 ;akt. Kontur bearbeiten
34 FN 22: FUNCT Q0 FNR121 PIN1 PIN0 PIN29 ;RESTORE Q0-Q29
35 FN 22: FUNCT Q0 FNR2
36 END PGM SL2_28 MM 
