// -----------------------------------------------------------
//
//             !! P L E A S E   R E A D   T H I S !!
//
//    This is a sample code generator built to
//    generate code for the Machine/Control combination
//    named below.  Due to differences in programming
//    style, controller versions, and optional equipment
//    McKenzie River Software can not guarantee that the
//    code generated is correct for your machine.
//
//    It is YOUR responsibility to verify that the code
//    created by this Code Generator will not cause a
//    machine malfunction which could result in scrap
//    and/or personal injury.
//
//    McKenzie River Software assumes no responsibility
//    or liability for any damage caused or alleged to be
//    caused by the use of this Code Generator.
//
// -----------------------------------------------------------

//    Amada LASMAC
//    Fanuc OL or equivalent control

@DECLARE
#INT #pierce_power
#INT #pierce_freq
#INT #pierce_pulse
#INT #pierce_duty
#DEC #pierce_time
#DEC #dwellsec
#INT #pierce_gas
#INT #cut_power
#INT #cut_freq
#INT #cut_pulse
#INT #cut_duty
#INT #cut_gas
#INT #cut_feed
@

@VARSET
#EVAL(#pierce_power=jos(pierce_power))
#EVAL(#pierce_freq=jos(pierce_freq))
#EVAL(#cut_power=jos(cut_power))
#EVAL(#cut_freq=jos(cut_freq))
#EVAL(#dwellsec=jos(dwellsec))
#EVAL(#pierce_pulse=#TABLE(PULSE,jos(pierce_pulse)))
#EVAL(#cut_pulse=#TABLE(PULSE,jos(cut_pulse)))
#EVAL(#pierce_duty=jos(pierce_duty))
#EVAL(#cut_duty=jos(cut_duty))
#EVAL(#cut_feed=jos(cut_feed))
#EVAL(#pierce_gas=#TABLE(GAS,jos(pierce_gas)))
#EVAL(#cut_gas=#TABLE(GAS,jos(cut_gas)))
#EVAL(#pierce_time=jos(pierce_time))
@

@START
#CALL(VARSET)
 %
 O0000
#OFFBLK
 G90 G92 X72 Y60 Z9.85
 G65 P9100 S#pierce_power B#pierce_freq H#pierce_pulse C#pierce_duty J#pierce_time I#pierce_gas W#cut_power T#cut_freq Q#cut_pulse U#cut_duty I#cut_gas J#dwellsec
 G65 P9101 Z1
 G93 X0 Y0 Z#PTOP
@

@END
 G170
 M30
 %<RETURN>
@

@STPROF
< #ABSI>< #DCOMP#EXC D#LOFF> #MOV< X#XPOS>< Y#YPOS>
 Z0
 M98 P100
@

@ENDPROF
 M61
 #MOV Z#CLEAR
< #DCOMP>
@

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

@LINE
< #MOV>< X#XPOS>< Y#YPOS>< F#cut_feed>
@

@ARC
< #MOV> X#XPOS Y#YPOS I#XCTR J#YCTR< F#cut_feed>
@

@DWELL
 G04 P#DWELL
@

@TRAPDOOR
 M88
 M89
@

@REPO
 G70< #MOV> X#XPOS Y#YPOS
 G125 X#REPO
@

@GAS
0, 63
1, 68
2, 65
3, 66
4, 67
5, 64
@

@PULSE
0, 90
1, 91
2, 92
3, 93
@