1 BEGIN PGM Q-SCHLEIFE MM 2 BLK FORM 0.1 Z X+0 Y-28 Z-30 3 BLK FORM 0.2 X+730 Y+0 Z+0 4 TOOL CALL 1 Z S( VC = 220 ) ~ F1500 DL+0.3 DR+0.3 5 * - HPC 20 SR 6 M17 7 Q1 = 19 ; Gesamttiefe 8 Q2 = 5 ; Zustellungen 9 Q3 = Q1 / Q2 ; Berechnung 10 Q4 = Q3 ; Zustellung 11 Q6 = 0 ; Merker 12 Q7 = Q1 / Q3 + 1 ; Berechnung Schlichtspan 13 CYCL DEF 301 ~ Q1998=+1 14 L X-20 Y+0 FMAX M3 15 L Z+5 FMAX 16 LBL "KONTUR" 17 Q5 = TAN 20 * 10 ; 20 Grad 18 L Z-Q4 F1000 19 L X+0 Y-Q5 RL F AUTO 20 L X+10 Y+0 RL F AUTO 21 L X+720 Y+0 RL F AUTO 22 L X+730 Y-Q5 RL F AUTO 23 L Z+50 R0 FMAX 24 Q4 = Q4 + Q3 ; Neue Zustellug 25 Q6 = Q6 + 1 ; Addiere +1 zum Merker 26 LBL 0 27 FN 11: IF +Q4 GT +Q1 GOTO LBL "SCHLICHTEN" ; Abfrage Tiefe 28 L X-20 Y+0 FMAX 29 L Z+5 FMAX 30 FN 9: IF +0 EQU +0 GOTO LBL "KONTUR" ; Sprungmarke 31 LBL "SCHLICHTEN" 32 Q4 = Q1 ; Zustellung gleich Gesamttiefe 33 FN 9: IF +Q6 EQU +Q7 GOTO LBL "ENDE" ; Abfrage Merker 34 FN 11: IF +Q6 GT +Q7 GOTO LBL "ENDE" ; Abfrage Merker 35 TOOL CALL 2 Z S( VC = 220 ) ~ F1000 36 * - HPC 20 SL 37 M7 M8 38 CYCL DEF 301 ~ Q1998=+1 39 L X-20 Y+0 FMAX M3 40 L Z+5 FMAX 41 FN 9: IF +0 EQU +0 GOTO LBL "KONTUR" ; Sprungmarke 42 LBL "ENDE" 43 TOOL CALL 32 Z S100 44 CYCL DEF 301 ~ Q1998=+1 45 L X+500 Y+70 FMAX M30 46 END PGM Q-SCHLEIFE MM