{
MILL=F
LATHE=T
SIMPLE_ROT_POS=F
ROTARY_MILL=F
ADV_MILL=F
SUBS=F
MILLTURN_Y-AXIS=F
METRIC=F
}

{Change Comments ***********************************************************}

{1/25/91
Copied & modified: Cin 18C Acr 900TC L130.71
For: Nook Industries
Machine: Cincinnati Cinturn Series 1212 (AT series)
Control: Acramatic 900TC
Control is a Radius Lathe.
All Comments to begin with MSG,
Added PGM Program Identifier statement.
Added PostScript Coolant options.
Deleted all 'G75's.
Changed G21 in position Commands to G1 normal stuff in MachSpec.
Changed M13 & M14 Spindle Commands to M3 & M4 normal stuff in MachSpec.
Added CannedCycles, although very limited support.
JR}

{2/19/91
Modified: Cin AT Acr 900TC L202.71
For: Nook Industries
Machine: Cincinnati Cinturn Series AT 12U-40 (a universal 1212)
Control: Acramatic 900TC
Turret stations: 8 OD , 4 ID (also can adapt ID holders at an OD station)
Deleted space in Comments after 'MSG,'.
Deleted custom Tool list at beginning of Program.
Added O SeqLab to Program Indentifier line.
Moved Speed to before DoOpComments & change to an O SeqLab line.
Moved SpinOn to G70 line & change to standard SeqLab line.
Moved GetCoolant to line with AbsOrInc.
Moved Tool call from Approach sub to main.
Added G95 & ToolChng to Tool call line.
Added V00 to Tool call line; this is for Tool Retract and may need to be edited.
Added Turret position commands at beginning of operations before Tool call.
Cancell Offset on line by itself.
Modified Coolant for ID or OD tools, deleted Mist/Flood Coolant PostScript Comments.
Added GetSpeed sub to simplify layout.
Arcs Stop On Quadrants checked in MachSpec.
Added spaces between codes.
Deleted IncValue from Threading cycle.
NOTE: **BUGS**
Threading Canned Cycle - see commented out commands needed.
SetAddTools - Not adding Offset to I&K Arc values.
JR}

{4/9/91
Modified: Cin AT Acr 900TC L202.72
For: Gibbs & Associates
Updated to Version 4.0 per Fanuc 10T MS [-] L001.80 Format.
SetAddTools now adds Offset to I&K Arc values.
Only Canned Cycles supported are SimpleRough and Threading.
Added FORMULAs for Canned Threading Cycle.
Added OptCyc1 PostScript Command to offer user the option to output a G33 long-hand Threading
Cycle, as opposed to a G63 Canned Threading Cycle.
Added Flag('1') to aid in output of OptCyc1 Canned Threading Cycle AutoFinish Pass.
NOTE: **BUGS**
Threading Canned Cycle still requires a variable Tangent Angle of Attack; see ThreadAngleApproach#.
DWB}

{4/29/91
Modified: Cin AT Acr 900TC L202.80
For: Nook Industries
No Feed or Feedrate in Approach for a Threading operation.
Changed the A value in Threading to reflect the Major Dia not the first cuts depth.
SetAddTools is not working with FinZ command, using FinishZ# command instead in Threading.
JR}

{8/6/91
Updated: Cin AT Acr 900TC L202.81
For: Gibbs & Associates
Updated to Version 4.0 per Fanuc 6M M001.82 Format.
KLM}

{2/27/93
Modified: Cin AT Acr 900TC L202.82
For: Nook Industries
Changed Feed to FeedRate in GetFeedRate sub, seems to have been an error.
Updated Approach subs and AutoFinish to .82.1 format, changes name of GetFeedRate sub to FeedRateNoCan.
Changed GearRange to output high gear only.
Deleted Offset cancel lines.
JR}

{5/25/93
Modified: Cin AT Acr 900TC L202.82.1
For: Nook Industries
Updated to Version 4.1 per Fanuc 10T MS [-] L001.82.1 Format.
Changed IF NOT Threading to IF NOT CannedCycle at FeedNoCan and FeedRateNoCan subs.
Added StandardXZArcs at setup and initializations.
Changed LAST XCPC to SETLASTOP XCPC at NewTool.
Changed LAST ZCPC to SETLASTOP ZCPC at NewTool.
Changed SetPass2 to SetPass1 at CannedCycle Roughing RoughSimple.
This was necessary as ncPost quit unexpectadly.
Added SeqLabC StockOff StrtPosC EOL at non-CannedCycle AutoFinish.
DWB}

{9/7/95, Updated Cin AT Acr 900TC L202.82.2 to .85 format per v2.20 Update Instructions .01
Incorporated the command InFeedAngle# where ThreadAngleApproach# was asked for! JR}

{4/20/96,
Initial: Cin AT 900TC LXXX.85
Created: Cin AT Acr 900TC LXXX.85
For: CINC
Added GetCoolAndSpin sub to differentiate between M03/M13 and M04/M14, Added added support to use
PalletOut PostScript command to output M00, changed SameTool to to a ToolChange when PalletOut? it true,
Deleted 'V00' since customer will input this value in Utility Data, eliminated Program # comment at begiing of program., MPK}

{8/10/96
Initial: Cin AT 900TC [CINC] L445.85
Created: Cin AT 900TC [CINC] L445.85.1
ForUser: CINC
Develop: ComPost2 68k, Catalyst68K v3.04.10.C
Comment: Modifications per marked up readout from Bill Flim
Moved GetCoolAndSpin from Approach to AppMove as it was only outputting for ApproachOD
Changed CSS Handling:
Using Flag#2 to set the need to output CSSOn at common point.
Deleted descrimination of Preset MaxRPM to allow output prior to G96.
Suppressed output of spindle commands for SameTool NOT PalletOut if there is no change.
Added 'O?' block to SameTool PalletOut.
Jim Radcliffe}

{6/12/97
Initial: Cin AT 900TC [CINC] L445.85.1
Created: Cin AT 900TC [BM] Lxxx.85
Changed second literal 'O?' in FirstOp to SeqLabC, MPK}

{6/17/97,
Initial: Cin AT 900TC [BM] L605.85
Created: Cin AT 900TC [BM] L605.85.1
For: Bonham Metal
Removed Rapid from ThreadFeat,
Added logic to RapidFeat to Force output of Rapid if the previous feature was a TheadFeat,
Added MoveXC to ThreadFeat to allow for tapered run in/out,
deleted GetChamfer sub, MPK
}

{7/21/97
Initial: Cin AT 900TC [BM] L605.85.1
Created: Cin AT 900TC [BM] L605.85.2
Added
IF Threading?
Rapid
END
to ToolPath sub after NextFeat
MPK}

{16Jun98
Original: Cin AT 900TC [BM] L605.85.2
Created: Cin AT 900TC [GT] L737.85
For: Grand Traverse Machine
Changes made per: Dave
Deleted old version numbers and comments e.g. {.62}, {commands}, {literals}, etc
Moved GetCoolAndSpin from AppMove to FirstOperation and NewTool
Deleted literal '(PGM,)' from FirstOperation and replaced with AbsOrInc
Changed the order of output in FirstOperation and NewTool per customers FAX
Moved CSS Boolean from the start of the Common Point to FirstOperation and NewTool
Changed LatheOffset to '00'
Added O-block to NewTool at Start new Operation
Charles Winston}

{3Nov98
Original: Cin AT 900TC [GT] L737.85
Created: Cin AT 900TC [GT] L737.85.1
For: Grand Traverse Machine
Changes made per: Dave Rahe
Added Post Header Comment at the top of Prog.
Deleted LAST ConstantSurfaceFeed? Boolean in NewTool at Finish off last Operation.
Charles Winston}

{12Nov98
Original: Cin AT 900TC [GT] L737.85.1
Created: Cin AT 900TC [GT] L737.85.2
For: Grand Traverse Machine
Changes made per: Dave Rahe
Added Formatting for HomeX# in Prog Numeric Format Definitions
Changed CycleStartX# to HomeX# in FirstOpertion and NewTool
Charles Winston}

{Prog Numeric Format Definitions *******************************************}

#1 = '#.00'
#2 = '##^###0'
#3 = '#######0'
#4 = '##^#0'
#5 = '##^####0'
#6 = '##^##0'
#7 = '#'
#8 = '*##^###0' { Used for ApproachOD ThreadDepth; ApproachID uses FORMAT #2 }

FORMAT(FileFeet#,1)
FORMAT(FileMeters#,1)
FORMAT(ABS#,2) { Uses FORMAT #2 for DistanceToThread and FORMAT #5 for Taper }
FORMAT(ADD#,2)
FORMAT(SUB#,2)
FORMAT(TurretX#,2)
FORMAT(TurretZ#,2)
FORMAT(CycleStartX#,2)
FORMAT(CycleStartZ#,2)
FORMAT(HomeX#,2)
FORMAT(EPX#,2)
FORMAT(FirstMoveEPX#,2)
FORMAT(FinishXRadius#,2)
FORMAT(FinishXRadiusInc#,2)
FORMAT(FinishZ#,2)
FORMAT(FinishZInc#,2)
FORMAT(CutDepth#,2)
FORMAT(ThreadXInc#,2)
FORMAT(FeedIPR#,2)
FORMAT(Program#,3)
FORMAT(Operation#,3)
FORMAT(Tool#,3)
FORMAT(Dwell#,4)
FORMAT(Taper#,5)
FORMAT(TAN#,6)
FORMAT(RapidF#,7)

{Prog Subroutines **********************************************************}

RestoreScale:
IF Metric? {CAM file is in Metric, tools and tool path}
SetScale('.03937007874') { change to English, this is an English post}
END
RETURN

DoOpComments:
IF UseComments?
SetScale('1')
IF OperationIDComment?
'(MSG,OPERATION ' Operation# ': ' OperationType$ ' )' EOL
END
IF OperationComment?
'(MSG,' OperationComment$ ' )' EOL
END
IF WorkGroupComment?
'(MSG,' WorkGroupComment$ ' )' EOL
END
IF SameTool?
IF NewToolOffset?
IF ToolTypeComment?
'(MSG,TOOL ' Tool# ': ' ToolSize$ ' ' ToolType$ ' )' EOL
END
IF ToolComment?
'(MSG,' ToolComment$ ' )' EOL
END
END
ELSE
IF ToolTypeComment?
'(MSG,TOOL ' Tool# ': ' ToolSize$ ' ' ToolType$ ' )' EOL
END
IF ToolComment?
'(MSG,' ToolComment$ ' )' EOL
END
END
RestoreScale
END
RETURN

PSInit: {reset flags from last Op, .70}
OptCyc1F
PalletOutF
RETURN

PSStuff:
RETURN

DoPostScript:
PSInit
EachPS
SeqLabC PostScript EOL
PSStuff
NextPS
RETURN

DoEndOpPS:
PSInit
EachEOPS
SeqLabC EndOpPS EOL
PSStuff
NextPS
RETURN

GetSpeed:
IF ConstantSurfaceFeed?
CalcRPM1 SetFlag('2')
ELSE
Speed SetFlagF('2')
END
RETURN

GetCoolant:
IF NOT CoolOff?
IF ToolOver?('10')
' M07' {ID coolant}
ELSE
' M08' {OD coolant}
END
END
RETURN

GetCoolAndSpin: {outputs an M13 or M14, which turns on both spindle and coolant}
IF CWSpindle?
IF NOT CoolOff?
' M13'
ELSE
' M03'
END
ELSE
IF NOT CoolOff?
' M14'
ELSE
' M04'
END
END
RETURN

GetChamfer: { For Threading Cycles }
RETURN

GetTaper: { For Threading Cycles }
IF Taper?
FORMAT(ABS#,5)
' I'

{ The FORMULA = ABS ( ( XThreadDepth * ThreadPitch ) / ZThreadLength }

ABS# MUL# FinishXRadiusInc# MUL# FeedIPR# DIV# Num#('1') MUL# FinishZInc# NumSc#('1')

END
RETURN

StockOnNoCan:
IF NOT CannedCycle?
StockOn {need stock for SP positioning, if not a canned cycle}
END
RETURN

FeedNoCan:
IF NOT CannedCycle?
FeedC
END
RETURN

FeedRateNoCan:
IF NOT CannedCycle?
FeedRateC
END
RETURN

ODApproachSP:
SeqLabC StockOnNoCan ZSPC EOL
SeqLabC StockOff XOpCDC EOL
StockOnNoCan
IF NotEqual? CycleStartX# XOpCD#
SeqLabC FeedNoCan XSPC FeedRateNoCan EOL
END
RETURN

IDApproachSP:
SeqLabC StockOnNoCan ZSPC EOL
SeqLabC StockOff XOpCDC EOL { for SameTool ApproachID }
StockOnNoCan
IF NotEqual? CycleStartX# XOpCD#
SeqLabC FeedNoCan XSPC FeedRateNoCan EOL
END
RETURN

FaceApproachSP:
SeqLabC StockOnNoCan XSPC EOL { for SameTool ApproachFace }
SeqLabC StockOff ZOpCPC EOL
StockOnNoCan
IF NotEqual? CycleStartZ# ZOpCP#
SeqLabC FeedNoCan ZSPC FeedRateNoCan EOL
END
RETURN

AppMove:
StockOff ThisOpEntryZCP
RETURN

Approach: { NOT FOR TAILSTOCK, .82 }
Rapid RapidF# { RapidF# Forces FeedRate }
IF ApproachOD?
SeqLabC StockOff ThisOpEntryXCP AppMove EOL
ODApproachSP
ELSE
IF ApproachID?
SeqLabC StockOff XOpCD AppMove EOL
IDApproachSP
ELSE {ApproachFace}
SeqLabC StockOnNoCan XSP AppMove EOL
FaceApproachSP
END
END
RETURN

CheckOffset:
IF CoolOff? AND LAST NOT CoolOff?
SeqLabC CoolOff EOL
END
IF NewGear?
SeqLabC SpinOff EOL
END
IF ConstantSurfaceFeed?
IF LAST ConstantSurfaceFeed?
IF NotEqual? MaxRPM# LAST MaxRPM#
SetFlag('2')
END
ELSE
SetFlag('2')
END
END
SeqLabC
IF ConstantSurfaceFeed?
IF LAST ConstantSurfaceFeed?
IF NotEqual? SpeedRPM# LAST SpeedRPM#
SetFlag('2')
END
ELSE
SetFlag('2')
END
ELSE
IF LAST ConstantSurfaceFeed?
CSSOff ' G97' Speed
ELSE
IF NotEqual? SpeedRPM# LAST SpeedRPM#
Speed
END
END
END
IF NewGear?
GearRange EOL
SeqLabC SpinOn
END
EOL
IF NOT CoolOff? AND LAST CoolOff?
SeqLabC GetCoolant EOL
END
DoPostScript
RETURN

FormatArc:
IF ArcCW?
CWArcC
ELSE
CCWArcC
END
MoveXC MoveZC
IF ArcIJFormat?
ArcIJC
ELSE
ArcRC
END
RETURN

CkCRC:
IF XMove? OR ZMove? { Approach Length Feature and Multiple Pockets }
CRCOnC
END
IF LastFeat? AND EmptyLine? { Exit Length Feature }
CRCOffC
END
RETURN

ToolPath:
EACHFeat
GetToolTip
IF LastFeat?
IF Drilling?
IF Tap?
SeqLabC SpinOff EOL
SeqLabC ' G04 F200' EOL
SeqLabC Speed InverseSpinOn EOL
ELSE
IF Dwell?
SeqLabC ' G04 F' Dwell# EOL
END
END
END
END
IF PointFeat?
SeqLabC MoveSXYC EOL
ELSE
IF RapidFeat?
IF NOT FirstFeat?
IF LAST ThreadFeat?
Rapid
END
END
SeqLabC RapidC MoveXC MoveZC EOL
ELSE
IF LineFeat?
SeqLabC CkCRC FeedC MoveXC MoveZC FeedRateC EOL
ELSE
IF ArcFeat?
EACHQuadrant { Do not use NOT, LAST, FIRST or NEXT modifiers in this loop }
SeqLabC FormatArc FeedRateC EOL
NEXTQuadrant
ELSE
IF ThreadFeat?
SeqLabC ' G33' MoveXC MoveZC GetTaper ThrdLead EOL
END
END
END
END
END
NEXTFeat
IF Threading?
Rapid
END
RETURN

CheckRapid:
CRCOffC
IF LAST CannedCycle?
Rapid
ELSE
RapidC
END
RETURN

{Start of executable Prog **************************************************}

{setup and initializations}
InitProg
PosSideLathe
StandardXZArcs
XsAreRadii
SetMaxRPM('2240')
SetMaxFeed('500')
SetFlagF('1')
SetFlagF('2') {CSSOn output needed}
IF PSComment? AND UseComments?
'PostScript:' EOL
' Literals: put between single or double quotes.' EOL
' Separate commands and literals with at least one space.' EOL
' A CR ( RETURN key ) will start a new line.' EOL
' Commands: must be all capital letters when typed in.' EOL
' ENDOP -' EOL
' all literals and commands before an ENDOP command' EOL
' will appear at the beginning of the operation. All ' EOL
' literals and commands after an ENDOP command will appear' EOL
' at the end of the operation. ' EOL
' OPTIONALCYCLE1, OPTCYC1 -' EOL
' This PostScript Command has been included in your Post Processor.' EOL
' Normally, a G63 Canned Threading Cycle will be output for Threading Operations.' EOL
' However, the user is offered the option of outputting a G33 Canned Threading' EOL
' Cycle, instead. Just enter this PostScript Command in your ncCam Threading' EOL
' Operation, and the Post Processor will output a G33 Cycle.' EOL
END
EachOp {Start of post processing *********************}
GetLCycle
IF FirstOperation?
EOR EOL
'O?' AbsOrInc EOL
IF UseComments?
IF ProgramNameComment?
'(MSG,' ProgramName$ ' )' EOL
END
IF ProgramComment?
'(MSG,' ProgramComment$ ' )' EOL
END
IF FormatNameComment?
'(MSG,FORMAT: ' FormatName$ ' )' EOL
END
IF TimeComment?
'(MSG,' Date$ ' AT ' Time$ ' )' EOL
END
IF MovesComment?
'(MSG,OUTPUT IN ' MoveType$ ' INCHES )' EOL
END
END
RestoreScale
OpenSub
StockOff
SetHome
Plane
SeqLabC ' G95' EOL
SeqLabC CSSOff ' G97' GetSpeed GearRange EOL
DoOpComments
SeqLabC SpinOn EOL
IF NOT Drilling?
SeqLabC Preset MaxRPM EOL
END
SeqLabC Rapid ' X' TurretX# ' Z' TurretZ# EOL
SeqLabC OpToolID '00' ToolChng EOL
IF Flag?('2')
SeqLabC SetAddToolsF CSSOn ' G96 R' HomeX# Speed GetCoolAndSpin EOL
SetFlagF('2')
END
SetAddTools
DoPostScript
Approach
ELSE
IF NewTool?

{Finish off last Operation}

StockOff
CheckRapid
IF LAST ApproachOD?
SeqLabC LAST OpExitXCPC EOL
ELSE
IF LAST ApproachID?
SeqLabC LAST XOpECDC EOL
END
END
SeqLabC LAST OpExitZCPC EOL
SetAddToolsF
DoEndOpPS
SeqLabC ' X' TurretX# ' Z' TurretZ#
IF NewGear?
SpinOff
END
EOL
IF LAST PalletOut? {Program Stop}
SeqLabC ' M00' EOL
ELSE
SeqLabC ProgStop EOL
END

{Start new Operation}

'O?' AbsOrInc EOL
SeqLabC ' G95' EOL
SeqLabC CSSOff ' G97' GetSpeed GearRange EOL
DoOpComments
SeqLabC SpinOn EOL
IF NOT Drilling?
SeqLabC Preset MaxRPM EOL
END
SeqLabC Rapid ' X' TurretX# ' Z' TurretZ# EOL
SeqLabC OpToolID '00' ToolChng EOL
IF Flag?('2')
SeqLabC SetAddToolsF CSSOn ' G96 R' HomeX# Speed GetCoolAndSpin EOL
SetFlagF('2')
END
DoPostScript
SetAddTools
Approach
ELSE
IF SameTool?
DoEndOpPS
{Start new Operation}
DoOpComments
IF PalletOut? {Program Stop}
SeqLabC ' M00' EOL
'O?' AbsOrInc EOL
SeqLabC ' G95' EOL
SeqLabC CSSOff ' G97' GetSpeed GearRange EOL
DoOpComments
SeqLabC SpinOn EOL
IF NOT Drilling?
SeqLabC Preset MaxRPM EOL
END
SeqLabC Rapid ' X' TurretX# ' Z' TurretZ# EOL
SeqLabC OpToolID '00' ToolChng EOL
DoPostScript
SetAddTools
Approach
ELSE
StockOff
IF LAST StraightConnect?
CheckOffset
CheckRapid
SeqLabC StockOnNoCan XSPC ZSPC EOL
ELSE
CheckRapid
IF ApproachOD?
IF LAST ApproachOD?
SeqLabC LAST XOpECDC EOL
ELSE {around}
IF LAST ApproachID?
SeqLabC LAST XOpECDC EOL
END
SeqLabC LAST OpExitZCPC EOL
SeqLabC LAST OpExitXCPC EOL
END
CheckOffset
ODApproachSP
ELSE
IF ApproachID?
IF LAST ApproachID?
SeqLabC LAST XOpECDC EOL
ELSE
IF LAST ApproachOD? {around}
SeqLabC LAST OpExitXCPC EOL
END
SeqLabC LAST OpExitZCPC EOL
SeqLabC XOpCDC EOL
END
CheckOffset
IDApproachSP
ELSE {ApproachFace}
IF LAST ApproachFace?
SeqLabC LAST ZOpECPC EOL
ELSE
IF LAST ApproachOD? {around}
SeqLabC LAST OpExitXCPC EOL
ELSE {LAST ApproachID}
SeqLabC LAST XOpECDC EOL
END
SeqLabC LAST OpExitZCPC EOL
END
CheckOffset
FaceApproachSP
END
END
END
END
END
END
END {common point for all operations}
IF CannedCycle?
StockOff
IF Roughing?
IF RoughSimple?
StockOn
SetPass1
SeqLabC '(DIN,G' CutDepth# ')' EOL
IF ApproachFace?
SeqLabC '(EXS,Z' CutDepth# ')' EOL {exit cut}
SeqLabC LCycle ' Z' FinishZ# ' I' FinishXRadiusInc# XTapAtZ ' A0' EOL
ELSE
SeqLabC '(EXS,X' CutDepth# ')' EOL {exit cut}
SeqLabC LCycle ' X' FinishXRadius# XTapAtZ ' K' FinishZInc# ' A0' EOL
{A must be programmed but Cam already has it at the first position so A=0}
END
END
ELSE
IF Threading?
IF OptCyc1?
StockOn
SetPass1
ToolPath
IF AutoFinish?
SetFlag('1')
SeqLabC ' X'

{ The FORMULA = XAtFinZFinishPass + Taper. }
ADD# FinishXRadius# MUL# Taper# NumSc#('1')

EOL
SeqLabC ' G33' GetChamfer ' Z' FinishZ# GetTaper ThrdLead EOL
SeqLabC Rapid ' X' CycleStartX# EOL
SeqLabC ' Z' CycleStartZ# EOL
SetFlagF('1')
END
ELSE { NOT OptCyc1? }
SeqLabC '(DIN,' CutDepth ')' EOL
IF ApproachOD?
FORMAT(ThreadXInc#,8)
ELSE
FORMAT(ThreadXInc#,2)
END
SeqLabC '(DTH,G' ThreadXInc# ')' EOL

IF SingleEdgeCut?

{ The FORMULA = Tangent 29Ą. }
{ IF ApproachOD = TRUE, then the value must be multiplied by -1. }
{ This is for normal approach moves in the Z minus direction. }
{ For approach moves in the Z plus direction, the sign must be reversed. }

IF ApproachOD?
SeqLabC '(TAA,G' TAN# MUL# InFeedAngle# NumSc#('1') ')' EOL
ELSE
SeqLabC '(TAA,G' TAN# MUL# InFeedAngle# NumSc#('-1') ')' EOL
END

END

SeqLabC LCycle GetChamfer {FinZ} ' Z' FinishZ# GetTaper ThrdLead

{ This gives the distance between the Cycle Start point and the Major Dia }
SetAddToolsF
FORMAT(ABS#,2)
' A' ABS# DIV# DiaDistanceToThread# NumSc#('2')
SetAddTools

EOL

END { IF OptCyc1? }
END { IF Threading? }
END { IF Roughing? }
ELSE
StockOn
SetPass1
ToolPath
IF AutoFinish?
IF NOT Drilling? AND NOT Grooving? AND NOT RoughSimple?
StockOff
IF Turning?
SetPass1
RapidC
IF ApproachFace?
SeqLabC ZOpECPC EOL
FaceApproachSP
ELSE
SeqLabC XOpECDC EOL
IF ApproachOD?
ODApproachSP
ELSE {ApproachID}
IDApproachSP
END
END
ELSE
SetPass2
SeqLabC RapidC XSPC ZSPC EOL
END
SeqLabC StockOff StrtPosC EOL
ToolPath
END
END
END
IF Drilling? AND Tap?
SeqLabC SpinOff EOL
SeqLabC ' G04 F200' EOL
SeqLabC Speed SpinOn EOL
END
NextOp {loops back to EachOP until last Operation}

{End of program ************************************************************}

{finish last operation}
StockOff
CRCOffC
IF CannedCycle?
Rapid
ELSE
RapidC
END
IF ApproachOD?
SeqLabC OpExitXCPC EOL
ELSE
IF ApproachID?
SeqLabC XOpECDC EOL
END
END
SeqLabC OpExitZCPC EOL
SetAddToolsF
DoEndOpPS
SeqLabC ' X' FIRST TurretX# ' Z' FIRST TurretZ# SpinOff EOL
IF PalletOut? {Program Stop}
SeqLabC ' M00' EOL
END
SeqLabC EOP EOL
Post
EOR EOL
Close
Retag
IF UseComments?
SetScale('1') {restore scale for comments}
Reopen
IF FileBytesComment?
'(MSG,FILE LENGTH: ' FileBytes# ' CHARACTERS )' EOL
END
IF FileFeetComment?
'(MSG,FILE LENGTH: ' FileFeet# ' FEET )' EOL
END
IF FileMetersComment?
'(MSG,FILE LENGTH: ' FileMeters# ' METERS )' EOL
END
Close
END