//    ----------------------------------------
//    
//    The following SmartCAM code generator has been 
//    created to generate NC code for the respective 
//    machine and control combinations listed below. 
//    
//    Due to differences in programming styles, 
//    controller versions, and optional equipment, 
//    SmartCAMcnc DOES NOT and CANNOT guarantee
//    that the NC code generated is correct for any 
//    specific machine. Some modification to the code 
//    generator to match your setup and output 
//    requirements is likely necessary. 
//    
//    Modifications to code generators do not TYPICALLY
//    require a significant amount of time. SmartCAM 
//    customers with active SMA contracts are entitled 
//    to support for their code generators from the 
//    SmartCAMcnc Support Group. To contact them for 
//    support, please send an email to: 
//    Support@SmartCAMcnc.com. If you would like 
//    information on purchasing SMA for your SmartCAM 
//    products, please contact: Sales@SmartCAMcnc.com
//    
//    DISCLAIMER: It is the responsibility of the end 
//    user to confirm and verify that the NC code 
//    created by any code generator is accurate and 
//    will not cause a machine malfunction which 
//    could result in stock, tooling, machine, and/or 
//    personal injury. 
//    
//    SmartCAMcnc assumes no responsibility or 
//    liability for any damage caused or alleged to 
//    have been caused by the use of any of the code 
//    generators it provides.
//    ----------------------------------------

@COMMENTS

08/16/89

Machine Type:	Wells-Index Model 820 CNC Vertical Milling Machine
Control Type:	Sharnoa CNC741CTP (Tiger 3)

@START
%%
#ONBLK #DCOMP T#TOOL #SPNDL
#NEXTPT

@TOOLCHG
 #FXD X#XHOME Y#YHOME Z#ZHOME M6
 #DCOMP T#TOOL #SPNDL
#EVAL(#V0=0)

@END
 #FXD X#XHOME Y#YHOME Z#ZHOME M2
#OFFBLK

@STPROF
 #MOV< X#XPOS>< Y#YPOS>< Z#ZPOS>
#EVAL(#V0=1)

@RAP
< #MOV>< X#XPOS>< Y#YPOS>< Z#ZPOS>

@LINE
< #MOV>< X#XPOS>< Y#YPOS>< Z#ZPOS>< F#FEED>

@ARC
 G11< I#XCTR>< J#YCTR>< R#ARAD> C#STANG< F#FEED>#IF(#MOV=2)< E2>#ELSE< E3>
 #MOV C#EANG
#UPDATE(#XPOS,#YPOS)

@ZCLRMV
#IF(#V0=0)<#EXIT>
< #MOV#OR Z#ZPOS>

@ZCHKMV
< #MOV#OR Z#ZPOS>

@ZDPTHMV
< #MOV#OR Z#ZPOS>< F#FEED>

@FXD1
< #FXD>< X#XPOS>< Y#YPOS>< Z#ZPOS>< (1)#ZCHK>< (2)#ZDPTH>< F#FEED>
#EVAL(#V0=2)

@FXD2
< #FXD>< X#XPOS>< Y#YPOS>< Z#ZPOS>< (1)#ZCHK>< (2)#ZDPTH>< F#FEED> D#DWELL
#EVAL(#V0=2)

@FXD3
< #FXD>< X#XPOS>< Y#YPOS>< Z#ZPOS>< (1)#ZCHK>< (2)#ZDPTH>< F#FEED>
#EVAL(#V0=2)

@FXD4
< #FXD>< X#XPOS>< Y#YPOS>< Z#ZPOS>< (1)#ZCHK>< (2)#ZDPTH>< F#FEED> D#DWELL
#EVAL(#V0=2)

@FXD5
#EVAL(#V1=ABS(#ZDPTH))
#EVAL(#V1=#V1/#PECK)
#EVAL(#U0=#V1)
< #FXD>< X#XPOS>< Y#YPOS>< Z#ZPOS>#EXLN
< (1)#ZCHK>< (2)#ZDPTH> D#DWELL E#U0< F#FEED>
#EVAL(#V0=2)

@DWELL
 D#DWELL
@