<PRG_C_1>
(TEST TORNITURA MULTI_TORRETTA 2012)

(SET VARIABL. START)
(X HOME POSITION)
#650=519
(Z HOME POSITION)
#651=250
(SAFE AND BAR-HEAD)
(CUT OFF TOOL)
#655=1212
(FINAL CUT OFF TOOL)
#656=1212
(CUT OFF SPEED G96)
#657=200
(CUT OFF FEED G95)
#658=0.25
(APPR. SAFETY DIST.)
#652=2
(BAR FEEDER UNLOAD)
#659=0
(=0 FROM BACK)
(=1 TO THE FRONT)
(IF TO THE FRONT)
(WHAT S THE AMOUNTH)
(OF PARTS AFTER THE)
(DRAWER IS FULL)
#649=10
M98<G_VAR>
(AUTOMATIC CALCUL)
(REST OF LENGTH)
#682=[#606-#680]
(FEED AT END MARK)
#699=0
(TOOL NUM. MEMORY)
#998=0
G52Z0
T0
G0X#650
G0Z#651
M101P1234
IF[#701NE1]GOTO2
IF[#702EQ0]GOTO2
(SAFE CUT OFF OPER.)
G52Z#603
G92S3000
T#655E99M8
#998=#4120
G308P11
G95F#658
G96S#657M3P11
G0Z-[#606+#604+#609]
G0X[#608+#652]

G1X3
X-1F0.05
M5P11

N1(LOOP BLOCK)
#500=#3001
#3001=0
G52Z#603
IF[#701NE1]GOTO2
IF[#702EQ0]GOTO2
IF[#699EQ1]GOTO2
IF[#1000EQ0]GOTO2
M98<PRG_BF>
N2
M102P1234
IF[#699EQ1]GOTO3
IF[#701NE1]GOTO3
IF[#702EQ0]GOTO3
IF[#998EQ#622]GOTO22
(FERRULE=FERMOBARRA)
G91
G0Z5
G90
G53G0X#650
T#622E99
G0Z-[#606+#604+#611-#621]
X#620
G1Z-[#606+#604+#611-#623]G94F#625
GOTO1210
N22
G1Z-[#606+#604+#611-#623]G94F#625
G0X#620
N1210
G52Z[#603-#682]
/M33
/M36
M69
G4X0.25
G94G1Z#609F#625
G4X0.25
M37
G95
G4X0.1
G91
G0Z#652
G90
G0G53X#650
N3

M104P13
#702=1
G52Z[#603-#682]
(USER PROGRAM START)
N1000
M8

(TORRETTA INF SX T1)
(MANDRINO PRINCIPALE)
(FASE DI TORNITURA)
G53 X520
(------------------------)
(FINITURA-PROFILO)
(------------------------)
G308 P11
T0101 E99
G96 S100 M4 P11
G0 X94. Z2.2 
X53.13 
G1 X60. Z-1.234 F0.08 
Z-46.402 
G2 X62.066 Z-54.154 R29.6 
G1 X77.878 Z-83.291 
G3 X80. Z-91.252 R30.4 
G1 Z-150.8 
X82. 
X84.146 Z-148.653 
G0 Z2.2 
X94. 
(TORRETTA INF SX T1)
(MANDRINO PRINCIPALE)
(FASE DI TORNITURA)
G53 X520
(------------------------)
(TH-CONTOUR3)
(------------------------)
G308 P11
T0505 E99
G96 S100 M4 P11
G0 X94. Z4. 
X64. 
G76 P010060 R0.1
G76 X58.16 Z-44.002 P0.92 Q0.2 F1.5 
G0 X94. 
G53 X520

M9
N2000
(USER PROGRAM END)
(***SAFE POSITION**)
G52Z0
T0
G0X#650
G0Z#651
G52Z#603
T#656E99
#998=#4120
G308P11
G95F#658

M110P123
G92S3000
G97S30M3P11

M111P12

M112P12
G96S#657M3P11
IF[#699NE1]GOTO18
G52Z[#603+#604+#680+#609+#611]
N18
M8
G0Z-[#606+#604+#609]
G0X[#608+#652]

M650
G1X2
X-1F0.05
M651

M114P12
M18
#998=#4120

M116P12
G97S30M3P11

M118P12
IF[#681EQ1]GOTO44
IF[#701EQ1]GOTO4
N44
G52Z0
T0
G91
G0Z#652
G90
G0G53X#650
N4
M5P11
M120P1234
M1
M99P1

