0 BEGIN PGM OUTPUT INCH 1 BLK FORM 0.1 Z X+0. Y+0. Z+0. 2 BLK FORM 0.2 X+0. Y+0. Z+0. 3 ;Finish Mill1 4 CYCL DEF 247 DATUM SETTING ~ 5 Q339=54 ;DATUM NUMBER 6 CALL LBL 19 7 CALL LBL 91 8 ;1" 4 FLUTE HSS EM 9 TOOL CALL01 S2500 Z DR-.5 10 TOOL DEF 09 11 L B0 C0 FMAX M91 12 CALL LBL 91 13 FN 0: Q1=10. ; DIPPING PARAMETERS 14 FN 0: Q3=30. ; CUTTING FEED PARAMETER 15 * -******************Profile Operation 16 L X+0 Y+2.5 R0 F MAX M13 17 L Z+1.F MAX 18 L Z+.1 F MAX 19 L Z-1. FQ1 20 L X+0 Y+4. FQ3 21 CC X+1. Y+4. 22 C X+1. Y+5. DR- 23 L X+4. Y+5. 24 CC X+4. Y+4. 25 C X+5. Y+4. DR- 26 L X+5. Y+1. 27 CC X+4. Y+1. 28 C X+4. Y+0 DR- 29 L X+1. Y+0 30 CC X+1. Y+1. 31 C X+0 Y+1. DR- 32 L X+0 Y+2.5 33 L Z+.1 R0 F MAX 34 L Z+1. R0 F MAX M09 35 ;Drill1 36 CYCL DEF 247 DATUM SETTING ~ 37 Q339=54 ;DATUM NUMBER 38 CALL LBL 19 39 CALL LBL 91 40 ;E, 1/4 COBALT JOBBER DRILL 41 TOOL CALL09 S1500 Z DR-.125 42 L B0 C0 FMAX M91 43 CALL LBL 91 44 FN 0: Q1=5. ; DIPPING PARAMETERS 45 FN 0: Q3=500. ; CUTTING FEED PARAMETER 46 L M08 47 * -******************Drill Operation 48 L X+1. Y+1. R0 F MAX M13 49 L Z+1.F MAX 50 L X+1. Y+1. R0 F MAX M13 51 CYCL DEF 200 DRILL ~ Q200=.1 ;SICHERHEITS-ABST. ~ Q201=-1. ;TIEFE ~ Q206=5. ;VORSCHUB TIEFENZ. ~ Q202=1. ;ZUSTELL-TIEFE ~ Q210=0 ;VERWEILZEIT OBEN ~ Q203=+0. ;KOOR. OBERFLAECHE ~ Q204=1. ;2. SICHERHEITS-ABST. ~ Q211=0 ;VERWEILZEIT UNTEN 52 L X+1. Y+1. R0 F MAX M13 53 L Z+.1 R0 F MAX M99 54 L X+1. Y+4. R0 F MAX 55 L Z+.1 R0 F MAX M99 56 L X+4. Y+1. R0 F MAX 57 L Z+.1 R0 F MAX M99 58 L X+4. Y+4. R0 F MAX 59 L Z+.1 R0 F MAX M99 60 L Z+1. R0 F MAX 61 M09 M05 62 ;OPERATION END 63 L Z0 FMAX M91 64 L X0 FMAX M91 65 ;RESET PLANE AND ZEROPOINT 66 CALL LBL 19 67 ;GO TO SAFE POSITION 68 CALL LBL 91 69 STOP M30 ; 70 LBL 19 71 ;RESET PLANE AND ZEROPOINT 72 PLANE RESET STAY 73 CYCL DEF 7.0 NULLPUNKT 74 CYCL DEF 7.1 X+0. 75 CYCL DEF 7.2 Y+0. 76 CYCL DEF 7.3 Z+0. 77 LBL 0 78 LBL 91 79 ;GO TO SAFE POSITION 80 L Z+0. R0 FMAX M91 81 L X+0 Y+0 R0 FMAX M91 82 LBL 0 83 END PGM 3 INCH