'Macro for Write Engraving Screen '****** Italic Fonts ****** '******German Bravo 2004 **** ' Option Explicit '=== Declaraciones === Dim XPOS,YPOS,Top_Mat,Depth,Rapid_dis,Feed,Porcentaje,Height,ToolNum,RPM Dim X1,X2,Y1,Y2,escala,corte,Largo,Num,J,Codigo,Total,GG,GM,IJ '=== Ingresos === XPOS = GetOEMDRO(1072) YPOS = GetOEMDRO(1073) Top_Mat = GetOEMDRO(1077) Depth = Abs(GetOEMDRO(1075)) Rapid_dis = GetOEMDRO(1079) Feed = Abs(GetOEMDRO(1070)) Porcentaje = GetOEMDRO(1082) Height = Abs(GetOEMDRO(1081)) RPM =GetOEMDRO (1083) ToolNum =GetOEMDRO (1084) '=== Comprobaciones === While Feed <= 0 Feed=Question ("FeedRtae can't be zero or negative, Input a right Value:") Call SetUserDRO(1070, Feed) Wend While Porcentaje <= 0 Porcentaje=Question ("% Separation can't be zero or negative, Input a right Value:") Call SetUserDRO(1082, Porcentaje) Wend While Height = 0 Height= Question ("Height can't be zero,Input a right Value:") Call SetUserDRO(1081, Height) Wend While Rapid_dis < Top_Mat Rapid_dis=Question ("Rapid Height must be > Top Material, Input a right Value:") Call SetUserDRO(1079, Rapid_dis) Wend '=== Escala y Direccion === Escala = Height / 10 If GetUserLED(1050) Then '0° If GetUserLED(1041) Then X1 = -1*Escala X2 = 0 Y1 = 0 Y2 = Escala Else X1 = Escala X2 = 0 Y1 = 0 Y2 = Escala End If End If If GetUserLED(1051) Then '90° If GetUserLED(1041) Then X1 = 0 X2 = -1*Escala Y1 = -1*Escala Y2 = 0 Else X1 = 0 X2 = -1 * Escala Y1 = Escala Y2 = 0 End If End If If GetUserLED(1052) Then '180° If GetUserLED(1041) Then X1 = Escala X2 = 0 Y1 = 0 Y2 = -1*Escala Else X1 = -1 * Escala X2 = 0 Y1 = 0 Y2 = -1 * Escala End If End If If GetUserLED(1053) Then '270° If GetUserLED(1041) Then X1 = 0 X2 = Escala Y1 = Escala Y2 = 0 Else X1 = 0 X2 = Escala Y1 = -1 * Escala Y2 = 0 End If End If If GetUserLED(1041) Then GG="G03" GM="G02" else GG="G02" GM="G03" end If '=== G Code === OpenTeachFile "write.tap" IF GetOEMLED(73)=0 Then IJ=0 Else IJ=1 Code "M611" End If Code "G00 G49 G40 G17 G80 G50 G90 " If GetUserLED (1059) then Code"M6 T"&ToolNum 'Tool Num. End if If GetUserLED(1055)then Code "G20" ' Pulgadas Else Code"G21" ' Milimetros End if IF GetUserLED(1056) Then Code"M03 S"& RPM ' CW Else Code "M04 S"& RPM ' CCW End if IF GetUserLED(1058) Then ' Coolant Code"M08" End if If GetUserLED (1059) then Code "G00 G43 H"&ToolNum End if Corte = Top_Mat - Depth Code "G00 Z" & Rapid_dis Code "G00 G90 X" & XPOS & "Y" & YPOS Code "F" & Feed '=== Detecta Letra === Total = GetVar(1500) For J = 1 To Total Codigo = GetVar(1500 + J) '=== Escribe === Select Case Codigo Case 21 'A Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+2.227*X1 &" Y" & YPOS+2.227*Y1 Code "G01 X" & XPOS+0.8292*X1 &" Y" & YPOS+0.8292*Y1 Code "G01 X" & XPOS+7.168*X1+10*X2 &" Y" & YPOS+7.168*Y1+10*Y2 Code "G01 X" & XPOS+6.4356*X1+2.8663*X2 &" Y" & YPOS+6.4356*Y1+2.8663*Y2 Code "G01 X" & XPOS+2.6461*X1+2.8663*X2 &" Y" & YPOS+2.6461*Y1+2.8663*Y2 Code "G01 X" & XPOS+6.4356*X1+2.8663*X2 &" Y" & YPOS+6.4356*Y1+2.8663*Y2 Code "G01 X" & XPOS+6.1413*X1 &" Y" & YPOS+6.1413*Y1 Code "G01 X" & XPOS+4.8738*X1 &" Y" & YPOS+4.8738*Y1 Code "G01 X" & XPOS+6.9549*X1 &" Y" & YPOS+6.9549*Y1 Largo=6.9549 Case 35 'B Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+4.559*X1 &" Y" & YPOS+4.559*Y1 Code GM&" X" & XPOS+7.7602*X1+4.2119*X2 &" Y" & YPOS+7.7602*Y1+4.2119*Y2 &" I"& XPOS+4.558*X1+3.3232*X2 &" J"& YPOS+4.558*Y1+3.3232*Y2 Code GM&" X" & XPOS+6.5907*X1+5.2846*X2 &" Y" & YPOS+6.5907*Y1+5.2846*Y2 &" I"& XPOS+6.3158*X1+3.811*X2 &" J"& YPOS+6.3158*Y1+3.811*Y2 Code "G01 X" & XPOS+3.455*X1+5.2846*X2 &" Y" & YPOS+3.455*Y1+5.2846*Y2 Code "G01 X" & XPOS+6.5907*X1+5.2846*X2 &" Y" & YPOS+6.5907*Y1+5.2846*Y2 Code GM&" X" & XPOS+8.9276*X1+8.8817*X2 &" Y" & YPOS+8.9276*Y1+8.8817*Y2 &" I"& XPOS+6.3413*X1+8.0043*X2 &" J"& YPOS+6.3413*Y1+8.0043*Y2 Code GM&" X" & XPOS+7.3562*X1+10.0059*X2 &" Y" & YPOS+7.3562*Y1+10.0059*Y2 &" I"& XPOS+7.359*X1+8.3495*X2 &" J"& YPOS+7.359*Y1+8.3495*Y2 Code "G01 X" & XPOS+3.7643*X1+9.9997*X2 &" Y" & YPOS+3.7643*Y1+9.9997*Y2 Code "G01 X" & XPOS+5.2299*X1+9.9997*X2 &" Y" & YPOS+5.2299*Y1+9.9997*Y2 Code "G01 X" & XPOS+1.4656*X1+-0.0001*X2 &" Y" & YPOS+1.4656*Y1+-0.0001*Y2 Largo=7 Case 33 'C Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.691*X1+1.0165*X2 &" Y" & YPOS+5.691*Y1+1.0165*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.9977*X1+0.0418*X2 &" Y" & YPOS+3.9977*Y1+0.0418*Y2 &" I"& XPOS+4.0095*X1+1.9799*X2 &" J"& YPOS+4.0095*Y1+1.9799*Y2 Code GG&" X" & XPOS+1.6789*X1+2.1166*X2 &" Y" & YPOS+1.6789*Y1+2.1166*Y2 &" I"& XPOS+4.0119*X1+2.3909*X2 &" J"& YPOS+4.0119*Y1+2.3909*Y2 Code GG&" X" & XPOS+4.3029*X1+8.8595*X2 &" Y" & YPOS+4.3029*Y1+8.8595*Y2 &" I"& XPOS+9.3397*X1+3.0175*X2 &" J"& YPOS+9.3397*Y1+3.0175*Y2 Code GG&" X" & XPOS+6.2556*X1+9.9579*X2 &" Y" & YPOS+6.2556*Y1+9.9579*Y2 &" I"& XPOS+8.0008*X1+4.5705*X2 &" J"& YPOS+8.0008*Y1+4.5705*Y2 Code GG&" X" & XPOS+8.0064*X1+9.0876*X2 &" Y" & YPOS+8.0064*Y1+9.0876*Y2 &" I"& XPOS+6.6863*X1+8.6282*X2 &" J"& YPOS+6.6863*Y1+8.6282*Y2 Code GG&" X" & XPOS+8.0007*X1+7.9112*X2 &" Y" & YPOS+8.0007*Y1+7.9112*Y2 &" I"& XPOS+6.3396*X1+8.5075*X2 &" J"& YPOS+6.3396*Y1+8.5075*Y2 Code "G01 X" & XPOS+8.7827*X1+9.9886*X2 &" Y" & YPOS+8.7827*Y1+9.9886*Y2 Code "G01 X" & XPOS+7.7178*X1+7.1598*X2 &" Y" & YPOS+7.7178*Y1+7.1598*Y2 Largo=5.2 Case 23 'D Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+3.4401*X1 &" Y" & YPOS+3.4401*Y1 Code GM&" X" & XPOS+6.4216*X1+1.4481*X2 &" Y" & YPOS+6.4216*Y1+1.4481*Y2 &" I"& XPOS+3.4232*X1+3.8283*X2 &" J"& YPOS+3.4232*Y1+3.8283*Y2 Code GM&" X" & XPOS+8.7182*X1+6.3976*X2 &" Y" & YPOS+8.7182*Y1+6.3976*Y2 &" I"& XPOS-2.6982*X1+8.6873*X2 &" J"& YPOS-2.6982*Y1+8.6873*Y2 Code GM&" X" & XPOS+8.1945*X1+9.0899*X2 &" Y" & YPOS+8.1945*Y1+9.0899*Y2 &" I"& XPOS+5.1818*X1+7.1069*X2 &" J"& YPOS+5.1818*Y1+7.1069*Y2 Code GM&" X" & XPOS+6.55*X1+9.9827*X2 &" Y" & YPOS+6.55*Y1+9.9827*Y2 &" I"& XPOS+6.5379*X1+7.9994*X2 &" J"& YPOS+6.5379*Y1+7.9994*Y2 Code "G01 X" & XPOS+3.7369*X1+9.9999*X2 &" Y" & YPOS+3.7369*Y1+9.9999*Y2 Code "G01 X" & XPOS+5.3244*X1+9.9999*X2 &" Y" & YPOS+5.3244*Y1+9.9999*Y2 Code "G01 X" & XPOS+1.5601*X1 &" Y" & YPOS+1.5601*Y1 Largo=6.6 Case 13 'E Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+9.0118*X1+2.5338*X2 &" Y" & YPOS+9.0118*Y1+2.5338*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+7.8559*X1 &" Y" & YPOS+7.8559*Y1 Code "G01 X" & XPOS+0.7864*X1 &" Y" & YPOS+0.7864*Y1 Code "G01 X" & XPOS+2.3545*X1 &" Y" & YPOS+2.3545*Y1 Code "G01 X" & XPOS+4.3332*X1+5.2563*X2 &" Y" & YPOS+4.3332*Y1+5.2563*Y2 Code "G01 X" & XPOS+7.856*X1+5.2563*X2 &" Y" & YPOS+7.856*Y1+5.2563*Y2 Code "G01 X" & XPOS+7.465*X1+4.2182*X2 &" Y" & YPOS+7.465*Y1+4.2182*Y2 Code "G01 X" & XPOS+8.2666*X1+6.3531*X2 &" Y" & YPOS+8.2666*Y1+6.3531*Y2 Code "G01 X" & XPOS+7.856*X1+5.2563*X2 &" Y" & YPOS+7.856*Y1+5.2563*Y2 Code "G01 X" & XPOS+4.3333*X1+5.2563*X2 &" Y" & YPOS+4.3333*Y1+5.2563*Y2 Code "G01 X" & XPOS+6.119*X1+9.9999*X2 &" Y" & YPOS+6.119*Y1+9.9999*Y2 Code "G01 X" & XPOS+4.5395*X1+9.9974*X2 &" Y" & YPOS+4.5395*Y1+9.9974*Y2 Code "G01 X" & XPOS+11.2244*X1+9.9974*X2 &" Y" & YPOS+11.2244*Y1+9.9974*Y2 Code "G01 X" & XPOS+10.4887*X1+7.2754*X2 &" Y" & YPOS+10.4887*Y1+7.2754*Y2 Largo=7.85 Case 24 'F Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+3.1997*X1 &" Y" & YPOS+3.1997*Y1 Code "G01 X" & XPOS+1.5936*X1 &" Y" & YPOS+1.5936*Y1 Code "G01 X" & XPOS+3.5723*X1+5.2563*X2 &" Y" & YPOS+3.5723*Y1+5.2563*Y2 Code "G01 X" & XPOS+7.2495*X1+5.2563*X2 &" Y" & YPOS+7.2495*Y1+5.2563*Y2 Code "G01 X" & XPOS+6.7682*X1+3.9749*X2 &" Y" & YPOS+6.7682*Y1+3.9749*Y2 Code "G01 X" & XPOS+7.7479*X1+6.6228*X2 &" Y" & YPOS+7.7479*Y1+6.6228*Y2 Code "G01 X" & XPOS+7.2495*X1+5.2564*X2 &" Y" & YPOS+7.2495*Y1+5.2564*Y2 Code "G01 X" & XPOS+3.5723*X1+5.2564*X2 &" Y" & YPOS+3.5723*Y1+5.2564*Y2 Code "G01 X" & XPOS+5.358*X1+10*X2 &" Y" & YPOS+5.358*Y1+10*Y2 Code "G01 X" & XPOS+3.7842*X1+9.9975*X2 &" Y" & YPOS+3.7842*Y1+9.9975*Y2 Code "G01 X" & XPOS+10.4758*X1+9.9975*X2 &" Y" & YPOS+10.4758*Y1+9.9975*Y2 Code "G01 X" & XPOS+9.7401*X1+7.2755*X2 &" Y" & YPOS+9.7401*Y1+7.2755*Y2 Largo=7.2 Case 25 'G Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.8535*X1+3.547*X2 &" Y" & YPOS+3.8535*Y1+3.547*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+6.9854*X1+3.547*X2 &" Y" & YPOS+6.9854*Y1+3.547*Y2 Code GG&" X" & XPOS+5.7453*X1+0.8898*X2 &" Y" & YPOS+5.7453*Y1+0.8898*Y2 &" I"& XPOS+0.7669*X1+4.8312*X2 &" J"& YPOS+0.7669*Y1+4.8312*Y2 Code GG&" X" & XPOS+2.2646*X1+0.5845*X2 &" Y" & YPOS+2.2646*Y1+0.5845*Y2 &" I"& XPOS+3.8607*X1+2.3819*X2 &" J"& YPOS+3.8607*Y1+2.3819*Y2 Code GG&" X" & XPOS+1.4707*X1+2.447*X2 &" Y" & YPOS+1.4707*Y1+2.447*Y2 &" I"& XPOS+3.8369*X1+2.3551*X2 &" J"& YPOS+3.8369*Y1+2.3551*Y2 Code GG&" X" & XPOS+3.5775*X1+8.4314*X2 &" Y" & YPOS+3.5775*Y1+8.4314*Y2 &" I"& XPOS+12.2085*X1+2.0299*X2 &" J"& YPOS+12.2085*Y1+2.0299*Y2 Code GG&" X" & XPOS+5.3484*X1+9.958*X2 &" Y" & YPOS+5.3484*Y1+9.958*Y2 &" I"& XPOS+7.8576*X1+5.2569*X2 &" J"& YPOS+7.8576*Y1+5.2569*Y2 Code GG&" X" & XPOS+7.4246*X1+9.7748*X2 &" Y" & YPOS+7.4246*Y1+9.7748*Y2 &" I"& XPOS+6.2462*X1+8.276*X2 &" J"& YPOS+6.2462*Y1+8.276*Y2 Code GG&" X" & XPOS+7.98*X1+7.9162*X2 &" Y" & YPOS+7.98*Y1+7.9162*Y2 &" I"& XPOS+6.3843*X1+8.4517*X2 &" J"& YPOS+6.3843*Y1+8.4517*Y2 Code "G01 X" & XPOS+7.7437*X1+7.2396*X2 &" Y" & YPOS+7.7437*Y1+7.2396*Y2 Code "G01 X" & XPOS+8.5367*X1+9.4321*X2 &" Y" & YPOS+8.5367*Y1+9.4321*Y2 Largo=5.8 Case 26 'H Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+2.25*X1 &" Y" & YPOS+2.25*Y1 Code "G01 X" & XPOS+1.1031*X1 &" Y" & YPOS+1.1031*Y1 Code "G01 X" & XPOS+4.8674*X1+10*X2 &" Y" & YPOS+4.8674*Y1+10*Y2 Code "G01 X" & XPOS+3.64*X1+10*X2 &" Y" & YPOS+3.64*Y1+10*Y2 Code "G01 X" & XPOS+5.89*X1+10*X2 &" Y" & YPOS+5.89*Y1+10*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+8.59*X1+10*X2 &" Y" & YPOS+8.59*Y1+10*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+10.84*X1+10*X2 &" Y" & YPOS+10.84*Y1+10*Y2 Code "G01 X" & XPOS+9.7937*X1+10*X2 &" Y" & YPOS+9.7937*Y1+10*Y2 Code "G01 X" & XPOS+8.0276*X1+5.3082*X2 &" Y" & YPOS+8.0276*Y1+5.3082*Y2 Code "G01 X" & XPOS+3.1013*X1+5.3082*X2 &" Y" & YPOS+3.1013*Y1+5.3082*Y2 Code "G01 X" & XPOS+8.0276*X1+5.3082*X2 &" Y" & YPOS+8.0276*Y1+5.3082*Y2 Code "G01 X" & XPOS+6.0294*X1 &" Y" & YPOS+6.0294*Y1 Code "G01 X" & XPOS+4.89*X1 &" Y" & YPOS+4.89*Y1 Code "G01 X" & XPOS+7.14*X1 &" Y" & YPOS+7.14*Y1 Largo=7.2 Case 18 'I Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+2.25*X1 &" Y" & YPOS+2.25*Y1 Code "G01 X" & XPOS+1.1313*X1 &" Y" & YPOS+1.1313*Y1 Code "G01 X" & XPOS+4.8956*X1+10*X2 &" Y" & YPOS+4.8956*Y1+10*Y2 Code "G01 X" & XPOS+3.6999*X1+10*X2 &" Y" & YPOS+3.6999*Y1+10*Y2 Code "G01 X" & XPOS+5.9499*X1+10*X2 &" Y" & YPOS+5.9499*Y1+10*Y2 Largo=2.25 Case 27 'J Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.5531*X1+2.3715*X2 &" Y" & YPOS+1.5531*Y1+2.3715*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+1.1899*X1+2.6773*X2 &" Y" & YPOS+1.1899*Y1+2.6773*Y2 &" I"& XPOS+1.3505*X1+2.4995*X2 &" J"& YPOS+1.3505*Y1+2.4995*Y2 Code GM&" X" & XPOS+0.778*X1+1.9221*X2 &" Y" & YPOS+0.778*Y1+1.9221*Y2 &" I"& XPOS+2.0621*X1+1.7116*X2 &" J"& YPOS+2.0621*Y1+1.7116*Y2 Code GM&" X" & XPOS+0.9153*X1+0.7551*X2 &" Y" & YPOS+0.9153*Y1+0.7551*Y2 &" I"& XPOS+2.879*X1+1.5777*X2 &" J"& YPOS+2.879*Y1+1.5777*Y2 Code GM&" X" & XPOS+1.8306*X1+0.0915*X2 &" Y" & YPOS+1.8306*Y1+0.0915*Y2 &" I"& XPOS+1.9181*X1+1.1752*X2 &" J"& YPOS+1.9181*Y1+1.1752*Y2 Code GM&" X" & XPOS+3.6155*X1+0.8467*X2 &" Y" & YPOS+3.6155*Y1+0.8467*Y2 &" I"& XPOS+1.9992*X1+2.18*X2 &" J"& YPOS+1.9992*Y1+2.18*Y2 Code GM&" X" & XPOS+4.6154*X1+2.6039*X2 &" Y" & YPOS+4.6154*Y1+2.6039*Y2 &" I"& XPOS-0.9293*X1+4.5958*X2 &" J"& YPOS-0.9293*Y1+4.5958*Y2 Code "G01 X" & XPOS+7.2708*X1+9.9953*X2 &" Y" & YPOS+7.2708*Y1+9.9953*Y2 Code "G01 X" & XPOS+6.0767*X1+9.9953*X2 &" Y" & YPOS+6.0767*Y1+9.9953*Y2 Code "G01 X" & XPOS+8.3869*X1+9.9953*X2 &" Y" & YPOS+8.3869*Y1+9.9953*Y2 Largo=4.8 Case 28 'K Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+2.3272*X1 &" Y" & YPOS+2.3272*Y1 Code "G01 X" & XPOS+1.1578*X1 &" Y" & YPOS+1.1578*Y1 Code "G01 X" & XPOS+4.9221*X1+10*X2 &" Y" & YPOS+4.9221*Y1+10*Y2 Code "G01 X" & XPOS+3.6999*X1+10*X2 &" Y" & YPOS+3.6999*Y1+10*Y2 Code "G01 X" & XPOS+6.0002*X1+10*X2 &" Y" & YPOS+6.0002*Y1+10*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+8.3499*X1+10*X2 &" Y" & YPOS+8.3499*Y1+10*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+10.5461*X1+10*X2 &" Y" & YPOS+10.5461*Y1+10*Y2 Code "G01 X" & XPOS+9.7987*X1+10*X2 &" Y" & YPOS+9.7987*Y1+10*Y2 Code "G01 X" & XPOS+2.6504*X1+3.9655*X2 &" Y" & YPOS+2.6504*Y1+3.9655*Y2 Code "G01 X" & XPOS+5.3404*X1+6.2364*X2 &" Y" & YPOS+5.3404*Y1+6.2364*Y2 Code "G01 X" & XPOS+6.0718*X1 &" Y" & YPOS+6.0718*Y1 Code "G01 X" & XPOS+4.8999*X1 &" Y" & YPOS+4.8999*Y1 Code "G01 X" & XPOS+6.8763*X1 &" Y" & YPOS+6.8763*Y1 Largo=7 Case 29 'L Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+6.5594*X1+2.5342*X2 &" Y" & YPOS+6.5594*Y1+2.5342*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+5.4032*X1 &" Y" & YPOS+5.4032*Y1 Code "G01 X" & XPOS &" Y" & YPOS Code "G01 X" & XPOS+1.1549*X1 &" Y" & YPOS+1.1549*Y1 Code "G01 X" & XPOS+4.9192*X1+10*X2 &" Y" & YPOS+4.9192*Y1+10*Y2 Code "G01 X" & XPOS+3.6775*X1+10*X2 &" Y" & YPOS+3.6775*Y1+10*Y2 Code "G01 X" & XPOS+5.9481*X1+10*X2 &" Y" & YPOS+5.9481*Y1+10*Y2 Largo=5.6 Case 37 'M Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+1.8961*X1 &" Y" & YPOS+1.8961*Y1 Code "G01 X" & XPOS+1.1583*X1 &" Y" & YPOS+1.1583*Y1 Code "G01 X" & XPOS+4.9226*X1+10*X2 &" Y" & YPOS+4.9226*Y1+10*Y2 Code "G01 X" & XPOS+3.761*X1+10*X2 &" Y" & YPOS+3.761*Y1+10*Y2 Code "G01 X" & XPOS+4.9226*X1+10*X2 &" Y" & YPOS+4.9226*Y1+10*Y2 Code "G01 X" & XPOS+4.4851*X1+1.0755*X2 &" Y" & YPOS+4.4851*Y1+1.0755*Y2 Code "G01 X" & XPOS+11.2198*X1+10*X2 &" Y" & YPOS+11.2198*Y1+10*Y2 Code "G01 X" & XPOS+12.325*X1+10*X2 &" Y" & YPOS+12.325*Y1+10*Y2 Code "G01 X" & XPOS+11.2198*X1+10*X2 &" Y" & YPOS+11.2198*Y1+10*Y2 Code "G01 X" & XPOS+7.4555*X1 &" Y" & YPOS+7.4555*Y1 Code "G01 X" & XPOS+6.2799*X1 &" Y" & YPOS+6.2799*Y1 Code "G01 X" & XPOS+8.6783*X1 &" Y" & YPOS+8.6783*Y1 Largo=8.5 Case 36 'N Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+2.1922*X1 &" Y" & YPOS+2.1922*Y1 Code "G01 X" & XPOS+1.034*X1 &" Y" & YPOS+1.034*Y1 Code "G01 X" & XPOS+4.7983*X1+10*X2 &" Y" & YPOS+4.7983*Y1+10*Y2 Code "G01 X" & XPOS+3.67*X1+10*X2 &" Y" & YPOS+3.67*Y1+10*Y2 Code "G01 X" & XPOS+4.7983*X1+10*X2 &" Y" & YPOS+4.7983*Y1+10*Y2 Code "G01 X" & XPOS+6.1029*X1 &" Y" & YPOS+6.1029*Y1 Code "G01 X" & XPOS+9.8672*X1+10*X2 &" Y" & YPOS+9.8672*Y1+10*Y2 Code "G01 X" & XPOS+8.63*X1+10*X2 &" Y" & YPOS+8.63*Y1+10*Y2 Code "G01 X" & XPOS+10.8446*X1+10*X2 &" Y" & YPOS+10.8446*Y1+10*Y2 Largo=7.2 Case 30 'Ñ Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+2.1922*X1 &" Y" & YPOS+2.1922*Y1 Code "G01 X" & XPOS+1.034*X1 &" Y" & YPOS+1.034*Y1 Code "G01 X" & XPOS+4.7983*X1+10*X2 &" Y" & YPOS+4.7983*Y1+10*Y2 Code "G01 X" & XPOS+3.67*X1+10*X2 &" Y" & YPOS+3.67*Y1+10*Y2 Code "G01 X" & XPOS+4.7983*X1+10*X2 &" Y" & YPOS+4.7983*Y1+10*Y2 Code "G01 X" & XPOS+6.1029*X1 &" Y" & YPOS+6.1029*Y1 Code "G01 X" & XPOS+9.8672*X1+10*X2 &" Y" & YPOS+9.8672*Y1+10*Y2 Code "G01 X" & XPOS+8.63*X1+10*X2 &" Y" & YPOS+8.63*Y1+10*Y2 Code "G01 X" & XPOS+10.8446*X1+10*X2 &" Y" & YPOS+10.8446*Y1+10*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.2085*X1+11.2869 *X2 &" Y" & YPOS+5.2085*Y1+11.2869 *Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+5.4404*X1+11.5425 *X2 &" Y" & YPOS+5.4404*Y1+11.5425 *Y2 Code GG&" X" & XPOS+7.3101*X1+11.5425*X2 &" Y" & YPOS+7.3101*Y1+11.5425*Y2 &" I"& XPOS+6.3752*X1+10.6944*X2 &" J"& YPOS+6.3752*Y1+10.6944*Y2 Code "G01 X" & XPOS+7.8818*X1+10.9123 *X2 &" Y" & YPOS+7.8818*Y1+10.9123 *Y2 Code GM&" X" & XPOS+9.7515*X1+10.9123*X2 &" Y" & YPOS+9.7515*Y1+10.9123*Y2 &" I"& XPOS+8.8167*X1+11.7604*X2 &" J"& YPOS+8.8167*Y1+11.7604*Y2 Code "G01 X" & XPOS+9.9834*X1+11.1678 *X2 &" Y" & YPOS+9.9834*Y1+11.1678 *Y2 Largo=7.2 Case 19 'O Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.112*X1+0.0965*X2 &" Y" & YPOS+5.112*Y1+0.0965*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+2.0737*X1+2.0256*X2 &" Y" & YPOS+2.0737*Y1+2.0256*Y2 &" I"& XPOS+4.4462*X1+2.405*X2 &" J"& YPOS+4.4462*Y1+2.405*Y2 Code GG&" X" & XPOS+4.3162*X1+9.0666*X2 &" Y" & YPOS+4.3162*Y1+9.0666*Y2 &" I"& XPOS+10.1788*X1+3.3218*X2 &" J"& YPOS+10.1788*Y1+3.3218*Y2 Code GG&" X" & XPOS+5.8112*X1+9.9347*X2 &" Y" & YPOS+5.8112*Y1+9.9347*Y2 &" I"& XPOS+6.6352*X1+6.7942*X2 &" J"& YPOS+6.6352*Y1+6.7942*Y2 Code GG&" X" & XPOS+8.319*X1+8.1503*X2 &" Y" & YPOS+8.319*Y1+8.1503*Y2 &" I"& XPOS+6.32*X1+7.9954*X2 &" J"& YPOS+6.32*Y1+7.9954*Y2 Code GG&" X" & XPOS+6.3176*X1+1.0514*X2 &" Y" & YPOS+6.3176*Y1+1.0514*Y2 &" I"& XPOS-2.341*X1+7.3241*X2 &" J"& YPOS-2.341*Y1+7.3241*Y2 Code GG&" X" & XPOS+5.1119*X1+0.0965*X2 &" Y" & YPOS+5.1119*Y1+0.0965*Y2 &" I"& XPOS+4.0162*X1+2.7187*X2 &" J"& YPOS+4.0162*Y1+2.7187*Y2 Largo=6.5 Case 20 'P Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+2.3761*X1 &" Y" & YPOS+2.3761*Y1 Code "G01 X" & XPOS+1.1276*X1 &" Y" & YPOS+1.1276*Y1 Code "G01 X" & XPOS+4.8918*X1+9.9996*X2 &" Y" & YPOS+4.8918*Y1+9.9996*Y2 Code "G01 X" & XPOS+3.6697*X1+9.9996*X2 &" Y" & YPOS+3.6697*Y1+9.9996*Y2 Code "G01 X" & XPOS+8.3072*X1+9.9996*X2 &" Y" & YPOS+8.3072*Y1+9.9996*Y2 Code GG&" X" & XPOS+9.1072*X1+9.5647*X2 &" Y" & YPOS+9.1072*Y1+9.5647*Y2 &" I"& XPOS+8.3072*X1+9.0464*X2 &" J"& YPOS+8.3072*Y1+9.0464*Y2 Code GG&" X" & XPOS+9.4964*X1+7.8029*X2 &" Y" & YPOS+9.4964*Y1+7.8029*Y2 &" I"& XPOS+6.943*X1+8.1628*X2 &" J"& YPOS+6.943*Y1+8.1628*Y2 Code GG&" X" & XPOS+8.6789*X1+5.8843*X2 &" Y" & YPOS+8.6789*Y1+5.8843*Y2 &" I"& XPOS+5.5215*X1+8.3632*X2 &" J"& YPOS+5.5215*Y1+8.3632*Y2 Code GG&" X" & XPOS+6.3905*X1+4.7715*X2 &" Y" & YPOS+6.3905*Y1+4.7715*Y2 &" I"& XPOS+6.3905*X1+7.6809*X2 &" J"& YPOS+6.3905*Y1+7.6809*Y2 Code "G01 X" & XPOS+2.9291*X1+4.7715*X2 &" Y" & YPOS+2.9291*Y1+4.7715*Y2 Largo=6.7 Case 11 'Q Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.4523*X1 &" Y" & YPOS+3.4523*Y1 Code "G00 Z"& Corte Code GG&" X" & XPOS+1.6*X1+2.1781*X2 &" Y" & YPOS+1.6*Y1+2.1781*Y2 &" I"& XPOS+3.9243*X1+2.278*X2 &" J"& YPOS+3.9243*Y1+2.278*Y2 Code GG&" X" & XPOS+4.1319*X1+8.733*X2 &" Y" & YPOS+4.1319*Y1+8.733*Y2 &" I"& XPOS+10.3738*X1+2.5555*X2 &" J"& YPOS+10.3738*Y1+2.5555*Y2 Code GG&" X" & XPOS+6.1012*X1+9.8864*X2 &" Y" & YPOS+6.1012*Y1+9.8864*Y2 &" I"& XPOS+7.2781*X1+5.6193*X2 &" J"& YPOS+7.2781*Y1+5.6193*Y2 Code GG&" X" & XPOS+8.3518*X1+7.9453*X2 &" Y" & YPOS+8.3518*Y1+7.9453*Y2 &" I"& XPOS+6.5767*X1+8.1624*X2 &" J"& YPOS+6.5767*Y1+8.1624*Y2 Code GG&" X" & XPOS+5.1166*X1+0.4621*X2 &" Y" & YPOS+5.1166*Y1+0.4621*Y2 &" I"& XPOS-5.9742*X1+9.6979*X2 &" J"& YPOS-5.9742*Y1+9.6979*Y2 Code GG&" X" & XPOS+3.4523*X1 &" Y" & YPOS+3.4523*Y1 &" I"& XPOS+3.9509*X1+1.4329*X2 &" J"& YPOS+3.9509*Y1+1.4329*Y2 Code GG&" X" & XPOS+4.7509*X1+0.884*X2 &" Y" & YPOS+4.7509*Y1+0.884*Y2 &" I"& XPOS+3.7737*X1+0.9237*X2 &" J"& YPOS+3.7737*Y1+0.9237*Y2 Code GM&" X" & XPOS+5.2854*X1+-1.6761*X2 &" Y" & YPOS+5.2854*Y1+-1.6761*Y2 &" I"& XPOS+10.107*X1+0.6665*X2 &" J"& YPOS+10.107*Y1+0.6665*Y2 Code GM&" X" & XPOS+6.0835*X1+-2.1718*X2 &" Y" & YPOS+6.0835*Y1+-2.1718*Y2 &" I"& XPOS+6.0774*X1-1.2913*X2 &" J"& YPOS+6.0774*Y1-1.2913*Y2 Largo=5.8 Case 14 'R Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+2.3123*X1 &" Y" & YPOS+2.3123*Y1 Code "G01 X" & XPOS+1.0309*X1 &" Y" & YPOS+1.0309*Y1 Code "G01 X" & XPOS+4.7952*X1+10*X2 &" Y" & YPOS+4.7952*Y1+10*Y2 Code "G01 X" & XPOS+3.6554*X1+10*X2 &" Y" & YPOS+3.6554*Y1+10*Y2 Code "G01 X" & XPOS+8.0493*X1+10.0013*X2 &" Y" & YPOS+8.0493*Y1+10.0013*Y2 Code GG&" X" & XPOS+8.5602*X1+9.8403*X2 &" Y" & YPOS+8.5602*Y1+9.8403*Y2 &" I"& XPOS+8.0496*X1+9.1112*X2 &" J"& YPOS+8.0496*Y1+9.1112*Y2 Code GG&" X" & XPOS+9.2469*X1+8.3754*X2 &" Y" & YPOS+9.2469*Y1+8.3754*Y2 &" I"& XPOS+7.6286*X1+8.5102*X2 &" J"& YPOS+7.6286*Y1+8.5102*Y2 Code GG&" X" & XPOS+8.4*X1+6.2239*X2 &" Y" & YPOS+8.4*Y1+6.2239*Y2 &" I"& XPOS+5.2432*X1+8.7089*X2 &" J"& YPOS+5.2432*Y1+8.7089*Y2 Code GG&" X" & XPOS+6.0479*X1+5.082*X2 &" Y" & YPOS+6.0479*Y1+5.082*Y2 &" I"& XPOS+6.0479*X1+8.0754*X2 &" J"& YPOS+6.0479*Y1+8.0754*Y2 Code "G01 X" & XPOS+2.9934*X1+5.082*X2 &" Y" & YPOS+2.9934*Y1+5.082*Y2 Code "G01 X" & XPOS+5.3331*X1+5.1024*X2 &" Y" & YPOS+5.3331*Y1+5.1024*Y2 Code GG&" X" & XPOS+6.3508*X1+3.9712*X2 &" Y" & YPOS+6.3508*Y1+3.9712*Y2 &" I"& XPOS+5.2185*X1+3.9759*X2 &" J"& YPOS+5.2185*Y1+3.9759*Y2 Code "G01 X" & XPOS+6.3371*X1+0.6891*X2 &" Y" & YPOS+6.3371*Y1+0.6891*Y2 Code GM&" X" & XPOS+7.701*X1+0.83*X2 &" Y" & YPOS+7.701*Y1+0.83*Y2 &" I"& XPOS+7.0266*X1+0.6862*X2 &" J"& YPOS+7.0266*Y1+0.6862*Y2 Largo=7.6 Case 22 'S Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+0.3207*X1+0.0195*X2 &" Y" & YPOS+0.3207*Y1+0.0195*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+1.3229*X1+2.6818*X2 &" Y" & YPOS+1.3229*Y1+2.6818*Y2 Code "G01 X" & XPOS+1.0736*X1+2.0196*X2 &" Y" & YPOS+1.0736*Y1+2.0196*Y2 Code GM&" X" & XPOS+1.1901*X1+1.1443*X2 &" Y" & YPOS+1.1901*Y1+1.1443*Y2 &" I"& XPOS+2.5592*X1+1.7719*X2 &" J"& YPOS+2.5592*Y1+1.7719*Y2 Code GM&" X" & XPOS+2.5632*X1+0.0916*X2 &" Y" & YPOS+2.5632*Y1+0.0916*Y2 &" I"& XPOS+2.871*X1+1.9149*X2 &" J"& YPOS+2.871*Y1+1.9149*Y2 Code GM&" X" & XPOS+5.79*X1+0.9612*X2 &" Y" & YPOS+5.79*Y1+0.9612*Y2 &" I"& XPOS+3.2297*X1+4.0399*X2 &" J"& YPOS+3.2297*Y1+4.0399*Y2 Code GM&" X" & XPOS+6.5223*X1+3.8905*X2 &" Y" & YPOS+6.5223*Y1+3.8905*Y2 &" I"& XPOS+4.1562*X1+2.9258*X2 &" J"& YPOS+4.1562*Y1+2.9258*Y2 Code GM&" X" & XPOS+5.8129*X1+4.9203*X2 &" Y" & YPOS+5.8129*Y1+4.9203*Y2 &" I"& XPOS+3.8222*X1+2.7897*X2 &" J"& YPOS+3.8222*Y1+2.7897*Y2 Code GM&" X" & XPOS+3.9134*X1+6.4078*X2 &" Y" & YPOS+3.9134*Y1+6.4078*Y2 &" I"& XPOS-3.6563*X1-5.2147*X2 &" J"& YPOS-3.6563*Y1-5.2147*Y2 Code GG&" X" & XPOS+3.3642*X1+6.9113*X2 &" Y" & YPOS+3.3642*Y1+6.9113*Y2 &" I"& XPOS+5.1538*X1+8.3123*X2 &" J"& YPOS+5.1538*Y1+8.3123*Y2 Code GG&" X" & XPOS+3.1353*X1+8.1242*X2 &" Y" & YPOS+3.1353*Y1+8.1242*Y2 &" I"& XPOS+4.4212*X1+7.7388*X2 &" J"& YPOS+4.4212*Y1+7.7388*Y2 Code GG&" X" & XPOS+4.3253*X1+9.6117*X2 &" Y" & YPOS+4.3253*Y1+9.6117*Y2 &" I"& XPOS+5.5736*X1+7.3934*X2 &" J"& YPOS+5.5736*Y1+7.3934*Y2 Code GG&" X" & XPOS+6.7969*X1+9.8177*X2 &" Y" & YPOS+6.7969*Y1+9.8177*Y2 &" I"& XPOS+5.786*X1+7.0158*X2 &" J"& YPOS+5.786*Y1+7.0158*Y2 Code GG&" X" & XPOS+7.7352*X1+9.0625*X2 &" Y" & YPOS+7.7352*Y1+9.0625*Y2 &" I"& XPOS+6.1689*X1+8.0769*X2 &" J"& YPOS+6.1689*Y1+8.0769*Y2 Code GG&" X" & XPOS+7.9097*X1+7.9304*X2 &" Y" & YPOS+7.9097*Y1+7.9304*Y2 &" I"& XPOS+6.5155*X1+8.295*X2 &" J"& YPOS+6.5155*Y1+8.295*Y2 Code "G01 X" & XPOS+8.656*X1+9.913*X2 &" Y" & YPOS+8.656*Y1+9.913*Y2 Code "G01 X" & XPOS+7.5933*X1+7.0897*X2 &" Y" & YPOS+7.5933*Y1+7.0897*Y2 Largo=5.8 Case 15 'T Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.7545*X1 &" Y" & YPOS+1.7545*Y1 Code "G00 Z"& Corte Code "G01 X" & XPOS+4.1156*X1 &" Y" & YPOS+4.1156*Y1 Code "G01 X" & XPOS+2.9759*X1 &" Y" & YPOS+2.9759*Y1 Code "G01 X" & XPOS+6.7402*X1+10*X2 &" Y" & YPOS+6.7402*Y1+10*Y2 Code "G01 X" & XPOS+3.8402*X1+10*X2 &" Y" & YPOS+3.8402*Y1+10*Y2 Code "G01 X" & XPOS+2.687*X1+7.1546*X2 &" Y" & YPOS+2.687*Y1+7.1546*Y2 Code "G01 X" & XPOS+3.8402*X1+10*X2 &" Y" & YPOS+3.8402*Y1+10*Y2 Code "G01 X" & XPOS+9.6402*X1+10*X2 &" Y" & YPOS+9.6402*Y1+10*Y2 Code "G01 X" & XPOS+8.8151*X1+7.1546*X2 &" Y" & YPOS+8.8151*Y1+7.1546*Y2 Largo=6.2 Case 17 'U Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.7645*X1+10.0004*X2 &" Y" & YPOS+3.7645*Y1+10.0004*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+6.0748*X1+10.0004*X2 &" Y" & YPOS+6.0748*Y1+10.0004*Y2 Code "G01 X" & XPOS+4.9403*X1+10.0004*X2 &" Y" & YPOS+4.9403*Y1+10.0004*Y2 Code "G01 X" & XPOS+2.3508*X1+3.1214*X2 &" Y" & YPOS+2.3508*Y1+3.1214*Y2 Code GM&" X" & XPOS+2.1282*X1+1.6248*X2 &" Y" & YPOS+2.1282*Y1+1.6248*Y2 &" I"& XPOS+5.7096*X1+1.857*X2 &" J"& YPOS+5.7096*Y1+1.857*Y2 Code GM&" X" & XPOS+3.4326*X1+0.1144*X2 &" Y" & YPOS+3.4326*Y1+0.1144*Y2 &" I"& XPOS+3.7788*X1+1.7318*X2 &" J"& YPOS+3.7788*Y1+1.7318*Y2 Code GM&" X" & XPOS+6.1101*X1+0.9154*X2 &" Y" & YPOS+6.1101*Y1+0.9154*Y2 &" I"& XPOS+4.0409*X1+2.9566*X2 &" J"& YPOS+4.0409*Y1+2.9566*Y2 Code GM&" X" & XPOS+7.7163*X1+3.4159*X2 &" Y" & YPOS+7.7163*Y1+3.4159*Y2 &" I"& XPOS+0.9781*X1+5.9781*X2 &" J"& YPOS+0.9781*Y1+5.9781*Y2 Code "G01 X" & XPOS+10.2193*X1+9.9984*X2 &" Y" & YPOS+10.2193*Y1+9.9984*Y2 Code "G01 X" & XPOS+9.0519*X1+9.9984*X2 &" Y" & YPOS+9.0519*Y1+9.9984*Y2 Code "G01 X" & XPOS+11.338*X1+9.9984*X2 &" Y" & YPOS+11.338*Y1+9.9984*Y2 Largo=7.4 Case 34 'V Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.7643*X1+10*X2 &" Y" & YPOS+3.7643*Y1+10*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+5.7388*X1+10*X2 &" Y" & YPOS+5.7388*Y1+10*Y2 Code "G01 X" & XPOS+4.5169*X1+10*X2 &" Y" & YPOS+4.5169*Y1+10*Y2 Code "G01 X" & XPOS+3.5317*X1 &" Y" & YPOS+3.5317*Y1 Code "G01 X" & XPOS+9.7687*X1+10*X2 &" Y" & YPOS+9.7687*Y1+10*Y2 Code "G01 X" & XPOS+8.344*X1+10*X2 &" Y" & YPOS+8.344*Y1+10*Y2 Code "G01 X" & XPOS+10.6513*X1+10*X2 &" Y" & YPOS+10.6513*Y1+10*Y2 Largo=7. Case 12 'W Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.6287*X1+10*X2 &" Y" & YPOS+3.6287*Y1+10*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+6.0012*X1+10*X2 &" Y" & YPOS+6.0012*Y1+10*Y2 Code "G01 X" & XPOS+4.8159*X1+10*X2 &" Y" & YPOS+4.8159*Y1+10*Y2 Code "G01 X" & XPOS+2.657*X1 &" Y" & YPOS+2.657*Y1 Code "G01 X" & XPOS+5.9725*X1+4.7368*X2 &" Y" & YPOS+5.9725*Y1+4.7368*Y2 Code "G01 X" & XPOS+5.6675*X1 &" Y" & YPOS+5.6675*Y1 Code "G01 X" & XPOS+10.8638*X1+10*X2 &" Y" & YPOS+10.8638*Y1+10*Y2 Code "G01 X" & XPOS+9.7081*X1+10*X2 &" Y" & YPOS+9.7081*Y1+10*Y2 Code "G01 X" & XPOS+12.0154*X1+10*X2 &" Y" & YPOS+12.0154*Y1+10*Y2 Largo=8.2 Case 32 'X Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+2.3524*X1 &" Y" & YPOS+2.3524*Y1 Code "G01 X" & XPOS+0.7499*X1 &" Y" & YPOS+0.7499*Y1 Code "G01 X" & XPOS+9.789*X1+10*X2 &" Y" & YPOS+9.789*Y1+10*Y2 Code "G01 X" & XPOS+10.5887*X1+10*X2 &" Y" & YPOS+10.5887*Y1+10*Y2 Code "G01 X" & XPOS+8.2795*X1+10*X2 &" Y" & YPOS+8.2795*Y1+10*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+6.0367*X1+10*X2 &" Y" & YPOS+6.0367*Y1+10*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+4.0831*X1+10*X2 &" Y" & YPOS+4.0831*Y1+10*Y2 Code "G01 X" & XPOS+4.861*X1+10*X2 &" Y" & YPOS+4.861*Y1+10*Y2 Code "G01 X" & XPOS+6.1225*X1 &" Y" & YPOS+6.1225*Y1 Code "G01 X" & XPOS+4.8916*X1 &" Y" & YPOS+4.8916*Y1 Code "G01 X" & XPOS+6.901*X1 &" Y" & YPOS+6.901*Y1 Largo=7 Case 16 'Y Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.3413*X1 &" Y" & YPOS+2.3413*Y1 Code "G00 Z"& Corte Code "G01 X" & XPOS+4.7021*X1 &" Y" & YPOS+4.7021*Y1 Code "G01 X" & XPOS+3.5589*X1 &" Y" & YPOS+3.5589*Y1 Code "G01 X" & XPOS+5.4355*X1+5.1415*X2 &" Y" & YPOS+5.4355*Y1+5.1415*Y2 Code "G01 X" & XPOS+4.5646*X1+10*X2 &" Y" & YPOS+4.5646*Y1+10*Y2 Code "G01 X" & XPOS+3.7642*X1+10*X2 &" Y" & YPOS+3.7642*Y1+10*Y2 Code "G01 X" & XPOS+5.7039*X1+10*X2 &" Y" & YPOS+5.7039*Y1+10*Y2 Code "G01 X" & XPOS+4.5645*X1+10*X2 &" Y" & YPOS+4.5645*Y1+10*Y2 Code "G01 X" & XPOS+5.4354*X1+5.1415*X2 &" Y" & YPOS+5.4354*Y1+5.1415*Y2 Code "G01 X" & XPOS+9.9332*X1+10*X2 &" Y" & YPOS+9.9332*Y1+10*Y2 Code "G01 X" & XPOS+8.3207*X1+10*X2 &" Y" & YPOS+8.3207*Y1+10*Y2 Code "G01 X" & XPOS+10.6341*X1+10*X2 &" Y" & YPOS+10.6341*Y1+10*Y2 Largo=7 Case 31 'Z Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+8.1119*X1+2.8543*X2 &" Y" & YPOS+8.1119*Y1+2.8543*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+6.945*X1 &" Y" & YPOS+6.945*Y1 Code "G01 X" & XPOS+0.8271*X1 &" Y" & YPOS+0.8271*Y1 Code "G01 X" & XPOS+9.9106*X1+10*X2 &" Y" & YPOS+9.9106*Y1+10*Y2 Code "G01 X" & XPOS+3.7845*X1+10*X2 &" Y" & YPOS+3.7845*Y1+10*Y2 Code "G01 X" & XPOS+2.603*X1+7.1357*X2 &" Y" & YPOS+2.603*Y1+7.1357*Y2 Largo=7.2 Case 51 'a Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+4.6774*X1+1.2216*X2 &" Y" & YPOS+4.6774*Y1+1.2216*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+4.1648*X1+0.595*X2 &" Y" & YPOS+4.1648*Y1+0.595*Y2 &" I"& XPOS+1.0094*X1+3.6993*X2 &" J"& YPOS+1.0094*Y1+3.6993*Y2 Code GG&" X" & XPOS+1.1092*X1+1.7206*X2 &" Y" & YPOS+1.1092*Y1+1.7206*Y2 &" I"& XPOS+2.8913*X1+1.848*X2 &" J"& YPOS+2.8913*Y1+1.848*Y2 Code GG&" X" & XPOS+2.8329*X1+6.157*X2 &" Y" & YPOS+2.8329*Y1+6.157*Y2 &" I"& XPOS+6.6595*X1+2.1172*X2 &" J"& YPOS+6.6595*Y1+2.1172*Y2 Code GG&" X" & XPOS+4.6453*X1+6.9794*X2 &" Y" & YPOS+4.6453*Y1+6.9794*Y2 &" I"& XPOS+4.9306*X1+3.9424*X2 &" J"& YPOS+4.9306*Y1+3.9424*Y2 Code GG&" X" & XPOS+6.0412*X1+5.8352*X2 &" Y" & YPOS+6.0412*Y1+5.8352*Y2 &" I"& XPOS+4.7653*X1+5.7022*X2 &" J"& YPOS+4.7653*Y1+5.7022*Y2 Code GG&" X" & XPOS+5.9813*X1+4.6982*X2 &" Y" & YPOS+5.9813*Y1+4.6982*Y2 &" I"& XPOS+2.4085*X1+5.4564*X2 &" J"& YPOS+2.4085*Y1+5.4564*Y2 Code "G01 X" & XPOS+6.8473*X1+6.9988*X2 &" Y" & YPOS+6.8473*Y1+6.9988*Y2 Code "G01 X" & XPOS+4.7061*X1+1.3106*X2 &" Y" & YPOS+4.7061*Y1+1.3106*Y2 Code GM&" X" & XPOS+5.9497*X1+0.1602*X2 &" Y" & YPOS+5.9497*Y1+0.1602*Y2 &" I"& XPOS+5.562*X1+0.9884*X2 &" J"& YPOS+5.562*Y1+0.9884*Y2 Code GM&" X" & XPOS+7.3227*X1+1.6934*X2 &" Y" & YPOS+7.3227*Y1+1.6934*Y2 &" I"& XPOS+4.8365*X1+2.5385*X2 &" J"& YPOS+4.8365*Y1+2.5385*Y2 Largo=6.8 Case 65 'b Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.6263*X1+10*X2 &" Y" & YPOS+3.6263*Y1+10*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+5.0095*X1+10*X2 &" Y" & YPOS+5.0095*Y1+10*Y2 Code "G01 X" & XPOS+2.8452*X1+4.3471*X2 &" Y" & YPOS+2.8452*Y1+4.3471*Y2 Code GM&" X" & XPOS+2.3341*X1+1.6247*X2 &" Y" & YPOS+2.3341*Y1+1.6247*Y2 &" I"& XPOS+10.0662*X1+1.5824*X2 &" J"& YPOS+10.0662*Y1+1.5824*Y2 Code GM&" X" & XPOS+3.7758*X1+0.0686*X2 &" Y" & YPOS+3.7758*Y1+0.0686*Y2 &" I"& XPOS+3.8855*X1+1.6162*X2 &" J"& YPOS+3.8855*Y1+1.6162*Y2 Code GM&" X" & XPOS+5.6751*X1+0.8695*X2 &" Y" & YPOS+5.6751*Y1+0.8695*Y2 &" I"& XPOS+3.9369*X1+2.3391*X2 &" J"& YPOS+3.9369*Y1+2.3391*Y2 Code GM&" X" & XPOS+7.1611*X1+4.5598*X2 &" Y" & YPOS+7.1611*Y1+4.5598*Y2 &" I"& XPOS+0.8322*X1+4.9639*X2 &" J"& YPOS+0.8322*Y1+4.9639*Y2 Code GM&" X" & XPOS+6.5447*X1+6.1098*X2 &" Y" & YPOS+6.5447*Y1+6.1098*Y2 &" I"& XPOS+5.2164*X1+4.684*X2 &" J"& YPOS+5.2164*Y1+4.684*Y2 Code GM&" X" & XPOS+4.7598*X1+6.4073*X2 &" Y" & YPOS+4.7598*Y1+6.4073*Y2 &" I"& XPOS+5.4276*X1+4.9107*X2 &" J"& YPOS+5.4276*Y1+4.9107*Y2 Code GM&" X" & XPOS+2.8516*X1+4.3408*X2 &" Y" & YPOS+2.8516*Y1+4.3408*Y2 &" I"& XPOS+6.2127*X1+3.1515*X2 &" J"& YPOS+6.2127*Y1+3.1515*Y2 Largo=5.8 Case 63 'c Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+6.0405*X1+5.72*X2 &" Y" & YPOS+6.0405*Y1+5.72*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+4.7271*X1+6.9987*X2 &" Y" & YPOS+4.7271*Y1+6.9987*Y2 &" I"& XPOS+4.8036*X1+5.7635*X2 &" J"& YPOS+4.8036*Y1+5.7635*Y2 Code GM&" X" & XPOS+2.8107*X1+6.1569*X2 &" Y" & YPOS+2.8107*Y1+6.1569*Y2 &" I"& XPOS+4.9149*X1+3.969*X2 &" J"& YPOS+4.9149*Y1+3.969*Y2 Code GM&" X" & XPOS+1.087*X1+1.7206*X2 &" Y" & YPOS+1.087*Y1+1.7206*Y2 &" I"& XPOS+6.7308*X1+2.0808*X2 &" J"& YPOS+6.7308*Y1+2.0808*Y2 Code GM&" X" & XPOS+4.245*X1+0.653*X2 &" Y" & YPOS+4.245*Y1+0.653*Y2 &" I"& XPOS+2.8852*X1+1.8354*X2 &" J"& YPOS+2.8852*Y1+1.8354*Y2 Largo=4.1 Case 53 'd Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+6.5535*X1+10*X2 &" Y" & YPOS+6.5535*Y1+10*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+7.7805*X1+10*X2 &" Y" & YPOS+7.7805*Y1+10*Y2 Code "G01 X" & XPOS+4.4872*X1+1.2511*X2 &" Y" & YPOS+4.4872*Y1+1.2511*Y2 Code "G01 X" & XPOS+4.4599*X1+1.1663*X2 &" Y" & YPOS+4.4599*Y1+1.1663*Y2 Code GG&" X" & XPOS+3.4097*X1+0.1601*X2 &" Y" & YPOS+3.4097*Y1+0.1601*Y2 &" I"& XPOS+2.7374*X1+1.9132*X2 &" J"& YPOS+2.7374*Y1+1.9132*Y2 Code GG&" X" & XPOS+1.054*X1+1.6425*X2 &" Y" & YPOS+1.054*Y1+1.6425*Y2 &" I"& XPOS+2.787*X1+1.7836*X2 &" J"& YPOS+2.787*Y1+1.7836*Y2 Code GG&" X" & XPOS+2.6993*X1+5.8769*X2 &" Y" & YPOS+2.6993*Y1+5.8769*Y2 &" I"& XPOS+6.239*X1+2.0647*X2 &" J"& YPOS+6.239*Y1+2.0647*Y2 Code GG&" X" & XPOS+4.5285*X1+6.6804*X2 &" Y" & YPOS+4.5285*Y1+6.6804*Y2 &" I"& XPOS+4.7699*X1+3.647*X2 &" J"& YPOS+4.7699*Y1+3.647*Y2 Code GG&" X" & XPOS+5.721*X1+5.9038*X2 &" Y" & YPOS+5.721*Y1+5.9038*Y2 &" I"& XPOS+4.621*X1+5.5185*X2 &" J"& YPOS+4.621*Y1+5.5185*Y2 Code GG&" X" & XPOS+5.7046*X1+4.4848*X2 &" Y" & YPOS+5.7046*Y1+4.4848*Y2 &" I"& XPOS+3.7599*X1+5.2168*X2 &" J"& YPOS+3.7599*Y1+5.2168*Y2 Code "G01 X" & XPOS+4.4873*X1+1.2509*X2 &" Y" & YPOS+4.4873*Y1+1.2509*Y2 Code GM&" X" & XPOS+5.7897*X1+0.183*X2 &" Y" & YPOS+5.7897*Y1+0.183*Y2 &" I"& XPOS+5.3195*X1+0.9376*X2 &" J"& YPOS+5.3195*Y1+0.9376*Y2 Code GM&" X" & XPOS+7.0712*X1+1.8077*X2 &" Y" & YPOS+7.0712*Y1+1.8077*Y2 &" I"& XPOS+4.1753*X1+2.774*X2 &" J"& YPOS+4.1753*Y1+2.774*Y2 Largo=6.4 Case 43 'e Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.1689*X1+2.8713*X2 &" Y" & YPOS+1.1689*Y1+2.8713*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+5.391*X1+4.3358*X2 &" Y" & YPOS+5.391*Y1+4.3358*Y2 &" I"& XPOS+1.4487*X1+8.8829*X2 &" J"& YPOS+1.4487*Y1+8.8829*Y2 Code GM&" X" & XPOS+6.1328*X1+5.5149*X2 &" Y" & YPOS+6.1328*Y1+5.5149*Y2 &" I"& XPOS+3.8216*X1+6.146*X2 &" J"& YPOS+3.8216*Y1+6.146*Y2 Code GM&" X" & XPOS+5.1946*X1+6.8879*X2 &" Y" & YPOS+5.1946*Y1+6.8879*Y2 &" I"& XPOS+5.0798*X1+5.8024*X2 &" J"& YPOS+5.0798*Y1+5.8024*Y2 Code GM&" X" & XPOS+2.9978*X1+6.2243*X2 &" Y" & YPOS+2.9978*Y1+6.2243*Y2 &" I"& XPOS+4.8839*X1+3.9486*X2 &" J"& YPOS+4.8839*Y1+3.9486*Y2 Code GM&" X" & XPOS+1.0718*X1+1.721*X2 &" Y" & YPOS+1.0718*Y1+1.721*Y2 &" I"& XPOS+6.4175*X1+2.0982*X2 &" J"& YPOS+6.4175*Y1+2.0982*Y2 Code GM&" X" & XPOS+3.049*X1+0.011*X2 &" Y" & YPOS+3.049*Y1+0.011*Y2 &" I"& XPOS+2.9122*X1+1.8509*X2 &" J"& YPOS+2.9122*Y1+1.8509*Y2 Code GM&" X" & XPOS+6.2473*X1+1.7621*X2 &" Y" & YPOS+6.2473*Y1+1.7621*Y2 &" I"& XPOS+2.7223*X1+4.404*X2 &" J"& YPOS+2.7223*Y1+4.404*Y2 Largo=5.6 Case 54 'f Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.2583*X1+5.8996*X2 &" Y" & YPOS+5.2583*Y1+5.8996*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+2.1493*X1+5.8996*X2 &" Y" & YPOS+2.1493*Y1+5.8996*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+-0.5133*X1+-0.6911*X2 &" Y" & YPOS+-0.5133*Y1+-0.6911*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+0.0202*X1+-1.2367*X2 &" Y" & YPOS+0.0202*Y1+-1.2367*Y2 &" I"& XPOS-0.1273*X1-0.8473*X2 &" J"& YPOS-0.1273*Y1-0.8473*Y2 Code GM&" X" & XPOS+0.6405*X1+-0.7755*X2 &" Y" & YPOS+0.6405*Y1+-0.7755*Y2 &" I"& XPOS-0.4799*X1+0.0836*X2 &" J"& YPOS-0.4799*Y1+0.0836*Y2 Code GM&" X" & XPOS+1.4003*X1+0.5254*X2 &" Y" & YPOS+1.4003*Y1+0.5254*Y2 &" I"& XPOS-4.134*X1+2.8852*X2 &" J"& YPOS-4.134*Y1+2.8852*Y2 Code "G01 X" & XPOS+5.0044*X1+8.9777*X2 &" Y" & YPOS+5.0044*Y1+8.9777*Y2 Code GG&" X" & XPOS+5.5095*X1+9.8001*X2 &" Y" & YPOS+5.5095*Y1+9.8001*Y2 &" I"& XPOS+8.0196*X1+7.692*X2 &" J"& YPOS+8.0196*Y1+7.692*Y2 Code GG&" X" & XPOS+6.0967*X1+10.0688*X2 &" Y" & YPOS+6.0967*Y1+10.0688*Y2 &" I"& XPOS+6.0863*X1+9.3157*X2 &" J"& YPOS+6.0863*Y1+9.3157*Y2 Code GG&" X" & XPOS+6.4476*X1+8.8408*X2 &" Y" & YPOS+6.4476*Y1+8.8408*Y2 &" I"& XPOS+6.0874*X1+9.402*X2 &" J"& YPOS+6.0874*Y1+9.402*Y2 Largo=3.2 Case 55 'g Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+6.7221*X1+7*X2 &" Y" & YPOS+6.7221*Y1+7*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+3.4868*X1+-1.5021*X2 &" Y" & YPOS+3.4868*Y1+-1.5021*Y2 Code GG&" X" & XPOS+2.6786*X1+-2.7445*X2 &" Y" & YPOS+2.6786*Y1+-2.7445*Y2 &" I"& XPOS+0.2122*X1-0.256*X2 &" J"& YPOS+0.2122*Y1-0.256*Y2 Code GG&" X" & XPOS+1.6008*X1+-3.199*X2 &" Y" & YPOS+1.6008*Y1+-3.199*Y2 &" I"& XPOS+1.574*X1-1.63*X2 &" J"& YPOS+1.574*Y1-1.63*Y2 Code GG&" X" & XPOS+0.7512*X1+-3.0212*X2 &" Y" & YPOS+0.7512*Y1+-3.0212*Y2 &" I"& XPOS+1.5673*X1-1.2406*X2 &" J"& YPOS+1.5673*Y1-1.2406*Y2 Code GG&" X" & XPOS+0.0828*X1+-1.3949*X2 &" Y" & YPOS+0.0828*Y1+-1.3949*Y2 &" I"& XPOS+1.288*X1-1.8501*X2 &" J"& YPOS+1.288*Y1-1.8501*Y2 Code GG&" X" & XPOS+0.5437*X1+-0.964*X2 &" Y" & YPOS+0.5437*Y1+-0.964*Y2 &" I"& XPOS+0.7505*X1-1.6471*X2 &" J"& YPOS+0.7505*Y1-1.6471*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+4.5789*X1+1.3862*X2 &" Y" & YPOS+4.5789*Y1+1.3862*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.7658*X1+0.6076*X2 &" Y" & YPOS+3.7658*Y1+0.6076*Y2 &" I"& XPOS+1.0117*X1+4.2976*X2 &" J"& YPOS+1.0117*Y1+4.2976*Y2 Code GG&" X" & XPOS+1.1265*X1+1.869*X2 &" Y" & YPOS+1.1265*Y1+1.869*Y2 &" I"& XPOS+2.7775*X1+1.9317*X2 &" J"& YPOS+2.7775*Y1+1.9317*Y2 Code GG&" X" & XPOS+2.7943*X1+6.1614*X2 &" Y" & YPOS+2.7943*Y1+6.1614*Y2 &" I"& XPOS+6.9178*X1+2.089*X2 &" J"& YPOS+6.9178*Y1+2.089*Y2 Code GG&" X" & XPOS+4.6485*X1+6.9759*X2 &" Y" & YPOS+4.6485*Y1+6.9759*Y2 &" I"& XPOS+4.7478*X1+4.2321*X2 &" J"& YPOS+4.7478*Y1+4.2321*Y2 Code GG&" X" & XPOS+5.9193*X1+5.7387*X2 &" Y" & YPOS+5.9193*Y1+5.7387*Y2 &" I"& XPOS+4.6929*X1+5.7502*X2 &" J"& YPOS+4.6929*Y1+5.7502*Y2 Code GG&" X" & XPOS+5.8406*X1+4.75*X2 &" Y" & YPOS+5.8406*Y1+4.75*Y2 &" I"& XPOS-1.1644*X1+5.8051*X2 &" J"& YPOS-1.1644*Y1+5.8051*Y2 Largo=4 Case 56 'h Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.7732*X1+10.0574*X2 &" Y" & YPOS+2.7732*Y1+10.0574*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+4.0261*X1+10.0574*X2 &" Y" & YPOS+4.0261*Y1+10.0574*Y2 Code "G01 X" & XPOS+0.2618*X1+0.0573*X2 &" Y" & YPOS+0.2618*Y1+0.0573*Y2 Code "G01 X" & XPOS+1.9041*X1+4.4212*X2 &" Y" & YPOS+1.9041*Y1+4.4212*Y2 Code GG&" X" & XPOS+3.2446*X1+6.2139*X2 &" Y" & YPOS+3.2446*Y1+6.2139*Y2 &" I"& XPOS+5.6668*X1+3.0052*X2 &" J"& YPOS+5.6668*Y1+3.0052*Y2 Code GG&" X" & XPOS+4.4928*X1+6.7123*X2 &" Y" & YPOS+4.4928*Y1+6.7123*Y2 &" I"& XPOS+4.7806*X1+4.1791*X2 &" J"& YPOS+4.7806*Y1+4.1791*Y2 Code GG&" X" & XPOS+5.8*X1+4.8927*X2 &" Y" & YPOS+5.8*Y1+4.8927*Y2 &" I"& XPOS+4.6377*X1+5.4371*X2 &" J"& YPOS+4.6377*Y1+5.4371*Y2 Code "G01 X" & XPOS+4.0662*X1+1.1908*X2 &" Y" & YPOS+4.0662*Y1+1.1908*Y2 Code GM&" X" & XPOS+5.3531*X1+0.1157*X2 &" Y" & YPOS+5.3531*Y1+0.1157*Y2 &" I"& XPOS+4.8514*X1+0.8229*X2 &" J"& YPOS+4.8514*Y1+0.8229*Y2 Code GM&" X" & XPOS+6.6699*X1+1.8569*X2 &" Y" & YPOS+6.6699*Y1+1.8569*Y2 &" I"& XPOS+3.259*X1+3.0679*X2 &" J"& YPOS+3.259*Y1+3.0679*Y2 Largo=6 Case 48 'i Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.4583*X1+1.772*X2 &" Y" & YPOS+5.4583*Y1+1.772*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+4.0961*X1+0.1602*X2 &" Y" & YPOS+4.0961*Y1+0.1602*Y2 &" I"& XPOS+1.7515*X1+3.5233*X2 &" J"& YPOS+1.7515*Y1+3.5233*Y2 Code GG&" X" & XPOS+2.8245*X1+1.15*X2 &" Y" & YPOS+2.8245*Y1+1.15*Y2 &" I"& XPOS+3.6137*X1+0.8522*X2 &" J"& YPOS+3.6137*Y1+0.8522*Y2 Code "G01 X" & XPOS+4.4398*X1+5.4301*X2 &" Y" & YPOS+4.4398*Y1+5.4301*Y2 Code GM&" X" & XPOS+3.2495*X1+6.4531*X2 &" Y" & YPOS+3.2495*Y1+6.4531*Y2 &" I"& XPOS+3.6585*X1+5.725*X2 &" J"& YPOS+3.6585*Y1+5.725*Y2 Code GM&" X" & XPOS+1.8481*X1+4.9093*X2 &" Y" & YPOS+1.8481*Y1+4.9093*Y2 &" I"& XPOS+4.8633*X1+3.5803*X2 &" J"& YPOS+4.8633*Y1+3.5803*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.4546*X1+9.5002*X2 &" Y" & YPOS+5.4546*Y1+9.5002*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+5.4546*X1+9.5002*X2 &" Y" & YPOS+5.4546*Y1+9.5002*Y2 &" I"& XPOS+5.0746*X1+9.5002*X2 &" J"& YPOS+5.0746*Y1+9.5002*Y2 Largo=4.8 Case 57 'j Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+-0.3657*X1+-1.9817*X2 &" Y" & YPOS+-0.3657*Y1+-1.9817*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+-0.6678*X1+-3.1484*X2 &" Y" & YPOS+-0.6678*Y1+-3.1484*Y2 &" I"& XPOS-0.2072*X1-2.6452*X2 &" J"& YPOS-0.2072*Y1-2.6452*Y2 Code GM&" X" & XPOS+0.1559*X1+-3.3009*X2 &" Y" & YPOS+0.1559*Y1+-3.3009*Y2 &" I"& XPOS-0.1338*X1-2.565*X2 &" J"& YPOS-0.1338*Y1-2.565*Y2 Code GM&" X" & XPOS+1.0361*X1+-2.6224*X2 &" Y" & YPOS+1.0361*Y1+-2.6224*Y2 &" I"& XPOS-0.5762*X1-1.4411*X2 &" J"& YPOS-0.5762*Y1-1.4411*Y2 Code GM&" X" & XPOS+1.9643*X1+-0.9303*X2 &" Y" & YPOS+1.9643*Y1+-0.9303*Y2 &" I"& XPOS-4.9419*X1+1.7574*X2 &" J"& YPOS-4.9419*Y1+1.7574*Y2 Code "G01 X" & XPOS+4.4397*X1+5.4302*X2 &" Y" & YPOS+4.4397*Y1+5.4302*Y2 Code GM&" X" & XPOS+3.0533*X1+6.4854*X2 &" Y" & YPOS+3.0533*Y1+6.4854*Y2 &" I"& XPOS+3.5951*X1+5.7589*X2 &" J"& YPOS+3.5951*Y1+5.7589*Y2 Code GM&" X" & XPOS+1.848*X1+4.9094*X2 &" Y" & YPOS+1.848*Y1+4.9094*Y2 &" I"& XPOS+5.2216*X1+3.5783*X2 &" J"& YPOS+5.2216*Y1+3.5783*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.438*X1+9.5001*X2 &" Y" & YPOS+5.438*Y1+9.5001*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+5.438*X1+9.5001*X2 &" Y" & YPOS+5.438*Y1+9.5001*Y2 &" I"& XPOS+5.058*X1+9.5001*X2 &" J"& YPOS+5.058*Y1+9.5001*Y2 Largo=2.4 Case 58 'k Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.7*X1+9.9887*X2 &" Y" & YPOS+2.7*Y1+9.9887*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+3.9529*X1+9.9887*X2 &" Y" & YPOS+3.9529*Y1+9.9887*Y2 Code "G01 X" & XPOS+0.1886*X1+-0.0113*X2 &" Y" & YPOS+0.1886*Y1+-0.0113*Y2 Code "G01 X" & XPOS+1.6151*X1+3.7784*X2 &" Y" & YPOS+1.6151*Y1+3.7784*Y2 Code GM&" X" & XPOS+3.07*X1+4.2266*X2 &" Y" & YPOS+3.07*Y1+4.2266*Y2 &" I"& XPOS+1.5224*X1+6.6645*X2 &" J"& YPOS+1.5224*Y1+6.6645*Y2 Code GM&" X" & XPOS+4.0162*X1+5.2019*X2 &" Y" & YPOS+4.0162*Y1+5.2019*Y2 &" I"& XPOS+1.5055*X1+6.6912*X2 &" J"& YPOS+1.5055*Y1+6.6912*Y2 Code GG&" X" & XPOS+6.0173*X1+6.5909*X2 &" Y" & YPOS+6.0173*Y1+6.5909*Y2 &" I"& XPOS+6.5365*X1+3.7069*X2 &" J"& YPOS+6.5365*Y1+3.7069*Y2 Code "G01 X" & XPOS+6.7493*X1+6.5909*X2 &" Y" & YPOS+6.7493*Y1+6.5909*Y2 Code "G01 X" & XPOS+5.2771*X1+6.5909*X2 &" Y" & YPOS+5.2771*Y1+6.5909*Y2 Code "G01 X" & XPOS+6.0173*X1+6.5909*X2 &" Y" & YPOS+6.0173*Y1+6.5909*Y2 Code GM&" X" & XPOS+4.0162*X1+5.2019*X2 &" Y" & YPOS+4.0162*Y1+5.2019*Y2 &" I"& XPOS+6.5365*X1+3.7069*X2 &" J"& YPOS+6.5365*Y1+3.7069*Y2 Code GG&" X" & XPOS+3.07*X1+4.2266*X2 &" Y" & YPOS+3.07*Y1+4.2266*Y2 &" I"& XPOS+1.5054*X1+6.6912*X2 &" J"& YPOS+1.5054*Y1+6.6912*Y2 Code GG&" X" & XPOS+2.0716*X1+3.8296*X2 &" Y" & YPOS+2.0716*Y1+3.8296*Y2 &" I"& XPOS+1.5225*X1+6.6644*X2 &" J"& YPOS+1.5225*Y1+6.6644*Y2 Code GG&" X" & XPOS+2.7014*X1+3.2865*X2 &" Y" & YPOS+2.7014*Y1+3.2865*Y2 &" I"& XPOS+2.0945*X1+3.2195*X2 &" J"& YPOS+2.0945*Y1+3.2195*Y2 Code "G01 X" & XPOS+2.9842*X1+0.7263*X2 &" Y" & YPOS+2.9842*Y1+0.7263*Y2 Code GM&" X" & XPOS+3.826*X1+0.0111*X2 &" Y" & YPOS+3.826*Y1+0.0111*Y2 &" I"& XPOS+3.7839*X1+0.8146*X2 &" J"& YPOS+3.7839*Y1+0.8146*Y2 Code GM&" X" & XPOS+5.6817*X1+1.5217*X2 &" Y" & YPOS+5.6817*Y1+1.5217*Y2 &" I"& XPOS+3.7199*X1+2.0365*X2 &" J"& YPOS+3.7199*Y1+2.0365*Y2 Largo=5.2 Case 59 'l Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.5473*X1+10*X2 &" Y" & YPOS+3.5473*Y1+10*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+4.7774*X1+10*X2 &" Y" & YPOS+4.7774*Y1+10*Y2 Code "G01 X" & XPOS+1.4841*X1+1.2511*X2 &" Y" & YPOS+1.4841*Y1+1.2511*Y2 Code GM&" X" & XPOS+2.8375*X1+0.183*X2 &" Y" & YPOS+2.8375*Y1+0.183*Y2 &" I"& XPOS+2.3307*X1+0.9323*X2 &" J"& YPOS+2.3307*Y1+0.9323*Y2 Code GM&" X" & XPOS+4.0758*X1+1.7719*X2 &" Y" & YPOS+4.0758*Y1+1.7719*Y2 &" I"& XPOS+1.0113*X1+2.8831*X2 &" J"& YPOS+1.0113*Y1+2.8831*Y2 Largo=3.4 Case 67 'm Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.8514*X1+4.9093*X2 &" Y" & YPOS+1.8514*Y1+4.9093*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.1168*X1+6.379*X2 &" Y" & YPOS+3.1168*Y1+6.379*Y2 &" I"& XPOS+5.2431*X1+3.2688*X2 &" J"& YPOS+5.2431*Y1+3.2688*Y2 Code GG&" X" & XPOS+4.42*X1+5.355*X2 &" Y" & YPOS+4.42*Y1+5.355*Y2 &" I"& XPOS+3.6071*X1+5.6618*X2 &" J"& YPOS+3.6071*Y1+5.6618*Y2 Code "G01 X" & XPOS+2.3991*X1+-0.0001*X2 &" Y" & YPOS+2.3991*Y1+-0.0001*Y2 Code "G01 X" & XPOS+3.968*X1+4.1679*X2 &" Y" & YPOS+3.968*Y1+4.1679*Y2 Code GG&" X" & XPOS+5.4545*X1+6.1727*X2 &" Y" & YPOS+5.4545*Y1+6.1727*Y2 &" I"& XPOS+8.6359*X1+2.2603*X2 &" J"& YPOS+8.6359*Y1+2.2603*Y2 Code GG&" X" & XPOS+6.6302*X1+6.6552*X2 &" Y" & YPOS+6.6302*Y1+6.6552*Y2 &" I"& XPOS+6.8413*X1+4.4673*X2 &" J"& YPOS+6.8413*Y1+4.4673*Y2 Code GG&" X" & XPOS+7.8705*X1+4.6981*X2 &" Y" & YPOS+7.8705*Y1+4.6981*Y2 &" I"& XPOS+6.7549*X1+5.3626*X2 &" J"& YPOS+6.7549*Y1+5.3626*Y2 Code "G01 X" & XPOS+5.9542*X1 &" Y" & YPOS+5.9542*Y1 Code "G01 X" & XPOS+7.8705*X1+4.6982*X2 &" Y" & YPOS+7.8705*Y1+4.6982*Y2 Code GG&" X" & XPOS+9.1213*X1+6.1728*X2 &" Y" & YPOS+9.1213*Y1+6.1728*Y2 &" I"& XPOS+12.2957*X1+2.2124*X2 &" J"& YPOS+12.2957*Y1+2.2124*Y2 Code GG&" X" & XPOS+10.2885*X1+6.6553*X2 &" Y" & YPOS+10.2885*Y1+6.6553*Y2 &" I"& XPOS+10.5324*X1+4.4124*X2 &" J"& YPOS+10.5324*Y1+4.4124*Y2 Code GG&" X" & XPOS+11.623*X1+4.8753*X2 &" Y" & YPOS+11.623*Y1+4.8753*Y2 &" I"& XPOS+10.4283*X1+5.3699*X2 &" J"& YPOS+10.4283*Y1+5.3699*Y2 Code "G01 X" & XPOS+10.1228*X1+1.251*X2 &" Y" & YPOS+10.1228*Y1+1.251*Y2 Code GM&" X" & XPOS+11.4818*X1+0.2141*X2 &" Y" & YPOS+11.4818*Y1+0.2141*Y2 &" I"& XPOS+10.9398*X1+0.9127*X2 &" J"& YPOS+10.9398*Y1+0.9127*Y2 Code GM&" X" & XPOS+12.7145*X1+1.7719*X2 &" Y" & YPOS+12.7145*Y1+1.7719*Y2 &" I"& XPOS+8.9377*X1+3.494*X2 &" J"& YPOS+8.9377*Y1+3.494*Y2 Largo=12.2 Case 66 'n Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.8461*X1+4.9093*X2 &" Y" & YPOS+1.8461*Y1+4.9093*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.048*X1+6.4478*X2 &" Y" & YPOS+3.048*Y1+6.4478*Y2 &" I"& XPOS+5.3351*X1+3.4223*X2 &" J"& YPOS+5.3351*Y1+3.4223*Y2 Code GG&" X" & XPOS+4.4343*X1+5.4112*X2 &" Y" & YPOS+4.4343*Y1+5.4112*Y2 &" I"& XPOS+3.5913*X1+5.7291*X2 &" J"& YPOS+3.5913*Y1+5.7291*Y2 Code "G01 X" & XPOS+2.3937*X1 &" Y" & YPOS+2.3937*Y1 Code "G01 X" & XPOS+3.9627*X1+4.168*X2 &" Y" & YPOS+3.9627*Y1+4.168*Y2 Code GG&" X" & XPOS+5.4315*X1+6.1957*X2 &" Y" & YPOS+5.4315*Y1+6.1957*Y2 &" I"& XPOS+8.6666*X1+2.3065*X2 &" J"& YPOS+8.6666*Y1+2.3065*Y2 Code GG&" X" & XPOS+6.625*X1+6.6553*X2 &" Y" & YPOS+6.625*Y1+6.6553*Y2 &" I"& XPOS+6.7074*X1+4.6619*X2 &" J"& YPOS+6.7074*Y1+4.6619*Y2 Code GG&" X" & XPOS+7.9288*X1+4.7863*X2 &" Y" & YPOS+7.9288*Y1+4.7863*Y2 &" I"& XPOS+6.6809*X1+5.305*X2 &" J"& YPOS+6.6809*Y1+5.305*Y2 Code "G01 X" & XPOS+6.4593*X1+1.2511*X2 &" Y" & YPOS+6.4593*Y1+1.2511*Y2 Code GM&" X" & XPOS+7.8379*X1+0.2142*X2 &" Y" & YPOS+7.8379*Y1+0.2142*Y2 &" I"& XPOS+7.2815*X1+0.9093*X2 &" J"& YPOS+7.2815*Y1+0.9093*Y2 Code GM&" X" & XPOS+9.051*X1+1.772*X2 &" Y" & YPOS+9.051*Y1+1.772*Y2 &" I"& XPOS+5.1788*X1+3.5362*X2 &" J"& YPOS+5.1788*Y1+3.5362*Y2 Largo=8.4 Case 60 'ñ Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.8461*X1+4.9093*X2 &" Y" & YPOS+1.8461*Y1+4.9093*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.048*X1+6.4478*X2 &" Y" & YPOS+3.048*Y1+6.4478*Y2 &" I"& XPOS+5.3351*X1+3.4223*X2 &" J"& YPOS+5.3351*Y1+3.4223*Y2 Code GG&" X" & XPOS+4.4343*X1+5.4112*X2 &" Y" & YPOS+4.4343*Y1+5.4112*Y2 &" I"& XPOS+3.5913*X1+5.7291*X2 &" J"& YPOS+3.5913*Y1+5.7291*Y2 Code "G01 X" & XPOS+2.3937*X1 &" Y" & YPOS+2.3937*Y1 Code "G01 X" & XPOS+3.9627*X1+4.168*X2 &" Y" & YPOS+3.9627*Y1+4.168*Y2 Code GG&" X" & XPOS+5.4315*X1+6.1957*X2 &" Y" & YPOS+5.4315*Y1+6.1957*Y2 &" I"& XPOS+8.6666*X1+2.3065*X2 &" J"& YPOS+8.6666*Y1+2.3065*Y2 Code GG&" X" & XPOS+6.625*X1+6.6553*X2 &" Y" & YPOS+6.625*Y1+6.6553*Y2 &" I"& XPOS+6.7074*X1+4.6619*X2 &" J"& YPOS+6.7074*Y1+4.6619*Y2 Code GG&" X" & XPOS+7.9288*X1+4.7863*X2 &" Y" & YPOS+7.9288*Y1+4.7863*Y2 &" I"& XPOS+6.6809*X1+5.305*X2 &" J"& YPOS+6.6809*Y1+5.305*Y2 Code "G01 X" & XPOS+6.4593*X1+1.2511*X2 &" Y" & YPOS+6.4593*Y1+1.2511*Y2 Code GM&" X" & XPOS+7.8379*X1+0.2142*X2 &" Y" & YPOS+7.8379*Y1+0.2142*Y2 &" I"& XPOS+7.2815*X1+0.9093*X2 &" J"& YPOS+7.2815*Y1+0.9093*Y2 Code GM&" X" & XPOS+9.051*X1+1.772*X2 &" Y" & YPOS+9.051*Y1+1.772*Y2 &" I"& XPOS+5.1788*X1+3.5362*X2 &" J"& YPOS+5.1788*Y1+3.5362*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.2085*X1+8.2869 *X2 &" Y" & YPOS+3.2085*Y1+8.2869 *Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+3.4404*X1+8.5425 *X2 &" Y" & YPOS+3.4404*Y1+8.5425 *Y2 Code GG&" X" & XPOS+5.3101*X1+8.5425*X2 &" Y" & YPOS+5.3101*Y1+8.5425*Y2 &" I"& XPOS+4.3752*X1+7.6944*X2 &" J"& YPOS+4.3752*Y1+7.6944*Y2 Code "G01 X" & XPOS+5.8818*X1+7.9123 *X2 &" Y" & YPOS+5.8818*Y1+7.9123 *Y2 Code GM&" X" & XPOS+7.7515*X1+7.9123*X2 &" Y" & YPOS+7.7515*Y1+7.9123*Y2 &" I"& XPOS+6.8167*X1+8.7604*X2 &" J"& YPOS+6.8167*Y1+8.7604*Y2 Code "G01 X" & XPOS+7.9834*X1+8.1678 *X2 &" Y" & YPOS+7.9834*Y1+8.1678 *Y2 Largo=8.4 Case 49 'o Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.8256*X1+0.0001*X2 &" Y" & YPOS+2.8256*Y1+0.0001*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+4.4638*X1+0.7428*X2 &" Y" & YPOS+4.4638*Y1+0.7428*Y2 &" I"& XPOS+2.8414*X1+2.1434*X2 &" J"& YPOS+2.8414*Y1+2.1434*Y2 Code GM&" X" & XPOS+5.8144*X1+5.2844*X2 &" Y" & YPOS+5.8144*Y1+5.2844*Y2 &" I"& XPOS+0.0964*X1+4.5132*X2 &" J"& YPOS+0.0964*Y1+4.5132*Y2 Code GM&" X" & XPOS+4.006*X1+6.6487*X2 &" Y" & YPOS+4.006*Y1+6.6487*Y2 &" I"& XPOS+4.2348*X1+5.0713*X2 &" J"& YPOS+4.2348*Y1+5.0713*Y2 Code GM&" X" & XPOS+2.5324*X1+5.8462*X2 &" Y" & YPOS+2.5324*Y1+5.8462*Y2 &" I"& XPOS+4.3529*X1+4.2576*X2 &" J"& YPOS+4.3529*Y1+4.2576*Y2 Code GM&" X" & XPOS+1.2361*X1+1.8278*X2 &" Y" & YPOS+1.2361*Y1+1.8278*Y2 &" I"& XPOS+6.5651*X1+2.3271*X2 &" J"& YPOS+6.5651*Y1+2.3271*Y2 Code GM&" X" & XPOS+1.8771*X1+0.4085*X2 &" Y" & YPOS+1.8771*Y1+0.4085*Y2 &" I"& XPOS+3.623*X1+2.0514*X2 &" J"& YPOS+3.623*Y1+2.0514*Y2 Code GM&" X" & XPOS+2.8021*X1+-0.0035*X2 &" Y" & YPOS+2.8021*Y1+-0.0035*Y2 &" I"& XPOS+2.8313*X1+1.3064*X2 &" J"& YPOS+2.8313*Y1+1.3064*Y2 Largo=4.6 Case 50 'p Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.8413*X1+4.8916*X2 &" Y" & YPOS+1.8413*Y1+4.8916*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.0574*X1+6.433*X2 &" Y" & YPOS+3.0574*Y1+6.433*Y2 &" I"& XPOS+5.3428*X1+3.3793*X2 &" J"& YPOS+5.3428*Y1+3.3793*Y2 Code GG&" X" & XPOS+4.4307*X1+5.4014*X2 &" Y" & YPOS+4.4307*Y1+5.4014*Y2 &" I"& XPOS+3.5935*X1+5.7167*X2 &" J"& YPOS+3.5935*Y1+5.7167*Y2 Code "G01 X" & XPOS+1.1447*X1+-3.323*X2 &" Y" & YPOS+1.1447*Y1+-3.323*Y2 Code "G01 X" & XPOS+-0.0523*X1+-3.323*X2 &" Y" & YPOS+-0.0523*Y1+-3.323*Y2 Code "G01 X" & XPOS+2.3711*X1+-3.323*X2 &" Y" & YPOS+2.3711*Y1+-3.323*Y2 Code "G01 X" & XPOS+1.1447*X1+-3.323*X2 &" Y" & YPOS+1.1447*Y1+-3.323*Y2 Code "G01 X" & XPOS+2.9689*X1+1.5231*X2 &" Y" & YPOS+2.9689*Y1+1.5231*Y2 Code GM&" X" & XPOS+4.4275*X1+0.0002*X2 &" Y" & YPOS+4.4275*Y1+0.0002*Y2 &" I"& XPOS+4.4114*X1+1.4447*X2 &" J"& YPOS+4.4114*Y1+1.4447*Y2 Code GM&" X" & XPOS+6.0757*X1+0.7014*X2 &" Y" & YPOS+6.0757*Y1+0.7014*Y2 &" I"& XPOS+4.4013*X1+2.3496*X2 &" J"& YPOS+4.4013*Y1+2.3496*Y2 Code GM&" X" & XPOS+7.905*X1+5.3965*X2 &" Y" & YPOS+7.905*Y1+5.3965*Y2 &" I"& XPOS+1.5294*X1+5.1766*X2 &" J"& YPOS+1.5294*Y1+5.1766*Y2 Code GM&" X" & XPOS+6.0757*X1+6.7075*X2 &" Y" & YPOS+6.0757*Y1+6.7075*Y2 &" I"& XPOS+6.4855*X1+5.3475*X2 &" J"& YPOS+6.4855*Y1+5.3475*Y2 Code GM&" X" & XPOS+4.4683*X1+5.5295*X2 &" Y" & YPOS+4.4683*Y1+5.5295*Y2 &" I"& XPOS+6.9383*X1+3.8449*X2 &" J"& YPOS+6.9383*Y1+3.8449*Y2 Largo=6.4 Case 41 'q Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+6.554*X1+6.6811*X2 &" Y" & YPOS+6.554*Y1+6.6811*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+2.7897*X1+-3.3188*X2 &" Y" & YPOS+2.7897*Y1+-3.3188*Y2 Code "G01 X" & XPOS+4.469*X1+-2.1737*X2 &" Y" & YPOS+4.469*Y1+-2.1737*Y2 Code "G01 X" & XPOS+2.7897*X1+-3.3188*X2 &" Y" & YPOS+2.7897*Y1+-3.3188*Y2 Code "G01 X" & XPOS+4.4826*X1+1.1663*X2 &" Y" & YPOS+4.4826*Y1+1.1663*Y2 Code GG&" X" & XPOS+3.5658*X1+0.3995*X2 &" Y" & YPOS+3.5658*Y1+0.3995*Y2 &" I"& XPOS+2.3218*X1+2.8184*X2 &" J"& YPOS+2.3218*Y1+2.8184*Y2 Code GG&" X" & XPOS+1.0763*X1+1.6426*X2 &" Y" & YPOS+1.0763*Y1+1.6426*Y2 &" I"& XPOS+2.7767*X1+1.9337*X2 &" J"& YPOS+2.7767*Y1+1.9337*Y2 Code GG&" X" & XPOS+2.0419*X1+5.4284*X2 &" Y" & YPOS+2.0419*Y1+5.4284*Y2 &" I"& XPOS+5.806*X1+2.4523*X2 &" J"& YPOS+5.806*Y1+2.4523*Y2 Code GG&" X" & XPOS+4.1449*X1+6.6475*X2 &" Y" & YPOS+4.1449*Y1+6.6475*Y2 &" I"& XPOS+4.6356*X1+3.3777*X2 &" J"& YPOS+4.6356*Y1+3.3777*Y2 Code GG&" X" & XPOS+5.6383*X1+6.0684*X2 &" Y" & YPOS+5.6383*Y1+6.0684*Y2 &" I"& XPOS+4.3846*X1+5.0504*X2 &" J"& YPOS+4.3846*Y1+5.0504*Y2 Code GG&" X" & XPOS+5.7273*X1+4.485*X2 &" Y" & YPOS+5.7273*Y1+4.485*Y2 &" I"& XPOS+4.5875*X1+5.2152*X2 &" J"& YPOS+4.5875*Y1+5.2152*Y2 Largo=4.2 Case 44 'r Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.9256*X1+5.1435*X2 &" Y" & YPOS+1.9256*Y1+5.1435*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.2265*X1+6.7963*X2 &" Y" & YPOS+3.2265*Y1+6.7963*Y2 &" I"& XPOS+5.6787*X1+3.5279*X2 &" J"& YPOS+5.6787*Y1+3.5279*Y2 Code GG&" X" & XPOS+4.6566*X1+5.723*X2 &" Y" & YPOS+4.6566*Y1+5.723*Y2 &" I"& XPOS+3.7853*X1+6.0515*X2 &" J"& YPOS+3.7853*Y1+6.0515*Y2 Code "G01 X" & XPOS+2.4993*X1 &" Y" & YPOS+2.4993*Y1 Code "G01 X" & XPOS+4.2588*X1+4.6744*X2 &" Y" & YPOS+4.2588*Y1+4.6744*Y2 Code GG&" X" & XPOS+6.2013*X1+6.7735*X2 &" Y" & YPOS+6.2013*Y1+6.7735*Y2 &" I"& XPOS+8.0788*X1+3.0876*X2 &" J"& YPOS+8.0788*Y1+3.0876*Y2 Code GG&" X" & XPOS+7.66*X1+6.813*X2 &" Y" & YPOS+7.66*Y1+6.813*Y2 &" I"& XPOS+6.9722*X1+5.2601*X2 &" J"& YPOS+6.9722*Y1+5.2601*Y2 Code GG&" X" & XPOS+7.3779*X1+5.3604*X2 &" Y" & YPOS+7.3779*Y1+5.3604*Y2 &" I"& XPOS+7.3526*X1+6.119*X2 &" J"& YPOS+7.3526*Y1+6.119*Y2 Largo=6 Case 52 's Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.2053*X1+1.5041*X2 &" Y" & YPOS+1.2053*Y1+1.5041*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+0.5867*X1+1.3384*X2 &" Y" & YPOS+0.5867*Y1+1.3384*Y2 &" I"& XPOS+0.8831*X1+1.4695*X2 &" J"& YPOS+0.8831*Y1+1.4695*Y2 Code GM&" X" & XPOS+1.0617*X1+0.7198*X2 &" Y" & YPOS+1.0617*Y1+0.7198*Y2 &" I"& XPOS+2.0964*X1+2.006*X2 &" J"& YPOS+2.0964*Y1+2.006*Y2 Code GM&" X" & XPOS+4.1434*X1+0.2117*X2 &" Y" & YPOS+4.1434*Y1+0.2117*Y2 &" I"& XPOS+3.0524*X1+3.1941*X2 &" J"& YPOS+3.0524*Y1+3.1941*Y2 Code GM&" X" & XPOS+5.5241*X1+1.3825*X2 &" Y" & YPOS+5.5241*Y1+1.3825*Y2 &" I"& XPOS+3.243*X1+2.6729*X2 &" J"& YPOS+3.243*Y1+2.6729*Y2 Code GM&" X" & XPOS+5.513*X1+2.4097*X2 &" Y" & YPOS+5.513*Y1+2.4097*Y2 &" I"& XPOS+4.633*X1+1.8866*X2 &" J"& YPOS+4.633*Y1+1.8866*Y2 Code GM&" X" & XPOS+5.1706*X1+2.7853*X2 &" Y" & YPOS+5.1706*Y1+2.7853*Y2 &" I"& XPOS+4.4292*X1+1.7654*X2 &" J"& YPOS+4.4292*Y1+1.7654*Y2 Code "G01 X" & XPOS+2.8078*X1+4.5029*X2 &" Y" & YPOS+2.8078*Y1+4.5029*Y2 Code GG&" X" & XPOS+2.7688*X1+6.2242*X2 &" Y" & YPOS+2.7688*Y1+6.2242*Y2 &" I"& XPOS+3.4442*X1+5.3784*X2 &" J"& YPOS+3.4442*Y1+5.3784*Y2 Code GG&" X" & XPOS+3.9587*X1+6.7963*X2 &" Y" & YPOS+3.9587*Y1+6.7963*Y2 &" I"& XPOS+4.6094*X1+3.9194*X2 &" J"& YPOS+4.6094*Y1+3.9194*Y2 Code GG&" X" & XPOS+6.3157*X1+6.4302*X2 &" Y" & YPOS+6.3157*Y1+6.4302*Y2 &" I"& XPOS+4.6742*X1+3.6327*X2 &" J"& YPOS+4.6742*Y1+3.6327*Y2 Code GG&" X" & XPOS+6.7048*X1+5.9268*X2 &" Y" & YPOS+6.7048*Y1+5.9268*Y2 &" I"& XPOS+5.884*X1+5.6946*X2 &" J"& YPOS+5.884*Y1+5.6946*Y2 Code GG&" X" & XPOS+6.0641*X1+5.6293*X2 &" Y" & YPOS+6.0641*Y1+5.6293*Y2 &" I"& XPOS+6.3606*X1+5.8294*X2 &" J"& YPOS+6.3606*Y1+5.8294*Y2 Largo=5 Case 45 't Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.2982*X1+6.5356*X2 &" Y" & YPOS+2.2982*Y1+6.5356*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+5.6762*X1+6.5356*X2 &" Y" & YPOS+5.6762*Y1+6.5356*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.2688*X1+10.0267*X2 &" Y" & YPOS+5.2688*Y1+10.0267*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+1.9791*X1+1.3345*X2 &" Y" & YPOS+1.9791*Y1+1.3345*Y2 Code GM&" X" & XPOS+3.3499*X1+0.1836*X2 &" Y" & YPOS+3.3499*Y1+0.1836*Y2 &" I"& XPOS+2.8659*X1+0.9989*X2 &" J"& YPOS+2.8659*Y1+0.9989*Y2 Code GM&" X" & XPOS+4.7346*X1+1.8969*X2 &" Y" & YPOS+4.7346*Y1+1.8969*Y2 &" I"& XPOS+1.7338*X1+2.9059*X2 &" J"& YPOS+1.7338*Y1+2.9059*Y2 Largo=4 Case 47 'u Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.8383*X1+4.8834*X2 &" Y" & YPOS+1.8383*Y1+4.8834*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.0441*X1+6.521*X2 &" Y" & YPOS+3.0441*Y1+6.521*Y2 &" I"& XPOS+5.5153*X1+3.4386*X2 &" J"& YPOS+5.5153*Y1+3.4386*Y2 Code GG&" X" & XPOS+4.4572*X1+5.4658*X2 &" Y" & YPOS+4.4572*Y1+5.4658*Y2 &" I"& XPOS+3.6139*X1+5.8103*X2 &" J"& YPOS+3.6139*Y1+5.8103*Y2 Code "G01 X" & XPOS+3.024*X1+1.9572*X2 &" Y" & YPOS+3.024*Y1+1.9572*Y2 Code GM&" X" & XPOS+3.8405*X1+0.1106*X2 &" Y" & YPOS+3.8405*Y1+0.1106*Y2 &" I"& XPOS+4.3217*X1+1.4271*X2 &" J"& YPOS+4.3217*Y1+1.4271*Y2 Code GM&" X" & XPOS+5.2214*X1+0.0994*X2 &" Y" & YPOS+5.2214*Y1+0.0994*Y2 &" I"& XPOS+4.5465*X1+2.0422*X2 &" J"& YPOS+4.5465*Y1+2.0422*Y2 Code GM&" X" & XPOS+5.7627*X1+0.4529*X2 &" Y" & YPOS+5.7627*Y1+0.4529*Y2 &" I"& XPOS+4.7824*X1+1.3628*X2 &" J"& YPOS+4.7824*Y1+1.3628*Y2 Code GM&" X" & XPOS+6.8946*X1+2.408*X2 &" Y" & YPOS+6.8946*Y1+2.408*Y2 &" I"& XPOS+2.0251*X1+3.9219*X2 &" J"& YPOS+2.0251*Y1+3.9219*Y2 Code "G01 X" & XPOS+8.5118*X1+6.7042*X2 &" Y" & YPOS+8.5118*Y1+6.7042*Y2 Code "G01 X" & XPOS+6.4591*X1+1.251*X2 &" Y" & YPOS+6.4591*Y1+1.251*Y2 Code GM&" X" & XPOS+7.9194*X1+0.2266*X2 &" Y" & YPOS+7.9194*Y1+0.2266*Y2 &" I"& XPOS+7.321*X1+0.9266*X2 &" J"& YPOS+7.321*Y1+0.9266*Y2 Code GM&" X" & XPOS+9.0509*X1+1.7719*X2 &" Y" & YPOS+9.0509*Y1+1.7719*Y2 &" I"& XPOS+5.207*X1+3.3994*X2 &" J"& YPOS+5.207*Y1+3.3994*Y2 Largo=8.6 Case 64 'v Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.8853*X1+5.1228*X2 &" Y" & YPOS+1.8853*Y1+5.1228*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.1579*X1+6.7735*X2 &" Y" & YPOS+3.1579*Y1+6.7735*Y2 &" I"& XPOS+4.5323*X1+4.398*X2 &" J"& YPOS+4.5323*Y1+4.398*Y2 Code GG&" X" & XPOS+4.4264*X1+5.8119*X2 &" Y" & YPOS+4.4264*Y1+5.8119*Y2 &" I"& XPOS+3.5902*X1+6.0263*X2 &" J"& YPOS+3.5902*Y1+6.0263*Y2 Code "G01 X" & XPOS+3.5373*X1+2.3447*X2 &" Y" & YPOS+3.5373*Y1+2.3447*Y2 Code GM&" X" & XPOS+3.5255*X1+0.0178*X2 &" Y" & YPOS+3.5255*Y1+0.0178*Y2 &" I"& XPOS+8.1663*X1+1.1577*X2 &" J"& YPOS+8.1663*Y1+1.1577*Y2 Code GM&" X" & XPOS+5.1112*X1+0.6094*X2 &" Y" & YPOS+5.1112*Y1+0.6094*Y2 &" I"& XPOS+2.1679*X1+6.0776*X2 &" J"& YPOS+2.1679*Y1+6.0776*Y2 Code GM&" X" & XPOS+6.4595*X1+2.1224*X2 &" Y" & YPOS+6.4595*Y1+2.1224*Y2 &" I"& XPOS+3.707*X1+3.218*X2 &" J"& YPOS+3.707*Y1+3.218*Y2 Code GM&" X" & XPOS+8.0133*X1+7*X2 &" Y" & YPOS+8.0133*Y1+7*Y2 &" I"& XPOS-27.3237*X1+15.5705*X2 &" J"& YPOS-27.3237*Y1+15.5705*Y2 Largo=5.6 Case 42 'w Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.88*X1+4.9943*X2 &" Y" & YPOS+1.88*Y1+4.9943*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.0893*X1+6.5904*X2 &" Y" & YPOS+3.0893*Y1+6.5904*Y2 &" I"& XPOS+5.4808*X1+3.5223*X2 &" J"& YPOS+5.4808*Y1+3.5223*Y2 Code GG&" X" & XPOS+4.4842*X1+5.5373*X2 &" Y" & YPOS+4.4842*Y1+5.5373*Y2 &" I"& XPOS+3.6455*X1+5.8768*X2 &" J"& YPOS+3.6455*Y1+5.8768*Y2 Code "G01 X" & XPOS+3.0207*X1+1.9222*X2 &" Y" & YPOS+3.0207*Y1+1.9222*Y2 Code GM&" X" & XPOS+4.0021*X1+0.0792*X2 &" Y" & YPOS+4.0021*Y1+0.0792*Y2 &" I"& XPOS+4.2826*X1+1.4114*X2 &" J"& YPOS+4.2826*Y1+1.4114*Y2 Code GM&" X" & XPOS+5.438*X1+0.3885*X2 &" Y" & YPOS+5.438*Y1+0.3885*Y2 &" I"& XPOS+4.3735*X1+1.843*X2 &" J"& YPOS+4.3735*Y1+1.843*Y2 Code GM&" X" & XPOS+6.653*X1+1.9017*X2 &" Y" & YPOS+6.653*Y1+1.9017*Y2 &" I"& XPOS+3.2293*X1+3.4063*X2 &" J"& YPOS+3.2293*Y1+3.4063*Y2 Code GM&" X" & XPOS+7.6203*X1+4.8283*X2 &" Y" & YPOS+7.6203*Y1+4.8283*Y2 &" I"& XPOS-8.2462*X1+8.4492*X2 &" J"& YPOS-8.2462*Y1+8.4492*Y2 Code GG&" X" & XPOS+6.653*X1+1.9017*X2 &" Y" & YPOS+6.653*Y1+1.9017*Y2 &" I"& XPOS-8.2448*X1+8.4487*X2 &" J"& YPOS-8.2448*Y1+8.4487*Y2 Code GM&" X" & XPOS+6.8408*X1+0.753*X2 &" Y" & YPOS+6.8408*Y1+0.753*Y2 &" I"& XPOS+8.5541*X1+1.6227*X2 &" J"& YPOS+8.5541*Y1+1.6227*Y2 Code GM&" X" & XPOS+8.0322*X1+0.0686*X2 &" Y" & YPOS+8.0322*Y1+0.0686*Y2 &" I"& XPOS+7.9592*X1+1.3208*X2 &" J"& YPOS+7.9592*Y1+1.3208*Y2 Code GM&" X" & XPOS+9.4739*X1+0.7322*X2 &" Y" & YPOS+9.4739*Y1+0.7322*Y2 &" I"& XPOS+7.9055*X1+2.2416*X2 &" J"& YPOS+7.9055*Y1+2.2416*Y2 Code GM&" X" & XPOS+10.5543*X1+2.3443*X2 &" Y" & YPOS+10.5543*Y1+2.3443*Y2 &" I"& XPOS+5.4763*X1+4.5795*X2 &" J"& YPOS+5.4763*Y1+4.5795*Y2 Code GM&" X" & XPOS+11.6491*X1+6.7716*X2 &" Y" & YPOS+11.6491*Y1+6.7716*Y2 &" I"& XPOS-1.6249*X1+7.705*X2 &" J"& YPOS-1.6249*Y1+7.705*Y2 Largo=9.6 Case 62 'x Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+0.8186*X1+1.3005*X2 &" Y" & YPOS+0.8186*Y1+1.3005*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+0.5857*X1+0.3314*X2 &" Y" & YPOS+0.5857*Y1+0.3314*Y2 &" I"& XPOS+0.9372*X1+0.7595*X2 &" J"& YPOS+0.9372*Y1+0.7595*Y2 Code GM&" X" & XPOS+1.5038*X1+0.2179*X2 &" Y" & YPOS+1.5038*Y1+0.2179*Y2 &" I"& XPOS+1.1344*X1+0.9996*X2 &" J"& YPOS+1.1344*Y1+0.9996*Y2 Code GM&" X" & XPOS+2.9405*X1+1.5411*X2 &" Y" & YPOS+2.9405*Y1+1.5411*Y2 &" I"& XPOS+0.1045*X1+3.1788*X2 &" J"& YPOS+0.1045*Y1+3.1788*Y2 Code GM&" X" & XPOS+4.2999*X1+4.5759*X2 &" Y" & YPOS+4.2999*Y1+4.5759*Y2 &" I"& XPOS-11.1216*X1+9.6617*X2 &" J"& YPOS-11.1216*Y1+9.6617*Y2 Code GM&" X" & XPOS+4.4609*X1+5.6312*X2 &" Y" & YPOS+4.4609*Y1+5.6312*Y2 &" I"& XPOS+1.2533*X1+5.5806*X2 &" J"& YPOS+1.2533*Y1+5.5806*Y2 Code GM&" X" & XPOS+3.9338*X1+6.696*X2 &" Y" & YPOS+3.9338*Y1+6.696*Y2 &" I"& XPOS+3.0778*X1+5.6094*X2 &" J"& YPOS+3.0778*Y1+5.6094*Y2 Code GM&" X" & XPOS+2.6063*X1+6.9143*X2 &" Y" & YPOS+2.6063*Y1+6.9143*Y2 &" I"& XPOS+3.0723*X1+5.6024*X2 &" J"& YPOS+3.0723*Y1+5.6024*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+7.1274*X1+5.591*X2 &" Y" & YPOS+7.1274*Y1+5.591*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+7.6353*X1+6.5133*X2 &" Y" & YPOS+7.6353*Y1+6.5133*Y2 &" I"& XPOS+7.3468*X1+6.0712*X2 &" J"& YPOS+7.3468*Y1+6.0712*Y2 Code GM&" X" & XPOS+6.0871*X1+6.5001*X2 &" Y" & YPOS+6.0871*Y1+6.5001*Y2 &" I"& XPOS+6.8711*X1+5.3421*X2 &" J"& YPOS+6.8711*Y1+5.3421*Y2 Code GM&" X" & XPOS+4.0331*X1+3.8242*X2 &" Y" & YPOS+4.0331*Y1+3.8242*Y2 &" I"& XPOS+9.0843*X1+2.0731*X2 &" J"& YPOS+9.0843*Y1+2.0731*Y2 Code GM&" X" & XPOS+3.4934*X1+1.9195*X2 &" Y" & YPOS+3.4934*Y1+1.9195*Y2 &" I"& XPOS+20.2813*X1-1.8083*X2 &" J"& YPOS+20.2813*Y1-1.8083*Y2 Code GM&" X" & XPOS+3.5051*X1+1.0733*X2 &" Y" & YPOS+3.5051*Y1+1.0733*Y2 &" I"& XPOS+5.2874*X1+1.5211*X2 &" J"& YPOS+5.2874*Y1+1.5211*Y2 Code GM&" X" & XPOS+5.9312*X1+0.4986*X2 &" Y" & YPOS+5.9312*Y1+0.4986*Y2 &" I"& XPOS+4.8673*X1+1.4156*X2 &" J"& YPOS+4.8673*Y1+1.4156*Y2 Largo=5.8 Case 46 'y Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.9121*X1+5.211*X2 &" Y" & YPOS+1.9121*Y1+5.211*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.1787*X1+6.7619*X2 &" Y" & YPOS+3.1787*Y1+6.7619*Y2 &" I"& XPOS+5.4061*X1+3.6502*X2 &" J"& YPOS+5.4061*Y1+3.6502*Y2 Code GG&" X" & XPOS+4.4954*X1+5.7206*X2 &" Y" & YPOS+4.4954*Y1+5.7206*Y2 &" I"& XPOS+3.6871*X1+6.0516*X2 &" J"& YPOS+3.6871*Y1+6.0516*Y2 Code "G01 X" & XPOS+3.0929*X1+2.2969*X2 &" Y" & YPOS+3.0929*Y1+2.2969*Y2 Code GM&" X" & XPOS+4.5175*X1+0.3832*X2 &" Y" & YPOS+4.5175*Y1+0.3832*Y2 &" I"& XPOS+4.3815*X1+1.7691*X2 &" J"& YPOS+4.3815*Y1+1.7691*Y2 Code GM&" X" & XPOS+5.585*X1+0.8205*X2 &" Y" & YPOS+5.585*Y1+0.8205*Y2 &" I"& XPOS+4.3211*X1+2.3843*X2 &" J"& YPOS+4.3211*Y1+2.3843*Y2 Code GM&" X" & XPOS+6.9206*X1+2.6818*X2 &" Y" & YPOS+6.9206*Y1+2.6818*Y2 &" I"& XPOS+2.8721*X1+4.1771*X2 &" J"& YPOS+2.8721*Y1+4.1771*Y2 Code "G01 X" & XPOS+8.6819*X1+6.9999*X2 &" Y" & YPOS+8.6819*Y1+6.9999*Y2 Code "G01 X" & XPOS+5.4196*X1+-0.9986*X2 &" Y" & YPOS+5.4196*Y1+-0.9986*Y2 Code GG&" X" & XPOS+4.5156*X1+-2.3878*X2 &" Y" & YPOS+4.5156*Y1+-2.3878*Y2 &" I"& XPOS+1.3487*X1+0.6618*X2 &" J"& YPOS+1.3487*Y1+0.6618*Y2 Code GG&" X" & XPOS+3.1759*X1+-2.9817*X2 &" Y" & YPOS+3.1759*Y1+-2.9817*Y2 &" I"& XPOS+3.1172*X1-1.0412*X2 &" J"& YPOS+3.1172*Y1-1.0412*Y2 Code GG&" X" & XPOS+2.2728*X1+-2.768*X2 &" Y" & YPOS+2.2728*Y1+-2.768*Y2 &" I"& XPOS+3.1219*X1-1.195*X2 &" J"& YPOS+3.1219*Y1-1.195*Y2 Code GG&" X" & XPOS+2.1732*X1+-1.2485*X2 &" Y" & YPOS+2.1732*Y1+-1.2485*Y2 &" I"& XPOS+2.6997*X1-1.977*X2 &" J"& YPOS+2.6997*Y1-1.977*Y2 Largo=6 Case 61 'z Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.7872*X1+4.7479*X2 &" Y" & YPOS+1.7872*Y1+4.7479*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.0666*X1+6.43*X2 &" Y" & YPOS+3.0666*Y1+6.43*Y2 &" I"& XPOS+4.993*X1+3.6373*X2 &" J"& YPOS+4.993*Y1+3.6373*Y2 Code GG&" X" & XPOS+5.0367*X1+6.1985*X2 &" Y" & YPOS+5.0367*Y1+6.1985*Y2 &" I"& XPOS+3.9199*X1+5.1929*X2 &" J"& YPOS+3.9199*Y1+5.1929*Y2 Code GM&" X" & XPOS+6.3805*X1+5.8679*X2 &" Y" & YPOS+6.3805*Y1+5.8679*Y2 &" I"& XPOS+5.952*X1+7.0227*X2 &" J"& YPOS+5.952*Y1+7.0227*Y2 Code GM&" X" & XPOS+7.0665*X1+6.6799*X2 &" Y" & YPOS+7.0665*Y1+6.6799*Y2 &" I"& XPOS+6.0045*X1+6.8813*X2 &" J"& YPOS+6.0045*Y1+6.8813*Y2 Code GG&" X" & XPOS+6.8607*X1+6.2561*X2 &" Y" & YPOS+6.8607*Y1+6.2561*Y2 &" I"& XPOS+5.8585*X1+7.0047*X2 &" J"& YPOS+5.8585*Y1+7.0047*Y2 Code GG&" X" & XPOS+4.0964*X1+3.7524*X2 &" Y" & YPOS+4.0964*Y1+3.7524*Y2 &" I"& XPOS+0.5192*X1+10.4797*X2 &" J"& YPOS+0.5192*Y1+10.4797*Y2 Code GM&" X" & XPOS+0.7378*X1 &" Y" & YPOS+0.7378*Y1 &" I"& XPOS+7.5248*X1-2.6952*X2 &" J"& YPOS+7.5248*Y1-2.6952*Y2 Code GG&" X" & XPOS+1.1365*X1+0.7021*X2 &" Y" & YPOS+1.1365*Y1+0.7021*Y2 &" I"& XPOS+8.5312*X1-3.9614*X2 &" J"& YPOS+8.5312*Y1-3.9614*Y2 Code GG&" X" & XPOS+2.3493*X1+0.7377*X2 &" Y" & YPOS+2.3493*Y1+0.7377*Y2 &" I"& XPOS+1.7572*X1+0.2338*X2 &" J"& YPOS+1.7572*Y1+0.2338*Y2 Code GM&" X" & XPOS+4.0734*X1+0.0222*X2 &" Y" & YPOS+4.0734*Y1+0.0222*Y2 &" I"& XPOS+3.9114*X1+2.0671*X2 &" J"& YPOS+3.9114*Y1+2.0671*Y2 Code GM&" X" & XPOS+5.9249*X1+1.4688*X2 &" Y" & YPOS+5.9249*Y1+1.4688*Y2 &" I"& XPOS+3.9052*X1+2.1456*X2 &" J"& YPOS+3.9052*Y1+2.1456*Y2 Largo=5.4 Case 1 '1 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.6525*X1+7.1744*X2 &" Y" & YPOS+2.6525*Y1+7.1744*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+6.105*X1+10*X2 &" Y" & YPOS+6.105*Y1+10*Y2 &" I"& XPOS-4.9433*X1+19.9774*X2 &" J"& YPOS-4.9433*Y1+19.9774*Y2 Code "G01 X" & XPOS+2.3378*X1 &" Y" & YPOS+2.3378*Y1 Largo=2.3378 Case 2 '2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+4.0047*X1+7.9407*X2 &" Y" & YPOS+4.0047*Y1+7.9407*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.1912*X1+8.0931*X2 &" Y" & YPOS+3.1912*Y1+8.0931*Y2 &" I"& XPOS+3.5871*X1+7.9588*X2 &" J"& YPOS+3.5871*Y1+7.9588*Y2 Code GG&" X" & XPOS+5.925*X1+10.0001*X2 &" Y" & YPOS+5.925*Y1+10.0001*Y2 &" I"& XPOS+5.8527*X1+7.1907*X2 &" J"& YPOS+5.8527*Y1+7.1907*Y2 Code GG&" X" & XPOS+7.8026*X1+6.587*X2 &" Y" & YPOS+7.8026*Y1+6.587*Y2 &" I"& XPOS+5.867*X1+7.7452*X2 &" J"& YPOS+5.867*Y1+7.7452*Y2 Code GG&" X" & XPOS+4.6901*X1+4.1538*X2 &" Y" & YPOS+4.6901*Y1+4.1538*Y2 &" I"& XPOS+3.0918*X1+9.4057*X2 &" J"& YPOS+3.0918*Y1+9.4057*Y2 Code GM&" X" & XPOS+0.2059*X1+0.0001*X2 &" Y" & YPOS+0.2059*Y1+0.0001*Y2 &" I"& XPOS+6.7286*X1-2.5442*X2 &" J"& YPOS+6.7286*Y1-2.5442*Y2 Code GG&" X" & XPOS+1.3948*X1+1.4048*X2 &" Y" & YPOS+1.3948*Y1+1.4048*Y2 &" I"& XPOS+3.5473*X1-1.6225*X2 &" J"& YPOS+3.5473*Y1-1.6225*Y2 Code GG&" X" & XPOS+2.8857*X1+1.114*X2 &" Y" & YPOS+2.8857*Y1+1.114*Y2 &" I"& XPOS+2.002*X1+0.5508*X2 &" J"& YPOS+2.002*Y1+0.5508*Y2 Code GM&" X" & XPOS+5.2217*X1+0.1063*X2 &" Y" & YPOS+5.2217*Y1+0.1063*Y2 &" I"& XPOS+4.7964*X1+2.3319*X2 &" J"& YPOS+4.7964*Y1+2.3319*Y2 Code GM&" X" & XPOS+6.27*X1+1.2693*X2 &" Y" & YPOS+6.27*Y1+1.2693*Y2 &" I"& XPOS+4.9784*X1+1.3795*X2 &" J"& YPOS+4.9784*Y1+1.3795*Y2 Largo=5.8 Case 3 '3 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.6934*X1+2.2425*X2 &" Y" & YPOS+1.6934*Y1+2.2425*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+1.1442*X1+2.5171*X2 &" Y" & YPOS+1.1442*Y1+2.5171*Y2 &" I"& XPOS+1.3389*X1+2.22*X2 &" J"& YPOS+1.3389*Y1+2.22*Y2 Code GM&" X" & XPOS+0.8009*X1+1.7162*X2 &" Y" & YPOS+0.8009*Y1+1.7162*Y2 &" I"& XPOS+1.5763*X1+1.8579*X2 &" J"& YPOS+1.5763*Y1+1.8579*Y2 Code GM&" X" & XPOS+1.8307*X1+0.3432*X2 &" Y" & YPOS+1.8307*Y1+0.3432*Y2 &" I"& XPOS+2.6921*X1+2.0619*X2 &" J"& YPOS+2.6921*Y1+2.0619*Y2 Code GM&" X" & XPOS+5.0573*X1+0.6407*X2 &" Y" & YPOS+5.0573*Y1+0.6407*Y2 &" I"& XPOS+3.2049*X1+3.0851*X2 &" J"& YPOS+3.2049*Y1+3.0851*Y2 Code GM&" X" & XPOS+6.4761*X1+3.6385*X2 &" Y" & YPOS+6.4761*Y1+3.6385*Y2 &" I"& XPOS+2.8895*X1+3.5013*X2 &" J"& YPOS+2.8895*Y1+3.5013*Y2 Code GM&" X" & XPOS+4.8118*X1+5.247*X2 &" Y" & YPOS+4.8118*Y1+5.247*Y2 &" I"& XPOS+4.8049*X1+3.5746*X2 &" J"& YPOS+4.8049*Y1+3.5746*Y2 Code GM&" X" & XPOS+7.6661*X1+7.4144*X2 &" Y" & YPOS+7.6661*Y1+7.4144*Y2 &" I"& XPOS+4.0955*X1+9.1534*X2 &" J"& YPOS+4.0955*Y1+9.1534*Y2 Code GM&" X" & XPOS+7.2084*X1+9.2451*X2 &" Y" & YPOS+7.2084*Y1+9.2451*Y2 &" I"& XPOS+6.3466*X1+8.0571*X2 &" J"& YPOS+6.3466*Y1+8.0571*Y2 Code GM&" X" & XPOS+4.6454*X1+9.4739*X2 &" Y" & YPOS+4.6454*Y1+9.4739*Y2 &" I"& XPOS+5.7354*X1+7.2146*X2 &" J"& YPOS+5.7354*Y1+7.2146*Y2 Code GM&" X" & XPOS+3.7072*X1+8.3297*X2 &" Y" & YPOS+3.7072*Y1+8.3297*Y2 &" I"& XPOS+5.4091*X1+7.8909*X2 &" J"& YPOS+5.4091*Y1+7.8909*Y2 Code GM&" X" & XPOS+4.3251*X1+8.0322*X2 &" Y" & YPOS+4.3251*Y1+8.0322*Y2 &" I"& XPOS+4.0457*X1+8.2424*X2 &" J"& YPOS+4.0457*Y1+8.2424*Y2 Largo=5.4 Case 4 '4 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+4.5081*X1 &" Y" & YPOS+4.5081*Y1 Code "G00 Z"& Corte Code "G01 X" & XPOS+8.1614*X1+10*X2 &" Y" & YPOS+8.1614*Y1+10*Y2 Code "G01 X" & XPOS+1.4696*X1+2.8637*X2 &" Y" & YPOS+1.4696*Y1+2.8637*Y2 Code "G01 X" & XPOS+6.7276*X1+2.8637*X2 &" Y" & YPOS+6.7276*Y1+2.8637*Y2 Largo=5.6 Case 5 '5 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.6723*X1+2.3854*X2 &" Y" & YPOS+1.6723*Y1+2.3854*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+1.3028*X1+2.8325*X2 &" Y" & YPOS+1.3028*Y1+2.8325*Y2 &" I"& XPOS+1.471*X1+2.5953*X2 &" J"& YPOS+1.471*Y1+2.5953*Y2 Code GM&" X" & XPOS+0.9611*X1+2.1282*X2 &" Y" & YPOS+0.9611*Y1+2.1282*Y2 &" I"& XPOS+1.7732*X1+2.1693*X2 &" J"& YPOS+1.7732*Y1+2.1693*Y2 Code GM&" X" & XPOS+4.1877*X1+0.3433*X2 &" Y" & YPOS+4.1877*Y1+0.3433*Y2 &" I"& XPOS+3.1288*X1+2.2379*X2 &" J"& YPOS+3.1288*Y1+2.2379*Y2 Code GM&" X" & XPOS+6.3388*X1+5.1717*X2 &" Y" & YPOS+6.3388*Y1+5.1717*Y2 &" I"& XPOS+2.0344*X1+4.196*X2 &" J"& YPOS+2.0344*Y1+4.196*Y2 Code GM&" X" & XPOS+3.8527*X1+6.6092*X2 &" Y" & YPOS+3.8527*Y1+6.6092*Y2 &" I"& XPOS+4.4299*X1+4.739*X2 &" J"& YPOS+4.4299*Y1+4.739*Y2 Code GM&" X" & XPOS+2.255*X1+5.6705*X2 &" Y" & YPOS+2.255*Y1+5.6705*Y2 &" I"& XPOS+5.0421*X1+2.7558*X2 &" J"& YPOS+5.0421*Y1+2.7558*Y2 Code "G01 X" & XPOS+4.5147*X1+9.7448*X2 &" Y" & YPOS+4.5147*Y1+9.7448*Y2 Code GM&" X" & XPOS+8.9783*X1+10.0001*X2 &" Y" & YPOS+8.9783*Y1+10.0001*Y2 &" I"& XPOS+6.0058*X1+22.8246*X2 &" J"& YPOS+6.0058*Y1+22.8246*Y2 Largo=5.2 Case 6 '6 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+6.959*X1+9.016*X2 &" Y" & YPOS+6.959*Y1+9.016*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+7.4167*X1+8.9703*X2 &" Y" & YPOS+7.4167*Y1+8.9703*Y2 &" I"& XPOS+7.1891*X1+9.0054*X2 &" J"& YPOS+7.1891*Y1+9.0054*Y2 Code GM&" X" & XPOS+7.1421*X1+9.611*X2 &" Y" & YPOS+7.1421*Y1+9.611*Y2 &" I"& XPOS+6.766*X1+9.0706*X2 &" J"& YPOS+6.766*Y1+9.0706*Y2 Code GM&" X" & XPOS+6.4303*X1+9.8617*X2 &" Y" & YPOS+6.4303*Y1+9.8617*Y2 &" I"& XPOS+6.3323*X1+8.4475*X2 &" J"& YPOS+6.3323*Y1+8.4475*Y2 Code GM&" X" & XPOS+5.3932*X1+9.6773*X2 &" Y" & YPOS+5.3932*Y1+9.6773*Y2 &" I"& XPOS+6.2802*X1+7.6969*X2 &" J"& YPOS+6.2802*Y1+7.6969*Y2 Code GM&" X" & XPOS+3.7108*X1+8.4097*X2 &" Y" & YPOS+3.7108*Y1+8.4097*Y2 &" I"& XPOS+7.3262*X1+5.3614*X2 &" J"& YPOS+7.3262*Y1+5.3614*Y2 Code GM&" X" & XPOS+1.6272*X1+2.7001*X2 &" Y" & YPOS+1.6272*Y1+2.7001*Y2 &" I"& XPOS+10.4755*X1+2.706*X2 &" J"& YPOS+10.4755*Y1+2.706*Y2 Code GM&" X" & XPOS+2.0849*X1+0.8465*X2 &" Y" & YPOS+2.0849*Y1+0.8465*Y2 &" I"& XPOS+5.6202*X1+2.7028*X2 &" J"& YPOS+5.6202*Y1+2.7028*Y2 Code GM&" X" & XPOS+4.5405*X1+0.4125*X2 &" Y" & YPOS+4.5405*Y1+0.4125*Y2 &" I"& XPOS+3.4806*X1+1.5793*X2 &" J"& YPOS+3.4806*Y1+1.5793*Y2 Code GM&" X" & XPOS+5.9694*X1+4.8374*X2 &" Y" & YPOS+5.9694*Y1+4.8374*Y2 &" I"& XPOS+1.3998*X1+3.8698*X2 &" J"& YPOS+1.3998*Y1+3.8698*Y2 Code GM&" X" & XPOS+3.2499*X1+5.8745*X2 &" Y" & YPOS+3.2499*Y1+5.8745*Y2 &" I"& XPOS+4.2751*X1+4.4786*X2 &" J"& YPOS+4.2751*Y1+4.4786*Y2 Code GM&" X" & XPOS+1.6272*X1+2.7001*X2 &" Y" & YPOS+1.6272*Y1+2.7001*Y2 &" I"& XPOS+5.604*X1+2.6692*X2 &" J"& YPOS+5.604*Y1+2.6692*Y2 Largo=4.8 Case 7 '7 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.18*X1+7.1957*X2 &" Y" & YPOS+3.18*Y1+7.1957*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+4.349*X1+9.8882*X2 &" Y" & YPOS+4.349*Y1+9.8882*Y2 Code "G01 X" & XPOS+3.6693*X1+8.3667*X2 &" Y" & YPOS+3.6693*Y1+8.3667*Y2 Code GG&" X" & XPOS+5.1092*X1+9.8727*X2 &" Y" & YPOS+5.1092*Y1+9.8727*Y2 &" I"& XPOS+6.1017*X1+7.4824*X2 &" J"& YPOS+6.1017*Y1+7.4824*Y2 Code GG&" X" & XPOS+6.618*X1+9.6444*X2 &" Y" & YPOS+6.618*Y1+9.6444*Y2 &" I"& XPOS+5.6748*X1+8.5106*X2 &" J"& YPOS+5.6748*Y1+8.5106*Y2 Code GM&" X" & XPOS+9.2328*X1+10*X2 &" Y" & YPOS+9.2328*Y1+10*Y2 &" I"& XPOS+7.7625*X1+11.0201*X2 &" J"& YPOS+7.7625*Y1+11.0201*Y2 Code GG&" X" & XPOS+7.514*X1+6.8086*X2 &" Y" & YPOS+7.514*Y1+6.8086*Y2 &" I"& XPOS+2.4466*X1+11.5963*X2 &" J"& YPOS+2.4466*Y1+11.5963*Y2 Code GM&" X" & XPOS+3.2731*X1 &" Y" & YPOS+3.2731*Y1 &" I"& XPOS+22.1911*X1-7.0584*X2 &" J"& YPOS+22.1911*Y1-7.0584*Y2 Largo=5.6 Case 8 '8 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+4.9172*X1+5.3018*X2 &" Y" & YPOS+4.9172*Y1+5.3018*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+6.1641*X1+4.4348*X2 &" Y" & YPOS+6.1641*Y1+4.4348*Y2 &" I"& XPOS+4.6833*X1+3.6353*X2 &" J"& YPOS+4.6833*Y1+3.6353*Y2 Code GG&" X" & XPOS+6.0302*X1+1.5305*X2 &" Y" & YPOS+6.0302*Y1+1.5305*Y2 &" I"& XPOS+3.6809*X1+3.094*X2 &" J"& YPOS+3.6809*Y1+3.094*Y2 Code GG&" X" & XPOS+1.9674*X1+0.1963*X2 &" Y" & YPOS+1.9674*Y1+0.1963*Y2 &" I"& XPOS+3.1503*X1+3.4472*X2 &" J"& YPOS+3.1503*Y1+3.4472*Y2 Code GG&" X" & XPOS+1.0552*X1+1.1536*X2 &" Y" & YPOS+1.0552*Y1+1.1536*Y2 &" I"& XPOS+2.4761*X1+1.5943*X2 &" J"& YPOS+2.4761*Y1+1.5943*Y2 Code GG&" X" & XPOS+1.0581*X1+2.7037*X2 &" Y" & YPOS+1.0581*Y1+2.7037*Y2 &" I"& XPOS+3.5392*X1+1.924*X2 &" J"& YPOS+3.5392*Y1+1.924*Y2 Code GG&" X" & XPOS+3.1894*X1+5.0975*X2 &" Y" & YPOS+3.1894*Y1+5.0975*Y2 &" I"& XPOS+4.7827*X1+1.5332*X2 &" J"& YPOS+4.7827*Y1+1.5332*Y2 Code GG&" X" & XPOS+4.9172*X1+5.3019*X2 &" Y" & YPOS+4.9172*Y1+5.3019*Y2 &" I"& XPOS+4.3807*X1+2.4326*X2 &" J"& YPOS+4.3807*Y1+2.4326*Y2 Code GM&" X" & XPOS+6.4187*X1+5.8634*X2 &" Y" & YPOS+6.4187*Y1+5.8634*Y2 &" I"& XPOS+4.6238*X1+8.3747*X2 &" J"& YPOS+4.6238*Y1+8.3747*Y2 Code GM&" X" & XPOS+7.5949*X1+8.2178*X2 &" Y" & YPOS+7.5949*Y1+8.2178*Y2 &" I"& XPOS+4.7835*X1+8.1513*X2 &" J"& YPOS+4.7835*Y1+8.1513*Y2 Code GM&" X" & XPOS+5.8944*X1+10.0001*X2 &" Y" & YPOS+5.8944*Y1+10.0001*Y2 &" I"& XPOS+5.7653*X1+8.1745*X2 &" J"& YPOS+5.7653*Y1+8.1745*Y2 Code GM&" X" & XPOS+4.8573*X1+9.8074*X2 &" Y" & YPOS+4.8573*Y1+9.8074*Y2 &" I"& XPOS+5.7465*X1+7.909*X2 &" J"& YPOS+5.7465*Y1+7.909*Y2 Code GM&" X" & XPOS+3.1876*X1+7.9684*X2 &" Y" & YPOS+3.1876*Y1+7.9684*Y2 &" I"& XPOS+6.2244*X1+6.8887*X2 &" J"& YPOS+6.2244*Y1+6.8887*Y2 Code GM&" X" & XPOS+3.0435*X1+6.5676*X2 &" Y" & YPOS+3.0435*Y1+6.5676*Y2 &" I"& XPOS+5.9888*X1+6.9724*X2 &" J"& YPOS+5.9888*Y1+6.9724*Y2 Code GM&" X" & XPOS+4.2792*X1+5.3548*X2 &" Y" & YPOS+4.2792*Y1+5.3548*Y2 &" I"& XPOS+4.4457*X1+6.7604*X2 &" J"& YPOS+4.4457*Y1+6.7604*Y2 Largo=5.6 Case 9 '9 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.2883*X1+1.0526*X2 &" Y" & YPOS+2.2883*Y1+1.0526*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+1.7145*X1+1.121*X2 &" Y" & YPOS+1.7145*Y1+1.121*Y2 &" I"& XPOS+1.9965*X1+1.0457*X2 &" J"& YPOS+1.9965*Y1+1.0457*Y2 Code GM&" X" & XPOS+1.9908*X1+0.2975*X2 &" Y" & YPOS+1.9908*Y1+0.2975*Y2 &" I"& XPOS+2.4752*X1+0.9181*X2 &" J"& YPOS+2.4752*Y1+0.9181*Y2 Code GM&" X" & XPOS+3.3638*X1+0.1373*X2 &" Y" & YPOS+3.3638*Y1+0.1373*Y2 &" I"& XPOS+2.8089*X1+1.3455*X2 &" J"& YPOS+2.8089*Y1+1.3455*Y2 Code GM&" X" & XPOS+5.3775*X1+1.8536*X2 &" Y" & YPOS+5.3775*Y1+1.8536*Y2 &" I"& XPOS+1.3326*X1+4.5601*X2 &" J"& YPOS+1.3326*Y1+4.5601*Y2 Code GM&" X" & XPOS+7.2311*X1+6.6591*X2 &" Y" & YPOS+7.2311*Y1+6.6591*Y2 &" I"& XPOS-4.362*X1+8.3705*X2 &" J"& YPOS-4.362*Y1+8.3705*Y2 Code GM&" X" & XPOS+7.3913*X1+8.1694*X2 &" Y" & YPOS+7.3913*Y1+8.1694*Y2 &" I"& XPOS-11.141*X1+9.3713*X2 &" J"& YPOS-11.141*Y1+9.3713*Y2 Code GM&" X" & XPOS+5.9725*X1+9.9543*X2 &" Y" & YPOS+5.9725*Y1+9.9543*Y2 &" I"& XPOS+5.6974*X1+8.2793*X2 &" J"& YPOS+5.6974*Y1+8.2793*Y2 Code GM&" X" & XPOS+4.4164*X1+9.6339*X2 &" Y" & YPOS+4.4164*Y1+9.6339*Y2 &" I"& XPOS+5.6126*X1+7.7634*X2 &" J"& YPOS+5.6126*Y1+7.7634*Y2 Code GM&" X" & XPOS+2.8374*X1+5.4463*X2 &" Y" & YPOS+2.8374*Y1+5.4463*Y2 &" I"& XPOS+6.4315*X1+6.4826*X2 &" J"& YPOS+6.4315*Y1+6.4826*Y2 Code GM&" X" & XPOS+5.6063*X1+4.531*X2 &" Y" & YPOS+5.6063*Y1+4.531*Y2 &" I"& XPOS+4.535*X1+5.9358*X2 &" J"& YPOS+4.535*Y1+5.9358*Y2 Code GM&" X" & XPOS+7.3912*X1+8.1694*X2 &" Y" & YPOS+7.3912*Y1+8.1694*Y2 &" I"& XPOS+2.8563*X1+8.1371*X2 &" J"& YPOS+2.8563*Y1+8.1371*Y2 Largo=5 Case 10 '0 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.2381*X1+0.0012*X2 &" Y" & YPOS+3.2381*Y1+0.0012*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+5.2421*X1+0.8355*X2 &" Y" & YPOS+5.2421*Y1+0.8355*Y2 &" I"& XPOS+3.3722*X1+2.5031*X2 &" J"& YPOS+3.3722*Y1+2.5031*Y2 Code GM&" X" & XPOS+8.0808*X1+7.5905*X2 &" Y" & YPOS+8.0808*Y1+7.5905*Y2 &" I"& XPOS-3.184*X1+8.3504*X2 &" J"& YPOS-3.184*Y1+8.3504*Y2 Code GM&" X" & XPOS+7.6833*X1+9.407*X2 &" Y" & YPOS+7.6833*Y1+9.407*Y2 &" I"& XPOS+4.7563*X1+7.8147*X2 &" J"& YPOS+4.7563*Y1+7.8147*Y2 Code GM&" X" & XPOS+5.9746*X1+10.0522*X2 &" Y" & YPOS+5.9746*Y1+10.0522*Y2 &" I"& XPOS+6.4547*X1+8.7387*X2 &" J"& YPOS+6.4547*Y1+8.7387*Y2 Code GM&" X" & XPOS+4.0285*X1+8.6064*X2 &" Y" & YPOS+4.0285*Y1+8.6064*Y2 &" I"& XPOS+7.4373*X1+6.0509*X2 &" J"& YPOS+7.4373*Y1+6.0509*Y2 Code GM&" X" & XPOS+1.7324*X1+3.7043*X2 &" Y" & YPOS+1.7324*Y1+3.7043*Y2 &" I"& XPOS+14.6535*X1+0.6409*X2 &" J"& YPOS+14.6535*Y1+0.6409*Y2 Code GM&" X" & XPOS+1.9637*X1+0.8747*X2 &" Y" & YPOS+1.9637*Y1+0.8747*Y2 &" I"& XPOS+6.1996*X1+2.6452*X2 &" J"& YPOS+6.1996*Y1+2.6452*Y2 Code GM&" X" & XPOS+3.2381*X1+0.0011*X2 &" Y" & YPOS+3.2381*Y1+0.0011*Y2 &" I"& XPOS+3.2763*X1+1.4233*X2 &" J"& YPOS+3.2763*Y1+1.4233*Y2 Largo=5.8 Case 38 '+ Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.8822*X1+5*X2 &" Y" & YPOS+1.8822*Y1+5*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+6.8822*X1+5*X2 &" Y" & YPOS+6.8822*Y1+5*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.263*X1+7.3397*X2 &" Y" & YPOS+5.263*Y1+7.3397*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+3.5015*X1+2.6603*X2 &" Y" & YPOS+3.5015*Y1+2.6603*Y2 Largo=5 Case 39 '- Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.8822*X1+5*X2 &" Y" & YPOS+1.8822*Y1+5*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+6.8822*X1+5*X2 &" Y" & YPOS+6.8822*Y1+5*Y2 Largo=5 Case 40 'space Largo=5 Case 68 'coma Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+0.1221*X1+0.35*X2 &" Y" & YPOS+0.1221*Y1+0.35*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+-0.7324*X1+-2.1372*X2 &" Y" & YPOS+-0.7324*Y1+-2.1372*Y2 &" I"& XPOS-2.6264*X1-0.0962*X2 &" J"& YPOS-2.6264*Y1-0.0962*Y2 Code GM&" X" & XPOS+0.8221*X1+0.35*X2 &" Y" & YPOS+0.8221*Y1+0.35*Y2 &" I"& XPOS-3.1863*X1+1.1258*X2 &" J"& YPOS-3.1863*Y1+1.1258*Y2 Code GM&" X" & XPOS+0.8221*X1+0.35*X2 &" Y" & YPOS+0.8221*Y1+0.35*Y2 &" I"& XPOS+0.4721*X1+0.35*X2 &" J"& YPOS+0.4721*Y1+0.35*Y2 Largo=.8221 Case 69 'Punto Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+0.8329*X1+0.35*X2 &" Y" & YPOS+0.8329*Y1+0.35*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+0.8329*X1+0.35*X2 &" Y" & YPOS+0.8329*Y1+0.35*Y2 &" I"& XPOS+0.4829*X1+0.35*X2 &" J"& YPOS+0.4829*Y1+0.35*Y2 Largo=.8221 Case 70 '? Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.4454*X1+0.7375 *X2 &" Y" & YPOS+3.4454*Y1+0.7375 *Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.4454*X1+0.7375 *X2 &" Y" & YPOS+3.4454*Y1+0.7375 *Y2 &" I"& XPOS+4.2007*X1+0.7375*X2 &" J"& YPOS+4.2007*Y1+0.7375*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+4.8294*X1+3.6391*X2 &" Y" & YPOS+4.8294*Y1+3.6391*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+5.4014*X1+3.3608*X2 &" Y" & YPOS+5.4014*Y1+3.3608*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+4.8294*X1+3.6391*X2 &" Y" & YPOS+4.8294*Y1+3.6391*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+4.4356*X1+4.2685 *X2 &" Y" & YPOS+4.4356*Y1+4.2685 *Y2 &" I"& XPOS+5.1356*X1+4.2685*X2 &" J"& YPOS+5.1356*Y1+4.2685*Y2 Code "G01 X" & XPOS+4.4356*X1+4.3585*X2 &" Y" & YPOS+4.4356*Y1+4.3585*Y2 Code GG&" X" & XPOS+4.8294*X1+4.9880 *X2 &" Y" & YPOS+4.8294*Y1+4.9880 *Y2 &" I"& XPOS+5.1356*X1+4.3585*X2 &" J"& YPOS+5.1356*Y1+4.3585*Y2 Code "G01 X" & XPOS+5.3357*X1+5.2343*X2 &" Y" & YPOS+5.3357*Y1+5.2343*Y2 Code GG&" X" & XPOS+5.4722*X1+5.2839 *X2 &" Y" & YPOS+5.4722*Y1+5.2839 *Y2 &" I"& XPOS+5.642*X1+4.6048*X2 &" J"& YPOS+5.642*Y1+4.6048*Y2 Code "G01 X" & XPOS+7.2099*X1+5.7184*X2 &" Y" & YPOS+7.2099*Y1+5.7184*Y2 Code GM&" X" & XPOS+7.3464*X1+5.7680 *X2 &" Y" & YPOS+7.3464*Y1+5.7680 *Y2 &" I"& XPOS+7.0401*X1+6.3975*X2 &" J"& YPOS+7.0401*Y1+6.3975*Y2 Code "G01 X" & XPOS+8.1174*X1+6.1431*X2 &" Y" & YPOS+8.1174*Y1+6.1431*Y2 Code GM&" X" & XPOS+9.1862*X1+7.8516 *X2 &" Y" & YPOS+9.1862*Y1+7.8516 *Y2 &" I"& XPOS+7.2862*X1+7.8516*X2 &" J"& YPOS+7.2862*Y1+7.8516*Y2 Code "G01 X" & XPOS+9.1862*X1+8.1168*X2 &" Y" & YPOS+9.1862*Y1+8.1168*Y2 Code GM&" X" & XPOS+7.2862*X1+10.0168 *X2 &" Y" & YPOS+7.2862*Y1+10.0168 *Y2 &" I"& XPOS+7.2862*X1+8.1168*X2 &" J"& YPOS+7.2862*Y1+8.1168*Y2 Code "G01 X" & XPOS+5.8104*X1+10.0168*X2 &" Y" & YPOS+5.8104*Y1+10.0168*Y2 Code GM&" X" & XPOS+3.1417*X1+8.3872 *X2 &" Y" & YPOS+3.1417*Y1+8.3872 *Y2 &" I"& XPOS+5.8104*X1+7.0168*X2 &" J"& YPOS+5.8104*Y1+7.0168*Y2 Code "G01 X" & XPOS+3*X1+8.1114*X2 &" Y" & YPOS+3*Y1+8.1114*Y2 LARGO=6.4 Case 71 '¿ Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.9*X1 &" Y" & YPOS+2.9*Y1 Code "G00 Z"& Corte Code GG&" X" & XPOS+1*X1+1.9000 *X2 &" Y" & YPOS+1*Y1+1.9000 *Y2 &" I"& XPOS+2.9*X1+1.9*X2 &" J"& YPOS+2.9*Y1+1.9*Y2 Code "G01 X" & XPOS+1*X1+2.1652*X2 &" Y" & YPOS+1*Y1+2.1652*Y2 Code GG&" X" & XPOS+2.0688*X1+3.8737 *X2 &" Y" & YPOS+2.0688*Y1+3.8737 *Y2 &" I"& XPOS+2.9*X1+2.1652*X2 &" J"& YPOS+2.9*Y1+2.1652*Y2 Code "G01 X" & XPOS+2.8398*X1+4.2488*X2 &" Y" & YPOS+2.8398*Y1+4.2488*Y2 Code GG&" X" & XPOS+2.9763*X1+4.2984 *X2 &" Y" & YPOS+2.9763*Y1+4.2984 *Y2 &" I"& XPOS+3.146*X1+3.6193*X2 &" J"& YPOS+3.146*Y1+3.6193*Y2 Code "G01 X" & XPOS+4.714*X1+4.7329*X2 &" Y" & YPOS+4.714*Y1+4.7329*Y2 Code GM&" X" & XPOS+4.8504*X1+4.7825 *X2 &" Y" & YPOS+4.8504*Y1+4.7825 *Y2 &" I"& XPOS+4.5442*X1+5.412*X2 &" J"& YPOS+4.5442*Y1+5.412*Y2 Code "G01 X" & XPOS+5.3568*X1+5.0288*X2 &" Y" & YPOS+5.3568*Y1+5.0288*Y2 Code GM&" X" & XPOS+5.7506*X1+5.6583 *X2 &" Y" & YPOS+5.7506*Y1+5.6583 *Y2 &" I"& XPOS+5.0506*X1+5.6583*X2 &" J"& YPOS+5.0506*Y1+5.6583*Y2 Code "G01 X" & XPOS+5.7506*X1+5.7483*X2 &" Y" & YPOS+5.7506*Y1+5.7483*Y2 Code GM&" X" & XPOS+5.3568*X1+6.3777 *X2 &" Y" & YPOS+5.3568*Y1+6.3777 *Y2 &" I"& XPOS+5.0506*X1+5.7483*X2 &" J"& YPOS+5.0506*Y1+5.7483*Y2 Code "G01 X" & XPOS+4.7848*X1+6.6560*X2 &" Y" & YPOS+4.7848*Y1+6.6560*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.2302*X1+9.2793*X2 &" Y" & YPOS+5.2302*Y1+9.2793*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+5.2302*X1+9.2793 *X2 &" Y" & YPOS+5.2302*Y1+9.2793 *Y2 &" I"& XPOS+5.9855*X1+9.2793*X2 &" J"& YPOS+5.9855*Y1+9.2793*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+7.1862*X1+1.9054*X2 &" Y" & YPOS+7.1862*Y1+1.9054*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+7.0445*X1+1.6296*X2 &" Y" & YPOS+7.0445*Y1+1.6296*Y2 Code GG&" X" & XPOS+4.3758*X1 &" Y" & YPOS+4.3758*Y1 &" I"& XPOS+4.3758*X1+3*X2 &" J"& YPOS+4.3758*Y1+3*Y2 Code "G01 X" & XPOS+2.9*X1 &" Y" & YPOS+2.9*Y1 LARGO=6.6 Case 72 '/ Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G00 Z"& Corte Code "G01 X" & XPOS+3.5071*X1+10*X2 &" Y" & YPOS+3.5071*Y1+10*Y2 ' Code "G01 X" & XPOS+5.5071*X1+10*X2 &" Y" & YPOS+5.5071*Y1+10*Y2 Largo=0 Case 73 '\ Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.7643*X1+10*X2 &" Y" & YPOS+3.7643*Y1+10*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+5.3424*X1 &" Y" & YPOS+5.3424*Y1 Largo=5.5 Case 74 '= Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.4083*X1+6.7256*X2 &" Y" & YPOS+2.4083*Y1+6.7256*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+12.3836*X1+6.7256*X2 &" Y" & YPOS+12.3836*Y1+6.7256*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+0.8208*X1+2.1038*X2 &" Y" & YPOS+0.8208*Y1+2.1038*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+10.7961*X1+2.1038*X2 &" Y" & YPOS+10.7961*Y1+2.1038*Y2 Largo=10.2 Case 75 '_ Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+-0.65*X2 &" Y" & YPOS+-0.65*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+8.2*X1+-0.65*X2 &" Y" & YPOS+8.2*Y1+-0.65*Y2 Case 76 ': Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.6636*X1+2.5*X2 &" Y" & YPOS+1.6636*Y1+2.5*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+1.6636*X1+2.5*X2 &" Y" & YPOS+1.6636*Y1+2.5*Y2 &" I"& XPOS+1.3136*X1+2.5*X2 &" J"& YPOS+1.3136*Y1+2.5*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.5458*X1+7.5*X2 &" Y" & YPOS+3.5458*Y1+7.5*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+3.5458*X1+7.5*X2 &" Y" & YPOS+3.5458*Y1+7.5*Y2 &" I"& XPOS+3.1958*X1+7.5*X2 &" J"& YPOS+3.1958*Y1+7.5*Y2 Largo=.8221 Case 77 '; Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+0.1589*X1+0.35*X2 &" Y" & YPOS+0.1589*Y1+0.35*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+-0.6956*X1+-2.1372*X2 &" Y" & YPOS+-0.6956*Y1+-2.1372*Y2 &" I"& XPOS-2.5896*X1-0.0962*X2 &" J"& YPOS-2.5896*Y1-0.0962*Y2 Code GM&" X" & XPOS+0.8589*X1+0.35*X2 &" Y" & YPOS+0.8589*Y1+0.35*Y2 &" I"& XPOS-3.1495*X1+1.1258*X2 &" J"& YPOS-3.1495*Y1+1.1258*Y2 Code GM&" X" & XPOS+0.8589*X1+0.35*X2 &" Y" & YPOS+0.8589*Y1+0.35*Y2 &" I"& XPOS+0.5089*X1+0.35*X2 &" J"& YPOS+0.5089*Y1+0.35*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+0.825*X1 &" Y" & YPOS+0.825*Y1 Code "G00 Z"& Corte Code "G00 X" & XPOS+2.0357*X1+3.4763*X2 &" Y" & YPOS+2.0357*Y1+3.4763*Y2 Code GM&" X" & XPOS+2.0357*X1+3.4763*X2 &" Y" & YPOS+2.0357*Y1+3.4763*Y2 &" I"& XPOS+1.6857*X1+3.4763*X2 &" J"& YPOS+1.6857*Y1+3.4763*Y2 Largo=.8221 Case 78 '$ Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.097*X1+2.3798*X2 &" Y" & YPOS+1.097*Y1+2.3798*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+2.4257*X1+0.8238*X2 &" Y" & YPOS+2.4257*Y1+0.8238*Y2 &" I"& XPOS+3.0703*X1+2.7195*X2 &" J"& YPOS+3.0703*Y1+2.7195*Y2 Code GM&" X" & XPOS+4.142*X1+0.8009*X2 &" Y" & YPOS+4.142*Y1+0.8009*Y2 &" I"& XPOS+3.319*X1+3.4507*X2 &" J"& YPOS+3.319*Y1+3.4507*Y2 Code GM&" X" & XPOS+5.4921*X1+3.2037*X2 &" Y" & YPOS+5.4921*Y1+3.2037*Y2 &" I"& XPOS+3.5473*X1+2.7158*X2 &" J"& YPOS+3.5473*Y1+2.7158*Y2 Code GM&" X" & XPOS+4.6225*X1+4.7598*X2 &" Y" & YPOS+4.6225*Y1+4.7598*Y2 &" I"& XPOS+2.1767*X1+2.372*X2 &" J"& YPOS+2.1767*Y1+2.372*Y2 Code GG&" X" & XPOS+3.0893*X1+6.6363*X2 &" Y" & YPOS+3.0893*Y1+6.6363*Y2 &" I"& XPOS+14.4508*X1+14.3548*X2 &" J"& YPOS+14.4508*Y1+14.3548*Y2 Code GG&" X" & XPOS+3.9589*X1+9.1764*X2 &" Y" & YPOS+3.9589*Y1+9.1764*Y2 &" I"& XPOS+4.478*X1+7.5798*X2 &" J"& YPOS+4.478*Y1+7.5798*Y2 Code GG&" X" & XPOS+6.3159*X1+8.856*X2 &" Y" & YPOS+6.3159*Y1+8.856*Y2 &" I"& XPOS+4.8054*X1+6.5733*X2 &" J"& YPOS+4.8054*Y1+6.5733*Y2 Code GG&" X" & XPOS+7.0482*X1+7.1626*X2 &" Y" & YPOS+7.0482*Y1+7.1626*Y2 &" I"& XPOS+5.3843*X1+7.4481*X2 &" J"& YPOS+5.3843*Y1+7.4481*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+7.0264*X1+10.0002*X2 &" Y" & YPOS+7.0264*Y1+10.0002*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+3.2621*X1+0.0002*X2 &" Y" & YPOS+3.2621*Y1+0.0002*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.4048*X1+0.0002*X2 &" Y" & YPOS+1.4048*Y1+0.0002*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+5.1691*X1+10.0002*X2 &" Y" & YPOS+5.1691*Y1+10.0002*Y2 Largo=5 Case 79 '& Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+8.9715*X1+6.0292*X2 &" Y" & YPOS+8.9715*Y1+6.0292*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+8.2224*X1+6.4967*X2 &" Y" & YPOS+8.2224*Y1+6.4967*Y2 &" I"& XPOS+8.5633*X1+6.2091*X2 &" J"& YPOS+8.5633*Y1+6.2091*Y2 Code GM&" X" & XPOS+7.65*X1+5.5579*X2 &" Y" & YPOS+7.65*Y1+5.5579*Y2 &" I"& XPOS+10.9762*X1+4.1736*X2 &" J"& YPOS+10.9762*Y1+4.1736*Y2 Code GG&" X" & XPOS+4.9939*X1+1.0472*X2 &" Y" & YPOS+4.9939*Y1+1.0472*Y2 &" I"& XPOS-9.9416*X1+12.8791*X2 &" J"& YPOS-9.9416*Y1+12.8791*Y2 Code GG&" X" & XPOS+2.4981*X1+0.1084*X2 &" Y" & YPOS+2.4981*Y1+0.1084*Y2 &" I"& XPOS+2.9648*X1+2.6546*X2 &" J"& YPOS+2.9648*Y1+2.6546*Y2 Code GG&" X" & XPOS+0.8953*X1+2.0318*X2 &" Y" & YPOS+0.8953*Y1+2.0318*Y2 &" I"& XPOS+2.8506*X1+2.0317*X2 &" J"& YPOS+2.8506*Y1+2.0317*Y2 Code GG&" X" & XPOS+2.6584*X1+4.9626*X2 &" Y" & YPOS+2.6584*Y1+4.9626*Y2 &" I"& XPOS+4.2131*X1+2.0317*X2 &" J"& YPOS+4.2131*Y1+2.0317*Y2 Code GM&" X" & XPOS+4.7649*X1+6.6799*X2 &" Y" & YPOS+4.7649*Y1+6.6799*Y2 &" I"& XPOS-0.6072*X1+11.1191*X2 &" J"& YPOS-0.6072*Y1+11.1191*Y2 Code GM&" X" & XPOS+5.4976*X1+9.4047*X2 &" Y" & YPOS+5.4976*Y1+9.4047*Y2 &" I"& XPOS+2.1441*X1+8.8456*X2 &" J"& YPOS+2.1441*Y1+8.8456*Y2 Code GM&" X" & XPOS+4.5588*X1+9.7253*X2 &" Y" & YPOS+4.5588*Y1+9.7253*Y2 &" I"& XPOS+4.9418*X1+9.312*X2 &" J"& YPOS+4.9418*Y1+9.312*Y2 Code GM&" X" & XPOS+3.3681*X1+6.9547*X2 &" Y" & YPOS+3.3681*Y1+6.9547*Y2 &" I"& XPOS+7.0871*X1+6.9976*X2 &" J"& YPOS+7.0871*Y1+6.9976*Y2 Code GM&" X" & XPOS+4.1237*X1+3.8636*X2 &" Y" & YPOS+4.1237*Y1+3.8636*Y2 &" I"& XPOS+10.4004*X1+7.0358*X2 &" J"& YPOS+10.4004*Y1+7.0358*Y2 Code GM&" X" & XPOS+6.0242*X1+1.3678*X2 &" Y" & YPOS+6.0242*Y1+1.3678*Y2 &" I"& XPOS+11.8227*X1+7.7547*X2 &" J"& YPOS+11.8227*Y1+7.7547*Y2 Code GM&" X" & XPOS+7.7644*X1+0.1542*X2 &" Y" & YPOS+7.7644*Y1+0.1542*Y2 &" I"& XPOS+11.6015*X1+7.511*X2 &" J"& YPOS+11.6015*Y1+7.511*Y2 Code GM&" X" & XPOS+8.1939*X1+0.9424*X2 &" Y" & YPOS+8.1939*Y1+0.9424*Y2 &" I"& XPOS+7.972*X1+0.5522*X2 &" J"& YPOS+7.972*Y1+0.5522*Y2 Code GM&" X" & XPOS+7.6957*X1+0.6809*X2 &" Y" & YPOS+7.6957*Y1+0.6809*Y2 &" I"& XPOS+8.0286*X1+0.6519*X2 &" J"& YPOS+8.0286*Y1+0.6519*Y2 Largo=8.2 Case 80 '( Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.5756*X1+-1*X2 &" Y" & YPOS+1.5756*Y1+-1*Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+6.0928*X1+11*X2 &" Y" & YPOS+6.0928*Y1+11*Y2 &" I"& XPOS+13.3085*X1+1.4336*X2 &" J"& YPOS+13.3085*Y1+1.4336*Y2 Largo=2 Case 81 ') Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+-0.3764*X1+-1*X2 &" Y" & YPOS+-0.3764*Y1+-1*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+4.1408*X1+11*X2 &" Y" & YPOS+4.1408*Y1+11*Y2 &" I"& XPOS-7.592*X1+8.5664*X2 &" J"& YPOS-7.592*Y1+8.5664*Y2 Largo=2.2 Case 82 '" Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.2986*X1+8.1128*X2 &" Y" & YPOS+3.2986*Y1+8.1128*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+3.7644*X1+10*X2 &" Y" & YPOS+3.7644*Y1+10*Y2 Code "G01 X" & XPOS+4.3113*X1+10*X2 &" Y" & YPOS+4.3113*Y1+10*Y2 Code "G01 X" & XPOS+3.2986*X1+8.1128*X2 &" Y" & YPOS+3.2986*Y1+8.1128*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+5.3061*X1+8.1128*X2 &" Y" & YPOS+5.3061*Y1+8.1128*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+6.3188*X1+10*X2 &" Y" & YPOS+6.3188*Y1+10*Y2 Code "G01 X" & XPOS+5.7719*X1+10*X2 &" Y" & YPOS+5.7719*Y1+10*Y2 Code "G01 X" & XPOS+5.3061*X1+8.1128*X2 &" Y" & YPOS+5.3061*Y1+8.1128*Y2 Largo=2.6 Case 83 '% Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.5463*X1+0.0002*X2 &" Y" & YPOS+3.5463*Y1+0.0002*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+9.4642*X1+10*X2 &" Y" & YPOS+9.4642*Y1+10*Y2 Code GG&" X" & XPOS+5.4552*X1+9.5032*X2 &" Y" & YPOS+5.4552*Y1+9.5032*Y2 &" I"& XPOS+7.1723*X1+12.0708*X2 &" J"& YPOS+7.1723*Y1+12.0708*Y2 Code GM&" X" & XPOS+3.6296*X1+9.1718*X2 &" Y" & YPOS+3.6296*Y1+9.1718*Y2 &" I"& XPOS+4.7378*X1+8.261*X2 &" J"& YPOS+4.7378*Y1+8.261*Y2 Code GM&" X" & XPOS+2.9883*X1+7.4099*X2 &" Y" & YPOS+2.9883*Y1+7.4099*Y2 &" I"& XPOS+5.8084*X1+7.3811*X2 &" J"& YPOS+5.8084*Y1+7.3811*Y2 Code GM&" X" & XPOS+5.4877*X1+6.5002*X2 &" Y" & YPOS+5.4877*Y1+6.5002*Y2 &" I"& XPOS+4.3983*X1+7.3955*X2 &" J"& YPOS+4.3983*Y1+7.3955*Y2 Code GM&" X" & XPOS+6.129*X1+8.2621*X2 &" Y" & YPOS+6.129*Y1+8.2621*Y2 &" I"& XPOS+3.3087*X1+8.291*X2 &" J"& YPOS+3.3087*Y1+8.291*Y2 Code GM&" X" & XPOS+5.4552*X1+9.5031*X2 &" Y" & YPOS+5.4552*Y1+9.5031*Y2 &" I"& XPOS+4.6767*X1+8.277*X2 &" J"& YPOS+4.6767*Y1+8.277*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+10.0465*X1+2.5959*X2 &" Y" & YPOS+10.0465*Y1+2.5959*Y2 Code "G00 Z"& Corte Code GM&" X" & XPOS+7.5471*X1+3.5056*X2 &" Y" & YPOS+7.5471*Y1+3.5056*Y2 &" I"& XPOS+8.6306*X1+2.594*X2 &" J"& YPOS+8.6306*Y1+2.594*Y2 Code GM&" X" & XPOS+6.9058*X1+1.7437*X2 &" Y" & YPOS+6.9058*Y1+1.7437*Y2 &" I"& XPOS+9.637*X1+1.7473*X2 &" J"& YPOS+9.637*Y1+1.7473*Y2 Code GM&" X" & XPOS+9.4052*X1+0.834*X2 &" Y" & YPOS+9.4052*Y1+0.834*Y2 &" I"& XPOS+8.3217*X1+1.7455*X2 &" J"& YPOS+8.3217*Y1+1.7455*Y2 Code GM&" X" & XPOS+10.0465*X1+2.5959*X2 &" Y" & YPOS+10.0465*Y1+2.5959*Y2 &" I"& XPOS+7.3151*X1+2.5924*X2 &" J"& YPOS+7.3151*Y1+2.5924*Y2 Largo=9.4 Case 84 '* Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+1.3057*X1+3.4905*X2 &" Y" & YPOS+1.3057*Y1+3.4905*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+9.3801*X1+6.9029*X2 &" Y" & YPOS+9.3801*Y1+6.9029*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+6.627*X1+9.4641*X2 &" Y" & YPOS+6.627*Y1+9.4641*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+3.623*X1+0.7612*X2 &" Y" & YPOS+3.623*Y1+0.7612*Y2 Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+2.4531*X1+6.7741*X2 &" Y" & YPOS+2.4531*Y1+6.7741*Y2 Code "G00 Z"& Corte Code "G01 X" & XPOS+8.2122*X1+3.166*X2 &" Y" & YPOS+8.2122*Y1+3.166*Y2 LARGO=7.2 Case 85 '° Code "G00 Z"& Rapid_dis Code "G00 X" & XPOS+3.0668*X1+8.3174 *X2 &" Y" & YPOS+3.0668*Y1+8.3174 *Y2 Code "G00 Z"& Corte Code GG&" X" & XPOS+3.0668*X1+8.3174*X2 &" Y" & YPOS+3.0668*Y1+8.3174*Y2 &" I"& XPOS+4.7031*X1+8.3174*X2 &" J"& YPOS+4.7031*Y1+8.3174*Y2 LARGO=5.6 Case 86 'Diam Code "G0 Z"& Rapid_dis Code "G00 X" & XPOS &" Y" & YPOS Code "G0 Z"& Corte Code "G01 X" & XPOS+6.9583*X1+8.5715*X2 &" Y" & YPOS+6.9583*Y1+8.5715*Y2 Code "G0 Z"& Rapid_dis Code "G00 X" & XPOS+6.2617*X1+3.8475*X2 &" Y" & YPOS+6.2617*Y1+3.8475*Y2 Code "G0 Z"& Corte Code GM&" X" & XPOS+1.2642*X1+5.9647*X2 &" Y" & YPOS+1.2642*Y1+5.9647*Y2 &" I"& XPOS+3.763*X1+4.9061*X2 &" J"& YPOS+3.763*Y1+4.9061*Y2 Code "G01 X" & XPOS+0.7424*X1+4.7330*X2 &" Y" & YPOS+0.7424*Y1+4.7330*Y2 Code GM&" X" & XPOS+5.7399*X1+2.6158*X2 &" Y" & YPOS+5.7399*Y1+2.6158*Y2 &" I"& XPOS+3.2411*X1+3.6744*X2 &" J"& YPOS+3.2411*Y1+3.6744*Y2 Code "G01 X" & XPOS+6.2617*X1+3.8475*X2 &" Y" & YPOS+6.2617*Y1+3.8475*Y2 Largo=6.9583 Case 87 '> Code "G0 Z"& Rapid_dis Code "G00 X" & XPOS+9.04*X1+8.572*X2 &" Y" & YPOS+9.04*Y1+8.572*Y2 Code "G0 Z"& Corte Code "G01 X" & XPOS+4.285*X2 &" Y" & YPOS+4.285*Y2 Code "G01 X" & XPOS+7.613*X1 &" Y" & YPOS+7.613*Y1 Largo=9.04 Case 88 '< Code "G0 Z"& Rapid_dis Code "G00 X" & XPOS+1.904*X1+8.572*X2 &" Y" & YPOS+1.904*Y1+8.572*Y2 Code "G0 Z"& Corte Code "G01 X" & XPOS+8.564*X1+4.285*X2 &" Y" & YPOS+8.564*Y1+4.285*Y2 Code "G01 X" & XPOS &" Y" & YPOS Largo=8.564 Case 89 '| Code "G0 Z"& Rapid_dis Code "G00 X" & XPOS+3.807*X1+11.905*X2 &" Y" & YPOS+3.807*Y1+11.905*Y2 Code "G0 Z"& Corte Code "G01 X" & XPOS-3.333*X2 &" Y" & YPOS-3.333*Y2 Largo=3.807 End Select '=== Actaliza DRO'S === XPOS = XPOS + ( Largo + 3.268 * Porcentaje / 100) * X1 YPOS = YPOS + ( Largo + 3.268 * Porcentaje / 100) * Y1 Code "G00 Z" & Rapid_dis ' Code "G00 X" & XPOS & " Y" & YPOS Next Call SetUserDRO(1072, XPOS) Call SetUserDRO(1073, YPOS) Code "G00 X" & XPOS & " Y" & YPOS ' Restaura IJ Mode If IJ=1 then Code "M610" End if Code"M30" CloseTeachFile() call LoadStandardLayout() call LoadTeachFile()