BEGIN PGM 0001 INCH
 BLK FORM 0.1 X0. Y0. Z0.
 BLK FORM 0.2 X0. Y0. Z0.
 ;==========Finish Mill1===========
 L Z-.0394 FMAX M91
 L Y.0394 FMAX M91
 ;==========1/4 2 FLUTE HSS EM==========
 TOOL CALL 43 Z S 2500 DL+0 DR-.2500
 TOOL DEF 49
 M129
 CYCL DEF 247 DATUM SETTING~
 Q339=+54     ;DATUM NUMBER
 L X+0. Y+0. R0 FMAX
 L Z3.0130 R0 FMAX
 M01
 M03
 M35
 ;==========******************Profile Operation==========
 PLANE SPATIAL  SPA+42.0311  SPB+0 SPC+56.3099  TURN F1500
 M10
 M22
 L X+0. R0 FMAX
 L Y+0. R0 FMAX
 L X-2.3714 Y+1.0315 R0 FMAX
 L Z+2.1130 R0 FMAX
 L Z-.2500 F100
 L X-4.8400 Y+2.4029 F300
 L X-4.8162 Y+2.6581
 L X+.1581 Y+4.3162
 L X+.2500 Y+4.2500
 L Y-.2500
 L X+.0971 Y-.3400
 L X-2.3714 Y+1.0315
 L Z+2.1130 R0 FMAX
 L Z+3.0130 R0 FMAX
 M09
 M05
 ;==========Drill1===========
 L Z-.0394 FMAX M91
 L Y.0394 FMAX M91
 ;==========1/2 SCREW MACH DRILL==========
 TOOL CALL 49 Z S 802 DL+0 DR-.2500
 TOOL DEF 1
 CYCL DEF 247 DATUM SETTING~
 Q339=+54     ;DATUM NUMBER
 L X+0. Y+0. R0 FMAX
 L Z3.0130 R0 FMAX
 M01
 M03
 M35
 ;==========******************Drill Operation==========
 PLANE SPATIAL  SPA+42.0311  SPB+0 SPC+56.3099  TURN F1500
 M10
 M22
 L X+0. R0 FMAX
 L Y+0. R0 FMAX
 L X-1.4847 Y+2.2184 R0 FMAX
 CYCL DEF 200 DRILLING ~
    Q200=+.1000   ;SET-UP CLEARANCE ~
    Q201=-.5000   ;DEPTH ~
    Q206=37       ;FEED RATE FOR PLNGNG ~
    Q202=+.1000   ;PLUNGING DEPTH ~
    Q210=+0       ;DWELL TIME AT TOP ~
    Q203=+0.      ;SURFACE|COORDINATE ~
    Q204=+3.0130  ;2ND SET-UP CLEARANCE ~
    Q211=+0       ;DWELL TIME AT DEPTH ~
 CYCL CALL
 L Z+3.0130 R0 FMAX
 M09
 M05
 L Z-.0394 FMAX M91
 L Y.0394 FMAX M91
 TOOL CALL 0
 M30
 END PGM 0001 INCH