0 BEGIN PGM SR (V)SL Abzeilen mehrfach MM 1 BLK FORM 0.1 Z X+0 Y-250 Z-45 2 BLK FORM 0.2 X+500 Y+0 Z+5 3 ; 4 ; Abzeilen mit mehrfacher Zustellung 5 ; und Schlichten. 6 ; Vorschlichten ist optional 7 ; 8 Q1004 = 0.9 ;Starthoehe Z 9 Q1005 = 0.4 ; Zustellung 10 Q1006 = 0.2 ; Schlichtaufmass 11 Q1010 = 1 ; Vorschlichten 12 ; 0 --> Nein / 1 --> Ja 13 ; 14 TOOL CALL 1 Z S( VC = 225 ) ~ F1250 15 * - HPC 20 SR 16 M17 17 ; 18 FN 9: IF +Q1004 EQU +Q1006 GOTO LBL "SET_Q" 19 FN 12: IF +Q1004 LT +Q1006 GOTO LBL "SET_Q" 20 ; 21 LBL "CONTINUE" 22 CYCL DEF 301 ~ Q1998=+1 23 L X-20 Y-100 FMAX M3 24 L Z+5 FMAX 25 L Z+Q1004 F1000 26 L X+520 F AUTO 27 L Y-150 F AUTO 28 L X-20 F AUTO 29 L Z+50 FMAX 30 ; 31 Q1004 = Q1004 - Q1005 32 FN 9: IF +Q1009 EQU +1 GOTO LBL "ENDE" 33 FN 9: IF +Q1008 EQU +1 GOTO LBL "SCHLICHTEN" 34 FN 9: IF +Q1007 EQU +1 GOTO LBL "VORSCHLICHTEN" 35 FN 11: IF +Q1004 GT +Q1006 GOTO LBL "CONTINUE" 36 ; 37 LBL "SET_Q" 38 Q1004 = Q1006 39 Q1007 = 1 40 FN 9: IF +0 EQU +0 GOTO LBL "CONTINUE" 41 ; 42 LBL "VORSCHLICHTEN" 43 FN 9: IF +Q1010 EQU +0 GOTO LBL "SCHLICHTEN" 44 TOOL CALL 2 Z S( VC = 225 ) ~ F900 DL+0.05 45 * - HPC 20 SL 46 M7 M8 47 Q1004 = 0 48 Q1008 = 1 49 FN 9: IF +0 EQU +0 GOTO LBL "CONTINUE" 50 ; 51 LBL "SCHLICHTEN" 52 TOOL CALL 2 Z S( VC = 225 ) ~ F900 53 * - HPC 20 SL 54 M7 M8 55 Q1004 = 0 56 Q1009 = 1 57 FN 9: IF +0 EQU +0 GOTO LBL "CONTINUE" 58 LBL "ENDE" 59 ; 60 TOOL CALL 32 Z 61 CYCL DEF 301 ~ Q1998=+1 62 L Y+70 FMAX M30 63 END PGM SR (V)SL Abzeilen mehrfach MM