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  ;
4  CYCL DEF 247 DATUM SETTING ~
5  Q339=1   ;DATUM NUMBER
6  ;
7  CALL LBL 19
8  CALL LBL 91
9  * -1/4 2 FLUTE HSS EM
10  M32
11  TOOL CALL 43 Z S2500
12  TOOL DEF 49
13  L B0 C0 FMAX M91
14  CALL LBL 91
15  FN 0: Q1=10. ; DIPPING PARAMETERS
16  FN 0: Q3=30. ; CUTTING FEED PARAMETER
17  * -******************Profile Operation
18  ; ----- PAH -----
19  ;RESET PLANE AND ZEROPOINT
20  CALL LBL 19
21  ;GO TO SAFE POSITION
22  CALL LBL 91
23  ; NEW ZEROPOINT / PLANE
24  ; WCS --  YAN3 ---
25  ; ANGLES:  B42.031 C56.31 ---
26  CYCL DEF 7.0 NULLPUNKT
27  CYCL DEF 7.1 X+2.777
28  CYCL DEF 7.2 Y+3.047
29  CYCL DEF 7.3 Z+1.465
30  PLANE SPATIAL SPA+0  SPB+42.031 SPC+56.31 TURN FMAX SEQ- TABLE ROT
31  L Z+3.013F MAX 
32  L X-2.3714 Y+1.0315 R0 F MAX M13
33  L Z+2.113 F MAX 
34  L Z-.25 FQ0
35  L X-4.84 Y+2.4029 FQ0
36  L X-4.8162 Y+2.6581 FQ0
37  L X+.1581 Y+4.3162 FQ0
38  L X+.25 Y+4.25 FQ0
39  L X+.25 Y-.25 FQ0
40  L X+.0971 Y-.34 FQ0
41  L X-2.3714 Y+1.0315 FQ0
42  L Z+2.113 R0 F MAX
43  L Z+3.013 R0 F MAX M09
44  ;
45  CYCL DEF 247 DATUM SETTING ~
46  Q339=1   ;DATUM NUMBER
47  ;
48  CALL LBL 19
49  CALL LBL 91
50  * -1/2 SCREW MACH DRILL
51  TOOL CALL 49 Z S802
52  TOOL DEF 43
53  L B0 C0 FMAX M91
54  CALL LBL 91
55  FN 0: Q1=3.6898 ; DIPPING PARAMETERS
56  FN 0: Q3=3.6898 ; CUTTING FEED PARAMETER
57  L M08
58  ; ----- PAH -----
59  ;RESET PLANE AND ZEROPOINT
60  CALL LBL 19
61  ;GO TO SAFE POSITION
62  CALL LBL 91
63  ; NEW ZEROPOINT / PLANE
64  ; WCS --  YAN3 ---
65  ; ANGLES:  B42.031 C56.31 ---
66  CYCL DEF 7.0 NULLPUNKT
67  CYCL DEF 7.1 X+2.777
68  CYCL DEF 7.2 Y+3.047
69  CYCL DEF 7.3 Z+1.465
70  PLANE SPATIAL SPA+0  SPB+42.031 SPC+56.31 TURN FMAX SEQ- TABLE ROT
71  L Z+3.013F MAX 
72  * -******************Drill Operation
73  CYCL DEF 19.0 BEARBEITUNGSEBENE
74  CYCL DEF 19.1
75  L M126
76  L X-1.4847 Y+2.2184 R0 FMAX M13
77  L Z-.5 R0 F MAX
78  L M128
79  L X-1.4847 Y+2.2184 Z-.5 B42.031 C56.31 R0 FMAX M13
80  L X-1.4847 Y+2.2184 R0 F MAX M13
81  CYCL DEF 200 BOHREN ~
      Q200=.1 ;SET-UP CLEARANCE ~
      Q201=-.5 ;DEPTH ~
      Q206=3.6898 ;FEED RATE FOR PLUNGING ~
      Q202=.1 ;PLUNGING DEPTH ~
      Q210=0 ;DWELL TIME AT TOP ~
      Q203=+0. ;SURFACE COORDINATE ~
      Q204=3.013 ;2ND SET-UP CLEARANCE ~
      Q211=0 ;DWELL TIME AT DEPTH 
82  L X-1.4847 Y+2.2184 R0 F MAX M13
83  L Z+.1 R0 F MAX M99
84  L Z+3.013 R0 F MAX
85  M09 M05
86  ;RESET PLANE AND ZEROPOINT
87  CALL LBL 19
88  ;GO TO SAFE POSITION
89  CALL LBL 91
90  M01
91  L B+Q121 C+Q122 R0 FMAX
92  M127
93  STOP  M30 ;*************************
94  LBL 19
95  ;RESET PLANE AND ZEROPOINT
96  PLANE RESET STAY
97  CYCL DEF 7.0 NULLPUNKT
98  CYCL DEF 7.1 X+0.
99  CYCL DEF 7.2 Y+0.
100  CYCL DEF 7.3 Z+0.
101  LBL 0
102  LBL 91
103  ;GO TO SAFE POSITION
104  L Z-150. R0 FMAX M91
105  L X-1500 Y-1.8 R0 FMAX M91
106  LBL 0
107  END PGM 3  INCH