Example program at end of this file.

NCG Editor for Windows 95/NT version 1.8b [5/15/98]
    created by Gary Thompson 2/21/98

History:
   version 1.8b 5/15/98
        Added uninstall.

   version 1.08a 5/11/98
        Fixed search list not responding when first  item in list was clicked/dblclicked. 

   version 1.08 5/04/98
        Minor bug fixes. 

    version 1.7 4/28/98
        Associated files rewritten to a treeview. 

    version 1.6 4/17/98
        Added help file.
        Associated files list now includes files referanced in from
        .src file, such as model files(.ddd) and use files(.use).

    version 1.5 4/06/98
        Added file searching.
        moved NCG Explorer,Search,Associated files and File Search to 
        one central location.
        Fixed several other bugs.

    version 1.4 4/01/98
        Increased recent files list to 20.  
   
    version 1.3 3/26/98
        Rebuilt NCG Explorer again no sorting but it is faster.
             Shell context right click for folders and files added.
             Send To pop-up is not working yet.

    version 1.1 3/18/98
         Added print to Found Items right click to print out the items.
         Removed the multiline menu item that was causing errors.(temporary)  

   version 1.0  3/8/98
         Release date.
*************************************************************************************
*************************************************************************************

$APPL SRC 00 NCG 19971008075619 0 NCG 19971008075619 0 0 57312
MACHIN,GLB
IDENT,GL5001  P/N:731312 & 731431  REV.B  MAIN FLANGE F/FT RISERS  MILL BODY SIDE OF FLG.

SETUP,LIMIT/OFF,SPNSET30,TBLSET0 ,LSPN30,LTBL0 ,SEQ5/5,FRCMP/OFF
LAYER,0,0,0,1,1,2,-99,2,3,1,16,8,7,6,5,4,9,10,17,115,11,12,13,14,15,15

LAYER,0,0,0,1,1,2,-99,2,3,1,-14,-8,-7,-5,-4,-66,-10,-11,-12,-13,-77,6,12

LAYER,0,0,0,   1,1,   2,-99,2,   3,1,   4,5,6,7,8,5

INSRT,@CONVERT([) ASC(14) ISO(14) EIA(14)
INSRT,@CONVERT(]) ASC(12) ISO(12) EIA(12)
DRAW,FRAME,P(-18.000XA,-18.000YA,0ZA),P(18.000XA,18.000YA,0ZA)

V99,1     $ DRAW MILL TOOL SHAPES.              0=NO   1=YES

INSRT,[NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
INSRT, NNN
INSRT, NNN   GL5 - 001
INSRT, NNN   P/N: 731312, 731431
INSRT, NNN   MAIN FLANGE F/FT RISERS
INSRT, NNN   OPER: MILL BODY SIDE OF FLG.
INSRT, NNN   DATE: 03/28/96    PROG: SF
INSRT, NNN
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
INSRT, NNN
INSRT, NNN        ---  SETUP NOTES  ---
INSRT, NNN  Rest Buttons and Top and Bottom Clamps Go in Positions
INSRT, NNN  Marked with | on Angle Plate.
INSRT, NNN  MOUNT FIXTURE PACKAGE MF10029 ON ROTARY TABLE, WITH FACE
INSRT, NNN   OF ANGLE PLATE TOWARDS SPINDLE AT TB0.
INSRT, NNN  (WELD PREP END OF PART WILL BE TOWARDS SPINDLE AT TB0.)
INSRT, NNN  LOCATE I.D. OF PART ON 22.225" SPUD.
INSRT, NNN  LOCATE RAISED FACE OF PART AGAINST 2.000" THICKER SPACER BLOCKS.
INSRT, NNN  CLAMP TO ANGLE PLATE.
INSRT, NNN
INSRT, NNN  SET "X" AND "Y" ZERO AT THE CENTERLINE OF THE BORE.
INSRT, NNN  SET "W" AT ZERO WHEN FACE OF PART IS 1.000" FROM LONGEST TOOL
INSRT, NNN       (TOOL # 10114) WITH "Z" AT REFERENCE POSITION.
INSRT, NNN  SET "Z" ZERO AT FACE OF PART.
INSRT, NNN
INSRT, NNN
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]

BASE,XB,YB,ZB
V500,6.750-4.359       $ DEPTH OF COUNTERBORES

DRAW,PEN1
P100,XB,YB,ZB
C102,P100,DIA19.625
C105,P100,DIA39

C100,SLAYER99,P100,DIA30.5
C700,SLAYER99,P100,DIA31

P11,P100,YB(30.5/2)
C11,P11,DIA3.25
C21,P11,DIA3.622
C31,P11,DIA6
P41,P100,YB(36.5/2)

P12,P11,ROTXY-(60*1)
C12,P12,DIA3.25
C222,SLAYER99,P12,DIA4.323
C22,P12,DIA3.622
C32,P12,DIA6
P42,P41,ROTXY-(60*1)

P13,P11,ROTXY-(60*2)
C13,P13,DIA3.25
C23,P13,DIA3.622
C33,P13,DIA6

P14,P11,ROTXY-(60*3)
C14,P14,DIA3.25
C24,P14,DIA3.622
C34,P14,DIA6

P15,P11,ROTXY-(60*4)
C15,P15,DIA3.25
C25,P15,DIA3.622
C35,P15,DIA6

P16,P11,ROTXY-(60*5)
C16,P16,DIA3.25
C26,P16,DIA3.622
C36,P16,DIA6

P41,P100,YB(36.5/2)
P42,P41,ROTXY-(60*1)
P43,P41,ROTXY-(60*2)
P44,P41,ROTXY-(60*3)
P45,P41,ROTXY-(60*4)
P46,P41,ROTXY-(60*5)

P51,L(P11,CW),XB-(5/2),ZB-#500
P61,P51,X5
P52,P51,ROTXY-(60*1)
P62,P61,ROTXY-(60*1)
P53,P51,ROTXY-(60*2)
P63,P61,ROTXY-(60*2)
P54,P51,ROTXY-(60*3)
P64,P61,ROTXY-(60*3)
P55,P51,ROTXY-(60*4)
P65,P61,ROTXY-(60*4)
P56,P51,ROTXY-(60*5)
P66,P61,ROTXY-(60*5)

P71,P100,YB(31.0/2),ROTXY-30
C71,P71,DIA6

P72,P71,ROTXY-(60*1)
C72,P72,DIA6

P73,P71,ROTXY-(60*2)
C73,P73,DIA6

P74,P71,ROTXY-(60*3)
C74,P74,DIA6

P75,P71,ROTXY-(60*4)
C75,P75,DIA6

P76,P71,ROTXY-(60*5)
C76,P76,DIA6

S1,P42
;P41
;P46
;P45
;P44
;P43,NM

S2,P52
  ;P62
  ;P51
  ;P61
  ;P56
  ;P66
  ;P55
  ;P65
  ;P54
  ;P64
  ;P53
  ;P63,NM

S12,P52
;P62,NM

S13,P12
;P71
;P11
;P76
;P16
;P75
;P15
;P74
;P14
;P73
;P13
;P72,NM



$ L111,SLAYER99,P100,P11
$ L176,SLAYER99,P100,P76
  L121,SLAYER99,P100,P12
  L122,SLAYER99,P12,60CW
  L222,SLAYER99,P12,30CW
  L322,SLAYER99,P12,60CCW
  L422,SLAYER99,P12,30CCW
  L200,SLAYER99,P12, 0CW
  L400,SLAYER99,P12, 90CW
$ L175,SLAYER99,P100,P75
$ L131,SLAYER99,P100,P13
$ L174,SLAYER99,P100,P74
$ L114,SLAYER99,P100,P14
$ L173,SLAYER99,P100,P73
$ L115,SLAYER99,P100,P15
  L172,SLAYER99,P100,P72
$ L116,SLAYER99,P100,P16
$ L171,SLAYER99,P100,P71


$ L211,SLAYER99,C31,YS,   CW
$ L276,SLAYER99,C76,YS, 30CW
  L212,SLAYER99,C32,XL, 60CCW
$ L216,SLAYER99,C36,XS, 60CW
$ L275,SLAYER99,C75,XS, 90CW
$ L213,SLAYER99,C35,XS, 60CCW
$ L274,SLAYER99,C74,YL, 30CCW
$ L214,SLAYER99,C34,YL,   CW
$ L273,SLAYER99,C73,YL, 30CW
$ L215,SLAYER99,C33,XL, 60CW
  L272,SLAYER99,C72,XL, 90CCW
$ L271,SLAYER99,C71,YS,30CCW



$ GOTO993
$ GOTO994
$ GOTO995
$ GOTO998
$ GOTO997

CHKPT,TLAYER4
CHKPT,TLAYER5
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 1  OFFSET 1
INSRT, NNN  6.00" DIAMETER PLUNGE CUTTER
INSRT, NNN  REF STD. TOOL TF10094
INSRT, NNN
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/5, 1, 1, 250, .064, 6
DO101
INSRTS,M40
DRAW,PEN2
V50,172
V51,272



MV,L#50,OL#51/XS3
MV,ZB8,TBL
MV,ZB1,SPNDL
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL SHOULD NOW BE 1.00" FROM THE FLANGE EDGE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]


<10>
MV,L#50,OL#51/XS3,RPM#3
  ;ZB.2,CON
CUT,ZB,IPR#4                    $*1.5
  ;OL#51/XS1.770

MV,      ZB.812
  ;      OL#51/XS1.264
CUT,ZB0,IPR#4
 
MV,      ZB1.53
  ;      OL#51/XS.757
CUT,ZB0
 
MV,      ZB2.00
  ;      OL#51/XS.25
CUT,ZB0
 
MV,      ZB2.75
  ;      OL#51/XS
 
CUT,ZB.015,IPR#4                $*1.5
 
CUT,OL#51/XS.125,PL#50, Z.125,COF
MV,ZB 3, OSTOP
<11>


V60,121
V61,212

<12>
MV,L#60,OL#61/XS3,RPM#3

  ;ZB.2,CON

CUT,ZB0,IPR#4                  $*1.5
  ;OL#61/XS2.020

MV,      ZB.75
  ;      OL#61/XS1.579
CUT,ZB0,IPR#4

MV,      ZB1.10
  ;      OL#61/XS1.136
CUT,ZB0

MV,      ZB1.625
  ;      OL#61/XS.693
CUT,ZB0

MV,      ZB2.75
  ;      OL#61/XS.250
CUT,ZB0

MV,      ZB3.75
  ;      OL#61/XS
CUT,ZB.015,IPR#4*1.5

CUT,OL#61/YL.125,PL#60, Z.125,COF
MV,ZB 3, OSTOP
<13>


XFTM10/11,ROTXY,CW60
XFTM12/13,ROTXY,CW60
XFTM10/11,ROTXY,CW60*2
XFTM12/13,ROTXY,CW60*2
XFTM10/11,ROTXY,CW60*3
XFTM12/13,ROTXY,CW60*3
XFTM10/11,ROTXY,CW60*4
XFTM12/13,ROTXY,CW60*4
XFTM10/11,ROTXY,CW60*5
XFTM12/13,ROTXY,CW60*5

INSRTS,G0G90M12Z0H0

V80,15
DO111/112

<993>

CHKPT,TLAYER6
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 2  OFFSET 2
INSRT, NNN  3/4" MOHAWK CENTERDRILL
INSRT, NNN  CENTERDRILL THE HOLES THAT WILL BE REAMED 1/2"
INSRT, NNN
INSRT, NNN  CENTERDRILL ON BLOCK-DELETE THE LARGE HOLES THAT
INSRT, NNN  WILL BE DRILLED WITH THE HERTEL DRILL
INSRT, NNN
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
<2>V1/6, 2, 2, 625, .005, .75, 90
DO103
INSRTS,M41
DRAW,PEN7
MV,P42,NOZ,SPNDL
MV,ZB8,TBL
MV,ZB1,SPNDL
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL POINT SHOULD NOW BE 1.00" FROM THE
INSRT, MNN  FLANGE FACE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]

DRL,SET1,CHD.53,2.9RA, 2.9Z,CON

MV,BD/ON
  ;P12,NOZ
DRL,SET13,CHD.53,2.9RA, 2.9Z
MV,BD/OFF

INSRTS,G0G90M12Z0H0

V80,15
DO111/112


<994>
CHKPT,TLAYER7
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 3  OFFSET 3
INSRT, NNN  31/64" TWIST DRILL
INSRT, NNN  REF. 31/64" OIL-HOLE DRILL
INSRT, NNN  DRILL HOLES 3 1/2" DEEP
INSRT, NNN
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/6, 3, 3, 434, .005,  .484, 118
DO103
INSRTS,M41
DRAW,PEN5
MV,P42,NOZ
MV,ZB14,TBL
MV,ZB1,SPNDL
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL POINT SHOULD NOW BE 1.00" FROM THE
INSRT, MNN  FLANGE FACE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
 
DRL,P42 ,DP4.25,IPR.005,            1.0SDPTH, .5FDPTH,CON  ,CLEAR.1  $  ,BRKCP, CLEAR.1/.02
MV,ZB1.5,COF

  ;P41,NOZ
DRL,P41 ,DP4.25,IPR.005,            1.0SDPTH, .5FDPTH,CON  $ ,BRKCP
MV,ZB6.50,COF

  ;P46,NOZ
DRL,P46 ,DP4.25,IPR.005,            1.0SDPTH, .5FDPTH,CON  $ ,BRKCP
MV,ZB1.5,COF

  ;P45,NOZ
DRL,P45 ,DP4.25,IPR.005,            1.0SDPTH, .5FDPTH,CON  $ ,BRKCP
MV,ZB1.5,COF

  ;P44,NOZ
DRL,P44 ,DP4.25,IPR.005,            1.0SDPTH, .5FDPTH,CON  $ ,BRKCP
MV,ZB1.5,COF

  ;P43,NOZ
DRL,P43 ,DP4.25,IPR.005,            1.0SDPTH, .5FDPTH,CON  $ ,BRKCP
MV,ZB1.5,COF

INSRTS,G0G90M12Z0H0

V80,15
DO111/112

$GOTO99

CHKPT,TLAYER8
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 4  OFFSET 4
INSRT, NNN  1/2" REAMER
INSRT, NNN  REF. STD TOOL #TF10091
INSRT, NNN
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/5, 4, 4, 305, .015, .5
DO101
INSRTS,M41
DRAW,PEN4
MV,P42,NOZ
MV,ZB11,TBL
MV,ZB1,SPNDL
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL SHOULD NOW BE 1.00" FROM THE
INSRT, MNN  FLANGE FACE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
 
DRL,SET1,DP3.25,4.9RA,4.9Z,CON,CLEAR.1
INSRTS,G0G90M12Z0H0

V80,20
DO111/112


CHKPT,TLAYER9
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 5  OFFSET 5
INSRT, NNN  5 1/4" HERTEL DRILL
INSRT, NNN  REF. STD. TOOL #TF10110
INSRT, NNN  
INSRT, NNN  DRILL 6 HOLES 2.300" DEEP BY 5 1/4" DIAMETER
INSRT, NNN  DRILL 6 HOLES COMPLETELY THROUGH
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/5, 5, 5, 255, .0055, 5.25
DO101
INSRTS,M40
DRAW,PEN7
MV,P72,NOZ
MV,ZB12.5,TBL
MV,ZB1,SPNDL
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  EXTREME END OF HERTEL DRILL (PILOT DRILL)
INSRT, NNN  SHOULD BE 1.00" FROM THE FLANGE FACE
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]

V50,6.5             $ FLANGE THICKNESS
V51,.05             $ END OF PILOT DRILL TO INSERT OUTSIDE EDGE
V53,.001            $ "BREAK THROUGH FEEDRATE"
V54,72              $ POINT NUMBER
V55,.002            $ SECONDARY FEEDRATE

<14>
MV,P#54,NOZ
MV,ZB.2,TBL
CUT,IPR#4*2,-.15Z,RPM#3,CON,SPNDL
   ;IPR#55,ZB-.4
CUT,IPR#4,ZB-6.77
   ;IPR#53, ZB-7.030
MV,ZB.2,COF,spn
MV,ZB9,tbl,OSTOP
<15>


V60,2.360           $ DEPTH TO BORE TO
V61,.345            $ PILOT DRILL POINT TO INSERT EDGE
V64,12              $ POINT NUMBER
V65,2.730-2.645     $ AMOUNT OF DEPTH ADDED PER ROGER 

<28>
MV,P#64,NOZ
MV,ZB.2,TBL
CUT,IPR#4*2,-.15Z,RPM#3,CON,SPNDL
   ;IPR#55,ZB-.4
CUT,IPR#4,ZB-(#60+#61+#65)
MV,COF
MV,ZB9,tbl,OSTOP
<29>

XFTM14/15,ROTXY,CW60
XFTM28/29,ROTXY,CW60
XFTM14/15,ROTXY,CW60*2
XFTM28/29,ROTXY,CW60*2
XFTM14/15,ROTXY,CW60*3
XFTM28/29,ROTXY,CW60*3
XFTM14/15,ROTXY,CW60*4
XFTM28/29,ROTXY,CW60*4
XFTM14/15,ROTXY,CW60*5
XFTM28/29,ROTXY,CW60*5

INSRTS,G0G90M12Z0H0

V80,24
DO111/112

CHKPT,TLAYER10

INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 6  OFFSET 6
INSRT, NNN  3 1/4" AMEC DRILL
INSRT, NNN 
INSRT, NNN  DRILL REMAINDER OF THE 6 SHOULDERED HOLES
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/6, 6, 6, 164, .010, 3.25, 144
DO103
INSRTS,M40
DRAW,PEN4
MV,P12,NOZ
MV,ZB15.5,TBL

MV,ZB1,SPNDL
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  EXTREME END OF HERTEL DRILL (PILOT DRILL)
INSRT, NNN  SHOULD BE 1.00" FROM THE FLANGE FACE
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]

V50,6.5             $ FLANGE THICKNESS 
V51,.345            $ END OF PILOT DRILL TO INSERT OUTSIDE EDGE
V53,.001            $ "BREAK THROUGH FEEDRATE" 
V54,12              $ POINT NUMBER 
V55,7.00            $ BREAK THROUGH DEPTH

<16>MV,P#54,NOZ 
MV,ZB-(#500-.1),CON,TBL
CUT,IPR#4,ZB-(7.150  ),RPM#3,SPNDL 
MV,ZB10,COF,OSTOP
<17>

XFTM16/17,ROTXY,CW60 
XFTM16/17,ROTXY,CW60*2
XFTM16/17,ROTXY,CW60*3
XFTM16/17,ROTXY,CW60*4
XFTM16/17,ROTXY,CW60*5

INSRTS,G0G90M12Z0H0
V80,24
DO111/112


CHKPT,TLAYER17
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 7  OFFSET 7
INSRT, NNN  6.00" DAVIS TOOL
INSRT, NNN  REF. STD. TOOL #TF10092
INSRT, NNN
INSRT, NNN  SET OFFSET 7 TO THE INSERT EDGES
INSRT, NNN  BORE PART WAY ON THE HOLES THAT WILL BE TAPPED
INSRT, NNN  ALL THE WAY ON THE OTHER 6
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/5, 7, 7, 286, .021, 6
DO101
INSRTS,M40
DRAW,PEN7
MV,P72,NOZ
MV,ZB8,TBL
MV,ZB1,SPNDL
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  INSERT EDGES SHOULD BE 1.00" FROM THE FLANGE FACE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]

V54,72    $ POINT NUMBER

<24>
MV,P72 ,NOZ,RPM#3
MV,ZB1,TBL
MV,ZB.20  ,CON,SPNDL
CUT,ZB-6.8,IPR#4
MV,ZB1,SPNDL
MV,ZB13,TBL,COF,OSTOP
<25>

V54,12    $ POINT NUMBER

<26>
MV,P12 ,NOZ,RPM#3
MV,ZB1,TBL
MV,ZB.20  ,CON,SPNDL   
CUT,ZB-(#500-.20),IPR#4/1.3
MV,ZB1,SPNDL
MV,ZB13,TBL,COF,OSTOP
<27>


XFTM24/25,ROTXY,CW60
XFTM26/27,ROTXY,CW60
XFTM24/25,ROTXY,CW60*2
XFTM26/27,ROTXY,CW60*2
XFTM24/25,ROTXY,CW60*3
XFTM26/27,ROTXY,CW60*3
XFTM24/25,ROTXY,CW60*4
XFTM26/27,ROTXY,CW60*4
XFTM24/25,ROTXY,CW60*5
XFTM26/27,ROTXY,CW60*5


INSRTS,G0G90M12Z0H0
V80,24
DO111/112

$GOTO99

<998> 
CHKPT,TLAYER115
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 11  OFFSET 11
INSRT, NNN  3.00" DIAMETER SECO PLUNGE CUTTER
INSRT, NNN   (STD. TOOL # 10038)
INSRT, NNN
INSRT, NNN  ROUGH THE 15 DEGREE C'B0RES (12 PLACES/HOLE)
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/5, 11, 11, 573, .03, 3
DO101
INSRTS,M41
DRAW,PEN2
MV,P12,NOZ
MV,ZB8,TBL
  MV,ZB1,SPNDL

V60,0                  $ AMOUNT TO STAY OFF CIRCLE

INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL SHOULD NOW BE 1.00" FROM THE FINISHED FACE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
<30>
 MV,P12,NOZ,RPM#3
 MV,ZB1,TBL
  ;-(#500-.2)ZB,CON,SPNDL
MV, INCIR222/-#60,YL,L400
CUT,-#500ZB,IPR#4
   ;-1.309Z ,INCIR22,YL
$  ;P12,NOZ
MV,-(#500-.2)ZB
MV, INCIR222/-#60,YS,L400
CUT,-#500ZB
   ;-1.309Z ,INCIR22,YS
$  ;P12,NOZ
MV,-(#500-.2)ZB
  ;P12,NOZ
MV, INCIR222/-#60,XS,L200
CUT,-#500ZB
   ;-1.309Z ,INCIR22,XS
$  ;P12,NOZ
MV,-(#500-.2)ZB
  ;P12,NOZ
MV, INCIR222/-#60,XL,L200
 CUT,-#500ZB
   ;-1.309Z ,INCIR22,XL
$  ;P12,NOZ

DRAW,PEN4

 MV,-(#500-.2)ZB
  ;P12,NOZ
MV, INCIR222/-#60,YL,L222
CUT,-#500ZB
   ;-1.309Z, INCIR22,YL,L222
$  ;P12,NOZ

 MV,-(#500-.2)ZB
  ;P12,NOZ
MV, INCIR222/-#60,YL,L422
CUT,-#500ZB
   ;-1.309Z, INCIR22,YL,L422
$  ;P12,NOZ
 

 
 MV,-(#500-.2)ZB
  ;P12,NOZ
MV, INCIR222/-#60,YS,L222
CUT,-#500ZB
   ;-1.309Z, INCIR22,YS,L222
$  ;P12,NOZ
 
 MV,-(#500-.2)ZB 
  ;P12,NOZ
MV, INCIR222/-#60,YS,L422 
CUT,-#500ZB
   ;-1.309Z, INCIR22,YS,L422
MV, P12,NOZ


DRAW,PEN5

 MV,-(#500-.2)ZB
  ;P12,NOZ
MV, INCIR222/-#60,YL,L322
CUT,-#500ZB
   ;-1.309Z, INCIR22,YL,L322
$  ;P12,NOZ
 
 MV,-(#500-.2)ZB
  ;P12,NOZ
MV, INCIR222/-#60,YL,L122
CUT,-#500ZB
   ;-1.309Z, INCIR22,YL,L122
$  ;P12,NOZ
 
 
 
 MV,-(#500-.2)ZB
  ;P12,NOZ
MV, INCIR222/-#60,YS,L322
CUT,-#500ZB
   ;-1.309Z, INCIR22,YS,L322
$  ;P12,NOZ

 MV,-(#500-.2)ZB
  ;P12,NOZ
MV, INCIR222/-#60,YS,L122
CUT,-#500ZB
   ;-1.309Z, INCIR22,YS,L122
MV, P12,NOZ


MV,ZB1 ,COF,SPNDL
MV,ZB10,TBL,OSTOP
<31>

XFTM30/31,ROTXY,CW60
XFTM30/31,ROTXY,CW60*2
XFTM30/31,ROTXY,CW60*3
XFTM30/31,ROTXY,CW60*4
XFTM30/31,ROTXY,CW60*5

INSRTS,G0G90M12Z0H0
V80,15

DO111/112



<995>
CHKPT,TLAYER11
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN
INSRT, NNN  TOOL 8  OFFSET 8
INSRT, NNN  4.00" PLUNGE CUTTER OR 4.00" TURBO MILL w/1/8" Radius
INSRT, NNN  REF. STD. TOOL #TF10115
INSRT, NNN
INSRT, NNN 
INSRT, NNN  FINISH THE 6.00" DIAMETERS BY 2.391" DEEP
INSRT, NNN  - REF. THE 4.359" DIMENSION
INSRT, NNN  
$INSRT, NNN  PROGRAM WILL "SPIRAL BORE" - USE THE G41 CUTTERCOMP
INSRT, NNN
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/5, 8, 8, 400, .060, 4
DO101
INSRTS,M41
DRAW,PEN2
V50,12
V51,32

MV,P#50,NOZ,Y.2
MV,ZB8,TBL
MV,ZB1,SPNDL
CUT,P#50,NOZ,IPR#4,CDCL#2
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN
INSRT, MNN  TOOL SHOULD NOW BE 1.00" FROM THE FLANGE EDGE
INSRT, NNN
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]

$ GOTO66

<18>
    MV,P#50,NOZ,RPM#3
    MV,ZB1,TBL
    MV,ZB.2,SPNDL

    MV,ZB-(#500-.15),CON
    CUT,ZB-(#500-.05),IPR#4*2
    IC360,C(P#50,DIA5.187),CCW,CDCL#2,IPR#4
    CUT,P#50,NOZ

    CUT,ZB-(#500   ),IPR#4
    IC360,C(P#50,DIA5.187),CCW,CDCL#2,IPR#4
    CUT,P#50,NOZ

    V69,.250      $ AMOUNT OF STOCK TO LEFT ON BOTTOM
    V71, 3        $ NUMBER OF CUTS
    V72,#69/#71   $ DEPTH OF EACH SPIRAL PASS "Z"
    V73,.01       $ AMOUNT OF STOCK FOR LAST PASS
    MV,ZB-(#500-(#69+.1)),CON
    CUT,ZB-(#500-#69-#73-.003),IPR#4
<55>IC360,C#51,S(0),CCW,-#72LZ   $ "SCREWIN ON THROUGH"
    DO55,#71-1TMS
    IC360,C#51,S(0),CCW
    IC360,C#51,S(0),CCW,-#73LZ
    IC365,C#51,S(0),CCW,IPR#4*2
    CUT,P#50,NOZ,COF
    MV,ZB1,COF,CDC/OFF
    MV,ZB10,TBL,OSTOP
<19>

<66>

GOTO 666

<18>
    MV,P#50,NOZ
    MV,ZB1 ,RPMRH#3,TLCMP#2
      ;ZB-(#500-.35),CON
    CUT,ZB-(#500-.13),CDCL#2
    IC360,C#51,S(0),CCW
    CUT,P#50,NOZ
    CUT,ZB-(#500-.03)
    IC360,C#51,S(0),CCW
    CUT,P#50,NOZ
       ;ZB-#500
    IC365,C#51,S(0),CCW
    CUT,P#50,NOZ
DO111
<19>

<666>

XFTM18/19,ROTXY,CW60
XFTM18/19,ROTXY,CW60*2
XFTM18/19,ROTXY,CW60*3
XFTM18/19,ROTXY,CW60*4
XFTM18/19,ROTXY,CW60*5


INSRTS,G0G90M12Z0H0
V80,15
DO111/112

$GOTO99
<997>

CHKPT,TLAYER12
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL 2  OFFSET 2
INSRT, MNN  3/4" MOHAK  CENTERDRILL
INSRT, MNN
INSRT, MNN  CENTERDRILL FOR THE 12 TAPPED HOLES
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
DO2
DO103
INSRTS,M41

DRAW,PEN7

MV,P52,NOZ
MV,ZB8,TBL
MV,ZB1,SPNDL
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL POINT SHOULD NOW BE 1.00" FROM THE
INSRT, MNN  FLANGE FACE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]

DRL,SET2,CHD.38, 6.291RA, 6.291Z,CON

INSRTS,G0G90M12Z0H0 
V80,15
DO111/112


CHKPT,TLAYER13
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 9  OFFSET 9
INSRT, NNN  5/16" TWIST DRILL
INSRT, NNN  REF. 5/16" OIL-HOLE DRILL
INSRT, NNN  
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/6, 9, 9, 795,  .004, .312 ,118
DO103
INSRTS,M41
DRAW,PEN7

MV,P52,NOZ
MV,ZB11,TBL
MV,ZB1,SPNDL
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL POINT SHOULD NOW BE 1.00" FROM THE
INSRT, MNN  FLANGE FACE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]

V40,2
 
<69>
MV,P52,NOZ
DRL,SET12,DP1.00, SDPTH.625, FDPTH.15, .9RA, .9Z,CON , CLEAR.1/.02  $ ,BRKCP

MV,ZB#40,COF
<70>

V40,4.5
XFTM69/70,ROTXY,CW60

V40,3
XFTM69/70,ROTXY,CW60*2
XFTM69/70,ROTXY,CW60*3
XFTM69/70,ROTXY,CW60*4
XFTM69/70,ROTXY,CW60*5



INSRTS,G0G90M12Z0H0
V80,15
DO111/112

CHKPT,TLAYER14
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 10 OFFSET 10
INSRT, NNN  3/8-16 UNC TAP
INSRT, NNN  REF STD. TOOL #TF10119
INSRT, NNN
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/5,10,10, 254, 16, .375
DO104
INSRTS,M41
DRAW,PEN1

MV,P52,NOZ 
MV,ZB10,TBL
MV,ZB1,SPNDL 
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN 
INSRT, MNN  TOOL POINT SHOULD NOW BE 1.00" FROM THE 
INSRT, MNN  FLANGE FACE 
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN] 
  
<67>
    MV,P52,NOZ
    FLT,SET12,DP.78 ,CLEAR.1 ,CON                  
    MV,ZB2
<68>      

XFTM67/68,ROTXY,CW60
XFTM67/68,ROTXY,CW60*2
XFTM67/68,ROTXY,CW60*3
XFTM67/68,ROTXY,CW60*4
XFTM67/68,ROTXY,CW60*5

INSRTS,G0G90M12Z0H0
V80,15
DO111/112

CHKPT,TLAYER15
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 12  OFFSET 12
INSRT, NNN  4.000" OUTSIDE DIAMETER BY 2.625" THICK 
INSRT, NNN  HIGH SPEED STEEL 14 FLUTE CUTTER GROUND ON
INSRT, NNN  15 DEGREES - NOSE DIAMETER IS PROGRAMMED AT 3.300"
INSRT, NNN
INSRT, NNN  FINISH THE 15 DEGREE HOLES
INSRT, NNN  USE G-41 CUTTER COMP
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/5, 12, 12,  65, .010, 3.300
DO101
INSRTS,M40
DRAW,PEN3
V50,12
V51,22
V52,1.309
V53,TAN15*#52

MV,P#50,NOZ,.2Y
MV,ZB7,TBL
MV,ZB1,SPNDL
CUT,P#50,NOZ,IPR#4*3,CDCL#2
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL SHOULD NOW BE 1.00" FROM THE FLANGE EDGE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]



<20>
    MV,P#50,NOZ
    MV,ZB1,TBL
$   MV,ZB-(#500+(#52/2)),CON,CDCL#2,RPMRH#3,SPNDL

$   IC360,C#51/(#53/2 ),S(0),CCW,IPR#4
$   CUT,P#50,NOZ
DRAW,PEN7
    
    MV,ZB-(#500+#52-.1),CON,CDCL#2,RPMRH#3,SPNDL
    CUT,ZB-(#500+#52),IPR#4*2
    IC365,C#51, S(0),CCW,IPR#4
$   IC360,C#51, S(0),CCW,IPR#4
$   IC360,C#51, S(LOC),CCW

    CUT,P#50,NOZ,IPR#4*4
    MV,ZB1,COF,CDC/OFF
    MV,ZB12,TBL,OSTOP
<21>

XFTM20/21,ROTXY,CW60
XFTM20/21,ROTXY,CW60*2
XFTM20/21,ROTXY,CW60*3
XFTM20/21,ROTXY,CW60*4
XFTM20/21,ROTXY,CW60*5

INSRTS,G0G90M12Z0H0
V80,20
DO111/112

<996>

CHKPT,TLAYER16
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, NNN  TOOL 13  OFFSET 13
INSRT, NNN  1.970" NOSE DIAMETER 45 DEG. FACE MILL
INSRT, NNN   (STD. TOOL # 10124)
INSRT, NNN  REF. SECO R220.13-0200-12
INSRT, NNN
INSRT, NNN  MACHINE THE .120" CHAMFERS ON THE 15 DEGREE HOLES
INSRT, NNN  USE G-41 CUTTER COMP
INSRT, NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
V1/6, 13, 13,  775 , .040,1.97+.1, 2.470  $VR 6 IS OUTSIDE DIAMETER
DO101
INSRTS,M41
DRAW,PEN3
V50,12
V51,22
V52,1.309
V53,TAN15*#52
V54,121
 
MV,P#50,NOZ,Y.2
MV,ZB12,TBL
MV,ZB1,SPNDL
CUT,P#50,NOZ,IPR#4,CDCL#2
INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  TOOL SHOULD NOW BE 1.00" FROM THE FLANGE EDGE
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]
 
 
<22>
    MV,INCIR#51/-.25,L#54,YL
    MV,ZB.2,CON,CDCL#2,TBL,RPM#3
      ;ZB-(#500+.12+.05)
    IC365,C#51/(#53-.05),S(LOC),CCW,IPR#4,CDCL#2
    CUT,INCIR#51/-.25,L#54,YL
    MV,ZB5 ,COF, CDC/OFF
<23>


XFTM22/23,ROTXY,CW60
XFTM22/23,ROTXY,CW60*2
XFTM22/23,ROTXY,CW60*3
XFTM22/23,ROTXY,CW60*4
XFTM22/23,ROTXY,CW60*5

INSRTS,G0G90M12Z0H0
V80,30
DO111

MV,XB30
MV,ZB30,TBL

INSRT,[MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
INSRT, MNN  UNLOAD PART
INSRT, MNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN]



GOTO 99
<101>MTCHG,TN#1,TLCMP#2,GL,RPM#3,RPMRH,IPR  #4,TD#5         ,CLEAR.1,STK,NOX,NOY,NOZ,SPN $ MILL
<102>MTCHG,TN#1,TLCMP#2,GL,RPM#3,RPMRH,IPR  #4              ,CLEAR.1,STK,NOX,NOY,NOZ,SPN $ C'DRILL
<103>MTCHG,TN#1,TLCMP#2,GL,RPM#3,RPMRH,IPR  #4,TD#5,TPA#6   ,CLEAR.1,STK,NOX,NOY,NOZ,SPN $ DRILL
<104>MTCHG,TN#1,TLCMP#2,GL,RPM#3,RPMRH,PITCH#4,TD#5         ,CLEAR.1,STK,NOX,NOY,NOZ,SPN $ TAP
<105>MTCHG,TN#1,TLCMP#2,GL,RPM#3,RPMRH,IPR  #4,TD#5,TLCR#5/2,CLEAR.7,STK,NOX,NOY,NOZ,SPN $ BALLNOSE E/M
<111>MV,#80ZB,COF,CDC/OFF,TBL
<112>
<99>
END







