;INTEST ;Cod=0001 ;Spes=4.000 ;DimX=3210.000 ;DimY=2248.000 ;Tipo=0 ;Qta=1 ;----------------------- ;STARTC ;Line 1_26.000_25.000_1529.000_25.000 ;Line 1_1530.000_1.000_1530.000_2247.000 ;Line 1_1529.000_1661.000_1.000_1661.000 ;Line 1_25.000_2247.000_25.000_1.000 ;Line 1_26.000_843.000_1529.000_843.000 N1 ; Project : 3_04FL N2 (IF,E263=2) N3 E290=4571.344 N4 (ENDIF) N5 ERR=1 N6 (CLO) N7 (IF,E263=0) N8 (OPN,1,?!F(40).28CH,B,W) N9 E82=0 N10 E83=0 N11 E84=0 N12 E90=0 N13 E85=0 N14 E86=0 N15 E89=0 N16 E91=10 N17 E290=4571.344 N18 E291=10000 N19 (WRT,1,R1,"COD_LAST",E89,E290,E291,E91,"0",E82,E83,E84,E90,E85,E86) N20 E82=1 N21 E83=0 N22 E84=1 N23 E90=0 N24 E85=0 N25 E86=0 N26 E89=1 N27 E91=4 N28 E290=3210 N29 E291=2248 N30 (WRT,1,R2,"Sch_0001",E89,E290,E291,E91,"0",E82,E83,E84,E90,E85,E86) N31 (CLO) N32 (ENDIF) N33 (IF,E263=1) N34 E339=0 N35 #@LEGGIUNIT=1 N36 (WOS,@LEGGIUNIT=0) "FOXINT" N37 N38 E103=12 N39 (TCP,2) N40 (WOS,@SK3907BL=0) N41 (IF,E339=0) N42 G71 N43 (ELSE) N44 G70 N45 (ENDIF) N46 E93=1 N47 (UAO,0) N48 (ROT,0) N49 (CLS,E:\INTERMAC\TESTMAC.S10) N50 (GTO,ERRORE,E131<>0) N51 (IF,E152=0) N52 (IF,@SK3904BL=0) N53 E287=1 N54 (ELSE) N55 E287=E287-1 N56 (ENDIF) N57 (ELSE) N58 E287=E287-1 N59 (ENDIF) "FOXGES" N60 N61 (OPN,5,?!F(40).28CH,B,R) "FOXGE1" N62 N63 E287=E287+1 N64 STE=0 N65 (REA,5,RE287,!F(0).8CH,E89,E290,E291,E91,!F(35).CH,E82,E83,E84,E90,E85,E86) N66 (GTO,ENDPRG,STE=33) N67 E262=E89 N68 (GTO,FOXGE2,@SK3904BL>0) N69 (GTO,FOXGE1,E83>=E82) N70 (GTO,FOXGE1,E84<=0) "FOXGE2" N71 N72 (CLO,5) N73 (SCR,4) N74 !F(200).8CH = !F(0).8CH N75 E297=E91 N76 E292=E290 N77 E293=E291 N78 (CLS,E:\INTERMAC\FOXPAG.S10) "FOXCAL" N79 N80 (CLS,E:\INTERMAC\START.S10) N81 (GTO,L00001,E262=1) "L00001" N82 N83 (GTO,000101,E155=0025) N84 (GTO,ENDPRG,E155>0) "000101" N85 N86 E11=0025 N87 G0G90 N88 (IF,L34>0) N89 (CLS,E:\INTERMAC\PTOOL.S10) N90 (GTO,ENDPRG,E131<>0) N91 (TCP) N92 M6TE11 N93 (TCP,2) N94 (CLS,E:\INTERMAC\TOOL.S10) N95 (ELSE) N96 E20=L51 N97 (ENDIF) N98 (IF,E339=1) N99 E20=E20/25.4 N100 (ENDIF) N101 FE20 N102 (EPP,T_SU,ENDS) N103 G0 X26.00Y25.00C0.001 N104 (EPP,T_GIU,ENDG) N105 G1 X1529.00Y25.00 N106 (EPP,T_SU,ENDS) N107 G0 X1530.00Y1.00C90.000 N108 (EPP,T_GIU,ENDG) N109 G1 X1530.00Y2247.00 N110 (EPP,T_SU,ENDS) N111 G0 X1529.00Y1661.00C180.000 N112 (EPP,T_GIU,ENDG) N113 G1 X1.00Y1661.00 N114 (EPP,T_SU,ENDS) N115 G0 X25.00Y2247.00C270.000 N116 (EPP,T_GIU,ENDG) N117 G1 X25.00Y1.00 N118 (EPP,T_SU,ENDS) N119 G0 X26.00Y843.00C0.001 N120 (EPP,T_GIU,ENDG) N121 G1 X1529.00Y843.00 N122 (EPP,T_SU,ENDS) N123 (CLS,E:\INTERMAC\FTOOL.S10) N124 (GTO,ENDPRG,E155<>0) N125 (GTO,FOXOUT) "FOXOUT" N126 N127 (CLS,E:\INTERMAC\REP) N128 E298=TIM-E298 N129 E298=INT(E298) N130 E224=E298 ;tempo totale in secondi N131 E70=INT(E298/60) N132 E298=E298-E70*60 ;secondi N133 E71=INT(E70/60) ;ore N134 E70=E70-E71*60 ;minuti N135 (OPN,5,?!F(40).28CH,B,R) N136 (REA,5,RE287,!F(0).8CH,E89,E290,E291,E91,!F(35).CH,E82,E83,E84,E90,E85,E86) N137 (CLO) N138 E86=E86+E298 N139 (IF,E86>59) N140 E86=E86-60 N141 E85=E85+1 N142 (ENDIF) N143 E85=E85+E70 N144 (IF,E85>59) N145 E85=E85-60 N146 E90=E90+1 N147 (ENDIF) N148 E90=E90+E71 N149 (IF,!F(35).CH="1") N150 (IF,E154=-1) N151 E83=E83+1 N152 (ENDIF) N153 (ELSE) N154 E83=E83+1 N155 (ENDIF) N156 (IF,@SK3904BL=0) N157 (OPN,5,?!F(40).28CH,B,W) N158 (WRT,5,RE287,!F(0).8CH,E89,E290,E291,E91,!F(35).CH,E82,E83,E84,E90,E85,E86) N159 (CLO) N160 (ENDIF) N161 E288=INT((E287-2)/10) N162 E274=5+(E287-(E288*10)) N163 (OUT,4,E274,54,1,6," ") N164 (OUT,4,E274,68,1,6," ") N165 @EL=E83 N166 @H=E90 N167 @M=E85 N168 @S=E86 N169 @SI=INT(E91) N170 @SD=INT((E91-@SI)*10.01) N171 @XI=INT(E290) N172 @XD=INT((E290-@XI)*100.01) N173 @YI=INT(E291) N174 @YD=INT((E291-@YI)*100.01) N175 (IF,@EL>9) N176 (OUT,4,E274,56,1,6,@EL) N177 (ELSE) N178 (OUT,4,E274,57,1,6,@EL) N179 (ENDIF) N180 (IF,@H>9) N181 (OUT,4,E274,69,1,6,@H,":") N182 (ELSE) N183 (OUT,4,E274,70,1,6,@H,":") N184 (ENDIF) N185 (IF,@M>9) N186 (OUT,4,E274,72,1,6,@M,":") N187 (ELSE) N188 (OUT,4,E274,73,1,6,@M,":") N189 (ENDIF) N190 (IF,@S>9) N191 (OUT,4,E274,75,1,6,@S) N192 (ELSE) N193 (OUT,4,E274,76,1,6,@S) N194 (ENDIF) N195 @SK7692BL=1 N196 @SK7696BL=1 N197 @SK970=0 N198 E287=E287-1 N199 (EPP,PARK_I,PARK_E) N200 (GTO,FOXCAL,E82