0 BEGIN PGM JOHNFORD_TNC530 INCH
1 BLK FORM 0.1 X+0. Y+0. Z+0.
2 BLK FORM 0.2 X+0. Y+0. Z+0.
3 ;1" 4 FLUTE HSS EM
4 TOOL CALL 23 Z S2500
5 M3 M8
6 ;******************Profile Operation
7 L X+1.5 Y+.5 F MAX
8 L Z+0.1 F MAX
9 L Z-0.5 F100
10 L X+3.5 Y+.5 RL F300
11 L Y-5.5
12 L X-0.5
13 L Y+.5
14 L X+1.5
15 L Z+0.1 R0 F MAX
16 L Z+1. F MAX M9
17 ;1/2 COBALT JOBBER DRILL
18 TOOL CALL 43 Z S1500
19 M3 M8
20 ;******************Drill Operation
21 L A+0  F MAX
22 L X+1.5 Y-4.5 F MAX
23 CYCL DEF 200 DRILLING~
    Q200=0.1 ;SET-UP~
    Q201=-1. ;DEPTH~
    Q206=50 ;FEED RATE~
    Q202=1. ;PECKING DEPTH~
    Q210=0. ;DWELL AT TOP~
    Q203=+0 ;SURFACE COORDINATE~
    Q204=1. ;2ND SET-UP CLEARANCE
24 L X+1.5 Y-4.5 F MAX
25 L Z+0.1 F MAX M99
26 L X+1.5 Y-.5 R0 F MAX M99
27 L Z+1. R0 F MAX M9
28 ;1" 4 FLUTE HSS EM
29 TOOL CALL 23 Z S2500
30 M3 M8
31 ;******************Profile Operation
32 L A+90.  F MAX
33 L X+1.5 Y+.5 F MAX
34 L Z+0.1 F MAX
35 L Z-0.5 F100
36 L X+3.5 Y+.5 RL F300
37 L Y-5.5
38 L X-0.5
39 L Y+.5
40 L X+1.5
41 L Z+0.1 R0 F MAX
42 L Z+1. F MAX M9
43 ;1/2 COBALT JOBBER DRILL
44 TOOL CALL 43 Z S1500
45 M3 M8
46 ;******************Drill Operation
47 L A+90.  F MAX
48 L X+1.5 Y-4. F MAX
49 CYCL DEF 200 DRILLING~
    Q200=0.1 ;SET-UP~
    Q201=-1. ;DEPTH~
    Q206=50 ;FEED RATE~
    Q202=1. ;PECKING DEPTH~
    Q210=0. ;DWELL AT TOP~
    Q203=+0 ;SURFACE COORDINATE~
    Q204=1. ;2ND SET-UP CLEARANCE
50 L X+1.5 Y-4. F MAX
51 L Z+0.1 F MAX M99
52 L X+1.5 Y-1. R0 F MAX M99
53 L Z+1. R0 F MAX M9
54 TOOL CALL 23
55 END PGM JOHNFORD_TNC530 INCH