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

{4/17/90, New from Fanuc 10T MS [-] L001.69.3, WFG}
{7/24/90, Added InitProg globally to posts with this remark, DWB}

{12/19/90
Modified: Swedturn 6 CNC 300 L154.71m
For: Gibbs & Associates
Machine: Swedturn 6
Control: CNC 300
Updated to Version 3.2 per Fanuc 10T MS [-] L001.71.4m Format.
Turret #1 consists of Tools 1-20, and uses literal 'M22' to turn on the Coolant.
Turret #2 consists of Tools greater than 20, and uses normal CoolOn 'M8' command.
This Post Processor outputs Absolute values only.
DWB}

{4/4/91
Modified: Swedturn 6 CNC 300 L154.74.1m
For: Gibbs & Associates
Updated to Version 4.0 per Fanuc 10T MS [-] L001.80 Format.
Only Canned Cycles supported are RoughContour, Threading and Tapping.
DWB}

{8/7/91
Updated: Swedturn 6 CNC 300 L154.80m
For: Gibbs & Associates
Updated to Version 4.0 per Fanuc 6M M001.82 Format.
Kim Michelman}

{3/8/96
Copied: Swedturn 6 CNC 300 L154.82m
Created: Swedturn 10 CNC 220 L433.82m
For: Fructus/KHK Mekaniska
Machine: Swedturn SMT 10
Control: CNC 220
Versions: ncCad 4.33.02/ncCAM 4.33.01/ncPost 4.33.09/Catalyst v3.02.02/Compost 4.21.34.1/1.0a
Changes made per Mikael Bagge of Fructus, POST_SMT.VNC and SMT220.NCF files
Updated for Catalyst v2.20 per Fanuc 10T MS [-] L001.85 Format.
Deleted literal G81 block at FirstOperation.
Moved literal G95 block to be StartCode at FirstOperation.
Added GearRange support.
GearRange which is either 1 or 2 is output with SpinOn where needed.
M31 Low = CWSpindle 0-1000 RPM
M32 High = CWSpindle 1001+ RPM
M41 Low = CCWSpindle 0-1000 RPM
M42 High = CCWSpindle 1001+ RPM
Deleted literal M24 block at CheckFeedRate sub.
Changed Canned Thread Cycle from G36 to G34 in Mach Spec Threading dialog.
Deleted SpinOff at end of Prog.
Added condtion to output EOP or M0 to ReturnToTurretXZ block at end of prog.
Deleted CutMethod at CannedCycle Threading block.
Deleted ThrdHeight at CannedCycle Threading block.
Deleted CutDepth at CannedCycle Threading block.
Deleted Speed at CannedCycle Threading block.
Deleted ToolAngle at CannedCycle Threading block.
Added TrackXNO# to FORMAT#2 at Prog Numeric Format Definitions.
Added FirstMoveEPX# to FORMAT#2 at Prog Numeric Format Definitions.
Changed XatFinZ to 'X' FirstMoveEPX# at CannedCycle Threading block.
Modified to support unconditional Rapid, Feed, CWArc, and CCWArc.
Added G5, Look Ahead Code, at all transitions from Rapid block to Non-Rapid block.
DWB}

{10/25/96
Initial: Swedturn 10 CNC 220 L433.82m
Created: Swedturn 10 CNC 220 L433.85m
ForUser: Fructus/KHK Mekaniska
Develop: ComPost2 68k v1.0b3, Catalyst68K v3.04.10.C
Comment: Modified per marked up readout from Fructus.
Machine has 2 turrets, front/OD and rear/ID.
ID turret is NegSideLathe ReverseXZArcs
OD turret is PosSideLathe StandardXZArcs
Deleted coolant decrimination for ToolOver?('20')
Jim Radcliffe}

{12/3/96
Modified: Swedturn 10 CNC 220 L433.85m
Created: Swedturn 10 CNC 220 L433.85.1m
For: Fructus/KHK Mekaniska
Versions: Catalyst v3.20C/Compost 4.21.37/v1.0b1
Changes made per Mikael Bagge of Fructus.
Customer requested support of RearTurret.
Rear Turret consists of Tools 5-8.
Requires NegSideLathe and ReverseXZArcs.
G92 blocks not to be affected.
Added ckTurret sub.
Sets NegSideLathe and ReverseXZArcs for Tools 5-8.
Called at FirstOperation and NewTool.
Added ResetTurret sub.
Restores Post to PosSideLathe and StandardXZArcs to preserve G92 blocks.
Called at NewTool and end of Prog.
Deleted condition for setting PosSideLathe/NegSideLathe and StandardXZArcs/ReverseXZArcs at
FirstOperation and NewTool.
Changes made on 10/25/95 tested for ApproachID to determine Front and Rear Turrets.
This did not account for cases where the user wants to Drill with the Rear Turret.
Drilling is always a Face Approach, forcing the user to only Drill from the Front Turret.
The test also did not account for a NewTool ApproachFace Operation followed by a SameTool
ApproachID Operation.
Condition also affected G92 blocks contrary to customer request.
Updated for Catalyst v3.09C per Fanuc 10T MS [-] L001.85 Format.
Increased SetMaxFeed from 500 to 2540 at setup and initializations.
Added SetMaxFeed(100) condition for English Files at setup and initializations.
DWB}

{1/16/97
Modified: Swedturn 10 CNC 220 L433.85.1m
Created: Swedturn 10 CNC 220 L433.85.2m
For: Fructus/KHK Mekaniska
Versions: Catalyst v3.25C/Compost 4.21.37/v1.0b4
Changes made per Mikael Bagge of Fructus.
Customer requested that all G02 and G03 codes be exchanged.
Changed Clockwise Arc from G03 to G02 in Compost2 Arcs Dialog.
Changed Counter-Clockwise Arc from G02 to G03 in Compost2 Arcs Dialog.
DWB}

{5/20/98,
Initial : Swedturn 10 CNC 220 L433.85.2m
Created: Swedturn 10 CNC 220 [SM] L727.85
Customer: Sun Manufacturing (for Texas Offline), 713/461-7071 Dickie Billeck

Changes to "Form":

1. Under Default Formats, changed F to ##^##0 and I K R X Z format to ##^###0
2. Under Turn Rough - OD/ID (G81), changed X stock left (I), Z stock left (K), and
Depth of cut (X) format to ##^###0
3. Under Turn Rough - Face (G82), changed X stock left (I), Z stock left (K), and
Depth of cut (Z) format to ##^###0
4. Under Threading (G34), changed Finish X at finish Z (X), Finish Z (Z), and X taper
at start Z (I) format to ##^###0 and Lead (K) format to ##^##0
5. Under Lathe Drill Cycles, removed Tap info (no drilling cycles)
6. Under Edit Tables, changed 1001 to 500 and 3000 to 2000

Changes to "Prog":

1. Changed #2 FORMAT from 2 to 4 decimal points.
2. Changed RestoreScale sub to inches.
3. Changed MovesComment from MILLIMETERS to INCHES.
4. Changed SetMaxRPM to 2000.
5. Changed FORMAT for the axes, dwell, and feedrate.
6. Removed all output of G5 blocks (Look Ahead code)
7. Changed all Feed to FeedC and most Rapid to RapidC (left at Approach & after G33).
8. Changed FirstOperation, NewTool, and End to match the customer spec.
9. Changes to CheckOffset sub to reflect the changes in G92 & G96.
10. Under ToolPath and Threading, changed XTapAtZ to DoThrdTaper sub. Also added
FORMAT for DIV#.
11. Added warning when calling for taper thread with canned cycles.
12. Changed the output and added warning when calling for roughing with canned cycles.
Also added format for SPX#, SPZ#, EPX#, and EPZ#.
JHE}

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

#1 = '####.00'
#2 = '##^###0' {Changed from '####^#0' - JHE}
#3 = '######0'
#4 = '####^#0' {Added for Dwell - JHE}
#5 = '###^##0' {Added for feedrate - JHE}

FORMAT(FileFeet#,1)
FORMAT(FileMeters#,1)
FORMAT(MUL#,2) { Non-Canned Threading AutoFinish }
FORMAT(DIV#,2) {Added - JHE}
FORMAT(SPX#,2) {Added - JHE}
FORMAT(SPZ#,2) {Added - JHE}
FORMAT(EPX#,2) {Added - JHE}
FORMAT(EPZ#,2) {Added - JHE}
FORMAT(TrackXNO#,2)
FORMAT(ToolOffsetXRadius#,2)
FORMAT(ToolOffsetZ#,2)
FORMAT(TurretX#,2)
FORMAT(TurretZ#,2)
FORMAT(FirstMoveEPX#,2)
FORMAT(FirstMoveEPZ#,2)
FORMAT(Program#,3)
FORMAT(Operation#,3)
FORMAT(Tool#,3)
FORMAT(CalcEpRPM#,3) {Changed from 6 - JHE}
FORMAT(Dwell#,4) {Changed from 2 - JHE}
FORMAT(FeedIPR#,5) {Changed from 2 - JHE}

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

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

DoSubComment:
NewProg
IF UseComments? AND SubComment?
'( SUB NUMBER: ' Program# ' )' EOL
END
RETURN

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

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

PSStuff:
RETURN

DoPostScript:
PSInit
EachPS
SeqLabC PostScript EOL {literals}
PSStuff {commands}
NextPS
RETURN

DoEndOpPS:
PSInit
EachEOPS
SeqLabC EndOpPS EOL {literals}
PSStuff {commands}
NextPS
RETURN

ckTurret:
IF GTEqual? Tool# Num#('5')
IF LTEqual? Tool# Num#('8')
NegSideLathe
ReverseXZArcs
END
END
RETURN

ResetTurret:
PosSideLathe
StandardXZArcs
RETURN

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

FeedNoCan:
IF CannedCycle?
RapidC {Added C to Rapid - JHE}
ELSE
{'G5' EOL} {Removed LookAhead Code - JHE}
SeqLabC FeedC {Added C to Feed - JHE}
END
RETURN

FeedRateNoCan:
IF NOT CannedCycle?
FeedRateC
END
RETURN

ApproachSP:
IF ApproachFace?
SeqLabC RapidC StockOnNoCan XSPC EOL {Added C to Rapid - JHE}
SeqLabC RapidC StockOff ZOpCPC EOL {Added C to Rapid - JHE}
StockOnNoCan
IF NotEqual? CycleStartZ# ZOpCP#
SeqLabC FeedNoCan ZSPC FeedRateNoCan EOL
END
ELSE { ODApproach/IDApproach }
SeqLabC RapidC StockOnNoCan ZSPC EOL {Added C to Rapid - JHE}
SeqLabC RapidC StockOff XOpCDC EOL {Added C to Rapid - JHE}
StockOnNoCan
IF NotEqual? CycleStartX# XOpCD#
SeqLabC FeedNoCan XSPC FeedRateNoCan EOL
END
END
RETURN

AppMove:
StockOff ThisOpEntryZCP CoolOn
RETURN

Approach: { NOT FOR TAILSTOCK, .82 }
IF ApproachOD?
SeqLabC Rapid ThisOpEntryXCP AppMove EOL
ELSE
IF ApproachID?
SeqLabC Rapid XOpCD AppMove EOL
ELSE {ApproachFace}
SeqLabC Rapid StockOnNoCan XSP AppMove EOL
END
END
ApproachSP
RETURN

CheckOffset:
DoEndOpPS
IF LAST ProgStop?
SeqLabC 'M0' EOL
ELSE
IF CoolOff? AND LAST NOT CoolOff?
SeqLabC CoolOff EOL
END
IF NewGear?
SeqLabC SpinOff EOL
END
END
CSSOff
IF ConstantSurfaceFeed?
IF LAST ConstantSurfaceFeed?
IF LAST ProgStop? OR NewGear?
SeqLabC CSSOn 'G96' Speed EOL
SeqLabC Preset MaxRPM OpToolID LatheOffset SpinOn GearRange EOL
ELSE
IF NotEqual? SpeedRPM# LAST SpeedRPM#
SeqLabC CSSOn 'G96' Speed EOL
END
END
IF NotEqual? MaxRPM# LAST MaxRPM#
SeqLabC CSSOn Preset MaxRPM EOL
END
ELSE
SeqLabC CSSOn 'G96' Speed EOL
SeqLabC Preset MaxRPM SpinOn GearRange EOL
END
ELSE
IF LAST ConstantSurfaceFeed?
SeqLabC 'G97' Speed SpinOn GearRange EOL
ELSE
IF LAST ProgStop? OR NewGear?
SeqLabC 'G97' Speed EOL
SeqLabC Preset OpToolID LatheOffset SpinOn GearRange EOL
ELSE
IF NotEqual? SpeedRPM# LAST SpeedRPM#
SeqLabC 'G97' Speed SpinOn GearRange EOL
END
END
END
END
IF LAST ProgStop?
SeqLabC CoolOn EOL
ELSE
IF NewToolOffset?
SeqLabC OpToolID LatheOffset EOL
END
IF NOT CoolOff? AND LAST CoolOff?
SeqLabC CoolOn EOL
END
END
DoPostScript
RETURN

FormatArc:
IF ArcCW?
CWArc
ELSE
CCWArc
END
MoveX MoveZ
IF ArcIJFormat?
ArcIJ
ELSE
ArcR
END
RETURN

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

DoThrdTaper: {Added this sub - JHE}
IF Taper?
{ I = Taper# / (FinishZInc# * Thread#) }
'I' DIV# Taper# MUL# FinishZInc# Thread#
ELSE
'I0'
END
RETURN

ToolPath:
EACHFeat
GetToolTip
IF LastFeat?
IF Drilling?
IF Tap?
SeqLabC SpinOff EOL
{SeqLabC CoolOn EOL} {Removed - JHE}
SeqLabC 'G4I20' EOL {Changed from I2. - JHE}
SeqLabC Speed InverseSpinOn GearRange EOL
ELSE
IF Dwell?
SeqLabC 'G4I' Dwell# EOL
END
END
ELSE
IF CannedCycle?
SeqLab
END
END
END
IF PointFeat?
SeqLabC MoveSXYC EOL
ELSE
IF RapidFeat?
IF LAST ThreadFeat? {Added this check - JHE}
SeqLabC Rapid MoveXC MoveZC EOL {forcing G0 - JHE}
ELSE
SeqLabC RapidC MoveXC MoveZC EOL {Added C to Rapid - JHE}
END
ELSE
IF LineFeat?
IF Rapid?
{SeqLabC 'G5' EOL} {Removed LookAhead Code - JHE}
END
SeqLabC CkCRC FeedC MoveXC MoveZC FeedRateC EOL {Added C to Feed - JHE}
ELSE
IF ArcFeat?
IF Rapid?
{SeqLabC 'G5' EOL} {Removed LookAhead Code - JHE}
END
EACHQuadrant { Do not use NOT, LAST, FIRST or NEXT modifiers in this loop }
SeqLabC FormatArc FeedRateC EOL
NEXTQuadrant
ELSE
IF ThreadFeat? {Changed thrd taper - JHE}
SeqLabC 'G33' MoveXC MoveZC DoThrdTaper {XTapAtZ} ThrdLead EOL
END
END
END
END
END
NEXTFeat
RETURN

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

{setup and initializations}
InitProg
SetAbs
XsAreRadii
PosSideLathe
StandardXZArcs
SetMaxRPM('2000') {Changed from 3000 - JHE}
IF Metric?
SetMaxFeed('2540')
ELSE
SetMaxFeed('100')
END
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
END
EachOp {Start of post processing *********************}
GetLCycle
IF FirstOperation?
IF UseComments?
IF ProgramNameComment?
'( ' ProgramName$ ' )' EOL
END
IF ProgramComment?
'( ' ProgramComment$ ' )' EOL
END
IF FormatNameComment?
'( FORMAT: ' FormatName$ ' )' EOL
END
IF TimeComment?
'( ' Date$ ' AT ' Time$ ' )' EOL
END
IF MovesComment?
'( OUTPUT IN ABSOLUTE INCHES )' EOL {Changed to INCHES - JHE}
END
END
RestoreScale
OpenSub
StockOff {.71.2}
SetHome
DoOpComments
DoPostScript
Plane
SeqLab 'G99' EOL {Added this line, Inch Mode - JHE}
SeqLabC 'G95' CoolOn EOL {Added CoolOn (G95 = IPR Mode) - JHE}
IF ConstantSurfaceFeed?
SeqLabC CSSOn 'G96' Speed EOL {Removed MaxRPM added Speed - JHE}
ELSE
SeqLabC CSSOff 'G97' Speed EOL {Added Speed - JHE}
END
SeqLabC Preset Home 'I0K0' FeedRate MaxRPM {Added - JHE}
OpToolID LatheOffset SpinOn GearRange EOL
{SeqLabC Preset 'X' ToolOffsetXRadius# 'Z' ToolOffsetZ# 'I0K0' {Removed - JHE}
FeedRate Speed OpToolID LatheOffset SpinOn GearRange EOL}
ckTurret
Approach
ELSE
IF NewTool?

{Finish off last Operation}

StockOff {.62}
CRCOffC
IF LAST ApproachOD?
SeqLabC RapidC LAST OpExitXCPC EOL {Added C to Rapid - JHE}
ELSE
IF LAST ApproachID?
SeqLabC RapidC LAST XOpECDC EOL {Added C to Rapid - JHE}
END
END
SeqLabC RapidC LAST OpExitZCPC CoolOff EOL {Added C to Rapid & CoolOff - JHE}
ResetTurret
{SeqLabC Rapid 'X' TurretX# 'Z' TurretZ#} {Removed - JHE}
IF LAST ProgStop?
SeqLabC 'M0' EOL
ELSE
SeqLabC ProgStop EOL
END

{Start new Operation}

DoOpComments
DoPostScript
SeqLab 'G99' EOL {Added this line, Inch Mode - JHE}
SeqLabC 'G95' CoolOn EOL {Added this line, IPR Mode - JHE}
IF ConstantSurfaceFeed? {Added next 5 lines - JHE}
SeqLabC CSSOn 'G96' Speed EOL
ELSE
SeqLabC CSSOff 'G97' Speed EOL
END
{IF ConstantSurfaceFeed? {Removed next 9 lines - JHE}
IF LAST NOT ConstantSurfaceFeed?
SeqLabC CSSOn 'G96' MaxRPM EOL
END
ELSE
IF LAST ConstantSurfaceFeed?
SeqLabC CSSOff 'G97' EOL
END
END}
SeqLabC Preset Home 'I0K0' FeedRate MaxRPM {Added - JHE}
OpToolID LatheOffset SpinOn GearRange EOL
{SeqLabC Preset 'X' ToolOffsetXRadius# 'Z' ToolOffsetZ# 'I0K0' {Removed - JHE}
FeedRate Speed OpToolID LatheOffset SpinOn GearRange EOL}
ckTurret
Approach
ELSE
IF SameTool? {.62}

{Start new Operation}

StockOff
DoOpComments
IF LAST StraightConnect?
CheckOffset
CRCOffC
SeqLabC RapidC StockOnNoCan XSPC ZSPC EOL {Added C to Rapid - JHE}
ELSE
CRCOffC
IF ApproachOD?
IF LAST ApproachOD?
SeqLabC RapidC LAST XOpECDC EOL {Added C to Rapid - JHE}
ELSE {around}
IF LAST ApproachID?
SeqLabC RapidC LAST XOpECDC EOL {Added C to Rapid - JHE}
END
SeqLabC RapidC LAST OpExitZCPC EOL {Added C to Rapid - JHE}
SeqLabC RapidC LAST OpExitXCPC EOL {Added C to Rapid - JHE}
END
ELSE
IF ApproachID?
IF LAST ApproachID?
SeqLabC RapidC LAST XOpECDC EOL {Added C to Rapid - JHE}
ELSE
IF LAST ApproachOD? {around}
SeqLabC RapidC LAST OpExitXCPC EOL {Added C to Rapid - JHE}
END
SeqLabC RapidC LAST OpExitZCPC EOL {Added C to Rapid - JHE}
SeqLabC RapidC XOpCDC EOL {Added C to Rapid - JHE}
END
ELSE {ApproachFace}
IF LAST ApproachFace?
SeqLabC RapidC LAST ZOpECPC EOL {Added C to Rapid - JHE}
ELSE
IF LAST ApproachOD? {around}
SeqLabC RapidC LAST OpExitXCPC EOL {Added C to Rapid - JHE}
ELSE {LAST ApproachID}
SeqLabC RapidC LAST XOpECDC EOL {Added C to Rapid - JHE}
END
SeqLabC RapidC LAST OpExitZCPC EOL {Added C to Rapid - JHE}
END
END
END
CheckOffset
ApproachSP
END
END
END
END {common point for all operations}
IF CannedCycle?
StockOff
IF Roughing?
IF RoughContour?
{Added this warning and new cycle support - JHE}
' ' EOL
'( warning: the machine cuts is only parallel to the z-axis ! ) ' EOL
'( it is not as rendering the part shows ! ) ' EOL
' ' EOL
StockOn
SetPass1
SeqLabC 'G84'
EachFeat
IF LineFeat?
IF LAST RapidFeat?
SeqLabC 'X' SPX# 'Z' SPZ# 'I' EPX# 'K' EPZ# EOL
END
END
NextFeat
{TagInc {Removed - JHE}
SetPass2
SeqLabC LCycle
IF ApproachFace?
'Xł' Tag# CutDepth
ELSE
CutDepth 'Zł' Tag#
END
XStkLeft ZStkLeft EOL
OpenSub
DoSubComment
'>' Tag# EOL
SeqLab 'G50' EOL
SeqLabC StepMove StrtPos EOL
ToolPath
SeqLabC 'G51' EOL
CloseSub
IF AutoFinish?
IF ApproachFace?
SeqLabC LCycle 'Xł' Tag# EOL
ELSE
SeqLabC LCycle 'Zł' Tag# EOL
END
END }
END
ELSE
IF Threading?
SetPass1
SeqLabC LCycle 'X' FirstMoveEPX# FinZ XTapAtZ ThrdLead EOL
IF Taper? {Added this warning - JHE}
' ' EOL
'( warning: do not use taper thread with canned cycles ! ) ' EOL
' ' EOL
END
EachFeat
IF ThreadFeat?
TrackXNO# FirstMoveEPX#
SeqLabC MoveSXC EOL
END
NextFeat
ELSE
IF Drilling?
IF Tap?
SeqLabC LCycle ZDepth 'I0K' FeedIPR# EOL
SeqLabC SpinOff EOL
{SeqLabC CoolOn EOL} {Removed - JHE}
SeqLabC 'G4I20' EOL {Changed from I2. - JHE}
SeqLabC Speed InverseSpinOn GearRange EOL
SeqLabC LCycle ZSP 'I0K' FeedIPR# EOL
END
END
END
END
ELSE
StockOn
SetPass1
ToolPath
IF AutoFinish? { .82.1c }
StockOff
IF Turning?
IF ApproachFace?
SeqLabC RapidC ZOpECPC EOL {Added C to Rapid - JHE}
ELSE
SeqLabC RapidC XOpECDC EOL {Added C to Rapid - JHE}
END
ApproachSP
SeqLabC RapidC StockOff StrtPosC EOL {Added C to Rapid - JHE}
ToolPath
ELSE
IF Roughing? AND NOT RoughSimple?
SetPass2
SeqLabC RapidC XSPC ZSPC EOL {Added C to Rapid - JHE}
SeqLabC RapidC StockOff StrtPosC EOL {Added C to Rapid - JHE}
ToolPath
SetPass1
ELSE
IF Threading?
IF Metric?
SeqLabC 'X' MUL# Num#('1') ADD# FinishXRadius# Taper# EOL
ELSE
SetScale('1')
SeqLabC 'X' MUL# Num#('25.4') ADD# FinishXRadius# Taper# EOL
RestoreScale
END
SeqLabC 'G33'
IF Taper?
XatFinZ
END
FinZ XTapAtZ ThrdLead EOL
SeqLabC Rapid XSP EOL
SeqLabC RapidC ZSP EOL {Added C to Rapid - JHE}
END
END
END
END
END
IF Drilling? AND Tap?
SeqLabC SpinOff EOL
{SeqLabC CoolOn EOL} {Removed - JHE}
SeqLabC 'G4I20' EOL {Changed from I2. - JHE}
SeqLabC Speed SpinOn GearRange EOL
END
NextOp {loops back to EachOP until last Operation}

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

{finish last operation}
StockOff
CRCOffC
IF ApproachOD?
SeqLabC RapidC OpExitXCPC EOL {Added C to Rapid - JHE}
ELSE
IF ApproachID?
SeqLabC RapidC XOpECDC EOL {Added C to Rapid - JHE}
END
END
SeqLabC RapidC OpExitZCPC CoolOff EOL {Added C to Rapid & CoolOff - JHE}
DoEndOpPS
{SeqLabC CoolOff EOL} {Moved to Z motion - JHE}
ResetTurret
{SeqLabC Rapid 'X' FIRST TurretX# 'Z' FIRST TurretZ#} {Removed - JHE}
IF ProgStop?
SeqLabC 'M0' EOL
END
SeqLabC EOP EOL
CloseSub
Post2 {organize Subs into one program}
Close
Retag
IF UseComments?
SetScale('1') {restore scale for comments}
Reopen
IF FileBytesComment?
'( FILE LENGTH: ' FileBytes# ' CHARACTERS )' EOL
END
IF FileFeetComment?
'( FILE LENGTH: ' FileFeet# ' FEET )' EOL
END
IF FileMetersComment?
'( FILE LENGTH: ' FileMeters# ' METERS )' EOL
END
Close
END