//********************************************************************
// This section is a custom section to address using a BACK C'Boring tool
//  all that is needed is to create a HOLE in a process model
//  The SMF file will have to be modified to be a JOS type file
//  Also the #83 question needs to be set to zero.
//  The machine will move to a position .4 greater than the #xpos
//  of the hole and a position .4 greater than the #ypos of the hole
//  rapid to the DEPTH of the hole.  Turn the spindle on bacward.
//  Feed to the ZLEVEL of the hole.  Dwell for the specified time.
//  Rapid back to the bottom of the hole and orient the spindle.
//  Then rapid to it's original entry point and go to clearance level.
//  The controlling features will be:
//     1)The Z level of the hole element is where you feed UP to.
//     2)The tip depth will be rapid to depth to clear at the bottom.
//     3)In the operations pageyou MUST use CYCLE4.
//     Also a reminder, the graphics will not show all these moves, but
//	after using it you will have faith code is coming out right.
@OP_CBORE
#IF(#U1=1)< 
** CUSTOM COUNTER BORING SECTION **
 >
// Use G85, G86, G87, or G88 
#EVAL(#S19=#TABLE(CB_CODES,#CYCLE))
#IFCHG(#FXD)<#RESET(#S19)>
#IF(#S19=G89)<
#EVAL(#V1=-(#ZDPTH))
#EVAL(#V2=#PTOP)
//#PTOP = Z top of hole
//#ZDPTH = Z depth to rapid to
//#ZCHK = Z check
//#CLEAR =Clearance move
//#V2 = Z top of hole to feed to
#EVAL(#V3=#XPOS+.4)
#EVAL(#V4=#YPOS+.4)
 M19
 G90 G00 X#V3 Y#V4 M08
 Z#ZDPTH
 X#XPOS Y#YPOS
 M04
 G01 Z#V2 F#FEED
 G04 P#DWELL
 G00 Z#ZDPTH M09
 M19
 X#V3 Y#V4
 Z#CLEAR>
#ELSE<
 #S19< X#XPOS>< Y#YPOS>< Z#ZDPTH R#ZCHK P#DWELL>< F#FEED>
@CB_CODES
#IF(#S10=1)< 
** CUSTOM C'BORE CODE TABLE SECTION **
 >
0,G85
1,G86
2,G87
3,G89
//
//*****************************************************************************