'Macro for Write Engraving Screen
'******  Greenwood 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+3.7149*X1+10*X2 &" Y" & YPOS+3.7149*Y1+10*Y2
      Code "G01 X" & XPOS+5.2389*X1+10*X2 &" Y" & YPOS+5.2389*Y1+10*Y2
      Code "G01 X" & XPOS+8.9529*X1 &" Y" & YPOS+8.9529*Y1
      Code "G01 X" & XPOS+7.5238*X1 &" Y" & YPOS+7.5238*Y1
      Code "G01 X" & XPOS+6.4757*X1+2.952*X2 &" Y" & YPOS+6.4757*Y1+2.952*Y2
      Code "G01 X" & XPOS+2.4757*X1+2.952*X2 &" Y" & YPOS+2.4757*Y1+2.952*Y2
      Code "G01 X" & XPOS+1.3326*X1 &" Y" & YPOS+1.3326*Y1
      Code "G01 X" & XPOS+-0.0003*X1 &" Y" & YPOS+-0.0003*Y1
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.8566*X1+4.191*X2 &" Y" & YPOS+2.8566*Y1+4.191*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+5.9996*X1+4.191*X2 &" Y" & YPOS+5.9996*Y1+4.191*Y2
      Code "G01 X" & XPOS+4.4756*X1+8.667*X2 &" Y" & YPOS+4.4756*Y1+8.667*Y2
      Code "G01 X" & XPOS+2.8565*X1+4.191*X2 &" Y" & YPOS+2.8565*Y1+4.191*Y2
      Largo=8.9529
    Case 35   'B
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+4.2166*X1+10*X2 &" Y" & YPOS+4.2166*Y1+10*Y2
      Code GG&" X" & XPOS+5.5632*X1+9.9266*X2 &" Y" & YPOS+5.5632*Y1+9.9266*Y2 &" I"& XPOS+4.2166*X1-2.401*X2 &" J"& YPOS+4.2166*Y1-2.401*Y2
      Code GG&" X" & XPOS+6.2665*X1+9.6332*X2 &" Y" & YPOS+6.2665*Y1+9.6332*Y2 &" I"& XPOS+5.4167*X1+8.5856*X2 &" J"& YPOS+5.4167*Y1+8.5856*Y2
      Code GG&" X" & XPOS+7.1731*X1+6.4998*X2 &" Y" & YPOS+7.1731*Y1+6.4998*Y2 &" I"& XPOS+4.4672*X1+7.4152*X2 &" J"& YPOS+4.4672*Y1+7.4152*Y2
      Code GG&" X" & XPOS+6.7331*X1+5.7397*X2 &" Y" & YPOS+6.7331*Y1+5.7397*Y2 &" I"& XPOS+5.0665*X1+7.2118*X2 &" J"& YPOS+5.0665*Y1+7.2118*Y2
      Code GG&" X" & XPOS+5.9031*X1+5.2396*X2 &" Y" & YPOS+5.9031*Y1+5.2396*Y2 &" I"& XPOS+5.524*X1+6.8077*X2 &" J"& YPOS+5.524*Y1+6.8077*Y2
      Code GG&" X" & XPOS+6.6297*X1+4.8929*X2 &" Y" & YPOS+6.6297*Y1+4.8929*Y2 &" I"& XPOS+5.2487*X1+2.9336*X2 &" J"& YPOS+5.2487*Y1+2.9336*Y2
      Code GG&" X" & XPOS+7.1563*X1+4.3229*X2 &" Y" & YPOS+7.1563*Y1+4.3229*Y2 &" I"& XPOS+5.5629*X1+3.3799*X2 &" J"& YPOS+5.5629*Y1+3.3799*Y2
      Code GG&" X" & XPOS+6.4696*X1+0.4429*X2 &" Y" & YPOS+6.4696*Y1+0.4429*Y2 &" I"& XPOS+4.5559*X1+2.7829*X2 &" J"& YPOS+4.5559*Y1+2.7829*Y2
      Code GG&" X" & XPOS+5.7529*X1+0.0929*X2 &" Y" & YPOS+5.7529*Y1+0.0929*Y2 &" I"& XPOS+5.3684*X1+1.7889*X2 &" J"& YPOS+5.3684*Y1+1.7889*Y2
      Code GG&" X" & XPOS+4.9486*X1+0.0028*X2 &" Y" & YPOS+4.9486*Y1+0.0028*Y2 &" I"& XPOS+4.9486*X1+3.6399*X2 &" J"& YPOS+4.9486*Y1+3.6399*Y2
      Code "G01 X" & XPOS+-0.0004*X1+0.0028*X2 &" Y" & YPOS+-0.0004*Y1+0.0028*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.2362*X1+1.2394*X2 &" Y" & YPOS+1.2362*Y1+1.2394*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+4.6095*X1+1.2394*X2 &" Y" & YPOS+4.6095*Y1+1.2394*Y2
      Code GM&" X" & XPOS+5.3261*X1+1.3127*X2 &" Y" & YPOS+5.3261*Y1+1.3127*Y2 &" I"& XPOS+4.6095*X1+4.7774*X2 &" J"& YPOS+4.6095*Y1+4.7774*Y2
      Code GM&" X" & XPOS+5.7794*X1+1.546*X2 &" Y" & YPOS+5.7794*Y1+1.546*Y2 &" I"& XPOS+5.1335*X1+2.2437*X2 &" J"& YPOS+5.1335*Y1+2.2437*Y2
      Code GM&" X" & XPOS+5.6927*X1+4.2426*X2 &" Y" & YPOS+5.6927*Y1+4.2426*Y2 &" I"& XPOS+4.5663*X1+2.856*X2 &" J"& YPOS+4.5663*Y1+2.856*Y2
      Code GM&" X" & XPOS+5.196*X1+4.5192*X2 &" Y" & YPOS+5.196*Y1+4.5192*Y2 &" I"& XPOS+4.6581*X1+2.9706*X2 &" J"& YPOS+4.6581*Y1+2.9706*Y2
      Code GM&" X" & XPOS+4.8381*X1+4.5792*X2 &" Y" & YPOS+4.8381*Y1+4.5792*Y2 &" I"& XPOS+4.8401*X1+3.4942*X2 &" J"& YPOS+4.8401*Y1+3.4942*Y2
      Code "G01 X" & XPOS+1.2359*X1+4.5725*X2 &" Y" & YPOS+1.2359*Y1+4.5725*Y2
      Code "G01 X" & XPOS+1.2359*X1+1.2391*X2 &" Y" & YPOS+1.2359*Y1+1.2391*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.2359*X1+5.8091*X2 &" Y" & YPOS+1.2359*Y1+5.8091*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+4.3492*X1+5.8091*X2 &" Y" & YPOS+4.3492*Y1+5.8091*Y2
      Code GM&" X" & XPOS+4.8992*X1+5.8791*X2 &" Y" & YPOS+4.8992*Y1+5.8791*Y2 &" I"& XPOS+4.3447*X1+8.0391*X2 &" J"& YPOS+4.3447*Y1+8.0391*Y2
      Code GM&" X" & XPOS+5.3825*X1+6.1557*X2 &" Y" & YPOS+5.3825*Y1+6.1557*Y2 &" I"& XPOS+4.6384*X1+6.8951*X2 &" J"& YPOS+4.6384*Y1+6.8951*Y2
      Code GM&" X" & XPOS+5.3958*X1+8.4857*X2 &" Y" & YPOS+5.3958*Y1+8.4857*Y2 &" I"& XPOS+4.2033*X1+7.3267*X2 &" J"& YPOS+4.2033*Y1+7.3267*Y2
      Code GM&" X" & XPOS+4.9257*X1+8.719*X2 &" Y" & YPOS+4.9257*Y1+8.719*Y2 &" I"& XPOS+4.83*X1+7.9367*X2 &" J"& YPOS+4.83*Y1+7.9367*Y2
      Code GM&" X" & XPOS+4.2141*X1+8.7623*X2 &" Y" & YPOS+4.2141*Y1+8.7623*Y2 &" I"& XPOS+4.2141*X1+2.9*X2 &" J"& YPOS+4.2141*Y1+2.9*Y2
      Code "G01 X" & XPOS+1.2322*X1+8.7623*X2 &" Y" & YPOS+1.2322*Y1+8.7623*Y2
      Code "G01 X" & XPOS+1.2322*X1+5.8089*X2 &" Y" & YPOS+1.2322*Y1+5.8089*Y2
      Largo=7.1731
    Case 33   'C
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.41*X1+3.0933*X2 &" Y" & YPOS+8.41*Y1+3.0933*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+7.7032*X1+1.2232*X2 &" Y" & YPOS+7.7032*Y1+1.2232*Y2 &" I"& XPOS+4.7264*X1+3.4163*X2 &" J"& YPOS+4.7264*Y1+3.4163*Y2
      Code GG&" X" & XPOS+6.4264*X1+0.2898*X2 &" Y" & YPOS+6.4264*Y1+0.2898*Y2 &" I"& XPOS+5.5798*X1+2.7872*X2 &" J"& YPOS+5.5798*Y1+2.7872*Y2
      Code GG&" X" & XPOS+3.2362*X1+0.1964*X2 &" Y" & YPOS+3.2362*Y1+0.1964*Y2 &" I"& XPOS+4.6791*X1+5.4448*X2 &" J"& YPOS+4.6791*Y1+5.4448*Y2
      Code GG&" X" & XPOS+0.9094*X1+1.9064*X2 &" Y" & YPOS+0.9094*Y1+1.9064*Y2 &" I"& XPOS+4.307*X1+4.0914*X2 &" J"& YPOS+4.307*Y1+4.0914*Y2
      Code GG&" X" & XPOS+1.3894*X1+8.7*X2 &" Y" & YPOS+1.3894*Y1+8.7*Y2 &" I"& XPOS+5.6923*X1+4.9814*X2 &" J"& YPOS+5.6923*Y1+4.9814*Y2
      Code GG&" X" & XPOS+3.4995*X1+9.9133*X2 &" Y" & YPOS+3.4995*Y1+9.9133*Y2 &" I"& XPOS+4.1796*X1+6.29*X2 &" J"& YPOS+4.1796*Y1+6.29*Y2
      Code GG&" X" & XPOS+6.2229*X1+9.6599*X2 &" Y" & YPOS+6.2229*Y1+9.6599*Y2 &" I"& XPOS+4.4178*X1+5.0203*X2 &" J"& YPOS+4.4178*Y1+5.0203*Y2
      Code GG&" X" & XPOS+7.6596*X1+8.7031*X2 &" Y" & YPOS+7.6596*Y1+8.7031*Y2 &" I"& XPOS+4.7658*X1+5.9149*X2 &" J"& YPOS+4.7658*Y1+5.9149*Y2
      Code GG&" X" & XPOS+8.2296*X1+7.563*X2 &" Y" & YPOS+8.2296*Y1+7.563*Y2 &" I"& XPOS+6.1228*X1+7.2231*X2 &" J"& YPOS+6.1228*Y1+7.2231*Y2
      Code "G01 X" & XPOS+6.7928*X1+7.5863*X2 &" Y" & YPOS+6.7928*Y1+7.5863*Y2
      Code GM&" X" & XPOS+6.4961*X1+8.0196*X2 &" Y" & YPOS+6.4961*Y1+8.0196*Y2 &" I"& XPOS+4.6513*X1+6.4393*X2 &" J"& YPOS+4.6513*Y1+6.4393*Y2
      Code GM&" X" & XPOS+5.4227*X1+8.7029*X2 &" Y" & YPOS+5.4227*Y1+8.7029*Y2 &" I"& XPOS+4.836*X1+6.5976*X2 &" J"& YPOS+4.836*Y1+6.5976*Y2
      Code GM&" X" & XPOS+3.6226*X1+8.6095*X2 &" Y" & YPOS+3.6226*Y1+8.6095*Y2 &" I"& XPOS+4.6618*X1+5.9719*X2 &" J"& YPOS+4.6618*Y1+5.9719*Y2
      Code GM&" X" & XPOS+2.3925*X1+7.6761*X2 &" Y" & YPOS+2.3925*Y1+7.6761*Y2 &" I"& XPOS+4.6688*X1+5.9535*X2 &" J"& YPOS+4.6688*Y1+5.9535*Y2
      Code GM&" X" & XPOS+2.0291*X1+2.7525*X2 &" Y" & YPOS+2.0291*Y1+2.7525*Y2 &" I"& XPOS+6.0167*X1+4.9341*X2 &" J"& YPOS+6.0167*Y1+4.9341*Y2
      Code GM&" X" & XPOS+3.6925*X1+1.3857*X2 &" Y" & YPOS+3.6925*Y1+1.3857*Y2 &" I"& XPOS+4.5592*X1+4.1355*X2 &" J"& YPOS+4.5592*Y1+4.1355*Y2
      Code GM&" X" & XPOS+5.6092*X1+1.3857*X2 &" Y" & YPOS+5.6092*Y1+1.3857*Y2 &" I"& XPOS+4.6508*X1+4.4267*X2 &" J"& YPOS+4.6508*Y1+4.4267*Y2
      Code GM&" X" & XPOS+6.5892*X1+2.0457*X2 &" Y" & YPOS+6.5892*Y1+2.0457*Y2 &" I"& XPOS+4.9828*X1+3.3727*X2 &" J"& YPOS+4.9828*Y1+3.3727*Y2
      Code GM&" X" & XPOS+7.0225*X1+3.0924*X2 &" Y" & YPOS+7.0225*Y1+3.0924*Y2 &" I"& XPOS+5.1029*X1+3.2737*X2 &" J"& YPOS+5.1029*Y1+3.2737*Y2
      Code "G01 X" & XPOS+8.4125*X1+3.0924*X2 &" Y" & YPOS+8.4125*Y1+3.0924*Y2
      Largo=8.4125
    Case 23   'D
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.0141*X2 &" Y" & YPOS+0.0141*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+9.9972*X2 &" Y" & YPOS+9.9972*Y2
      Code "G01 X" & XPOS+3.7752*X1+9.9972*X2 &" Y" & YPOS+3.7752*Y1+9.9972*Y2
      Code GG&" X" & XPOS+5.1257*X1+9.9285*X2 &" Y" & YPOS+5.1257*Y1+9.9285*Y2 &" I"& XPOS+3.7752*X1-3.3208*X2 &" J"& YPOS+3.7752*Y1-3.3208*Y2
      Code GG&" X" & XPOS+5.8808*X1+9.6996*X2 &" Y" & YPOS+5.8808*Y1+9.6996*Y2 &" I"& XPOS+4.9167*X1+7.8795*X2 &" J"& YPOS+4.9167*Y1+7.8795*Y2
      Code GG&" X" & XPOS+7.0935*X1+8.6012*X2 &" Y" & YPOS+7.0935*Y1+8.6012*Y2 &" I"& XPOS+4.3276*X1+6.7666*X2 &" J"& YPOS+4.3276*Y1+6.7666*Y2
      Code GG&" X" & XPOS+7.4596*X1+2.1254*X2 &" Y" & YPOS+7.4596*Y1+2.1254*Y2 &" I"& XPOS+1.7422*X1+5.0512*X2 &" J"& YPOS+1.7422*Y1+5.0512*Y2
      Code GG&" X" & XPOS+5.8578*X1+0.432*X2 &" Y" & YPOS+5.8578*Y1+0.432*Y2 &" I"& XPOS+3.7661*X1+4.0144*X2 &" J"& YPOS+3.7661*Y1+4.0144*Y2
      Code GG&" X" & XPOS+5.034*X1+0.1116*X2 &" Y" & YPOS+5.034*Y1+0.1116*Y2 &" I"& XPOS+4.4375*X1+2.864*X2 &" J"& YPOS+4.4375*Y1+2.864*Y2
      Code GG&" X" & XPOS+4.0818*X1+0.0096*X2 &" Y" & YPOS+4.0818*Y1+0.0096*Y2 &" I"& XPOS+4.0818*X1+4.5056*X2 &" J"& YPOS+4.0818*Y1+4.5056*Y2
      Code "G01 X" & XPOS+0.0031*X1+0.0096*X2 &" Y" & YPOS+0.0031*Y1+0.0096*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.2393*X1+1.2458*X2 &" Y" & YPOS+1.2393*Y1+1.2458*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+3.7122*X1+1.2458*X2 &" Y" & YPOS+3.7122*Y1+1.2458*Y2
      Code GM&" X" & XPOS+4.7005*X1+1.3686*X2 &" Y" & YPOS+4.7005*Y1+1.3686*Y2 &" I"& XPOS+3.7122*X1+5.2828*X2 &" J"& YPOS+3.7122*Y1+5.2828*Y2
      Code GM&" X" & XPOS+5.5929*X1+1.8949*X2 &" Y" & YPOS+5.5929*Y1+1.8949*Y2 &" I"& XPOS+4.2501*X1+3.1516*X2 &" J"& YPOS+4.2501*Y1+3.1516*Y2
      Code GM&" X" & XPOS+5.57*X1+8.2562*X2 &" Y" & YPOS+5.57*Y1+8.2562*Y2 &" I"& XPOS+2.2083*X1+5.0629*X2 &" J"& YPOS+2.2083*Y1+5.0629*Y2
      Code GM&" X" & XPOS+4.7004*X1+8.7138*X2 &" Y" & YPOS+4.7004*Y1+8.7138*Y2 &" I"& XPOS+4.4598*X1+7.2022*X2 &" J"& YPOS+4.4598*Y1+7.2022*Y2
      Code GM&" X" & XPOS+4.0913*X1+8.7614*X2 &" Y" & YPOS+4.0913*Y1+8.7614*Y2 &" I"& XPOS+4.0972*X1+4.9238*X2 &" J"& YPOS+4.0972*Y1+4.9238*Y2
      Code "G01 X" & XPOS+1.239*X1+8.757*X2 &" Y" & YPOS+1.239*Y1+8.757*Y2
      Code "G01 X" & XPOS+1.239*X1+1.2463*X2 &" Y" & YPOS+1.239*Y1+1.2463*Y2
      Largo=8.6
    Case 13   'E
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.64*X1 &" Y" & YPOS+6.64*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS &" Y" & YPOS
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+6.6166*X1+10*X2 &" Y" & YPOS+6.6166*Y1+10*Y2
      Code "G01 X" & XPOS+6.6166*X1+8.7633*X2 &" Y" & YPOS+6.6166*Y1+8.7633*Y2
      Code "G01 X" & XPOS+1.2366*X1+8.7633*X2 &" Y" & YPOS+1.2366*Y1+8.7633*Y2
      Code "G01 X" & XPOS+1.2366*X1+5.8099*X2 &" Y" & YPOS+1.2366*Y1+5.8099*Y2
      Code "G01 X" & XPOS+4.8066*X1+5.8099*X2 &" Y" & YPOS+4.8066*Y1+5.8099*Y2
      Code "G01 X" & XPOS+4.8066*X1+4.5732*X2 &" Y" & YPOS+4.8066*Y1+4.5732*Y2
      Code "G01 X" & XPOS+1.2366*X1+4.5732*X2 &" Y" & YPOS+1.2366*Y1+4.5732*Y2
      Code "G01 X" & XPOS+1.2366*X1+1.2398*X2 &" Y" & YPOS+1.2366*Y1+1.2398*Y2
      Code "G01 X" & XPOS+6.6366*X1+1.2398*X2 &" Y" & YPOS+6.6366*Y1+1.2398*Y2
      Code "G01 X" & XPOS+6.6366*X1+0.0031*X2 &" Y" & YPOS+6.6366*Y1+0.0031*Y2
      Largo=6.64
    Case 24   'F
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+6.3866*X1+10*X2 &" Y" & YPOS+6.3866*Y1+10*Y2
      Code "G01 X" & XPOS+6.3866*X1+8.7633*X2 &" Y" & YPOS+6.3866*Y1+8.7633*Y2
      Code "G01 X" & XPOS+1.2366*X1+8.7633*X2 &" Y" & YPOS+1.2366*Y1+8.7633*Y2
      Code "G01 X" & XPOS+1.2366*X1+5.8099*X2 &" Y" & YPOS+1.2366*Y1+5.8099*Y2
      Code "G01 X" & XPOS+4.3966*X1+5.8099*X2 &" Y" & YPOS+4.3966*Y1+5.8099*Y2
      Code "G01 X" & XPOS+4.3966*X1+4.5732*X2 &" Y" & YPOS+4.3966*Y1+4.5732*Y2
      Code "G01 X" & XPOS+1.2365*X1+4.5732*X2 &" Y" & YPOS+1.2365*Y1+4.5732*Y2
      Code "G01 X" & XPOS+1.2365*X1+0.0031*X2 &" Y" & YPOS+1.2365*Y1+0.0031*Y2
      Code "G01 X" & XPOS+-0.0001*X1+0.0031*X2 &" Y" & YPOS+-0.0001*Y1+0.0031*Y2
      Largo=6.3866
    Case 25   'G
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.375*X1+0.9461*X2 &" Y" & YPOS+8.375*Y1+0.9461*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+7.6716*X1+0.9461*X2 &" Y" & YPOS+7.6716*Y1+0.9461*Y2
      Code "G01 X" & XPOS+7.4949*X1+1.7394*X2 &" Y" & YPOS+7.4949*Y1+1.7394*Y2
      Code GG&" X" & XPOS+6.7215*X1+0.6859*X2 &" Y" & YPOS+6.7215*Y1+0.6859*Y2 &" I"& XPOS+5.4279*X1+2.4454*X2 &" J"& YPOS+5.4279*Y1+2.4454*Y2
      Code GG&" X" & XPOS+5.528*X1+0.1225*X2 &" Y" & YPOS+5.528*Y1+0.1225*Y2 &" I"& XPOS+4.6811*X1+3.4619*X2 &" J"& YPOS+4.6811*Y1+3.4619*Y2
      Code GG&" X" & XPOS+3.5678*X1+0.1125*X2 &" Y" & YPOS+3.5678*Y1+0.1125*Y2 &" I"& XPOS+4.5278*X1+4.0665*X2 &" J"& YPOS+4.5278*Y1+4.0665*Y2
      Code GG&" X" & XPOS+1.8776*X1+0.9325*X2 &" Y" & YPOS+1.8776*Y1+0.9325*Y2 &" I"& XPOS+4.6132*X1+4.4185*X2 &" J"& YPOS+4.6132*Y1+4.4185*Y2
      Code GG&" X" & XPOS+0.6841*X1+2.3292*X2 &" Y" & YPOS+0.6841*Y1+2.3292*Y2 &" I"& XPOS+4.7542*X1+4.5985*X2 &" J"& YPOS+4.7542*Y1+4.5985*Y2
      Code GG&" X" & XPOS+1.2241*X1+8.3429*X2 &" Y" & YPOS+1.2241*Y1+8.3429*Y2 &" I"& XPOS+5.3663*X1+4.9392*X2 &" J"& YPOS+5.3663*Y1+4.9392*Y2
      Code GG&" X" & XPOS+4.1309*X1+9.963*X2 &" Y" & YPOS+4.1309*Y1+9.963*Y2 &" I"& XPOS+4.7379*X1+5.4569*X2 &" J"& YPOS+4.7379*Y1+5.4569*Y2
      Code GG&" X" & XPOS+6.7444*X1+9.3763*X2 &" Y" & YPOS+6.7444*Y1+9.3763*Y2 &" I"& XPOS+4.6456*X1+6.142*X2 &" J"& YPOS+4.6456*Y1+6.142*Y2
      Code GG&" X" & XPOS+7.7344*X1+8.2729*X2 &" Y" & YPOS+7.7344*Y1+8.2729*Y2 &" I"& XPOS+5.198*X1+6.9933*X2 &" J"& YPOS+5.198*Y1+6.9933*Y2
      Code GG&" X" & XPOS+8.0244*X1+7.2828*X2 &" Y" & YPOS+8.0244*Y1+7.2828*Y2 &" I"& XPOS+5.1956*X1+6.9919*X2 &" J"& YPOS+5.1956*Y1+6.9919*Y2
      Code "G01 X" & XPOS+6.8543*X1+7.2828*X2 &" Y" & YPOS+6.8543*Y1+7.2828*Y2
      Code GM&" X" & XPOS+6.5409*X1+8.0028*X2 &" Y" & YPOS+6.5409*Y1+8.0028*Y2 &" I"& XPOS+5.1806*X1+6.9828*X2 &" J"& YPOS+5.1806*Y1+6.9828*Y2
      Code GM&" X" & XPOS+5.4808*X1+8.7461*X2 &" Y" & YPOS+5.4808*Y1+8.7461*Y2 &" I"& XPOS+4.873*X1+6.7528*X2 &" J"& YPOS+4.873*Y1+6.7528*Y2
      Code GM&" X" & XPOS+3.9506*X1+8.8127*X2 &" Y" & YPOS+3.9506*Y1+8.8127*Y2 &" I"& XPOS+4.5864*X1+5.8121*X2 &" J"& YPOS+4.5864*Y1+5.8121*Y2
      Code GM&" X" & XPOS+2.4205*X1+7.9126*X2 &" Y" & YPOS+2.4205*Y1+7.9126*Y2 &" I"& XPOS+4.5301*X1+6.0777*X2 &" J"& YPOS+4.5301*Y1+6.0777*Y2
      Code GM&" X" & XPOS+2.3271*X1+2.3055*X2 &" Y" & YPOS+2.3271*Y1+2.3055*Y2 &" I"& XPOS+5.7059*X1+5.0546*X2 &" J"& YPOS+5.7059*Y1+5.0546*Y2
      Code GM&" X" & XPOS+3.4538*X1+1.4254*X2 &" Y" & YPOS+3.4538*Y1+1.4254*Y2 &" I"& XPOS+4.8139*X1+4.3275*X2 &" J"& YPOS+4.8139*Y1+4.3275*Y2
      Code GM&" X" & XPOS+4.4205*X1+1.1987*X2 &" Y" & YPOS+4.4205*Y1+1.1987*Y2 &" I"& XPOS+4.4745*X1+3.6034*X2 &" J"& YPOS+4.4745*Y1+3.6034*Y2
      Code GM&" X" & XPOS+6.2672*X1+1.762*X2 &" Y" & YPOS+6.2672*Y1+1.762*Y2 &" I"& XPOS+4.4896*X1+4.2797*X2 &" J"& YPOS+4.4896*Y1+4.2797*Y2
      Code GM&" X" & XPOS+7.2272*X1+3.2421*X2 &" Y" & YPOS+7.2272*Y1+3.2421*Y2 &" I"& XPOS+4.8985*X1+3.701*X2 &" J"& YPOS+4.8985*Y1+3.701*Y2
      Code "G01 X" & XPOS+7.2272*X1+4.1154*X2 &" Y" & YPOS+7.2272*Y1+4.1154*Y2
      Code "G01 X" & XPOS+4.407*X1+4.1154*X2 &" Y" & YPOS+4.407*Y1+4.1154*Y2
      Code "G01 X" & XPOS+4.407*X1+5.2621*X2 &" Y" & YPOS+4.407*Y1+5.2621*Y2
      Code "G01 X" & XPOS+8.3706*X1+5.2621*X2 &" Y" & YPOS+8.3706*Y1+5.2621*Y2
      Code "G01 X" & XPOS+8.3706*X1+0.9451*X2 &" Y" & YPOS+8.3706*Y1+0.9451*Y2
      Largo=8.375
    Case 26   'H
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+1.2366*X1+10*X2 &" Y" & YPOS+1.2366*Y1+10*Y2
      Code "G01 X" & XPOS+1.2366*X1+5.62*X2 &" Y" & YPOS+1.2366*Y1+5.62*Y2
      Code "G01 X" & XPOS+6.5699*X1+5.62*X2 &" Y" & YPOS+6.5699*Y1+5.62*Y2
      Code "G01 X" & XPOS+6.5699*X1+10*X2 &" Y" & YPOS+6.5699*Y1+10*Y2
      Code "G01 X" & XPOS+7.8065*X1+10*X2 &" Y" & YPOS+7.8065*Y1+10*Y2
      Code "G01 X" & XPOS+7.8065*X1 &" Y" & YPOS+7.8065*Y1
      Code "G01 X" & XPOS+6.5698*X1 &" Y" & YPOS+6.5698*Y1
      Code "G01 X" & XPOS+6.5698*X1+4.38*X2 &" Y" & YPOS+6.5698*Y1+4.38*Y2
      Code "G01 X" & XPOS+1.2364*X1+4.38*X2 &" Y" & YPOS+1.2364*Y1+4.38*Y2
      Code "G01 X" & XPOS+1.2364*X1 &" Y" & YPOS+1.2364*Y1
      Code "G01 X" & XPOS+-0.0002*X1 &" Y" & YPOS+-0.0002*Y1
      Largo=7.8065
    Case 18   'I
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+1.2366*X1+10*X2 &" Y" & YPOS+1.2366*Y1+10*Y2
      Code "G01 X" & XPOS+1.2366*X1 &" Y" & YPOS+1.2366*Y1
      Code "G01 X" & XPOS &" Y" & YPOS
      Largo=1.2366
    Case 27   'J
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.057*X1+3.2812*X2 &" Y" & YPOS+0.057*Y1+3.2812*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.1134*X1+3.2578*X2 &" Y" & YPOS+1.1134*Y1+3.2578*Y2
      Code GM&" X" & XPOS+1.18*X1+2.4046*X2 &" Y" & YPOS+1.18*Y1+2.4046*Y2 &" I"& XPOS+4.3232*X1+3.0798*X2 &" J"& YPOS+4.3232*Y1+3.0798*Y2
      Code GM&" X" & XPOS+1.4499*X1+1.8413*X2 &" Y" & YPOS+1.4499*Y1+1.8413*Y2 &" I"& XPOS+2.4885*X1+2.6846*X2 &" J"& YPOS+2.4885*Y1+2.6846*Y2
      Code GM&" X" & XPOS+3.8727*X1+1.4813*X2 &" Y" & YPOS+3.8727*Y1+1.4813*Y2 &" I"& XPOS+2.8581*X1+2.9853*X2 &" J"& YPOS+2.8581*Y1+2.9853*Y2
      Code GM&" X" & XPOS+4.3892*X1+2.2678*X2 &" Y" & YPOS+4.3892*Y1+2.2678*Y2 &" I"& XPOS+3.1911*X1+2.4913*X2 &" J"& YPOS+3.1911*Y1+2.4913*Y2
      Code GM&" X" & XPOS+4.4925*X1+3.383*X2 &" Y" & YPOS+4.4925*Y1+3.383*Y2 &" I"& XPOS-1.5755*X1+3.3828*X2 &" J"& YPOS-1.5755*Y1+3.3828*Y2
      Code "G01 X" & XPOS+4.4925*X1+9.9996*X2 &" Y" & YPOS+4.4925*Y1+9.9996*Y2
      Code "G01 X" & XPOS+5.6722*X1+9.9996*X2 &" Y" & YPOS+5.6722*Y1+9.9996*Y2
      Code "G01 X" & XPOS+5.6722*X1+3.4141*X2 &" Y" & YPOS+5.6722*Y1+3.4141*Y2
      Code GG&" X" & XPOS+5.5788*X1+2.001*X2 &" Y" & YPOS+5.5788*Y1+2.001*Y2 &" I"& XPOS-5.0742*X1+3.4141*X2 &" J"& YPOS-5.0742*Y1+3.4141*Y2
      Code GG&" X" & XPOS+5.1522*X1+0.9445*X2 &" Y" & YPOS+5.1522*Y1+0.9445*Y2 &" I"& XPOS+3.313*X1+2.301*X2 &" J"& YPOS+3.313*Y1+2.301*Y2
      Code GG&" X" & XPOS+4.389*X1+0.3146*X2 &" Y" & YPOS+4.389*Y1+0.3146*Y2 &" I"& XPOS+3.5116*X1+2.1545*X2 &" J"& YPOS+3.5116*Y1+2.1545*Y2
      Code GG&" X" & XPOS+0.9563*X1+0.7178*X2 &" Y" & YPOS+0.9563*Y1+0.7178*Y2 &" I"& XPOS+2.9929*X1+3.2426*X2 &" J"& YPOS+2.9929*Y1+3.2426*Y2
      Code GG&" X" & XPOS+0.1464*X1+1.8609*X2 &" Y" & YPOS+0.1464*Y1+1.8609*Y2 &" I"& XPOS+2.5718*X1+2.7198*X2 &" J"& YPOS+2.5718*Y1+2.7198*Y2
      Code GG&" X" & XPOS+0.0564*X1+3.2739*X2 &" Y" & YPOS+0.0564*Y1+3.2739*Y2 &" I"& XPOS+2.5856*X1+2.7249*X2 &" J"& YPOS+2.5856*Y1+2.7249*Y2
      Largo=5.6722
    Case 28   'K
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.0033*X2 &" Y" & YPOS+0.0033*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+9.9999*X2 &" Y" & YPOS+9.9999*Y2
      Code "G01 X" & XPOS+1.2362*X1+9.9999*X2 &" Y" & YPOS+1.2362*Y1+9.9999*Y2
      Code "G01 X" & XPOS+1.2362*X1+5.2381*X2 &" Y" & YPOS+1.2362*Y1+5.2381*Y2
      Code "G01 X" & XPOS+5.9979*X1+9.9998*X2 &" Y" & YPOS+5.9979*Y1+9.9998*Y2
      Code "G01 X" & XPOS+7.6173*X1+9.9998*X2 &" Y" & YPOS+7.6173*Y1+9.9998*Y2
      Code "G01 X" & XPOS+3.7152*X1+6.0977*X2 &" Y" & YPOS+3.7152*Y1+6.0977*Y2
      Code "G01 X" & XPOS+7.9038*X1+0.003*X2 &" Y" & YPOS+7.9038*Y1+0.003*Y2
      Code "G01 X" & XPOS+6.5709*X1+0.003*X2 &" Y" & YPOS+6.5709*Y1+0.003*Y2
      Code "G01 X" & XPOS+2.8588*X1+5.2379*X2 &" Y" & YPOS+2.8588*Y1+5.2379*Y2
      Code "G01 X" & XPOS+1.2393*X1+3.6184*X2 &" Y" & YPOS+1.2393*Y1+3.6184*Y2
      Code "G01 X" & XPOS+1.2393*X1+-0.0003*X2 &" Y" & YPOS+1.2393*Y1+-0.0003*Y2
      Code "G01 X" & XPOS+0.003*X1+-0.0003*X2 &" Y" & YPOS+0.003*Y1+-0.0003*Y2
      Largo=7.9038
    Case 29   'L
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.38*X1 &" Y" & YPOS+6.38*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS &" Y" & YPOS
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+1.2366*X1+10*X2 &" Y" & YPOS+1.2366*Y1+10*Y2
      Code "G01 X" & XPOS+1.2366*X1+1.2366*X2 &" Y" & YPOS+1.2366*Y1+1.2366*Y2
      Code "G01 X" & XPOS+6.3799*X1+1.2366*X2 &" Y" & YPOS+6.3799*Y1+1.2366*Y2
      Code "G01 X" & XPOS+6.3799*X1 &" Y" & YPOS+6.3799*Y1
      Largo=6.38
    Case 37   'M
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+1.9033*X1+10*X2 &" Y" & YPOS+1.9033*Y1+10*Y2
      Code "G01 X" & XPOS+4.6666*X1+4.3935*X2 &" Y" & YPOS+4.6666*Y1+4.3935*Y2
      Code "G01 X" & XPOS+7.4299*X1+9.9999*X2 &" Y" & YPOS+7.4299*Y1+9.9999*Y2
      Code "G01 X" & XPOS+9.3332*X1+9.9999*X2 &" Y" & YPOS+9.3332*Y1+9.9999*Y2
      Code "G01 X" & XPOS+9.3332*X1 &" Y" & YPOS+9.3332*Y1
      Code "G01 X" & XPOS+8.0965*X1 &" Y" & YPOS+8.0965*Y1
      Code "G01 X" & XPOS+8.0965*X1+8.3799*X2 &" Y" & YPOS+8.0965*Y1+8.3799*Y2
      Code "G01 X" & XPOS+5.3331*X1+3.0223*X2 &" Y" & YPOS+5.3331*Y1+3.0223*Y2
      Code "G01 X" & XPOS+3.9997*X1+3.0223*X2 &" Y" & YPOS+3.9997*Y1+3.0223*Y2
      Code "G01 X" & XPOS+1.2363*X1+8.3798*X2 &" Y" & YPOS+1.2363*Y1+8.3798*Y2
      Code "G01 X" & XPOS+1.2363*X1+-0.0001*X2 &" Y" & YPOS+1.2363*Y1+-0.0001*Y2
      Code "G01 X" & XPOS &" Y" & YPOS
      Largo=9.3332
    Case 36   'N
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+1.43*X1+10*X2 &" Y" & YPOS+1.43*Y1+10*Y2
      Code "G01 X" & XPOS+6.6666*X1+1.9033*X2 &" Y" & YPOS+6.6666*Y1+1.9033*Y2
      Code "G01 X" & XPOS+6.6666*X1+9.9999*X2 &" Y" & YPOS+6.6666*Y1+9.9999*Y2
      Code "G01 X" & XPOS+7.9032*X1+9.9999*X2 &" Y" & YPOS+7.9032*Y1+9.9999*Y2
      Code "G01 X" & XPOS+7.9032*X1 &" Y" & YPOS+7.9032*Y1
      Code "G01 X" & XPOS+6.4732*X1 &" Y" & YPOS+6.4732*Y1
      Code "G01 X" & XPOS+1.2365*X1+8.0966*X2 &" Y" & YPOS+1.2365*Y1+8.0966*Y2
      Code "G01 X" & XPOS+1.2365*X1 &" Y" & YPOS+1.2365*Y1
      Code "G01 X" & XPOS &" Y" & YPOS
      Largo=7.9032
    Case 30   'Ñ
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+1.43*X1+10*X2 &" Y" & YPOS+1.43*Y1+10*Y2
      Code "G01 X" & XPOS+6.6666*X1+1.9033*X2 &" Y" & YPOS+6.6666*Y1+1.9033*Y2
      Code "G01 X" & XPOS+6.6666*X1+9.9999*X2 &" Y" & YPOS+6.6666*Y1+9.9999*Y2
      Code "G01 X" & XPOS+7.9032*X1+9.9999*X2 &" Y" & YPOS+7.9032*Y1+9.9999*Y2
      Code "G01 X" & XPOS+7.9032*X1 &" Y" & YPOS+7.9032*Y1
      Code "G01 X" & XPOS+6.4732*X1 &" Y" & YPOS+6.4732*Y1
      Code "G01 X" & XPOS+1.2365*X1+8.0966*X2 &" Y" & YPOS+1.2365*Y1+8.0966*Y2
      Code "G01 X" & XPOS+1.2365*X1 &" Y" & YPOS+1.2365*Y1
      Code "G01 X" & XPOS &" Y" & YPOS

      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.8667*X1+10.6136 *X2 &" Y" & YPOS+1.8667*Y1+10.6136 *Y2
      Code "G00 Z"& Corte
      Code "G01 X"& XPOS+1.8796*X1+10.8734 *X2 &" Y" & YPOS+1.8796*Y1+10.8734 *Y2
      Code "G01 X"& XPOS+1.8796*X1+10.8734 *X2 &" Y" & YPOS+1.8796*Y1+10.8734 *Y2
      Code  GG&" X" & XPOS+3.8174*X1+12.0509*X2 &" Y" & YPOS+3.8174*Y1+12.0509*Y2 &" I"& XPOS+3.2475*X1+10.8055*X2 &" J"& YPOS+3.2475*Y1+10.8055*Y2
      Code "G01 X"& XPOS+3.8174*X1+12.0509 *X2 &" Y" & YPOS+3.8174*Y1+12.0509 *Y2
      Code "G01 X"& XPOS+4.8524*X1+11.5772 *X2 &" Y" & YPOS+4.8524*Y1+11.5772 *Y2
      Code  GM&" X" & XPOS+5.5061*X1+11.9722*X2 &" Y" & YPOS+5.5061*Y1+11.9722*Y2 &" I"& XPOS+5.0447*X1+11.9975*X2 &" J"& YPOS+5.0447*Y1+11.9975*Y2
      Code "G01 X"& XPOS+5.5181*X1+12.1893 *X2 &" Y" & YPOS+5.5181*Y1+12.1893 *Y2
      Code "G01 X"& XPOS+6.4255*X1+12.1893 *X2 &" Y" & YPOS+6.4255*Y1+12.1893 *Y2
      Code "G01 X"& XPOS+6.4126*X1+11.9296 *X2 &" Y" & YPOS+6.4126*Y1+11.9296 *Y2
      Code "G01 X"& XPOS+6.4126*X1+11.9296 *X2 &" Y" & YPOS+6.4126*Y1+11.9296 *Y2
      Code  GG&" X" & XPOS+4.4748*X1+10.7521*X2 &" Y" & YPOS+4.4748*Y1+10.7521*Y2 &" I"& XPOS+5.0447*X1+11.9975*X2 &" J"& YPOS+5.0447*Y1+11.9975*Y2
      Code "G01 X"& XPOS+4.4748*X1+10.7521 *X2 &" Y" & YPOS+4.4748*Y1+10.7521 *Y2
      Code "G01 X"& XPOS+3.4398*X1+11.2257 *X2 &" Y" & YPOS+3.4398*Y1+11.2257 *Y2
      Code  GM&" X" & XPOS+2.786*X1+10.8308*X2 &" Y" & YPOS+2.786*Y1+10.8308*Y2 &" I"& XPOS+3.2475*X1+10.8055*X2 &" J"& YPOS+3.2475*Y1+10.8055*Y2
      Code "G01 X"& XPOS+2.7741*X1+10.6136 *X2 &" Y" & YPOS+2.7741*Y1+10.6136 *Y2
      Code "G01 X"& XPOS+1.8667*X1+10.6136 *X2 &" Y" & YPOS+1.8667*Y1+10.6136 *Y2
      Largo=7.9032
    Case 19   'O
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.4888*X1+0.1344*X2 &" Y" & YPOS+5.4888*Y1+0.1344*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+3.3854*X1+0.1601*X2 &" Y" & YPOS+3.3854*Y1+0.1601*Y2 &" I"& XPOS+4.4983*X1+5.1494*X2 &" J"& YPOS+4.4983*Y1+5.1494*Y2
      Code GG&" X" & XPOS+2.2412*X1+0.5948*X2 &" Y" & YPOS+2.2412*Y1+0.5948*Y2 &" I"& XPOS+4.3156*X1+4.3301*X2 &" J"& YPOS+4.3156*Y1+4.3301*Y2
      Code GG&" X" & XPOS+0.9368*X1+1.8762*X2 &" Y" & YPOS+0.9368*Y1+1.8762*Y2 &" I"& XPOS+3.9069*X1+3.5948*X2 &" J"& YPOS+3.9069*Y1+3.5948*Y2
      Code GG&" X" & XPOS+0.6164*X1+7.6656*X2 &" Y" & YPOS+0.6164*Y1+7.6656*Y2 &" I"& XPOS+6.4855*X1+5.0862*X2 &" J"& YPOS+6.4855*Y1+5.0862*Y2
      Code GG&" X" & XPOS+1.6919*X1+9.0843*X2 &" Y" & YPOS+1.6919*Y1+9.0843*Y2 &" I"& XPOS+4.1216*X1+6.1256*X2 &" J"& YPOS+4.1216*Y1+6.1256*Y2
      Code GG&" X" & XPOS+3.0649*X1+9.8165*X2 &" Y" & YPOS+3.0649*Y1+9.8165*Y2 &" I"& XPOS+4.2076*X1+6.0213*X2 &" J"& YPOS+4.2076*Y1+6.0213*Y2
      Code GG&" X" & XPOS+5.7819*X1+9.7679*X2 &" Y" & YPOS+5.7819*Y1+9.7679*Y2 &" I"& XPOS+4.3476*X1+5.5555*X2 &" J"& YPOS+4.3476*Y1+5.5555*Y2
      Code GG&" X" & XPOS+7.1653*X1+8.8745*X2 &" Y" & YPOS+7.1653*Y1+8.8745*Y2 &" I"& XPOS+4.6887*X1+6.5579*X2 &" J"& YPOS+4.6887*Y1+6.5579*Y2
      Code GG&" X" & XPOS+8.0076*X1+7.5739*X2 &" Y" & YPOS+8.0076*Y1+7.5739*Y2 &" I"& XPOS+3.96*X1+5.8755*X2 &" J"& YPOS+3.96*Y1+5.8755*Y2
      Code GG&" X" & XPOS+7.733*X1+2.0132*X2 &" Y" & YPOS+7.733*Y1+2.0132*Y2 &" I"& XPOS+2.0648*X1+5.0809*X2 &" J"& YPOS+2.0648*Y1+5.0809*Y2
      Code GG&" X" & XPOS+6.4515*X1+0.5715*X2 &" Y" & YPOS+6.4515*Y1+0.5715*Y2 &" I"& XPOS+4.0227*X1+4.0202*X2 &" J"& YPOS+4.0227*Y1+4.0202*Y2
      Code GG&" X" & XPOS+5.4884*X1+0.1338*X2 &" Y" & YPOS+5.4884*Y1+0.1338*Y2 &" I"& XPOS+4.8133*X1+2.8975*X2 &" J"& YPOS+4.8133*Y1+2.8975*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.265*X1+1.2138*X2 &" Y" & YPOS+5.265*Y1+1.2138*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+6.0683*X1+1.6971*X2 &" Y" & YPOS+6.0683*Y1+1.6971*Y2 &" I"& XPOS+4.7662*X1+2.9518*X2 &" J"& YPOS+4.7662*Y1+2.9518*Y2
      Code GM&" X" & XPOS+6.5816*X1+2.3904*X2 &" Y" & YPOS+6.5816*Y1+2.3904*Y2 &" I"& XPOS+3.6653*X1+4.0121*X2 &" J"& YPOS+3.6653*Y1+4.0121*Y2
      Code GM&" X" & XPOS+6.7149*X1+7.4673*X2 &" Y" & YPOS+6.7149*Y1+7.4673*Y2 &" I"& XPOS+1.7892*X1+5.0564*X2 &" J"& YPOS+1.7892*Y1+5.0564*Y2
      Code GM&" X" & XPOS+6.1115*X1+8.294*X2 &" Y" & YPOS+6.1115*Y1+8.294*Y2 &" I"& XPOS+4.0793*X1+6.1783*X2 &" J"& YPOS+4.0793*Y1+6.1783*Y2
      Code GM&" X" & XPOS+5.1947*X1+8.8073*X2 &" Y" & YPOS+5.1947*Y1+8.8073*Y2 &" I"& XPOS+4.6666*X1+6.79*X2 &" J"& YPOS+4.6666*Y1+6.79*Y2
      Code GM&" X" & XPOS+3.6979*X1+8.8739*X2 &" Y" & YPOS+3.6979*Y1+8.8739*Y2 &" I"& XPOS+4.291*X1+5.3543*X2 &" J"& YPOS+4.291*Y1+5.3543*Y2
      Code GM&" X" & XPOS+2.6245*X1+8.3838*X2 &" Y" & YPOS+2.6245*Y1+8.3838*Y2 &" I"& XPOS+4.0773*X1+6.6229*X2 &" J"& YPOS+4.0773*Y1+6.6229*Y2
      Code GM&" X" & XPOS+1.9778*X1+7.6237*X2 &" Y" & YPOS+1.9778*Y1+7.6237*Y2 &" I"& XPOS+4.4353*X1+6.1888*X2 &" J"& YPOS+4.4353*Y1+6.1888*Y2
      Code GM&" X" & XPOS+1.9778*X1+2.41*X2 &" Y" & YPOS+1.9778*Y1+2.41*Y2 &" I"& XPOS+6.4393*X1+5.0177*X2 &" J"& YPOS+6.4393*Y1+5.0177*Y2
      Code GM&" X" & XPOS+2.6478*X1+1.6499*X2 &" Y" & YPOS+2.6478*Y1+1.6499*Y2 &" I"& XPOS+4.2495*X1+3.737*X2 &" J"& YPOS+4.2495*Y1+3.737*Y2
      Code GM&" X" & XPOS+3.6978*X1+1.1465*X2 &" Y" & YPOS+3.6978*Y1+1.1465*Y2 &" I"& XPOS+4.3684*X1+3.8919*X2 &" J"& YPOS+4.3684*Y1+3.8919*Y2
      Code GM&" X" & XPOS+5.2612*X1+1.2131*X2 &" Y" & YPOS+5.2612*Y1+1.2131*Y2 &" I"& XPOS+4.3645*X1+3.8765*X2 &" J"& YPOS+4.3645*Y1+3.8765*Y2
      Largo=8.0076
    Case 20   'P
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+9.9999*X2 &" Y" & YPOS+9.9999*Y2
      Code "G01 X" & XPOS+4.1733*X1+9.9999*X2 &" Y" & YPOS+4.1733*Y1+9.9999*Y2
      Code GG&" X" & XPOS+5.6066*X1+9.8032*X2 &" Y" & YPOS+5.6066*Y1+9.8032*Y2 &" I"& XPOS+4.1733*X1+4.6789*X2 &" J"& YPOS+4.1733*Y1+4.6789*Y2
      Code GG&" X" & XPOS+6.5666*X1+9.1398*X2 &" Y" & YPOS+6.5666*Y1+9.1398*Y2 &" I"& XPOS+5.1243*X1+8.0792*X2 &" J"& YPOS+5.1243*Y1+8.0792*Y2
      Code GG&" X" & XPOS+6.7499*X1+5.3998*X2 &" Y" & YPOS+6.7499*Y1+5.3998*Y2 &" I"& XPOS+3.8364*X1+7.1318*X2 &" J"& YPOS+3.8364*Y1+7.1318*Y2
      Code GG&" X" & XPOS+5.5599*X1+4.4931*X2 &" Y" & YPOS+5.5599*Y1+4.4931*Y2 &" I"& XPOS+5.0311*X1+6.4208*X2 &" J"& YPOS+5.0311*Y1+6.4208*Y2
      Code GG&" X" & XPOS+4.0245*X1+4.2864*X2 &" Y" & YPOS+4.0245*Y1+4.2864*Y2 &" I"& XPOS+4.0245*X1+10.0921*X2 &" J"& YPOS+4.0245*Y1+10.0921*Y2
      Code "G01 X" & XPOS+1.2364*X1+4.2864*X2 &" Y" & YPOS+1.2364*Y1+4.2864*Y2
      Code "G01 X" & XPOS+1.2364*X1+-0.0002*X2 &" Y" & YPOS+1.2364*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+-0.0002*X1+-0.0002*X2 &" Y" & YPOS+-0.0002*Y1+-0.0002*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.2364*X1+5.5231*X2 &" Y" & YPOS+1.2364*Y1+5.5231*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+4.4663*X1+5.5231*X2 &" Y" & YPOS+4.4663*Y1+5.5231*Y2
      Code GM&" X" & XPOS+5.2396*X1+5.753*X2 &" Y" & YPOS+5.2396*Y1+5.753*Y2 &" I"& XPOS+4.4663*X1+6.9381*X2 &" J"& YPOS+4.4663*Y1+6.9381*Y2
      Code GM&" X" & XPOS+5.6729*X1+6.2096*X2 &" Y" & YPOS+5.6729*Y1+6.2096*Y2 &" I"& XPOS+4.496*X1+6.892*X2 &" J"& YPOS+4.496*Y1+6.892*Y2
      Code GM&" X" & XPOS+5.6029*X1+8.1995*X2 &" Y" & YPOS+5.6029*Y1+8.1995*Y2 &" I"& XPOS+4.0539*X1+7.1486*X2 &" J"& YPOS+4.0539*Y1+7.1486*Y2
      Code GM&" X" & XPOS+5.1229*X1+8.6028*X2 &" Y" & YPOS+5.1229*Y1+8.6028*Y2 &" I"& XPOS+4.6507*X1+7.5545*X2 &" J"& YPOS+4.6507*Y1+7.5545*Y2
      Code GM&" X" & XPOS+4.3927*X1+8.7595*X2 &" Y" & YPOS+4.3927*Y1+8.7595*Y2 &" I"& XPOS+4.3927*X1+6.9808*X2 &" J"& YPOS+4.3927*Y1+6.9808*Y2
      Code "G01 X" & XPOS+1.2361*X1+8.7595*X2 &" Y" & YPOS+1.2361*Y1+8.7595*Y2
      Code "G01 X" & XPOS+1.2361*X1+5.5228*X2 &" Y" & YPOS+1.2361*Y1+5.5228*Y2
      Largo=6.7499
    Case 11   'Q
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.8756*X1 &" Y" & YPOS+7.8756*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+6.5758*X1+1.0397*X2 &" Y" & YPOS+6.5758*Y1+1.0397*Y2
      Code GG&" X" & XPOS+4.2129*X1+0.2731*X2 &" Y" & YPOS+4.2129*Y1+0.2731*Y2 &" I"& XPOS+4.2063*X1+4.3187*X2 &" J"& YPOS+4.2063*Y1+4.3187*Y2
      Code GG&" X" & XPOS+1.6034*X1+1.2129*X2 &" Y" & YPOS+1.6034*Y1+1.2129*Y2 &" I"& XPOS+4.2062*X1+4.3471*X2 &" J"& YPOS+4.2062*Y1+4.3471*Y2
      Code GG&" X" & XPOS+0.3903*X1+2.9292*X2 &" Y" & YPOS+0.3903*Y1+2.9292*Y2 &" I"& XPOS+4.1906*X1+4.3279*X2 &" J"& YPOS+4.1906*Y1+4.3279*Y2
      Code GG&" X" & XPOS+0.3669*X1+7.2816*X2 &" Y" & YPOS+0.3669*Y1+7.2816*Y2 &" I"& XPOS+6.3888*X1+5.1372*X2 &" J"& YPOS+6.3888*Y1+5.1372*Y2
      Code GG&" X" & XPOS+1.2134*X1+8.7246*X2 &" Y" & YPOS+1.2134*Y1+8.7246*Y2 &" I"& XPOS+4.5731*X1+5.7846*X2 &" J"& YPOS+4.5731*Y1+5.7846*Y2
      Code GG&" X" & XPOS+2.5864*X1+9.6877*X2 &" Y" & YPOS+2.5864*Y1+9.6877*Y2 &" I"& XPOS+3.8669*X1+6.4026*X2 &" J"& YPOS+3.8669*Y1+6.4026*Y2
      Code GG&" X" & XPOS+6.4323*X1+9.4344*X2 &" Y" & YPOS+6.4323*Y1+9.4344*Y2 &" I"& XPOS+4.2385*X1+5.4487*X2 &" J"& YPOS+4.2385*Y1+5.4487*Y2
      Code GG&" X" & XPOS+7.3254*X1+8.7478*X2 &" Y" & YPOS+7.3254*Y1+8.7478*Y2 &" I"& XPOS+4.6407*X1+6.1794*X2 &" J"& YPOS+4.6407*Y1+6.1794*Y2
      Code GG&" X" & XPOS+8.0352*X1+7.7646*X2 &" Y" & YPOS+8.0352*Y1+7.7646*Y2 &" I"& XPOS+4.1391*X1+5.6998*X2 &" J"& YPOS+4.1391*Y1+5.6998*Y2
      Code GG&" X" & XPOS+8.6317*X1+4.9718*X2 &" Y" & YPOS+8.6317*Y1+4.9718*Y2 &" I"& XPOS+3.4216*X1+5.3196*X2 &" J"& YPOS+3.4216*Y1+5.3196*Y2
      Code GG&" X" & XPOS+8.2217*X1+3.0954*X2 &" Y" & YPOS+8.2217*Y1+3.0954*Y2 &" I"& XPOS+2.1581*X1+5.4028*X2 &" J"& YPOS+2.1581*Y1+5.4028*Y2
      Code GG&" X" & XPOS+7.2718*X1+1.6523*X2 &" Y" & YPOS+7.2718*Y1+1.6523*Y2 &" I"& XPOS+4.4967*X1+4.5124*X2 &" J"& YPOS+4.4967*Y1+4.5124*Y2
      Code "G01 X" & XPOS+8.4849*X1+0.6991*X2 &" Y" & YPOS+8.4849*Y1+0.6991*Y2
      Code "G01 X" & XPOS+7.8783*X1+0.0059*X2 &" Y" & YPOS+7.8783*Y1+0.0059*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.2788*X1+3.2119*X2 &" Y" & YPOS+5.2788*Y1+3.2119*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+6.4052*X1+2.3453*X2 &" Y" & YPOS+6.4052*Y1+2.3453*Y2
      Code GM&" X" & XPOS+7.145*X1+3.485*X2 &" Y" & YPOS+7.145*Y1+3.485*Y2 &" I"& XPOS+2.965*X1+5.3883*X2 &" J"& YPOS+2.965*Y1+5.3883*Y2
      Code GM&" X" & XPOS+7.3949*X1+4.2648*X2 &" Y" & YPOS+7.3949*Y1+4.2648*Y2 &" I"& XPOS+3.9555*X1+4.937*X2 &" J"& YPOS+3.9555*Y1+4.937*Y2
      Code GM&" X" & XPOS+6.915*X1+7.4708*X2 &" Y" & YPOS+6.915*Y1+7.4708*Y2 &" I"& XPOS+2.647*X1+5.1928*X2 &" J"& YPOS+2.647*Y1+5.1928*Y2
      Code GM&" X" & XPOS+6.4784*X1+8.0873*X2 &" Y" & YPOS+6.4784*Y1+8.0873*Y2 &" I"& XPOS+4.2611*X1+6.0548*X2 &" J"& YPOS+4.2611*Y1+6.0548*Y2
      Code GM&" X" & XPOS+5.6319*X1+8.7071*X2 &" Y" & YPOS+5.6319*Y1+8.7071*Y2 &" I"& XPOS+4.4997*X1+6.2733*X2 &" J"& YPOS+4.4997*Y1+6.2733*Y2
      Code GM&" X" & XPOS+3.3656*X1+8.867*X2 &" Y" & YPOS+3.3656*Y1+8.867*Y2 &" I"& XPOS+4.2894*X1+5.8211*X2 &" J"& YPOS+4.2894*Y1+5.8211*Y2
      Code GM&" X" & XPOS+2.4024*X1+8.3404*X2 &" Y" & YPOS+2.4024*Y1+8.3404*Y2 &" I"& XPOS+4.1448*X1+6.298*X2 &" J"& YPOS+4.1448*Y1+6.298*Y2
      Code GM&" X" & XPOS+1.7392*X1+7.4938*X2 &" Y" & YPOS+1.7392*Y1+7.4938*Y2 &" I"& XPOS+4.1579*X1+6.2824*X2 &" J"& YPOS+4.1579*Y1+6.2824*Y2
      Code GM&" X" & XPOS+1.5559*X1+3.1646*X2 &" Y" & YPOS+1.5559*Y1+3.1646*Y2 &" I"& XPOS+6.4666*X1+5.1258*X2 &" J"& YPOS+6.4666*Y1+5.1258*Y2
      Code GM&" X" & XPOS+2.379*X1+2.0648*X2 &" Y" & YPOS+2.379*Y1+2.0648*Y2 &" I"& XPOS+4.0125*X1+4.1446*X2 &" J"& YPOS+4.0125*Y1+4.1446*Y2
      Code GM&" X" & XPOS+3.2488*X1+1.5615*X2 &" Y" & YPOS+3.2488*Y1+1.5615*Y2 &" I"& XPOS+4.5854*X1+4.8748*X2 &" J"& YPOS+4.5854*Y1+4.8748*Y2
      Code GM&" X" & XPOS+5.6216*X1+1.7381*X2 &" Y" & YPOS+5.6216*Y1+1.7381*Y2 &" I"& XPOS+4.2559*X1+4.0575*X2 &" J"& YPOS+4.2559*Y1+4.0575*Y2
      Code "G01 X" & XPOS+4.6684*X1+2.6046*X2 &" Y" & YPOS+4.6684*Y1+2.6046*Y2
      Code "G01 X" & XPOS+5.2749*X1+3.2111*X2 &" Y" & YPOS+5.2749*Y1+3.2111*Y2
      Largo=8.6317
    Case 14   'R
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+4.89*X1+10*X2 &" Y" & YPOS+4.89*Y1+10*Y2
      Code GG&" X" & XPOS+6.11*X1+9.7033*X2 &" Y" & YPOS+6.11*Y1+9.7033*Y2 &" I"& XPOS+4.89*X1+7.344*X2 &" J"& YPOS+4.89*Y1+7.344*Y2
      Code GG&" X" & XPOS+6.8433*X1+9.0399*X2 &" Y" & YPOS+6.8433*Y1+9.0399*Y2 &" I"& XPOS+5.221*X1+7.9843*X2 &" J"& YPOS+5.221*Y1+7.9843*Y2
      Code GG&" X" & XPOS+7.0033*X1+6.0865*X2 &" Y" & YPOS+7.0033*Y1+6.0865*Y2 &" I"& XPOS+4.3626*X1+7.4249*X2 &" J"& YPOS+4.3626*Y1+7.4249*Y2
      Code GG&" X" & XPOS+6.4766*X1+5.3765*X2 &" Y" & YPOS+6.4766*Y1+5.3765*Y2 &" I"& XPOS+4.6626*X1+7.2715*X2 &" J"& YPOS+4.6626*Y1+7.2715*Y2
      Code GG&" X" & XPOS+5.6199*X1+4.9498*X2 &" Y" & YPOS+5.6199*Y1+4.9498*Y2 &" I"& XPOS+5.3615*X1+6.5415*X2 &" J"& YPOS+5.3615*Y1+6.5415*Y2
      Code GG&" X" & XPOS+6.7932*X1+4.1997*X2 &" Y" & YPOS+6.7932*Y1+4.1997*Y2 &" I"& XPOS+5.452*X1+3.3948*X2 &" J"& YPOS+5.452*Y1+3.3948*Y2
      Code GG&" X" & XPOS+7.1131*X1+3.263*X2 &" Y" & YPOS+7.1131*Y1+3.263*Y2 &" I"& XPOS+4.7729*X1+2.9867*X2 &" J"& YPOS+4.7729*Y1+2.9867*Y2
      Code GG&" X" & XPOS+7.2097*X1+1.2263*X2 &" Y" & YPOS+7.2097*Y1+1.2263*Y2 &" I"& XPOS-7.3228*X1+1.558*X2 &" J"& YPOS-7.3228*Y1+1.558*Y2
      Code GM&" X" & XPOS+7.6197*X1+-0.0003*X2 &" Y" & YPOS+7.6197*Y1+-0.0003*Y2 &" I"& XPOS+9.1195*X1+1.1833*X2 &" J"& YPOS+9.1195*Y1+1.1833*Y2
      Code "G01 X" & XPOS+6.2863*X1+-0.0003*X2 &" Y" & YPOS+6.2863*Y1+-0.0003*Y2
      Code GG&" X" & XPOS+6.0863*X1+0.5396*X2 &" Y" & YPOS+6.0863*Y1+0.5396*Y2 &" I"& XPOS+8.8713*X1+1.2637*X2 &" J"& YPOS+8.8713*Y1+1.2637*Y2
      Code GG&" X" & XPOS+5.9963*X1+1.4796*X2 &" Y" & YPOS+5.9963*Y1+1.4796*Y2 &" I"& XPOS+8.9714*X1+1.2896*X2 &" J"& YPOS+8.9714*Y1+1.2896*Y2
      Code GM&" X" & XPOS+5.8596*X1+3.1729*X2 &" Y" & YPOS+5.8596*Y1+3.1729*Y2 &" I"& XPOS+0.0941*X1+1.8546*X2 &" J"& YPOS+0.0941*Y1+1.8546*Y2
      Code GM&" X" & XPOS+5.2396*X1+4.0395*X2 &" Y" & YPOS+5.2396*Y1+4.0395*Y2 &" I"& XPOS+4.514*X1+2.8659*X2 &" J"& YPOS+4.514*Y1+2.8659*Y2
      Code GM&" X" & XPOS+4.3711*X1+4.2861*X2 &" Y" & YPOS+4.3711*Y1+4.2861*Y2 &" I"& XPOS+4.3711*X1+2.6345*X2 &" J"& YPOS+4.3711*Y1+2.6345*Y2
      Code "G01 X" & XPOS+1.2362*X1+4.2861*X2 &" Y" & YPOS+1.2362*Y1+4.2861*Y2
      Code "G01 X" & XPOS+1.2362*X1+-0.0005*X2 &" Y" & YPOS+1.2362*Y1+-0.0005*Y2
      Code "G01 X" & XPOS+-0.0004*X1+-0.0005*X2 &" Y" & YPOS+-0.0004*Y1+-0.0005*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.2362*X1+5.5228*X2 &" Y" & YPOS+1.2362*Y1+5.5228*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+4.3628*X1+5.5228*X2 &" Y" & YPOS+4.3628*Y1+5.5228*Y2
      Code GM&" X" & XPOS+5.2161*X1+5.6494*X2 &" Y" & YPOS+5.2161*Y1+5.6494*Y2 &" I"& XPOS+4.3628*X1+8.4598*X2 &" J"& YPOS+4.3628*Y1+8.4598*Y2
      Code GM&" X" & XPOS+5.7427*X1+6.0394*X2 &" Y" & YPOS+5.7427*Y1+6.0394*Y2 &" I"& XPOS+4.9327*X1+6.5824*X2 &" J"& YPOS+4.9327*Y1+6.5824*Y2
      Code GM&" X" & XPOS+5.6973*X1+8.4433*X2 &" Y" & YPOS+5.6973*Y1+8.4433*Y2 &" I"& XPOS+3.9988*X1+7.2084*X2 &" J"& YPOS+3.9988*Y1+7.2084*Y2
      Code GM&" X" & XPOS+5.2593*X1+8.7627*X2 &" Y" & YPOS+5.2593*Y1+8.7627*Y2 &" I"& XPOS+4.9834*X1+7.9253*X2 &" J"& YPOS+4.9834*Y1+7.9253*Y2
      Code GM&" X" & XPOS+4.5848*X1+8.8694*X2 &" Y" & YPOS+4.5848*Y1+8.8694*Y2 &" I"& XPOS+4.5933*X1+6.7397*X2 &" J"& YPOS+4.5933*Y1+6.7397*Y2
      Code "G01 X" & XPOS+1.2325*X1+8.856*X2 &" Y" & YPOS+1.2325*Y1+8.856*Y2
      Code "G01 X" & XPOS+1.2325*X1+5.5226*X2 &" Y" & YPOS+1.2325*Y1+5.5226*Y2
      Largo=7.6197
    Case 22   'S
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.1444*X2 &" Y" & YPOS+3.1444*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.1511*X1+3.1444*X2 &" Y" & YPOS+1.1511*Y1+3.1444*Y2
      Code GM&" X" & XPOS+2.0566*X1+1.5703*X2 &" Y" & YPOS+2.0566*Y1+1.5703*Y2 &" I"& XPOS+3.0872*X1+3.2104*X2 &" J"& YPOS+3.0872*Y1+3.2104*Y2
      Code GM&" X" & XPOS+3.5588*X1+1.108*X2 &" Y" & YPOS+3.5588*Y1+1.108*Y2 &" I"& XPOS+3.6681*X1+4.1353*X2 &" J"& YPOS+3.6681*Y1+4.1353*Y2
      Code GM&" X" & XPOS+5.5375*X1+1.8305*X2 &" Y" & YPOS+5.5375*Y1+1.8305*Y2 &" I"& XPOS+3.6596*X1+3.902*X2 &" J"& YPOS+3.6596*Y1+3.902*Y2
      Code GM&" X" & XPOS+6.018*X1+2.6314*X2 &" Y" & YPOS+6.018*Y1+2.6314*Y2 &" I"& XPOS+4.4555*X1+3.0235*X2 &" J"& YPOS+4.4555*Y1+3.0235*Y2
      Code GM&" X" & XPOS+5.8349*X1+3.7298*X2 &" Y" & YPOS+5.8349*Y1+3.7298*Y2 &" I"& XPOS+4.6679*X1+2.9704*X2 &" J"& YPOS+4.6679*Y1+2.9704*Y2
      Code GM&" X" & XPOS+4.6786*X1+4.5276*X2 &" Y" & YPOS+4.6786*Y1+4.5276*Y2 &" I"& XPOS+4.2866*X1+2.7238*X2 &" J"& YPOS+4.2866*Y1+2.7238*Y2
      Code "G01 X" & XPOS+2.7684*X1+4.9425*X2 &" Y" & YPOS+2.7684*Y1+4.9425*Y2
      Code GG&" X" & XPOS+1.7314*X1+5.2474*X2 &" Y" & YPOS+1.7314*Y1+5.2474*Y2 &" I"& XPOS+3.6011*X1+9.6895*X2 &" J"& YPOS+3.6011*Y1+9.6895*Y2
      Code GG&" X" & XPOS+0.6946*X1+6.1259*X2 &" Y" & YPOS+0.6946*Y1+6.1259*Y2 &" I"& XPOS+2.6099*X1+7.3344*X2 &" J"& YPOS+2.6099*Y1+7.3344*Y2
      Code GG&" X" & XPOS+0.809*X1+8.8018*X2 &" Y" & YPOS+0.809*Y1+8.8018*Y2 &" I"& XPOS+2.683*X1+7.3809*X2 &" J"& YPOS+2.683*Y1+7.3809*Y2
      Code GG&" X" & XPOS+2.4216*X1+9.8671*X2 &" Y" & YPOS+2.4216*Y1+9.8671*Y2 &" I"& XPOS+3.129*X1+7.0438*X2 &" J"& YPOS+3.129*Y1+7.0438*Y2
      Code GG&" X" & XPOS+5.403*X1+9.5666*X2 &" Y" & YPOS+5.403*Y1+9.5666*Y2 &" I"& XPOS+3.4954*X1+5.5801*X2 &" J"& YPOS+3.4954*Y1+5.5801*Y2
      Code GG&" X" & XPOS+6.7397*X1+7.5327*X2 &" Y" & YPOS+6.7397*Y1+7.5327*Y2 &" I"& XPOS+4.3865*X1+7.4426*X2 &" J"& YPOS+4.3865*Y1+7.4426*Y2
      Code "G01 X" & XPOS+5.7231*X1+7.5327*X2 &" Y" & YPOS+5.7231*Y1+7.5327*Y2
      Code GM&" X" & XPOS+5.474*X1+8.1789*X2 &" Y" & YPOS+5.474*Y1+8.1789*Y2 &" I"& XPOS+4.674*X1+7.4997*X2 &" J"& YPOS+4.674*Y1+7.4997*Y2
      Code GM&" X" & XPOS+4.8378*X1+8.6804*X2 &" Y" & YPOS+4.8378*Y1+8.6804*Y2 &" I"& XPOS+3.9128*X1+6.8539*X2 &" J"& YPOS+3.9128*Y1+6.8539*Y2
      Code GM&" X" & XPOS+2.5859*X1+8.8016*X2 &" Y" & YPOS+2.5859*Y1+8.8016*Y2 &" I"& XPOS+3.5742*X1+6.1844*X2 &" J"& YPOS+3.5742*Y1+6.1844*Y2
      Code GM&" X" & XPOS+1.8487*X1+8.3168*X2 &" Y" & YPOS+1.8487*Y1+8.3168*Y2 &" I"& XPOS+3.2977*X1+6.9166*X2 &" J"& YPOS+3.2977*Y1+6.9166*Y2
      Code GM&" X" & XPOS+1.5928*X1+6.8862*X2 &" Y" & YPOS+1.5928*Y1+6.8862*Y2 &" I"& XPOS+2.7856*X1+7.4118*X2 &" J"& YPOS+2.7856*Y1+7.4118*Y2
      Code GM&" X" & XPOS+2.1919*X1+6.2399*X2 &" Y" & YPOS+2.1919*Y1+6.2399*Y2 &" I"& XPOS+2.8265*X1+7.4282*X2 &" J"& YPOS+2.8265*Y1+7.4282*Y2
      Code GM&" X" & XPOS+2.7521*X1+6.028*X2 &" Y" & YPOS+2.7521*Y1+6.028*Y2 &" I"& XPOS+3.2906*X1+8.2979*X2 &" J"& YPOS+3.2906*Y1+8.2979*Y2
      Code "G01 X" & XPOS+4.9957*X1+5.4959*X2 &" Y" & YPOS+4.9957*Y1+5.4959*Y2
      Code GG&" X" & XPOS+5.9516*X1+5.1088*X2 &" Y" & YPOS+5.9516*Y1+5.1088*Y2 &" I"& XPOS+4.2094*X1+2.1809*X2 &" J"& YPOS+4.2094*Y1+2.1809*Y2
      Code GG&" X" & XPOS+6.7695*X1+4.311*X2 &" Y" & YPOS+6.7695*Y1+4.311*Y2 &" I"& XPOS+4.7038*X1+3.0118*X2 &" J"& YPOS+4.7038*Y1+3.0118*Y2
      Code GG&" X" & XPOS+6.9276*X1+1.9009*X2 &" Y" & YPOS+6.9276*Y1+1.9009*Y2 &" I"& XPOS+4.6221*X1+2.96*X2 &" J"& YPOS+4.6221*Y1+2.96*Y2
      Code GG&" X" & XPOS+4.2699*X1+0.0207*X2 &" Y" & YPOS+4.2699*Y1+0.0207*Y2 &" I"& XPOS+3.9741*X1+3.2569*X2 &" J"& YPOS+3.9741*Y1+3.2569*Y2
      Code GG&" X" & XPOS+1.7969*X1+0.3904*X2 &" Y" & YPOS+1.7969*Y1+0.3904*Y2 &" I"& XPOS+3.7903*X1+5.2677*X2 &" J"& YPOS+3.7903*Y1+5.2677*Y2
      Code GG&" X" & XPOS+0.5257*X1+1.4304*X2 &" Y" & YPOS+0.5257*Y1+1.4304*Y2 &" I"& XPOS+2.856*X1+2.9814*X2 &" J"& YPOS+2.856*Y1+2.9814*Y2
      Code GG&" X" & XPOS+-0.0014*X1+3.1431*X2 &" Y" & YPOS+-0.0014*Y1+3.1431*Y2 &" I"& XPOS+3.1449*X1+3.1734*X2 &" J"& YPOS+3.1449*Y1+3.1734*Y2
      Largo=6.9276
    Case 15   'T
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.2366*X1 &" Y" & YPOS+3.2366*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+3.2366*X1+8.7633*X2 &" Y" & YPOS+3.2366*Y1+8.7633*Y2
      Code "G01 X" & XPOS+8.7633*X2 &" Y" & YPOS+8.7633*Y2
      Code "G01 X" & XPOS+9.9999*X2 &" Y" & YPOS+9.9999*Y2
      Code "G01 X" & XPOS+7.7133*X1+9.9999*X2 &" Y" & YPOS+7.7133*Y1+9.9999*Y2
      Code "G01 X" & XPOS+7.7133*X1+8.7632*X2 &" Y" & YPOS+7.7133*Y1+8.7632*Y2
      Code "G01 X" & XPOS+4.4766*X1+8.7632*X2 &" Y" & YPOS+4.4766*Y1+8.7632*Y2
      Code "G01 X" & XPOS+4.4766*X1+-0.0001*X2 &" Y" & YPOS+4.4766*Y1+-0.0001*Y2
      Code "G01 X" & XPOS+3.2399*X1+-0.0001*X2 &" Y" & YPOS+3.2399*Y1+-0.0001*Y2
      Largo=7.7133
    Case 17   'U
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.0072*X1+9.9966*X2 &" Y" & YPOS+0.0072*Y1+9.9966*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.1872*X1+9.9966*X2 &" Y" & YPOS+1.1872*Y1+9.9966*Y2
      Code "G01 X" & XPOS+1.1772*X1+3.566*X2 &" Y" & YPOS+1.1772*Y1+3.566*Y2
      Code GM&" X" & XPOS+1.3605*X1+2.6092*X2 &" Y" & YPOS+1.3605*Y1+2.6092*Y2 &" I"& XPOS+3.7442*X1+3.563*X2 &" J"& YPOS+3.7442*Y1+3.563*Y2
      Code GM&" X" & XPOS+1.9472*X1+1.7924*X2 &" Y" & YPOS+1.9472*Y1+1.7924*Y2 &" I"& XPOS+3.3032*X1+3.3852*X2 &" J"& YPOS+3.3032*Y1+3.3852*Y2
      Code GM&" X" & XPOS+5.3274*X1+1.6157*X2 &" Y" & YPOS+5.3274*Y1+1.6157*Y2 &" I"& XPOS+3.7528*X1+3.9134*X2 &" J"& YPOS+3.7528*Y1+3.9134*Y2
      Code GM&" X" & XPOS+5.9674*X1+2.3791*X2 &" Y" & YPOS+5.9674*Y1+2.3791*Y2 &" I"& XPOS+4.2808*X1+3.1427*X2 &" J"& YPOS+4.2808*Y1+3.1427*Y2
      Code GM&" X" & XPOS+6.184*X1+3.3836*X2 &" Y" & YPOS+6.184*Y1+3.3836*Y2 &" I"& XPOS+3.7525*X1+3.3821*X2 &" J"& YPOS+3.7525*Y1+3.3821*Y2
      Code "G01 X" & XPOS+6.184*X1+9.9963*X2 &" Y" & YPOS+6.184*Y1+9.9963*Y2
      Code "G01 X" & XPOS+7.3641*X1+9.9963*X2 &" Y" & YPOS+7.3641*Y1+9.9963*Y2
      Code "G01 X" & XPOS+7.3641*X1+3.6391*X2 &" Y" & YPOS+7.3641*Y1+3.6391*Y2
      Code GG&" X" & XPOS+7.124*X1+2.1123*X2 &" Y" & YPOS+7.124*Y1+2.1123*Y2 &" I"& XPOS+2.388*X1+3.6391*X2 &" J"& YPOS+2.388*Y1+3.6391*Y2
      Code GG&" X" & XPOS+6.3772*X1+0.9822*X2 &" Y" & YPOS+6.3772*Y1+0.9822*Y2 &" I"& XPOS+4.7251*X1+2.8853*X2 &" J"& YPOS+4.7251*Y1+2.8853*Y2
      Code GG&" X" & XPOS+1.1634*X1+0.9288*X2 &" Y" & YPOS+1.1634*Y1+0.9288*Y2 &" I"& XPOS+3.7389*X1+4.0212*X2 &" J"& YPOS+3.7389*Y1+4.0212*Y2
      Code GG&" X" & XPOS+0.2633*X1+2.1622*X2 &" Y" & YPOS+0.2633*Y1+2.1622*Y2 &" I"& XPOS+3.1694*X1+3.3378*X2 &" J"& YPOS+3.1694*Y1+3.3378*Y2
      Code GG&" X" & XPOS+0.0032*X1+3.5522*X2 &" Y" & YPOS+0.0032*Y1+3.5522*Y2 &" I"& XPOS+3.5713*X1+3.5002*X2 &" J"& YPOS+3.5713*Y1+3.5002*Y2
      Code "G01 X" & XPOS+0.0032*X1+9.9994*X2 &" Y" & YPOS+0.0032*Y1+9.9994*Y2
      Largo=7.3641
    Case 34   'V
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.3333*X1+10*X2 &" Y" & YPOS+1.3333*Y1+10*Y2
      Code "G01 X" & XPOS+4.2866*X1+1.4299*X2 &" Y" & YPOS+4.2866*Y1+1.4299*Y2
      Code "G01 X" & XPOS+7.2399*X1+9.9999*X2 &" Y" & YPOS+7.2399*Y1+9.9999*Y2
      Code "G01 X" & XPOS+8.5732*X1+9.9999*X2 &" Y" & YPOS+8.5732*Y1+9.9999*Y2
      Code "G01 X" & XPOS+5.0498*X1 &" Y" & YPOS+5.0498*Y1
      Code "G01 X" & XPOS+3.5264*X1 &" Y" & YPOS+3.5264*Y1
      Code "G01 X" & XPOS+0.003*X1+10*X2 &" Y" & YPOS+0.003*Y1+10*Y2
      Largo=8.5732
    Case 12   'W
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.0066*X1+10*X2 &" Y" & YPOS+0.0066*Y1+10*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.2432*X1+10*X2 &" Y" & YPOS+1.2432*Y1+10*Y2
      Code "G01 X" & XPOS+3.4331*X1+1.9033*X2 &" Y" & YPOS+3.4331*Y1+1.9033*Y2
      Code "G01 X" & XPOS+5.623*X1+8.4666*X2 &" Y" & YPOS+5.623*Y1+8.4666*Y2
      Code "G01 X" & XPOS+6.9563*X1+8.4666*X2 &" Y" & YPOS+6.9563*Y1+8.4666*Y2
      Code "G01 X" & XPOS+9.1462*X1+1.9032*X2 &" Y" & YPOS+9.1462*Y1+1.9032*Y2
      Code "G01 X" & XPOS+11.3362*X1+9.9998*X2 &" Y" & YPOS+11.3362*Y1+9.9998*Y2
      Code "G01 X" & XPOS+12.5728*X1+9.9998*X2 &" Y" & YPOS+12.5728*Y1+9.9998*Y2
      Code "G01 X" & XPOS+9.8094*X1+-0.0001*X2 &" Y" & YPOS+9.8094*Y1+-0.0001*Y2
      Code "G01 X" & XPOS+8.476*X1+-0.0001*X2 &" Y" & YPOS+8.476*Y1+-0.0001*Y2
      Code "G01 X" & XPOS+6.286*X1+7.0698*X2 &" Y" & YPOS+6.286*Y1+7.0698*Y2
      Code "G01 X" & XPOS+4.096*X1+-0.0001*X2 &" Y" & YPOS+4.096*Y1+-0.0001*Y2
      Code "G01 X" & XPOS+2.7626*X1+-0.0001*X2 &" Y" & YPOS+2.7626*Y1+-0.0001*Y2
      Code "G01 X" & XPOS+-0.0007*X1+9.9999*X2 &" Y" & YPOS+-0.0007*Y1+9.9999*Y2
      Largo=12.5728
    Case 32   'X
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+3.4299*X1+5.1433*X2 &" Y" & YPOS+3.4299*Y1+5.1433*Y2
      Code "G01 X" & XPOS+0.2865*X1+9.9999*X2 &" Y" & YPOS+0.2865*Y1+9.9999*Y2
      Code "G01 X" & XPOS+1.8098*X1+9.9999*X2 &" Y" & YPOS+1.8098*Y1+9.9999*Y2
      Code "G01 X" & XPOS+4.1897*X1+6.2865*X2 &" Y" & YPOS+4.1897*Y1+6.2865*Y2
      Code "G01 X" & XPOS+6.5696*X1+9.9998*X2 &" Y" & YPOS+6.5696*Y1+9.9998*Y2
      Code "G01 X" & XPOS+8.0929*X1+9.9998*X2 &" Y" & YPOS+8.0929*Y1+9.9998*Y2
      Code "G01 X" & XPOS+4.9495*X1+5.1431*X2 &" Y" & YPOS+4.9495*Y1+5.1431*Y2
      Code "G01 X" & XPOS+8.3794*X1+-0.0002*X2 &" Y" & YPOS+8.3794*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+6.856*X1+-0.0002*X2 &" Y" & YPOS+6.856*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+4.1893*X1+4.0964*X2 &" Y" & YPOS+4.1893*Y1+4.0964*Y2
      Code "G01 X" & XPOS+1.5226*X1+-0.0002*X2 &" Y" & YPOS+1.5226*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+-0.0007*X1+-0.0002*X2 &" Y" & YPOS+-0.0007*Y1+-0.0002*Y2
      Largo=8.3794
    Case 16   'Y
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.7133*X1 &" Y" & YPOS+3.7133*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+3.7133*X1+4.19*X2 &" Y" & YPOS+3.7133*Y1+4.19*Y2
      Code "G01 X" & XPOS+9.9999*X2 &" Y" & YPOS+9.9999*Y2
      Code "G01 X" & XPOS+1.4299*X1+9.9999*X2 &" Y" & YPOS+1.4299*Y1+9.9999*Y2
      Code "G01 X" & XPOS+4.3832*X1+5.3332*X2 &" Y" & YPOS+4.3832*Y1+5.3332*Y2
      Code "G01 X" & XPOS+7.2398*X1+9.9998*X2 &" Y" & YPOS+7.2398*Y1+9.9998*Y2
      Code "G01 X" & XPOS+8.5731*X1+9.9998*X2 &" Y" & YPOS+8.5731*Y1+9.9998*Y2
      Code "G01 X" & XPOS+4.9531*X1+4.1898*X2 &" Y" & YPOS+4.9531*Y1+4.1898*Y2
      Code "G01 X" & XPOS+4.9531*X1+-0.0002*X2 &" Y" & YPOS+4.9531*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+3.7164*X1+-0.0002*X2 &" Y" & YPOS+3.7164*Y1+-0.0002*Y2
      Largo=8.5731
    Case 31   'Z
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.62*X1 &" Y" & YPOS+7.62*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS &" Y" & YPOS
      Code "G01 X" & XPOS+1.1433*X2 &" Y" & YPOS+1.1433*Y2
      Code "G01 X" & XPOS+6.0966*X1+8.7633*X2 &" Y" & YPOS+6.0966*Y1+8.7633*Y2
      Code "G01 X" & XPOS+0.3832*X1+8.7633*X2 &" Y" & YPOS+0.3832*Y1+8.7633*Y2
      Code "G01 X" & XPOS+0.3832*X1+9.9999*X2 &" Y" & YPOS+0.3832*Y1+9.9999*Y2
      Code "G01 X" & XPOS+7.6198*X1+9.9999*X2 &" Y" & YPOS+7.6198*Y1+9.9999*Y2
      Code "G01 X" & XPOS+7.6198*X1+8.6665*X2 &" Y" & YPOS+7.6198*Y1+8.6665*Y2
      Code "G01 X" & XPOS+1.7164*X1+1.2364*X2 &" Y" & YPOS+1.7164*Y1+1.2364*Y2
      Code "G01 X" & XPOS+7.6197*X1+1.2364*X2 &" Y" & YPOS+7.6197*Y1+1.2364*Y2
      Code "G01 X" & XPOS+7.6197*X1+-0.0002*X2 &" Y" & YPOS+7.6197*Y1+-0.0002*Y2
      Largo=7.62
    Case 51   'a
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.5167*X1+0.0936*X2 &" Y" & YPOS+6.5167*Y1+0.0936*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+5.5336*X1+0.0367*X2 &" Y" & YPOS+5.5336*Y1+0.0367*Y2 &" I"& XPOS+5.5771*X1+7.8106*X2 &" J"& YPOS+5.5771*Y1+7.8106*Y2
      Code GG&" X" & XPOS+4.9818*X1+0.3376*X2 &" Y" & YPOS+4.9818*Y1+0.3376*Y2 &" I"& XPOS+5.5373*X1+0.6987*X2 &" J"& YPOS+5.5373*Y1+0.6987*Y2
      Code GG&" X" & XPOS+4.7644*X1+1.1066*X2 &" Y" & YPOS+4.7644*Y1+1.1066*Y2 &" I"& XPOS+6.1065*X1+1.0706*X2 &" J"& YPOS+6.1065*Y1+1.0706*Y2
      Code GG&" X" & XPOS+4.2093*X1+0.6451*X2 &" Y" & YPOS+4.2093*Y1+0.6451*Y2 &" I"& XPOS+2.0734*X1+3.7786*X2 &" J"& YPOS+2.0734*Y1+3.7786*Y2
      Code GG&" X" & XPOS+3.5639*X1+0.2772*X2 &" Y" & YPOS+3.5639*Y1+0.2772*Y2 &" I"& XPOS+1.5987*X1+4.4751*X2 &" J"& YPOS+1.5987*Y1+4.4751*Y2
      Code GG&" X" & XPOS+2.641*X1+-0.0003*X2 &" Y" & YPOS+2.641*Y1+-0.0003*Y2 &" I"& XPOS+2.1568*X1+3.2822*X2 &" J"& YPOS+2.1568*Y1+3.2822*Y2
      Code GG&" X" & XPOS+1.3101*X1+0.1133*X2 &" Y" & YPOS+1.3101*Y1+0.1133*Y2 &" I"& XPOS+2.2165*X1+2.8777*X2 &" J"& YPOS+2.2165*Y1+2.8777*Y2
      Code GG&" X" & XPOS+0.5811*X1+0.5747*X2 &" Y" & YPOS+0.5811*Y1+0.5747*Y2 &" I"& XPOS+1.8586*X1+1.7863*X2 &" J"& YPOS+1.8586*Y1+1.7863*Y2
      Code GG&" X" & XPOS+0.0561*X1+1.5678*X2 &" Y" & YPOS+0.0561*Y1+1.5678*Y2 &" I"& XPOS+2.0942*X1+2.0097*X2 &" J"& YPOS+2.0942*Y1+2.0097*Y2
      Code GG&" X" & XPOS+0.0561*X1+2.5843*X2 &" Y" & YPOS+0.0561*Y1+2.5843*Y2 &" I"& XPOS+2.3992*X1+2.0758*X2 &" J"& YPOS+2.3992*Y1+2.0758*Y2
      Code GG&" X" & XPOS+0.5108*X1+3.4035*X2 &" Y" & YPOS+0.5108*Y1+3.4035*Y2 &" I"& XPOS+1.6404*X1+2.2413*X2 &" J"& YPOS+1.6404*Y1+2.2413*Y2
      Code GG&" X" & XPOS+1.6677*X1+4.1157*X2 &" Y" & YPOS+1.6677*Y1+4.1157*Y2 &" I"& XPOS+2.6889*X1+1.1615*X2 &" J"& YPOS+2.6889*Y1+1.1615*Y2
      Code GG&" X" & XPOS+3.6338*X1+4.4534*X2 &" Y" & YPOS+3.6338*Y1+4.4534*Y2 &" I"& XPOS+3.6795*X1-1.7043*X2 &" J"& YPOS+3.6795*Y1-1.7043*Y2
      Code GM&" X" & XPOS+4.2256*X1+4.5804*X2 &" Y" & YPOS+4.2256*Y1+4.5804*Y2 &" I"& XPOS+3.6227*X1+5.9464*X2 &" J"& YPOS+3.6227*Y1+5.9464*Y2
      Code GM&" X" & XPOS+4.6703*X1+5.0786*X2 &" Y" & YPOS+4.6703*Y1+5.0786*Y2 &" I"& XPOS+3.8998*X1+5.3184*X2 &" J"& YPOS+3.8998*Y1+5.3184*Y2
      Code GM&" X" & XPOS+4.6168*X1+5.8242*X2 &" Y" & YPOS+4.6168*Y1+5.8242*Y2 &" I"& XPOS+3.6928*X1+5.3826*X2 &" J"& YPOS+3.6928*Y1+5.3826*Y2
      Code GM&" X" & XPOS+4.1018*X1+6.3592*X2 &" Y" & YPOS+4.1018*Y1+6.3592*Y2 &" I"& XPOS+3.5545*X1+5.3172*X2 &" J"& YPOS+3.5545*Y1+5.3172*Y2
      Code GM&" X" & XPOS+2.694*X1+6.6099*X2 &" Y" & YPOS+2.694*Y1+6.6099*Y2 &" I"& XPOS+3.0028*X1+4.2672*X2 &" J"& YPOS+3.0028*Y1+4.2672*Y2
      Code GM&" X" & XPOS+1.8446*X1+6.2655*X2 &" Y" & YPOS+1.8446*Y1+6.2655*Y2 &" I"& XPOS+2.9321*X1+4.8039*X2 &" J"& YPOS+2.9321*Y1+4.8039*Y2
      Code GM&" X" & XPOS+1.4567*X1+5.8074*X2 &" Y" & YPOS+1.4567*Y1+5.8074*Y2 &" I"& XPOS+2.6343*X1+5.2045*X2 &" J"& YPOS+2.6343*Y1+5.2045*Y2
      Code GM&" X" & XPOS+1.3497*X1+5.1754*X2 &" Y" & YPOS+1.3497*Y1+5.1754*Y2 &" I"& XPOS+2.403*X1+5.3224*X2 &" J"& YPOS+2.403*Y1+5.3224*Y2
      Code "G01 X" & XPOS+0.3332*X1+5.1754*X2 &" Y" & YPOS+0.3332*Y1+5.1754*Y2
      Code GG&" X" & XPOS+0.4268*X1+6.0046*X2 &" Y" & YPOS+0.4268*Y1+6.0046*Y2 &" I"& XPOS+2.4328*X1+5.3574*X2 &" J"& YPOS+2.4328*Y1+5.3574*Y2
      Code GG&" X" & XPOS+1.0387*X1+6.894*X2 &" Y" & YPOS+1.0387*Y1+6.894*Y2 &" I"& XPOS+2.2181*X1+5.4276*X2 &" J"& YPOS+2.2181*Y1+5.4276*Y2
      Code GG&" X" & XPOS+2.1154*X1+7.3755*X2 &" Y" & YPOS+2.1154*Y1+7.3755*Y2 &" I"& XPOS+2.4939*X1+5.085*X2 &" J"& YPOS+2.4939*Y1+5.085*Y2
      Code GG&" X" & XPOS+4.4292*X1+7.2384*X2 &" Y" & YPOS+4.4292*Y1+7.2384*Y2 &" I"& XPOS+2.97*X1+2.2035*X2 &" J"& YPOS+2.97*Y1+2.2035*Y2
      Code GG&" X" & XPOS+5.2316*X1+6.827*X2 &" Y" & YPOS+5.2316*Y1+6.827*Y2 &" I"& XPOS+3.7699*X1+4.9644*X2 &" J"& YPOS+3.7699*Y1+4.9644*Y2
      Code GG&" X" & XPOS+5.5927*X1+6.3789*X2 &" Y" & YPOS+5.5927*Y1+6.3789*Y2 &" I"& XPOS+4.4433*X1+5.823*X2 &" J"& YPOS+4.4433*Y1+5.823*Y2
      Code GG&" X" & XPOS+5.7767*X1+5.5665*X2 &" Y" & YPOS+5.7767*Y1+5.5665*Y2 &" I"& XPOS+3.9366*X1+5.5769*X2 &" J"& YPOS+3.9366*Y1+5.5769*Y2
      Code "G01 X" & XPOS+5.7531*X1+1.2428*X2 &" Y" & YPOS+5.7531*Y1+1.2428*Y2
      Code GM&" X" & XPOS+5.9838*X1+0.9786*X2 &" Y" & YPOS+5.9838*Y1+0.9786*Y2 &" I"& XPOS+6.018*X1+1.2418*X2 &" J"& YPOS+6.018*Y1+1.2418*Y2
      Code GM&" X" & XPOS+6.5154*X1+1.0254*X2 &" Y" & YPOS+6.5154*Y1+1.0254*Y2 &" I"& XPOS+6.1436*X1+2.2056*X2 &" J"& YPOS+6.1436*Y1+2.2056*Y2
      Code "G01 X" & XPOS+6.5154*X1+0.1025*X2 &" Y" & YPOS+6.5154*Y1+0.1025*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.6696*X1+2.1321*X2 &" Y" & YPOS+4.6696*Y1+2.1321*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+4.6696*X1+3.8875*X2 &" Y" & YPOS+4.6696*Y1+3.8875*Y2
      Code GG&" X" & XPOS+3.5327*X1+3.6434*X2 &" Y" & YPOS+3.5327*Y1+3.6434*Y2 &" I"& XPOS+3.3556*X1+7.2375*X2 &" J"& YPOS+3.3556*Y1+7.2375*Y2
      Code GM&" X" & XPOS+1.9845*X1+3.3758*X2 &" Y" & YPOS+1.9845*Y1+3.3758*Y2 &" I"& XPOS+3.8505*X1-2.8086*X2 &" J"& YPOS+3.8505*Y1-2.8086*Y2
      Code GM&" X" & XPOS+1.1853*X1+2.824*X2 &" Y" & YPOS+1.1853*Y1+2.824*Y2 &" I"& XPOS+2.4424*X1+1.8578*X2 &" J"& YPOS+2.4424*Y1+1.8578*Y2
      Code GM&" X" & XPOS+0.9177*X1+2.1652*X2 &" Y" & YPOS+0.9177*Y1+2.1652*Y2 &" I"& XPOS+2.2435*X1+2.011*X2 &" J"& YPOS+2.2435*Y1+2.011*Y2
      Code GM&" X" & XPOS+1.2554*X1+1.1687*X2 &" Y" & YPOS+1.2554*Y1+1.1687*Y2 &" I"& XPOS+2.1367*X1+2.0232*X2 &" J"& YPOS+2.1367*Y1+2.0232*Y2
      Code GM&" X" & XPOS+1.8773*X1+0.8677*X2 &" Y" & YPOS+1.8773*Y1+0.8677*Y2 &" I"& XPOS+1.978*X1+1.8687*X2 &" J"& YPOS+1.978*Y1+1.8687*Y2
      Code GM&" X" & XPOS+2.8369*X1+0.9747*X2 &" Y" & YPOS+2.8369*Y1+0.9747*Y2 &" I"& XPOS+2.1077*X1+3.1577*X2 &" J"& YPOS+2.1077*Y1+3.1577*Y2
      Code GM&" X" & XPOS+3.9938*X1+1.5598*X2 &" Y" & YPOS+3.9938*Y1+1.5598*Y2 &" I"& XPOS+1.4246*X1+5.2027*X2 &" J"& YPOS+1.4246*Y1+5.2027*Y2
      Code GM&" X" & XPOS+4.6692*X1+2.1282*X2 &" Y" & YPOS+4.6692*Y1+2.1282*Y2 &" I"& XPOS+1.0107*X1+5.7898*X2 &" J"& YPOS+1.0107*Y1+5.7898*Y2
      Largo=6.5167
    Case 65   'b
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+-0.0033*X2 &" Y" & YPOS+-0.0033*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+1.1537*X1+10*X2 &" Y" & YPOS+1.1537*Y1+10*Y2
      Code "G01 X" & XPOS+1.1537*X1+6.3454*X2 &" Y" & YPOS+1.1537*Y1+6.3454*Y2
      Code GG&" X" & XPOS+2.4741*X1+7.3757*X2 &" Y" & YPOS+2.4741*Y1+7.3757*Y2 &" I"& XPOS+3.9271*X1+4.1524*X2 &" J"& YPOS+3.9271*Y1+4.1524*Y2
      Code GG&" X" & XPOS+4.2713*X1+7.5857*X2 &" Y" & YPOS+4.2713*Y1+7.5857*Y2 &" I"& XPOS+3.7039*X1+4.6477*X2 &" J"& YPOS+3.7039*Y1+4.6477*Y2
      Code GG&" X" & XPOS+6.0218*X1+6.5119*X2 &" Y" & YPOS+6.0218*Y1+6.5119*Y2 &" I"& XPOS+3.7177*X1+4.7197*X2 &" J"& YPOS+3.7177*Y1+4.7197*Y2
      Code GG&" X" & XPOS+6.6286*X1+1.5869*X2 &" Y" & YPOS+6.6286*Y1+1.5869*Y2 &" I"& XPOS+2.2042*X1+3.5419*X2 &" J"& YPOS+2.2042*Y1+3.5419*Y2
      Code GG&" X" & XPOS+5.3215*X1+0.163*X2 &" Y" & YPOS+5.3215*Y1+0.163*Y2 &" I"& XPOS+3.8738*X1+2.8039*X2 &" J"& YPOS+3.8738*Y1+2.8039*Y2
      Code GG&" X" & XPOS+3.7809*X1+-0.2104*X2 &" Y" & YPOS+3.7809*Y1+-0.2104*Y2 &" I"& XPOS+3.8594*X1+2.83*X2 &" J"& YPOS+3.8594*Y1+2.83*Y2
      Code GG&" X" & XPOS+2.2637*X1+0.1397*X2 &" Y" & YPOS+2.2637*Y1+0.1397*Y2 &" I"& XPOS+3.8814*X1+3.6866*X2 &" J"& YPOS+3.8814*Y1+3.6866*Y2
      Code GG&" X" & XPOS+1.1533*X1+0.9599*X2 &" Y" & YPOS+1.1533*Y1+0.9599*Y2 &" I"& XPOS+3.6473*X1+3.1737*X2 &" J"& YPOS+3.6473*Y1+3.1737*Y2
      Code "G01 X" & XPOS+1.1533*X1+-0.0004*X2 &" Y" & YPOS+1.1533*Y1+-0.0004*Y2
      Code "G01 X" & XPOS+-0.0004*X1+-0.0004*X2 &" Y" & YPOS+-0.0004*Y1+-0.0004*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.3803*X1+0.9465*X2 &" Y" & YPOS+2.3803*Y1+0.9465*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+4.0375*X1+0.8298*X2 &" Y" & YPOS+4.0375*Y1+0.8298*Y2 &" I"& XPOS+3.3612*X1+3.0515*X2 &" J"& YPOS+3.3612*Y1+3.0515*Y2
      Code GM&" X" & XPOS+5.4379*X1+2.2536*X2 &" Y" & YPOS+5.4379*Y1+2.2536*Y2 &" I"& XPOS+3.429*X1+2.8288*X2 &" J"& YPOS+3.429*Y1+2.8288*Y2
      Code GM&" X" & XPOS+5.2278*X1+5.2879*X2 &" Y" & YPOS+5.2278*Y1+5.2879*Y2 &" I"& XPOS+1.151*X1+3.4806*X2 &" J"& YPOS+1.151*Y1+3.4806*Y2
      Code GM&" X" & XPOS+4.1541*X1+6.3382*X2 &" Y" & YPOS+4.1541*Y1+6.3382*Y2 &" I"& XPOS+3.3731*X1+4.4669*X2 &" J"& YPOS+3.3731*Y1+4.4669*Y2
      Code GM&" X" & XPOS+1.9833*X1+5.9647*X2 &" Y" & YPOS+1.9833*Y1+5.9647*Y2 &" I"& XPOS+3.3629*X1+4.4422*X2 &" J"& YPOS+3.3629*Y1+4.4422*Y2
      Code GM&" X" & XPOS+1.283*X1+4.9143*X2 &" Y" & YPOS+1.283*Y1+4.9143*Y2 &" I"& XPOS+3.7171*X1+4.0507*X2 &" J"& YPOS+3.7171*Y1+4.0507*Y2
      Code GM&" X" & XPOS+1.0729*X1+3.5838*X2 &" Y" & YPOS+1.0729*Y1+3.5838*Y2 &" I"& XPOS+4.7419*X1+3.6873*X2 &" J"& YPOS+4.7419*Y1+3.6873*Y2
      Code GM&" X" & XPOS+1.3296*X1+2.0666*X2 &" Y" & YPOS+1.3296*Y1+2.0666*Y2 &" I"& XPOS+6.5956*X1+3.7378*X2 &" J"& YPOS+6.5956*Y1+3.7378*Y2
      Code GM&" X" & XPOS+2.3799*X1+0.9462*X2 &" Y" & YPOS+2.3799*Y1+0.9462*Y2 &" I"& XPOS+3.027*X1+2.6046*X2 &" J"& YPOS+3.027*Y1+2.6046*Y2
      Largo=6.6286
    Case 63   'c
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.1148*X1+2.2812*X2 &" Y" & YPOS+6.1148*Y1+2.2812*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+5.5017*X1+0.757*X2 &" Y" & YPOS+5.5017*Y1+0.757*Y2 &" I"& XPOS+3.8852*X1+2.2922*X2 &" J"& YPOS+3.8852*Y1+2.2922*Y2
      Code GG&" X" & XPOS+3.9708*X1 &" Y" & YPOS+3.9708*Y1 &" I"& XPOS+3.705*X1+2.463*X2 &" J"& YPOS+3.705*Y1+2.463*Y2
      Code GG&" X" & XPOS+2.2791*X1+0.0536*X2 &" Y" & YPOS+2.2791*Y1+0.0536*Y2 &" I"& XPOS+3.3163*X1+6.066*X2 &" J"& YPOS+3.3163*Y1+6.066*Y2
      Code GG&" X" & XPOS+0.5706*X1+1.3131*X2 &" Y" & YPOS+0.5706*Y1+1.3131*Y2 &" I"& XPOS+2.6818*X1+2.3876*X2 &" J"& YPOS+2.6818*Y1+2.3876*Y2
      Code GG&" X" & XPOS+0.6074*X1+6.1*X2 &" Y" & YPOS+0.6074*Y1+6.1*Y2 &" I"& XPOS+5.2007*X1+3.6701*X2 &" J"& YPOS+5.2007*Y1+3.6701*Y2
      Code GG&" X" & XPOS+1.9574*X1+7.2523*X2 &" Y" & YPOS+1.9574*Y1+7.2523*Y2 &" I"& XPOS+2.7342*X1+4.976*X2 &" J"& YPOS+2.7342*Y1+4.976*Y2
      Code GG&" X" & XPOS+4.3156*X1+7.2523*X2 &" Y" & YPOS+4.3156*Y1+7.2523*Y2 &" I"& XPOS+3.1365*X1+3.7963*X2 &" J"& YPOS+3.1365*Y1+3.7963*Y2
      Code GG&" X" & XPOS+5.1966*X1+6.7498*X2 &" Y" & YPOS+5.1966*Y1+6.7498*Y2 &" I"& XPOS+3.4464*X1+4.7053*X2 &" J"& YPOS+3.4464*Y1+4.7053*Y2
      Code GG&" X" & XPOS+5.9905*X1+5.1217*X2 &" Y" & YPOS+5.9905*Y1+5.1217*Y2 &" I"& XPOS+3.7165*X1+5.0208*X2 &" J"& YPOS+3.7165*Y1+5.0208*Y2
      Code "G01 X" & XPOS+4.8649*X1+5.1217*X2 &" Y" & YPOS+4.8649*Y1+5.1217*Y2
      Code GM&" X" & XPOS+4.6304*X1+5.7481*X2 &" Y" & YPOS+4.6304*Y1+5.7481*Y2 &" I"& XPOS+3.682*X1+5.0367*X2 &" J"& YPOS+3.682*Y1+5.0367*Y2
      Code GM&" X" & XPOS+3.7828*X1+6.3443*X2 &" Y" & YPOS+3.7828*Y1+6.3443*Y2 &" I"& XPOS+3.2873*X1+4.7401*X2 &" J"& YPOS+3.2873*Y1+4.7401*Y2
      Code GM&" X" & XPOS+2.4127*X1+6.3342*X2 &" Y" & YPOS+2.4127*Y1+6.3342*Y2 &" I"& XPOS+3.1136*X1+4.1773*X2 &" J"& YPOS+3.1136*Y1+4.1773*Y2
      Code GM&" X" & XPOS+1.6355*X1+5.8082*X2 &" Y" & YPOS+1.6355*Y1+5.8082*Y2 &" I"& XPOS+2.9358*X1+4.7242*X2 &" J"& YPOS+2.9358*Y1+4.7242*Y2
      Code GM&" X" & XPOS+1.2*X1+4.7329*X2 &" Y" & YPOS+1.2*Y1+4.7329*Y2 &" I"& XPOS+3.0947*X1+4.5922*X2 &" J"& YPOS+3.0947*Y1+4.5922*Y2
      Code GM&" X" & XPOS+1.2066*X1+2.6962*X2 &" Y" & YPOS+1.2066*Y1+2.6962*Y2 &" I"& XPOS+14.2613*X1+3.7579*X2 &" J"& YPOS+14.2613*Y1+3.7579*Y2
      Code GM&" X" & XPOS+1.7258*X1+1.5271*X2 &" Y" & YPOS+1.7258*Y1+1.5271*Y2 &" I"& XPOS+3.1354*X1+2.8522*X2 &" J"& YPOS+3.1354*Y1+2.8522*Y2
      Code GM&" X" & XPOS+2.6235*X1+0.9944*X2 &" Y" & YPOS+2.6235*Y1+0.9944*Y2 &" I"& XPOS+3.0988*X1+2.8181*X2 &" J"& YPOS+3.0988*Y1+2.8181*Y2
      Code GM&" X" & XPOS+3.9232*X1+0.9508*X2 &" Y" & YPOS+3.9232*Y1+0.9508*Y2 &" I"& XPOS+3.3701*X1+3.8594*X2 &" J"& YPOS+3.3701*Y1+3.8594*Y2
      Code GM&" X" & XPOS+4.6166*X1+1.3125*X2 &" Y" & YPOS+4.6166*Y1+1.3125*Y2 &" I"& XPOS+3.6703*X1+2.2808*X2 &" J"& YPOS+3.6703*Y1+2.2808*Y2
      Code GM&" X" & XPOS+4.9114*X1+2.2772*X2 &" Y" & YPOS+4.9114*Y1+2.2772*Y2 &" I"& XPOS+3.8816*X1+2.0635*X2 &" J"& YPOS+3.8816*Y1+2.0635*Y2
      Code "G01 X" & XPOS+6.1173*X1+2.2772*X2 &" Y" & YPOS+6.1173*Y1+2.2772*Y2
      Largo=6.1173
    Case 53   'd
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.9485*X1 &" Y" & YPOS+6.9485*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+5.7947*X1 &" Y" & YPOS+5.7947*Y1
      Code "G01 X" & XPOS+5.7947*X1+0.9603*X2 &" Y" & YPOS+5.7947*Y1+0.9603*Y2
      Code GG&" X" & XPOS+4.5476*X1+-0.0733*X2 &" Y" & YPOS+4.5476*Y1+-0.0733*Y2 &" I"& XPOS+3.3603*X1+2.6273*X2 &" J"& YPOS+3.3603*Y1+2.6273*Y2
      Code GG&" X" & XPOS+3.1238*X1+-0.3533*X2 &" Y" & YPOS+3.1238*Y1+-0.3533*Y2 &" I"& XPOS+3.209*X1+2.9717*X2 &" J"& YPOS+3.209*Y1+2.9717*Y2
      Code GG&" X" & XPOS+1.8867*X1+-0.0498*X2 &" Y" & YPOS+1.8867*Y1+-0.0498*Y2 &" I"& XPOS+3.2003*X1+2.6317*X2 &" J"& YPOS+3.2003*Y1+2.6317*Y2
      Code GG&" X" & XPOS+0.6262*X1+1.1406*X2 &" Y" & YPOS+0.6262*Y1+1.1406*Y2 &" I"& XPOS+3.1709*X1+2.5722*X2 &" J"& YPOS+3.1709*Y1+2.5722*Y2
      Code GG&" X" & XPOS+0.3661*X1+5.392*X2 &" Y" & YPOS+0.3661*Y1+5.392*Y2 &" I"& XPOS+4.8806*X1+3.5336*X2 &" J"& YPOS+4.8806*Y1+3.5336*Y2
      Code GG&" X" & XPOS+1.6331*X1+6.9791*X2 &" Y" & YPOS+1.6331*Y1+6.9791*Y2 &" I"& XPOS+3.7247*X1+4.011*X2 &" J"& YPOS+3.7247*Y1+4.011*Y2
      Code GG&" X" & XPOS+3.1036*X1+7.5159*X2 &" Y" & YPOS+3.1036*Y1+7.5159*Y2 &" I"& XPOS+3.3627*X1+4.5241*X2 &" J"& YPOS+3.3627*Y1+4.5241*Y2
      Code GG&" X" & XPOS+4.6674*X1+7.2591*X2 &" Y" & YPOS+4.6674*Y1+7.2591*Y2 &" I"& XPOS+3.3809*X1+4.3149*X2 &" J"& YPOS+3.3809*Y1+4.3149*Y2
      Code GG&" X" & XPOS+5.7977*X1+6.3454*X2 &" Y" & YPOS+5.7977*Y1+6.3454*Y2 &" I"& XPOS+3.5684*X1+4.7441*X2 &" J"& YPOS+3.5684*Y1+4.7441*Y2
      Code "G01 X" & XPOS+5.7977*X1+9.9999*X2 &" Y" & YPOS+5.7977*Y1+9.9999*Y2
      Code "G01 X" & XPOS+6.9514*X1+9.9999*X2 &" Y" & YPOS+6.9514*Y1+9.9999*Y2
      Code "G01 X" & XPOS+6.9514*X1+-0.0034*X2 &" Y" & YPOS+6.9514*Y1+-0.0034*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.7143*X1+2.4741*X2 &" Y" & YPOS+5.7143*Y1+2.4741*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+5.7243*X1+5.0782*X2 &" Y" & YPOS+5.7243*Y1+5.0782*Y2 &" I"& XPOS-3.1255*X1+3.8101*X2 &" J"& YPOS-3.1255*Y1+3.8101*Y2
      Code GM&" X" & XPOS+5.0907*X1+6.0651*X2 &" Y" & YPOS+5.0907*Y1+6.0651*Y2 &" I"& XPOS+4.3267*X1+4.8782*X2 &" J"& YPOS+4.3267*Y1+4.8782*Y2
      Code GM&" X" & XPOS+3.3868*X1+6.4619*X2 &" Y" & YPOS+3.3868*Y1+6.4619*Y2 &" I"& XPOS+3.6831*X1+3.8781*X2 &" J"& YPOS+3.6831*Y1+3.8781*Y2
      Code GM&" X" & XPOS+2.6165*X1+6.1584*X2 &" Y" & YPOS+2.6165*Y1+6.1584*Y2 &" I"& XPOS+3.5695*X1+4.8689*X2 &" J"& YPOS+3.5695*Y1+4.8689*Y2
      Code GM&" X" & XPOS+2.0096*X1+5.3881*X2 &" Y" & YPOS+2.0096*Y1+5.3881*Y2 &" I"& XPOS+3.72*X1+4.6654*X2 &" J"& YPOS+3.72*Y1+4.6654*Y2
      Code GM&" X" & XPOS+1.8228*X1+2.1637*X2 &" Y" & YPOS+1.8228*Y1+2.1637*Y2 &" I"& XPOS+6.441*X1+3.5141*X2 &" J"& YPOS+6.441*Y1+3.5141*Y2
      Code GM&" X" & XPOS+2.4763*X1+1.23*X2 &" Y" & YPOS+2.4763*Y1+1.23*Y2 &" I"& XPOS+3.5292*X1+2.6617*X2 &" J"& YPOS+3.5292*Y1+2.6617*Y2
      Code GM&" X" & XPOS+3.4566*X1+0.8565*X2 &" Y" & YPOS+3.4566*Y1+0.8565*Y2 &" I"& XPOS+3.6415*X1+2.815*X2 &" J"& YPOS+3.6415*Y1+2.815*Y2
      Code GM&" X" & XPOS+4.6903*X1+1.0765*X2 &" Y" & YPOS+4.6903*Y1+1.0765*Y2 &" I"& XPOS+3.6768*X1+3.1895*X2 &" J"& YPOS+3.6768*Y1+3.1895*Y2
      Code GM&" X" & XPOS+5.2871*X1+1.5833*X2 &" Y" & YPOS+5.2871*Y1+1.5833*Y2 &" I"& XPOS+4.0238*X1+2.4655*X2 &" J"& YPOS+4.0238*Y1+2.4655*Y2
      Code GM&" X" & XPOS+5.7139*X1+2.4702*X2 &" Y" & YPOS+5.7139*Y1+2.4702*Y2 &" I"& XPOS+2.7777*X1+3.3363*X2 &" J"& YPOS+2.7777*Y1+3.3363*Y2
      Largo=6.9514
    Case 43   'e
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.6101*X1+1.7317*X2 &" Y" & YPOS+5.6101*Y1+1.7317*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+4.5704*X1+0.3755*X2 &" Y" & YPOS+4.5704*Y1+0.3755*Y2 &" I"& XPOS+3.6359*X1+2.1677*X2 &" J"& YPOS+3.6359*Y1+2.1677*Y2
      Code GG&" X" & XPOS+2.4451*X1+0.0456*X2 &" Y" & YPOS+2.4451*Y1+0.0456*Y2 &" I"& XPOS+3.0207*X1+3.3485*X2 &" J"& YPOS+3.0207*Y1+3.3485*Y2
      Code GG&" X" & XPOS+1.0263*X1+0.8465*X2 &" Y" & YPOS+1.0263*Y1+0.8465*Y2 &" I"& XPOS+2.8628*X1+2.4426*X2 &" J"& YPOS+2.8628*Y1+2.4426*Y2
      Code GG&" X" & XPOS+0.1353*X1+2.6112*X2 &" Y" & YPOS+0.1353*Y1+2.6112*Y2 &" I"& XPOS+4.0661*X1+3.4885*X2 &" J"& YPOS+4.0661*Y1+3.4885*Y2
      Code GG&" X" & XPOS+0.2052*X1+5.4268*X2 &" Y" & YPOS+0.2052*Y1+5.4268*Y2 &" I"& XPOS+5.8144*X1+3.8782*X2 &" J"& YPOS+5.8144*Y1+3.8782*Y2
      Code GG&" X" & XPOS+1.4547*X1+7.0461*X2 &" Y" & YPOS+1.4547*Y1+7.0461*Y2 &" I"& XPOS+2.8115*X1+4.7078*X2 &" J"& YPOS+2.8115*Y1+4.7078*Y2
      Code GG&" X" & XPOS+4.7267*X1+6.8895*X2 &" Y" & YPOS+4.7267*Y1+6.8895*Y2 &" I"& XPOS+2.9695*X1+4.4351*X2 &" J"& YPOS+2.9695*Y1+4.4351*Y2
      Code GG&" X" & XPOS+5.8162*X1+5.2701*X2 &" Y" & YPOS+5.8162*Y1+5.2701*Y2 &" I"& XPOS+3.1017*X1+4.6205*X2 &" J"& YPOS+3.1017*Y1+4.6205*Y2
      Code GG&" X" & XPOS+5.8695*X1+3.4308*X2 &" Y" & YPOS+5.8695*Y1+3.4308*Y2 &" I"& XPOS+1.4445*X1+4.2231*X2 &" J"& YPOS+1.4445*Y1+4.2231*Y2
      Code "G01 X" & XPOS+1.0846*X1+3.4308*X2 &" Y" & YPOS+1.0846*Y1+3.4308*Y2
      Code GM&" X" & XPOS+1.4544*X1+1.9813*X2 &" Y" & YPOS+1.4544*Y1+1.9813*Y2 &" I"& XPOS+4.0601*X1+3.4188*X2 &" J"& YPOS+4.0601*Y1+3.4188*Y2
      Code GM&" X" & XPOS+2.3873*X1+1.1349*X2 &" Y" & YPOS+2.3873*Y1+1.1349*Y2 &" I"& XPOS+3.1558*X1+2.9193*X2 &" J"& YPOS+3.1558*Y1+2.9193*Y2
      Code GM&" X" & XPOS+3.7946*X1+1.0522*X2 &" Y" & YPOS+3.7946*Y1+1.0522*Y2 &" I"& XPOS+3.2049*X1+3.0329*X2 &" J"& YPOS+3.2049*Y1+3.0329*Y2
      Code GM&" X" & XPOS+4.6412*X1+1.7158*X2 &" Y" & YPOS+4.6412*Y1+1.7158*Y2 &" I"& XPOS+3.3763*X1+2.4572*X2 &" J"& YPOS+3.3763*Y1+2.4572*Y2
      Code "G01 X" & XPOS+5.6092*X1+1.7313*X2 &" Y" & YPOS+5.6092*Y1+1.7313*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.8161*X1+4.4869*X2 &" Y" & YPOS+4.8161*Y1+4.4869*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+4.6628*X1+5.3465*X2 &" Y" & YPOS+4.6628*Y1+5.3465*Y2 &" I"& XPOS+2.4617*X1+4.5099*X2 &" J"& YPOS+2.4617*Y1+4.5099*Y2
      Code GM&" X" & XPOS+4.1496*X1+6.0262*X2 &" Y" & YPOS+4.1496*Y1+6.0262*Y2 &" I"& XPOS+3.2403*X1+4.8065*X2 &" J"& YPOS+3.2403*Y1+4.8065*Y2
      Code GM&" X" & XPOS+1.9837*X1+6.1328*X2 &" Y" & YPOS+1.9837*Y1+6.1328*Y2 &" I"& XPOS+2.9872*X1+4.4672*X2 &" J"& YPOS+2.9872*Y1+4.4672*Y2
      Code GM&" X" & XPOS+1.3339*X1+5.463*X2 &" Y" & YPOS+1.3339*Y1+5.463*Y2 &" I"& XPOS+2.9257*X1+4.5698*X2 &" J"& YPOS+2.9257*Y1+4.5698*Y2
      Code GM&" X" & XPOS+1.0873*X1+4.4867*X2 &" Y" & YPOS+1.0873*Y1+4.4867*Y2 &" I"& XPOS+3.0135*X1+4.52*X2 &" J"& YPOS+3.0135*Y1+4.52*Y2
      Code "G01 X" & XPOS+4.8158*X1+4.4867*X2 &" Y" & YPOS+4.8158*Y1+4.4867*Y2
      Largo=5.8695
    Case 54   'f
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.2566*X1 &" Y" & YPOS+1.2566*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.2566*X1+6.3866*X2 &" Y" & YPOS+1.2566*Y1+6.3866*Y2
      Code "G01 X" & XPOS+6.3866*X2 &" Y" & YPOS+6.3866*Y2
      Code "G01 X" & XPOS+7.4499*X2 &" Y" & YPOS+7.4499*Y2
      Code "G01 X" & XPOS+1.2566*X1+7.4499*X2 &" Y" & YPOS+1.2566*Y1+7.4499*Y2
      Code "G01 X" & XPOS+1.2566*X1+8.6946*X2 &" Y" & YPOS+1.2566*Y1+8.6946*Y2
      Code GG&" X" & XPOS+1.5398*X1+9.5948*X2 &" Y" & YPOS+1.5398*Y1+9.5948*Y2 &" I"& XPOS+2.8287*X1+8.6946*X2 &" J"& YPOS+2.8287*Y1+8.6946*Y2
      Code GG&" X" & XPOS+2.0136*X1+10.0686*X2 &" Y" & YPOS+2.0136*Y1+10.0686*Y2 &" I"& XPOS+3.1113*X1+8.4978*X2 &" J"& YPOS+3.1113*Y1+8.4978*Y2
      Code GG&" X" & XPOS+2.748*X1+10.3529*X2 &" Y" & YPOS+2.748*Y1+10.3529*Y2 &" I"& XPOS+2.9607*X1+8.7136*X2 &" J"& YPOS+2.9607*Y1+8.7136*Y2
      Code GG&" X" & XPOS+3.7697*X1+10.253*X2 &" Y" & YPOS+3.7697*Y1+10.253*Y2 &" I"& XPOS+3.042*X1+8.0859*X2 &" J"& YPOS+3.042*Y1+8.0859*Y2
      Code "G01 X" & XPOS+3.7697*X1+9.1896*X2 &" Y" & YPOS+3.7697*Y1+9.1896*Y2
      Code GG&" X" & XPOS+3.153*X1+9.2096*X2 &" Y" & YPOS+3.153*Y1+9.2096*Y2 &" I"& XPOS+3.7965*X1+19.5276*X2 &" J"& YPOS+3.7965*Y1+19.5276*Y2
      Code GM&" X" & XPOS+2.583*X1+8.9729*X2 &" Y" & YPOS+2.583*Y1+8.9729*Y2 &" I"& XPOS+3.1093*X1+8.5106*X2 &" J"& YPOS+3.1093*Y1+8.5106*Y2
      Code GM&" X" & XPOS+2.4129*X1+8.5221*X2 &" Y" & YPOS+2.4129*Y1+8.5221*Y2 &" I"& XPOS+3.0954*X1+8.5229*X2 &" J"& YPOS+3.0954*Y1+8.5229*Y2
      Code "G01 X" & XPOS+2.4129*X1+7.4495*X2 &" Y" & YPOS+2.4129*Y1+7.4495*Y2
      Code "G01 X" & XPOS+3.7662*X1+7.4495*X2 &" Y" & YPOS+3.7662*Y1+7.4495*Y2
      Code "G01 X" & XPOS+3.7662*X1+6.3861*X2 &" Y" & YPOS+3.7662*Y1+6.3861*Y2
      Code "G01 X" & XPOS+2.4128*X1+6.3861*X2 &" Y" & YPOS+2.4128*Y1+6.3861*Y2
      Code "G01 X" & XPOS+2.4128*X1+-0.0005*X2 &" Y" & YPOS+2.4128*Y1+-0.0005*Y2
      Code "G01 X" & XPOS+1.2528*X1+-0.0005*X2 &" Y" & YPOS+1.2528*Y1+-0.0005*Y2
      Largo=3.7697
    Case 55   'g
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.6621*X1+0.9794*X2 &" Y" & YPOS+5.6621*Y1+0.9794*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+4.4048*X1+0.1076*X2 &" Y" & YPOS+4.4048*Y1+0.1076*Y2 &" I"& XPOS+3.4034*X1+2.8944*X2 &" J"& YPOS+3.4034*Y1+2.8944*Y2
      Code GG&" X" & XPOS+2.6404*X1 &" Y" & YPOS+2.6404*Y1 &" I"& XPOS+3.3382*X1+3.0756*X2 &" J"& YPOS+3.3382*Y1+3.0756*Y2
      Code GG&" X" & XPOS+1.2155*X1+0.6971*X2 &" Y" & YPOS+1.2155*Y1+0.6971*Y2 &" I"& XPOS+3.4037*X1+3.364*X2 &" J"& YPOS+3.4037*Y1+3.364*Y2
      Code GG&" X" & XPOS+0.2508*X1+2.1151*X2 &" Y" & YPOS+0.2508*Y1+2.1151*Y2 &" I"& XPOS+3.1404*X1+3.0431*X2 &" J"& YPOS+3.1404*Y1+3.0431*Y2
      Code GG&" X" & XPOS+0.1639*X1+5.2687*X2 &" Y" & YPOS+0.1639*Y1+5.2687*Y2 &" I"& XPOS+5.6209*X1+3.8401*X2 &" J"& YPOS+5.6209*Y1+3.8401*Y2
      Code GG&" X" & XPOS+1.0738*X1+6.8142*X2 &" Y" & YPOS+1.0738*Y1+6.8142*Y2 &" I"& XPOS+3.3451*X1+4.4367*X2 &" J"& YPOS+3.3451*Y1+4.4367*Y2
      Code GG&" X" & XPOS+2.6193*X1+7.613*X2 &" Y" & YPOS+2.6193*Y1+7.613*Y2 &" I"& XPOS+3.2077*X1+4.5802*X2 &" J"& YPOS+3.2077*Y1+4.5802*Y2
      Code GG&" X" & XPOS+4.4045*X1+7.4497*X2 &" Y" & YPOS+4.4045*Y1+7.4497*Y2 &" I"& XPOS+3.231*X1+4.46*X2 &" J"& YPOS+3.231*Y1+4.46*Y2
      Code GG&" X" & XPOS+5.6617*X1+6.5814*X2 &" Y" & YPOS+5.6617*Y1+6.5814*Y2 &" I"& XPOS+3.1824*X1+4.3367*X2 &" J"& YPOS+3.1824*Y1+4.3367*Y2
      Code "G01 X" & XPOS+5.6617*X1+7.4497*X2 &" Y" & YPOS+5.6617*Y1+7.4497*Y2
      Code "G01 X" & XPOS+6.8217*X1+7.4497*X2 &" Y" & YPOS+6.8217*Y1+7.4497*Y2
      Code "G01 X" & XPOS+6.8217*X1+-0.3476*X2 &" Y" & YPOS+6.8217*Y1+-0.3476*Y2
      Code GG&" X" & XPOS+6.5681*X1+-1.5632*X2 &" Y" & YPOS+6.5681*Y1+-1.5632*Y2 &" I"& XPOS+3.7807*X1-0.3476*X2 &" J"& YPOS+3.7807*Y1-0.3476*Y2
      Code GG&" X" & XPOS+5.8005*X1+-2.4141*X2 &" Y" & YPOS+5.8005*Y1+-2.4141*Y2 &" I"& XPOS+4.912*X1-0.8412*X2 &" J"& YPOS+4.912*Y1-0.8412*Y2
      Code GG&" X" & XPOS+4.6474*X1+-2.8517*X2 &" Y" & YPOS+4.6474*Y1+-2.8517*Y2 &" I"& XPOS+3.7899*X1+1.1449*X2 &" J"& YPOS+3.7899*Y1+1.1449*Y2
      Code GG&" X" & XPOS+2.0668*X1+-2.8517*X2 &" Y" & YPOS+2.0668*Y1+-2.8517*Y2 &" I"& XPOS+3.3571*X1+3.1633*X2 &" J"& YPOS+3.3571*Y1+3.1633*Y2
      Code GG&" X" & XPOS+0.8303*X1+-2.1119*X2 &" Y" & YPOS+0.8303*Y1+-2.1119*Y2 &" I"& XPOS+2.536*X1-0.6647*X2 &" J"& YPOS+2.536*Y1-0.6647*Y2
      Code GG&" X" & XPOS+0.4169*X1+-0.7642*X2 &" Y" & YPOS+0.4169*Y1+-0.7642*Y2 &" I"& XPOS+2.1903*X1-0.9579*X2 &" J"& YPOS+2.1903*Y1-0.9579*Y2
      Code "G01 X" & XPOS+1.4102*X1+-0.7572*X2 &" Y" & YPOS+1.4102*Y1+-0.7572*Y2
      Code GM&" X" & XPOS+1.6776*X1+-1.4796*X2 &" Y" & YPOS+1.6776*Y1+-1.4796*Y2 &" I"& XPOS+2.2206*X1-0.8672*X2 &" J"& YPOS+2.2206*Y1-0.8672*Y2
      Code GM&" X" & XPOS+2.5285*X1+-1.8651*X2 &" Y" & YPOS+2.5285*Y1+-1.8651*Y2 &" I"& XPOS+2.7249*X1-0.3006*X2 &" J"& YPOS+2.7249*Y1-0.3006*Y2
      Code GM&" X" & XPOS+4.1869*X1+-1.8291*X2 &" Y" & YPOS+4.1869*Y1+-1.8291*Y2 &" I"& XPOS+3.236*X1+3.7729*X2 &" J"& YPOS+3.236*Y1+3.7729*Y2
      Code GM&" X" & XPOS+5.1379*X1+-1.3535*X2 &" Y" & YPOS+5.1379*Y1+-1.3535*Y2 &" I"& XPOS+3.8814*X1-0.0301*X2 &" J"& YPOS+3.8814*Y1-0.0301*Y2
      Code GM&" X" & XPOS+5.5837*X1+-0.551*X2 &" Y" & YPOS+5.5837*Y1+-0.551*Y2 &" I"& XPOS+4.0842*X1-0.2435*X2 &" J"& YPOS+4.0842*Y1-0.2435*Y2
      Code GM&" X" & XPOS+5.6611*X1+0.9795*X2 &" Y" & YPOS+5.6611*Y1+0.9795*Y2 &" I"& XPOS+0.6256*X1+0.467*X2 &" J"& YPOS+0.6256*Y1+0.467*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.2755*X1+1.945*X2 &" Y" & YPOS+5.2755*Y1+1.945*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+5.5538*X1+2.9559*X2 &" Y" & YPOS+5.5538*Y1+2.9559*Y2 &" I"& XPOS+2.0791*X1+3.368*X2 &" J"& YPOS+2.0791*Y1+3.368*Y2
      Code GM&" X" & XPOS+5.1674*X1+5.6308*X2 &" Y" & YPOS+5.1674*Y1+5.6308*Y2 &" I"& XPOS+0.3671*X1+3.5719*X2 &" J"& YPOS+0.3671*Y1+3.5719*Y2
      Code GM&" X" & XPOS+4.5009*X1+6.387*X2 &" Y" & YPOS+4.5009*Y1+6.387*Y2 &" I"& XPOS+3.6824*X1+4.9948*X2 &" J"& YPOS+3.6824*Y1+4.9948*Y2
      Code GM&" X" & XPOS+3.5735*X1+6.6752*X2 &" Y" & YPOS+3.5735*Y1+6.6752*Y2 &" I"& XPOS+3.421*X1+4.55*X2 &" J"& YPOS+3.421*Y1+4.55*Y2
      Code GM&" X" & XPOS+2.3734*X1+6.4331*X2 &" Y" & YPOS+2.3734*Y1+6.4331*Y2 &" I"& XPOS+3.4097*X1+4.3922*X2 &" J"& YPOS+3.4097*Y1+4.3922*Y2
      Code GM&" X" & XPOS+1.5709*X1+5.69*X2 &" Y" & YPOS+1.5709*Y1+5.69*Y2 &" I"& XPOS+3.2776*X1+4.6521*X2 &" J"& YPOS+3.2776*Y1+4.6521*Y2
      Code GM&" X" & XPOS+1.1838*X1+4.5877*X2 &" Y" & YPOS+1.1838*Y1+4.5877*Y2 &" I"& XPOS+3.9772*X1+4.226*X2 &" J"& YPOS+3.9772*Y1+4.226*Y2
      Code GM&" X" & XPOS+1.333*X1+2.4206*X2 &" Y" & YPOS+1.333*Y1+2.4206*Y2 &" I"& XPOS+6.6711*X1+3.8777*X2 &" J"& YPOS+6.6711*Y1+3.8777*Y2
      Code GM&" X" & XPOS+1.9269*X1+1.4548*X2 &" Y" & YPOS+1.9269*Y1+1.4548*Y2 &" I"& XPOS+3.2777*X1+2.9506*X2 &" J"& YPOS+3.2777*Y1+2.9506*Y2
      Code GM&" X" & XPOS+2.8889*X1+0.9616*X2 &" Y" & YPOS+2.8889*Y1+0.9616*Y2 &" I"& XPOS+3.3325*X1+3.0118*X2 &" J"& YPOS+3.3325*Y1+3.0118*Y2
      Code GM&" X" & XPOS+4.4136*X1+1.1178*X2 &" Y" & YPOS+4.4136*Y1+1.1178*Y2 &" I"& XPOS+3.4116*X1+3.3766*X2 &" J"& YPOS+3.4116*Y1+3.3766*Y2
      Code GM&" X" & XPOS+5.2749*X1+1.9409*X2 &" Y" & YPOS+5.2749*Y1+1.9409*Y2 &" I"& XPOS+3.7002*X1+2.7258*X2 &" J"& YPOS+3.7002*Y1+2.7258*Y2
      Largo=6.8217
    Case 56   'h
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+1.1433*X1+10*X2 &" Y" & YPOS+1.1433*Y1+10*Y2
      Code "G01 X" & XPOS+1.1433*X1+6.38*X2 &" Y" & YPOS+1.1433*Y1+6.38*Y2
      Code GG&" X" & XPOS+1.7399*X1+7.0933*X2 &" Y" & YPOS+1.7399*Y1+7.0933*Y2 &" I"& XPOS+3.1366*X1+5.319*X2 &" J"& YPOS+3.1366*Y1+5.319*Y2
      Code GG&" X" & XPOS+2.6332*X1+7.5066*X2 &" Y" & YPOS+2.6332*Y1+7.5066*Y2 &" I"& XPOS+3.0555*X1+5.4223*X2 &" J"& YPOS+3.0555*Y1+5.4223*Y2
      Code GG&" X" & XPOS+4.3032*X1+7.5299*X2 &" Y" & YPOS+4.3032*Y1+7.5299*Y2 &" I"& XPOS+3.5302*X1+3.0786*X2 &" J"& YPOS+3.5302*Y1+3.0786*Y2
      Code GG&" X" & XPOS+5.4565*X1+6.9665*X2 &" Y" & YPOS+5.4565*Y1+6.9665*Y2 &" I"& XPOS+3.9092*X1+5.2619*X2 &" J"& YPOS+3.9092*Y1+5.2619*Y2
      Code GG&" X" & XPOS+5.9065*X1+6.3031*X2 &" Y" & YPOS+5.9065*Y1+6.3031*Y2 &" I"& XPOS+4.314*X1+5.7075*X2 &" J"& YPOS+4.314*Y1+5.7075*Y2
      Code GG&" X" & XPOS+6.0965*X1+5.253*X2 &" Y" & YPOS+6.0965*Y1+5.253*Y2 &" I"& XPOS+3.1005*X1+5.2531*X2 &" J"& YPOS+3.1005*Y1+5.2531*Y2
      Code "G01 X" & XPOS+6.0965*X1+-0.0002*X2 &" Y" & YPOS+6.0965*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+4.9531*X1+-0.0002*X2 &" Y" & YPOS+4.9531*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+4.9531*X1+5.2131*X2 &" Y" & YPOS+4.9531*Y1+5.2131*Y2
      Code GM&" X" & XPOS+4.7831*X1+5.813*X2 &" Y" & YPOS+4.7831*Y1+5.813*Y2 &" I"& XPOS+3.8093*X1+5.2131*X2 &" J"& YPOS+3.8093*Y1+5.2131*Y2
      Code GM&" X" & XPOS+3.9831*X1+6.4063*X2 &" Y" & YPOS+3.9831*Y1+6.4063*Y2 &" I"& XPOS+3.6413*X1+5.11*X2 &" J"& YPOS+3.6413*Y1+5.11*Y2
      Code GM&" X" & XPOS+2.5631*X1+6.4296*X2 &" Y" & YPOS+2.5631*Y1+6.4296*Y2 &" I"& XPOS+3.2256*X1+3.5333*X2 &" J"& YPOS+3.2256*Y1+3.5333*Y2
      Code GM&" X" & XPOS+1.6031*X1+5.8129*X2 &" Y" & YPOS+1.6031*Y1+5.8129*Y2 &" I"& XPOS+2.9379*X1+4.7906*X2 &" J"& YPOS+2.9379*Y1+4.7906*Y2
      Code GM&" X" & XPOS+1.1431*X1+4.4559*X2 &" Y" & YPOS+1.1431*Y1+4.4559*Y2 &" I"& XPOS+3.3746*X1+4.4559*X2 &" J"& YPOS+3.3746*Y1+4.4559*Y2
      Code "G01 X" & XPOS+1.1431*X1+-0.0004*X2 &" Y" & YPOS+1.1431*Y1+-0.0004*Y2
      Code "G01 X" & XPOS+-0.0002*X1+-0.0004*X2 &" Y" & YPOS+-0.0002*Y1+-0.0004*Y2
      Largo=6.0965
    Case 48   'i
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.45*X2 &" Y" & YPOS+7.45*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.16*X1+7.45*X2 &" Y" & YPOS+1.16*Y1+7.45*Y2
      Code "G01 X" & XPOS+1.16*X1 &" Y" & YPOS+1.16*Y1
      Code "G01 X" & XPOS &" Y" & YPOS
      Code "G01 X" & XPOS+7.45*X2 &" Y" & YPOS+7.45*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.9*X2 &" Y" & YPOS+8.9*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10.1566*X2 &" Y" & YPOS+10.1566*Y2
      Code "G01 X" & XPOS+1.16*X1+10.1566*X2 &" Y" & YPOS+1.16*Y1+10.1566*Y2
      Code "G01 X" & XPOS+1.16*X1+8.8999*X2 &" Y" & YPOS+1.16*Y1+8.8999*Y2
      Code "G01 X" & XPOS+8.8999*X2 &" Y" & YPOS+8.8999*Y2
      Largo=1.16
    Case 57   'j
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.45*X2 &" Y" & YPOS+7.45*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.0218*X1+7.45*X2 &" Y" & YPOS+1.0218*Y1+7.45*Y2
      Code "G01 X" & XPOS+1.0218*X1+-0.2239*X2 &" Y" & YPOS+1.0218*Y1+-0.2239*Y2
      Code GG&" X" & XPOS+0.9015*X1+-1.0653*X2 &" Y" & YPOS+0.9015*Y1+-1.0653*Y2 &" I"& XPOS-0.7058*X1-0.4059*X2 &" J"& YPOS-0.7058*Y1-0.4059*Y2
      Code GG&" X" & XPOS+0.1133*X1+-1.6898*X2 &" Y" & YPOS+0.1133*Y1+-1.6898*Y2 &" I"& XPOS-0.0486*X1-0.6763*X2 &" J"& YPOS-0.0486*Y1-0.6763*Y2
      Code GG&" X" & XPOS+-1.1122*X1+-1.7598*X2 &" Y" & YPOS+-1.1122*Y1+-1.7598*Y2 &" I"& XPOS-0.844*X1+4.3022*X2 &" J"& YPOS-0.844*Y1+4.3022*Y2
      Code "G01 X" & XPOS+-1.1122*X1+-0.8214*X2 &" Y" & YPOS+-1.1122*Y1+-0.8214*Y2
      Code GM&" X" & XPOS+-0.2673*X1+-0.6845*X2 &" Y" & YPOS+-0.2673*Y1+-0.6845*Y2 &" I"& XPOS-0.8575*X1+0.2816*X2 &" J"& YPOS-0.8575*Y1+0.2816*Y2
      Code GM&" X" & XPOS+-0.0034*X1+-0.2237*X2 &" Y" & YPOS+-0.0034*Y1+-0.2237*Y2 &" I"& XPOS-0.5543*X1-0.2145*X2 &" J"& YPOS-0.5543*Y1-0.2145*Y2
      Code "G01 X" & XPOS+-0.0034*X1+7.4502*X2 &" Y" & YPOS+-0.0034*Y1+7.4502*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+-0.0034*X1+8.6424*X2 &" Y" & YPOS+-0.0034*Y1+8.6424*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+-0.0034*X1+9.9213*X2 &" Y" & YPOS+-0.0034*Y1+9.9213*Y2
      Code "G01 X" & XPOS+1.0184*X1+9.9213*X2 &" Y" & YPOS+1.0184*Y1+9.9213*Y2
      Code "G01 X" & XPOS+1.0184*X1+8.6423*X2 &" Y" & YPOS+1.0184*Y1+8.6423*Y2
      Code "G01 X" & XPOS+-0.0034*X1+8.6423*X2 &" Y" & YPOS+-0.0034*Y1+8.6423*Y2
      Largo=1.0218
    Case 58   'k
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+9.9999*X2 &" Y" & YPOS+9.9999*Y2
      Code "G01 X" & XPOS+1.1433*X1+9.9999*X2 &" Y" & YPOS+1.1433*Y1+9.9999*Y2
      Code "G01 X" & XPOS+1.1433*X1+3.9032*X2 &" Y" & YPOS+1.1433*Y1+3.9032*Y2
      Code "G01 X" & XPOS+4.5733*X1+7.3332*X2 &" Y" & YPOS+4.5733*Y1+7.3332*Y2
      Code "G01 X" & XPOS+6.0033*X1+7.3332*X2 &" Y" & YPOS+6.0033*Y1+7.3332*Y2
      Code "G01 X" & XPOS+3.3366*X1+4.6664*X2 &" Y" & YPOS+3.3366*Y1+4.6664*Y2
      Code "G01 X" & XPOS+6.0999*X1+-0.0002*X2 &" Y" & YPOS+6.0999*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+4.8632*X1+-0.0002*X2 &" Y" & YPOS+4.8632*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+2.5765*X1+3.9031*X2 &" Y" & YPOS+2.5765*Y1+3.9031*Y2
      Code "G01 X" & XPOS+1.1464*X1+2.473*X2 &" Y" & YPOS+1.1464*Y1+2.473*Y2
      Code "G01 X" & XPOS+1.1464*X1+-0.0036*X2 &" Y" & YPOS+1.1464*Y1+-0.0036*Y2
      Code "G01 X" & XPOS+0.003*X1+-0.0036*X2 &" Y" & YPOS+0.003*Y1+-0.0036*Y2
      Largo=6.0999
    Case 59   'l
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+10*X2 &" Y" & YPOS+10*Y2
      Code "G01 X" & XPOS+1.1433*X1+10*X2 &" Y" & YPOS+1.1433*Y1+10*Y2
      Code "G01 X" & XPOS+1.1433*X1 &" Y" & YPOS+1.1433*Y1
      Code "G01 X" & XPOS &" Y" & YPOS
      Largo=1.1433
    Case 67   'm
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+7.45*X2 &" Y" & YPOS+7.45*Y2
      Code "G01 X" & XPOS+1.16*X1+7.45*X2 &" Y" & YPOS+1.16*Y1+7.45*Y2
      Code "G01 X" & XPOS+1.16*X1+6.4833*X2 &" Y" & YPOS+1.16*Y1+6.4833*Y2
      Code GG&" X" & XPOS+2.6999*X1+7.5732*X2 &" Y" & YPOS+2.6999*Y1+7.5732*Y2 &" I"& XPOS+3.6717*X1+4.5683*X2 &" J"& YPOS+3.6717*Y1+4.5683*Y2
      Code GG&" X" & XPOS+4.7132*X1+7.4265*X2 &" Y" & YPOS+4.7132*Y1+7.4265*Y2 &" I"& XPOS+3.5258*X1+5.0192*X2 &" J"& YPOS+3.5258*Y1+5.0192*Y2
      Code GG&" X" & XPOS+5.4165*X1+6.4798*X2 &" Y" & YPOS+5.4165*Y1+6.4798*Y2 &" I"& XPOS+4.1415*X1+6.2675*X2 &" J"& YPOS+4.1415*Y1+6.2675*Y2
      Code GG&" X" & XPOS+6.7731*X1+7.5031*X2 &" Y" & YPOS+6.7731*Y1+7.5031*Y2 &" I"& XPOS+7.973*X1+4.5018*X2 &" J"& YPOS+7.973*Y1+4.5018*Y2
      Code GG&" X" & XPOS+9.223*X1+7.3797*X2 &" Y" & YPOS+9.223*Y1+7.3797*Y2 &" I"& XPOS+7.8638*X1+4.7751*X2 &" J"& YPOS+7.8638*Y1+4.7751*Y2
      Code GG&" X" & XPOS+9.773*X1+6.8763*X2 &" Y" & YPOS+9.773*Y1+6.8763*Y2 &" I"& XPOS+8.5527*X1+6.0957*X2 &" J"& YPOS+8.5527*Y1+6.0957*Y2
      Code GG&" X" & XPOS+10.0263*X1+6.2363*X2 &" Y" & YPOS+10.0263*Y1+6.2363*Y2 &" I"& XPOS+8.2582*X1+5.9073*X2 &" J"& YPOS+8.2582*Y1+5.9073*Y2
      Code GG&" X" & XPOS+10.163*X1+4.7515*X2 &" Y" & YPOS+10.163*Y1+4.7515*Y2 &" I"& XPOS+2.0938*X1+4.7573*X2 &" J"& YPOS+2.0938*Y1+4.7573*Y2
      Code "G01 X" & XPOS+10.163*X1+-0.0003*X2 &" Y" & YPOS+10.163*Y1+-0.0003*Y2
      Code "G01 X" & XPOS+9.003*X1+-0.0003*X2 &" Y" & YPOS+9.003*Y1+-0.0003*Y2
      Code "G01 X" & XPOS+9.003*X1+5.3196*X2 &" Y" & YPOS+9.003*Y1+5.3196*Y2
      Code GM&" X" & XPOS+8.793*X1+6.0162*X2 &" Y" & YPOS+8.793*Y1+6.0162*Y2 &" I"& XPOS+7.7423*X1+5.3196*X2 &" J"& YPOS+7.7423*Y1+5.3196*Y2
      Code GM&" X" & XPOS+8.1063*X1+6.5195*X2 &" Y" & YPOS+8.1063*Y1+6.5195*Y2 &" I"& XPOS+7.7659*X1+5.3362*X2 &" J"& YPOS+7.7659*Y1+5.3362*Y2
      Code GM&" X" & XPOS+6.8029*X1+6.4961*X2 &" Y" & YPOS+6.8029*Y1+6.4961*Y2 &" I"& XPOS+7.4927*X1+4.3855*X2 &" J"& YPOS+7.4927*Y1+4.3855*Y2
      Code GM&" X" & XPOS+6.0929*X1+5.9928*X2 &" Y" & YPOS+6.0929*Y1+5.9928*Y2 &" I"& XPOS+7.2588*X1+5.1011*X2 &" J"& YPOS+7.2588*Y1+5.1011*Y2
      Code GM&" X" & XPOS+5.7129*X1+4.8711*X2 &" Y" & YPOS+5.7129*Y1+4.8711*Y2 &" I"& XPOS+7.5583*X1+4.8718*X2 &" J"& YPOS+7.5583*Y1+4.8718*Y2
      Code "G01 X" & XPOS+5.7129*X1+-0.0005*X2 &" Y" & YPOS+5.7129*Y1+-0.0005*Y2
      Code "G01 X" & XPOS+4.5529*X1+-0.0005*X2 &" Y" & YPOS+4.5529*Y1+-0.0005*Y2
      Code "G01 X" & XPOS+4.5529*X1+4.9328*X2 &" Y" & YPOS+4.5529*Y1+4.9328*Y2
      Code GM&" X" & XPOS+4.3762*X1+5.856*X2 &" Y" & YPOS+4.3762*Y1+5.856*Y2 &" I"& XPOS+2.052*X1+4.9328*X2 &" J"& YPOS+2.052*Y1+4.9328*Y2
      Code GM&" X" & XPOS+3.6895*X1+6.4727*X2 &" Y" & YPOS+3.6895*Y1+6.4727*Y2 &" I"& XPOS+3.4118*X1+5.473*X2 &" J"& YPOS+3.4118*Y1+5.473*Y2
      Code GM&" X" & XPOS+2.0661*X1+6.336*X2 &" Y" & YPOS+2.0661*Y1+6.336*Y2 &" I"& XPOS+3.0621*X1+4.2147*X2 &" J"& YPOS+3.0621*Y1+4.2147*Y2
      Code GM&" X" & XPOS+1.3094*X1+5.5592*X2 &" Y" & YPOS+1.3094*Y1+5.5592*Y2 &" I"& XPOS+2.7207*X1+4.942*X2 &" J"& YPOS+2.7207*Y1+4.942*Y2
      Code GM&" X" & XPOS+1.1493*X1+4.7881*X2 &" Y" & YPOS+1.1493*Y1+4.7881*Y2 &" I"& XPOS+3.0554*X1+4.7952*X2 &" J"& YPOS+3.0554*Y1+4.7952*Y2
      Code "G01 X" & XPOS+1.1659*X1+-0.0007*X2 &" Y" & YPOS+1.1659*Y1+-0.0007*Y2
      Code "G01 X" & XPOS+0.0059*X1+-0.0007*X2 &" Y" & YPOS+0.0059*Y1+-0.0007*Y2
      Largo=10.163
    Case 66   'n
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+7.45*X2 &" Y" & YPOS+7.45*Y2
      Code "G01 X" & XPOS+1.1599*X1+7.45*X2 &" Y" & YPOS+1.1599*Y1+7.45*Y2
      Code "G01 X" & XPOS+1.1599*X1+6.4833*X2 &" Y" & YPOS+1.1599*Y1+6.4833*Y2
      Code GG&" X" & XPOS+2.9732*X1+7.5532*X2 &" Y" & YPOS+2.9732*Y1+7.5532*Y2 &" I"& XPOS+4.3229*X1+3.1943*X2 &" J"& YPOS+4.3229*Y1+3.1943*Y2
      Code GG&" X" & XPOS+4.5965*X1+7.6432*X2 &" Y" & YPOS+4.5965*Y1+7.6432*Y2 &" I"& XPOS+3.9651*X1+4.3502*X2 &" J"& YPOS+3.9651*Y1+4.3502*Y2
      Code GG&" X" & XPOS+5.6931*X1+7.0264*X2 &" Y" & YPOS+5.6931*Y1+7.0264*Y2 &" I"& XPOS+4.2232*X1+5.6962*X2 &" J"& YPOS+4.2232*Y1+5.6962*Y2
      Code GG&" X" & XPOS+6.0831*X1+6.2497*X2 &" Y" & YPOS+6.0831*Y1+6.2497*Y2 &" I"& XPOS+4.4863*X1+5.9344*X2 &" J"& YPOS+4.4863*Y1+5.9344*Y2
      Code GG&" X" & XPOS+6.1898*X1+5.1556*X2 &" Y" & YPOS+6.1898*Y1+5.1556*Y2 &" I"& XPOS+0.5668*X1+5.1597*X2 &" J"& YPOS+0.5668*Y1+5.1597*Y2
      Code "G01 X" & XPOS+6.1898*X1+0.003*X2 &" Y" & YPOS+6.1898*Y1+0.003*Y2
      Code "G01 X" & XPOS+5.0298*X1+0.003*X2 &" Y" & YPOS+5.0298*Y1+0.003*Y2
      Code "G01 X" & XPOS+5.0298*X1+5.2262*X2 &" Y" & YPOS+5.0298*Y1+5.2262*Y2
      Code GM&" X" & XPOS+4.9197*X1+5.9062*X2 &" Y" & YPOS+4.9197*Y1+5.9062*Y2 &" I"& XPOS+2.8729*X1+5.2262*X2 &" J"& YPOS+2.8729*Y1+5.2262*Y2
      Code GM&" X" & XPOS+4.463*X1+6.4562*X2 &" Y" & YPOS+4.463*Y1+6.4562*Y2 &" I"& XPOS+3.9868*X1+5.5972*X2 &" J"& YPOS+3.9868*Y1+5.5972*Y2
      Code GM&" X" & XPOS+3.2263*X1+6.6627*X2 &" Y" & YPOS+3.2263*Y1+6.6627*Y2 &" I"& XPOS+3.5528*X1+4.8132*X2 &" J"& YPOS+3.5528*Y1+4.8132*Y2
      Code GM&" X" & XPOS+2.0829*X1+6.2494*X2 &" Y" & YPOS+2.0829*Y1+6.2494*Y2 &" I"& XPOS+3.8429*X1+3.1687*X2 &" J"& YPOS+3.8429*Y1+3.1687*Y2
      Code GM&" X" & XPOS+1.3495*X1+5.4261*X2 &" Y" & YPOS+1.3495*Y1+5.4261*Y2 &" I"& XPOS+2.9415*X1+4.7474*X2 &" J"& YPOS+2.9415*Y1+4.7474*Y2
      Code GM&" X" & XPOS+1.1594*X1+4.4969*X2 &" Y" & YPOS+1.1594*Y1+4.4969*Y2 &" I"& XPOS+3.5255*X1+4.4971*X2 &" J"& YPOS+3.5255*Y1+4.4971*Y2
      Code "G01 X" & XPOS+1.1594*X1+0.0027*X2 &" Y" & YPOS+1.1594*Y1+0.0027*Y2
      Code "G01 X" & XPOS+-0.0006*X1+0.0027*X2 &" Y" & YPOS+-0.0006*Y1+0.0027*Y2
      Largo=6.1898
    Case 60   'ñ
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+7.45*X2 &" Y" & YPOS+7.45*Y2
      Code "G01 X" & XPOS+1.1599*X1+7.45*X2 &" Y" & YPOS+1.1599*Y1+7.45*Y2
      Code "G01 X" & XPOS+1.1599*X1+6.4833*X2 &" Y" & YPOS+1.1599*Y1+6.4833*Y2
      Code GG&" X" & XPOS+2.9732*X1+7.5532*X2 &" Y" & YPOS+2.9732*Y1+7.5532*Y2 &" I"& XPOS+4.3229*X1+3.1943*X2 &" J"& YPOS+4.3229*Y1+3.1943*Y2
      Code GG&" X" & XPOS+4.5965*X1+7.6432*X2 &" Y" & YPOS+4.5965*Y1+7.6432*Y2 &" I"& XPOS+3.9651*X1+4.3502*X2 &" J"& YPOS+3.9651*Y1+4.3502*Y2
      Code GG&" X" & XPOS+5.6931*X1+7.0264*X2 &" Y" & YPOS+5.6931*Y1+7.0264*Y2 &" I"& XPOS+4.2232*X1+5.6962*X2 &" J"& YPOS+4.2232*Y1+5.6962*Y2
      Code GG&" X" & XPOS+6.0831*X1+6.2497*X2 &" Y" & YPOS+6.0831*Y1+6.2497*Y2 &" I"& XPOS+4.4863*X1+5.9344*X2 &" J"& YPOS+4.4863*Y1+5.9344*Y2
      Code GG&" X" & XPOS+6.1898*X1+5.1556*X2 &" Y" & YPOS+6.1898*Y1+5.1556*Y2 &" I"& XPOS+0.5668*X1+5.1597*X2 &" J"& YPOS+0.5668*Y1+5.1597*Y2
      Code "G01 X" & XPOS+6.1898*X1+0.003*X2 &" Y" & YPOS+6.1898*Y1+0.003*Y2
      Code "G01 X" & XPOS+5.0298*X1+0.003*X2 &" Y" & YPOS+5.0298*Y1+0.003*Y2
      Code "G01 X" & XPOS+5.0298*X1+5.2262*X2 &" Y" & YPOS+5.0298*Y1+5.2262*Y2
      Code GM&" X" & XPOS+4.9197*X1+5.9062*X2 &" Y" & YPOS+4.9197*Y1+5.9062*Y2 &" I"& XPOS+2.8729*X1+5.2262*X2 &" J"& YPOS+2.8729*Y1+5.2262*Y2
      Code GM&" X" & XPOS+4.463*X1+6.4562*X2 &" Y" & YPOS+4.463*Y1+6.4562*Y2 &" I"& XPOS+3.9868*X1+5.5972*X2 &" J"& YPOS+3.9868*Y1+5.5972*Y2
      Code GM&" X" & XPOS+3.2263*X1+6.6627*X2 &" Y" & YPOS+3.2263*Y1+6.6627*Y2 &" I"& XPOS+3.5528*X1+4.8132*X2 &" J"& YPOS+3.5528*Y1+4.8132*Y2
      Code GM&" X" & XPOS+2.0829*X1+6.2494*X2 &" Y" & YPOS+2.0829*Y1+6.2494*Y2 &" I"& XPOS+3.8429*X1+3.1687*X2 &" J"& YPOS+3.8429*Y1+3.1687*Y2
      Code GM&" X" & XPOS+1.3495*X1+5.4261*X2 &" Y" & YPOS+1.3495*Y1+5.4261*Y2 &" I"& XPOS+2.9415*X1+4.7474*X2 &" J"& YPOS+2.9415*Y1+4.7474*Y2
      Code GM&" X" & XPOS+1.1594*X1+4.4969*X2 &" Y" & YPOS+1.1594*Y1+4.4969*Y2 &" I"& XPOS+3.5255*X1+4.4971*X2 &" J"& YPOS+3.5255*Y1+4.4971*Y2
      Code "G01 X" & XPOS+1.1594*X1+0.0027*X2 &" Y" & YPOS+1.1594*Y1+0.0027*Y2
      Code "G01 X" & XPOS+-0.0006*X1+0.0027*X2 &" Y" & YPOS+-0.0006*Y1+0.0027*Y2

      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.7872*X1+8.1811 *X2 &" Y" & YPOS+0.7872*Y1+8.1811 *Y2
      Code "G00 Z"& Corte
      Code "G01 X"& XPOS+0.8001*X1+8.4409 *X2 &" Y" & YPOS+0.8001*Y1+8.4409 *Y2
      Code "G01 X"& XPOS+0.8001*X1+8.4409 *X2 &" Y" & YPOS+0.8001*Y1+8.4409 *Y2
      Code  GG&" X" & XPOS+2.7379*X1+9.6183*X2 &" Y" & YPOS+2.7379*Y1+9.6183*Y2 &" I"& XPOS+2.168*X1+8.3729*X2 &" J"& YPOS+2.168*Y1+8.3729*Y2
      Code "G01 X"& XPOS+2.7379*X1+9.6183 *X2 &" Y" & YPOS+2.7379*Y1+9.6183 *Y2
      Code "G01 X"& XPOS+3.7729*X1+9.1447 *X2 &" Y" & YPOS+3.7729*Y1+9.1447 *Y2
      Code  GM&" X" & XPOS+4.4267*X1+9.5397*X2 &" Y" & YPOS+4.4267*Y1+9.5397*Y2 &" I"& XPOS+3.9652*X1+9.565*X2 &" J"& YPOS+3.9652*Y1+9.565*Y2
      Code "G01 X"& XPOS+4.4386*X1+9.7568 *X2 &" Y" & YPOS+4.4386*Y1+9.7568 *Y2
      Code "G01 X"& XPOS+5.3461*X1+9.7568 *X2 &" Y" & YPOS+5.3461*Y1+9.7568 *Y2
      Code "G01 X"& XPOS+5.3332*X1+9.4970 *X2 &" Y" & YPOS+5.3332*Y1+9.4970 *Y2
      Code "G01 X"& XPOS+5.3332*X1+9.4970 *X2 &" Y" & YPOS+5.3332*Y1+9.4970 *Y2
      Code  GG&" X" & XPOS+3.3953*X1+8.3196*X2 &" Y" & YPOS+3.3953*Y1+8.3196*Y2 &" I"& XPOS+3.9652*X1+9.565*X2 &" J"& YPOS+3.9652*Y1+9.565*Y2
      Code "G01 X"& XPOS+3.3953*X1+8.3196 *X2 &" Y" & YPOS+3.3953*Y1+8.3196 *Y2
      Code "G01 X"& XPOS+2.3603*X1+8.7932 *X2 &" Y" & YPOS+2.3603*Y1+8.7932 *Y2
      Code  GM&" X" & XPOS+1.7066*X1+8.3982*X2 &" Y" & YPOS+1.7066*Y1+8.3982*Y2 &" I"& XPOS+2.168*X1+8.3729*X2 &" J"& YPOS+2.168*Y1+8.3729*Y2
      Code "G01 X"& XPOS+1.6947*X1+8.1811 *X2 &" Y" & YPOS+1.6947*Y1+8.1811 *Y2
      Code "G01 X"& XPOS+0.7872*X1+8.1811 *X2 &" Y" & YPOS+0.7872*Y1+8.1811 *Y2
      Largo=6.1898
    Case 49   'o
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.5752*X1+0.11*X2 &" Y" & YPOS+2.5752*Y1+0.11*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+1.485*X1+0.5367*X2 &" Y" & YPOS+1.485*Y1+0.5367*Y2 &" I"& XPOS+3.1446*X1+3.17*X2 &" J"& YPOS+3.1446*Y1+3.17*Y2
      Code GG&" X" & XPOS+0.3981*X1+1.8535*X2 &" Y" & YPOS+0.3981*Y1+1.8535*Y2 &" I"& XPOS+2.938*X1+2.8427*X2 &" J"& YPOS+2.938*Y1+2.8427*Y2
      Code GG&" X" & XPOS+0.4147*X1+5.704*X2 &" Y" & YPOS+0.4147*Y1+5.704*Y2 &" I"& XPOS+5.2867*X1+3.7575*X2 &" J"& YPOS+5.2867*Y1+3.7575*Y2
      Code GG&" X" & XPOS+1.0614*X1+6.6742*X2 &" Y" & YPOS+1.0614*Y1+6.6742*Y2 &" I"& XPOS+3.0378*X1+4.657*X2 &" J"& YPOS+3.0378*Y1+4.657*Y2
      Code GG&" X" & XPOS+1.9415*X1+7.2309*X2 &" Y" & YPOS+1.9415*Y1+7.2309*Y2 &" I"& XPOS+2.8018*X1+4.8972*X2 &" J"& YPOS+2.8018*Y1+4.8972*Y2
      Code GG&" X" & XPOS+4.4052*X1+7.3208*X2 &" Y" & YPOS+4.4052*Y1+7.3208*Y2 &" I"& XPOS+3.3106*X1+3.5169*X2 &" J"& YPOS+3.3106*Y1+3.5169*Y2
      Code GG&" X" & XPOS+5.5753*X1+6.7073*X2 &" Y" & YPOS+5.5753*Y1+6.7073*Y2 &" I"& XPOS+3.4979*X1+4.1678*X2 &" J"& YPOS+3.4979*Y1+4.1678*Y2
      Code GG&" X" & XPOS+6.3321*X1+5.6272*X2 &" Y" & YPOS+6.3321*Y1+5.6272*Y2 &" I"& XPOS+4.0326*X1+4.8213*X2 &" J"& YPOS+4.0326*Y1+4.8213*Y2
      Code GG&" X" & XPOS+6.1153*X1+1.5265*X2 &" Y" & YPOS+6.1153*Y1+1.5265*Y2 &" I"& XPOS+1.2347*X1+3.8412*X2 &" J"& YPOS+1.2347*Y1+3.8412*Y2
      Code GG&" X" & XPOS+5.2518*X1+0.483*X2 &" Y" & YPOS+5.2518*Y1+0.483*Y2 &" I"& XPOS+3.628*X1+2.7055*X2 &" J"& YPOS+3.628*Y1+2.7055*Y2
      Code GG&" X" & XPOS+3.9015*X1+-0.0004*X2 &" Y" & YPOS+3.9015*Y1+-0.0004*Y2 &" I"& XPOS+3.7581*X1+2.527*X2 &" J"& YPOS+3.7581*Y1+2.527*Y2
      Code GG&" X" & XPOS+2.5713*X1+0.1062*X2 &" Y" & YPOS+2.5713*Y1+0.1062*Y2 &" I"& XPOS+3.624*X1+4.8886*X2 &" J"& YPOS+3.624*Y1+4.8886*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.788*X1+1.0596*X2 &" Y" & YPOS+2.788*Y1+1.0596*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+4.14*X1+1.0514*X2 &" Y" & YPOS+4.14*Y1+1.0514*Y2 &" I"& XPOS+3.4815*X1+3.9746*X2 &" J"& YPOS+3.4815*Y1+3.9746*Y2
      Code GM&" X" & XPOS+4.7807*X1+1.4633*X2 &" Y" & YPOS+4.7807*Y1+1.4633*Y2 &" I"& XPOS+3.8958*X1+2.1354*X2 &" J"& YPOS+3.8958*Y1+2.1354*Y2
      Code GM&" X" & XPOS+5.1239*X1+2.1269*X2 &" Y" & YPOS+5.1239*Y1+2.1269*Y2 &" I"& XPOS+3.0451*X1+2.7813*X2 &" J"& YPOS+3.0451*Y1+2.7813*Y2
      Code GM&" X" & XPOS+5.1696*X1+5.1934*X2 &" Y" & YPOS+5.1696*Y1+5.1934*Y2 &" I"& XPOS+0.0115*X1+3.7359*X2 &" J"& YPOS+0.0115*Y1+3.7359*Y2
      Code GM&" X" & XPOS+4.8034*X1+5.9028*X2 &" Y" & YPOS+4.8034*Y1+5.9028*Y2 &" I"& XPOS+3.2476*X1+4.6514*X2 &" J"& YPOS+3.2476*Y1+4.6514*Y2
      Code GM&" X" & XPOS+4.2999*X1+6.3147*X2 &" Y" & YPOS+4.2999*Y1+6.3147*Y2 &" I"& XPOS+3.5727*X1+4.9128*X2 &" J"& YPOS+3.5727*Y1+4.9128*Y2
      Code GM&" X" & XPOS+2.3546*X1+6.3375*X2 &" Y" & YPOS+2.3546*Y1+6.3375*Y2 &" I"& XPOS+3.3045*X1+4.3957*X2 &" J"& YPOS+3.3045*Y1+4.3957*Y2
      Code GM&" X" & XPOS+1.8511*X1+5.9255*X2 &" Y" & YPOS+1.8511*Y1+5.9255*Y2 &" I"& XPOS+2.979*X1+5.0615*X2 &" J"& YPOS+2.979*Y1+5.0615*Y2
      Code GM&" X" & XPOS+1.5535*X1+5.3991*X2 &" Y" & YPOS+1.5535*Y1+5.3991*Y2 &" I"& XPOS+3.5736*X1+4.6055*X2 &" J"& YPOS+3.5736*Y1+4.6055*Y2
      Code GM&" X" & XPOS+1.4619*X1+2.218*X2 &" Y" & YPOS+1.4619*Y1+2.218*Y2 &" I"& XPOS+5.9202*X1+3.6821*X2 &" J"& YPOS+5.9202*Y1+3.6821*Y2
      Code GM&" X" & XPOS+1.8738*X1+1.5543*X2 &" Y" & YPOS+1.8738*Y1+1.5543*Y2 &" I"& XPOS+3.0338*X1+2.734*X2 &" J"& YPOS+3.0338*Y1+2.734*Y2
      Code GM&" X" & XPOS+2.7874*X1+1.0589*X2 &" Y" & YPOS+2.7874*Y1+1.0589*Y2 &" I"& XPOS+3.1913*X1+2.8933*X2 &" J"& YPOS+3.1913*Y1+2.8933*Y2
      Largo=6.3321
    Case 50   'p
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.1365*X1+1.1874*X2 &" Y" & YPOS+1.1365*Y1+1.1874*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.1365*X1+-2.4154*X2 &" Y" & YPOS+1.1365*Y1+-2.4154*Y2
      Code "G01 X" & XPOS+-2.4154*X2 &" Y" & YPOS+-2.4154*Y2
      Code "G01 X" & XPOS+7.4467*X2 &" Y" & YPOS+7.4467*Y2
      Code "G01 X" & XPOS+1.1365*X1+7.4467*X2 &" Y" & YPOS+1.1365*Y1+7.4467*Y2
      Code "G01 X" & XPOS+1.1365*X1+6.4968*X2 &" Y" & YPOS+1.1365*Y1+6.4968*Y2
      Code GG&" X" & XPOS+2.2397*X1+7.3333*X2 &" Y" & YPOS+2.2397*Y1+7.3333*Y2 &" I"& XPOS+3.5142*X1+4.5078*X2 &" J"& YPOS+3.5142*Y1+4.5078*Y2
      Code GG&" X" & XPOS+3.4695*X1+7.6365*X2 &" Y" & YPOS+3.4695*Y1+7.6365*Y2 &" I"& XPOS+3.6791*X1+4.1413*X2 &" J"& YPOS+3.6791*Y1+4.1413*Y2
      Code GG&" X" & XPOS+5.1659*X1+7.2932*X2 &" Y" & YPOS+5.1659*Y1+7.2932*Y2 &" I"& XPOS+3.6713*X1+4.2715*X2 &" J"& YPOS+3.6713*Y1+4.2715*Y2
      Code GG&" X" & XPOS+6.4357*X1+5.9999*X2 &" Y" & YPOS+6.4357*Y1+5.9999*Y2 &" I"& XPOS+3.9452*X1+4.8252*X2 &" J"& YPOS+3.9452*Y1+4.8252*Y2
      Code GG&" X" & XPOS+6.4157*X1+1.8037*X2 &" Y" & YPOS+6.4157*Y1+1.8037*Y2 &" I"& XPOS+2.0345*X1+3.9229*X2 &" J"& YPOS+2.0345*Y1+3.9229*Y2
      Code GG&" X" & XPOS+5.7891*X1+0.8771*X2 &" Y" & YPOS+5.7891*Y1+0.8771*Y2 &" I"& XPOS+2.9105*X1+3.4987*X2 &" J"& YPOS+2.9105*Y1+3.4987*Y2
      Code GG&" X" & XPOS+4.1959*X1+0.0305*X2 &" Y" & YPOS+4.1959*Y1+0.0305*Y2 &" I"& XPOS+3.8093*X1+2.6801*X2 &" J"& YPOS+3.8093*Y1+2.6801*Y2
      Code GG&" X" & XPOS+2.4194*X1+0.2305*X2 &" Y" & YPOS+2.4194*Y1+0.2305*Y2 &" I"& XPOS+3.6882*X1+3.5095*X2 &" J"& YPOS+3.6882*Y1+3.5095*Y2
      Code GG&" X" & XPOS+1.1362*X1+1.1837*X2 &" Y" & YPOS+1.1362*Y1+1.1837*Y2 &" I"& XPOS+3.5014*X1+3.0265*X2 &" J"& YPOS+3.5014*Y1+3.0265*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.4728*X1+1.8636*X2 &" Y" & YPOS+1.4728*Y1+1.8636*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+2.4145*X1+1.0468*X2 &" Y" & YPOS+2.4145*Y1+1.0468*Y2 &" I"& XPOS+3.6212*X1+3.3886*X2 &" J"& YPOS+3.6212*Y1+3.3886*Y2
      Code GM&" X" & XPOS+3.6724*X1+0.8569*X2 &" Y" & YPOS+3.6724*Y1+0.8569*Y2 &" I"& XPOS+3.3245*X1+2.8128*X2 &" J"& YPOS+3.3245*Y1+2.8128*Y2
      Code GM&" X" & XPOS+4.4989*X1+1.2602*X2 &" Y" & YPOS+4.4989*Y1+1.2602*Y2 &" I"& XPOS+3.3789*X1+2.5069*X2 &" J"& YPOS+3.3789*Y1+2.5069*Y2
      Code GM&" X" & XPOS+5.2269*X1+2.3252*X2 &" Y" & YPOS+5.2269*Y1+2.3252*Y2 &" I"& XPOS+2.6795*X1+3.2852*X2 &" J"& YPOS+2.6795*Y1+3.2852*Y2
      Code GM&" X" & XPOS+4.9421*X1+5.7429*X2 &" Y" & YPOS+4.9421*Y1+5.7429*Y2 &" I"& XPOS+1.4879*X1+3.7342*X2 &" J"& YPOS+1.4879*Y1+3.7342*Y2
      Code GM&" X" & XPOS+3.8722*X1+6.5294*X2 &" Y" & YPOS+3.8722*Y1+6.5294*Y2 &" I"& XPOS+3.5026*X1+4.9059*X2 &" J"& YPOS+3.5026*Y1+4.9059*Y2
      Code GM&" X" & XPOS+2.359*X1+6.4061*X2 &" Y" & YPOS+2.359*Y1+6.4061*Y2 &" I"& XPOS+3.3112*X1+4.0654*X2 &" J"& YPOS+3.3112*Y1+4.0654*Y2
      Code GM&" X" & XPOS+1.6755*X1+5.9047*X2 &" Y" & YPOS+1.6755*Y1+5.9047*Y2 &" I"& XPOS+3.0134*X1+4.7981*X2 &" J"& YPOS+3.0134*Y1+4.7981*Y2
      Code GM&" X" & XPOS+1.2493*X1+4.9955*X2 &" Y" & YPOS+1.2493*Y1+4.9955*Y2 &" I"& XPOS+3.2197*X1+4.6267*X2 &" J"& YPOS+3.2197*Y1+4.6267*Y2
      Code GM&" X" & XPOS+1.2493*X1+2.4385*X2 &" Y" & YPOS+1.2493*Y1+2.4385*Y2 &" I"& XPOS+8.0727*X1+3.7175*X2 &" J"& YPOS+8.0727*Y1+3.7175*Y2
      Code GM&" X" & XPOS+1.4723*X1+1.8631*X2 &" Y" & YPOS+1.4723*Y1+1.8631*Y2 &" I"& XPOS+2.9012*X1+2.7475*X2 &" J"& YPOS+2.9012*Y1+2.7475*Y2
      Largo=6.4357
    Case 41   'q
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.5349*X1+1.1839*X2 &" Y" & YPOS+5.5349*Y1+1.1839*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+4.322*X1+0.2428*X2 &" Y" & YPOS+4.322*Y1+0.2428*Y2 &" I"& XPOS+2.8102*X1+3.4429*X2 &" J"& YPOS+2.8102*Y1+3.4429*Y2
      Code GG&" X" & XPOS+2.729*X1+-0.0416*X2 &" Y" & YPOS+2.729*Y1+-0.0416*Y2 &" I"& XPOS+3.0005*X1+3.0398*X2 &" J"& YPOS+3.0005*Y1+3.0398*Y2
      Code GG&" X" & XPOS+1.1928*X1+0.6126*X2 &" Y" & YPOS+1.1928*Y1+0.6126*Y2 &" I"& XPOS+2.9655*X1+2.6434*X2 &" J"& YPOS+2.9655*Y1+2.6434*Y2
      Code GG&" X" & XPOS+0.254*X1+2.0349*X2 &" Y" & YPOS+0.254*Y1+2.0349*Y2 &" I"& XPOS+3.2932*X1+3.0196*X2 &" J"& YPOS+3.2932*Y1+3.0196*Y2
      Code GG&" X" & XPOS+0.5925*X1+6.2193*X2 &" Y" & YPOS+0.5925*Y1+6.2193*Y2 &" I"& XPOS+5.4541*X1+3.7199*X2 &" J"& YPOS+5.4541*Y1+3.7199*Y2
      Code GG&" X" & XPOS+1.6663*X1+7.363*X2 &" Y" & YPOS+1.6663*Y1+7.363*Y2 &" I"& XPOS+3.1255*X1+4.9173*X2 &" J"& YPOS+3.1255*Y1+4.9173*Y2
      Code GG&" X" & XPOS+2.7868*X1+7.7198*X2 &" Y" & YPOS+2.7868*Y1+7.7198*Y2 &" I"& XPOS+2.9901*X1+5.145*X2 &" J"& YPOS+2.9901*Y1+5.145*Y2
      Code GG&" X" & XPOS+3.8605*X1+7.5997*X2 &" Y" & YPOS+3.8605*Y1+7.5997*Y2 &" I"& XPOS+3.0117*X1+4.8708*X2 &" J"& YPOS+3.0117*Y1+4.8708*Y2
      Code GG&" X" & XPOS+5.5346*X1+6.4992*X2 &" Y" & YPOS+5.5346*Y1+6.4992*Y2 &" I"& XPOS+2.7845*X1+4.1397*X2 &" J"& YPOS+2.7845*Y1+4.1397*Y2
      Code "G01 X" & XPOS+5.5346*X1+7.4495*X2 &" Y" & YPOS+5.5346*Y1+7.4495*Y2
      Code "G01 X" & XPOS+6.6751*X1+7.4495*X2 &" Y" & YPOS+6.6751*Y1+7.4495*Y2
      Code "G01 X" & XPOS+6.6751*X1+-2.4315*X2 &" Y" & YPOS+6.6751*Y1+-2.4315*Y2
      Code "G01 X" & XPOS+5.5346*X1+-2.4315*X2 &" Y" & YPOS+5.5346*Y1+-2.4315*Y2
      Code "G01 X" & XPOS+5.5346*X1+1.1801*X2 &" Y" & YPOS+5.5346*Y1+1.1801*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.2511*X1+2.1305*X2 &" Y" & YPOS+5.2511*Y1+2.1305*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+5.4811*X1+3.0708*X2 &" Y" & YPOS+5.4811*Y1+3.0708*Y2 &" I"& XPOS+1.4929*X1+3.5475*X2 &" J"& YPOS+1.4929*Y1+3.5475*Y2
      Code GM&" X" & XPOS+5.3741*X1+5.3911*X2 &" Y" & YPOS+5.3741*Y1+5.3911*Y2 &" I"& XPOS-1.5296*X1+3.9098*X2 &" J"& YPOS-1.5296*Y1+3.9098*Y2
      Code GM&" X" & XPOS+4.7482*X1+6.3582*X2 &" Y" & YPOS+4.7482*Y1+6.3582*Y2 &" I"& XPOS+3.788*X1+5.0511*X2 &" J"& YPOS+3.788*Y1+5.0511*Y2
      Code GM&" X" & XPOS+3.5534*X1+6.8133*X2 &" Y" & YPOS+3.5534*Y1+6.8133*Y2 &" I"& XPOS+3.3269*X1+4.4232*X2 &" J"& YPOS+3.3269*Y1+4.4232*Y2
      Code GM&" X" & XPOS+2.5008*X1+6.6426*X2 &" Y" & YPOS+2.5008*Y1+6.6426*Y2 &" I"& XPOS+3.3542*X1+4.7113*X2 &" J"& YPOS+3.3542*Y1+4.7113*Y2
      Code GM&" X" & XPOS+1.6474*X1+5.7607*X2 &" Y" & YPOS+1.6474*Y1+5.7607*Y2 &" I"& XPOS+3.1597*X1+5.1516*X2 &" J"& YPOS+3.1597*Y1+5.1516*Y2
      Code GM&" X" & XPOS+1.562*X1+2.0911*X2 &" Y" & YPOS+1.562*Y1+2.0911*Y2 &" I"& XPOS+6.4798*X1+3.8127*X2 &" J"& YPOS+6.4798*Y1+3.8127*Y2
      Code GM&" X" & XPOS+2.33*X1+1.1523*X2 &" Y" & YPOS+2.33*Y1+1.1523*Y2 &" I"& XPOS+3.2357*X1+2.6761*X2 &" J"& YPOS+3.2357*Y1+2.6761*Y2
      Code GM&" X" & XPOS+3.6434*X1+0.8631*X2 &" Y" & YPOS+3.6434*Y1+0.8631*Y2 &" I"& XPOS+3.4238*X1+2.9933*X2 &" J"& YPOS+3.4238*Y1+2.9933*Y2
      Code GM&" X" & XPOS+4.803*X1+1.3902*X2 &" Y" & YPOS+4.803*Y1+1.3902*Y2 &" I"& XPOS+3.4382*X1+2.8531*X2 &" J"& YPOS+3.4382*Y1+2.8531*Y2
      Code GM&" X" & XPOS+5.2472*X1+2.13*X2 &" Y" & YPOS+5.2472*Y1+2.13*Y2 &" I"& XPOS+3.7363*X1+2.5332*X2 &" J"& YPOS+3.7363*Y1+2.5332*Y2
      Largo=6.6751
    Case 44   'r
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+7.45*X2 &" Y" & YPOS+7.45*Y2
      Code "G01 X" & XPOS+1.16*X1+7.45*X2 &" Y" & YPOS+1.16*Y1+7.45*Y2
      Code "G01 X" & XPOS+1.16*X1+6.1933*X2 &" Y" & YPOS+1.16*Y1+6.1933*Y2
      Code GG&" X" & XPOS+1.99*X1+7.1632*X2 &" Y" & YPOS+1.99*Y1+7.1632*Y2 &" I"& XPOS+4.1626*X1+4.4643*X2 &" J"& YPOS+4.1626*Y1+4.4643*Y2
      Code GG&" X" & XPOS+3.4833*X1+7.6431*X2 &" Y" & YPOS+3.4833*Y1+7.6431*Y2 &" I"& XPOS+3.3614*X1+5.4602*X2 &" J"& YPOS+3.3614*Y1+5.4602*Y2
      Code "G01 X" & XPOS+3.4833*X1+6.3864*X2 &" Y" & YPOS+3.4833*Y1+6.3864*Y2
      Code GM&" X" & XPOS+2.1066*X1+6.063*X2 &" Y" & YPOS+2.1066*Y1+6.063*Y2 &" I"& XPOS+3.3738*X1+3.7604*X2 &" J"& YPOS+3.3738*Y1+3.7604*Y2
      Code GM&" X" & XPOS+1.3065*X1+5.2862*X2 &" Y" & YPOS+1.3065*Y1+5.2862*Y2 &" I"& XPOS+3.1228*X1+4.216*X2 &" J"& YPOS+3.1228*Y1+4.216*Y2
      Code GM&" X" & XPOS+1.1631*X1+4.7606*X2 &" Y" & YPOS+1.1631*Y1+4.7606*Y2 &" I"& XPOS+2.1984*X1+4.7612*X2 &" J"& YPOS+2.1984*Y1+4.7612*Y2
      Code "G01 X" & XPOS+1.1631*X1+-0.0004*X2 &" Y" & YPOS+1.1631*Y1+-0.0004*Y2
      Code "G01 X" & XPOS+0.003*X1+-0.0004*X2 &" Y" & YPOS+0.003*Y1+-0.0004*Y2
      Largo=3.4833
    Case 52   's
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.0033*X1+2.3637*X2 &" Y" & YPOS+0.0033*Y1+2.3637*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.0009*X1+2.3637*X2 &" Y" & YPOS+1.0009*Y1+2.3637*Y2
      Code GM&" X" & XPOS+1.1912*X1+1.6545*X2 &" Y" & YPOS+1.1912*Y1+1.6545*Y2 &" I"& XPOS+2.8313*X1+2.4747*X2 &" J"& YPOS+2.8313*Y1+2.4747*Y2
      Code GM&" X" & XPOS+1.9104*X1+1.041*X2 &" Y" & YPOS+1.9104*Y1+1.041*Y2 &" I"& XPOS+2.2748*X1+2.1965*X2 &" J"& YPOS+2.2748*Y1+2.1965*Y2
      Code GM&" X" & XPOS+3.1584*X1+0.8294*X2 &" Y" & YPOS+3.1584*Y1+0.8294*Y2 &" I"& XPOS+3.2985*X1+5.443*X2 &" J"& YPOS+3.2985*Y1+5.443*Y2
      Code GM&" X" & XPOS+3.9622*X1+1.0197*X2 &" Y" & YPOS+3.9622*Y1+1.0197*Y2 &" I"& XPOS+3.2066*X1+2.4174*X2 &" J"& YPOS+3.2066*Y1+2.4174*Y2
      Code GM&" X" & XPOS+4.491*X1+1.5274*X2 &" Y" & YPOS+4.491*Y1+1.5274*Y2 &" I"& XPOS+3.3077*X1+2.2307*X2 &" J"& YPOS+3.3077*Y1+2.2307*Y2
      Code GM&" X" & XPOS+4.7025*X1+2.3524*X2 &" Y" & YPOS+4.7025*Y1+2.3524*Y2 &" I"& XPOS+3.1901*X1+2.3004*X2 &" J"& YPOS+3.1901*Y1+2.3004*Y2
      Code GM&" X" & XPOS+4.3217*X1+2.9235*X2 &" Y" & YPOS+4.3217*Y1+2.9235*Y2 &" I"& XPOS+4.0502*X1+2.3304*X2 &" J"& YPOS+4.0502*Y1+2.3304*Y2
      Code GM&" X" & XPOS+3.5263*X1+3.1822*X2 &" Y" & YPOS+3.5263*Y1+3.1822*Y2 &" I"& XPOS+2.799*X1-0.4045*X2 &" J"& YPOS+2.799*Y1-0.4045*Y2
      Code "G01 X" & XPOS+1.4853*X1+3.5959*X2 &" Y" & YPOS+1.4853*Y1+3.5959*Y2
      Code GG&" X" & XPOS+0.6691*X1+4.0323*X2 &" Y" & YPOS+0.6691*Y1+4.0323*Y2 &" I"& XPOS+2.0894*X1+5.7069*X2 &" J"& YPOS+2.0894*Y1+5.7069*Y2
      Code GG&" X" & XPOS+0.2811*X1+4.5945*X2 &" Y" & YPOS+0.2811*Y1+4.5945*Y2 &" I"& XPOS+1.5173*X1+5.0323*X2 &" J"& YPOS+1.5173*Y1+5.0323*Y2
      Code GG&" X" & XPOS+0.2359*X1+5.9545*X2 &" Y" & YPOS+0.2359*Y1+5.9545*Y2 &" I"& XPOS+2.4009*X1+5.3455*X2 &" J"& YPOS+2.4009*Y1+5.3455*Y2
      Code GG&" X" & XPOS+0.7455*X1+6.8239*X2 &" Y" & YPOS+0.7455*Y1+6.8239*Y2 &" I"& XPOS+2.1514*X1+5.4165*X2 &" J"& YPOS+2.1514*Y1+5.4165*Y2
      Code GG&" X" & XPOS+1.7829*X1+7.3444*X2 &" Y" & YPOS+1.7829*Y1+7.3444*Y2 &" I"& XPOS+2.0508*X1+5.5169*X2 &" J"& YPOS+2.0508*Y1+5.5169*Y2
      Code GG&" X" & XPOS+4.004*X1+7.2597*X2 &" Y" & YPOS+4.004*Y1+7.2597*Y2 &" I"& XPOS+2.6656*X1+1.3224*X2 &" J"& YPOS+2.6656*Y1+1.3224*Y2
      Code GG&" X" & XPOS+4.8078*X1+6.8577*X2 &" Y" & YPOS+4.8078*Y1+6.8577*Y2 &" I"& XPOS+3.5916*X1+5.4307*X2 &" J"& YPOS+3.5916*Y1+5.4307*Y2
      Code GG&" X" & XPOS+5.2793*X1+6.1741*X2 &" Y" & YPOS+5.2793*Y1+6.1741*Y2 &" I"& XPOS+3.7657*X1+5.6347*X2 &" J"& YPOS+3.7657*Y1+5.6347*Y2
      Code GG&" X" & XPOS+5.3326*X1+5.6477*X2 &" Y" & YPOS+5.3326*Y1+5.6477*Y2 &" I"& XPOS+4.2376*X1+5.8031*X2 &" J"& YPOS+4.2376*Y1+5.8031*Y2
      Code "G01 X" & XPOS+4.3212*X1+5.6477*X2 &" Y" & YPOS+4.3212*Y1+5.6477*Y2
      Code GM&" X" & XPOS+4.1308*X1+6.096*X2 &" Y" & YPOS+4.1308*Y1+6.096*Y2 &" I"& XPOS+3.8141*X1+5.6967*X2 &" J"& YPOS+3.8141*Y1+5.6967*Y2
      Code GM&" X" & XPOS+3.5173*X1+6.371*X2 &" Y" & YPOS+3.5173*Y1+6.371*Y2 &" I"& XPOS+3.284*X1+5.029*X2 &" J"& YPOS+3.284*Y1+5.029*Y2
      Code GM&" X" & XPOS+2.5442*X1+6.4556*X2 &" Y" & YPOS+2.5442*Y1+6.4556*Y2 &" I"& XPOS+2.5362*X1+0.727*X2 &" J"& YPOS+2.5362*Y1+0.727*Y2
      Code GM&" X" & XPOS+1.6345*X1+6.2652*X2 &" Y" & YPOS+1.6345*Y1+6.2652*Y2 &" I"& XPOS+2.541*X1+4.2026*X2 &" J"& YPOS+2.541*Y1+4.2026*Y2
      Code GM&" X" & XPOS+1.1691*X1+5.7786*X2 &" Y" & YPOS+1.1691*Y1+5.7786*Y2 &" I"& XPOS+1.9876*X1+5.4622*X2 &" J"& YPOS+1.9876*Y1+5.4622*Y2
      Code GM&" X" & XPOS+1.1479*X1+5.0805*X2 &" Y" & YPOS+1.1479*Y1+5.0805*Y2 &" I"& XPOS+2.1474*X1+5.3996*X2 &" J"& YPOS+2.1474*Y1+5.3996*Y2
      Code GM&" X" & XPOS+1.7299*X1+4.5499*X2 &" Y" & YPOS+1.7299*Y1+4.5499*Y2 &" I"& XPOS+1.8995*X1+5.3195*X2 &" J"& YPOS+1.8995*Y1+5.3195*Y2
      Code "G01 X" & XPOS+4.0997*X1+4.0285*X2 &" Y" & YPOS+4.0997*Y1+4.0285*Y2
      Code GG&" X" & XPOS+4.8625*X1+3.6819*X2 &" Y" & YPOS+4.8625*Y1+3.6819*Y2 &" I"& XPOS+3.6081*X1+1.9335*X2 &" J"& YPOS+3.6081*Y1+1.9335*Y2
      Code GG&" X" & XPOS+5.442*X1+2.9226*X2 &" Y" & YPOS+5.442*Y1+2.9226*Y2 &" I"& XPOS+3.91*X1+2.3549*X2 &" J"& YPOS+3.91*Y1+2.3549*Y2
      Code GG&" X" & XPOS+5.5054*X1+1.611*X2 &" Y" & YPOS+5.5054*Y1+1.611*Y2 &" I"& XPOS+3.4055*X1+2.1676*X2 &" J"& YPOS+3.4055*Y1+2.1676*Y2
      Code GG&" X" & XPOS+4.7438*X1+0.4686*X2 &" Y" & YPOS+4.7438*Y1+0.4686*Y2 &" I"& XPOS+3.4533*X1+2.154*X2 &" J"& YPOS+3.4533*Y1+2.154*Y2
      Code GG&" X" & XPOS+3.7072*X1+0.0243*X2 &" Y" & YPOS+3.7072*Y1+0.0243*Y2 &" I"& XPOS+3.3505*X1+2.2876*X2 &" J"& YPOS+3.3505*Y1+2.2876*Y2
      Code GG&" X" & XPOS+2.0571*X1+0.0454*X2 &" Y" & YPOS+2.0571*Y1+0.0454*Y2 &" I"& XPOS+2.9441*X1+4.8663*X2 &" J"& YPOS+2.9441*Y1+4.8663*Y2
      Code GG&" X" & XPOS+1.1474*X1+0.3627*X2 &" Y" & YPOS+1.1474*Y1+0.3627*Y2 &" I"& XPOS+2.6263*X1+3.1394*X2 &" J"& YPOS+2.6263*Y1+3.1394*Y2
      Code GG&" X" & XPOS+0.28*X1+1.2511*X2 &" Y" & YPOS+0.28*Y1+1.2511*Y2 &" I"& XPOS+2.1096*X1+2.1687*X2 &" J"& YPOS+2.1096*Y1+2.1687*Y2
      Code GG&" X" & XPOS+-0.0016*X1+2.3523*X2 &" Y" & YPOS+-0.0016*Y1+2.3523*Y2 &" I"& XPOS+2.6627*X1+2.4471*X2 &" J"& YPOS+2.6627*Y1+2.4471*Y2
      Largo=5.5054
    Case 45   't
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.1785*X1+0.1132*X2 &" Y" & YPOS+4.1785*Y1+0.1132*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+2.7624*X1+0.1251*X2 &" Y" & YPOS+2.7624*Y1+0.1251*Y2 &" I"& XPOS+3.493*X1+2.8052*X2 &" J"& YPOS+3.493*Y1+2.8052*Y2
      Code GG&" X" & XPOS+1.9694*X1+0.5343*X2 &" Y" & YPOS+1.9694*Y1+0.5343*Y2 &" I"& XPOS+3.3244*X1+2.1861*X2 &" J"& YPOS+3.3244*Y1+2.1861*Y2
      Code GG&" X" & XPOS+1.3538*X1+1.835*X2 &" Y" & YPOS+1.3538*Y1+1.835*Y2 &" I"& XPOS+3.0359*X1+1.8343*X2 &" J"& YPOS+3.0359*Y1+1.8343*Y2
      Code "G01 X" & XPOS+1.3538*X1+7.4497*X2 &" Y" & YPOS+1.3538*Y1+7.4497*Y2
      Code "G01 X" & XPOS+-0.0001*X1+7.4497*X2 &" Y" & YPOS+-0.0001*Y1+7.4497*Y2
      Code "G01 X" & XPOS+-0.0001*X1+8.6902*X2 &" Y" & YPOS+-0.0001*Y1+8.6902*Y2
      Code "G01 X" & XPOS+1.3538*X1+8.6902*X2 &" Y" & YPOS+1.3538*Y1+8.6902*Y2
      Code "G01 X" & XPOS+1.3538*X1+11.1746*X2 &" Y" & YPOS+1.3538*Y1+11.1746*Y2
      Code "G01 X" & XPOS+2.7077*X1+11.1746*X2 &" Y" & YPOS+2.7077*Y1+11.1746*Y2
      Code "G01 X" & XPOS+2.7077*X1+8.6901*X2 &" Y" & YPOS+2.7077*Y1+8.6901*Y2
      Code "G01 X" & XPOS+4.175*X1+8.6901*X2 &" Y" & YPOS+4.175*Y1+8.6901*Y2
      Code "G01 X" & XPOS+4.175*X1+7.4495*X2 &" Y" & YPOS+4.175*Y1+7.4495*Y2
      Code "G01 X" & XPOS+2.7076*X1+7.4495*X2 &" Y" & YPOS+2.7076*Y1+7.4495*Y2
      Code "G01 X" & XPOS+2.7076*X1+2.1453*X2 &" Y" & YPOS+2.7076*Y1+2.1453*Y2
      Code GM&" X" & XPOS+3.2481*X1+1.3012*X2 &" Y" & YPOS+3.2481*Y1+1.3012*Y2 &" I"& XPOS+3.6369*X1+2.1453*X2 &" J"& YPOS+3.6369*Y1+2.1453*Y2
      Code GM&" X" & XPOS+4.1748*X1+1.2365*X2 &" Y" & YPOS+4.1748*Y1+1.2365*Y2 &" I"& XPOS+3.7968*X1+2.4922*X2 &" J"& YPOS+3.7968*Y1+2.4922*Y2
      Code "G01 X" & XPOS+4.1748*X1+0.106*X2 &" Y" & YPOS+4.1748*Y1+0.106*Y2
      Largo=4.1785
    Case 47   'u
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.1899*X1 &" Y" & YPOS+6.1899*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+5.0299*X1 &" Y" & YPOS+5.0299*Y1
      Code "G01 X" & XPOS+5.0299*X1+0.9666*X2 &" Y" & YPOS+5.0299*Y1+0.9666*Y2
      Code GG&" X" & XPOS+4.0132*X1+0.1999*X2 &" Y" & YPOS+4.0132*Y1+0.1999*Y2 &" I"& XPOS+2.566*X1+3.1766*X2 &" J"& YPOS+2.566*Y1+3.1766*Y2
      Code GG&" X" & XPOS+2.8165*X1+-0.1734*X2 &" Y" & YPOS+2.8165*Y1+-0.1734*Y2 &" I"& XPOS+2.1803*X1+3.9689*X2 &" J"& YPOS+2.1803*Y1+3.9689*Y2
      Code GG&" X" & XPOS+1.4098*X1+-0.0834*X2 &" Y" & YPOS+1.4098*Y1+-0.0834*Y2 &" I"& XPOS+2.3179*X1+3.0726*X2 &" J"& YPOS+2.3179*Y1+3.0726*Y2
      Code GG&" X" & XPOS+0.1831*X1+1.0699*X2 &" Y" & YPOS+0.1831*Y1+1.0699*Y2 &" I"& XPOS+1.9191*X1+1.6866*X2 &" J"& YPOS+1.9191*Y1+1.6866*Y2
      Code GG&" X" & XPOS+-0.0002*X1+2.1326*X2 &" Y" & YPOS+-0.0002*Y1+2.1326*Y2 &" I"& XPOS+3.1715*X1+2.1319*X2 &" J"& YPOS+3.1715*Y1+2.1319*Y2
      Code "G01 X" & XPOS+-0.0002*X1+7.4498*X2 &" Y" & YPOS+-0.0002*Y1+7.4498*Y2
      Code "G01 X" & XPOS+1.1597*X1+7.4498*X2 &" Y" & YPOS+1.1597*Y1+7.4498*Y2
      Code "G01 X" & XPOS+1.1597*X1+2.2264*X2 &" Y" & YPOS+1.1597*Y1+2.2264*Y2
      Code GM&" X" & XPOS+1.3197*X1+1.5197*X2 &" Y" & YPOS+1.3197*Y1+1.5197*Y2 &" I"& XPOS+2.8003*X1+2.2264*X2 &" J"& YPOS+2.8003*Y1+2.2264*Y2
      Code GM&" X" & XPOS+2.173*X1+0.893*X2 &" Y" & YPOS+2.173*Y1+0.893*Y2 &" I"& XPOS+2.3307*X1+2.0017*X2 &" J"& YPOS+2.3307*Y1+2.0017*Y2
      Code GM&" X" & XPOS+3.5796*X1+0.9829*X2 &" Y" & YPOS+3.5796*Y1+0.9829*Y2 &" I"& XPOS+2.6601*X1+4.318*X2 &" J"& YPOS+2.6601*Y1+4.318*Y2
      Code GM&" X" & XPOS+4.6429*X1+1.7296*X2 &" Y" & YPOS+4.6429*Y1+1.7296*Y2 &" I"& XPOS+3.0665*X1+2.8439*X2 &" J"& YPOS+3.0665*Y1+2.8439*Y2
      Code GM&" X" & XPOS+5.0337*X1+2.9597*X2 &" Y" & YPOS+5.0337*Y1+2.9597*Y2 &" I"& XPOS+2.9027*X1+2.9596*X2 &" J"& YPOS+2.9027*Y1+2.9596*Y2
      Code "G01 X" & XPOS+5.0337*X1+7.4495*X2 &" Y" & YPOS+5.0337*Y1+7.4495*Y2
      Code "G01 X" & XPOS+6.1937*X1+7.4495*X2 &" Y" & YPOS+6.1937*Y1+7.4495*Y2
      Code "G01 X" & XPOS+6.1937*X1+-0.0004*X2 &" Y" & YPOS+6.1937*Y1+-0.0004*Y2
      Largo=6.1937
    Case 64   'v
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.45*X2 &" Y" & YPOS+7.45*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.2566*X1+7.45*X2 &" Y" & YPOS+1.2566*Y1+7.45*Y2
      Code "G01 X" & XPOS+3.3865*X1+1.45*X2 &" Y" & YPOS+3.3865*Y1+1.45*Y2
      Code "G01 X" & XPOS+5.5164*X1+7.4499*X2 &" Y" & YPOS+5.5164*Y1+7.4499*Y2
      Code "G01 X" & XPOS+6.773*X1+7.4499*X2 &" Y" & YPOS+6.773*Y1+7.4499*Y2
      Code "G01 X" & XPOS+4.063*X1 &" Y" & YPOS+4.063*Y1
      Code "G01 X" & XPOS+2.7096*X1 &" Y" & YPOS+2.7096*Y1
      Code "G01 X" & XPOS+-0.0003*X1+7.45*X2 &" Y" & YPOS+-0.0003*Y1+7.45*Y2
      Largo=6.773
    Case 42   'w
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.0066*X1+7.45*X2 &" Y" & YPOS+0.0066*Y1+7.45*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.2632*X1+7.45*X2 &" Y" & YPOS+1.2632*Y1+7.45*Y2
      Code "G01 X" & XPOS+2.8098*X1+1.6433*X2 &" Y" & YPOS+2.8098*Y1+1.6433*Y2
      Code "G01 X" & XPOS+4.3564*X1+4.7266*X2 &" Y" & YPOS+4.3564*Y1+4.7266*Y2
      Code "G01 X" & XPOS+5.7097*X1+4.7266*X2 &" Y" & YPOS+5.7097*Y1+4.7266*Y2
      Code "G01 X" & XPOS+7.2563*X1+1.6432*X2 &" Y" & YPOS+7.2563*Y1+1.6432*Y2
      Code "G01 X" & XPOS+8.7063*X1+7.4498*X2 &" Y" & YPOS+8.7063*Y1+7.4498*Y2
      Code "G01 X" & XPOS+10.0596*X1+7.4498*X2 &" Y" & YPOS+10.0596*Y1+7.4498*Y2
      Code "G01 X" & XPOS+7.9296*X1+-0.0002*X2 &" Y" & YPOS+7.9296*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+6.5762*X1+-0.0002*X2 &" Y" & YPOS+6.5762*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+5.0295*X1+3.2965*X2 &" Y" & YPOS+5.0295*Y1+3.2965*Y2
      Code "G01 X" & XPOS+3.4828*X1+-0.0002*X2 &" Y" & YPOS+3.4828*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+2.1294*X1+-0.0002*X2 &" Y" & YPOS+2.1294*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+-0.0005*X1+7.4498*X2 &" Y" & YPOS+-0.0005*Y1+7.4498*Y2
      Largo=10.0596
    Case 62   'x
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+2.6132*X1+3.87*X2 &" Y" & YPOS+2.6132*Y1+3.87*Y2
      Code "G01 X" & XPOS+0.1932*X1+7.4499*X2 &" Y" & YPOS+0.1932*Y1+7.4499*Y2
      Code "G01 X" & XPOS+1.5465*X1+7.4499*X2 &" Y" & YPOS+1.5465*Y1+7.4499*Y2
      Code "G01 X" & XPOS+3.3831*X1+4.7398*X2 &" Y" & YPOS+3.3831*Y1+4.7398*Y2
      Code "G01 X" & XPOS+5.2197*X1+7.4498*X2 &" Y" & YPOS+5.2197*Y1+7.4498*Y2
      Code "G01 X" & XPOS+6.573*X1+7.4498*X2 &" Y" & YPOS+6.573*Y1+7.4498*Y2
      Code "G01 X" & XPOS+4.153*X1+3.8698*X2 &" Y" & YPOS+4.153*Y1+3.8698*Y2
      Code "G01 X" & XPOS+6.7662*X1+-0.0002*X2 &" Y" & YPOS+6.7662*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+5.4128*X1+-0.0002*X2 &" Y" & YPOS+5.4128*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+3.3794*X1+2.9998*X2 &" Y" & YPOS+3.3794*Y1+2.9998*Y2
      Code "G01 X" & XPOS+1.3461*X1+-0.0002*X2 &" Y" & YPOS+1.3461*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+-0.0072*X1+-0.0002*X2 &" Y" & YPOS+-0.0072*Y1+-0.0002*Y2
      Largo=6.7662
    Case 46   'y
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.8228*X1+-0.6311*X2 &" Y" & YPOS+0.8228*Y1+-0.6311*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+1.6121*X1+-0.5542*X2 &" Y" & YPOS+1.6121*Y1+-0.5542*Y2 &" I"& XPOS+0.9639*X1+2.0119*X2 &" J"& YPOS+0.9639*Y1+2.0119*Y2
      Code GM&" X" & XPOS+2.3346*X1+0.2084*X2 &" Y" & YPOS+2.3346*Y1+0.2084*Y2 &" I"& XPOS+1.3718*X1+0.3968*X2 &" J"& YPOS+1.3718*Y1+0.3968*Y2
      Code GM&" X" & XPOS+2.2611*X1+1.1713*X2 &" Y" & YPOS+2.2611*Y1+1.1713*Y2 &" I"& XPOS+0.5551*X1+0.5564*X2 &" J"& YPOS+0.5551*Y1+0.5564*Y2
      Code "G01 X" & XPOS+-0.0001*X1+7.4499*X2 &" Y" & YPOS+-0.0001*Y1+7.4499*Y2
      Code "G01 X" & XPOS+1.0869*X1+7.4499*X2 &" Y" & YPOS+1.0869*Y1+7.4499*Y2
      Code "G01 X" & XPOS+2.9265*X1+2.1784*X2 &" Y" & YPOS+2.9265*Y1+2.1784*Y2
      Code "G01 X" & XPOS+4.7661*X1+7.4498*X2 &" Y" & YPOS+4.7661*Y1+7.4498*Y2
      Code "G01 X" & XPOS+5.8531*X1+7.4498*X2 &" Y" & YPOS+5.8531*Y1+7.4498*Y2
      Code "G01 X" & XPOS+3.0935*X1+-0.3872*X2 &" Y" & YPOS+3.0935*Y1+-0.3872*Y2
      Code GG&" X" & XPOS+2.5014*X1+-1.2334*X2 &" Y" & YPOS+2.5014*Y1+-1.2334*Y2 &" I"& XPOS+1.2798*X1+0.2508*X2 &" J"& YPOS+1.2798*Y1+0.2508*Y2
      Code GG&" X" & XPOS+1.916*X1+-1.5076*X2 &" Y" & YPOS+1.916*Y1+-1.5076*Y2 &" I"& XPOS+1.6725*X1-0.2264*X2 &" J"& YPOS+1.6725*Y1-0.2264*Y2
      Code GG&" X" & XPOS+0.7452*X1+-1.5076*X2 &" Y" & YPOS+0.7452*Y1+-1.5076*Y2 &" I"& XPOS+1.3306*X1+1.5734*X2 &" J"& YPOS+1.3306*Y1+1.5734*Y2
      Code "G01 X" & XPOS+0.8154*X1+-0.6346*X2 &" Y" & YPOS+0.8154*Y1+-0.6346*Y2
      Largo=5.8531
    Case 61   'z
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.0993*X1 &" Y" & YPOS+6.0993*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS &" Y" & YPOS
      Code "G01 X" & XPOS+1.0637*X2 &" Y" & YPOS+1.0637*Y2
      Code "G01 X" & XPOS+4.3552*X1+6.2894*X2 &" Y" & YPOS+4.3552*Y1+6.2894*Y2
      Code "G01 X" & XPOS+0.29*X1+6.2894*X2 &" Y" & YPOS+0.29*Y1+6.2894*Y2
      Code "G01 X" & XPOS+0.29*X1+7.4499*X2 &" Y" & YPOS+0.29*Y1+7.4499*Y2
      Code "G01 X" & XPOS+5.9058*X1+7.4499*X2 &" Y" & YPOS+5.9058*Y1+7.4499*Y2
      Code "G01 X" & XPOS+5.9058*X1+6.386*X2 &" Y" & YPOS+5.9058*Y1+6.386*Y2
      Code "G01 X" & XPOS+1.6472*X1+1.1604*X2 &" Y" & YPOS+1.6472*Y1+1.1604*Y2
      Code "G01 X" & XPOS+6.0991*X1+1.1604*X2 &" Y" & YPOS+6.0991*Y1+1.1604*Y2
      Code "G01 X" & XPOS+6.0991*X1+-0.0001*X2 &" Y" & YPOS+6.0991*Y1+-0.0001*Y2
      Largo=6.0993
    Case 78   '$
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.2656*X1+0.9275*X2 &" Y" & YPOS+2.2656*Y1+0.9275*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+2.2656*X1+1.8496*X2 &" Y" & YPOS+2.2656*Y1+1.8496*Y2
      Code GG&" X" & XPOS+1.3865*X1+1.9855*X2 &" Y" & YPOS+1.3865*Y1+1.9855*Y2 &" I"& XPOS+2.2492*X1+4.6526*X2 &" J"& YPOS+2.2492*Y1+4.6526*Y2
      Code GG&" X" & XPOS+0.1127*X1+3.4119*X2 &" Y" & YPOS+0.1127*Y1+3.4119*Y2 &" I"& XPOS+1.9693*X1+3.7875*X2 &" J"& YPOS+1.9693*Y1+3.7875*Y2
      Code GG&" X" & XPOS+4.2577*X2 &" Y" & YPOS+4.2577*Y2 &" I"& XPOS+6.3343*X1+4.6719*X2 &" J"& YPOS+6.3343*Y1+4.6719*Y2
      Code "G01 X" & XPOS+0.869*X1+4.2577*X2 &" Y" & YPOS+0.869*Y1+4.2577*Y2
      Code GM&" X" & XPOS+0.9618*X1+3.5279*X2 &" Y" & YPOS+0.9618*Y1+3.5279*Y2 &" I"& XPOS+4.2144*X1+4.3127*X2 &" J"& YPOS+4.2144*Y1+4.3127*Y2
      Code GM&" X" & XPOS+1.6716*X1+2.7915*X2 &" Y" & YPOS+1.6716*Y1+2.7915*Y2 &" I"& XPOS+1.9447*X1+3.7649*X2 &" J"& YPOS+1.9447*Y1+3.7649*Y2
      Code GM&" X" & XPOS+2.2687*X1+2.6986*X2 &" Y" & YPOS+2.2687*Y1+2.6986*Y2 &" I"& XPOS+2.3582*X1+5.2395*X2 &" J"& YPOS+2.3582*Y1+5.2395*Y2
      Code "G01 X" & XPOS+2.2687*X1+5.3191*X2 &" Y" & YPOS+2.2687*Y1+5.3191*Y2
      Code GG&" X" & XPOS+1.6417*X1+5.4616*X2 &" Y" & YPOS+1.6417*Y1+5.4616*Y2 &" I"& XPOS+3.7931*X1+13.4721*X2 &" J"& YPOS+3.7931*Y1+13.4721*Y2
      Code GG&" X" & XPOS+0.4973*X1+6.2411*X2 &" Y" & YPOS+0.4973*Y1+6.2411*Y2 &" I"& XPOS+2.1868*X1+7.4906*X2 &" J"& YPOS+2.1868*Y1+7.4906*Y2
      Code GG&" X" & XPOS+0.2153*X1+6.878*X2 &" Y" & YPOS+0.2153*Y1+6.878*Y2 &" I"& XPOS+1.7781*X1+7.1881*X2 &" J"& YPOS+1.7781*Y1+7.1881*Y2
      Code GG&" X" & XPOS+0.2683*X1+7.8466*X2 &" Y" & YPOS+0.2683*Y1+7.8466*Y2 &" I"& XPOS+2.1292*X1+7.258*X2 &" J"& YPOS+2.1292*Y1+7.258*Y2
      Code GG&" X" & XPOS+0.3578*X1+8.0854*X2 &" Y" & YPOS+0.3578*Y1+8.0854*Y2 &" I"& XPOS+1.4611*X1+7.5356*X2 &" J"& YPOS+1.4611*Y1+7.5356*Y2
      Code GG&" X" & XPOS+1.5188*X1+9.1435*X2 &" Y" & YPOS+1.5188*Y1+9.1435*Y2 &" I"& XPOS+2.3547*X1+7.0604*X2 &" J"& YPOS+2.3547*Y1+7.0604*Y2
      Code GG&" X" & XPOS+2.2717*X1+9.2894*X2 &" Y" & YPOS+2.2717*Y1+9.2894*Y2 &" I"& XPOS+2.2743*X1+7.2615*X2 &" J"& YPOS+2.2743*Y1+7.2615*Y2
      Code "G01 X" & XPOS+2.2717*X1+9.9993*X2 &" Y" & YPOS+2.2717*Y1+9.9993*Y2
      Code "G01 X" & XPOS+2.8389*X1+9.9993*X2 &" Y" & YPOS+2.8389*Y1+9.9993*Y2
      Code "G01 X" & XPOS+2.8389*X1+9.2893*X2 &" Y" & YPOS+2.8389*Y1+9.2893*Y2
      Code GG&" X" & XPOS+3.8406*X1+9.0405*X2 &" Y" & YPOS+3.8406*Y1+9.0405*Y2 &" I"& XPOS+2.6101*X1+6.2273*X2 &" J"& YPOS+2.6101*Y1+6.2273*Y2
      Code GG&" X" & XPOS+4.8224*X1+7.9425*X2 &" Y" & YPOS+4.8224*Y1+7.9425*Y2 &" I"& XPOS+3.1309*X1+7.4185*X2 &" J"& YPOS+3.1309*Y1+7.4185*Y2
      Code GG&" X" & XPOS+4.8754*X1+7.3753*X2 &" Y" & YPOS+4.8754*Y1+7.3753*Y2 &" I"& XPOS+3.5015*X1+7.5335*X2 &" J"& YPOS+3.5015*Y1+7.5335*Y2
      Code "G01 X" & XPOS+4.1522*X1+7.3753*X2 &" Y" & YPOS+4.1522*Y1+7.3753*Y2
      Code GM&" X" & XPOS+3.9664*X1+8.0056*X2 &" Y" & YPOS+3.9664*Y1+8.0056*Y2 &" I"& XPOS+3.1214*X1+7.4133*X2 &" J"& YPOS+3.1214*Y1+7.4133*Y2
      Code GM&" X" & XPOS+3.4688*X1+8.4003*X2 &" Y" & YPOS+3.4688*Y1+8.4003*Y2 &" I"& XPOS+3.0546*X1+7.3676*X2 &" J"& YPOS+3.0546*Y1+7.3676*Y2
      Code GM&" X" & XPOS+2.8385*X1+8.5097*X2 &" Y" & YPOS+2.8385*Y1+8.5097*Y2 &" I"& XPOS+2.8817*X1+6.8893*X2 &" J"& YPOS+2.8817*Y1+6.8893*Y2
      Code "G01 X" & XPOS+2.8385*X1+6.1014*X2 &" Y" & YPOS+2.8385*Y1+6.1014*Y2
      Code GG&" X" & XPOS+3.7772*X1+5.8526*X2 &" Y" & YPOS+3.7772*Y1+5.8526*Y2 &" I"& XPOS+1.1415*X1-2.1966*X2 &" J"& YPOS+1.1415*Y1-2.1966*Y2
      Code GG&" X" & XPOS+4.7988*X1+5.0034*X2 &" Y" & YPOS+4.7988*Y1+5.0034*Y2 &" I"& XPOS+3.2158*X1+4.1386*X2 &" J"& YPOS+3.2158*Y1+4.1386*Y2
      Code GG&" X" & XPOS+5.0376*X1+3.5504*X2 &" Y" & YPOS+5.0376*Y1+3.5504*Y2 &" I"& XPOS+2.847*X1+3.9374*X2 &" J"& YPOS+2.847*Y1+3.9374*Y2
      Code GG&" X" & XPOS+3.9761*X1+2.134*X2 &" Y" & YPOS+3.9761*Y1+2.134*Y2 &" I"& XPOS+3.1083*X1+3.8894*X2 &" J"& YPOS+3.1083*Y1+3.8894*Y2
      Code GG&" X" & XPOS+2.8416*X1+1.852*X2 &" Y" & YPOS+2.8416*Y1+1.852*Y2 &" I"& XPOS+2.7644*X1+4.586*X2 &" J"& YPOS+2.7644*Y1+4.586*Y2
      Code "G01 X" & XPOS+2.8416*X1+0.9297*X2 &" Y" & YPOS+2.8416*Y1+0.9297*Y2
      Code "G01 X" & XPOS+2.2743*X1+0.9297*X2 &" Y" & YPOS+2.2743*Y1+0.9297*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.8415*X1+2.701*X2 &" Y" & YPOS+2.8415*Y1+2.701*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+3.349*X1+2.8205*X2 &" Y" & YPOS+3.349*Y1+2.8205*Y2 &" I"& XPOS+2.7207*X1+4.351*X2 &" J"& YPOS+2.7207*Y1+4.351*Y2
      Code GM&" X" & XPOS+3.9162*X1+3.3577*X2 &" Y" & YPOS+3.9162*Y1+3.3577*Y2 &" I"& XPOS+2.9374*X1+3.8225*X2 &" J"& YPOS+2.9374*Y1+3.8225*Y2
      Code GM&" X" & XPOS+3.946*X1+4.406*X2 &" Y" & YPOS+3.946*Y1+4.406*Y2 &" I"& XPOS+2.7423*X1+3.9157*X2 &" J"& YPOS+2.7423*Y1+3.9157*Y2
      Code GM&" X" & XPOS+3.4782*X1+4.9432*X2 &" Y" & YPOS+3.4782*Y1+4.9432*Y2 &" I"& XPOS+2.9265*X1+3.991*X2 &" J"& YPOS+2.9265*Y1+3.991*Y2
      Code GM&" X" & XPOS+2.8413*X1+5.1787*X2 &" Y" & YPOS+2.8413*Y1+5.1787*Y2 &" I"& XPOS+2.4766*X1+3.2152*X2 &" J"& YPOS+2.4766*Y1+3.2152*Y2
      Code "G01 X" & XPOS+2.8413*X1+2.6974*X2 &" Y" & YPOS+2.8413*Y1+2.6974*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.274*X1+6.1704*X2 &" Y" & YPOS+2.274*Y1+6.1704*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+2.274*X1+8.509*X2 &" Y" & YPOS+2.274*Y1+8.509*Y2
      Code GM&" X" & XPOS+1.7498*X1+8.3995*X2 &" Y" & YPOS+1.7498*Y1+8.3995*Y2 &" I"& XPOS+2.2824*X1+7.16*X2 &" J"& YPOS+2.2824*Y1+7.16*Y2
      Code GM&" X" & XPOS+0.9802*X1+7.4043*X2 &" Y" & YPOS+0.9802*Y1+7.4043*Y2 &" I"& XPOS+2.2608*X1+7.2095*X2 &" J"& YPOS+2.2608*Y1+7.2095*Y2
      Code GM&" X" & XPOS+1.5639*X1+6.3428*X2 &" Y" & YPOS+1.5639*Y1+6.3428*Y2 &" I"& XPOS+1.9644*X1+7.2543*X2 &" J"& YPOS+1.9644*Y1+7.2543*Y2
      Code GM&" X" & XPOS+2.2737*X1+6.1735*X2 &" Y" & YPOS+2.2737*Y1+6.1735*Y2 &" I"& XPOS+2.384*X1+8.2098*X2 &" J"& YPOS+2.384*Y1+8.2098*Y2
      Largo=5.0376
    Case 83   '%
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.6949*X1+5.6066*X2 &" Y" & YPOS+0.6949*Y1+5.6066*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+4.0582*X1+8.9699*X2 &" Y" & YPOS+4.0582*Y1+8.9699*Y2 &" I"& XPOS+2.3782*X1+7.2866*X2 &" J"& YPOS+2.3782*Y1+7.2866*Y2
      Code GG&" X" & XPOS+4.5348*X1+8.2433*X2 &" Y" & YPOS+4.5348*Y1+8.2433*Y2 &" I"& XPOS+2.5558*X1+7.4649*X2 &" J"& YPOS+2.5558*Y1+7.4649*Y2
      Code GG&" X" & XPOS+0.6948*X1+5.6065*X2 &" Y" & YPOS+0.6948*Y1+5.6065*Y2 &" I"& XPOS+2.4051*X1+7.2303*X2 &" J"& YPOS+2.4051*Y1+7.2303*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.3481*X1+6.2598*X2 &" Y" & YPOS+1.3481*Y1+6.2598*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+3.6814*X1+7.9397*X2 &" Y" & YPOS+3.6814*Y1+7.9397*Y2 &" I"& XPOS+2.3877*X1+7.2758*X2 &" J"& YPOS+2.3877*Y1+7.2758*Y2
      Code GM&" X" & XPOS+1.348*X1+6.2597*X2 &" Y" & YPOS+1.348*Y1+6.2597*Y2 &" I"& XPOS+2.3876*X1+7.2767*X2 &" J"& YPOS+2.3876*Y1+7.2767*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.0013*X1+-0.0003*X2 &" Y" & YPOS+2.0013*Y1+-0.0003*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+7.7946*X1+9.9996*X2 &" Y" & YPOS+7.7946*Y1+9.9996*Y2
      Code "G01 X" & XPOS+8.5412*X1+9.9996*X2 &" Y" & YPOS+8.5412*Y1+9.9996*Y2
      Code "G01 X" & XPOS+2.7478*X1+-0.0003*X2 &" Y" & YPOS+2.7478*Y1+-0.0003*Y2
      Code "G01 X" & XPOS+2.0011*X1+-0.0003*X2 &" Y" & YPOS+2.0011*Y1+-0.0003*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.4111*X1+0.3096*X2 &" Y" & YPOS+8.4111*Y1+0.3096*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+8.1677*X1+5.0462*X2 &" Y" & YPOS+8.1677*Y1+5.0462*Y2 &" I"& XPOS+8.2411*X1+2.6746*X2 &" J"& YPOS+8.2411*Y1+2.6746*Y2
      Code GG&" X" & XPOS+8.411*X1+0.3095*X2 &" Y" & YPOS+8.411*Y1+0.3095*Y2 &" I"& XPOS+8.241*X1+2.6762*X2 &" J"& YPOS+8.241*Y1+2.6762*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.1576*X1+1.2561*X2 &" Y" & YPOS+8.1576*Y1+1.2561*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+8.1675*X1+4.1094*X2 &" Y" & YPOS+8.1675*Y1+4.1094*Y2 &" I"& XPOS+8.2376*X1+2.6821*X2 &" J"& YPOS+8.2376*Y1+2.6821*Y2
      Code GM&" X" & XPOS+8.1575*X1+1.256*X2 &" Y" & YPOS+8.1575*Y1+1.256*Y2 &" I"& XPOS+8.2375*X1+2.6834*X2 &" J"& YPOS+8.2375*Y1+2.6834*Y2
      Largo=8.5412
    Case 79   '&
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.1621*X1+0.3503*X2 &" Y" & YPOS+8.1621*Y1+0.3503*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+6.6401*X1+0.3503*X2 &" Y" & YPOS+6.6401*Y1+0.3503*Y2
      Code "G01 X" & XPOS+5.6541*X1+1.515*X2 &" Y" & YPOS+5.6541*Y1+1.515*Y2
      Code GG&" X" & XPOS+4.6085*X1+0.5885*X2 &" Y" & YPOS+4.6085*Y1+0.5885*Y2 &" I"& XPOS+1.9345*X1+4.659*X2 &" J"& YPOS+1.9345*Y1+4.659*Y2
      Code GG&" X" & XPOS+3.3876*X1+0.0691*X2 &" Y" & YPOS+3.3876*Y1+0.0691*Y2 &" I"& XPOS+2.5626*X1+3.7025*X2 &" J"& YPOS+2.5626*Y1+3.7025*Y2
      Code GG&" X" & XPOS+0.0193*X1+3.0965*X2 &" Y" & YPOS+0.0193*Y1+3.0965*Y2 &" I"& XPOS+2.7736*X1+2.7731*X2 &" J"& YPOS+2.7736*Y1+2.7731*Y2
      Code GG&" X" & XPOS+0.7869*X1+4.7673*X2 &" Y" & YPOS+0.7869*Y1+4.7673*Y2 &" I"& XPOS+2.9766*X1+2.7505*X2 &" J"& YPOS+2.9766*Y1+2.7505*Y2
      Code GG&" X" & XPOS+2.1599*X1+5.7268*X2 &" Y" & YPOS+2.1599*Y1+5.7268*Y2 &" I"& XPOS+3.6565*X1+2.1233*X2 &" J"& YPOS+3.6565*Y1+2.1233*Y2
      Code GG&" X" & XPOS+1.5312*X1+6.534*X2 &" Y" & YPOS+1.5312*Y1+6.534*Y2 &" I"& XPOS+4.7492*X1+8.3908*X2 &" J"& YPOS+4.7492*Y1+8.3908*Y2
      Code GG&" X" & XPOS+1.1738*X1+8.5059*X2 &" Y" & YPOS+1.1738*Y1+8.5059*Y2 &" I"& XPOS+4.1025*X1+8.018*X2 &" J"& YPOS+4.1025*Y1+8.018*Y2
      Code GG&" X" & XPOS+2.3185*X1+9.8458*X2 &" Y" & YPOS+2.3185*Y1+9.8458*Y2 &" I"& XPOS+2.8588*X1+8.2259*X2 &" J"& YPOS+2.8588*Y1+8.2259*Y2
      Code GG&" X" & XPOS+4.9356*X1+9.4918*X2 &" Y" & YPOS+4.9356*Y1+9.4918*Y2 &" I"& XPOS+3.2664*X1+7.0028*X2 &" J"& YPOS+3.2664*Y1+7.0028*Y2
      Code GG&" X" & XPOS+5.6139*X1+7.9731*X2 &" Y" & YPOS+5.6139*Y1+7.9731*Y2 &" I"& XPOS+4.0638*X1+8.1918*X2 &" J"& YPOS+4.0638*Y1+8.1918*Y2
      Code GG&" X" & XPOS+5.1209*X1+6.5999*X2 &" Y" & YPOS+5.1209*Y1+6.5999*Y2 &" I"& XPOS+2.0601*X1+8.4731*X2 &" J"& YPOS+2.0601*Y1+8.4731*Y2
      Code GG&" X" & XPOS+3.7709*X1+5.4617*X2 &" Y" & YPOS+3.7709*Y1+5.4617*Y2 &" I"& XPOS+2.734*X1+8.0609*X2 &" J"& YPOS+2.734*Y1+8.0609*Y2
      Code "G01 X" & XPOS+5.7395*X1+3.3109*X2 &" Y" & YPOS+5.7395*Y1+3.3109*Y2
      Code GM&" X" & XPOS+6.6129*X1+4.6609*X2 &" Y" & YPOS+6.6129*Y1+4.6609*Y2 &" I"& XPOS+2.7044*X1+6.2319*X2 &" J"& YPOS+2.7044*Y1+6.2319*Y2
      Code "G01 X" & XPOS+7.5625*X1+4.3002*X2 &" Y" & YPOS+7.5625*Y1+4.3002*Y2
      Code GG&" X" & XPOS+6.454*X1+2.4175*X2 &" Y" & YPOS+6.454*Y1+2.4175*Y2 &" I"& XPOS+2.36*X1+6.0952*X2 &" J"& YPOS+2.36*Y1+6.0952*Y2
      Code "G01 X" & XPOS+8.1546*X1+0.3562*X2 &" Y" & YPOS+8.1546*Y1+0.3562*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.0213*X1+2.3281*X2 &" Y" & YPOS+5.0213*Y1+2.3281*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+2.692*X1+5.0147*X2 &" Y" & YPOS+2.692*Y1+5.0147*Y2
      Code GM&" X" & XPOS+1.5736*X1+4.1181*X2 &" Y" & YPOS+1.5736*Y1+4.1181*Y2 &" I"& XPOS+4.6957*X1+1.3697*X2 &" J"& YPOS+4.6957*Y1+1.3697*Y2
      Code GM&" X" & XPOS+1.1434*X1+3.3041*X2 &" Y" & YPOS+1.1434*Y1+3.3041*Y2 &" I"& XPOS+3.0529*X1+2.8161*X2 &" J"& YPOS+3.0529*Y1+2.8161*Y2
      Code GM&" X" & XPOS+3.0425*X1+1.0674*X2 &" Y" & YPOS+3.0425*Y1+1.0674*Y2 &" I"& XPOS+2.8853*X1+2.8591*X2 &" J"& YPOS+2.8853*Y1+2.8591*Y2
      Code GM&" X" & XPOS+4.1045*X1+1.428*X2 &" Y" & YPOS+4.1045*Y1+1.428*Y2 &" I"& XPOS+2.836*X1+3.4184*X2 &" J"& YPOS+2.836*Y1+3.4184*Y2
      Code GM&" X" & XPOS+5.021*X1+2.3247*X2 &" Y" & YPOS+5.021*Y1+2.3247*Y2 &" I"& XPOS+2.4307*X1+4.055*X2 &" J"& YPOS+2.4307*Y1+4.055*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.092*X1+6.1824*X2 &" Y" & YPOS+3.092*Y1+6.1824*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+4.1938*X1+7.0625*X2 &" Y" & YPOS+4.1938*Y1+7.0625*Y2 &" I"& XPOS+1.4017*X1+9.4274*X2 &" J"& YPOS+1.4017*Y1+9.4274*Y2
      Code GM&" X" & XPOS+4.5312*X1+8.1443*X2 &" Y" & YPOS+4.5312*Y1+8.1443*Y2 &" I"& XPOS+3.0848*X1+8.0015*X2 &" J"& YPOS+3.0848*Y1+8.0015*Y2
      Code GM&" X" & XPOS+4.0845*X1+8.935*X2 &" Y" & YPOS+4.0845*Y1+8.935*Y2 &" I"& XPOS+3.413*X1+8.0343*X2 &" J"& YPOS+3.413*Y1+8.0343*Y2
      Code GM&" X" & XPOS+2.7676*X1+9.0475*X2 &" Y" & YPOS+2.7676*Y1+9.0475*Y2 &" I"& XPOS+3.3354*X1+7.931*X2 &" J"& YPOS+3.3354*Y1+7.931*Y2
      Code GM&" X" & XPOS+2.1588*X1+8.1674*X2 &" Y" & YPOS+2.1588*Y1+8.1674*Y2 &" I"& XPOS+3.2772*X1+8.0445*X2 &" J"& YPOS+3.2772*Y1+8.0445*Y2
      Code GM&" X" & XPOS+2.4301*X1+7.039*X2 &" Y" & YPOS+2.4301*Y1+7.039*Y2 &" I"& XPOS+3.8613*X1+7.9804*X2 &" J"& YPOS+3.8613*Y1+7.9804*Y2
      Code GM&" X" & XPOS+3.0918*X1+6.182*X2 &" Y" & YPOS+3.0918*Y1+6.182*Y2 &" I"& XPOS+8.3894*X1+10.956*X2 &" J"& YPOS+8.3894*Y1+10.956*Y2
      Largo=8.1621
    Case 80   '(
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.2318*X1+-1.289*X2 &" Y" & YPOS+2.2318*Y1+-1.289*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+0.2812*X1+2.872*X2 &" Y" & YPOS+0.2812*Y1+2.872*Y2 &" I"& XPOS+12.1324*X1+5.889*X2 &" J"& YPOS+12.1324*Y1+5.889*Y2
      Code GG&" X" & XPOS+0.5147*X1+7.9179*X2 &" Y" & YPOS+0.5147*Y1+7.9179*Y2 &" I"& XPOS+8.683*X1+5.011*X2 &" J"& YPOS+8.683*Y1+5.011*Y2
      Code GG&" X" & XPOS+2.2284*X1+11.2566*X2 &" Y" & YPOS+2.2284*Y1+11.2566*Y2 &" I"& XPOS+13.9076*X1+3.1529*X2 &" J"& YPOS+13.9076*Y1+3.1529*Y2
      Code "G01 X" & XPOS+3.0408*X1+11.2566*X2 &" Y" & YPOS+3.0408*Y1+11.2566*Y2
      Code GM&" X" & XPOS+1.6855*X1+8.4573*X2 &" Y" & YPOS+1.6855*Y1+8.4573*Y2 &" I"& XPOS+9.2795*X1+6.5086*X2 &" J"& YPOS+9.2795*Y1+6.5086*Y2
      Code GM&" X" & XPOS+1.5605*X1+1.9804*X2 &" Y" & YPOS+1.5605*Y1+1.9804*Y2 &" I"& XPOS+15.3359*X1+4.9543*X2 &" J"& YPOS+15.3359*Y1+4.9543*Y2
      Code GM&" X" & XPOS+3.0374*X1+-1.2924*X2 &" Y" & YPOS+3.0374*Y1+-1.2924*Y2 &" I"& XPOS+9.9285*X1+3.7864*X2 &" J"& YPOS+9.9285*Y1+3.7864*Y2
      Code "G01 X" & XPOS+2.2249*X1+-1.2924*X2 &" Y" & YPOS+2.2249*Y1+-1.2924*Y2
      Largo=3.0408
    Case 81   ')
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+-0.7411*X1+-1.3832*X2 &" Y" & YPOS+-0.7411*Y1+-1.3832*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+0.7136*X1+1.8899*X2 &" Y" & YPOS+0.7136*Y1+1.8899*Y2 &" I"& XPOS-8.1075*X1+3.8498*X2 &" J"& YPOS-8.1075*Y1+3.8498*Y2
      Code GM&" X" & XPOS+0.6243*X1+8.4328*X2 &" Y" & YPOS+0.6243*Y1+8.4328*Y2 &" I"& XPOS-13.1565*X1+4.9719*X2 &" J"& YPOS-13.1565*Y1+4.9719*Y2
      Code GM&" X" & XPOS+-0.7411*X1+11.2497*X2 &" Y" & YPOS+-0.7411*Y1+11.2497*Y2 &" I"& XPOS-6.8201*X1+6.5638*X2 &" J"& YPOS-6.8201*Y1+6.5638*Y2
      Code "G01 X" & XPOS+0.0755*X1+11.2497*X2 &" Y" & YPOS+0.0755*Y1+11.2497*Y2
      Code GG&" X" & XPOS+1.8013*X1+7.8873*X2 &" Y" & YPOS+1.8013*Y1+7.8873*Y2 &" I"& XPOS-12.7886*X1+2.5227*X2 &" J"& YPOS-12.7886*Y1+2.5227*Y2
      Code GG&" X" & XPOS+2.036*X1+2.8055*X2 &" Y" & YPOS+2.036*Y1+2.8055*Y2 &" I"& XPOS-6.1186*X1+4.9753*X2 &" J"& YPOS-6.1186*Y1+4.9753*Y2
      Code GG&" X" & XPOS+0.072*X1+-1.3834*X2 &" Y" & YPOS+0.072*Y1+-1.3834*Y2 &" I"& XPOS-10.5633*X1+6.1575*X2 &" J"& YPOS-10.5633*Y1+6.1575*Y2
      Code "G01 X" & XPOS+-0.7446*X1+-1.3834*X2 &" Y" & YPOS+-0.7446*Y1+-1.3834*Y2
      Largo=2.036
    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
      Code "G01 X" & XPOS+8.2*X1+-1.55*X2 &" Y" & YPOS+8.2*Y1+-1.55*Y2
      Code "G01 X" & XPOS+-1.55*X2 &" Y" & YPOS+-1.55*Y2
      Code "G01 X" & XPOS+-0.65*X2 &" Y" & YPOS+-0.65*Y2
      Largo=8.2
    Case 38   '+
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.0529*X1+1.6329*X2 &" Y" & YPOS+3.0529*Y1+1.6329*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+3.0529*X1+4.7658*X2 &" Y" & YPOS+3.0529*Y1+4.7658*Y2
      Code "G01 X" & XPOS+4.7658*X2 &" Y" & YPOS+4.7658*Y2
      Code "G01 X" & XPOS+5.4882*X2 &" Y" & YPOS+5.4882*Y2
      Code "G01 X" & XPOS+3.0529*X1+5.4882*X2 &" Y" & YPOS+3.0529*Y1+5.4882*Y2
      Code "G01 X" & XPOS+3.0529*X1+8.6211*X2 &" Y" & YPOS+3.0529*Y1+8.6211*Y2
      Code "G01 X" & XPOS+3.7753*X1+8.6211*X2 &" Y" & YPOS+3.7753*Y1+8.6211*Y2
      Code "G01 X" & XPOS+3.7753*X1+5.4881*X2 &" Y" & YPOS+3.7753*Y1+5.4881*Y2
      Code "G01 X" & XPOS+6.8283*X1+5.4881*X2 &" Y" & YPOS+6.8283*Y1+5.4881*Y2
      Code "G01 X" & XPOS+6.8283*X1+4.7656*X2 &" Y" & YPOS+6.8283*Y1+4.7656*Y2
      Code "G01 X" & XPOS+3.7753*X1+4.7656*X2 &" Y" & YPOS+3.7753*Y1+4.7656*Y2
      Code "G01 X" & XPOS+3.7753*X1+1.6326*X2 &" Y" & YPOS+3.7753*Y1+1.6326*Y2
      Code "G01 X" & XPOS+3.0528*X1+1.6326*X2 &" Y" & YPOS+3.0528*Y1+1.6326*Y2
      Largo=6.8283
    Case 76   ':
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.5317*X2 &" Y" & YPOS+0.5317*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.7588*X2 &" Y" & YPOS+1.7588*Y2
      Code "G01 X" & XPOS+1.0637*X1+1.7588*X2 &" Y" & YPOS+1.0637*Y1+1.7588*Y2
      Code "G01 X" & XPOS+1.0637*X1+0.5316*X2 &" Y" & YPOS+1.0637*Y1+0.5316*Y2
      Code "G01 X" & XPOS+0.5316*X2 &" Y" & YPOS+0.5316*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.6069*X2 &" Y" & YPOS+5.6069*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+6.834*X2 &" Y" & YPOS+6.834*Y2
      Code "G01 X" & XPOS+1.0637*X1+6.834*X2 &" Y" & YPOS+1.0637*Y1+6.834*Y2
      Code "G01 X" & XPOS+1.0637*X1+5.6068*X2 &" Y" & YPOS+1.0637*Y1+5.6068*Y2
      Code "G01 X" & XPOS+5.6068*X2 &" Y" & YPOS+5.6068*Y2
      Largo=1.0637
    Case 82   '"
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.5912*X2 &" Y" & YPOS+7.5912*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+9.9999*X2 &" Y" & YPOS+9.9999*Y2
      Code "G01 X" & XPOS+0.5556*X1+9.9999*X2 &" Y" & YPOS+0.5556*Y1+9.9999*Y2
      Code "G01 X" & XPOS+0.5556*X1+7.5911*X2 &" Y" & YPOS+0.5556*Y1+7.5911*Y2
      Code "G01 X" & XPOS+7.5911*X2 &" Y" & YPOS+7.5911*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.2975*X1+7.5911*X2 &" Y" & YPOS+1.2975*Y1+7.5911*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.2975*X1+9.9998*X2 &" Y" & YPOS+1.2975*Y1+9.9998*Y2
      Code "G01 X" & XPOS+1.8531*X1+9.9998*X2 &" Y" & YPOS+1.8531*Y1+9.9998*Y2
      Code "G01 X" & XPOS+1.8531*X1+7.591*X2 &" Y" & YPOS+1.8531*Y1+7.591*Y2
      Code "G01 X" & XPOS+1.2974*X1+7.591*X2 &" Y" & YPOS+1.2974*Y1+7.591*Y2
      Largo=1.8531
    Case 70   '?
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.9859*X1 &" Y" & YPOS+1.9859*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.9859*X1+1.3601*X2 &" Y" & YPOS+1.9859*Y1+1.3601*Y2
      Code "G01 X" & XPOS+3.166*X1+1.3601*X2 &" Y" & YPOS+3.166*Y1+1.3601*Y2
      Code "G01 X" & XPOS+3.166*X1 &" Y" & YPOS+3.166*Y1
      Code "G01 X" & XPOS+1.9858*X1 &" Y" & YPOS+1.9858*Y1
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.9858*X1+2.5404*X2 &" Y" & YPOS+1.9858*Y1+2.5404*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+2.4492*X1+4.7107*X2 &" Y" & YPOS+2.4492*Y1+4.7107*Y2 &" I"& XPOS+5.7266*X1+2.8754*X2 &" J"& YPOS+5.7266*Y1+2.8754*Y2
      Code GG&" X" & XPOS+3.3693*X1+5.7408*X2 &" Y" & YPOS+3.3693*Y1+5.7408*Y2 &" I"& XPOS+5.2259*X1+3.1567*X2 &" J"& YPOS+5.2259*Y1+3.1567*Y2
      Code GM&" X" & XPOS+4.1994*X1+7.311*X2 &" Y" & YPOS+4.1994*Y1+7.311*Y2 &" I"& XPOS+2.2057*X1+7.3598*X2 &" J"& YPOS+2.2057*Y1+7.3598*Y2
      Code GM&" X" & XPOS+3.2559*X1+8.7112*X2 &" Y" & YPOS+3.2559*Y1+8.7112*Y2 &" I"& XPOS+2.7421*X1+7.347*X2 &" J"& YPOS+2.7421*Y1+7.347*Y2
      Code GM&" X" & XPOS+1.5756*X1+8.4644*X2 &" Y" & YPOS+1.5756*Y1+8.4644*Y2 &" I"& XPOS+2.6384*X1+7.0722*X2 &" J"& YPOS+2.6384*Y1+7.0722*Y2
      Code GM&" X" & XPOS+0.9888*X1+6.7141*X2 &" Y" & YPOS+0.9888*Y1+6.7141*Y2 &" I"& XPOS+2.5738*X1+7.1564*X2 &" J"& YPOS+2.5738*Y1+7.1564*Y2
      Code GG&" X" & XPOS+0.1186*X1+6.6907*X2 &" Y" & YPOS+0.1186*Y1+6.6907*Y2 &" I"& XPOS+0.4222*X1+11.5921*X2 &" J"& YPOS+0.4222*Y1+11.5921*Y2
      Code GG&" X" & XPOS+0.3652*X1+8.7977*X2 &" Y" & YPOS+0.3652*Y1+8.7977*Y2 &" I"& XPOS+2.5935*X1+7.4687*X2 &" J"& YPOS+2.5935*Y1+7.4687*Y2
      Code GG&" X" & XPOS+0.8819*X1+9.3811*X2 &" Y" & YPOS+0.8819*Y1+9.3811*Y2 &" I"& XPOS+2.1641*X1+7.7257*X2 &" J"& YPOS+2.1641*Y1+7.7257*Y2
      Code GG&" X" & XPOS+4.8725*X1+9.0377*X2 &" Y" & YPOS+4.8725*Y1+9.0377*Y2 &" I"& XPOS+2.6909*X1+7.0451*X2 &" J"& YPOS+2.6909*Y1+7.0451*Y2
      Code GG&" X" & XPOS+5.4125*X1+6.864*X2 &" Y" & YPOS+5.4125*Y1+6.864*Y2 &" I"& XPOS+3.1378*X1+7.4537*X2 &" J"& YPOS+3.1378*Y1+7.4537*Y2
      Code GG&" X" & XPOS+4.0422*X1+5.0937*X2 &" Y" & YPOS+4.0422*Y1+5.0937*Y2 &" I"& XPOS+2.6652*X1+7.574*X2 &" J"& YPOS+2.6652*Y1+7.574*Y2
      Code GM&" X" & XPOS+3.302*X1+4.1501*X2 &" Y" & YPOS+3.302*Y1+4.1501*Y2 &" I"& XPOS+4.7911*X1+3.7447*X2 &" J"& YPOS+4.7911*Y1+3.7447*Y2
      Code GM&" X" & XPOS+3.1653*X1+2.5432*X2 &" Y" & YPOS+3.1653*Y1+2.5432*Y2 &" I"& XPOS+7.6167*X1+2.9741*X2 &" J"& YPOS+7.6167*Y1+2.9741*Y2
      Code "G01 X" & XPOS+1.9851*X1+2.5432*X2 &" Y" & YPOS+1.9851*Y1+2.5432*Y2
      Largo=6
    Case 71   '¿
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.681*X1+9.3810*X2 &" Y" & YPOS+5.681*Y1+9.3810*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.6951*X1+9.3810*X2 &" Y" & YPOS+3.6951*Y1+9.3810*Y2
      Code "G00 Z"& Corte
      Code "G01 X"& XPOS+3.6951*X1+8.0209*X2 &" Y" & YPOS+3.6951*Y1+8.0209*Y2
      Code "G01 X"& XPOS+2.515*X1+8.0209*X2 &" Y" & YPOS+2.515*Y1+8.0209*Y2
      Code "G01 X"& XPOS+2.515*X1+9.3810*X2 &" Y" & YPOS+2.515*Y1+9.3810*Y2
      Code "G01 X"& XPOS+3.6952*X1+9.3810*X2 &" Y" & YPOS+3.6952*Y1+9.3810*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.6952*X1+6.8406*X2 &" Y" & YPOS+3.6952*Y1+6.8406*Y2
      Code "G00 Z"& Corte
      Code  GG&" X" & XPOS+3.2318*X1+4.6703*X2 &" Y" & YPOS+3.2318*Y1+4.6703*Y2 &" I"& XPOS-0.0455*X1+6.5056*X2 &" J"& YPOS-0.0455*Y1+6.5056*Y2
      Code  GG&" X" & XPOS+2.3117*X1+3.6402*X2 &" Y" & YPOS+2.3117*Y1+3.6402*Y2 &" I"& XPOS+0.4551*X1+6.2243*X2 &" J"& YPOS+0.4551*Y1+6.2243*Y2
      Code  GM&" X" & XPOS+1.4816*X1+2.0700*X2 &" Y" & YPOS+1.4816*Y1+2.0700*Y2 &" I"& XPOS+3.4753*X1+2.0212*X2 &" J"& YPOS+3.4753*Y1+2.0212*Y2
      Code  GM&" X" & XPOS+2.4251*X1+0.6698*X2 &" Y" & YPOS+2.4251*Y1+0.6698*Y2 &" I"& XPOS+2.9389*X1+2.034*X2 &" J"& YPOS+2.9389*Y1+2.034*Y2
      Code  GM&" X" & XPOS+4.1054*X1+0.9166*X2 &" Y" & YPOS+4.1054*Y1+0.9166*Y2 &" I"& XPOS+3.0426*X1+2.3088*X2 &" J"& YPOS+3.0426*Y1+2.3088*Y2
      Code  GM&" X" & XPOS+4.6922*X1+2.6669*X2 &" Y" & YPOS+4.6922*Y1+2.6669*Y2 &" I"& XPOS+3.1072*X1+2.2246*X2 &" J"& YPOS+3.1072*Y1+2.2246*Y2
      Code  GG&" X" & XPOS+5.5624*X1+2.6903*X2 &" Y" & YPOS+5.5624*Y1+2.6903*Y2 &" I"& XPOS+5.2588*X1-2.2111*X2 &" J"& YPOS+5.2588*Y1-2.2111*Y2
      Code  GG&" X" & XPOS+5.3158*X1+0.5833*X2 &" Y" & YPOS+5.3158*Y1+0.5833*Y2 &" I"& XPOS+3.0875*X1+1.9123*X2 &" J"& YPOS+3.0875*Y1+1.9123*Y2
      Code  GG&" X" & XPOS+4.7991*X1-0.0001*X2 &" Y" & YPOS+4.7991*Y1-0.0001*Y2 &" I"& XPOS+3.5169*X1+1.6553*X2 &" J"& YPOS+3.5169*Y1+1.6553*Y2
      Code  GG&" X" & XPOS+0.8085*X1+0.3433*X2 &" Y" & YPOS+0.8085*Y1+0.3433*Y2 &" I"& XPOS+2.9901*X1+2.3359*X2 &" J"& YPOS+2.9901*Y1+2.3359*Y2
      Code  GG&" X" & XPOS+0.2685*X1+2.5170*X2 &" Y" & YPOS+0.2685*Y1+2.5170*Y2 &" I"& XPOS+2.5432*X1+1.9273*X2 &" J"& YPOS+2.5432*Y1+1.9273*Y2
      Code  GG&" X" & XPOS+1.6388*X1+4.2873*X2 &" Y" & YPOS+1.6388*Y1+4.2873*Y2 &" I"& XPOS+3.0158*X1+1.807*X2 &" J"& YPOS+3.0158*Y1+1.807*Y2
      Code  GM&" X" & XPOS+2.379*X1+5.2309*X2 &" Y" & YPOS+2.379*Y1+5.2309*Y2 &" I"& XPOS+0.8899*X1+5.6363*X2 &" J"& YPOS+0.8899*Y1+5.6363*Y2
      Code  GM&" X" & XPOS+2.5157*X1+6.8378*X2 &" Y" & YPOS+2.5157*Y1+6.8378*Y2 &" I"& XPOS-1.9357*X1+6.4069*X2 &" J"& YPOS-1.9357*Y1+6.4069*Y2
      Code "G01 X"& XPOS+3.6959*X1+6.8378 *X2 &" Y" & YPOS+3.6959*Y1+6.8378 *Y2
      Largo=6
    Case 68   'coma
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.9615*X2 &" Y" & YPOS+0.9615*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+0.8949*X1+0.9615*X2 &" Y" & YPOS+0.8949*Y1+0.9615*Y2
      Code "G01 X" & XPOS+0.8949*X1+-0.0032*X2 &" Y" & YPOS+0.8949*Y1+-0.0032*Y2
      Code GG&" X" & XPOS+0.7917*X1+-0.7185*X2 &" Y" & YPOS+0.7917*Y1+-0.7185*Y2 &" I"& XPOS-1.8789*X1+0.0308*X2 &" J"& YPOS-1.8789*Y1+0.0308*Y2
      Code GG&" X" & XPOS+0.5022*X1+-1.2175*X2 &" Y" & YPOS+0.5022*Y1+-1.2175*Y2 &" I"& XPOS-0.3231*X1-0.4055*X2 &" J"& YPOS-0.3231*Y1-0.4055*Y2
      Code GG&" X" & XPOS+-0.0001*X1+-1.4504*X2 &" Y" & YPOS+-0.0001*Y1+-1.4504*Y2 &" I"& XPOS-0.059*X1-0.6655*X2 &" J"& YPOS-0.059*Y1-0.6655*Y2
      Code "G01 X" & XPOS+-0.0001*X1+-1.0811*X2 &" Y" & YPOS+-0.0001*Y1+-1.0811*Y2
      Code GM&" X" & XPOS+0.3825*X1+-0.7218*X2 &" Y" & YPOS+0.3825*Y1+-0.7218*Y2 &" I"& XPOS-0.1628*X1-0.5251*X2 &" J"& YPOS-0.1628*Y1-0.5251*Y2
      Code GM&" X" & XPOS+0.4823*X1+0.0001*X2 &" Y" & YPOS+0.4823*Y1+0.0001*Y2 &" I"& XPOS-1.2619*X1-0.1268*X2 &" J"& YPOS-1.2619*Y1-0.1268*Y2
      Code "G01 X" & XPOS+-0.0001*X1+0.0001*X2 &" Y" & YPOS+-0.0001*Y1+0.0001*Y2
      Code "G01 X" & XPOS+-0.0001*X1+0.9616*X2 &" Y" & YPOS+-0.0001*Y1+0.9616*Y2
      Largo=0.8949
    Case 69   'Punto
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.0214*X2 &" Y" & YPOS+1.0214*Y2
      Code "G01 X" & XPOS+0.8849*X1+1.0214*X2 &" Y" & YPOS+0.8849*Y1+1.0214*Y2
      Code "G01 X" & XPOS+0.8849*X1 &" Y" & YPOS+0.8849*Y1
      Code "G01 X" & XPOS &" Y" & YPOS
      Largo=0.8849
    Case 77   ';
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.0032*X2 &" Y" & YPOS+0.0032*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.2401*X2 &" Y" & YPOS+1.2401*Y2
      Code "G01 X" & XPOS+1.147*X1+1.2401*X2 &" Y" & YPOS+1.147*Y1+1.2401*Y2
      Code "G01 X" & XPOS+1.147*X1+0.0033*X2 &" Y" & YPOS+1.147*Y1+0.0033*Y2
      Code GG&" X" & XPOS+0.9508*X1+-1.1603*X2 &" Y" & YPOS+0.9508*Y1+-1.1603*Y2 &" I"& XPOS-2.1771*X1-0.0347*X2 &" J"& YPOS-2.1771*Y1-0.0347*Y2
      Code GG&" X" & XPOS+0.5185*X1+-1.6656*X2 &" Y" & YPOS+0.5185*Y1+-1.6656*Y2 &" I"& XPOS+0.0677*X1-0.8433*X2 &" J"& YPOS+0.0677*Y1-0.8433*Y2
      Code GG&" X" & XPOS+-0.0001*X1+-1.8551*X2 &" Y" & YPOS+-0.0001*Y1+-1.8551*Y2 &" I"& XPOS-0.3653*X1-0.0526*X2 &" J"& YPOS-0.3653*Y1-0.0526*Y2
      Code "G01 X" & XPOS+-0.0001*X1+-1.2367*X2 &" Y" & YPOS+-0.0001*Y1+-1.2367*Y2
      Code GM&" X" & XPOS+0.5783*X1+-0.698*X2 &" Y" & YPOS+0.5783*Y1+-0.698*Y2 &" I"& XPOS-0.1657*X1-0.4797*X2 &" J"& YPOS-0.1657*Y1-0.4797*Y2
      Code GM&" X" & XPOS+0.6182*X1+0.0001*X2 &" Y" & YPOS+0.6182*Y1+0.0001*Y2 &" I"& XPOS-0.8965*X1-0.264*X2 &" J"& YPOS-0.8965*Y1-0.264*Y2
      Code "G01 X" & XPOS+-0.0001*X1+0.0001*X2 &" Y" & YPOS+-0.0001*Y1+0.0001*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+-0.0001*X1+5.4828*X2 &" Y" & YPOS+-0.0001*Y1+5.4828*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+-0.0001*X1+6.8093*X2 &" Y" & YPOS+-0.0001*Y1+6.8093*Y2
      Code "G01 X" & XPOS+1.1469*X1+6.8093*X2 &" Y" & YPOS+1.1469*Y1+6.8093*Y2
      Code "G01 X" & XPOS+1.1469*X1+5.4827*X2 &" Y" & YPOS+1.1469*Y1+5.4827*Y2
      Code "G01 X" & XPOS+-0.0001*X1+5.4827*X2 &" Y" & YPOS+-0.0001*Y1+5.4827*Y2
      Largo=1.147
    Case 72   '/
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+-1.3472*X1+-0.888*X2 &" Y" & YPOS+-1.3472*Y1+-0.888*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+6.2028*X1+10.8924*X2 &" Y" & YPOS+6.2028*Y1+10.8924*Y2
      Code "G01 X" & XPOS+7.1169*X1+10.5487*X2 &" Y" & YPOS+7.1169*Y1+10.5487*Y2
      Code "G01 X" & XPOS+-0.4331*X1+-1.2317*X2 &" Y" & YPOS+-0.4331*Y1+-1.2317*Y2
      Code "G01 X" & XPOS+-1.3472*X1+-0.888*X2 &" Y" & YPOS+-1.3472*Y1+-0.888*Y2
      Largo=7.1169
    Case 73   '\
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.3417*X1+-1.1716*X2 &" Y" & YPOS+6.3417*Y1+-1.1716*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+-1.3418*X1+10.8191*X2 &" Y" & YPOS+-1.3418*Y1+10.8191*Y2
      Code "G01 X" & XPOS+-0.4109*X1+11.1693*X2 &" Y" & YPOS+-0.4109*Y1+11.1693*Y2
      Code "G01 X" & XPOS+7.2726*X1+-0.8214*X2 &" Y" & YPOS+7.2726*Y1+-0.8214*Y2
      Code "G01 X" & XPOS+6.3417*X1+-1.1716*X2 &" Y" & YPOS+6.3417*Y1+-1.1716*Y2
      Largo=7.2726
    Case 74   '=
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.7427*X2 &" Y" & YPOS+3.7427*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+4.4799*X2 &" Y" & YPOS+4.4799*Y2
      Code "G01 X" & XPOS+6.9595*X1+4.4799*X2 &" Y" & YPOS+6.9595*Y1+4.4799*Y2
      Code "G01 X" & XPOS+6.9595*X1+3.7426*X2 &" Y" & YPOS+6.9595*Y1+3.7426*Y2
      Code "G01 X" & XPOS+3.7426*X2 &" Y" & YPOS+3.7426*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.118*X2 &" Y" & YPOS+6.118*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+6.8552*X2 &" Y" & YPOS+6.8552*Y2
      Code "G01 X" & XPOS+6.9595*X1+6.8552*X2 &" Y" & YPOS+6.9595*Y1+6.8552*Y2
      Code "G01 X" & XPOS+6.9595*X1+6.1179*X2 &" Y" & YPOS+6.9595*Y1+6.1179*Y2
      Code "G01 X" & XPOS+6.1179*X2 &" Y" & YPOS+6.1179*Y2
      Largo=6.9595
    Case 39   '-
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.7803*X2 &" Y" & YPOS+4.7803*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+5.7077*X2 &" Y" & YPOS+5.7077*Y2
      Code "G01 X" & XPOS+5.6617*X1+5.7077*X2 &" Y" & YPOS+5.6617*Y1+5.7077*Y2
      Code "G01 X" & XPOS+5.6617*X1+4.7802*X2 &" Y" & YPOS+5.6617*Y1+4.7802*Y2
      Code "G01 X" & XPOS+4.7802*X2 &" Y" & YPOS+4.7802*Y2
      Code "G0arX" & XPOS+4.7802*X2 &" Y" & YPOS+4.7802*Y2
    Case 1   '1
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.3533*X1 &" Y" & YPOS+2.3533*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+2.3533*X1+7.06*X2 &" Y" & YPOS+2.3533*Y1+7.06*Y2
      Code "G01 X" & XPOS+7.06*X2 &" Y" & YPOS+7.06*Y2
      Code "G01 X" & XPOS+8.0399*X2 &" Y" & YPOS+8.0399*Y2
      Code GM&" X" & XPOS+1.0066*X1+8.1232*X2 &" Y" & YPOS+1.0066*Y1+8.1232*Y2 &" I"& XPOS-0.3225*X1+18.0589*X2 &" J"& YPOS-0.3225*Y1+18.0589*Y2
      Code GM&" X" & XPOS+2.4032*X1+9.1298*X2 &" Y" & YPOS+2.4032*Y1+9.1298*Y2 &" I"& XPOS+0.7647*X1+9.9302*X2 &" J"& YPOS+0.7647*Y1+9.9302*Y2
      Code GM&" X" & XPOS+2.7465*X1+9.9997*X2 &" Y" & YPOS+2.7465*Y1+9.9997*Y2 &" I"& XPOS-2.9276*X1+11.7358*X2 &" J"& YPOS-2.9276*Y1+11.7358*Y2
      Code "G01 X" & XPOS+3.6298*X1+9.9997*X2 &" Y" & YPOS+3.6298*Y1+9.9997*Y2
      Code "G01 X" & XPOS+3.6298*X1+-0.0002*X2 &" Y" & YPOS+3.6298*Y1+-0.0002*Y2
      Code "G01 X" & XPOS+2.3564*X1+-0.0002*X2 &" Y" & YPOS+2.3564*Y1+-0.0002*Y2
      Largo=3.6298
    Case 2   '2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.8303*X1+0.0033*X2 &" Y" & YPOS+6.8303*Y1+0.0033*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+0.0141*X1+0.0033*X2 &" Y" & YPOS+0.0141*Y1+0.0033*Y2
      Code GG&" X" & XPOS+0.6707*X1+2.4197*X2 &" Y" & YPOS+0.6707*Y1+2.4197*Y2 &" I"& XPOS+3.6208*X1+0.3203*X2 &" J"& YPOS+3.6208*Y1+0.3203*Y2
      Code GG&" X" & XPOS+2.1239*X1+3.7863*X2 &" Y" & YPOS+2.1239*Y1+3.7863*Y2 &" I"& XPOS+4.8087*X1-0.5243*X2 &" J"& YPOS+4.8087*Y1-0.5243*Y2
      Code GG&" X" & XPOS+4.2437*X1+4.9728*X2 &" Y" & YPOS+4.2437*Y1+4.9728*Y2 &" I"& XPOS+15.8756*X1-18.2937*X2 &" J"& YPOS+15.8756*Y1-18.2937*Y2
      Code GM&" X" & XPOS+5.2936*X1+6.1361*X2 &" Y" & YPOS+5.2936*Y1+6.1361*Y2 &" I"& XPOS+3.2822*X1+6.8958*X2 &" J"& YPOS+3.2822*Y1+6.8958*Y2
      Code GM&" X" & XPOS+4.7969*X1+8.1691*X2 &" Y" & YPOS+4.7969*Y1+8.1691*Y2 &" I"& XPOS+3.5619*X1+6.7901*X2 &" J"& YPOS+3.5619*Y1+6.7901*Y2
      Code GM&" X" & XPOS+1.9604*X1+7.8958*X2 &" Y" & YPOS+1.9604*Y1+7.8958*Y2 &" I"& XPOS+3.5045*X1+6.7271*X2 &" J"& YPOS+3.5045*Y1+6.7271*Y2
      Code GM&" X" & XPOS+1.617*X1+6.5458*X2 &" Y" & YPOS+1.617*Y1+6.5458*Y2 &" I"& XPOS+3.3884*X1+6.8148*X2 &" J"& YPOS+3.3884*Y1+6.8148*Y2
      Code "G01 X" & XPOS+0.3071*X1+6.3324*X2 &" Y" & YPOS+0.3071*Y1+6.3324*Y2
      Code GG&" X" & XPOS+0.7603*X1+8.5823*X2 &" Y" & YPOS+0.7603*Y1+8.5823*Y2 &" I"& XPOS+2.9567*X1+6.9684*X2 &" J"& YPOS+2.9567*Y1+6.9684*Y2
      Code GG&" X" & XPOS+6.5698*X1+8.2756*X2 &" Y" & YPOS+6.5698*Y1+8.2756*Y2 &" I"& XPOS+3.5644*X1+6.5233*X2 &" J"& YPOS+3.5644*Y1+6.5233*Y2
      Code GG&" X" & XPOS+5.8865*X1+4.5825*X2 &" Y" & YPOS+5.8865*Y1+4.5825*Y2 &" I"& XPOS+4.0839*X1+6.8266*X2 &" J"& YPOS+4.0839*Y1+6.8266*Y2
      Code GG&" X" & XPOS+4.1299*X1+3.4892*X2 &" Y" & YPOS+4.1299*Y1+3.4892*Y2 &" I"& XPOS+0.4822*X1+11.3075*X2 &" J"& YPOS+0.4822*Y1+11.3075*Y2
      Code GM&" X" & XPOS+2.4433*X1+2.5992*X2 &" Y" & YPOS+2.4433*Y1+2.5992*Y2 &" I"& XPOS+12.358*X1-14.1468*X2 &" J"& YPOS+12.358*Y1-14.1468*Y2
      Code GM&" X" & XPOS+1.5733*X1+1.266*X2 &" Y" & YPOS+1.5733*Y1+1.266*Y2 &" I"& XPOS+3.3602*X1+1.0512*X2 &" J"& YPOS+3.3602*Y1+1.0512*Y2
      Code "G01 X" & XPOS+6.8328*X1+1.266*X2 &" Y" & YPOS+6.8328*Y1+1.266*Y2
      Code "G01 X" & XPOS+6.8328*X1+-0.0006*X2 &" Y" & YPOS+6.8328*Y1+-0.0006*Y2
      Largo=6.8328
    Case 3   '3
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.2004*X2 &" Y" & YPOS+3.2004*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.1695*X1+3.2004*X2 &" Y" & YPOS+1.1695*Y1+3.2004*Y2
      Code GM&" X" & XPOS+3.1255*X1+1.3843*X2 &" Y" & YPOS+3.1255*Y1+1.3843*Y2 &" I"& XPOS+3.4419*X1+3.6864*X2 &" J"& YPOS+3.4419*Y1+3.6864*Y2
      Code GM&" X" & XPOS+5.1048*X1+2.3972*X2 &" Y" & YPOS+5.1048*Y1+2.3972*Y2 &" I"& XPOS+3.3899*X1+3.3073*X2 &" J"& YPOS+3.3899*Y1+3.3073*Y2
      Code GM&" X" & XPOS+4.8982*X1+4.3765*X2 &" Y" & YPOS+4.8982*Y1+4.3765*Y2 &" I"& XPOS+3.5303*X1+3.2332*X2 &" J"& YPOS+3.5303*Y1+3.2332*Y2
      Code GM&" X" & XPOS+3.0321*X1+5.0661*X2 &" Y" & YPOS+3.0321*Y1+5.0661*Y2 &" I"& XPOS+3.3637*X1+3.0945*X2 &" J"& YPOS+3.3637*Y1+3.0945*Y2
      Code "G01 X" & XPOS+3.0321*X1+5.8025*X2 &" Y" & YPOS+3.0321*Y1+5.8025*Y2
      Code GM&" X" & XPOS+3.7851*X1+5.8357*X2 &" Y" & YPOS+3.7851*Y1+5.8357*Y2 &" I"& XPOS+3.2341*X1+9.7685*X2 &" J"& YPOS+3.2341*Y1+9.7685*Y2
      Code GM&" X" & XPOS+4.898*X1+7.5984*X2 &" Y" & YPOS+4.898*Y1+7.5984*Y2 &" I"& XPOS+3.5956*X1+7.1877*X2 &" J"& YPOS+3.5956*Y1+7.1877*Y2
      Code GM&" X" & XPOS+3.4951*X1+8.7513*X2 &" Y" & YPOS+3.4951*Y1+8.7513*Y2 &" I"& XPOS+3.312*X1+7.0994*X2 &" J"& YPOS+3.312*Y1+7.0994*Y2
      Code GM&" X" & XPOS+1.3991*X1+6.8485*X2 &" Y" & YPOS+1.3991*Y1+6.8485*Y2 &" I"& XPOS+3.2871*X1+6.8753*X2 &" J"& YPOS+3.2871*Y1+6.8753*Y2
      Code "G01 X" & XPOS+0.2861*X1+6.8485*X2 &" Y" & YPOS+0.2861*Y1+6.8485*Y2
      Code GG&" X" & XPOS+0.546*X1+8.2446*X2 &" Y" & YPOS+0.546*Y1+8.2446*Y2 &" I"& XPOS+3.0637*X1+7.0535*X2 &" J"& YPOS+3.0637*Y1+7.0535*Y2
      Code GG&" X" & XPOS+2.342*X1+9.8341*X2 &" Y" & YPOS+2.342*Y1+9.8341*Y2 &" I"& XPOS+3.3005*X1+6.9416*X2 &" J"& YPOS+3.3005*Y1+6.9416*Y2
      Code GG&" X" & XPOS+5.6575*X1+9.0743*X2 &" Y" & YPOS+5.6575*Y1+9.0743*Y2 &" I"& XPOS+3.3735*X1+6.7221*X2 &" J"& YPOS+3.3735*Y1+6.7221*Y2
      Code GG&" X" & XPOS+6.2106*X1+6.7484*X2 &" Y" & YPOS+6.2106*Y1+6.7484*Y2 &" I"& XPOS+4.1069*X1+7.4773*X2 &" J"& YPOS+4.1069*Y1+7.4773*Y2
      Code GG&" X" & XPOS+4.991*X1+5.4354*X2 &" Y" & YPOS+4.991*Y1+5.4354*Y2 &" I"& XPOS+4.1116*X1+7.4744*X2 &" J"& YPOS+4.1116*Y1+7.4744*Y2
      Code GG&" X" & XPOS+6.4171*X1+4.3524*X2 &" Y" & YPOS+6.4171*Y1+4.3524*Y2 &" I"& XPOS+4.6252*X1+3.4734*X2 &" J"& YPOS+4.6252*Y1+3.4734*Y2
      Code GG&" X" & XPOS+6.3937*X1+1.7299*X2 &" Y" & YPOS+6.3937*Y1+1.7299*Y2 &" I"& XPOS+3.7923*X1+3.0654*X2 &" J"& YPOS+3.7923*Y1+3.0654*Y2
      Code GG&" X" & XPOS+3.388*X1+0.0039*X2 &" Y" & YPOS+3.388*Y1+0.0039*Y2 &" I"& XPOS+3.5608*X1+3.1829*X2 &" J"& YPOS+3.5608*Y1+3.1829*Y2
      Code GG&" X" & XPOS+-0.0008*X1+3.1994*X2 &" Y" & YPOS+-0.0008*Y1+3.1994*Y2 &" I"& XPOS+3.5837*X1+3.6059*X2 &" J"& YPOS+3.5837*Y1+3.6059*Y2
      Largo=6.4171
    Case 4   '4
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.5451*X1 &" Y" & YPOS+4.5451*Y1
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+4.5451*X1+2.5258*X2 &" Y" & YPOS+4.5451*Y1+2.5258*Y2
      Code "G01 X" & XPOS+2.5258*X2 &" Y" & YPOS+2.5258*Y2
      Code "G01 X" & XPOS+3.7387*X2 &" Y" & YPOS+3.7387*Y2
      Code "G01 X" & XPOS+4.4418*X1+9.9998*X2 &" Y" & YPOS+4.4418*Y1+9.9998*Y2
      Code "G01 X" & XPOS+5.8546*X1+9.9998*X2 &" Y" & YPOS+5.8546*Y1+9.9998*Y2
      Code "G01 X" & XPOS+5.8546*X1+3.8419*X2 &" Y" & YPOS+5.8546*Y1+3.8419*Y2
      Code "G01 X" & XPOS+7.2674*X1+3.8419*X2 &" Y" & YPOS+7.2674*Y1+3.8419*Y2
      Code "G01 X" & XPOS+7.2674*X1+2.5289*X2 &" Y" & YPOS+7.2674*Y1+2.5289*Y2
      Code "G01 X" & XPOS+5.8545*X1+2.5289*X2 &" Y" & YPOS+5.8545*Y1+2.5289*Y2
      Code "G01 X" & XPOS+5.8545*X1+0.0031*X2 &" Y" & YPOS+5.8545*Y1+0.0031*Y2
      Code "G01 X" & XPOS+4.5416*X1+0.0031*X2 &" Y" & YPOS+4.5416*Y1+0.0031*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.5416*X1+3.8418*X2 &" Y" & YPOS+4.5416*Y1+3.8418*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+4.5416*X1+8.0836*X2 &" Y" & YPOS+4.5416*Y1+8.0836*Y2
      Code "G01 X" & XPOS+1.5126*X1+3.8417*X2 &" Y" & YPOS+1.5126*Y1+3.8417*Y2
      Code "G01 X" & XPOS+4.5416*X1+3.8417*X2 &" Y" & YPOS+4.5416*Y1+3.8417*Y2
      Largo=7.2674
    Case 5   '5
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.5582*X2 &" Y" & YPOS+2.5582*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.2597*X1+2.5582*X2 &" Y" & YPOS+1.2597*Y1+2.5582*Y2
      Code GM&" X" & XPOS+3.6292*X1+1.2218*X2 &" Y" & YPOS+3.6292*Y1+1.2218*Y2 &" I"& XPOS+3.1756*X1+3.1862*X2 &" J"& YPOS+3.1756*Y1+3.1862*Y2
      Code GM&" X" & XPOS+5.2655*X1+2.7015*X2 &" Y" & YPOS+5.2655*Y1+2.7015*Y2 &" I"& XPOS+3.1193*X1+3.4298*X2 &" J"& YPOS+3.1193*Y1+3.4298*Y2
      Code GM&" X" & XPOS+3.9224*X1+5.5441*X2 &" Y" & YPOS+3.9224*Y1+5.5441*Y2 &" I"& XPOS+3.1242*X1+3.4275*X2 &" J"& YPOS+3.1242*Y1+3.4275*Y2
      Code GM&" X" & XPOS+1.3362*X1+4.8609*X2 &" Y" & YPOS+1.3362*Y1+4.8609*Y2 &" I"& XPOS+3.1088*X1+3.3881*X2 &" J"& YPOS+3.1088*Y1+3.3881*Y2
      Code "G01 X" & XPOS+0.1731*X1+4.9574*X2 &" Y" & YPOS+0.1731*Y1+4.9574*Y2
      Code "G01 X" & XPOS+0.9496*X1+9.9996*X2 &" Y" & YPOS+0.9496*Y1+9.9996*Y2
      Code "G01 X" & XPOS+6.1851*X1+9.9996*X2 &" Y" & YPOS+6.1851*Y1+9.9996*Y2
      Code "G01 X" & XPOS+6.1851*X1+8.7398*X2 &" Y" & YPOS+6.1851*Y1+8.7398*Y2
      Code "G01 X" & XPOS+1.9193*X1+8.7398*X2 &" Y" & YPOS+1.9193*Y1+8.7398*Y2
      Code "G01 X" & XPOS+1.5327*X1+6.3136*X2 &" Y" & YPOS+1.5327*Y1+6.3136*Y2
      Code GG&" X" & XPOS+3.059*X1+6.8134*X2 &" Y" & YPOS+3.059*Y1+6.8134*Y2 &" I"& XPOS+3.4861*X1+2.9296*X2 &" J"& YPOS+3.4861*Y1+2.9296*Y2
      Code GG&" X" & XPOS+5.6984*X1+5.9269*X2 &" Y" & YPOS+5.6984*Y1+5.9269*Y2 &" I"& XPOS+3.4212*X1+3.5194*X2 &" J"& YPOS+3.4212*Y1+3.5194*Y2
      Code GG&" X" & XPOS+6.0616*X1+1.3977*X2 &" Y" & YPOS+6.0616*Y1+1.3977*Y2 &" I"& XPOS+3.3659*X1+3.4609*X2 &" J"& YPOS+3.3659*Y1+3.4609*Y2
      Code GG&" X" & XPOS+1.5225*X1+0.4313*X2 &" Y" & YPOS+1.5225*Y1+0.4313*Y2 &" I"& XPOS+3.2274*X1+3.5657*X2 &" J"& YPOS+3.2274*Y1+3.5657*Y2
      Code GG&" X" & XPOS+-0.0005*X1+2.5541*X2 &" Y" & YPOS+-0.0005*Y1+2.5541*Y2 &" I"& XPOS+2.956*X1+3.0673*X2 &" J"& YPOS+2.956*Y1+3.0673*Y2
      Largo=7
    Case 6   '6
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.6007*X1+8.4108*X2 &" Y" & YPOS+6.6007*Y1+8.4108*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+5.5435*X1+7.9971*X2 &" Y" & YPOS+5.5435*Y1+7.9971*Y2
      Code GM&" X" & XPOS+4.3562*X1+8.7242*X2 &" Y" & YPOS+4.3562*Y1+8.7242*Y2 &" I"& XPOS+3.7708*X1+6.4361*X2 &" J"& YPOS+3.7708*Y1+6.4361*Y2
      Code GM&" X" & XPOS+1.9584*X1+7.8362*X2 &" Y" & YPOS+1.9584*Y1+7.8362*Y2 &" I"& XPOS+3.7992*X1+6.5472*X2 &" J"& YPOS+3.7992*Y1+6.5472*Y2
      Code GM&" X" & XPOS+1.154*X1+5.0785*X2 &" Y" & YPOS+1.154*Y1+5.0785*Y2 &" I"& XPOS+5.6182*X1+5.2732*X2 &" J"& YPOS+5.6182*Y1+5.2732*Y2
      Code GG&" X" & XPOS+3.4896*X1+6.5782*X2 &" Y" & YPOS+3.4896*Y1+6.5782*Y2 &" I"& XPOS+3.5893*X1+3.8545*X2 &" J"& YPOS+3.5893*Y1+3.8545*Y2
      Code GG&" X" & XPOS+6.8752*X1+3.6457*X2 &" Y" & YPOS+6.8752*Y1+3.6457*Y2 &" I"& XPOS+3.6096*X1+3.2972*X2 &" J"& YPOS+3.6096*Y1+3.2972*Y2
      Code GG&" X" & XPOS+5.3823*X1+0.5052*X2 &" Y" & YPOS+5.3823*Y1+0.5052*Y2 &" I"& XPOS+3.5698*X1+3.2927*X2 &" J"& YPOS+3.5698*Y1+3.2927*Y2
      Code GG&" X" & XPOS+2.7564*X1+0.16*X2 &" Y" & YPOS+2.7564*Y1+0.16*Y2 &" I"& XPOS+3.7083*X1+3.0782*X2 &" J"& YPOS+3.7083*Y1+3.0782*Y2
      Code GG&" X" & XPOS+1.5674*X1+0.8499*X2 &" Y" & YPOS+1.5674*Y1+0.8499*Y2 &" I"& XPOS+3.7762*X1+3.287*X2 &" J"& YPOS+3.7762*Y1+3.287*Y2
      Code GG&" X" & XPOS+0.1671*X1+3.229*X2 &" Y" & YPOS+0.1671*Y1+3.229*Y2 &" I"& XPOS+4.6786*X1+4.2819*X2 &" J"& YPOS+4.6786*Y1+4.2819*Y2
      Code GG&" X" & XPOS+0.487*X1+7.5843*X2 &" Y" & YPOS+0.487*Y1+7.5843*Y2 &" I"& XPOS+7.2989*X1+4.894*X2 &" J"& YPOS+7.2989*Y1+4.894*Y2
      Code GG&" X" & XPOS+1.53*X1+9.1272*X2 &" Y" & YPOS+1.53*Y1+9.1272*Y2 &" I"& XPOS+4.4848*X1+6.0063*X2 &" J"& YPOS+4.4848*Y1+6.0063*Y2
      Code GG&" X" & XPOS+5.582*X1+9.487*X2 &" Y" & YPOS+5.582*Y1+9.487*Y2 &" I"& XPOS+3.7834*X1+6.7472*X2 &" J"& YPOS+3.7834*Y1+6.7472*Y2
      Code GG&" X" & XPOS+6.6*X1+8.4104*X2 &" Y" & YPOS+6.6*Y1+8.4104*Y2 &" I"& XPOS+3.8177*X1+6.799*X2 &" J"& YPOS+3.8177*Y1+6.799*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.4686*X1+4.0353*X2 &" Y" & YPOS+5.4686*Y1+4.0353*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+4.9683*X1+1.7919*X2 &" Y" & YPOS+4.9683*Y1+1.7919*Y2 &" I"& XPOS+3.3034*X1+3.3413*X2 &" J"& YPOS+3.3034*Y1+3.3413*Y2
      Code GG&" X" & XPOS+2.5093*X1+1.562*X2 &" Y" & YPOS+2.5093*Y1+1.562*Y2 &" I"& XPOS+3.61*X1+3.0549*X2 &" J"& YPOS+3.61*Y1+3.0549*Y2
      Code GG&" X" & XPOS+2.4633*X1+4.9171*X2 &" Y" & YPOS+2.4633*Y1+4.9171*Y2 &" I"& XPOS+3.7585*X1+3.257*X2 &" J"& YPOS+3.7585*Y1+3.257*Y2
      Code GG&" X" & XPOS+5.4651*X1+4.0351*X2 &" Y" & YPOS+5.4651*Y1+4.0351*Y2 &" I"& XPOS+3.6477*X1+3.3991*X2 &" J"& YPOS+3.6477*Y1+3.3991*Y2
      Largo=6.8752
    Case 7   '7
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.3995*X1+0.0033*X2 &" Y" & YPOS+1.3995*Y1+0.0033*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+2.3091*X1+4.1452*X2 &" Y" & YPOS+2.3091*Y1+4.1452*Y2 &" I"& XPOS+13.8292*X1-0.5557*X2 &" J"& YPOS+13.8292*Y1-0.5557*Y2
      Code GG&" X" & XPOS+3.8652*X1+6.8443*X2 &" Y" & YPOS+3.8652*Y1+6.8443*Y2 &" I"& XPOS+12.9823*X1-0.2098*X2 &" J"& YPOS+12.9823*Y1-0.2098*Y2
      Code GG&" X" & XPOS+5.4979*X1+8.7003*X2 &" Y" & YPOS+5.4979*Y1+8.7003*Y2 &" I"& XPOS+19.4075*X1-5.1817*X2 &" J"& YPOS+19.4075*Y1-5.1817*Y2
      Code "G01 X" & XPOS+-0.0002*X1+8.7003*X2 &" Y" & YPOS+-0.0002*Y1+8.7003*Y2
      Code "G01 X" & XPOS+-0.0002*X1+9.9997*X2 &" Y" & YPOS+-0.0002*Y1+9.9997*Y2
      Code "G01 X" & XPOS+6.8975*X1+9.9997*X2 &" Y" & YPOS+6.8975*Y1+9.9997*Y2
      Code "G01 X" & XPOS+6.8975*X1+8.7002*X2 &" Y" & YPOS+6.8975*Y1+8.7002*Y2
      Code GM&" X" & XPOS+5.7412*X1+7.3906*X2 &" Y" & YPOS+5.7412*Y1+7.3906*Y2 &" I"& XPOS+30.3581*X1-13.1788*X2 &" J"& YPOS+30.3581*Y1-13.1788*Y2
      Code GM&" X" & XPOS+3.0421*X1+1.7391*X2 &" Y" & YPOS+3.0421*Y1+1.7391*Y2 &" I"& XPOS+15.4348*X1-0.7083*X2 &" J"& YPOS+15.4348*Y1-0.7083*Y2
      Code GM&" X" & XPOS+2.7988*X1+-0.0003*X2 &" Y" & YPOS+2.7988*Y1+-0.0003*Y2 &" I"& XPOS+18.4014*X1-1.2949*X2 &" J"& YPOS+18.4014*Y1-1.2949*Y2
      Code "G01 X" & XPOS+1.3992*X1+-0.0003*X2 &" Y" & YPOS+1.3992*Y1+-0.0003*Y2
      Largo=6.8975
    Case 8   '8
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.9908*X1+5.5148*X2 &" Y" & YPOS+1.9908*Y1+5.5148*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+0.9325*X1+5.8982*X2 &" Y" & YPOS+0.9325*Y1+5.8982*Y2 &" I"& XPOS+1.84*X1+6.7508*X2 &" J"& YPOS+1.84*Y1+6.7508*Y2
      Code GG&" X" & XPOS+0.3468*X1+7.0066*X2 &" Y" & YPOS+0.3468*Y1+7.0066*Y2 &" I"& XPOS+2.6569*X1+7.5172*X2 &" J"& YPOS+2.6569*Y1+7.5172*Y2
      Code GG&" X" & XPOS+0.5883*X1+8.8231*X2 &" Y" & YPOS+0.5883*Y1+8.8231*Y2 &" I"& XPOS+2.9548*X1+7.5836*X2 &" J"& YPOS+2.9548*Y1+7.5836*Y2
      Code GG&" X" & XPOS+1.336*X1+9.5476*X2 &" Y" & YPOS+1.336*Y1+9.5476*Y2 &" I"& XPOS+2.0596*X1+8.0531*X2 &" J"& YPOS+2.0596*Y1+8.0531*Y2
      Code GG&" X" & XPOS+5.2799*X1+9.5476*X2 &" Y" & YPOS+5.2799*Y1+9.5476*Y2 &" I"& XPOS+3.3079*X1+5.4736*X2 &" J"& YPOS+3.3079*Y1+5.4736*Y2
      Code GG&" X" & XPOS+6.0739*X1+8.6409*X2 &" Y" & YPOS+6.0739*Y1+8.6409*Y2 &" I"& XPOS+4.6068*X1+8.1576*X2 &" J"& YPOS+4.6068*Y1+8.1576*Y2
      Code GG&" X" & XPOS+6.1632*X1+6.874*X2 &" Y" & YPOS+6.1632*Y1+6.874*Y2 &" I"& XPOS+2.9022*X1+7.5949*X2 &" J"& YPOS+2.9022*Y1+7.5949*Y2
      Code GG&" X" & XPOS+5.5974*X1+5.8979*X2 &" Y" & YPOS+5.5974*Y1+5.8979*Y2 &" I"& XPOS+4.3452*X1+7.275*X2 &" J"& YPOS+4.3452*Y1+7.275*Y2
      Code GG&" X" & XPOS+4.9092*X1+5.5041*X2 &" Y" & YPOS+4.9092*Y1+5.5041*Y2 &" I"& XPOS+4.3647*X1+7.2539*X2 &" J"& YPOS+4.3647*Y1+7.2539*Y2
      Code GG&" X" & XPOS+5.9604*X1+5.2044*X2 &" Y" & YPOS+5.9604*Y1+5.2044*Y2 &" I"& XPOS+3.3469*X1-1.9689*X2 &" J"& YPOS+3.3469*Y1-1.9689*Y2
      Code GG&" X" & XPOS+6.6194*X1+4.6135*X2 &" Y" & YPOS+6.6194*Y1+4.6135*Y2 &" I"& XPOS+5.5535*X1+4.0884*X2 &" J"& YPOS+5.5535*Y1+4.0884*Y2
      Code GG&" X" & XPOS+6.5057*X1+0.9547*X2 &" Y" & YPOS+6.5057*Y1+0.9547*Y2 &" I"& XPOS+3.1276*X1+2.8915*X2 &" J"& YPOS+3.1276*Y1+2.8915*Y2
      Code GG&" X" & XPOS+5.6648*X1+0.2956*X2 &" Y" & YPOS+5.6648*Y1+0.2956*Y2 &" I"& XPOS+5.2735*X1+1.6607*X2 &" J"& YPOS+5.2735*Y1+1.6607*Y2
      Code GG&" X" & XPOS+1.3697*X1+0.3183*X2 &" Y" & YPOS+1.3697*Y1+0.3183*Y2 &" I"& XPOS+3.5561*X1+7.6506*X2 &" J"& YPOS+3.5561*Y1+7.6506*Y2
      Code GG&" X" & XPOS+0.5288*X1+0.9773*X2 &" Y" & YPOS+0.5288*Y1+0.9773*Y2 &" I"& XPOS+1.7863*X1+1.7153*X2 &" J"& YPOS+1.7863*Y1+1.7153*Y2
      Code GG&" X" & XPOS+0.347*X1+4.5224*X2 &" Y" & YPOS+0.347*Y1+4.5224*Y2 &" I"& XPOS+3.8446*X1+2.9243*X2 &" J"& YPOS+3.8446*Y1+2.9243*Y2
      Code GG&" X" & XPOS+1.029*X1+5.2394*X2 &" Y" & YPOS+1.029*Y1+5.2394*Y2 &" I"& XPOS+1.7285*X1+3.8914*X2 &" J"& YPOS+1.7285*Y1+3.8914*Y2
      Code GG&" X" & XPOS+1.9901*X1+5.514*X2 &" Y" & YPOS+1.9901*Y1+5.514*Y2 &" I"& XPOS+2.1858*X1+3.0104*X2 &" J"& YPOS+2.1858*Y1+3.0104*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.1685*X1+6.0994*X2 &" Y" & YPOS+3.1685*Y1+6.0994*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+4.3674*X1+6.1585*X2 &" Y" & YPOS+4.3674*Y1+6.1585*Y2 &" I"& XPOS+3.5784*X1+9.9714*X2 &" J"& YPOS+3.5784*Y1+9.9714*Y2
      Code GM&" X" & XPOS+4.8228*X1+6.5526*X2 &" Y" & YPOS+4.8228*Y1+6.5526*Y2 &" I"& XPOS+4.2422*X1+6.7625*X2 &" J"& YPOS+4.2422*Y1+6.7625*Y2
      Code GM&" X" & XPOS+4.8228*X1+8.455*X2 &" Y" & YPOS+4.8228*Y1+8.455*Y2 &" I"& XPOS+2.2*X1+7.5036*X2 &" J"& YPOS+2.2*Y1+7.5036*Y2
      Code GM&" X" & XPOS+4.4059*X1+8.8321*X2 &" Y" & YPOS+4.4059*Y1+8.8321*Y2 &" I"& XPOS+4.2585*X1+8.251*X2 &" J"& YPOS+4.2585*Y1+8.251*Y2
      Code GM&" X" & XPOS+2.2221*X1+8.8155*X2 &" Y" & YPOS+2.2221*Y1+8.8155*Y2 &" I"& XPOS+3.3456*X1+4.6451*X2 &" J"& YPOS+3.3456*Y1+4.6451*Y2
      Code GM&" X" & XPOS+1.6629*X1+8.2716*X2 &" Y" & YPOS+1.6629*Y1+8.2716*Y2 &" I"& XPOS+2.4304*X1+8.0425*X2 &" J"& YPOS+2.4304*Y1+8.0425*Y2
      Code GM&" X" & XPOS+1.7765*X1+6.5444*X2 &" Y" & YPOS+1.7765*Y1+6.5444*Y2 &" I"& XPOS+4.0381*X1+7.5606*X2 &" J"& YPOS+4.0381*Y1+7.5606*Y2
      Code GM&" X" & XPOS+2.231*X1+6.158*X2 &" Y" & YPOS+2.231*Y1+6.158*Y2 &" I"& XPOS+2.4097*X1+6.8284*X2 &" J"& YPOS+2.4097*Y1+6.8284*Y2
      Code GM&" X" & XPOS+3.1682*X1+6.0955*X2 &" Y" & YPOS+3.1682*Y1+6.0955*Y2 &" I"& XPOS+2.8588*X1+8.513*X2 &" J"& YPOS+2.8588*Y1+8.513*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.6736*X1+4.5768*X2 &" Y" & YPOS+4.6736*Y1+4.5768*Y2
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+5.1397*X1+4.1581*X2 &" Y" & YPOS+5.1397*Y1+4.1581*Y2 &" I"& XPOS+4.5633*X1+3.9858*X2 &" J"& YPOS+4.5633*Y1+3.9858*Y2
      Code GG&" X" & XPOS+5.2306*X1+1.8855*X2 &" Y" & YPOS+5.2306*Y1+1.8855*Y2 &" I"& XPOS+0.7617*X1+2.8451*X2 &" J"& YPOS+0.7617*Y1+2.8451*Y2
      Code GG&" X" & XPOS+4.8215*X1+1.4082*X2 &" Y" & YPOS+4.8215*Y1+1.4082*Y2 &" I"& XPOS+4.5863*X1+2.0235*X2 &" J"& YPOS+4.5863*Y1+2.0235*Y2
      Code GG&" X" & XPOS+2.0398*X1+1.4267*X2 &" Y" & YPOS+2.0398*Y1+1.4267*Y2 &" I"& XPOS+3.4544*X1+4.9852*X2 &" J"& YPOS+3.4544*Y1+4.9852*Y2
      Code GG&" X" & XPOS+1.6626*X1+1.8399*X2 &" Y" & YPOS+1.6626*Y1+1.8399*Y2 &" I"& XPOS+2.276*X1+2.0207*X2 &" J"& YPOS+2.276*Y1+2.0207*Y2
      Code GG&" X" & XPOS+1.6989*X1+4.1927*X2 &" Y" & YPOS+1.6989*Y1+4.1927*Y2 &" I"& XPOS+5.45*X1+2.9579*X2 &" J"& YPOS+5.45*Y1+2.9579*Y2
      Code GG&" X" & XPOS+2.1624*X1+4.5896*X2 &" Y" & YPOS+2.1624*Y1+4.5896*Y2 &" I"& XPOS+2.2582*X1+4.0087*X2 &" J"& YPOS+2.2582*Y1+4.0087*Y2
      Code GG&" X" & XPOS+4.6666*X1+4.5764*X2 &" Y" & YPOS+4.6666*Y1+4.5764*Y2 &" I"& XPOS+3.3759*X1-2.7744*X2 &" J"& YPOS+3.3759*Y1-2.7744*Y2
      Largo=6.6194
    Case 9   '9
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.0327*X1+2.2979*X2 &" Y" & YPOS+0.0327*Y1+2.2979*Y2
      Code "G00 Z"& Corte
      Code "G01 X" & XPOS+1.1925*X1+2.2979*X2 &" Y" & YPOS+1.1925*Y1+2.2979*Y2
      Code GM&" X" & XPOS+1.7157*X1+1.5512*X2 &" Y" & YPOS+1.7157*Y1+1.5512*Y2 &" I"& XPOS+2.6522*X1+2.7639*X2 &" J"& YPOS+2.6522*Y1+2.7639*Y2
      Code GM&" X" & XPOS+3.0183*X1+1.0517*X2 &" Y" & YPOS+3.0183*Y1+1.0517*Y2 &" I"& XPOS+3.1998*X1+3.4732*X2 &" J"& YPOS+3.1998*Y1+3.4732*Y2
      Code GM&" X" & XPOS+4.4699*X1+1.5355*X2 &" Y" & YPOS+4.4699*Y1+1.5355*Y2 &" I"& XPOS+3.1663*X1+3.0267*X2 &" J"& YPOS+3.1663*Y1+3.0267*Y2
      Code GM&" X" & XPOS+5.2994*X1+2.9871*X2 &" Y" & YPOS+5.2994*Y1+2.9871*Y2 &" I"& XPOS+2.7885*X1+3.4585*X2 &" J"& YPOS+2.7885*Y1+3.4585*Y2
      Code GM&" X" & XPOS+5.4606*X1+4.5539*X2 &" Y" & YPOS+5.4606*Y1+4.5539*Y2 &" I"& XPOS-4.0117*X1+4.7371*X2 &" J"& YPOS-4.0117*Y1+4.7371*Y2
      Code GG&" X" & XPOS+3.6852*X1+3.6473*X2 &" Y" & YPOS+3.6852*Y1+3.6473*Y2 &" I"& XPOS+3.0108*X1+7.1589*X2 &" J"& YPOS+3.0108*Y1+7.1589*Y2
      Code GG&" X" & XPOS+0.7856*X1+4.6737*X2 &" Y" & YPOS+0.7856*Y1+4.6737*Y2 &" I"& XPOS+3.1115*X1+6.6343*X2 &" J"& YPOS+3.1115*Y1+6.6343*Y2
      Code GG&" X" & XPOS+0.2623*X1+8.0065*X2 &" Y" & YPOS+0.2623*Y1+8.0065*Y2 &" I"& XPOS+3.2734*X1+6.7717*X2 &" J"& YPOS+3.2734*Y1+6.7717*Y2
      Code GG&" X" & XPOS+6.2208*X1+8.2864*X2 &" Y" & YPOS+6.2208*Y1+8.2864*Y2 &" I"& XPOS+3.3068*X1+6.7585*X2 &" J"& YPOS+3.3068*Y1+6.7585*Y2
      Code GG&" X" & XPOS+6.6816*X1+6.6734*X2 &" Y" & YPOS+6.6816*Y1+6.6734*Y2 &" I"& XPOS+2.568*X1+6.3714*X2 &" J"& YPOS+2.568*Y1+6.3714*Y2
      Code GG&" X" & XPOS+6.5894*X1+3.724*X2 &" Y" & YPOS+6.5894*Y1+3.724*Y2 &" I"& XPOS-7.3885*X1+5.6374*X2 &" J"& YPOS-7.3885*Y1+5.6374*Y2
      Code GG&" X" & XPOS+5.852*X1+1.4658*X2 &" Y" & YPOS+5.852*Y1+1.4658*Y2 &" I"& XPOS+0.0021*X1+4.625*X2 &" J"& YPOS+0.0021*Y1+4.625*Y2
      Code GG&" X" & XPOS+4.216*X1+0.1063*X2 &" Y" & YPOS+4.216*Y1+0.1063*Y2 &" I"& XPOS+3.3431*X1+2.8208*X2 &" J"& YPOS+3.3431*Y1+2.8208*Y2
      Code GG&" X" & XPOS+1.9348*X1+0.1523*X2 &" Y" & YPOS+1.9348*Y1+0.1523*Y2 &" I"& XPOS+3.1424*X1+3.4443*X2 &" J"& YPOS+3.1424*Y1+3.4443*Y2
      Code GG&" X" & XPOS+0.032*X1+2.2936*X2 &" Y" & YPOS+0.032*Y1+2.2936*Y2 &" I"& XPOS+2.9772*X1+2.9943*X2 &" J"& YPOS+2.9772*Y1+2.9943*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.9948*X1+4.7132*X2 &" Y" & YPOS+2.9948*Y1+4.7132*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+5.2844*X1+6.2229*X2 &" Y" & YPOS+5.2844*Y1+6.2229*Y2 &" I"& XPOS+3.3215*X1+6.7082*X2 &" J"& YPOS+3.3215*Y1+6.7082*Y2
      Code GM&" X" & XPOS+3.0147*X1+8.8492*X2 &" Y" & YPOS+3.0147*Y1+8.8492*Y2 &" I"& XPOS+3.2209*X1+6.7329*X2 &" J"& YPOS+3.2209*Y1+6.7329*Y2
      Code GM&" X" & XPOS+1.3016*X1+5.9729*X2 &" Y" & YPOS+1.3016*Y1+5.9729*Y2 &" I"& XPOS+3.2163*X1+6.7812*X2 &" J"& YPOS+3.2163*Y1+6.7812*Y2
      Code GM&" X" & XPOS+2.9946*X1+4.7131*X2 &" Y" & YPOS+2.9946*Y1+4.7131*Y2 &" I"& XPOS+3.2187*X1+6.7809*X2 &" J"& YPOS+3.2187*Y1+6.7809*Y2
      Largo=6.6816
    Case 10   '0
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.5806*X1 &" Y" & YPOS+3.5806*Y1
      Code "G00 Z"& Corte
      Code GG&" X" & XPOS+1.9174*X1+0.3932*X2 &" Y" & YPOS+1.9174*Y1+0.3932*Y2 &" I"& XPOS+3.6418*X1+3.972*X2 &" J"& YPOS+3.6418*Y1+3.972*Y2
      Code GG&" X" & XPOS+1.0441*X1+1.0731*X2 &" Y" & YPOS+1.0441*Y1+1.0731*Y2 &" I"& XPOS+3.0551*X1+2.7542*X2 &" J"& YPOS+3.0551*Y1+2.7542*Y2
      Code GG&" X" & XPOS+0.4808*X1+2.0595*X2 &" Y" & YPOS+0.4808*Y1+2.0595*Y2 &" I"& XPOS+3.509*X1+3.1341*X2 &" J"& YPOS+3.509*Y1+3.1341*Y2
      Code GG&" X" & XPOS+0.6674*X1+8.2355*X2 &" Y" & YPOS+0.6674*Y1+8.2355*Y2 &" I"& XPOS+8.5041*X1+4.9075*X2 &" J"& YPOS+8.5041*Y1+4.9075*Y2
      Code GG&" X" & XPOS+1.1106*X1+9.0054*X2 &" Y" & YPOS+1.1106*Y1+9.0054*Y2 &" I"& XPOS+4.0593*X1+6.7955*X2 &" J"& YPOS+4.0593*Y1+6.7955*Y2
      Code GG&" X" & XPOS+2.3471*X1+9.8452*X2 &" Y" & YPOS+2.3471*Y1+9.8452*Y2 &" I"& XPOS+2.9511*X1+7.6264*X2 &" J"& YPOS+2.9511*Y1+7.6264*Y2
      Code GG&" X" & XPOS+5.0734*X1+9.6819*X2 &" Y" & YPOS+5.0734*Y1+9.6819*Y2 &" I"& XPOS+3.4684*X1+5.7252*X2 &" J"& YPOS+3.4684*Y1+5.7252*Y2
      Code GG&" X" & XPOS+6.1932*X1+8.7487*X2 &" Y" & YPOS+6.1932*Y1+8.7487*Y2 &" I"& XPOS+4.1737*X1+7.4639*X2 &" J"& YPOS+4.1737*Y1+7.4639*Y2
      Code GG&" X" & XPOS+6.5898*X1+7.8387*X2 &" Y" & YPOS+6.5898*Y1+7.8387*Y2 &" I"& XPOS+3.4914*X1+7.0297*X2 &" J"& YPOS+3.4914*Y1+7.0297*Y2
      Code GG&" X" & XPOS+6.5431*X1+2.1992*X2 &" Y" & YPOS+6.5431*Y1+2.1992*Y2 &" I"& XPOS-3.8762*X1+5.1057*X2 &" J"& YPOS-3.8762*Y1+5.1057*Y2
      Code GG&" X" & XPOS+5.9031*X1+1.0727*X2 &" Y" & YPOS+5.9031*Y1+1.0727*Y2 &" I"& XPOS+3.9666*X1+2.9172*X2 &" J"& YPOS+3.9666*Y1+2.9172*Y2
      Code GG&" X" & XPOS+5.0298*X1+0.3927*X2 &" Y" & YPOS+5.0298*Y1+0.3927*Y2 &" I"& XPOS+3.1854*X1+3.6617*X2 &" J"& YPOS+3.1854*Y1+3.6617*Y2
      Code GG&" X" & XPOS+3.5832*X1+-0.0005*X2 &" Y" & YPOS+3.5832*Y1+-0.0005*Y2 &" I"& XPOS+3.5308*X1+3.0497*X2 &" J"& YPOS+3.5308*Y1+3.0497*Y2
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.5832*X1+0.9893*X2 &" Y" & YPOS+3.5832*Y1+0.9893*Y2
      Code "G00 Z"& Corte
      Code GM&" X" & XPOS+4.6797*X1+1.4325*X2 &" Y" & YPOS+4.6797*Y1+1.4325*Y2 &" I"& XPOS+3.5728*X1+2.5923*X2 &" J"& YPOS+3.5728*Y1+2.5923*Y2
      Code GM&" X" & XPOS+5.2396*X1+2.319*X2 &" Y" & YPOS+5.2396*Y1+2.319*Y2 &" I"& XPOS+3.1914*X1+2.9925*X2 &" J"& YPOS+3.1914*Y1+2.9925*Y2
      Code GM&" X" & XPOS+5.5195*X1+3.5321*X2 &" Y" & YPOS+5.5195*Y1+3.5321*Y2 &" I"& XPOS-1.2732*X1+4.46*X2 &" J"& YPOS-1.2732*Y1+4.46*Y2
      Code GM&" X" & XPOS+5.3561*X1+7.425*X2 &" Y" & YPOS+5.3561*Y1+7.425*Y2 &" I"& XPOS-5.3937*X1+5.0241*X2 &" J"& YPOS-5.3937*Y1+5.0241*Y2
      Code GM&" X" & XPOS+5.0061*X1+8.3349*X2 &" Y" & YPOS+5.0061*Y1+8.3349*Y2 &" I"& XPOS+2.1176*X1+6.702*X2 &" J"& YPOS+2.1176*Y1+6.702*Y2
      Code GM&" X" & XPOS+4.4461*X1+8.8482*X2 &" Y" & YPOS+4.4461*Y1+8.8482*Y2 &" I"& XPOS+3.9363*X1+7.7309*X2 &" J"& YPOS+3.9363*Y1+7.7309*Y2
      Code GM&" X" & XPOS+2.6529*X1+8.8482*X2 &" Y" & YPOS+2.6529*Y1+8.8482*Y2 &" I"& XPOS+3.5495*X1+6.8822*X2 &" J"& YPOS+3.5495*Y1+6.8822*Y2
      Code GM&" X" & XPOS+2.0229*X1+8.2882*X2 &" Y" & YPOS+2.0229*Y1+8.2882*Y2 &" I"& XPOS+3.2465*X1+7.5462*X2 &" J"& YPOS+3.2465*Y1+7.5462*Y2
      Code GM&" X" & XPOS+1.6962*X1+7.5182*X2 &" Y" & YPOS+1.6962*Y1+7.5182*Y2 &" I"& XPOS+4.5149*X1+6.7772*X2 &" J"& YPOS+4.5149*Y1+6.7772*Y2
      Code GM&" X" & XPOS+1.5562*X1+2.902*X2 &" Y" & YPOS+1.5562*Y1+2.902*Y2 &" I"& XPOS+11.6217*X1+4.9072*X2 &" J"& YPOS+11.6217*Y1+4.9072*Y2
      Code GM&" X" & XPOS+1.6961*X1+2.2954*X2 &" Y" & YPOS+1.6961*Y1+2.2954*Y2 &" I"& XPOS+11.667*X1+4.916*X2 &" J"& YPOS+11.667*Y1+4.916*Y2
      Code GM&" X" & XPOS+2.0694*X1+1.6188*X2 &" Y" & YPOS+2.0694*Y1+1.6188*Y2 &" I"& XPOS+3.2234*X1+2.6964*X2 &" J"& YPOS+3.2234*Y1+2.6964*Y2
      Code GM&" X" & XPOS+3.5859*X1+0.9888*X2 &" Y" & YPOS+3.5859*Y1+0.9888*Y2 &" I"& XPOS+3.5221*X1+2.9758*X2 &" J"& YPOS+3.5221*Y1+2.9758*Y2
      Largo=6.5898
    Case 84 '*
      Code "G00 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.3429*X1+5.9125 *X2 &" Y" & YPOS+1.3429*Y1+5.9125 *Y2
      Code "G00 Z"& Corte
      Code "G01 X"& XPOS+2.2288*X1+7.3804 *X2 &" Y" & YPOS+2.2288*Y1+7.3804 *Y2
      Code "G01 X"& XPOS+3.1621*X1+5.9125 *X2 &" Y" & YPOS+3.1621*Y1+5.9125 *Y2
      Code "G01 X"& XPOS+3.9812*X1+6.4923 *X2 &" Y" & YPOS+3.9812*Y1+6.4923 *Y2
      Code "G01 X"& XPOS+2.8086*X1+7.7813 *X2 &" Y" & YPOS+2.8086*Y1+7.7813 *Y2
      Code "G01 X"& XPOS+4.505*X1+8.1650 *X2 &" Y" & YPOS+4.505*Y1+8.1650 *Y2
      Code "G01 X"& XPOS+4.1924*X1+9.1328 *X2 &" Y" & YPOS+4.1924*Y1+9.1328 *Y2
      Code "G01 X"& XPOS+2.5844*X1+8.4743 *X2 &" Y" & YPOS+2.5844*Y1+8.4743 *Y2
      Code "G01 X"& XPOS+2.7396*X1+10.1696 *X2 &" Y" & YPOS+2.7396*Y1+10.1696 *Y2
      Code "G01 X"& XPOS+1.7524*X1+10.1696 *X2 &" Y" & YPOS+1.7524*Y1+10.1696 *Y2
      Code "G01 X"& XPOS+1.8882*X1+8.4711 *X2 &" Y" & YPOS+1.8882*Y1+8.4711 *Y2
      Code "G01 X"& XPOS+0.3147*X1+9.1328 *X2 &" Y" & YPOS+0.3147*Y1+9.1328 *Y2
      Code "G01 X" & XPOS+8.1650 *X2 &" Y" & YPOS+8.1650 *Y2
      Code "G01 X" & XPOS+1.6705*X1+7.7813 *X2 &" Y" & YPOS+1.6705*Y1+7.7813 *Y2
      Code "G01 X" & XPOS+0.5389*X1+6.4923 *X2 &" Y" & YPOS+0.5389*Y1+6.4923 *Y2
      Code "G01 X" & XPOS+1.3429*X1+5.9125 *X2 &" Y" & YPOS+1.3429*Y1+5.9125 *Y2
      Largo=4.505
    Case 85 '°
       Code "G00 Z"& Rapid_dis
       Code "G00 X" & XPOS+8.2792 *X2 &" Y" & YPOS+8.2792 *Y2
       Code "G00 Z"& Corte
       Code GG&" X"& XPOS+8.2792*X2 &" Y" & YPOS+8.2792*Y2 &" I"& XPOS+1.8897*X1+8.2792*X2 &" J"& YPOS+1.8897*Y1+8.2792*Y2
       Code "G00 Z"& Rapid_dis
       Code "G00 X" & XPOS+0.7363*X1+8.2792 *X2 &" Y" & YPOS+0.7363*Y1+8.2792 *Y2
       Code "G00 Z"& Corte
       Code GG&" X"& XPOS+0.7363*X1+8.2792*X2 &" Y" & YPOS+0.7363*Y1+8.2792*Y2 &" I"& XPOS+1.8897*X1+8.2792*X2 &" J"& YPOS+1.8897*Y1+8.2792*Y2
       Largo=4.505
     Case 40 'spc
       Largo=8
    Case 86   'Diam
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.4652*X1-0.0071*X2 &" Y" & YPOS+1.4652*Y1-0.0071*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.4545*X1-0.0071*X2 &" Y" & YPOS+2.4545*Y1-0.0071*Y2
      Code "G01 X" & XPOS+2.8084*X1+1.2597*X2 &" Y" & YPOS+2.8084*Y1+1.2597*Y2
      Code GM&" X" & XPOS+6.4656*X1+3.2736*X2 &" Y" & YPOS+6.4656*Y1+3.2736*Y2 &" I"& XPOS+3.3605*X1+4.5847*X2 &" J"& YPOS+3.3605*Y1+4.5847*Y2
      Code GM&" X" & XPOS+6.4656*X1+6.7264*X2 &" Y" & YPOS+6.4656*Y1+6.7264*Y2 &" I"& XPOS+0.759*X1+5*X2 &" J"& YPOS+0.759*Y1+5*Y2
      Code GM&" X" & XPOS+4.8184*X1+8.4542*X2 &" Y" & YPOS+4.8184*Y1+8.4542*Y2 &" I"& XPOS+3.3605*X1+5.4153*X2 &" J"& YPOS+3.3605*Y1+5.4153*Y2
      Code "G01 X" & XPOS+5.3437*X1+10.3343*X2 &" Y" & YPOS+5.3437*Y1+10.3343*Y2
      Code "G01 X" & XPOS+4.3616*X1+10.3343*X2 &" Y" & YPOS+4.3616*Y1+10.3343*Y2
      Code "G01 X" & XPOS+3.9151*X1+8.7399*X2 &" Y" & YPOS+3.9151*Y1+8.7399*Y2
      Code "G01 X" & XPOS+3.9151*X1+8.7399*X2 &" Y" & YPOS+3.9151*Y1+8.7399*Y2
      Code GM&" X" & XPOS+0.2554*X1+6.7264*X2 &" Y" & YPOS+0.2554*Y1+6.7264*Y2 &" I"& XPOS+3.3605*X1+5.4153*X2 &" J"& YPOS+3.3605*Y1+5.4153*Y2
      Code GM&" X" & XPOS+0.2554*X1+3.2736*X2 &" Y" & YPOS+0.2554*Y1+3.2736*Y2 &" I"& XPOS+5.962*X1+5*X2 &" J"& YPOS+5.962*Y1+5*Y2
      Code GM&" X" & XPOS+1.9005*X1+1.5468*X2 &" Y" & YPOS+1.9005*Y1+1.5468*Y2 &" I"& XPOS+3.3605*X1+4.5847*X2 &" J"& YPOS+3.3605*Y1+4.5847*Y2
      Code "G01 X" & XPOS+1.4652*X1-0.0071*X2 &" Y" & YPOS+1.4652*Y1-0.0071*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.1976*X1+2.6079*X2 &" Y" & YPOS+2.1976*Y1+2.6079*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.6377*X1+7.7496*X2 &" Y" & YPOS+3.6377*Y1+7.7496*Y2
      Code GM&" X" & XPOS+1.4634*X1+6.3610*X2 &" Y" & YPOS+1.4634*Y1+6.3610*Y2 &" I"& XPOS+3.3605*X1+5.787*X2 &" J"& YPOS+3.3605*Y1+5.787*Y2
      Code "G01 X" & XPOS+1.4634*X1+6.3610*X2 &" Y" & YPOS+1.4634*Y1+6.3610*Y2
      Code "G01 X" & XPOS+1.4634*X1+6.3610*X2 &" Y" & YPOS+1.4634*Y1+6.3610*Y2
      Code GM&" X" & XPOS+1.4634*X1+3.6390*X2 &" Y" & YPOS+1.4634*Y1+3.6390*Y2 &" I"& XPOS+5.962*X1+5*X2 &" J"& YPOS+5.962*Y1+5*Y2
      Code "G01 X" & XPOS+1.4634*X1+3.6390*X2 &" Y" & YPOS+1.4634*Y1+3.6390*Y2
      Code "G01 X" & XPOS+1.4634*X1+3.6390*X2 &" Y" & YPOS+1.4634*Y1+3.6390*Y2
      Code GM&" X" & XPOS+2.1976*X1+2.6079*X2 &" Y" & YPOS+2.1976*Y1+2.6079*Y2 &" I"& XPOS+3.3605*X1+4.213*X2 &" J"& YPOS+3.3605*Y1+4.213*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.0851*X1+2.2501*X2 &" Y" & YPOS+3.0851*Y1+2.2501*Y2
      Code "G0 Z"& Corte
      Code GM&" X" & XPOS+5.2576*X1+3.6390*X2 &" Y" & YPOS+5.2576*Y1+3.6390*Y2 &" I"& XPOS+3.3605*X1+4.213*X2 &" J"& YPOS+3.3605*Y1+4.213*Y2
      Code "G01 X" & XPOS+5.2576*X1+3.6390*X2 &" Y" & YPOS+5.2576*Y1+3.6390*Y2
      Code GM&" X" & XPOS+5.2576*X1+6.3610*X2 &" Y" & YPOS+5.2576*Y1+6.3610*Y2 &" I"& XPOS+0.759*X1+5*X2 &" J"& YPOS+0.759*Y1+5*Y2
      Code GM&" X" & XPOS+4.5220*X1+7.3931*X2 &" Y" & YPOS+4.5220*Y1+7.3931*Y2 &" I"& XPOS+3.3605*X1+5.787*X2 &" J"& YPOS+3.3605*Y1+5.787*Y2
      Code "G01 X" & XPOS+4.5220*X1+7.3931*X2 &" Y" & YPOS+4.5220*Y1+7.3931*Y2
      Code "G01 X" & XPOS+3.0851*X1+2.2501*X2 &" Y" & YPOS+3.0851*Y1+2.2501*Y2
      Code "G01 X" & XPOS+3.0851*X1+2.2501*X2 &" Y" & YPOS+3.0851*Y1+2.2501*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.2576*X1+6.3610*X2 &" Y" & YPOS+5.2576*Y1+6.3610*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.2576*X1+6.3610*X2 &" Y" & YPOS+5.2576*Y1+6.3610*Y2
      Largo=6.4656
    Case 87   '>
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.618*X1+8.479*X2 &" Y" & YPOS+6.618*Y1+8.479*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.682*X2 &" Y" & YPOS+5.682*Y2
      Code "G01 X" & XPOS+4.536*X2 &" Y" & YPOS+4.536*Y2
      Code "G01 X" & XPOS+6.618*X1+1.706*X2 &" Y" & YPOS+6.618*Y1+1.706*Y2
      Code "G01 X" & XPOS+6.618*X1+2.927*X2 &" Y" & YPOS+6.618*Y1+2.927*Y2
      Code "G01 X" & XPOS+1.369*X1+5.103*X2 &" Y" & YPOS+1.369*Y1+5.103*Y2
      Code "G01 X" & XPOS+6.618*X1+7.258*X2 &" Y" & YPOS+6.618*Y1+7.258*Y2
      Code "G01 X" & XPOS+6.618*X1+8.479*X2 &" Y" & YPOS+6.618*Y1+8.479*Y2
      Largo=6.618
    Case 88   '<
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.479*X2 &" Y" & YPOS+8.479*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+7.258*X2 &" Y" & YPOS+7.258*Y2
      Code "G01 X" & XPOS+5.24*X1+5.103*X2 &" Y" & YPOS+5.24*Y1+5.103*Y2
      Code "G01 X" & XPOS+2.927*X2 &" Y" & YPOS+2.927*Y2
      Code "G01 X" & XPOS+1.706*X2 &" Y" & YPOS+1.706*Y2
      Code "G01 X" & XPOS+6.618*X1+4.536*X2 &" Y" & YPOS+6.618*Y1+4.536*Y2
      Code "G01 X" & XPOS+6.618*X1+5.682*X2 &" Y" & YPOS+6.618*Y1+5.682*Y2
      Code "G01 X" & XPOS+8.479*X2 &" Y" & YPOS+8.479*Y2
      Largo=6.618
    Case 89   '|
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS-2.775*X2 &" Y" & YPOS-2.775*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+12.775*X2 &" Y" & YPOS+12.775*Y2
      Code "G01 X" & XPOS+1.069*X1+12.775*X2 &" Y" & YPOS+1.069*Y1+12.775*Y2
      Code "G01 X" & XPOS+1.069*X1-2.775*X2 &" Y" & YPOS+1.069*Y1-2.775*Y2
      Code "G01 X" & XPOS-2.775*X2 &" Y" & YPOS-2.775*Y2
      Code "G01 X" & XPOS-2.775*X2 &" Y" & YPOS-2.775*Y2
      Largo=1.069


  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
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()