'Macro for Write Engraving Screen
'******  Script Fonts  ******
'******German Bravo 2004 ****
'
Option Explicit
'=== Declaraciones ===
Dim XPOS,YPOS,Top_Mat,Depth,Rapid_dis,Feed,Height,ToolNum,RPM
Dim X1,X2,Y1,Y2,escala,corte,largo,Num,J,Codigo,Total

'=== Ingresos ===
XPOS = GetOEMDRO(1072)
YPOS = GetOEMDRO(1073)
Top_Mat = GetOEMDRO(1077)
Depth = Abs(GetOEMDRO(1075))
Rapid_dis = GetOEMDRO(1079)
Feed = Abs(GetOEMDRO(1070))
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 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

'=== GCODE ===
OpenTeachFile "write.tap"

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 1   '1
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.274*X2 &" Y" & YPOS+4.274*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.907*X1+6.664*X2 &" Y" & YPOS+1.907*Y1+6.664*Y2
      Code "G01 X" & XPOS+3.332*X1+8.572*X2 &" Y" & YPOS+3.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.85*X1+5.699*X2 &" Y" & YPOS+2.85*Y1+5.699*Y2
      Code "G01 X" & XPOS+1.907*X1+2.367*X2 &" Y" & YPOS+1.907*Y1+2.367*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Largo=6.274
    Case 2   '2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.24*X1+7.607*X2 &" Y" & YPOS+5.24*Y1+7.607*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.757*X1+6.664*X2 &" Y" & YPOS+4.757*Y1+6.664*Y2
      Code "G01 X" & XPOS+4.297*X1+6.182*X2 &" Y" & YPOS+4.297*Y1+6.182*Y2
      Code "G01 X" & XPOS+3.332*X1+5.699*X2 &" Y" & YPOS+3.332*Y1+5.699*Y2
      Code "G01 X" & XPOS+2.873*X1+5.699*X2 &" Y" & YPOS+2.873*Y1+5.699*Y2
      Code "G01 X" & XPOS+2.39*X1+6.182*X2 &" Y" & YPOS+2.39*Y1+6.182*Y2
      Code "G01 X" & XPOS+2.39*X1+7.147*X2 &" Y" & YPOS+2.39*Y1+7.147*Y2
      Code "G01 X" & XPOS+2.873*X1+8.572*X2 &" Y" & YPOS+2.873*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.815*X1+9.514*X2 &" Y" & YPOS+3.815*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.757*X1+9.997*X2 &" Y" & YPOS+4.757*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.24*X1+9.997*X2 &" Y" & YPOS+5.24*Y1+9.997*Y2
      Code "G01 X" & XPOS+6.205*X1+9.514*X2 &" Y" & YPOS+6.205*Y1+9.514*Y2
      Code "G01 X" & XPOS+6.664*X1+8.572*X2 &" Y" & YPOS+6.664*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.664*X1+7.607*X2 &" Y" & YPOS+6.664*Y1+7.607*Y2
      Code "G01 X" & XPOS+6.205*X1+6.182*X2 &" Y" & YPOS+6.205*Y1+6.182*Y2
      Code "G01 X" & XPOS+5.24*X1+5.24*X2 &" Y" & YPOS+5.24*Y1+5.24*Y2
      Code "G01 X" & XPOS+3.815*X1+4.274*X2 &" Y" & YPOS+3.815*Y1+4.274*Y2
      Code "G01 X" & XPOS+1.448*X1+2.367*X2 &" Y" & YPOS+1.448*Y1+2.367*Y2
      Code "G01 X" & XPOS+0.483*X1+1.425*X2 &" Y" & YPOS+0.483*Y1+1.425*Y2
      Code "G01 X" & XPOS &" Y" & YPOS
      Code "G01 X" & XPOS+0.483*X1+0.483*X2 &" Y" & YPOS+0.483*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.448*X1+0.942*X2 &" Y" & YPOS+1.448*Y1+0.942*Y2
      Code "G01 X" & XPOS+1.907*X1+0.942*X2 &" Y" & YPOS+1.907*Y1+0.942*Y2
      Code "G01 X" & XPOS+3.815*X1 &" Y" & YPOS+3.815*Y1
      Code "G01 X" & XPOS+4.297*X1 &" Y" & YPOS+4.297*Y1
      Code "G01 X" & XPOS+5.24*X1+0.483*X2 &" Y" & YPOS+5.24*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.722*X1+0.942*X2 &" Y" & YPOS+5.722*Y1+0.942*Y2
      Largo=8.664
    Case 3   '3
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.274*X1+7.607*X2 &" Y" & YPOS+4.274*Y1+7.607*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.792*X1+6.664*X2 &" Y" & YPOS+3.792*Y1+6.664*Y2
      Code "G01 X" & XPOS+3.332*X1+6.182*X2 &" Y" & YPOS+3.332*Y1+6.182*Y2
      Code "G01 X" & XPOS+2.367*X1+5.699*X2 &" Y" & YPOS+2.367*Y1+5.699*Y2
      Code "G01 X" & XPOS+1.884*X1+5.699*X2 &" Y" & YPOS+1.884*Y1+5.699*Y2
      Code "G01 X" & XPOS+1.425*X1+6.182*X2 &" Y" & YPOS+1.425*Y1+6.182*Y2
      Code "G01 X" & XPOS+1.425*X1+7.147*X2 &" Y" & YPOS+1.425*Y1+7.147*Y2
      Code "G01 X" & XPOS+1.884*X1+8.572*X2 &" Y" & YPOS+1.884*Y1+8.572*Y2
      Code "G01 X" & XPOS+2.85*X1+9.514*X2 &" Y" & YPOS+2.85*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.792*X1+9.997*X2 &" Y" & YPOS+3.792*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.217*X1+9.514*X2 &" Y" & YPOS+5.217*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.699*X1+8.572*X2 &" Y" & YPOS+5.699*Y1+8.572*Y2
      Code "G01 X" & XPOS+5.699*X1+7.607*X2 &" Y" & YPOS+5.699*Y1+7.607*Y2
      Code "G01 X" & XPOS+5.217*X1+6.182*X2 &" Y" & YPOS+5.217*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.274*X1+5.24*X2 &" Y" & YPOS+4.274*Y1+5.24*Y2
      Code "G01 X" & XPOS+2.85*X1+4.757*X2 &" Y" & YPOS+2.85*Y1+4.757*Y2
      Code "G01 X" & XPOS+3.792*X1+4.757*X2 &" Y" & YPOS+3.792*Y1+4.757*Y2
      Code "G01 X" & XPOS+4.274*X1+4.274*X2 &" Y" & YPOS+4.274*Y1+4.274*Y2
      Code "G01 X" & XPOS+4.757*X1+3.332*X2 &" Y" & YPOS+4.757*Y1+3.332*Y2
      Code "G01 X" & XPOS+4.757*X1+2.367*X2 &" Y" & YPOS+4.757*Y1+2.367*Y2
      Code "G01 X" & XPOS+4.274*X1+1.425*X2 &" Y" & YPOS+4.274*Y1+1.425*Y2
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.367*X1 &" Y" & YPOS+2.367*Y1
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.46*X1+0.483*X2 &" Y" & YPOS+0.46*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+1.907*X2 &" Y" & YPOS+1.907*Y2
      Code "G01 X" & XPOS+0.46*X1+2.367*X2 &" Y" & YPOS+0.46*Y1+2.367*Y2
      Code "G01 X" & XPOS+0.942*X1+1.907*X2 &" Y" & YPOS+0.942*Y1+1.907*Y2
      Code "G01 X" & XPOS+0.46*X1+1.425*X2 &" Y" & YPOS+0.46*Y1+1.425*Y2
      Largo=7.699
    Case 4   '4
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.332*X1+9.997*X2 &" Y" & YPOS+3.332*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.367*X1+7.607*X2 &" Y" & YPOS+2.367*Y1+7.607*Y2
      Code "G01 X" & XPOS+0.942*X1+2.85*X2 &" Y" & YPOS+0.942*Y1+2.85*Y2
      Code "G01 X" & XPOS+0.483*X1+2.367*X2 &" Y" & YPOS+0.483*Y1+2.367*Y2
      Code "G01 X" & XPOS+2.85*X2 &" Y" & YPOS+2.85*Y2
      Code "G01 X" & XPOS+0.483*X1+3.332*X2 &" Y" & YPOS+0.483*Y1+3.332*Y2
      Code "G01 X" & XPOS+1.907*X1+3.332*X2 &" Y" & YPOS+1.907*Y1+3.332*Y2
      Code "G01 X" & XPOS+3.815*X1+2.85*X2 &" Y" & YPOS+3.815*Y1+2.85*Y2
      Code "G01 X" & XPOS+4.274*X1+2.85*X2 &" Y" & YPOS+4.274*Y1+2.85*Y2
      Code "G01 X" & XPOS+5.24*X1+3.332*X2 &" Y" & YPOS+5.24*Y1+3.332*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.664*X1+9.997*X2 &" Y" & YPOS+6.664*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.699*X1+7.607*X2 &" Y" & YPOS+5.699*Y1+7.607*Y2
      Code "G01 X" & XPOS+3.332*X1 &" Y" & YPOS+3.332*Y1
      Largo=8.664
    Case 5   '5
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.182*X1+9.997*X2 &" Y" & YPOS+6.182*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.217*X1+9.514*X2 &" Y" & YPOS+5.217*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.757*X1+9.514*X2 &" Y" & YPOS+4.757*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.332*X1+9.997*X2 &" Y" & YPOS+3.332*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.85*X1+9.997*X2 &" Y" & YPOS+2.85*Y1+9.997*Y2
      Code "G01 X" & XPOS+0.942*X1+5.24*X2 &" Y" & YPOS+0.942*Y1+5.24*Y2
      Code "G01 X" & XPOS+1.425*X1+6.182*X2 &" Y" & YPOS+1.425*Y1+6.182*Y2
      Code "G01 X" & XPOS+2.367*X1+6.664*X2 &" Y" & YPOS+2.367*Y1+6.664*Y2
      Code "G01 X" & XPOS+3.332*X1+6.664*X2 &" Y" & YPOS+3.332*Y1+6.664*Y2
      Code "G01 X" & XPOS+4.274*X1+6.182*X2 &" Y" & YPOS+4.274*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.757*X1+5.24*X2 &" Y" & YPOS+4.757*Y1+5.24*Y2
      Code "G01 X" & XPOS+4.757*X1+3.815*X2 &" Y" & YPOS+4.757*Y1+3.815*Y2
      Code "G01 X" & XPOS+4.274*X1+1.907*X2 &" Y" & YPOS+4.274*Y1+1.907*Y2
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.367*X1 &" Y" & YPOS+2.367*Y1
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.46*X1+0.483*X2 &" Y" & YPOS+0.46*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+1.907*X2 &" Y" & YPOS+1.907*Y2
      Code "G01 X" & XPOS+0.46*X1+2.367*X2 &" Y" & YPOS+0.46*Y1+2.367*Y2
      Code "G01 X" & XPOS+0.942*X1+1.907*X2 &" Y" & YPOS+0.942*Y1+1.907*Y2
      Code "G01 X" & XPOS+0.46*X1+1.425*X2 &" Y" & YPOS+0.46*Y1+1.425*Y2
      Largo=8.182
    Case 6   '6
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.699*X1+9.514*X2 &" Y" & YPOS+5.699*Y1+9.514*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.217*X1+9.054*X2 &" Y" & YPOS+5.217*Y1+9.054*Y2
      Code "G01 X" & XPOS+5.699*X1+8.572*X2 &" Y" & YPOS+5.699*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.182*X1+9.054*X2 &" Y" & YPOS+6.182*Y1+9.054*Y2
      Code "G01 X" & XPOS+6.182*X1+9.514*X2 &" Y" & YPOS+6.182*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.217*X1+9.997*X2 &" Y" & YPOS+5.217*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.309*X1+9.514*X2 &" Y" & YPOS+3.309*Y1+9.514*Y2
      Code "G01 X" & XPOS+2.367*X1+8.572*X2 &" Y" & YPOS+2.367*Y1+8.572*Y2
      Code "G01 X" & XPOS+1.425*X1+7.147*X2 &" Y" & YPOS+1.425*Y1+7.147*Y2
      Code "G01 X" & XPOS+0.46*X1+4.757*X2 &" Y" & YPOS+0.46*Y1+4.757*Y2
      Code "G01 X" & XPOS+2.85*X2 &" Y" & YPOS+2.85*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+0.46*X1+0.483*X2 &" Y" & YPOS+0.46*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+2.367*X1 &" Y" & YPOS+2.367*Y1
      Code "G01 X" & XPOS+3.309*X1+0.483*X2 &" Y" & YPOS+3.309*Y1+0.483*Y2
      Code "G01 X" & XPOS+4.274*X1+1.907*X2 &" Y" & YPOS+4.274*Y1+1.907*Y2
      Code "G01 X" & XPOS+4.757*X1+3.815*X2 &" Y" & YPOS+4.757*Y1+3.815*Y2
      Code "G01 X" & XPOS+4.757*X1+5.24*X2 &" Y" & YPOS+4.757*Y1+5.24*Y2
      Code "G01 X" & XPOS+4.274*X1+6.182*X2 &" Y" & YPOS+4.274*Y1+6.182*Y2
      Code "G01 X" & XPOS+3.309*X1+6.664*X2 &" Y" & YPOS+3.309*Y1+6.664*Y2
      Code "G01 X" & XPOS+2.367*X1+6.664*X2 &" Y" & YPOS+2.367*Y1+6.664*Y2
      Code "G01 X" & XPOS+1.425*X1+6.182*X2 &" Y" & YPOS+1.425*Y1+6.182*Y2
      Code "G01 X" & XPOS+0.942*X1+5.699*X2 &" Y" & YPOS+0.942*Y1+5.699*Y2
      Code "G01 X" & XPOS+0.46*X1+4.757*X2 &" Y" & YPOS+0.46*Y1+4.757*Y2
      Largo=8.182
    Case 7   '7
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.965*X1+7.147*X2 &" Y" & YPOS+0.965*Y1+7.147*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.907*X1+9.997*X2 &" Y" & YPOS+1.907*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.815*X1+9.514*X2 &" Y" & YPOS+3.815*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.757*X1+9.514*X2 &" Y" & YPOS+4.757*Y1+9.514*Y2
      Code "G01 X" & XPOS+6.182*X1+9.997*X2 &" Y" & YPOS+6.182*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.39*X1+4.274*X2 &" Y" & YPOS+2.39*Y1+4.274*Y2
      Code "G01 X" & XPOS+0.965*X1+1.907*X2 &" Y" & YPOS+0.965*Y1+1.907*Y2
      Code "G01 X" & XPOS &" Y" & YPOS
      Largo=7.182
    Case 8   '8
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.367*X1+5.24*X2 &" Y" & YPOS+2.367*Y1+5.24*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.757*X1+5.699*X2 &" Y" & YPOS+4.757*Y1+5.699*Y2
      Code "G01 X" & XPOS+5.699*X1+6.182*X2 &" Y" & YPOS+5.699*Y1+6.182*Y2
      Code "G01 X" & XPOS+6.182*X1+6.664*X2 &" Y" & YPOS+6.182*Y1+6.664*Y2
      Code "G01 X" & XPOS+6.664*X1+7.607*X2 &" Y" & YPOS+6.664*Y1+7.607*Y2
      Code "G01 X" & XPOS+6.664*X1+8.572*X2 &" Y" & YPOS+6.664*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.182*X1+9.514*X2 &" Y" & YPOS+6.182*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.24*X1+9.997*X2 &" Y" & YPOS+5.24*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.332*X1+9.514*X2 &" Y" & YPOS+3.332*Y1+9.514*Y2
      Code "G01 X" & XPOS+2.85*X1+9.054*X2 &" Y" & YPOS+2.85*Y1+9.054*Y2
      Code "G01 X" & XPOS+2.367*X1+8.089*X2 &" Y" & YPOS+2.367*Y1+8.089*Y2
      Code "G01 X" & XPOS+2.367*X1+7.147*X2 &" Y" & YPOS+2.367*Y1+7.147*Y2
      Code "G01 X" & XPOS+2.85*X1+6.182*X2 &" Y" & YPOS+2.85*Y1+6.182*Y2
      Code "G01 X" & XPOS+5.24*X1+4.757*X2 &" Y" & YPOS+5.24*Y1+4.757*Y2
      Code "G01 X" & XPOS+5.699*X1+3.815*X2 &" Y" & YPOS+5.699*Y1+3.815*Y2
      Code "G01 X" & XPOS+5.699*X1+2.85*X2 &" Y" & YPOS+5.699*Y1+2.85*Y2
      Code "G01 X" & XPOS+5.24*X1+1.425*X2 &" Y" & YPOS+5.24*Y1+1.425*Y2
      Code "G01 X" & XPOS+4.274*X1+0.483*X2 &" Y" & YPOS+4.274*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.85*X1 &" Y" & YPOS+2.85*Y1
      Code "G01 X" & XPOS+1.907*X1 &" Y" & YPOS+1.907*Y1
      Code "G01 X" & XPOS+0.942*X1+0.483*X2 &" Y" & YPOS+0.942*Y1+0.483*Y2
      Code "G01 X" & XPOS+0.483*X1+0.942*X2 &" Y" & YPOS+0.483*Y1+0.942*Y2
      Code "G01 X" & XPOS+1.907*X2 &" Y" & YPOS+1.907*Y2
      Code "G01 X" & XPOS+2.85*X2 &" Y" & YPOS+2.85*Y2
      Code "G01 X" & XPOS+0.483*X1+3.815*X2 &" Y" & YPOS+0.483*Y1+3.815*Y2
      Code "G01 X" & XPOS+1.425*X1+4.757*X2 &" Y" & YPOS+1.425*Y1+4.757*Y2
      Code "G01 X" & XPOS+2.367*X1+5.24*X2 &" Y" & YPOS+2.367*Y1+5.24*Y2
      Code "G01 X" & XPOS+2.367*X1+5.24*X2 &" Y" & YPOS+2.367*Y1+5.24*Y2
      Largo=8.664
    Case 9   '9
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.46*X1+0.483*X2 &" Y" & YPOS+0.46*Y1+0.483*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.942*X1+0.942*X2 &" Y" & YPOS+0.942*Y1+0.942*Y2
      Code "G01 X" & XPOS+0.46*X1+1.425*X2 &" Y" & YPOS+0.46*Y1+1.425*Y2
      Code "G01 X" & XPOS+0.942*X2 &" Y" & YPOS+0.942*Y2
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+0.942*X1 &" Y" & YPOS+0.942*Y1
      Code "G01 X" & XPOS+1.907*X1 &" Y" & YPOS+1.907*Y1
      Code "G01 X" & XPOS+2.85*X1+0.483*X2 &" Y" & YPOS+2.85*Y1+0.483*Y2
      Code "G01 X" & XPOS+3.792*X1+1.425*X2 &" Y" & YPOS+3.792*Y1+1.425*Y2
      Code "G01 X" & XPOS+4.757*X1+2.85*X2 &" Y" & YPOS+4.757*Y1+2.85*Y2
      Code "G01 X" & XPOS+5.699*X1+5.24*X2 &" Y" & YPOS+5.699*Y1+5.24*Y2
      Code "G01 X" & XPOS+6.182*X1+7.147*X2 &" Y" & YPOS+6.182*Y1+7.147*Y2
      Code "G01 X" & XPOS+6.182*X1+8.572*X2 &" Y" & YPOS+6.182*Y1+8.572*Y2
      Code "G01 X" & XPOS+5.699*X1+9.514*X2 &" Y" & YPOS+5.699*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.757*X1+9.997*X2 &" Y" & YPOS+4.757*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.792*X1+9.997*X2 &" Y" & YPOS+3.792*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.85*X1+9.514*X2 &" Y" & YPOS+2.85*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.907*X1+8.089*X2 &" Y" & YPOS+1.907*Y1+8.089*Y2
      Code "G01 X" & XPOS+1.425*X1+6.182*X2 &" Y" & YPOS+1.425*Y1+6.182*Y2
      Code "G01 X" & XPOS+1.425*X1+4.757*X2 &" Y" & YPOS+1.425*Y1+4.757*Y2
      Code "G01 X" & XPOS+1.907*X1+3.815*X2 &" Y" & YPOS+1.907*Y1+3.815*Y2
      Code "G01 X" & XPOS+2.85*X1+3.332*X2 &" Y" & YPOS+2.85*Y1+3.332*Y2
      Code "G01 X" & XPOS+3.792*X1+3.332*X2 &" Y" & YPOS+3.792*Y1+3.332*Y2
      Code "G01 X" & XPOS+4.757*X1+3.815*X2 &" Y" & YPOS+4.757*Y1+3.815*Y2
      Code "G01 X" & XPOS+5.217*X1+4.274*X2 &" Y" & YPOS+5.217*Y1+4.274*Y2
      Code "G01 X" & XPOS+5.699*X1+5.24*X2 &" Y" & YPOS+5.699*Y1+5.24*Y2
      Largo=8.182
    Case 10   '0
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.309*X1+9.997*X2 &" Y" & YPOS+3.309*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.367*X1+9.514*X2 &" Y" & YPOS+2.367*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.425*X1+8.089*X2 &" Y" & YPOS+1.425*Y1+8.089*Y2
      Code "G01 X" & XPOS+0.46*X1+5.699*X2 &" Y" & YPOS+0.46*Y1+5.699*Y2
      Code "G01 X" & XPOS+3.815*X2 &" Y" & YPOS+3.815*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+0.46*X1+0.483*X2 &" Y" & YPOS+0.46*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+2.367*X1 &" Y" & YPOS+2.367*Y1
      Code "G01 X" & XPOS+3.309*X1+0.483*X2 &" Y" & YPOS+3.309*Y1+0.483*Y2
      Code "G01 X" & XPOS+4.274*X1+1.907*X2 &" Y" & YPOS+4.274*Y1+1.907*Y2
      Code "G01 X" & XPOS+5.217*X1+4.274*X2 &" Y" & YPOS+5.217*Y1+4.274*Y2
      Code "G01 X" & XPOS+5.699*X1+6.182*X2 &" Y" & YPOS+5.699*Y1+6.182*Y2
      Code "G01 X" & XPOS+5.699*X1+8.572*X2 &" Y" & YPOS+5.699*Y1+8.572*Y2
      Code "G01 X" & XPOS+5.217*X1+9.514*X2 &" Y" & YPOS+5.217*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.309*X1+9.997*X2 &" Y" & YPOS+3.309*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.309*X1+9.997*X2 &" Y" & YPOS+3.309*Y1+9.997*Y2
      Largo=7.699
    Case 21   'A
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.942*X1+0.483*X2 &" Y" & YPOS+0.942*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.367*X1+1.907*X2 &" Y" & YPOS+2.367*Y1+1.907*Y2
      Code "G01 X" & XPOS+3.792*X1+3.815*X2 &" Y" & YPOS+3.792*Y1+3.815*Y2
      Code "G01 X" & XPOS+5.699*X1+7.147*X2 &" Y" & YPOS+5.699*Y1+7.147*Y2
      Code "G01 X" & XPOS+7.124*X1+9.997*X2 &" Y" & YPOS+7.124*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.124*X1 &" Y" & YPOS+7.124*Y1
      Code "G01 X" & XPOS+6.664*X1+1.425*X2 &" Y" & YPOS+6.664*Y1+1.425*Y2
      Code "G01 X" & XPOS+5.699*X1+2.85*X2 &" Y" & YPOS+5.699*Y1+2.85*Y2
      Code "G01 X" & XPOS+4.757*X1+3.815*X2 &" Y" & YPOS+4.757*Y1+3.815*Y2
      Code "G01 X" & XPOS+3.332*X1+4.757*X2 &" Y" & YPOS+3.332*Y1+4.757*Y2
      Code "G01 X" & XPOS+2.367*X1+4.757*X2 &" Y" & YPOS+2.367*Y1+4.757*Y2
      Code "G01 X" & XPOS+1.907*X1+4.274*X2 &" Y" & YPOS+1.907*Y1+4.274*Y2
      Code "G01 X" & XPOS+1.907*X1+3.332*X2 &" Y" & YPOS+1.907*Y1+3.332*Y2
      Code "G01 X" & XPOS+2.367*X1+2.367*X2 &" Y" & YPOS+2.367*Y1+2.367*Y2
      Code "G01 X" & XPOS+3.332*X1+1.425*X2 &" Y" & YPOS+3.332*Y1+1.425*Y2
      Code "G01 X" & XPOS+4.757*X1+0.483*X2 &" Y" & YPOS+4.757*Y1+0.483*Y2
      Code "G01 X" & XPOS+6.182*X1 &" Y" & YPOS+6.182*Y1
      Code "G01 X" & XPOS+8.572*X1 &" Y" & YPOS+8.572*Y1
      Largo=9.572
    Case 35   'B
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.757*X1+9.054*X2 &" Y" & YPOS+4.757*Y1+9.054*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.24*X1+8.572*X2 &" Y" & YPOS+5.24*Y1+8.572*Y2
      Code "G01 X" & XPOS+5.24*X1+7.147*X2 &" Y" & YPOS+5.24*Y1+7.147*Y2
      Code "G01 X" & XPOS+4.757*X1+5.24*X2 &" Y" & YPOS+4.757*Y1+5.24*Y2
      Code "G01 X" & XPOS+4.274*X1+3.815*X2 &" Y" & YPOS+4.274*Y1+3.815*Y2
      Code "G01 X" & XPOS+3.815*X1+2.85*X2 &" Y" & YPOS+3.815*Y1+2.85*Y2
      Code "G01 X" & XPOS+2.85*X1+1.425*X2 &" Y" & YPOS+2.85*Y1+1.425*Y2
      Code "G01 X" & XPOS+1.907*X1+0.483*X2 &" Y" & YPOS+1.907*Y1+0.483*Y2
      Code "G01 X" & XPOS+0.942*X1 &" Y" & YPOS+0.942*Y1
      Code "G01 X" & XPOS+0.483*X1 &" Y" & YPOS+0.483*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.907*X2 &" Y" & YPOS+1.907*Y2
      Code "G01 X" & XPOS+0.483*X1+4.274*X2 &" Y" & YPOS+0.483*Y1+4.274*Y2
      Code "G01 X" & XPOS+0.942*X1+5.699*X2 &" Y" & YPOS+0.942*Y1+5.699*Y2
      Code "G01 X" & XPOS+1.425*X1+6.664*X2 &" Y" & YPOS+1.425*Y1+6.664*Y2
      Code "G01 X" & XPOS+2.39*X1+8.089*X2 &" Y" & YPOS+2.39*Y1+8.089*Y2
      Code "G01 X" & XPOS+3.332*X1+9.054*X2 &" Y" & YPOS+3.332*Y1+9.054*Y2
      Code "G01 X" & XPOS+4.274*X1+9.514*X2 &" Y" & YPOS+4.274*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.722*X1+9.997*X2 &" Y" & YPOS+5.722*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.147*X1+9.997*X2 &" Y" & YPOS+7.147*Y1+9.997*Y2
      Code "G01 X" & XPOS+8.089*X1+9.514*X2 &" Y" & YPOS+8.089*Y1+9.514*Y2
      Code "G01 X" & XPOS+8.572*X1+8.572*X2 &" Y" & YPOS+8.572*Y1+8.572*Y2
      Code "G01 X" & XPOS+8.572*X1+7.607*X2 &" Y" & YPOS+8.572*Y1+7.607*Y2
      Code "G01 X" & XPOS+8.089*X1+6.664*X2 &" Y" & YPOS+8.089*Y1+6.664*Y2
      Code "G01 X" & XPOS+7.607*X1+6.182*X2 &" Y" & YPOS+7.607*Y1+6.182*Y2
      Code "G01 X" & XPOS+6.664*X1+5.699*X2 &" Y" & YPOS+6.664*Y1+5.699*Y2
      Code "G01 X" & XPOS+5.24*X1+5.24*X2 &" Y" & YPOS+5.24*Y1+5.24*Y2
      Code "G01 X" & XPOS+4.757*X1+5.24*X2 &" Y" & YPOS+4.757*Y1+5.24*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.24*X1+5.24*X2 &" Y" & YPOS+5.24*Y1+5.24*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+6.664*X1+4.757*X2 &" Y" & YPOS+6.664*Y1+4.757*Y2
      Code "G01 X" & XPOS+7.147*X1+4.274*X2 &" Y" & YPOS+7.147*Y1+4.274*Y2
      Code "G01 X" & XPOS+7.607*X1+3.332*X2 &" Y" & YPOS+7.607*Y1+3.332*Y2
      Code "G01 X" & XPOS+7.607*X1+1.907*X2 &" Y" & YPOS+7.607*Y1+1.907*Y2
      Code "G01 X" & XPOS+7.147*X1+0.942*X2 &" Y" & YPOS+7.147*Y1+0.942*Y2
      Code "G01 X" & XPOS+6.664*X1+0.483*X2 &" Y" & YPOS+6.664*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.722*X1 &" Y" & YPOS+5.722*Y1
      Code "G01 X" & XPOS+4.274*X1 &" Y" & YPOS+4.274*Y1
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.85*X1+1.425*X2 &" Y" & YPOS+2.85*Y1+1.425*Y2
      Largo=9.572
    Case 33   'C
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.274*X1+7.147*X2 &" Y" & YPOS+4.274*Y1+7.147*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.274*X1+6.664*X2 &" Y" & YPOS+4.274*Y1+6.664*Y2
      Code "G01 X" & XPOS+4.757*X1+6.182*X2 &" Y" & YPOS+4.757*Y1+6.182*Y2
      Code "G01 X" & XPOS+5.699*X1+6.182*X2 &" Y" & YPOS+5.699*Y1+6.182*Y2
      Code "G01 X" & XPOS+6.664*X1+6.664*X2 &" Y" & YPOS+6.664*Y1+6.664*Y2
      Code "G01 X" & XPOS+7.124*X1+7.607*X2 &" Y" & YPOS+7.124*Y1+7.607*Y2
      Code "G01 X" & XPOS+7.124*X1+8.572*X2 &" Y" & YPOS+7.124*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.664*X1+9.514*X2 &" Y" & YPOS+6.664*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.699*X1+9.997*X2 &" Y" & YPOS+5.699*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.85*X1+9.514*X2 &" Y" & YPOS+2.85*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.907*X1+8.572*X2 &" Y" & YPOS+1.907*Y1+8.572*Y2
      Code "G01 X" & XPOS+0.942*X1+7.147*X2 &" Y" & YPOS+0.942*Y1+7.147*Y2
      Code "G01 X" & XPOS+0.483*X1+6.182*X2 &" Y" & YPOS+0.483*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.274*X2 &" Y" & YPOS+4.274*Y2
      Code "G01 X" & XPOS+2.367*X2 &" Y" & YPOS+2.367*Y2
      Code "G01 X" & XPOS+0.483*X1+0.942*X2 &" Y" & YPOS+0.483*Y1+0.942*Y2
      Code "G01 X" & XPOS+0.942*X1+0.483*X2 &" Y" & YPOS+0.942*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.907*X1 &" Y" & YPOS+1.907*Y1
      Code "G01 X" & XPOS+2.85*X1 &" Y" & YPOS+2.85*Y1
      Code "G01 X" & XPOS+4.274*X1+0.483*X2 &" Y" & YPOS+4.274*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.24*X1+1.425*X2 &" Y" & YPOS+5.24*Y1+1.425*Y2
      Code "G01 X" & XPOS+5.699*X1+2.367*X2 &" Y" & YPOS+5.699*Y1+2.367*Y2
      Largo=8.124
    Case 23   'D
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.664*X1+9.997*X2 &" Y" & YPOS+6.664*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.722*X1+9.514*X2 &" Y" & YPOS+5.722*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.24*X1+8.572*X2 &" Y" & YPOS+5.24*Y1+8.572*Y2
      Code "G01 X" & XPOS+4.757*X1+6.664*X2 &" Y" & YPOS+4.757*Y1+6.664*Y2
      Code "G01 X" & XPOS+4.297*X1+3.815*X2 &" Y" & YPOS+4.297*Y1+3.815*Y2
      Code "G01 X" & XPOS+3.815*X1+2.367*X2 &" Y" & YPOS+3.815*Y1+2.367*Y2
      Code "G01 X" & XPOS+3.332*X1+1.425*X2 &" Y" & YPOS+3.332*Y1+1.425*Y2
      Code "G01 X" & XPOS+2.39*X1+0.483*X2 &" Y" & YPOS+2.39*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.483*X1 &" Y" & YPOS+0.483*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+0.483*X1+1.907*X2 &" Y" & YPOS+0.483*Y1+1.907*Y2
      Code "G01 X" & XPOS+1.425*X1+1.907*X2 &" Y" & YPOS+1.425*Y1+1.907*Y2
      Code "G01 X" & XPOS+2.39*X1+1.425*X2 &" Y" & YPOS+2.39*Y1+1.425*Y2
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G01 X" & XPOS+4.757*X1 &" Y" & YPOS+4.757*Y1
      Code "G01 X" & XPOS+6.182*X1 &" Y" & YPOS+6.182*Y1
      Code "G01 X" & XPOS+7.63*X1+0.483*X2 &" Y" & YPOS+7.63*Y1+0.483*Y2
      Code "G01 X" & XPOS+8.572*X1+1.425*X2 &" Y" & YPOS+8.572*Y1+1.425*Y2
      Code "G01 X" & XPOS+9.514*X1+3.332*X2 &" Y" & YPOS+9.514*Y1+3.332*Y2
      Code "G01 X" & XPOS+9.997*X1+5.699*X2 &" Y" & YPOS+9.997*Y1+5.699*Y2
      Code "G01 X" & XPOS+9.997*X1+7.607*X2 &" Y" & YPOS+9.997*Y1+7.607*Y2
      Code "G01 X" & XPOS+9.514*X1+9.054*X2 &" Y" & YPOS+9.514*Y1+9.054*Y2
      Code "G01 X" & XPOS+9.054*X1+9.514*X2 &" Y" & YPOS+9.054*Y1+9.514*Y2
      Code "G01 X" & XPOS+8.089*X1+9.997*X2 &" Y" & YPOS+8.089*Y1+9.997*Y2
      Code "G01 X" & XPOS+6.664*X1+9.997*X2 &" Y" & YPOS+6.664*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.722*X1+9.054*X2 &" Y" & YPOS+5.722*Y1+9.054*Y2
      Code "G01 X" & XPOS+5.722*X1+8.089*X2 &" Y" & YPOS+5.722*Y1+8.089*Y2
      Code "G01 X" & XPOS+6.182*X1+6.664*X2 &" Y" & YPOS+6.182*Y1+6.664*Y2
      Code "G01 X" & XPOS+7.147*X1+5.24*X2 &" Y" & YPOS+7.147*Y1+5.24*Y2
      Code "G01 X" & XPOS+8.089*X1+4.274*X2 &" Y" & YPOS+8.089*Y1+4.274*Y2
      Code "G01 X" & XPOS+9.514*X1+3.332*X2 &" Y" & YPOS+9.514*Y1+3.332*Y2
      Code "G01 X" & XPOS+10.479*X1+2.85*X2 &" Y" & YPOS+10.479*Y1+2.85*Y2
      Largo=11.479
    Case 13   'E
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.217*X1+8.089*X2 &" Y" & YPOS+5.217*Y1+8.089*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.217*X1+7.607*X2 &" Y" & YPOS+5.217*Y1+7.607*Y2
      Code "G01 X" & XPOS+5.699*X1+7.147*X2 &" Y" & YPOS+5.699*Y1+7.147*Y2
      Code "G01 X" & XPOS+6.641*X1+7.147*X2 &" Y" & YPOS+6.641*Y1+7.147*Y2
      Code "G01 X" & XPOS+7.124*X1+7.607*X2 &" Y" & YPOS+7.124*Y1+7.607*Y2
      Code "G01 X" & XPOS+7.124*X1+8.572*X2 &" Y" & YPOS+7.124*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.641*X1+9.514*X2 &" Y" & YPOS+6.641*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.217*X1+9.997*X2 &" Y" & YPOS+5.217*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.309*X1+9.997*X2 &" Y" & YPOS+3.309*Y1+9.997*Y2
      Code "G01 X" & XPOS+1.884*X1+9.514*X2 &" Y" & YPOS+1.884*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.425*X1+8.572*X2 &" Y" & YPOS+1.425*Y1+8.572*Y2
      Code "G01 X" & XPOS+1.425*X1+7.147*X2 &" Y" & YPOS+1.425*Y1+7.147*Y2
      Code "G01 X" & XPOS+1.884*X1+6.182*X2 &" Y" & YPOS+1.884*Y1+6.182*Y2
      Code "G01 X" & XPOS+2.367*X1+5.699*X2 &" Y" & YPOS+2.367*Y1+5.699*Y2
      Code "G01 X" & XPOS+3.792*X1+5.24*X2 &" Y" & YPOS+3.792*Y1+5.24*Y2
      Code "G01 X" & XPOS+2.367*X1+5.24*X2 &" Y" & YPOS+2.367*Y1+5.24*Y2
      Code "G01 X" & XPOS+0.942*X1+4.757*X2 &" Y" & YPOS+0.942*Y1+4.757*Y2
      Code "G01 X" & XPOS+0.46*X1+4.274*X2 &" Y" & YPOS+0.46*Y1+4.274*Y2
      Code "G01 X" & XPOS+3.332*X2 &" Y" & YPOS+3.332*Y2
      Code "G01 X" & XPOS+1.907*X2 &" Y" & YPOS+1.907*Y2
      Code "G01 X" & XPOS+0.46*X1+0.942*X2 &" Y" & YPOS+0.46*Y1+0.942*Y2
      Code "G01 X" & XPOS+0.942*X1+0.483*X2 &" Y" & YPOS+0.942*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.367*X1 &" Y" & YPOS+2.367*Y1
      Code "G01 X" & XPOS+3.792*X1 &" Y" & YPOS+3.792*Y1
      Code "G01 X" & XPOS+5.217*X1+0.483*X2 &" Y" & YPOS+5.217*Y1+0.483*Y2
      Code "G01 X" & XPOS+6.182*X1+1.425*X2 &" Y" & YPOS+6.182*Y1+1.425*Y2
      Code "G01 X" & XPOS+6.641*X1+2.367*X2 &" Y" & YPOS+6.641*Y1+2.367*Y2
      Largo=8.124
    Case 24   'F
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.274*X1+7.147*X2 &" Y" & YPOS+4.274*Y1+7.147*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.332*X1+7.147*X2 &" Y" & YPOS+3.332*Y1+7.147*Y2
      Code "G01 X" & XPOS+2.367*X1+7.607*X2 &" Y" & YPOS+2.367*Y1+7.607*Y2
      Code "G01 X" & XPOS+1.907*X1+8.572*X2 &" Y" & YPOS+1.907*Y1+8.572*Y2
      Code "G01 X" & XPOS+2.367*X1+9.514*X2 &" Y" & YPOS+2.367*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.815*X1+9.997*X2 &" Y" & YPOS+3.815*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.24*X1+9.997*X2 &" Y" & YPOS+5.24*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.124*X1+9.514*X2 &" Y" & YPOS+7.124*Y1+9.514*Y2
      Code "G01 X" & XPOS+8.572*X1+9.514*X2 &" Y" & YPOS+8.572*Y1+9.514*Y2
      Code "G01 X" & XPOS+9.514*X1+9.997*X2 &" Y" & YPOS+9.514*Y1+9.997*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.124*X1+9.514*X2 &" Y" & YPOS+7.124*Y1+9.514*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+6.182*X1+6.182*X2 &" Y" & YPOS+6.182*Y1+6.182*Y2
      Code "G01 X" & XPOS+5.24*X1+3.332*X2 &" Y" & YPOS+5.24*Y1+3.332*Y2
      Code "G01 X" & XPOS+4.274*X1+1.425*X2 &" Y" & YPOS+4.274*Y1+1.425*Y2
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.367*X1 &" Y" & YPOS+2.367*Y1
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.483*X1+0.483*X2 &" Y" & YPOS+0.483*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+2.367*X2 &" Y" & YPOS+2.367*Y2
      Code "G01 X" & XPOS+0.483*X1+2.85*X2 &" Y" & YPOS+0.483*Y1+2.85*Y2
      Code "G01 X" & XPOS+1.425*X1+2.85*X2 &" Y" & YPOS+1.425*Y1+2.85*Y2
      Code "G01 X" & XPOS+2.367*X1+2.367*X2 &" Y" & YPOS+2.367*Y1+2.367*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.815*X1+5.24*X2 &" Y" & YPOS+3.815*Y1+5.24*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+8.089*X1+5.24*X2 &" Y" & YPOS+8.089*Y1+5.24*Y2
      Largo=10.514
    Case 25   'G
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.965*X1+0.483*X2 &" Y" & YPOS+0.965*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.85*X1+2.367*X2 &" Y" & YPOS+2.85*Y1+2.367*Y2
      Code "G01 X" & XPOS+4.297*X1+4.757*X2 &" Y" & YPOS+4.297*Y1+4.757*Y2
      Code "G01 X" & XPOS+4.757*X1+6.182*X2 &" Y" & YPOS+4.757*Y1+6.182*Y2
      Code "G01 X" & XPOS+5.24*X1+8.089*X2 &" Y" & YPOS+5.24*Y1+8.089*Y2
      Code "G01 X" & XPOS+5.24*X1+9.514*X2 &" Y" & YPOS+5.24*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.757*X1+9.997*X2 &" Y" & YPOS+4.757*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.297*X1+9.997*X2 &" Y" & YPOS+4.297*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.815*X1+9.514*X2 &" Y" & YPOS+3.815*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.332*X1+8.572*X2 &" Y" & YPOS+3.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.332*X1+7.147*X2 &" Y" & YPOS+3.332*Y1+7.147*Y2
      Code "G01 X" & XPOS+3.815*X1+6.182*X2 &" Y" & YPOS+3.815*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.757*X1+5.699*X2 &" Y" & YPOS+4.757*Y1+5.699*Y2
      Code "G01 X" & XPOS+6.664*X1+5.699*X2 &" Y" & YPOS+6.664*Y1+5.699*Y2
      Code "G01 X" & XPOS+8.089*X1+6.182*X2 &" Y" & YPOS+8.089*Y1+6.182*Y2
      Code "G01 X" & XPOS+8.572*X1+6.664*X2 &" Y" & YPOS+8.572*Y1+6.664*Y2
      Code "G01 X" & XPOS+9.054*X1+7.607*X2 &" Y" & YPOS+9.054*Y1+7.607*Y2
      Code "G01 X" & XPOS+9.054*X1+4.757*X2 &" Y" & YPOS+9.054*Y1+4.757*Y2
      Code "G01 X" & XPOS+8.572*X1+2.367*X2 &" Y" & YPOS+8.572*Y1+2.367*Y2
      Code "G01 X" & XPOS+8.089*X1+1.425*X2 &" Y" & YPOS+8.089*Y1+1.425*Y2
      Code "G01 X" & XPOS+7.147*X1+0.483*X2 &" Y" & YPOS+7.147*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.722*X1 &" Y" & YPOS+5.722*Y1
      Code "G01 X" & XPOS+3.815*X1 &" Y" & YPOS+3.815*Y1
      Code "G01 X" & XPOS+2.39*X1+0.483*X2 &" Y" & YPOS+2.39*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X1+1.425*X2 &" Y" & YPOS+1.425*Y1+1.425*Y2
      Code "G01 X" & XPOS+0.965*X1+2.367*X2 &" Y" & YPOS+0.965*Y1+2.367*Y2
      Code "G01 X" & XPOS+0.965*X1+3.332*X2 &" Y" & YPOS+0.965*Y1+3.332*Y2
      Largo=10.054
    Case 26   'H
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.85*X1+6.664*X2 &" Y" & YPOS+2.85*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.907*X1+7.147*X2 &" Y" & YPOS+1.907*Y1+7.147*Y2
      Code "G01 X" & XPOS+1.425*X1+8.089*X2 &" Y" & YPOS+1.425*Y1+8.089*Y2
      Code "G01 X" & XPOS+1.425*X1+8.572*X2 &" Y" & YPOS+1.425*Y1+8.572*Y2
      Code "G01 X" & XPOS+1.907*X1+9.514*X2 &" Y" & YPOS+1.907*Y1+9.514*Y2
      Code "G01 X" & XPOS+2.85*X1+9.997*X2 &" Y" & YPOS+2.85*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.332*X1+9.997*X2 &" Y" & YPOS+3.332*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.514*X2 &" Y" & YPOS+4.274*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.757*X1+8.572*X2 &" Y" & YPOS+4.757*Y1+8.572*Y2
      Code "G01 X" & XPOS+4.757*X1+7.607*X2 &" Y" & YPOS+4.757*Y1+7.607*Y2
      Code "G01 X" & XPOS+4.274*X1+5.699*X2 &" Y" & YPOS+4.274*Y1+5.699*Y2
      Code "G01 X" & XPOS+3.332*X1+2.85*X2 &" Y" & YPOS+3.332*Y1+2.85*Y2
      Code "G01 X" & XPOS+2.39*X1+0.942*X2 &" Y" & YPOS+2.39*Y1+0.942*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.483*X1 &" Y" & YPOS+0.483*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.85*X1+4.274*X2 &" Y" & YPOS+2.85*Y1+4.274*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+7.147*X1+5.699*X2 &" Y" & YPOS+7.147*Y1+5.699*Y2
      Code "G01 X" & XPOS+8.089*X1+6.182*X2 &" Y" & YPOS+8.089*Y1+6.182*Y2
      Code "G01 X" & XPOS+9.514*X1+7.147*X2 &" Y" & YPOS+9.514*Y1+7.147*Y2
      Code "G01 X" & XPOS+10.479*X1+8.089*X2 &" Y" & YPOS+10.479*Y1+8.089*Y2
      Code "G01 X" & XPOS+10.939*X1+9.054*X2 &" Y" & YPOS+10.939*Y1+9.054*Y2
      Code "G01 X" & XPOS+10.939*X1+9.514*X2 &" Y" & YPOS+10.939*Y1+9.514*Y2
      Code "G01 X" & XPOS+10.479*X1+9.997*X2 &" Y" & YPOS+10.479*Y1+9.997*Y2
      Code "G01 X" & XPOS+9.997*X1+9.997*X2 &" Y" & YPOS+9.997*Y1+9.997*Y2
      Code "G01 X" & XPOS+9.054*X1+9.054*X2 &" Y" & YPOS+9.054*Y1+9.054*Y2
      Code "G01 X" & XPOS+8.089*X1+7.147*X2 &" Y" & YPOS+8.089*Y1+7.147*Y2
      Code "G01 X" & XPOS+7.147*X1+4.274*X2 &" Y" & YPOS+7.147*Y1+4.274*Y2
      Code "G01 X" & XPOS+6.664*X1+1.907*X2 &" Y" & YPOS+6.664*Y1+1.907*Y2
      Code "G01 X" & XPOS+6.664*X1+0.483*X2 &" Y" & YPOS+6.664*Y1+0.483*Y2
      Code "G01 X" & XPOS+7.147*X1 &" Y" & YPOS+7.147*Y1
      Code "G01 X" & XPOS+7.607*X1 &" Y" & YPOS+7.607*Y1
      Code "G01 X" & XPOS+8.572*X1+0.483*X2 &" Y" & YPOS+8.572*Y1+0.483*Y2
      Code "G01 X" & XPOS+9.054*X1+0.942*X2 &" Y" & YPOS+9.054*Y1+0.942*Y2
      Code "G01 X" & XPOS+9.997*X1+2.367*X2 &" Y" & YPOS+9.997*Y1+2.367*Y2
      Largo=11.939
    Case 18   'I
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.182*X1+2.367*X2 &" Y" & YPOS+6.182*Y1+2.367*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.24*X1+3.332*X2 &" Y" & YPOS+5.24*Y1+3.332*Y2
      Code "G01 X" & XPOS+4.297*X1+4.757*X2 &" Y" & YPOS+4.297*Y1+4.757*Y2
      Code "G01 X" & XPOS+3.815*X1+5.699*X2 &" Y" & YPOS+3.815*Y1+5.699*Y2
      Code "G01 X" & XPOS+3.332*X1+7.147*X2 &" Y" & YPOS+3.332*Y1+7.147*Y2
      Code "G01 X" & XPOS+3.332*X1+8.572*X2 &" Y" & YPOS+3.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.815*X1+9.514*X2 &" Y" & YPOS+3.815*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.297*X1+9.997*X2 &" Y" & YPOS+4.297*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.24*X1+9.997*X2 &" Y" & YPOS+5.24*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.722*X1+9.514*X2 &" Y" & YPOS+5.722*Y1+9.514*Y2
      Code "G01 X" & XPOS+6.182*X1+8.572*X2 &" Y" & YPOS+6.182*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.182*X1+7.147*X2 &" Y" & YPOS+6.182*Y1+7.147*Y2
      Code "G01 X" & XPOS+5.722*X1+4.757*X2 &" Y" & YPOS+5.722*Y1+4.757*Y2
      Code "G01 X" & XPOS+4.757*X1+2.367*X2 &" Y" & YPOS+4.757*Y1+2.367*Y2
      Code "G01 X" & XPOS+4.297*X1+1.425*X2 &" Y" & YPOS+4.297*Y1+1.425*Y2
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.39*X1 &" Y" & YPOS+2.39*Y1
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.483*X1+0.483*X2 &" Y" & YPOS+0.483*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+2.367*X2 &" Y" & YPOS+2.367*Y2
      Code "G01 X" & XPOS+0.483*X1+2.85*X2 &" Y" & YPOS+0.483*Y1+2.85*Y2
      Code "G01 X" & XPOS+1.425*X1+2.85*X2 &" Y" & YPOS+1.425*Y1+2.85*Y2
      Code "G01 X" & XPOS+2.39*X1+2.367*X2 &" Y" & YPOS+2.39*Y1+2.367*Y2
      Largo=7.182
    Case 27   'J
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.274*X1-1.425*X2 &" Y" & YPOS+4.274*Y1-1.425*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.332*X1 &" Y" & YPOS+3.332*Y1
      Code "G01 X" & XPOS+2.39*X1+2.367*X2 &" Y" & YPOS+2.39*Y1+2.367*Y2
      Code "G01 X" & XPOS+1.907*X1+5.24*X2 &" Y" & YPOS+1.907*Y1+5.24*Y2
      Code "G01 X" & XPOS+1.907*X1+8.089*X2 &" Y" & YPOS+1.907*Y1+8.089*Y2
      Code "G01 X" & XPOS+2.39*X1+9.514*X2 &" Y" & YPOS+2.39*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.332*X1+9.997*X2 &" Y" & YPOS+3.332*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.757*X1+9.514*X2 &" Y" & YPOS+4.757*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.24*X1+8.089*X2 &" Y" & YPOS+5.24*Y1+8.089*Y2
      Code "G01 X" & XPOS+5.24*X1+6.664*X2 &" Y" & YPOS+5.24*Y1+6.664*Y2
      Code "G01 X" & XPOS+4.757*X1+4.274*X2 &" Y" & YPOS+4.757*Y1+4.274*Y2
      Code "G01 X" & XPOS+3.332*X1 &" Y" & YPOS+3.332*Y1
      Code "G01 X" & XPOS+2.39*X1-2.85*X2 &" Y" & YPOS+2.39*Y1-2.85*Y2
      Code "G01 X" & XPOS+1.907*X1-4.297*X2 &" Y" & YPOS+1.907*Y1-4.297*Y2
      Code "G01 X" & XPOS+1.425*X1-5.24*X2 &" Y" & YPOS+1.425*Y1-5.24*Y2
      Code "G01 X" & XPOS+0.483*X1-5.722*X2 &" Y" & YPOS+0.483*Y1-5.722*Y2
      Code "G01 X" & XPOS-5.24*X2 &" Y" & YPOS-5.24*Y2
      Code "G01 X" & XPOS-4.297*X2 &" Y" & YPOS-4.297*Y2
      Code "G01 X" & XPOS+0.483*X1-2.85*X2 &" Y" & YPOS+0.483*Y1-2.85*Y2
      Code "G01 X" & XPOS+1.425*X1-1.425*X2 &" Y" & YPOS+1.425*Y1-1.425*Y2
      Code "G01 X" & XPOS+2.39*X1-0.483*X2 &" Y" & YPOS+2.39*Y1-0.483*Y2
      Code "G01 X" & XPOS+3.815*X1+0.483*X2 &" Y" & YPOS+3.815*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.699*X1+1.425*X2 &" Y" & YPOS+5.699*Y1+1.425*Y2
      Largo=6.699
    Case 28   'K
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.85*X1+6.664*X2 &" Y" & YPOS+2.85*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.884*X1+7.147*X2 &" Y" & YPOS+1.884*Y1+7.147*Y2
      Code "G01 X" & XPOS+1.425*X1+8.089*X2 &" Y" & YPOS+1.425*Y1+8.089*Y2
      Code "G01 X" & XPOS+1.425*X1+8.572*X2 &" Y" & YPOS+1.425*Y1+8.572*Y2
      Code "G01 X" & XPOS+1.884*X1+9.514*X2 &" Y" & YPOS+1.884*Y1+9.514*Y2
      Code "G01 X" & XPOS+2.85*X1+9.997*X2 &" Y" & YPOS+2.85*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.332*X1+9.997*X2 &" Y" & YPOS+3.332*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.514*X2 &" Y" & YPOS+4.274*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.757*X1+8.572*X2 &" Y" & YPOS+4.757*Y1+8.572*Y2
      Code "G01 X" & XPOS+4.757*X1+7.607*X2 &" Y" & YPOS+4.757*Y1+7.607*Y2
      Code "G01 X" & XPOS+4.274*X1+5.699*X2 &" Y" & YPOS+4.274*Y1+5.699*Y2
      Code "G01 X" & XPOS+3.332*X1+2.85*X2 &" Y" & YPOS+3.332*Y1+2.85*Y2
      Code "G01 X" & XPOS+2.367*X1+0.942*X2 &" Y" & YPOS+2.367*Y1+0.942*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.46*X1 &" Y" & YPOS+0.46*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+10.939*X1+8.572*X2 &" Y" & YPOS+10.939*Y1+8.572*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+10.939*X1+9.514*X2 &" Y" & YPOS+10.939*Y1+9.514*Y2
      Code "G01 X" & XPOS+10.456*X1+9.997*X2 &" Y" & YPOS+10.456*Y1+9.997*Y2
      Code "G01 X" & XPOS+9.974*X1+9.997*X2 &" Y" & YPOS+9.974*Y1+9.997*Y2
      Code "G01 X" & XPOS+9.031*X1+9.514*X2 &" Y" & YPOS+9.031*Y1+9.514*Y2
      Code "G01 X" & XPOS+8.089*X1+8.572*X2 &" Y" & YPOS+8.089*Y1+8.572*Y2
      Code "G01 X" & XPOS+7.124*X1+7.147*X2 &" Y" & YPOS+7.124*Y1+7.147*Y2
      Code "G01 X" & XPOS+6.182*X1+6.182*X2 &" Y" & YPOS+6.182*Y1+6.182*Y2
      Code "G01 X" & XPOS+5.217*X1+5.699*X2 &" Y" & YPOS+5.217*Y1+5.699*Y2
      Code "G01 X" & XPOS+4.274*X1+5.699*X2 &" Y" & YPOS+4.274*Y1+5.699*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.217*X1+5.699*X2 &" Y" & YPOS+5.217*Y1+5.699*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.699*X1+4.757*X2 &" Y" & YPOS+5.699*Y1+4.757*Y2
      Code "G01 X" & XPOS+5.699*X1+1.425*X2 &" Y" & YPOS+5.699*Y1+1.425*Y2
      Code "G01 X" & XPOS+6.182*X1+0.483*X2 &" Y" & YPOS+6.182*Y1+0.483*Y2
      Code "G01 X" & XPOS+6.641*X1 &" Y" & YPOS+6.641*Y1
      Code "G01 X" & XPOS+7.124*X1 &" Y" & YPOS+7.124*Y1
      Code "G01 X" & XPOS+8.089*X1+0.483*X2 &" Y" & YPOS+8.089*Y1+0.483*Y2
      Code "G01 X" & XPOS+8.549*X1+0.942*X2 &" Y" & YPOS+8.549*Y1+0.942*Y2
      Code "G01 X" & XPOS+9.514*X1+2.367*X2 &" Y" & YPOS+9.514*Y1+2.367*Y2
      Largo=11.939
    Case 29   'L
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.907*X1+4.274*X2 &" Y" & YPOS+1.907*Y1+4.274*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.85*X1+4.274*X2 &" Y" & YPOS+2.85*Y1+4.274*Y2
      Code "G01 X" & XPOS+4.757*X1+4.757*X2 &" Y" & YPOS+4.757*Y1+4.757*Y2
      Code "G01 X" & XPOS+6.182*X1+5.699*X2 &" Y" & YPOS+6.182*Y1+5.699*Y2
      Code "G01 X" & XPOS+7.124*X1+6.664*X2 &" Y" & YPOS+7.124*Y1+6.664*Y2
      Code "G01 X" & XPOS+7.607*X1+7.607*X2 &" Y" & YPOS+7.607*Y1+7.607*Y2
      Code "G01 X" & XPOS+7.607*X1+9.054*X2 &" Y" & YPOS+7.607*Y1+9.054*Y2
      Code "G01 X" & XPOS+7.124*X1+9.997*X2 &" Y" & YPOS+7.124*Y1+9.997*Y2
      Code "G01 X" & XPOS+6.182*X1+9.997*X2 &" Y" & YPOS+6.182*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.699*X1+9.514*X2 &" Y" & YPOS+5.699*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.24*X1+8.572*X2 &" Y" & YPOS+5.24*Y1+8.572*Y2
      Code "G01 X" & XPOS+4.757*X1+6.182*X2 &" Y" & YPOS+4.757*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.274*X1+3.815*X2 &" Y" & YPOS+4.274*Y1+3.815*Y2
      Code "G01 X" & XPOS+3.792*X1+2.367*X2 &" Y" & YPOS+3.792*Y1+2.367*Y2
      Code "G01 X" & XPOS+3.332*X1+1.425*X2 &" Y" & YPOS+3.332*Y1+1.425*Y2
      Code "G01 X" & XPOS+2.367*X1+0.483*X2 &" Y" & YPOS+2.367*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.46*X1 &" Y" & YPOS+0.46*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+0.46*X1+1.907*X2 &" Y" & YPOS+0.46*Y1+1.907*Y2
      Code "G01 X" & XPOS+1.425*X1+1.907*X2 &" Y" & YPOS+1.425*Y1+1.907*Y2
      Code "G01 X" & XPOS+2.367*X1+1.425*X2 &" Y" & YPOS+2.367*Y1+1.425*Y2
      Code "G01 X" & XPOS+3.792*X1+0.483*X2 &" Y" & YPOS+3.792*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.24*X1 &" Y" & YPOS+5.24*Y1
      Code "G01 X" & XPOS+6.182*X1 &" Y" & YPOS+6.182*Y1
      Code "G01 X" & XPOS+7.607*X1+0.483*X2 &" Y" & YPOS+7.607*Y1+0.483*Y2
      Code "G01 X" & XPOS+8.549*X1+1.425*X2 &" Y" & YPOS+8.549*Y1+1.425*Y2
      Largo=9.549
    Case 37   'M
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.448*X1+6.664*X2 &" Y" & YPOS+1.448*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.483*X1+7.147*X2 &" Y" & YPOS+0.483*Y1+7.147*Y2
      Code "G01 X" & XPOS+8.089*X2 &" Y" & YPOS+8.089*Y2
      Code "G01 X" & XPOS+8.572*X2 &" Y" & YPOS+8.572*Y2
      Code "G01 X" & XPOS+0.483*X1+9.514*X2 &" Y" & YPOS+0.483*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.448*X1+9.997*X2 &" Y" & YPOS+1.448*Y1+9.997*Y2
      Code "G01 X" & XPOS+1.907*X1+9.997*X2 &" Y" & YPOS+1.907*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.873*X1+9.514*X2 &" Y" & YPOS+2.873*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.332*X1+8.572*X2 &" Y" & YPOS+3.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.332*X1+7.607*X2 &" Y" & YPOS+3.332*Y1+7.607*Y2
      Code "G01 X" & XPOS+2.873*X1+5.24*X2 &" Y" & YPOS+2.873*Y1+5.24*Y2
      Code "G01 X" & XPOS+2.39*X1+3.332*X2 &" Y" & YPOS+2.39*Y1+3.332*Y2
      Code "G01 X" & XPOS+1.448*X1 &" Y" & YPOS+1.448*Y1
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.39*X1+3.332*X2 &" Y" & YPOS+2.39*Y1+3.332*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.815*X1+7.147*X2 &" Y" & YPOS+3.815*Y1+7.147*Y2
      Code "G01 X" & XPOS+4.757*X1+9.054*X2 &" Y" & YPOS+4.757*Y1+9.054*Y2
      Code "G01 X" & XPOS+5.24*X1+9.514*X2 &" Y" & YPOS+5.24*Y1+9.514*Y2
      Code "G01 X" & XPOS+6.205*X1+9.997*X2 &" Y" & YPOS+6.205*Y1+9.997*Y2
      Code "G01 X" & XPOS+6.664*X1+9.997*X2 &" Y" & YPOS+6.664*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.63*X1+9.514*X2 &" Y" & YPOS+7.63*Y1+9.514*Y2
      Code "G01 X" & XPOS+8.089*X1+8.572*X2 &" Y" & YPOS+8.089*Y1+8.572*Y2
      Code "G01 X" & XPOS+8.089*X1+7.607*X2 &" Y" & YPOS+8.089*Y1+7.607*Y2
      Code "G01 X" & XPOS+7.63*X1+5.24*X2 &" Y" & YPOS+7.63*Y1+5.24*Y2
      Code "G01 X" & XPOS+7.147*X1+3.332*X2 &" Y" & YPOS+7.147*Y1+3.332*Y2
      Code "G01 X" & XPOS+6.205*X1 &" Y" & YPOS+6.205*Y1
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.147*X1+3.332*X2 &" Y" & YPOS+7.147*Y1+3.332*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+8.572*X1+7.147*X2 &" Y" & YPOS+8.572*Y1+7.147*Y2
      Code "G01 X" & XPOS+9.537*X1+9.054*X2 &" Y" & YPOS+9.537*Y1+9.054*Y2
      Code "G01 X" & XPOS+9.997*X1+9.514*X2 &" Y" & YPOS+9.997*Y1+9.514*Y2
      Code "G01 X" & XPOS+10.962*X1+9.997*X2 &" Y" & YPOS+10.962*Y1+9.997*Y2
      Code "G01 X" & XPOS+11.421*X1+9.997*X2 &" Y" & YPOS+11.421*Y1+9.997*Y2
      Code "G01 X" & XPOS+12.386*X1+9.514*X2 &" Y" & YPOS+12.386*Y1+9.514*Y2
      Code "G01 X" & XPOS+12.846*X1+8.572*X2 &" Y" & YPOS+12.846*Y1+8.572*Y2
      Code "G01 X" & XPOS+12.846*X1+7.607*X2 &" Y" & YPOS+12.846*Y1+7.607*Y2
      Code "G01 X" & XPOS+12.386*X1+5.24*X2 &" Y" & YPOS+12.386*Y1+5.24*Y2
      Code "G01 X" & XPOS+11.421*X1+1.907*X2 &" Y" & YPOS+11.421*Y1+1.907*Y2
      Code "G01 X" & XPOS+11.421*X1+0.483*X2 &" Y" & YPOS+11.421*Y1+0.483*Y2
      Code "G01 X" & XPOS+11.904*X1 &" Y" & YPOS+11.904*Y1
      Code "G01 X" & XPOS+12.386*X1 &" Y" & YPOS+12.386*Y1
      Code "G01 X" & XPOS+13.329*X1+0.483*X2 &" Y" & YPOS+13.329*Y1+0.483*Y2
      Code "G01 X" & XPOS+13.811*X1+0.942*X2 &" Y" & YPOS+13.811*Y1+0.942*Y2
      Code "G01 X" & XPOS+14.753*X1+2.367*X2 &" Y" & YPOS+14.753*Y1+2.367*Y2
      Largo=15.753
    Case 36   'N
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.425*X1+6.664*X2 &" Y" & YPOS+1.425*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.46*X1+7.147*X2 &" Y" & YPOS+0.46*Y1+7.147*Y2
      Code "G01 X" & XPOS+8.089*X2 &" Y" & YPOS+8.089*Y2
      Code "G01 X" & XPOS+8.572*X2 &" Y" & YPOS+8.572*Y2
      Code "G01 X" & XPOS+0.46*X1+9.514*X2 &" Y" & YPOS+0.46*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.425*X1+9.997*X2 &" Y" & YPOS+1.425*Y1+9.997*Y2
      Code "G01 X" & XPOS+1.884*X1+9.997*X2 &" Y" & YPOS+1.884*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.85*X1+9.514*X2 &" Y" & YPOS+2.85*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.309*X1+8.572*X2 &" Y" & YPOS+3.309*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.309*X1+7.607*X2 &" Y" & YPOS+3.309*Y1+7.607*Y2
      Code "G01 X" & XPOS+2.85*X1+5.24*X2 &" Y" & YPOS+2.85*Y1+5.24*Y2
      Code "G01 X" & XPOS+2.367*X1+3.332*X2 &" Y" & YPOS+2.367*Y1+3.332*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.367*X1+3.332*X2 &" Y" & YPOS+2.367*Y1+3.332*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.792*X1+7.147*X2 &" Y" & YPOS+3.792*Y1+7.147*Y2
      Code "G01 X" & XPOS+4.757*X1+9.054*X2 &" Y" & YPOS+4.757*Y1+9.054*Y2
      Code "G01 X" & XPOS+5.217*X1+9.514*X2 &" Y" & YPOS+5.217*Y1+9.514*Y2
      Code "G01 X" & XPOS+6.182*X1+9.997*X2 &" Y" & YPOS+6.182*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.124*X1+9.997*X2 &" Y" & YPOS+7.124*Y1+9.997*Y2
      Code "G01 X" & XPOS+8.089*X1+9.514*X2 &" Y" & YPOS+8.089*Y1+9.514*Y2
      Code "G01 X" & XPOS+8.549*X1+8.572*X2 &" Y" & YPOS+8.549*Y1+8.572*Y2
      Code "G01 X" & XPOS+8.549*X1+7.607*X2 &" Y" & YPOS+8.549*Y1+7.607*Y2
      Code "G01 X" & XPOS+8.089*X1+5.24*X2 &" Y" & YPOS+8.089*Y1+5.24*Y2
      Code "G01 X" & XPOS+7.124*X1+1.907*X2 &" Y" & YPOS+7.124*Y1+1.907*Y2
      Code "G01 X" & XPOS+7.124*X1+0.483*X2 &" Y" & YPOS+7.124*Y1+0.483*Y2
      Code "G01 X" & XPOS+7.607*X1 &" Y" & YPOS+7.607*Y1
      Code "G01 X" & XPOS+8.089*X1 &" Y" & YPOS+8.089*Y1
      Code "G01 X" & XPOS+9.031*X1+0.483*X2 &" Y" & YPOS+9.031*Y1+0.483*Y2
      Code "G01 X" & XPOS+9.514*X1+0.942*X2 &" Y" & YPOS+9.514*Y1+0.942*Y2
      Code "G01 X" & XPOS+10.456*X1+2.367*X2 &" Y" & YPOS+10.456*Y1+2.367*Y2
      Largo=11.456
    Case 30   'Ñ
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.792*X1+9.997*X2 &" Y" & YPOS+3.792*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.757*X1+11.421*X2 &" Y" & YPOS+4.757*Y1+11.421*Y2
      Code "G01 X" & XPOS+5.699*X1+11.904*X2 &" Y" & YPOS+5.699*Y1+11.904*Y2
      Code "G01 X" & XPOS+6.182*X1+11.904*X2 &" Y" & YPOS+6.182*Y1+11.904*Y2
      Code "G01 X" & XPOS+7.124*X1+11.421*X2 &" Y" & YPOS+7.124*Y1+11.421*Y2
      Code "G01 X" & XPOS+7.607*X1+10.479*X2 &" Y" & YPOS+7.607*Y1+10.479*Y2
      Code "G01 X" & XPOS+8.549*X1+9.997*X2 &" Y" & YPOS+8.549*Y1+9.997*Y2
      Code "G01 X" & XPOS+9.031*X1+9.997*X2 &" Y" & YPOS+9.031*Y1+9.997*Y2
      Code "G01 X" & XPOS+9.974*X1+10.479*X2 &" Y" & YPOS+9.974*Y1+10.479*Y2
      Code "G01 X" & XPOS+10.939*X1+11.904*X2 &" Y" & YPOS+10.939*Y1+11.904*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.425*X1+5.699*X2 &" Y" & YPOS+1.425*Y1+5.699*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.46*X1+6.182*X2 &" Y" & YPOS+0.46*Y1+6.182*Y2
      Code "G01 X" & XPOS+7.147*X2 &" Y" & YPOS+7.147*Y2
      Code "G01 X" & XPOS+7.607*X2 &" Y" & YPOS+7.607*Y2
      Code "G01 X" & XPOS+0.46*X1+8.572*X2 &" Y" & YPOS+0.46*Y1+8.572*Y2
      Code "G01 X" & XPOS+1.425*X1+9.054*X2 &" Y" & YPOS+1.425*Y1+9.054*Y2
      Code "G01 X" & XPOS+1.884*X1+9.054*X2 &" Y" & YPOS+1.884*Y1+9.054*Y2
      Code "G01 X" & XPOS+2.85*X1+8.572*X2 &" Y" & YPOS+2.85*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.309*X1+7.607*X2 &" Y" & YPOS+3.309*Y1+7.607*Y2
      Code "G01 X" & XPOS+3.309*X1+6.664*X2 &" Y" & YPOS+3.309*Y1+6.664*Y2
      Code "G01 X" & XPOS+2.367*X1+2.85*X2 &" Y" & YPOS+2.367*Y1+2.85*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.367*X1+2.85*X2 &" Y" & YPOS+2.367*Y1+2.85*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.792*X1+6.182*X2 &" Y" & YPOS+3.792*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.757*X1+8.089*X2 &" Y" & YPOS+4.757*Y1+8.089*Y2
      Code "G01 X" & XPOS+5.217*X1+8.572*X2 &" Y" & YPOS+5.217*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.182*X1+9.054*X2 &" Y" & YPOS+6.182*Y1+9.054*Y2
      Code "G01 X" & XPOS+7.124*X1+9.054*X2 &" Y" & YPOS+7.124*Y1+9.054*Y2
      Code "G01 X" & XPOS+8.089*X1+8.572*X2 &" Y" & YPOS+8.089*Y1+8.572*Y2
      Code "G01 X" & XPOS+8.549*X1+7.607*X2 &" Y" & YPOS+8.549*Y1+7.607*Y2
      Code "G01 X" & XPOS+8.549*X1+6.664*X2 &" Y" & YPOS+8.549*Y1+6.664*Y2
      Code "G01 X" & XPOS+8.089*X1+4.757*X2 &" Y" & YPOS+8.089*Y1+4.757*Y2
      Code "G01 X" & XPOS+7.124*X1+1.907*X2 &" Y" & YPOS+7.124*Y1+1.907*Y2
      Code "G01 X" & XPOS+7.124*X1+0.483*X2 &" Y" & YPOS+7.124*Y1+0.483*Y2
      Code "G01 X" & XPOS+7.607*X1 &" Y" & YPOS+7.607*Y1
      Code "G01 X" & XPOS+8.089*X1 &" Y" & YPOS+8.089*Y1
      Code "G01 X" & XPOS+9.031*X1+0.483*X2 &" Y" & YPOS+9.031*Y1+0.483*Y2
      Code "G01 X" & XPOS+9.514*X1+0.942*X2 &" Y" & YPOS+9.514*Y1+0.942*Y2
      Code "G01 X" & XPOS+10.456*X1+2.367*X2 &" Y" & YPOS+10.456*Y1+2.367*Y2
      Largo=11.939
    Case 19   'O
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.85*X1+9.514*X2 &" Y" & YPOS+2.85*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.884*X1+8.572*X2 &" Y" & YPOS+1.884*Y1+8.572*Y2
      Code "G01 X" & XPOS+0.942*X1+7.147*X2 &" Y" & YPOS+0.942*Y1+7.147*Y2
      Code "G01 X" & XPOS+0.46*X1+6.182*X2 &" Y" & YPOS+0.46*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.274*X2 &" Y" & YPOS+4.274*Y2
      Code "G01 X" & XPOS+2.367*X2 &" Y" & YPOS+2.367*Y2
      Code "G01 X" & XPOS+0.46*X1+0.942*X2 &" Y" & YPOS+0.46*Y1+0.942*Y2
      Code "G01 X" & XPOS+0.942*X1+0.483*X2 &" Y" & YPOS+0.942*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.884*X1 &" Y" & YPOS+1.884*Y1
      Code "G01 X" & XPOS+2.85*X1 &" Y" & YPOS+2.85*Y1
      Code "G01 X" & XPOS+4.274*X1+0.483*X2 &" Y" & YPOS+4.274*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.217*X1+1.425*X2 &" Y" & YPOS+5.217*Y1+1.425*Y2
      Code "G01 X" & XPOS+6.182*X1+2.85*X2 &" Y" & YPOS+6.182*Y1+2.85*Y2
      Code "G01 X" & XPOS+6.641*X1+3.815*X2 &" Y" & YPOS+6.641*Y1+3.815*Y2
      Code "G01 X" & XPOS+7.124*X1+5.699*X2 &" Y" & YPOS+7.124*Y1+5.699*Y2
      Code "G01 X" & XPOS+7.124*X1+7.607*X2 &" Y" & YPOS+7.124*Y1+7.607*Y2
      Code "G01 X" & XPOS+6.641*X1+9.054*X2 &" Y" & YPOS+6.641*Y1+9.054*Y2
      Code "G01 X" & XPOS+6.182*X1+9.514*X2 &" Y" & YPOS+6.182*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.217*X1+9.997*X2 &" Y" & YPOS+5.217*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.332*X1+9.054*X2 &" Y" & YPOS+3.332*Y1+9.054*Y2
      Code "G01 X" & XPOS+3.332*X1+7.607*X2 &" Y" & YPOS+3.332*Y1+7.607*Y2
      Code "G01 X" & XPOS+3.792*X1+6.182*X2 &" Y" & YPOS+3.792*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.757*X1+4.757*X2 &" Y" & YPOS+4.757*Y1+4.757*Y2
      Code "G01 X" & XPOS+5.699*X1+3.815*X2 &" Y" & YPOS+5.699*Y1+3.815*Y2
      Code "G01 X" & XPOS+7.124*X1+2.85*X2 &" Y" & YPOS+7.124*Y1+2.85*Y2
      Code "G01 X" & XPOS+8.089*X1+2.367*X2 &" Y" & YPOS+8.089*Y1+2.367*Y2
      Largo=9.089
    Case 20   'P
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.757*X1+9.054*X2 &" Y" & YPOS+4.757*Y1+9.054*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.24*X1+8.572*X2 &" Y" & YPOS+5.24*Y1+8.572*Y2
      Code "G01 X" & XPOS+5.24*X1+7.147*X2 &" Y" & YPOS+5.24*Y1+7.147*Y2
      Code "G01 X" & XPOS+4.757*X1+5.24*X2 &" Y" & YPOS+4.757*Y1+5.24*Y2
      Code "G01 X" & XPOS+4.297*X1+3.815*X2 &" Y" & YPOS+4.297*Y1+3.815*Y2
      Code "G01 X" & XPOS+3.815*X1+2.85*X2 &" Y" & YPOS+3.815*Y1+2.85*Y2
      Code "G01 X" & XPOS+2.873*X1+1.425*X2 &" Y" & YPOS+2.873*Y1+1.425*Y2
      Code "G01 X" & XPOS+1.907*X1+0.483*X2 &" Y" & YPOS+1.907*Y1+0.483*Y2
      Code "G01 X" & XPOS+0.965*X1 &" Y" & YPOS+0.965*Y1
      Code "G01 X" & XPOS+0.483*X1 &" Y" & YPOS+0.483*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.907*X2 &" Y" & YPOS+1.907*Y2
      Code "G01 X" & XPOS+0.483*X1+4.274*X2 &" Y" & YPOS+0.483*Y1+4.274*Y2
      Code "G01 X" & XPOS+0.965*X1+5.699*X2 &" Y" & YPOS+0.965*Y1+5.699*Y2
      Code "G01 X" & XPOS+1.425*X1+6.664*X2 &" Y" & YPOS+1.425*Y1+6.664*Y2
      Code "G01 X" & XPOS+2.39*X1+8.089*X2 &" Y" & YPOS+2.39*Y1+8.089*Y2
      Code "G01 X" & XPOS+3.332*X1+9.054*X2 &" Y" & YPOS+3.332*Y1+9.054*Y2
      Code "G01 X" & XPOS+4.297*X1+9.514*X2 &" Y" & YPOS+4.297*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.722*X1+9.997*X2 &" Y" & YPOS+5.722*Y1+9.997*Y2
      Code "G01 X" & XPOS+8.089*X1+9.997*X2 &" Y" & YPOS+8.089*Y1+9.997*Y2
      Code "G01 X" & XPOS+9.054*X1+9.514*X2 &" Y" & YPOS+9.054*Y1+9.514*Y2
      Code "G01 X" & XPOS+9.514*X1+9.054*X2 &" Y" & YPOS+9.514*Y1+9.054*Y2
      Code "G01 X" & XPOS+9.997*X1+8.089*X2 &" Y" & YPOS+9.997*Y1+8.089*Y2
      Code "G01 X" & XPOS+9.997*X1+6.664*X2 &" Y" & YPOS+9.997*Y1+6.664*Y2
      Code "G01 X" & XPOS+9.514*X1+5.699*X2 &" Y" & YPOS+9.514*Y1+5.699*Y2
      Code "G01 X" & XPOS+9.054*X1+5.24*X2 &" Y" & YPOS+9.054*Y1+5.24*Y2
      Code "G01 X" & XPOS+8.089*X1+4.757*X2 &" Y" & YPOS+8.089*Y1+4.757*Y2
      Code "G01 X" & XPOS+6.664*X1+4.757*X2 &" Y" & YPOS+6.664*Y1+4.757*Y2
      Code "G01 X" & XPOS+5.722*X1+5.24*X2 &" Y" & YPOS+5.722*Y1+5.24*Y2
      Code "G01 X" & XPOS+5.24*X1+5.699*X2 &" Y" & YPOS+5.24*Y1+5.699*Y2
      Largo=10.997
    Case 11   'Q
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.182*X1+7.147*X2 &" Y" & YPOS+6.182*Y1+7.147*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.722*X1+6.182*X2 &" Y" & YPOS+5.722*Y1+6.182*Y2
      Code "G01 X" & XPOS+5.24*X1+5.699*X2 &" Y" & YPOS+5.24*Y1+5.699*Y2
      Code "G01 X" & XPOS+4.297*X1+5.24*X2 &" Y" & YPOS+4.297*Y1+5.24*Y2
      Code "G01 X" & XPOS+3.332*X1+5.24*X2 &" Y" & YPOS+3.332*Y1+5.24*Y2
      Code "G01 X" & XPOS+2.85*X1+6.182*X2 &" Y" & YPOS+2.85*Y1+6.182*Y2
      Code "G01 X" & XPOS+2.85*X1+7.147*X2 &" Y" & YPOS+2.85*Y1+7.147*Y2
      Code "G01 X" & XPOS+3.332*X1+8.572*X2 &" Y" & YPOS+3.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+4.297*X1+9.514*X2 &" Y" & YPOS+4.297*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.722*X1+9.997*X2 &" Y" & YPOS+5.722*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.147*X1+9.997*X2 &" Y" & YPOS+7.147*Y1+9.997*Y2
      Code "G01 X" & XPOS+8.089*X1+9.514*X2 &" Y" & YPOS+8.089*Y1+9.514*Y2
      Code "G01 X" & XPOS+8.572*X1+8.572*X2 &" Y" & YPOS+8.572*Y1+8.572*Y2
      Code "G01 X" & XPOS+8.572*X1+6.664*X2 &" Y" & YPOS+8.572*Y1+6.664*Y2
      Code "G01 X" & XPOS+8.089*X1+5.24*X2 &" Y" & YPOS+8.089*Y1+5.24*Y2
      Code "G01 X" & XPOS+7.147*X1+3.815*X2 &" Y" & YPOS+7.147*Y1+3.815*Y2
      Code "G01 X" & XPOS+5.24*X1+1.907*X2 &" Y" & YPOS+5.24*Y1+1.907*Y2
      Code "G01 X" & XPOS+3.815*X1+0.942*X2 &" Y" & YPOS+3.815*Y1+0.942*Y2
      Code "G01 X" & XPOS+2.85*X1+0.483*X2 &" Y" & YPOS+2.85*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.483*X1 &" Y" & YPOS+0.483*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+0.483*X1+1.907*X2 &" Y" & YPOS+0.483*Y1+1.907*Y2
      Code "G01 X" & XPOS+1.425*X1+1.907*X2 &" Y" & YPOS+1.425*Y1+1.907*Y2
      Code "G01 X" & XPOS+2.39*X1+1.425*X2 &" Y" & YPOS+2.39*Y1+1.425*Y2
      Code "G01 X" & XPOS+3.815*X1+0.483*X2 &" Y" & YPOS+3.815*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.24*X1 &" Y" & YPOS+5.24*Y1
      Code "G01 X" & XPOS+6.664*X1 &" Y" & YPOS+6.664*Y1
      Code "G01 X" & XPOS+8.089*X1+0.483*X2 &" Y" & YPOS+8.089*Y1+0.483*Y2
      Code "G01 X" & XPOS+9.054*X1+1.425*X2 &" Y" & YPOS+9.054*Y1+1.425*Y2
      Largo=10.054
    Case 14   'R
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.757*X1+9.054*X2 &" Y" & YPOS+4.757*Y1+9.054*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.217*X1+8.572*X2 &" Y" & YPOS+5.217*Y1+8.572*Y2
      Code "G01 X" & XPOS+5.217*X1+7.147*X2 &" Y" & YPOS+5.217*Y1+7.147*Y2
      Code "G01 X" & XPOS+4.757*X1+5.24*X2 &" Y" & YPOS+4.757*Y1+5.24*Y2
      Code "G01 X" & XPOS+4.274*X1+3.815*X2 &" Y" & YPOS+4.274*Y1+3.815*Y2
      Code "G01 X" & XPOS+3.792*X1+2.85*X2 &" Y" & YPOS+3.792*Y1+2.85*Y2
      Code "G01 X" & XPOS+2.85*X1+1.425*X2 &" Y" & YPOS+2.85*Y1+1.425*Y2
      Code "G01 X" & XPOS+1.884*X1+0.483*X2 &" Y" & YPOS+1.884*Y1+0.483*Y2
      Code "G01 X" & XPOS+0.942*X1 &" Y" & YPOS+0.942*Y1
      Code "G01 X" & XPOS+0.46*X1 &" Y" & YPOS+0.46*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.907*X2 &" Y" & YPOS+1.907*Y2
      Code "G01 X" & XPOS+0.46*X1+4.274*X2 &" Y" & YPOS+0.46*Y1+4.274*Y2
      Code "G01 X" & XPOS+0.942*X1+5.699*X2 &" Y" & YPOS+0.942*Y1+5.699*Y2
      Code "G01 X" & XPOS+1.425*X1+6.664*X2 &" Y" & YPOS+1.425*Y1+6.664*Y2
      Code "G01 X" & XPOS+2.367*X1+8.089*X2 &" Y" & YPOS+2.367*Y1+8.089*Y2
      Code "G01 X" & XPOS+3.332*X1+9.054*X2 &" Y" & YPOS+3.332*Y1+9.054*Y2
      Code "G01 X" & XPOS+4.274*X1+9.514*X2 &" Y" & YPOS+4.274*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.699*X1+9.997*X2 &" Y" & YPOS+5.699*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.607*X1+9.997*X2 &" Y" & YPOS+7.607*Y1+9.997*Y2
      Code "G01 X" & XPOS+8.549*X1+9.514*X2 &" Y" & YPOS+8.549*Y1+9.514*Y2
      Code "G01 X" & XPOS+9.031*X1+9.054*X2 &" Y" & YPOS+9.031*Y1+9.054*Y2
      Code "G01 X" & XPOS+9.514*X1+8.089*X2 &" Y" & YPOS+9.514*Y1+8.089*Y2
      Code "G01 X" & XPOS+9.514*X1+6.664*X2 &" Y" & YPOS+9.514*Y1+6.664*Y2
      Code "G01 X" & XPOS+9.031*X1+5.699*X2 &" Y" & YPOS+9.031*Y1+5.699*Y2
      Code "G01 X" & XPOS+8.549*X1+5.24*X2 &" Y" & YPOS+8.549*Y1+5.24*Y2
      Code "G01 X" & XPOS+7.607*X1+4.757*X2 &" Y" & YPOS+7.607*Y1+4.757*Y2
      Code "G01 X" & XPOS+6.182*X1+4.757*X2 &" Y" & YPOS+6.182*Y1+4.757*Y2
      Code "G01 X" & XPOS+4.757*X1+5.24*X2 &" Y" & YPOS+4.757*Y1+5.24*Y2
      Code "G01 X" & XPOS+5.217*X1+4.757*X2 &" Y" & YPOS+5.217*Y1+4.757*Y2
      Code "G01 X" & XPOS+5.699*X1+3.815*X2 &" Y" & YPOS+5.699*Y1+3.815*Y2
      Code "G01 X" & XPOS+5.699*X1+1.425*X2 &" Y" & YPOS+5.699*Y1+1.425*Y2
      Code "G01 X" & XPOS+6.182*X1+0.483*X2 &" Y" & YPOS+6.182*Y1+0.483*Y2
      Code "G01 X" & XPOS+7.124*X1 &" Y" & YPOS+7.124*Y1
      Code "G01 X" & XPOS+8.089*X1+0.483*X2 &" Y" & YPOS+8.089*Y1+0.483*Y2
      Code "G01 X" & XPOS+8.549*X1+0.942*X2 &" Y" & YPOS+8.549*Y1+0.942*Y2
      Code "G01 X" & XPOS+9.514*X1+2.367*X2 &" Y" & YPOS+9.514*Y1+2.367*Y2
      Largo=10.514
    Case 22   'S
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS &" Y" & YPOS
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.942*X1+0.483*X2 &" Y" & YPOS+0.942*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.907*X1+1.425*X2 &" Y" & YPOS+1.907*Y1+1.425*Y2
      Code "G01 X" & XPOS+3.332*X1+3.332*X2 &" Y" & YPOS+3.332*Y1+3.332*Y2
      Code "G01 X" & XPOS+4.274*X1+4.757*X2 &" Y" & YPOS+4.274*Y1+4.757*Y2
      Code "G01 X" & XPOS+5.24*X1+6.664*X2 &" Y" & YPOS+5.24*Y1+6.664*Y2
      Code "G01 X" & XPOS+5.699*X1+8.089*X2 &" Y" & YPOS+5.699*Y1+8.089*Y2
      Code "G01 X" & XPOS+5.699*X1+9.514*X2 &" Y" & YPOS+5.699*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.24*X1+9.997*X2 &" Y" & YPOS+5.24*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.757*X1+9.997*X2 &" Y" & YPOS+4.757*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.514*X2 &" Y" & YPOS+4.274*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.815*X1+8.572*X2 &" Y" & YPOS+3.815*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.815*X1+7.607*X2 &" Y" & YPOS+3.815*Y1+7.607*Y2
      Code "G01 X" & XPOS+4.274*X1+6.664*X2 &" Y" & YPOS+4.274*Y1+6.664*Y2
      Code "G01 X" & XPOS+5.24*X1+5.699*X2 &" Y" & YPOS+5.24*Y1+5.699*Y2
      Code "G01 X" & XPOS+6.664*X1+4.757*X2 &" Y" & YPOS+6.664*Y1+4.757*Y2
      Code "G01 X" & XPOS+7.607*X1+3.815*X2 &" Y" & YPOS+7.607*Y1+3.815*Y2
      Code "G01 X" & XPOS+8.089*X1+2.85*X2 &" Y" & YPOS+8.089*Y1+2.85*Y2
      Code "G01 X" & XPOS+8.089*X1+1.907*X2 &" Y" & YPOS+8.089*Y1+1.907*Y2
      Code "G01 X" & XPOS+7.607*X1+0.942*X2 &" Y" & YPOS+7.607*Y1+0.942*Y2
      Code "G01 X" & XPOS+7.124*X1+0.483*X2 &" Y" & YPOS+7.124*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.699*X1 &" Y" & YPOS+5.699*Y1
      Code "G01 X" & XPOS+3.815*X1 &" Y" & YPOS+3.815*Y1
      Code "G01 X" & XPOS+2.367*X1+0.483*X2 &" Y" & YPOS+2.367*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X1+1.425*X2 &" Y" & YPOS+1.425*Y1+1.425*Y2
      Code "G01 X" & XPOS+0.942*X1+2.367*X2 &" Y" & YPOS+0.942*Y1+2.367*Y2
      Code "G01 X" & XPOS+0.942*X1+3.332*X2 &" Y" & YPOS+0.942*Y1+3.332*Y2
      Largo=9.089
    Case 15   'T
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.274*X1+7.147*X2 &" Y" & YPOS+4.274*Y1+7.147*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.332*X1+7.147*X2 &" Y" & YPOS+3.332*Y1+7.147*Y2
      Code "G01 X" & XPOS+2.367*X1+7.607*X2 &" Y" & YPOS+2.367*Y1+7.607*Y2
      Code "G01 X" & XPOS+1.907*X1+8.572*X2 &" Y" & YPOS+1.907*Y1+8.572*Y2
      Code "G01 X" & XPOS+2.367*X1+9.514*X2 &" Y" & YPOS+2.367*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.792*X1+9.997*X2 &" Y" & YPOS+3.792*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.24*X1+9.997*X2 &" Y" & YPOS+5.24*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.124*X1+9.514*X2 &" Y" & YPOS+7.124*Y1+9.514*Y2
      Code "G01 X" & XPOS+8.549*X1+9.514*X2 &" Y" & YPOS+8.549*Y1+9.514*Y2
      Code "G01 X" & XPOS+9.514*X1+9.997*X2 &" Y" & YPOS+9.514*Y1+9.997*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.124*X1+9.514*X2 &" Y" & YPOS+7.124*Y1+9.514*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+6.182*X1+6.182*X2 &" Y" & YPOS+6.182*Y1+6.182*Y2
      Code "G01 X" & XPOS+5.24*X1+3.332*X2 &" Y" & YPOS+5.24*Y1+3.332*Y2
      Code "G01 X" & XPOS+4.274*X1+1.425*X2 &" Y" & YPOS+4.274*Y1+1.425*Y2
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.367*X1 &" Y" & YPOS+2.367*Y1
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.483*X1+0.483*X2 &" Y" & YPOS+0.483*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+2.367*X2 &" Y" & YPOS+2.367*Y2
      Code "G01 X" & XPOS+0.483*X1+2.85*X2 &" Y" & YPOS+0.483*Y1+2.85*Y2
      Code "G01 X" & XPOS+1.425*X1+2.85*X2 &" Y" & YPOS+1.425*Y1+2.85*Y2
      Code "G01 X" & XPOS+2.367*X1+2.367*X2 &" Y" & YPOS+2.367*Y1+2.367*Y2
      Largo=10.514
    Case 17   'U
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.425*X1+6.664*X2 &" Y" & YPOS+1.425*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.483*X1+7.147*X2 &" Y" & YPOS+0.483*Y1+7.147*Y2
      Code "G01 X" & XPOS+8.089*X2 &" Y" & YPOS+8.089*Y2
      Code "G01 X" & XPOS+8.572*X2 &" Y" & YPOS+8.572*Y2
      Code "G01 X" & XPOS+0.483*X1+9.514*X2 &" Y" & YPOS+0.483*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.425*X1+9.997*X2 &" Y" & YPOS+1.425*Y1+9.997*Y2
      Code "G01 X" & XPOS+1.907*X1+9.997*X2 &" Y" & YPOS+1.907*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.85*X1+9.514*X2 &" Y" & YPOS+2.85*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.332*X1+8.572*X2 &" Y" & YPOS+3.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.332*X1+7.607*X2 &" Y" & YPOS+3.332*Y1+7.607*Y2
      Code "G01 X" & XPOS+2.85*X1+5.699*X2 &" Y" & YPOS+2.85*Y1+5.699*Y2
      Code "G01 X" & XPOS+2.39*X1+4.274*X2 &" Y" & YPOS+2.39*Y1+4.274*Y2
      Code "G01 X" & XPOS+1.907*X1+2.367*X2 &" Y" & YPOS+1.907*Y1+2.367*Y2
      Code "G01 X" & XPOS+1.907*X1+1.425*X2 &" Y" & YPOS+1.907*Y1+1.425*Y2
      Code "G01 X" & XPOS+2.39*X1+0.483*X2 &" Y" & YPOS+2.39*Y1+0.483*Y2
      Code "G01 X" & XPOS+3.332*X1 &" Y" & YPOS+3.332*Y1
      Code "G01 X" & XPOS+4.274*X1 &" Y" & YPOS+4.274*Y1
      Code "G01 X" & XPOS+5.24*X1+0.483*X2 &" Y" & YPOS+5.24*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.699*X1+0.942*X2 &" Y" & YPOS+5.699*Y1+0.942*Y2
      Code "G01 X" & XPOS+6.664*X1+2.85*X2 &" Y" & YPOS+6.664*Y1+2.85*Y2
      Code "G01 X" & XPOS+8.089*X1+6.664*X2 &" Y" & YPOS+8.089*Y1+6.664*Y2
      Code "G01 X" & XPOS+9.031*X1+9.997*X2 &" Y" & YPOS+9.031*Y1+9.997*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.089*X1+6.664*X2 &" Y" & YPOS+8.089*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+7.607*X1+4.757*X2 &" Y" & YPOS+7.607*Y1+4.757*Y2
      Code "G01 X" & XPOS+7.147*X1+1.907*X2 &" Y" & YPOS+7.147*Y1+1.907*Y2
      Code "G01 X" & XPOS+7.147*X1+0.483*X2 &" Y" & YPOS+7.147*Y1+0.483*Y2
      Code "G01 X" & XPOS+7.607*X1 &" Y" & YPOS+7.607*Y1
      Code "G01 X" & XPOS+8.089*X1 &" Y" & YPOS+8.089*Y1
      Code "G01 X" & XPOS+9.031*X1+0.483*X2 &" Y" & YPOS+9.031*Y1+0.483*Y2
      Code "G01 X" & XPOS+9.514*X1+0.942*X2 &" Y" & YPOS+9.514*Y1+0.942*Y2
      Code "G01 X" & XPOS+10.479*X1+2.367*X2 &" Y" & YPOS+10.479*Y1+2.367*Y2
      Largo=11.479
    Case 34   'V
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.425*X1+6.664*X2 &" Y" & YPOS+1.425*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.483*X1+7.147*X2 &" Y" & YPOS+0.483*Y1+7.147*Y2
      Code "G01 X" & XPOS+8.089*X2 &" Y" & YPOS+8.089*Y2
      Code "G01 X" & XPOS+8.572*X2 &" Y" & YPOS+8.572*Y2
      Code "G01 X" & XPOS+0.483*X1+9.514*X2 &" Y" & YPOS+0.483*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.425*X1+9.997*X2 &" Y" & YPOS+1.425*Y1+9.997*Y2
      Code "G01 X" & XPOS+1.907*X1+9.997*X2 &" Y" & YPOS+1.907*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.85*X1+9.514*X2 &" Y" & YPOS+2.85*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.332*X1+8.572*X2 &" Y" & YPOS+3.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.332*X1+7.607*X2 &" Y" & YPOS+3.332*Y1+7.607*Y2
      Code "G01 X" & XPOS+2.85*X1+5.699*X2 &" Y" & YPOS+2.85*Y1+5.699*Y2
      Code "G01 X" & XPOS+2.39*X1+4.274*X2 &" Y" & YPOS+2.39*Y1+4.274*Y2
      Code "G01 X" & XPOS+1.907*X1+2.367*X2 &" Y" & YPOS+1.907*Y1+2.367*Y2
      Code "G01 X" & XPOS+1.907*X1+0.942*X2 &" Y" & YPOS+1.907*Y1+0.942*Y2
      Code "G01 X" & XPOS+2.39*X1 &" Y" & YPOS+2.39*Y1
      Code "G01 X" & XPOS+3.332*X1 &" Y" & YPOS+3.332*Y1
      Code "G01 X" & XPOS+4.297*X1+0.483*X2 &" Y" & YPOS+4.297*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.722*X1+1.907*X2 &" Y" & YPOS+5.722*Y1+1.907*Y2
      Code "G01 X" & XPOS+6.664*X1+3.332*X2 &" Y" & YPOS+6.664*Y1+3.332*Y2
      Code "G01 X" & XPOS+7.607*X1+5.24*X2 &" Y" & YPOS+7.607*Y1+5.24*Y2
      Code "G01 X" & XPOS+8.089*X1+6.664*X2 &" Y" & YPOS+8.089*Y1+6.664*Y2
      Code "G01 X" & XPOS+8.572*X1+8.572*X2 &" Y" & YPOS+8.572*Y1+8.572*Y2
      Code "G01 X" & XPOS+8.572*X1+9.514*X2 &" Y" & YPOS+8.572*Y1+9.514*Y2
      Code "G01 X" & XPOS+8.089*X1+9.997*X2 &" Y" & YPOS+8.089*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.607*X1+9.997*X2 &" Y" & YPOS+7.607*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.147*X1+9.514*X2 &" Y" & YPOS+7.147*Y1+9.514*Y2
      Code "G01 X" & XPOS+6.664*X1+8.572*X2 &" Y" & YPOS+6.664*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.664*X1+7.607*X2 &" Y" & YPOS+6.664*Y1+7.607*Y2
      Code "G01 X" & XPOS+7.147*X1+6.182*X2 &" Y" & YPOS+7.147*Y1+6.182*Y2
      Code "G01 X" & XPOS+8.089*X1+5.24*X2 &" Y" & YPOS+8.089*Y1+5.24*Y2
      Code "G01 X" & XPOS+9.054*X1+4.757*X2 &" Y" & YPOS+9.054*Y1+4.757*Y2
      Largo=10.054
    Case 12   'W
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.425*X1+6.664*X2 &" Y" & YPOS+1.425*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.483*X1+7.147*X2 &" Y" & YPOS+0.483*Y1+7.147*Y2
      Code "G01 X" & XPOS+8.089*X2 &" Y" & YPOS+8.089*Y2
      Code "G01 X" & XPOS+8.572*X2 &" Y" & YPOS+8.572*Y2
      Code "G01 X" & XPOS+0.483*X1+9.514*X2 &" Y" & YPOS+0.483*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.425*X1+9.997*X2 &" Y" & YPOS+1.425*Y1+9.997*Y2
      Code "G01 X" & XPOS+1.907*X1+9.997*X2 &" Y" & YPOS+1.907*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.85*X1+9.514*X2 &" Y" & YPOS+2.85*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.332*X1+8.572*X2 &" Y" & YPOS+3.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.332*X1+7.147*X2 &" Y" & YPOS+3.332*Y1+7.147*Y2
      Code "G01 X" & XPOS+2.85*X1 &" Y" & YPOS+2.85*Y1
      Code "G01 X" & XPOS+7.607*X1+9.997*X2 &" Y" & YPOS+7.607*Y1+9.997*Y2
      Code "G01 X" & XPOS+6.664*X1 &" Y" & YPOS+6.664*Y1
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+13.329*X1+9.997*X2 &" Y" & YPOS+13.329*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+12.364*X1+9.514*X2 &" Y" & YPOS+12.364*Y1+9.514*Y2
      Code "G01 X" & XPOS+10.939*X1+8.089*X2 &" Y" & YPOS+10.939*Y1+8.089*Y2
      Code "G01 X" & XPOS+9.514*X1+6.182*X2 &" Y" & YPOS+9.514*Y1+6.182*Y2
      Code "G01 X" & XPOS+8.089*X1+3.332*X2 &" Y" & YPOS+8.089*Y1+3.332*Y2
      Code "G01 X" & XPOS+6.664*X1 &" Y" & YPOS+6.664*Y1
      Largo=14.329
    Case 32   'X
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.309*X1+7.147*X2 &" Y" & YPOS+3.309*Y1+7.147*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.367*X1+7.147*X2 &" Y" & YPOS+2.367*Y1+7.147*Y2
      Code "G01 X" & XPOS+1.884*X1+7.607*X2 &" Y" & YPOS+1.884*Y1+7.607*Y2
      Code "G01 X" & XPOS+1.884*X1+8.572*X2 &" Y" & YPOS+1.884*Y1+8.572*Y2
      Code "G01 X" & XPOS+2.367*X1+9.514*X2 &" Y" & YPOS+2.367*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.309*X1+9.997*X2 &" Y" & YPOS+3.309*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.274*X1+9.997*X2 &" Y" & YPOS+4.274*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.217*X1+9.514*X2 &" Y" & YPOS+5.217*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.699*X1+8.572*X2 &" Y" & YPOS+5.699*Y1+8.572*Y2
      Code "G01 X" & XPOS+5.699*X1+7.147*X2 &" Y" & YPOS+5.699*Y1+7.147*Y2
      Code "G01 X" & XPOS+4.757*X1+2.85*X2 &" Y" & YPOS+4.757*Y1+2.85*Y2
      Code "G01 X" & XPOS+4.757*X1+1.425*X2 &" Y" & YPOS+4.757*Y1+1.425*Y2
      Code "G01 X" & XPOS+5.217*X1+0.483*X2 &" Y" & YPOS+5.217*Y1+0.483*Y2
      Code "G01 X" & XPOS+6.182*X1 &" Y" & YPOS+6.182*Y1
      Code "G01 X" & XPOS+7.124*X1 &" Y" & YPOS+7.124*Y1
      Code "G01 X" & XPOS+8.066*X1+0.483*X2 &" Y" & YPOS+8.066*Y1+0.483*Y2
      Code "G01 X" & XPOS+8.549*X1+1.425*X2 &" Y" & YPOS+8.549*Y1+1.425*Y2
      Code "G01 X" & XPOS+8.549*X1+2.367*X2 &" Y" & YPOS+8.549*Y1+2.367*Y2
      Code "G01 X" & XPOS+8.066*X1+2.85*X2 &" Y" & YPOS+8.066*Y1+2.85*Y2
      Code "G01 X" & XPOS+7.124*X1+2.85*X2 &" Y" & YPOS+7.124*Y1+2.85*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+10.456*X1+8.572*X2 &" Y" & YPOS+10.456*Y1+8.572*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+10.456*X1+9.514*X2 &" Y" & YPOS+10.456*Y1+9.514*Y2
      Code "G01 X" & XPOS+9.974*X1+9.997*X2 &" Y" & YPOS+9.974*Y1+9.997*Y2
      Code "G01 X" & XPOS+9.031*X1+9.997*X2 &" Y" & YPOS+9.031*Y1+9.997*Y2
      Code "G01 X" & XPOS+8.066*X1+9.514*X2 &" Y" & YPOS+8.066*Y1+9.514*Y2
      Code "G01 X" & XPOS+7.124*X1+8.572*X2 &" Y" & YPOS+7.124*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.182*X1+7.147*X2 &" Y" & YPOS+6.182*Y1+7.147*Y2
      Code "G01 X" & XPOS+4.274*X1+2.85*X2 &" Y" & YPOS+4.274*Y1+2.85*Y2
      Code "G01 X" & XPOS+3.309*X1+1.425*X2 &" Y" & YPOS+3.309*Y1+1.425*Y2
      Code "G01 X" & XPOS+2.367*X1+0.483*X2 &" Y" & YPOS+2.367*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+0.46*X1 &" Y" & YPOS+0.46*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Largo=11.456
    Case 16   'Y
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.425*X1+6.664*X2 &" Y" & YPOS+1.425*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.483*X1+7.147*X2 &" Y" & YPOS+0.483*Y1+7.147*Y2
      Code "G01 X" & XPOS+8.089*X2 &" Y" & YPOS+8.089*Y2
      Code "G01 X" & XPOS+8.572*X2 &" Y" & YPOS+8.572*Y2
      Code "G01 X" & XPOS+0.483*X1+9.514*X2 &" Y" & YPOS+0.483*Y1+9.514*Y2
      Code "G01 X" & XPOS+1.425*X1+9.997*X2 &" Y" & YPOS+1.425*Y1+9.997*Y2
      Code "G01 X" & XPOS+1.907*X1+9.997*X2 &" Y" & YPOS+1.907*Y1+9.997*Y2
      Code "G01 X" & XPOS+2.85*X1+9.514*X2 &" Y" & YPOS+2.85*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.332*X1+8.572*X2 &" Y" & YPOS+3.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.332*X1+7.607*X2 &" Y" & YPOS+3.332*Y1+7.607*Y2
      Code "G01 X" & XPOS+2.85*X1+5.699*X2 &" Y" & YPOS+2.85*Y1+5.699*Y2
      Code "G01 X" & XPOS+2.367*X1+4.274*X2 &" Y" & YPOS+2.367*Y1+4.274*Y2
      Code "G01 X" & XPOS+1.907*X1+2.367*X2 &" Y" & YPOS+1.907*Y1+2.367*Y2
      Code "G01 X" & XPOS+1.907*X1+1.425*X2 &" Y" & YPOS+1.907*Y1+1.425*Y2
      Code "G01 X" & XPOS+2.367*X1+0.483*X2 &" Y" & YPOS+2.367*Y1+0.483*Y2
      Code "G01 X" & XPOS+2.85*X1 &" Y" & YPOS+2.85*Y1
      Code "G01 X" & XPOS+3.815*X1 &" Y" & YPOS+3.815*Y1
      Code "G01 X" & XPOS+4.757*X1+0.483*X2 &" Y" & YPOS+4.757*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.699*X1+1.425*X2 &" Y" & YPOS+5.699*Y1+1.425*Y2
      Code "G01 X" & XPOS+6.664*X1+2.85*X2 &" Y" & YPOS+6.664*Y1+2.85*Y2
      Code "G01 X" & XPOS+7.124*X1+3.815*X2 &" Y" & YPOS+7.124*Y1+3.815*Y2
      Code "G01 X" & XPOS+8.089*X1+6.664*X2 &" Y" & YPOS+8.089*Y1+6.664*Y2
      Code "G01 X" & XPOS+9.031*X1+9.997*X2 &" Y" & YPOS+9.031*Y1+9.997*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.089*X1+6.664*X2 &" Y" & YPOS+8.089*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+6.664*X1+1.907*X2 &" Y" & YPOS+6.664*Y1+1.907*Y2
      Code "G01 X" & XPOS+5.699*X1-0.965*X2 &" Y" & YPOS+5.699*Y1-0.965*Y2
      Code "G01 X" & XPOS+4.757*X1-3.332*X2 &" Y" & YPOS+4.757*Y1-3.332*Y2
      Code "G01 X" & XPOS+3.815*X1-5.24*X2 &" Y" & YPOS+3.815*Y1-5.24*Y2
      Code "G01 X" & XPOS+2.85*X1-5.722*X2 &" Y" & YPOS+2.85*Y1-5.722*Y2
      Code "G01 X" & XPOS+2.367*X1-5.24*X2 &" Y" & YPOS+2.367*Y1-5.24*Y2
      Code "G01 X" & XPOS+2.367*X1-4.297*X2 &" Y" & YPOS+2.367*Y1-4.297*Y2
      Code "G01 X" & XPOS+2.85*X1-2.85*X2 &" Y" & YPOS+2.85*Y1-2.85*Y2
      Code "G01 X" & XPOS+3.815*X1-1.425*X2 &" Y" & YPOS+3.815*Y1-1.425*Y2
      Code "G01 X" & XPOS+5.24*X1 &" Y" & YPOS+5.24*Y1
      Code "G01 X" & XPOS+6.664*X1+0.942*X2 &" Y" & YPOS+6.664*Y1+0.942*Y2
      Code "G01 X" & XPOS+9.031*X1+2.367*X2 &" Y" & YPOS+9.031*Y1+2.367*Y2
      Largo=10.031
    Case 31   'Z
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.24*X1+7.147*X2 &" Y" & YPOS+5.24*Y1+7.147*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.757*X1+6.182*X2 &" Y" & YPOS+4.757*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.297*X1+5.699*X2 &" Y" & YPOS+4.297*Y1+5.699*Y2
      Code "G01 X" & XPOS+3.332*X1+5.24*X2 &" Y" & YPOS+3.332*Y1+5.24*Y2
      Code "G01 X" & XPOS+2.39*X1+5.24*X2 &" Y" & YPOS+2.39*Y1+5.24*Y2
      Code "G01 X" & XPOS+1.907*X1+6.182*X2 &" Y" & YPOS+1.907*Y1+6.182*Y2
      Code "G01 X" & XPOS+1.907*X1+7.147*X2 &" Y" & YPOS+1.907*Y1+7.147*Y2
      Code "G01 X" & XPOS+2.39*X1+8.572*X2 &" Y" & YPOS+2.39*Y1+8.572*Y2
      Code "G01 X" & XPOS+3.332*X1+9.514*X2 &" Y" & YPOS+3.332*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.757*X1+9.997*X2 &" Y" & YPOS+4.757*Y1+9.997*Y2
      Code "G01 X" & XPOS+6.205*X1+9.997*X2 &" Y" & YPOS+6.205*Y1+9.997*Y2
      Code "G01 X" & XPOS+7.147*X1+9.514*X2 &" Y" & YPOS+7.147*Y1+9.514*Y2
      Code "G01 X" & XPOS+7.63*X1+8.572*X2 &" Y" & YPOS+7.63*Y1+8.572*Y2
      Code "G01 X" & XPOS+7.63*X1+6.664*X2 &" Y" & YPOS+7.63*Y1+6.664*Y2
      Code "G01 X" & XPOS+7.147*X1+5.24*X2 &" Y" & YPOS+7.147*Y1+5.24*Y2
      Code "G01 X" & XPOS+6.205*X1+3.332*X2 &" Y" & YPOS+6.205*Y1+3.332*Y2
      Code "G01 X" & XPOS+4.757*X1+1.907*X2 &" Y" & YPOS+4.757*Y1+1.907*Y2
      Code "G01 X" & XPOS+2.873*X1+0.483*X2 &" Y" & YPOS+2.873*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.907*X1 &" Y" & YPOS+1.907*Y1
      Code "G01 X" & XPOS+0.483*X1 &" Y" & YPOS+0.483*Y1
      Code "G01 X" & XPOS+0.483*X2 &" Y" & YPOS+0.483*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+0.483*X1+1.907*X2 &" Y" & YPOS+0.483*Y1+1.907*Y2
      Code "G01 X" & XPOS+1.907*X1+1.907*X2 &" Y" & YPOS+1.907*Y1+1.907*Y2
      Code "G01 X" & XPOS+2.873*X1+1.425*X2 &" Y" & YPOS+2.873*Y1+1.425*Y2
      Code "G01 X" & XPOS+3.332*X1+0.942*X2 &" Y" & YPOS+3.332*Y1+0.942*Y2
      Code "G01 X" & XPOS+3.815*X1 &" Y" & YPOS+3.815*Y1
      Code "G01 X" & XPOS+3.815*X1-1.425*X2 &" Y" & YPOS+3.815*Y1-1.425*Y2
      Code "G01 X" & XPOS+3.332*X1-2.85*X2 &" Y" & YPOS+3.332*Y1-2.85*Y2
      Code "G01 X" & XPOS+2.873*X1-3.815*X2 &" Y" & YPOS+2.873*Y1-3.815*Y2
      Code "G01 X" & XPOS+1.907*X1-5.24*X2 &" Y" & YPOS+1.907*Y1-5.24*Y2
      Code "G01 X" & XPOS+0.965*X1-5.722*X2 &" Y" & YPOS+0.965*Y1-5.722*Y2
      Code "G01 X" & XPOS+0.483*X1-5.24*X2 &" Y" & YPOS+0.483*Y1-5.24*Y2
      Code "G01 X" & XPOS+0.483*X1-4.297*X2 &" Y" & YPOS+0.483*Y1-4.297*Y2
      Code "G01 X" & XPOS+0.965*X1-2.85*X2 &" Y" & YPOS+0.965*Y1-2.85*Y2
      Code "G01 X" & XPOS+1.907*X1-1.425*X2 &" Y" & YPOS+1.907*Y1-1.425*Y2
      Code "G01 X" & XPOS+3.332*X1 &" Y" & YPOS+3.332*Y1
      Code "G01 X" & XPOS+4.757*X1+0.942*X2 &" Y" & YPOS+4.757*Y1+0.942*Y2
      Code "G01 X" & XPOS+7.63*X1+2.367*X2 &" Y" & YPOS+7.63*Y1+2.367*Y2
      Largo=8.63
    Case 51   'a
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.284*X1+2.875*X2 &" Y" & YPOS+4.284*Y1+2.875*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.804*X1+3.822*X2 &" Y" & YPOS+3.804*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.856*X1+4.303*X2 &" Y" & YPOS+2.856*Y1+4.303*Y2
      Code "G01 X" & XPOS+1.909*X1+4.303*X2 &" Y" & YPOS+1.909*Y1+4.303*Y2
      Code "G01 X" & XPOS+0.961*X1+3.822*X2 &" Y" & YPOS+0.961*Y1+3.822*Y2
      Code "G01 X" & XPOS+0.481*X1+3.342*X2 &" Y" & YPOS+0.481*Y1+3.342*Y2
      Code "G01 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G01 X" & XPOS+1.447*X2 &" Y" & YPOS+1.447*Y2
      Code "G01 X" & XPOS+0.481*X1+0.486*X2 &" Y" & YPOS+0.481*Y1+0.486*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.376*X1+0.019*X2 &" Y" & YPOS+2.376*Y1+0.019*Y2
      Code "G01 X" & XPOS+3.337*X1+0.486*X2 &" Y" & YPOS+3.337*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.804*X1+1.447*X2 &" Y" & YPOS+3.804*Y1+1.447*Y2
      Code "G01 X" & XPOS+4.765*X1+4.303*X2 &" Y" & YPOS+4.765*Y1+4.303*Y2
      Code "G01 X" & XPOS+4.284*X1+1.914*X2 &" Y" & YPOS+4.284*Y1+1.914*Y2
      Code "G01 X" & XPOS+4.284*X1+0.486*X2 &" Y" & YPOS+4.284*Y1+0.486*Y2
      Code "G01 X" & XPOS+4.765*X1+0.019*X2 &" Y" & YPOS+4.765*Y1+0.019*Y2
      Code "G01 X" & XPOS+5.232*X1+0.019*X2 &" Y" & YPOS+5.232*Y1+0.019*Y2
      Code "G01 X" & XPOS+6.193*X1+0.486*X2 &" Y" & YPOS+6.193*Y1+0.486*Y2
      Code "G01 X" & XPOS+6.66*X1+0.966*X2 &" Y" & YPOS+6.66*Y1+0.966*Y2
      Code "G01 X" & XPOS+7.621*X1+2.394*X2 &" Y" & YPOS+7.621*Y1+2.394*Y2
      Largo=7.621
    Case 65   'b
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.376*X1+6.198*X2 &" Y" & YPOS+2.376*Y1+6.198*Y2
      Code "G01 X" & XPOS+2.856*X1+7.159*X2 &" Y" & YPOS+2.856*Y1+7.159*Y2
      Code "G01 X" & XPOS+3.323*X1+8.587*X2 &" Y" & YPOS+3.323*Y1+8.587*Y2
      Code "G01 X" & XPOS+3.323*X1+9.535*X2 &" Y" & YPOS+3.323*Y1+9.535*Y2
      Code "G01 X" & XPOS+2.856*X1+10.016*X2 &" Y" & YPOS+2.856*Y1+10.016*Y2
      Code "G01 X" & XPOS+1.895*X1+9.535*X2 &" Y" & YPOS+1.895*Y1+9.535*Y2
      Code "G01 X" & XPOS+1.428*X1+8.587*X2 &" Y" & YPOS+1.428*Y1+8.587*Y2
      Code "G01 X" & XPOS+0.948*X1+6.679*X2 &" Y" & YPOS+0.948*Y1+6.679*Y2
      Code "G01 X" & XPOS+0.467*X1+3.342*X2 &" Y" & YPOS+0.467*Y1+3.342*Y2
      Code "G01 X" & XPOS+0.467*X1+0.486*X2 &" Y" & YPOS+0.467*Y1+0.486*Y2
      Code "G01 X" & XPOS+0.948*X1+0.019*X2 &" Y" & YPOS+0.948*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.376*X1+0.486*X2 &" Y" & YPOS+2.376*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.323*X1+1.447*X2 &" Y" & YPOS+3.323*Y1+1.447*Y2
      Code "G01 X" & XPOS+3.804*X1+2.875*X2 &" Y" & YPOS+3.804*Y1+2.875*Y2
      Code "G01 X" & XPOS+3.804*X1+4.303*X2 &" Y" & YPOS+3.804*Y1+4.303*Y2
      Code "G01 X" & XPOS+4.284*X1+2.394*X2 &" Y" & YPOS+4.284*Y1+2.394*Y2
      Code "G01 X" & XPOS+4.751*X1+1.914*X2 &" Y" & YPOS+4.751*Y1+1.914*Y2
      Code "G01 X" & XPOS+5.712*X1+1.914*X2 &" Y" & YPOS+5.712*Y1+1.914*Y2
      Code "G01 X" & XPOS+6.66*X1+2.394*X2 &" Y" & YPOS+6.66*Y1+2.394*Y2
      Largo=6.66
    Case 63   'c
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.323*X1+3.342*X2 &" Y" & YPOS+3.323*Y1+3.342*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.323*X1+3.822*X2 &" Y" & YPOS+3.323*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.856*X1+4.303*X2 &" Y" & YPOS+2.856*Y1+4.303*Y2
      Code "G01 X" & XPOS+1.895*X1+4.303*X2 &" Y" & YPOS+1.895*Y1+4.303*Y2
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+0.467*X1+3.342*X2 &" Y" & YPOS+0.467*Y1+3.342*Y2
      Code "G01 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G01 X" & XPOS+1.447*X2 &" Y" & YPOS+1.447*Y2
      Code "G01 X" & XPOS+0.467*X1+0.486*X2 &" Y" & YPOS+0.467*Y1+0.486*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.856*X1+0.019*X2 &" Y" & YPOS+2.856*Y1+0.019*Y2
      Code "G01 X" & XPOS+4.284*X1+0.966*X2 &" Y" & YPOS+4.284*Y1+0.966*Y2
      Code "G01 X" & XPOS+5.232*X1+2.394*X2 &" Y" & YPOS+5.232*Y1+2.394*Y2
      Largo=5.232
    Case 53   'd
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.284*X1+2.875*X2 &" Y" & YPOS+4.284*Y1+2.875*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.804*X1+3.822*X2 &" Y" & YPOS+3.804*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.856*X1+4.303*X2 &" Y" & YPOS+2.856*Y1+4.303*Y2
      Code "G01 X" & XPOS+1.895*X1+4.303*X2 &" Y" & YPOS+1.895*Y1+4.303*Y2
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+0.481*X1+3.342*X2 &" Y" & YPOS+0.481*Y1+3.342*Y2
      Code "G01 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G01 X" & XPOS+1.447*X2 &" Y" & YPOS+1.447*Y2
      Code "G01 X" & XPOS+0.481*X1+0.486*X2 &" Y" & YPOS+0.481*Y1+0.486*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.376*X1+0.019*X2 &" Y" & YPOS+2.376*Y1+0.019*Y2
      Code "G01 X" & XPOS+3.323*X1+0.486*X2 &" Y" & YPOS+3.323*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.804*X1+1.447*X2 &" Y" & YPOS+3.804*Y1+1.447*Y2
      Code "G01 X" & XPOS+6.66*X1+10.016*X2 &" Y" & YPOS+6.66*Y1+10.016*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.751*X1+4.303*X2 &" Y" & YPOS+4.751*Y1+4.303*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.284*X1+1.914*X2 &" Y" & YPOS+4.284*Y1+1.914*Y2
      Code "G01 X" & XPOS+4.284*X1+0.486*X2 &" Y" & YPOS+4.284*Y1+0.486*Y2
      Code "G01 X" & XPOS+4.751*X1+0.019*X2 &" Y" & YPOS+4.751*Y1+0.019*Y2
      Code "G01 X" & XPOS+5.232*X1+0.019*X2 &" Y" & YPOS+5.232*Y1+0.019*Y2
      Code "G01 X" & XPOS+6.179*X1+0.486*X2 &" Y" & YPOS+6.179*Y1+0.486*Y2
      Code "G01 X" & XPOS+6.66*X1+0.966*X2 &" Y" & YPOS+6.66*Y1+0.966*Y2
      Code "G01 X" & XPOS+7.607*X1+2.394*X2 &" Y" & YPOS+7.607*Y1+2.394*Y2
      Largo=7.607
    Case 43   'e
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.481*X1+0.966*X2 &" Y" & YPOS+0.481*Y1+0.966*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.428*X1+1.447*X2 &" Y" & YPOS+1.428*Y1+1.447*Y2
      Code "G01 X" & XPOS+1.895*X1+1.914*X2 &" Y" & YPOS+1.895*Y1+1.914*Y2
      Code "G01 X" & XPOS+2.376*X1+2.875*X2 &" Y" & YPOS+2.376*Y1+2.875*Y2
      Code "G01 X" & XPOS+2.376*X1+3.822*X2 &" Y" & YPOS+2.376*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.895*X1+4.303*X2 &" Y" & YPOS+1.895*Y1+4.303*Y2
      Code "G01 X" & XPOS+1.428*X1+4.303*X2 &" Y" & YPOS+1.428*Y1+4.303*Y2
      Code "G01 X" & XPOS+0.481*X1+3.822*X2 &" Y" & YPOS+0.481*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.875*X2 &" Y" & YPOS+2.875*Y2
      Code "G01 X" & XPOS+1.447*X2 &" Y" & YPOS+1.447*Y2
      Code "G01 X" & XPOS+0.481*X1+0.486*X2 &" Y" & YPOS+0.481*Y1+0.486*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.376*X1+0.019*X2 &" Y" & YPOS+2.376*Y1+0.019*Y2
      Code "G01 X" & XPOS+3.323*X1+0.486*X2 &" Y" & YPOS+3.323*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.804*X1+0.966*X2 &" Y" & YPOS+3.804*Y1+0.966*Y2
      Code "G01 X" & XPOS+4.751*X1+2.394*X2 &" Y" & YPOS+4.751*Y1+2.394*Y2
      Largo=4.751
    Case 54   'f
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.895*X1+4.77*X2 &" Y" & YPOS+1.895*Y1+4.77*Y2
      Code "G01 X" & XPOS+2.856*X1+6.198*X2 &" Y" & YPOS+2.856*Y1+6.198*Y2
      Code "G01 X" & XPOS+3.323*X1+7.159*X2 &" Y" & YPOS+3.323*Y1+7.159*Y2
      Code "G01 X" & XPOS+3.804*X1+8.587*X2 &" Y" & YPOS+3.804*Y1+8.587*Y2
      Code "G01 X" & XPOS+3.804*X1+9.535*X2 &" Y" & YPOS+3.804*Y1+9.535*Y2
      Code "G01 X" & XPOS+3.323*X1+10.016*X2 &" Y" & YPOS+3.323*Y1+10.016*Y2
      Code "G01 X" & XPOS+2.376*X1+9.535*X2 &" Y" & YPOS+2.376*Y1+9.535*Y2
      Code "G01 X" & XPOS+1.895*X1+8.587*X2 &" Y" & YPOS+1.895*Y1+8.587*Y2
      Code "G01 X" & XPOS+0.948*X1+4.77*X2 &" Y" & YPOS+0.948*Y1+4.77*Y2
      Code "G01 X" & XPOS-0.481*X1+0.486*X2 &" Y" & YPOS-0.481*Y1+0.486*Y2
      Code "G01 X" & XPOS-1.909*X1-2.837*X2 &" Y" & YPOS-1.909*Y1-2.837*Y2
      Code "G01 X" & XPOS-2.376*X1-4.266*X2 &" Y" & YPOS-2.376*Y1-4.266*Y2
      Code "G01 X" & XPOS-2.376*X1-5.227*X2 &" Y" & YPOS-2.376*Y1-5.227*Y2
      Code "G01 X" & XPOS-1.909*X1-5.694*X2 &" Y" & YPOS-1.909*Y1-5.694*Y2
      Code "G01 X" & XPOS-0.948*X1-5.227*X2 &" Y" & YPOS-0.948*Y1-5.227*Y2
      Code "G01 X" & XPOS-0.481*X1-3.799*X2 &" Y" & YPOS-0.481*Y1-3.799*Y2
      Code "G01 X" & XPOS+0.486*X2 &" Y" & YPOS+0.486*Y2
      Code "G01 X" & XPOS+0.481*X1+0.019*X2 &" Y" & YPOS+0.481*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.376*X1+0.486*X2 &" Y" & YPOS+2.376*Y1+0.486*Y2
      Code "G01 X" & XPOS+2.856*X1+0.966*X2 &" Y" & YPOS+2.856*Y1+0.966*Y2
      Code "G01 X" & XPOS+3.804*X1+2.394*X2 &" Y" & YPOS+3.804*Y1+2.394*Y2
      Largo=3.804
    Case 55   'g
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.271*X1+2.875*X2 &" Y" & YPOS+4.271*Y1+2.875*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.804*X1+3.822*X2 &" Y" & YPOS+3.804*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.856*X1+4.303*X2 &" Y" & YPOS+2.856*Y1+4.303*Y2
      Code "G01 X" & XPOS+1.895*X1+4.303*X2 &" Y" & YPOS+1.895*Y1+4.303*Y2
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+0.467*X1+3.342*X2 &" Y" & YPOS+0.467*Y1+3.342*Y2
      Code "G01 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G01 X" & XPOS+1.447*X2 &" Y" & YPOS+1.447*Y2
      Code "G01 X" & XPOS+0.467*X1+0.486*X2 &" Y" & YPOS+0.467*Y1+0.486*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.376*X1+0.019*X2 &" Y" & YPOS+2.376*Y1+0.019*Y2
      Code "G01 X" & XPOS+3.323*X1+0.486*X2 &" Y" & YPOS+3.323*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.804*X1+0.966*X2 &" Y" & YPOS+3.804*Y1+0.966*Y2
      Code "G01 X" & XPOS+4.751*X1+4.303*X2 &" Y" & YPOS+4.751*Y1+4.303*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.804*X1+0.966*X2 &" Y" & YPOS+3.804*Y1+0.966*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.895*X1-4.266*X2 &" Y" & YPOS+1.895*Y1-4.266*Y2
      Code "G01 X" & XPOS+1.428*X1-5.227*X2 &" Y" & YPOS+1.428*Y1-5.227*Y2
      Code "G01 X" & XPOS+0.467*X1-5.694*X2 &" Y" & YPOS+0.467*Y1-5.694*Y2
      Code "G01 X" & XPOS-5.227*X2 &" Y" & YPOS-5.227*Y2
      Code "G01 X" & XPOS-4.266*X2 &" Y" & YPOS-4.266*Y2
      Code "G01 X" & XPOS+0.467*X1-2.837*X2 &" Y" & YPOS+0.467*Y1-2.837*Y2
      Code "G01 X" & XPOS+1.895*X1-1.409*X2 &" Y" & YPOS+1.895*Y1-1.409*Y2
      Code "G01 X" & XPOS+3.323*X1-0.462*X2 &" Y" & YPOS+3.323*Y1-0.462*Y2
      Code "G01 X" & XPOS+4.271*X1+0.019*X2 &" Y" & YPOS+4.271*Y1+0.019*Y2
      Code "G01 X" & XPOS+5.699*X1+0.966*X2 &" Y" & YPOS+5.699*Y1+0.966*Y2
      Code "G01 X" & XPOS+7.127*X1+2.394*X2 &" Y" & YPOS+7.127*Y1+2.394*Y2
      Largo=7.127
    Case 56   'h
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.376*X1+6.198*X2 &" Y" & YPOS+2.376*Y1+6.198*Y2
      Code "G01 X" & XPOS+2.856*X1+7.159*X2 &" Y" & YPOS+2.856*Y1+7.159*Y2
      Code "G01 X" & XPOS+3.337*X1+8.587*X2 &" Y" & YPOS+3.337*Y1+8.587*Y2
      Code "G01 X" & XPOS+3.337*X1+9.535*X2 &" Y" & YPOS+3.337*Y1+9.535*Y2
      Code "G01 X" & XPOS+2.856*X1+10.016*X2 &" Y" & YPOS+2.856*Y1+10.016*Y2
      Code "G01 X" & XPOS+1.909*X1+9.535*X2 &" Y" & YPOS+1.909*Y1+9.535*Y2
      Code "G01 X" & XPOS+1.428*X1+8.587*X2 &" Y" & YPOS+1.428*Y1+8.587*Y2
      Code "G01 X" & XPOS+0.948*X1+6.679*X2 &" Y" & YPOS+0.948*Y1+6.679*Y2
      Code "G01 X" & XPOS+0.481*X1+3.822*X2 &" Y" & YPOS+0.481*Y1+3.822*Y2
      Code "G01 X" & XPOS+0.019*X2 &" Y" & YPOS+0.019*Y2
      Code "G01 X" & XPOS+0.481*X1+1.447*X2 &" Y" & YPOS+0.481*Y1+1.447*Y2
      Code "G01 X" & XPOS+0.948*X1+2.394*X2 &" Y" & YPOS+0.948*Y1+2.394*Y2
      Code "G01 X" & XPOS+1.909*X1+3.822*X2 &" Y" & YPOS+1.909*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.856*X1+4.303*X2 &" Y" & YPOS+2.856*Y1+4.303*Y2
      Code "G01 X" & XPOS+3.804*X1+4.303*X2 &" Y" & YPOS+3.804*Y1+4.303*Y2
      Code "G01 X" & XPOS+4.284*X1+3.822*X2 &" Y" & YPOS+4.284*Y1+3.822*Y2
      Code "G01 X" & XPOS+4.284*X1+2.875*X2 &" Y" & YPOS+4.284*Y1+2.875*Y2
      Code "G01 X" & XPOS+3.804*X1+1.447*X2 &" Y" & YPOS+3.804*Y1+1.447*Y2
      Code "G01 X" & XPOS+3.804*X1+0.486*X2 &" Y" & YPOS+3.804*Y1+0.486*Y2
      Code "G01 X" & XPOS+4.284*X1+0.019*X2 &" Y" & YPOS+4.284*Y1+0.019*Y2
      Code "G01 X" & XPOS+4.751*X1+0.019*X2 &" Y" & YPOS+4.751*Y1+0.019*Y2
      Code "G01 X" & XPOS+5.712*X1+0.486*X2 &" Y" & YPOS+5.712*Y1+0.486*Y2
      Code "G01 X" & XPOS+6.179*X1+0.966*X2 &" Y" & YPOS+6.179*Y1+0.966*Y2
      Code "G01 X" & XPOS+7.141*X1+2.394*X2 &" Y" & YPOS+7.141*Y1+2.394*Y2
      Largo=7.141
    Case 48   'i
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.909*X1+6.679*X2 &" Y" & YPOS+1.909*Y1+6.679*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.428*X1+6.198*X2 &" Y" & YPOS+1.428*Y1+6.198*Y2
      Code "G01 X" & XPOS+1.909*X1+5.731*X2 &" Y" & YPOS+1.909*Y1+5.731*Y2
      Code "G01 X" & XPOS+2.376*X1+6.198*X2 &" Y" & YPOS+2.376*Y1+6.198*Y2
      Code "G01 X" & XPOS+1.909*X1+6.679*X2 &" Y" & YPOS+1.909*Y1+6.679*Y2
      Code "G01 X" & XPOS+1.909*X1+6.679*X2 &" Y" & YPOS+1.909*Y1+6.679*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+4.303*X2 &" Y" & YPOS+0.948*Y1+4.303*Y2
      Code "G01 X" & XPOS+1.447*X2 &" Y" & YPOS+1.447*Y2
      Code "G01 X" & XPOS+0.486*X2 &" Y" & YPOS+0.486*Y2
      Code "G01 X" & XPOS+0.481*X1+0.019*X2 &" Y" & YPOS+0.481*Y1+0.019*Y2
      Code "G01 X" & XPOS+0.948*X1+0.019*X2 &" Y" & YPOS+0.948*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.909*X1+0.486*X2 &" Y" & YPOS+1.909*Y1+0.486*Y2
      Code "G01 X" & XPOS+2.376*X1+0.966*X2 &" Y" & YPOS+2.376*Y1+0.966*Y2
      Code "G01 X" & XPOS+3.337*X1+2.394*X2 &" Y" & YPOS+3.337*Y1+2.394*Y2
      Largo=3.337
    Case 57   'j
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.909*X1+6.679*X2 &" Y" & YPOS+1.909*Y1+6.679*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.428*X1+6.198*X2 &" Y" & YPOS+1.428*Y1+6.198*Y2
      Code "G01 X" & XPOS+1.909*X1+5.731*X2 &" Y" & YPOS+1.909*Y1+5.731*Y2
      Code "G01 X" & XPOS+2.389*X1+6.198*X2 &" Y" & YPOS+2.389*Y1+6.198*Y2
      Code "G01 X" & XPOS+1.909*X1+6.679*X2 &" Y" & YPOS+1.909*Y1+6.679*Y2
      Code "G01 X" & XPOS+1.909*X1+6.679*X2 &" Y" & YPOS+1.909*Y1+6.679*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.961*X1+4.303*X2 &" Y" & YPOS+0.961*Y1+4.303*Y2
      Code "G01 X" & XPOS-1.895*X1-4.266*X2 &" Y" & YPOS-1.895*Y1-4.266*Y2
      Code "G01 X" & XPOS-2.376*X1-5.227*X2 &" Y" & YPOS-2.376*Y1-5.227*Y2
      Code "G01 X" & XPOS-3.323*X1-5.694*X2 &" Y" & YPOS-3.323*Y1-5.694*Y2
      Code "G01 X" & XPOS-3.804*X1-5.227*X2 &" Y" & YPOS-3.804*Y1-5.227*Y2
      Code "G01 X" & XPOS-3.804*X1-4.266*X2 &" Y" & YPOS-3.804*Y1-4.266*Y2
      Code "G01 X" & XPOS-3.323*X1-2.837*X2 &" Y" & YPOS-3.323*Y1-2.837*Y2
      Code "G01 X" & XPOS-1.895*X1-1.409*X2 &" Y" & YPOS-1.895*Y1-1.409*Y2
      Code "G01 X" & XPOS-0.467*X1-0.462*X2 &" Y" & YPOS-0.467*Y1-0.462*Y2
      Code "G01 X" & XPOS+0.481*X1+0.019*X2 &" Y" & YPOS+0.481*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.909*X1+0.966*X2 &" Y" & YPOS+1.909*Y1+0.966*Y2
      Code "G01 X" & XPOS+3.337*X1+2.394*X2 &" Y" & YPOS+3.337*Y1+2.394*Y2
      Largo=3.337
    Case 58   'k
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.376*X2 &" Y" & YPOS+2.376*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.961*X1+3.804*X2 &" Y" & YPOS+0.961*Y1+3.804*Y2
      Code "G01 X" & XPOS+2.389*X1+6.179*X2 &" Y" & YPOS+2.389*Y1+6.179*Y2
      Code "G01 X" & XPOS+2.856*X1+7.141*X2 &" Y" & YPOS+2.856*Y1+7.141*Y2
      Code "G01 X" & XPOS+3.337*X1+8.569*X2 &" Y" & YPOS+3.337*Y1+8.569*Y2
      Code "G01 X" & XPOS+3.337*X1+9.516*X2 &" Y" & YPOS+3.337*Y1+9.516*Y2
      Code "G01 X" & XPOS+2.856*X1+9.997*X2 &" Y" & YPOS+2.856*Y1+9.997*Y2
      Code "G01 X" & XPOS+1.909*X1+9.516*X2 &" Y" & YPOS+1.909*Y1+9.516*Y2
      Code "G01 X" & XPOS+1.428*X1+8.569*X2 &" Y" & YPOS+1.428*Y1+8.569*Y2
      Code "G01 X" & XPOS+0.961*X1+6.66*X2 &" Y" & YPOS+0.961*Y1+6.66*Y2
      Code "G01 X" & XPOS+0.481*X1+3.804*X2 &" Y" & YPOS+0.481*Y1+3.804*Y2
      Code "G01 X" & XPOS &" Y" & YPOS
      Code "G01 X" & XPOS+0.481*X1+1.428*X2 &" Y" & YPOS+0.481*Y1+1.428*Y2
      Code "G01 X" & XPOS+0.961*X1+2.376*X2 &" Y" & YPOS+0.961*Y1+2.376*Y2
      Code "G01 X" & XPOS+1.909*X1+3.804*X2 &" Y" & YPOS+1.909*Y1+3.804*Y2
      Code "G01 X" & XPOS+2.856*X1+4.284*X2 &" Y" & YPOS+2.856*Y1+4.284*Y2
      Code "G01 X" & XPOS+3.817*X1+4.284*X2 &" Y" & YPOS+3.817*Y1+4.284*Y2
      Code "G01 X" & XPOS+4.284*X1+3.804*X2 &" Y" & YPOS+4.284*Y1+3.804*Y2
      Code "G01 X" & XPOS+4.284*X1+2.856*X2 &" Y" & YPOS+4.284*Y1+2.856*Y2
      Code "G01 X" & XPOS+3.337*X1+2.376*X2 &" Y" & YPOS+3.337*Y1+2.376*Y2
      Code "G01 X" & XPOS+1.909*X1+2.376*X2 &" Y" & YPOS+1.909*Y1+2.376*Y2
      Code "G01 X" & XPOS+2.856*X1+1.895*X2 &" Y" & YPOS+2.856*Y1+1.895*Y2
      Code "G01 X" & XPOS+3.337*X1+0.467*X2 &" Y" & YPOS+3.337*Y1+0.467*Y2
      Code "G01 X" & XPOS+3.817*X1 &" Y" & YPOS+3.817*Y1
      Code "G01 X" & XPOS+4.284*X1 &" Y" & YPOS+4.284*Y1
      Code "G01 X" & XPOS+5.246*X1+0.467*X2 &" Y" & YPOS+5.246*Y1+0.467*Y2
      Code "G01 X" & XPOS+5.712*X1+0.948*X2 &" Y" & YPOS+5.712*Y1+0.948*Y2
      Code "G01 X" & XPOS+6.66*X1+2.376*X2 &" Y" & YPOS+6.66*Y1+2.376*Y2
      Largo=6.66
    Case 59   'l
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.376*X1+6.198*X2 &" Y" & YPOS+2.376*Y1+6.198*Y2
      Code "G01 X" & XPOS+2.856*X1+7.159*X2 &" Y" & YPOS+2.856*Y1+7.159*Y2
      Code "G01 X" & XPOS+3.337*X1+8.587*X2 &" Y" & YPOS+3.337*Y1+8.587*Y2
      Code "G01 X" & XPOS+3.337*X1+9.535*X2 &" Y" & YPOS+3.337*Y1+9.535*Y2
      Code "G01 X" & XPOS+2.856*X1+10.016*X2 &" Y" & YPOS+2.856*Y1+10.016*Y2
      Code "G01 X" & XPOS+1.909*X1+9.535*X2 &" Y" & YPOS+1.909*Y1+9.535*Y2
      Code "G01 X" & XPOS+1.428*X1+8.587*X2 &" Y" & YPOS+1.428*Y1+8.587*Y2
      Code "G01 X" & XPOS+0.948*X1+6.679*X2 &" Y" & YPOS+0.948*Y1+6.679*Y2
      Code "G01 X" & XPOS+0.481*X1+3.342*X2 &" Y" & YPOS+0.481*Y1+3.342*Y2
      Code "G01 X" & XPOS+0.481*X1+0.486*X2 &" Y" & YPOS+0.481*Y1+0.486*Y2
      Code "G01 X" & XPOS+0.948*X1+0.019*X2 &" Y" & YPOS+0.948*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.376*X1+0.486*X2 &" Y" & YPOS+2.376*Y1+0.486*Y2
      Code "G01 X" & XPOS+2.856*X1+0.966*X2 &" Y" & YPOS+2.856*Y1+0.966*Y2
      Code "G01 X" & XPOS+3.804*X1+2.394*X2 &" Y" & YPOS+3.804*Y1+2.394*Y2
      Largo=3.804
    Case 67   'm
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.895*X1+4.303*X2 &" Y" & YPOS+1.895*Y1+4.303*Y2
      Code "G01 X" & XPOS+2.376*X1+3.822*X2 &" Y" & YPOS+2.376*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.376*X1+3.342*X2 &" Y" & YPOS+2.376*Y1+3.342*Y2
      Code "G01 X" & XPOS+1.895*X1+1.447*X2 &" Y" & YPOS+1.895*Y1+1.447*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.895*X1+1.447*X2 &" Y" & YPOS+1.895*Y1+1.447*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.376*X1+2.394*X2 &" Y" & YPOS+2.376*Y1+2.394*Y2
      Code "G01 X" & XPOS+3.323*X1+3.822*X2 &" Y" & YPOS+3.323*Y1+3.822*Y2
      Code "G01 X" & XPOS+4.284*X1+4.303*X2 &" Y" & YPOS+4.284*Y1+4.303*Y2
      Code "G01 X" & XPOS+5.232*X1+4.303*X2 &" Y" & YPOS+5.232*Y1+4.303*Y2
      Code "G01 X" & XPOS+5.712*X1+3.822*X2 &" Y" & YPOS+5.712*Y1+3.822*Y2
      Code "G01 X" & XPOS+5.712*X1+3.342*X2 &" Y" & YPOS+5.712*Y1+3.342*Y2
      Code "G01 X" & XPOS+5.232*X1+1.447*X2 &" Y" & YPOS+5.232*Y1+1.447*Y2
      Code "G01 X" & XPOS+4.751*X1+0.019*X2 &" Y" & YPOS+4.751*Y1+0.019*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.232*X1+1.447*X2 &" Y" & YPOS+5.232*Y1+1.447*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.712*X1+2.394*X2 &" Y" & YPOS+5.712*Y1+2.394*Y2
      Code "G01 X" & XPOS+6.66*X1+3.822*X2 &" Y" & YPOS+6.66*Y1+3.822*Y2
      Code "G01 X" & XPOS+7.607*X1+4.303*X2 &" Y" & YPOS+7.607*Y1+4.303*Y2
      Code "G01 X" & XPOS+8.555*X1+4.303*X2 &" Y" & YPOS+8.555*Y1+4.303*Y2
      Code "G01 X" & XPOS+9.036*X1+3.822*X2 &" Y" & YPOS+9.036*Y1+3.822*Y2
      Code "G01 X" & XPOS+9.036*X1+2.875*X2 &" Y" & YPOS+9.036*Y1+2.875*Y2
      Code "G01 X" & XPOS+8.555*X1+1.447*X2 &" Y" & YPOS+8.555*Y1+1.447*Y2
      Code "G01 X" & XPOS+8.555*X1+0.486*X2 &" Y" & YPOS+8.555*Y1+0.486*Y2
      Code "G01 X" & XPOS+9.036*X1+0.019*X2 &" Y" & YPOS+9.036*Y1+0.019*Y2
      Code "G01 X" & XPOS+9.516*X1+0.019*X2 &" Y" & YPOS+9.516*Y1+0.019*Y2
      Code "G01 X" & XPOS+10.464*X1+0.486*X2 &" Y" & YPOS+10.464*Y1+0.486*Y2
      Code "G01 X" & XPOS+10.944*X1+0.966*X2 &" Y" & YPOS+10.944*Y1+0.966*Y2
      Code "G01 X" & XPOS+11.892*X1+2.394*X2 &" Y" & YPOS+11.892*Y1+2.394*Y2
      Largo=11.892
    Case 66   'n
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.895*X1+4.303*X2 &" Y" & YPOS+1.895*Y1+4.303*Y2
      Code "G01 X" & XPOS+2.376*X1+3.822*X2 &" Y" & YPOS+2.376*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.376*X1+3.342*X2 &" Y" & YPOS+2.376*Y1+3.342*Y2
      Code "G01 X" & XPOS+1.895*X1+1.447*X2 &" Y" & YPOS+1.895*Y1+1.447*Y2
      Code "G01 X" & XPOS+1.414*X1+0.019*X2 &" Y" & YPOS+1.414*Y1+0.019*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.895*X1+1.447*X2 &" Y" & YPOS+1.895*Y1+1.447*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.376*X1+2.394*X2 &" Y" & YPOS+2.376*Y1+2.394*Y2
      Code "G01 X" & XPOS+3.323*X1+3.822*X2 &" Y" & YPOS+3.323*Y1+3.822*Y2
      Code "G01 X" & XPOS+4.271*X1+4.303*X2 &" Y" & YPOS+4.271*Y1+4.303*Y2
      Code "G01 X" & XPOS+5.232*X1+4.303*X2 &" Y" & YPOS+5.232*Y1+4.303*Y2
      Code "G01 X" & XPOS+5.699*X1+3.822*X2 &" Y" & YPOS+5.699*Y1+3.822*Y2
      Code "G01 X" & XPOS+5.699*X1+2.875*X2 &" Y" & YPOS+5.699*Y1+2.875*Y2
      Code "G01 X" & XPOS+5.232*X1+1.447*X2 &" Y" & YPOS+5.232*Y1+1.447*Y2
      Code "G01 X" & XPOS+5.232*X1+0.486*X2 &" Y" & YPOS+5.232*Y1+0.486*Y2
      Code "G01 X" & XPOS+5.699*X1+0.019*X2 &" Y" & YPOS+5.699*Y1+0.019*Y2
      Code "G01 X" & XPOS+6.179*X1+0.019*X2 &" Y" & YPOS+6.179*Y1+0.019*Y2
      Code "G01 X" & XPOS+7.127*X1+0.486*X2 &" Y" & YPOS+7.127*Y1+0.486*Y2
      Code "G01 X" & XPOS+7.607*X1+0.966*X2 &" Y" & YPOS+7.607*Y1+0.966*Y2
      Code "G01 X" & XPOS+8.555*X1+2.394*X2 &" Y" & YPOS+8.555*Y1+2.394*Y2
      Largo=8.555
    Case 60   'ñ
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.376*X1+5.251*X2 &" Y" & YPOS+2.376*Y1+5.251*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.323*X1+6.679*X2 &" Y" & YPOS+3.323*Y1+6.679*Y2
      Code "G01 X" & XPOS+4.284*X1+7.159*X2 &" Y" & YPOS+4.284*Y1+7.159*Y2
      Code "G01 X" & XPOS+5.232*X1+6.679*X2 &" Y" & YPOS+5.232*Y1+6.679*Y2
      Code "G01 X" & XPOS+5.712*X1+5.731*X2 &" Y" & YPOS+5.712*Y1+5.731*Y2
      Code "G01 X" & XPOS+6.66*X1+5.251*X2 &" Y" & YPOS+6.66*Y1+5.251*Y2
      Code "G01 X" & XPOS+7.607*X1+5.731*X2 &" Y" & YPOS+7.607*Y1+5.731*Y2
      Code "G01 X" & XPOS+8.569*X1+7.159*X2 &" Y" & YPOS+8.569*Y1+7.159*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.895*X1+4.303*X2 &" Y" & YPOS+1.895*Y1+4.303*Y2
      Code "G01 X" & XPOS+2.376*X1+3.822*X2 &" Y" & YPOS+2.376*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.376*X1+3.342*X2 &" Y" & YPOS+2.376*Y1+3.342*Y2
      Code "G01 X" & XPOS+1.895*X1+1.447*X2 &" Y" & YPOS+1.895*Y1+1.447*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.895*X1+1.447*X2 &" Y" & YPOS+1.895*Y1+1.447*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.376*X1+2.394*X2 &" Y" & YPOS+2.376*Y1+2.394*Y2
      Code "G01 X" & XPOS+3.323*X1+3.822*X2 &" Y" & YPOS+3.323*Y1+3.822*Y2
      Code "G01 X" & XPOS+4.284*X1+4.303*X2 &" Y" & YPOS+4.284*Y1+4.303*Y2
      Code "G01 X" & XPOS+5.232*X1+4.303*X2 &" Y" & YPOS+5.232*Y1+4.303*Y2
      Code "G01 X" & XPOS+5.712*X1+3.822*X2 &" Y" & YPOS+5.712*Y1+3.822*Y2
      Code "G01 X" & XPOS+5.712*X1+2.875*X2 &" Y" & YPOS+5.712*Y1+2.875*Y2
      Code "G01 X" & XPOS+5.232*X1+1.447*X2 &" Y" & YPOS+5.232*Y1+1.447*Y2
      Code "G01 X" & XPOS+5.232*X1+0.486*X2 &" Y" & YPOS+5.232*Y1+0.486*Y2
      Code "G01 X" & XPOS+5.712*X1+0.019*X2 &" Y" & YPOS+5.712*Y1+0.019*Y2
      Code "G01 X" & XPOS+6.179*X1+0.019*X2 &" Y" & YPOS+6.179*Y1+0.019*Y2
      Code "G01 X" & XPOS+7.141*X1+0.486*X2 &" Y" & YPOS+7.141*Y1+0.486*Y2
      Code "G01 X" & XPOS+7.607*X1+0.966*X2 &" Y" & YPOS+7.607*Y1+0.966*Y2
      Code "G01 X" & XPOS+8.569*X1+2.394*X2 &" Y" & YPOS+8.569*Y1+2.394*Y2
      Largo=8.569
    Case 49   'o
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.856*X1+4.303*X2 &" Y" & YPOS+2.856*Y1+4.303*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.909*X1+4.303*X2 &" Y" & YPOS+1.909*Y1+4.303*Y2
      Code "G01 X" & XPOS+0.961*X1+3.822*X2 &" Y" & YPOS+0.961*Y1+3.822*Y2
      Code "G01 X" & XPOS+0.481*X1+3.342*X2 &" Y" & YPOS+0.481*Y1+3.342*Y2
      Code "G01 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G01 X" & XPOS+1.447*X2 &" Y" & YPOS+1.447*Y2
      Code "G01 X" & XPOS+0.481*X1+0.486*X2 &" Y" & YPOS+0.481*Y1+0.486*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.376*X1+0.019*X2 &" Y" & YPOS+2.376*Y1+0.019*Y2
      Code "G01 X" & XPOS+3.337*X1+0.486*X2 &" Y" & YPOS+3.337*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.804*X1+0.966*X2 &" Y" & YPOS+3.804*Y1+0.966*Y2
      Code "G01 X" & XPOS+4.284*X1+1.914*X2 &" Y" & YPOS+4.284*Y1+1.914*Y2
      Code "G01 X" & XPOS+4.284*X1+2.875*X2 &" Y" & YPOS+4.284*Y1+2.875*Y2
      Code "G01 X" & XPOS+3.804*X1+3.822*X2 &" Y" & YPOS+3.804*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.856*X1+4.303*X2 &" Y" & YPOS+2.856*Y1+4.303*Y2
      Code "G01 X" & XPOS+2.376*X1+3.822*X2 &" Y" & YPOS+2.376*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.376*X1+2.875*X2 &" Y" & YPOS+2.376*Y1+2.875*Y2
      Code "G01 X" & XPOS+2.856*X1+1.914*X2 &" Y" & YPOS+2.856*Y1+1.914*Y2
      Code "G01 X" & XPOS+3.804*X1+1.447*X2 &" Y" & YPOS+3.804*Y1+1.447*Y2
      Code "G01 X" & XPOS+5.232*X1+1.447*X2 &" Y" & YPOS+5.232*Y1+1.447*Y2
      Code "G01 X" & XPOS+6.193*X1+1.914*X2 &" Y" & YPOS+6.193*Y1+1.914*Y2
      Code "G01 X" & XPOS+6.66*X1+2.394*X2 &" Y" & YPOS+6.66*Y1+2.394*Y2
      Largo=6.66
    Case 50   'p
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.011*X1+2.394*X2 &" Y" & YPOS+0.011*Y1+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.958*X1+3.822*X2 &" Y" & YPOS+0.958*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.439*X1+4.77*X2 &" Y" & YPOS+1.439*Y1+4.77*Y2
      Code "G01 X" & XPOS+0.958*X1+2.875*X2 &" Y" & YPOS+0.958*Y1+2.875*Y2
      Code "G01 X" & XPOS-1.898*X1-5.694*X2 &" Y" & YPOS-1.898*Y1-5.694*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.958*X1+2.875*X2 &" Y" & YPOS+0.958*Y1+2.875*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.439*X1+3.822*X2 &" Y" & YPOS+1.439*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.386*X1+4.303*X2 &" Y" & YPOS+2.386*Y1+4.303*Y2
      Code "G01 X" & XPOS+3.334*X1+4.303*X2 &" Y" & YPOS+3.334*Y1+4.303*Y2
      Code "G01 X" & XPOS+4.295*X1+3.822*X2 &" Y" & YPOS+4.295*Y1+3.822*Y2
      Code "G01 X" & XPOS+4.762*X1+2.875*X2 &" Y" & YPOS+4.762*Y1+2.875*Y2
      Code "G01 X" & XPOS+4.762*X1+1.914*X2 &" Y" & YPOS+4.762*Y1+1.914*Y2
      Code "G01 X" & XPOS+4.295*X1+0.966*X2 &" Y" & YPOS+4.295*Y1+0.966*Y2
      Code "G01 X" & XPOS+3.815*X1+0.486*X2 &" Y" & YPOS+3.815*Y1+0.486*Y2
      Code "G01 X" & XPOS+2.867*X1+0.019*X2 &" Y" & YPOS+2.867*Y1+0.019*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.958*X1+0.486*X2 &" Y" & YPOS+0.958*Y1+0.486*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.906*X1+0.019*X2 &" Y" & YPOS+1.906*Y1+0.019*Y2
      Code "G01 X" & XPOS+3.334*X1+0.019*X2 &" Y" & YPOS+3.334*Y1+0.019*Y2
      Code "G01 X" & XPOS+4.762*X1+0.486*X2 &" Y" & YPOS+4.762*Y1+0.486*Y2
      Code "G01 X" & XPOS+5.723*X1+0.966*X2 &" Y" & YPOS+5.723*Y1+0.966*Y2
      Code "G01 X" & XPOS+7.151*X1+2.394*X2 &" Y" & YPOS+7.151*Y1+2.394*Y2
      Largo=7.151
    Case 41   'q
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.274*X1+2.85*X2 &" Y" & YPOS+4.274*Y1+2.85*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.792*X1+3.815*X2 &" Y" & YPOS+3.792*Y1+3.815*Y2
      Code "G01 X" & XPOS+2.85*X1+4.274*X2 &" Y" & YPOS+2.85*Y1+4.274*Y2
      Code "G01 X" & XPOS+1.907*X1+4.274*X2 &" Y" & YPOS+1.907*Y1+4.274*Y2
      Code "G01 X" & XPOS+0.942*X1+3.815*X2 &" Y" & YPOS+0.942*Y1+3.815*Y2
      Code "G01 X" & XPOS+0.483*X1+3.332*X2 &" Y" & YPOS+0.483*Y1+3.332*Y2
      Code "G01 X" & XPOS+2.367*X2 &" Y" & YPOS+2.367*Y2
      Code "G01 X" & XPOS+1.425*X2 &" Y" & YPOS+1.425*Y2
      Code "G01 X" & XPOS+0.483*X1+0.483*X2 &" Y" & YPOS+0.483*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+2.367*X1 &" Y" & YPOS+2.367*Y1
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.757*X1+4.274*X2 &" Y" & YPOS+4.757*Y1+4.274*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.274*X1+2.85*X2 &" Y" & YPOS+4.274*Y1+2.85*Y2
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.907*X1-2.85*X2 &" Y" & YPOS+1.907*Y1-2.85*Y2
      Code "G01 X" & XPOS+1.425*X1-4.297*X2 &" Y" & YPOS+1.425*Y1-4.297*Y2
      Code "G01 X" & XPOS+1.425*X1-5.24*X2 &" Y" & YPOS+1.425*Y1-5.24*Y2
      Code "G01 X" & XPOS+1.907*X1-5.722*X2 &" Y" & YPOS+1.907*Y1-5.722*Y2
      Code "G01 X" & XPOS+2.85*X1-5.24*X2 &" Y" & YPOS+2.85*Y1-5.24*Y2
      Code "G01 X" & XPOS+3.332*X1-3.815*X2 &" Y" & YPOS+3.332*Y1-3.815*Y2
      Code "G01 X" & XPOS+3.332*X1-0.483*X2 &" Y" & YPOS+3.332*Y1-0.483*Y2
      Code "G01 X" & XPOS+4.274*X1 &" Y" & YPOS+4.274*Y1
      Code "G01 X" & XPOS+5.699*X1+0.942*X2 &" Y" & YPOS+5.699*Y1+0.942*Y2
      Code "G01 X" & XPOS+7.124*X1+2.367*X2 &" Y" & YPOS+7.124*Y1+2.367*Y2
      Largo=7.124
    Case 44   'r
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.428*X1+4.77*X2 &" Y" & YPOS+1.428*Y1+4.77*Y2
      Code "G01 X" & XPOS+1.428*X1+3.822*X2 &" Y" & YPOS+1.428*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.856*X1+3.822*X2 &" Y" & YPOS+2.856*Y1+3.822*Y2
      Code "G01 X" & XPOS+3.337*X1+3.342*X2 &" Y" & YPOS+3.337*Y1+3.342*Y2
      Code "G01 X" & XPOS+3.337*X1+2.394*X2 &" Y" & YPOS+3.337*Y1+2.394*Y2
      Code "G01 X" & XPOS+2.856*X1+0.966*X2 &" Y" & YPOS+2.856*Y1+0.966*Y2
      Code "G01 X" & XPOS+2.856*X1+0.486*X2 &" Y" & YPOS+2.856*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.337*X1+0.019*X2 &" Y" & YPOS+3.337*Y1+0.019*Y2
      Code "G01 X" & XPOS+3.804*X1+0.019*X2 &" Y" & YPOS+3.804*Y1+0.019*Y2
      Code "G01 X" & XPOS+4.751*X1+0.486*X2 &" Y" & YPOS+4.751*Y1+0.486*Y2
      Code "G01 X" & XPOS+5.232*X1+0.966*X2 &" Y" & YPOS+5.232*Y1+0.966*Y2
      Code "G01 X" & XPOS+6.179*X1+2.394*X2 &" Y" & YPOS+6.179*Y1+2.394*Y2
      Largo=6.179
    Case 52   's
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.428*X1+4.77*X2 &" Y" & YPOS+1.428*Y1+4.77*Y2
      Code "G01 X" & XPOS+1.428*X1+3.822*X2 &" Y" & YPOS+1.428*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.376*X1+2.394*X2 &" Y" & YPOS+2.376*Y1+2.394*Y2
      Code "G01 X" & XPOS+2.856*X1+1.447*X2 &" Y" & YPOS+2.856*Y1+1.447*Y2
      Code "G01 X" & XPOS+2.856*X1+0.486*X2 &" Y" & YPOS+2.856*Y1+0.486*Y2
      Code "G01 X" & XPOS+1.909*X1+0.019*X2 &" Y" & YPOS+1.909*Y1+0.019*Y2
      Code "G0 Z"& Corte
      Code "G000X" & XPOS+0.486*X2 &" Y" & YPOS+0.486*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+0.019*X2 &" Y" & YPOS+0.948*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.856*X1+0.019*X2 &" Y" & YPOS+2.856*Y1+0.019*Y2
      Code "G01 X" & XPOS+3.804*X1+0.486*X2 &" Y" & YPOS+3.804*Y1+0.486*Y2
      Code "G01 X" & XPOS+4.284*X1+0.966*X2 &" Y" & YPOS+4.284*Y1+0.966*Y2
      Code "G01 X" & XPOS+5.232*X1+2.394*X2 &" Y" & YPOS+5.232*Y1+2.394*Y2
      Largo=5.232
    Case 45   't
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.909*X1+5.731*X2 &" Y" & YPOS+1.909*Y1+5.731*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.337*X1+10.016*X2 &" Y" & YPOS+3.337*Y1+10.016*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.481*X1+1.447*X2 &" Y" & YPOS+0.481*Y1+1.447*Y2
      Code "G01 X" & XPOS+0.481*X1+0.486*X2 &" Y" & YPOS+0.481*Y1+0.486*Y2
      Code "G01 X" & XPOS+0.948*X1+0.019*X2 &" Y" & YPOS+0.948*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.909*X1+0.019*X2 &" Y" & YPOS+1.909*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.856*X1+0.486*X2 &" Y" & YPOS+2.856*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.337*X1+0.966*X2 &" Y" & YPOS+3.337*Y1+0.966*Y2
      Code "G01 X" & XPOS+4.284*X1+2.394*X2 &" Y" & YPOS+4.284*Y1+2.394*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.481*X1+6.198*X2 &" Y" & YPOS+0.481*Y1+6.198*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.804*X1+6.198*X2 &" Y" & YPOS+3.804*Y1+6.198*Y2
      Largo=4.284
    Case 47   'u
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+4.303*X2 &" Y" & YPOS+0.948*Y1+4.303*Y2
      Code "G01 X" & XPOS+1.447*X2 &" Y" & YPOS+1.447*Y2
      Code "G01 X" & XPOS+0.486*X2 &" Y" & YPOS+0.486*Y2
      Code "G01 X" & XPOS+0.467*X1+0.019*X2 &" Y" & YPOS+0.467*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.376*X1+0.486*X2 &" Y" & YPOS+2.376*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.323*X1+1.447*X2 &" Y" & YPOS+3.323*Y1+1.447*Y2
      Code "G01 X" & XPOS+4.284*X1+2.875*X2 &" Y" & YPOS+4.284*Y1+2.875*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.751*X1+4.303*X2 &" Y" & YPOS+4.751*Y1+4.303*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.804*X1+1.447*X2 &" Y" & YPOS+3.804*Y1+1.447*Y2
      Code "G01 X" & XPOS+3.804*X1+0.486*X2 &" Y" & YPOS+3.804*Y1+0.486*Y2
      Code "G01 X" & XPOS+4.284*X1+0.019*X2 &" Y" & YPOS+4.284*Y1+0.019*Y2
      Code "G01 X" & XPOS+4.751*X1+0.019*X2 &" Y" & YPOS+4.751*Y1+0.019*Y2
      Code "G01 X" & XPOS+5.712*X1+0.486*X2 &" Y" & YPOS+5.712*Y1+0.486*Y2
      Code "G01 X" & XPOS+6.179*X1+0.966*X2 &" Y" & YPOS+6.179*Y1+0.966*Y2
      Code "G01 X" & XPOS+7.127*X1+2.394*X2 &" Y" & YPOS+7.127*Y1+2.394*Y2
      Largo=7.127
    Case 64   'v
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+4.303*X2 &" Y" & YPOS+0.948*Y1+4.303*Y2
      Code "G01 X" & XPOS+0.467*X1+1.914*X2 &" Y" & YPOS+0.467*Y1+1.914*Y2
      Code "G01 X" & XPOS+0.467*X1+0.486*X2 &" Y" & YPOS+0.467*Y1+0.486*Y2
      Code "G01 X" & XPOS+0.948*X1+0.019*X2 &" Y" & YPOS+0.948*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.414*X1+0.019*X2 &" Y" & YPOS+1.414*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.843*X1+0.486*X2 &" Y" & YPOS+2.843*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.804*X1+1.447*X2 &" Y" & YPOS+3.804*Y1+1.447*Y2
      Code "G01 X" & XPOS+4.271*X1+2.875*X2 &" Y" & YPOS+4.271*Y1+2.875*Y2
      Code "G01 X" & XPOS+4.271*X1+4.303*X2 &" Y" & YPOS+4.271*Y1+4.303*Y2
      Code "G01 X" & XPOS+4.751*X1+2.394*X2 &" Y" & YPOS+4.751*Y1+2.394*Y2
      Code "G01 X" & XPOS+5.232*X1+1.914*X2 &" Y" & YPOS+5.232*Y1+1.914*Y2
      Code "G01 X" & XPOS+6.179*X1+1.914*X2 &" Y" & YPOS+6.179*Y1+1.914*Y2
      Code "G01 X" & XPOS+7.127*X1+2.394*X2 &" Y" & YPOS+7.127*Y1+2.394*Y2
      Largo=7.127
    Case 42   'w
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.425*X1+4.274*X2 &" Y" & YPOS+1.425*Y1+4.274*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.483*X1+3.332*X2 &" Y" & YPOS+0.483*Y1+3.332*Y2
      Code "G01 X" & XPOS+1.907*X2 &" Y" & YPOS+1.907*Y2
      Code "G01 X" & XPOS+0.942*X2 &" Y" & YPOS+0.942*Y2
      Code "G01 X" & XPOS+0.483*X1 &" Y" & YPOS+0.483*Y1
      Code "G01 X" & XPOS+1.425*X1 &" Y" & YPOS+1.425*Y1
      Code "G01 X" & XPOS+2.39*X1+0.483*X2 &" Y" & YPOS+2.39*Y1+0.483*Y2
      Code "G01 X" & XPOS+3.332*X1+1.425*X2 &" Y" & YPOS+3.332*Y1+1.425*Y2
      Code "G01 X" & XPOS+4.297*X1+4.274*X2 &" Y" & YPOS+4.297*Y1+4.274*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.332*X1+1.425*X2 &" Y" & YPOS+3.332*Y1+1.425*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.332*X1+0.483*X2 &" Y" & YPOS+3.332*Y1+0.483*Y2
      Code "G01 X" & XPOS+3.815*X1 &" Y" & YPOS+3.815*Y1
      Code "G01 X" & XPOS+4.757*X1 &" Y" & YPOS+4.757*Y1
      Code "G01 X" & XPOS+5.722*X1+0.483*X2 &" Y" & YPOS+5.722*Y1+0.483*Y2
      Code "G01 X" & XPOS+6.664*X1+1.425*X2 &" Y" & YPOS+6.664*Y1+1.425*Y2
      Code "G01 X" & XPOS+7.147*X1+2.85*X2 &" Y" & YPOS+7.147*Y1+2.85*Y2
      Code "G01 X" & XPOS+7.147*X1+4.274*X2 &" Y" & YPOS+7.147*Y1+4.274*Y2
      Code "G01 X" & XPOS+7.63*X1+2.367*X2 &" Y" & YPOS+7.63*Y1+2.367*Y2
      Code "G01 X" & XPOS+8.089*X1+1.907*X2 &" Y" & YPOS+8.089*Y1+1.907*Y2
      Code "G01 X" & XPOS+9.054*X1+1.907*X2 &" Y" & YPOS+9.054*Y1+1.907*Y2
      Code "G01 X" & XPOS+9.997*X1+2.367*X2 &" Y" & YPOS+9.997*Y1+2.367*Y2
      Largo=9.997
    Case 62   'x
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.895*X1+4.303*X2 &" Y" & YPOS+1.895*Y1+4.303*Y2
      Code "G01 X" & XPOS+2.856*X1+4.303*X2 &" Y" & YPOS+2.856*Y1+4.303*Y2
      Code "G01 X" & XPOS+3.323*X1+3.822*X2 &" Y" & YPOS+3.323*Y1+3.822*Y2
      Code "G01 X" & XPOS+3.323*X1+0.486*X2 &" Y" & YPOS+3.323*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.804*X1+0.019*X2 &" Y" & YPOS+3.804*Y1+0.019*Y2
      Code "G01 X" & XPOS+5.232*X1+0.019*X2 &" Y" & YPOS+5.232*Y1+0.019*Y2
      Code "G01 X" & XPOS+6.66*X1+0.966*X2 &" Y" & YPOS+6.66*Y1+0.966*Y2
      Code "G01 X" & XPOS+7.607*X1+2.394*X2 &" Y" & YPOS+7.607*Y1+2.394*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.179*X1+3.822*X2 &" Y" & YPOS+6.179*Y1+3.822*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.712*X1+4.303*X2 &" Y" & YPOS+5.712*Y1+4.303*Y2
      Code "G01 X" & XPOS+4.751*X1+4.303*X2 &" Y" & YPOS+4.751*Y1+4.303*Y2
      Code "G01 X" & XPOS+4.284*X1+3.822*X2 &" Y" & YPOS+4.284*Y1+3.822*Y2
      Code "G01 X" & XPOS+2.376*X1+0.486*X2 &" Y" & YPOS+2.376*Y1+0.486*Y2
      Code "G01 X" & XPOS+1.895*X1+0.019*X2 &" Y" & YPOS+1.895*Y1+0.019*Y2
      Code "G01 X" & XPOS+0.948*X1+0.019*X2 &" Y" & YPOS+0.948*Y1+0.019*Y2
      Code "G01 X" & XPOS+0.467*X1+0.486*X2 &" Y" & YPOS+0.467*Y1+0.486*Y2
      Largo=7.607
    Case 46   'y
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.961*X1+4.303*X2 &" Y" & YPOS+0.961*Y1+4.303*Y2
      Code "G01 X" & XPOS+1.447*X2 &" Y" & YPOS+1.447*Y2
      Code "G01 X" & XPOS+0.486*X2 &" Y" & YPOS+0.486*Y2
      Code "G01 X" & XPOS+0.481*X1+0.019*X2 &" Y" & YPOS+0.481*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.428*X1+0.019*X2 &" Y" & YPOS+1.428*Y1+0.019*Y2
      Code "G01 X" & XPOS+2.389*X1+0.486*X2 &" Y" & YPOS+2.389*Y1+0.486*Y2
      Code "G01 X" & XPOS+3.337*X1+1.447*X2 &" Y" & YPOS+3.337*Y1+1.447*Y2
      Code "G01 X" & XPOS+4.284*X1+2.875*X2 &" Y" & YPOS+4.284*Y1+2.875*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.765*X1+4.303*X2 &" Y" & YPOS+4.765*Y1+4.303*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.909*X1-4.266*X2 &" Y" & YPOS+1.909*Y1-4.266*Y2
      Code "G01 X" & XPOS+1.428*X1-5.227*X2 &" Y" & YPOS+1.428*Y1-5.227*Y2
      Code "G01 X" & XPOS+0.481*X1-5.694*X2 &" Y" & YPOS+0.481*Y1-5.694*Y2
      Code "G01 X" & XPOS-5.227*X2 &" Y" & YPOS-5.227*Y2
      Code "G01 X" & XPOS-4.266*X2 &" Y" & YPOS-4.266*Y2
      Code "G01 X" & XPOS+0.481*X1-2.837*X2 &" Y" & YPOS+0.481*Y1-2.837*Y2
      Code "G01 X" & XPOS+1.909*X1-1.409*X2 &" Y" & YPOS+1.909*Y1-1.409*Y2
      Code "G01 X" & XPOS+3.337*X1-0.462*X2 &" Y" & YPOS+3.337*Y1-0.462*Y2
      Code "G01 X" & XPOS+4.284*X1+0.019*X2 &" Y" & YPOS+4.284*Y1+0.019*Y2
      Code "G01 X" & XPOS+5.712*X1+0.966*X2 &" Y" & YPOS+5.712*Y1+0.966*Y2
      Code "G01 X" & XPOS+7.141*X1+2.394*X2 &" Y" & YPOS+7.141*Y1+2.394*Y2
      Largo=7.141
    Case 61   'z
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.394*X2 &" Y" & YPOS+2.394*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.948*X1+3.822*X2 &" Y" & YPOS+0.948*Y1+3.822*Y2
      Code "G01 X" & XPOS+1.909*X1+4.303*X2 &" Y" & YPOS+1.909*Y1+4.303*Y2
      Code "G01 X" & XPOS+2.856*X1+4.303*X2 &" Y" & YPOS+2.856*Y1+4.303*Y2
      Code "G01 X" & XPOS+3.804*X1+3.342*X2 &" Y" & YPOS+3.804*Y1+3.342*Y2
      Code "G01 X" & XPOS+3.804*X1+2.394*X2 &" Y" & YPOS+3.804*Y1+2.394*Y2
      Code "G01 X" & XPOS+3.337*X1+1.447*X2 &" Y" & YPOS+3.337*Y1+1.447*Y2
      Code "G01 X" & XPOS+2.376*X1+0.486*X2 &" Y" & YPOS+2.376*Y1+0.486*Y2
      Code "G01 X" & XPOS+0.948*X1+0.019*X2 &" Y" & YPOS+0.948*Y1+0.019*Y2
      Code "G01 X" & XPOS+1.909*X1-0.462*X2 &" Y" & YPOS+1.909*Y1-0.462*Y2
      Code "G01 X" & XPOS+2.376*X1-1.409*X2 &" Y" & YPOS+2.376*Y1-1.409*Y2
      Code "G01 X" & XPOS+2.376*X1-2.837*X2 &" Y" & YPOS+2.376*Y1-2.837*Y2
      Code "G01 X" & XPOS+1.909*X1-4.266*X2 &" Y" & YPOS+1.909*Y1-4.266*Y2
      Code "G01 X" & XPOS+1.428*X1-5.227*X2 &" Y" & YPOS+1.428*Y1-5.227*Y2
      Code "G01 X" & XPOS+0.481*X1-5.694*X2 &" Y" & YPOS+0.481*Y1-5.694*Y2
      Code "G01 X" & XPOS-5.227*X2 &" Y" & YPOS-5.227*Y2
      Code "G01 X" & XPOS-4.266*X2 &" Y" & YPOS-4.266*Y2
      Code "G01 X" & XPOS+0.481*X1-2.837*X2 &" Y" & YPOS+0.481*Y1-2.837*Y2
      Code "G01 X" & XPOS+1.909*X1-1.409*X2 &" Y" & YPOS+1.909*Y1-1.409*Y2
      Code "G01 X" & XPOS+3.337*X1-0.462*X2 &" Y" & YPOS+3.337*Y1-0.462*Y2
      Code "G01 X" & XPOS+5.232*X1+0.966*X2 &" Y" & YPOS+5.232*Y1+0.966*Y2
      Code "G01 X" & XPOS+6.66*X1+2.394*X2 &" Y" & YPOS+6.66*Y1+2.394*Y2
      Largo=6.66
    Case 38   '+
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.717*X1+8.572*X2 &" Y" & YPOS+6.717*Y1+8.572*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.35*X1 &" Y" & YPOS+4.35*Y1
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.5*X1+4.274*X2 &" Y" & YPOS+1.5*Y1+4.274*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+10.049*X1+4.274*X2 &" Y" & YPOS+10.049*Y1+4.274*Y2
      Largo=12.049
    Case 39   '-
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.5*X1+4.274*X2 &" Y" & YPOS+1.5*Y1+4.274*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+10.072*X1+4.274*X2 &" Y" & YPOS+10.072*Y1+4.274*Y2
      Largo=12.072
    Case 68   'coma
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.953*X1+0.465*X2 &" Y" & YPOS+0.953*Y1+0.465*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.465*X1 &" Y" & YPOS+0.465*Y1
      Code "G01 X" & XPOS+0.465*X2 &" Y" & YPOS+0.465*Y2
      Code "G01 X" & XPOS+0.465*X1+0.953*X2 &" Y" & YPOS+0.465*Y1+0.953*Y2
      Code "G01 X" & XPOS+0.953*X1+0.465*X2 &" Y" & YPOS+0.953*Y1+0.465*Y2
      Code "G01 X" & XPOS+0.953*X1 &" Y" & YPOS+0.953*Y1
      Code "G01 X" & XPOS+0.465*X1-0.953*X2 &" Y" & YPOS+0.465*Y1-0.953*Y2
      Code "G01 X" & XPOS-0.488*X1-1.906*X2 &" Y" & YPOS-0.488*Y1-1.906*Y2
      Largo=2.953
    Case 69   'Punto
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+0.465*X1+0.953*X2 &" Y" & YPOS+0.465*Y1+0.953*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+0.465*X2 &" Y" & YPOS+0.465*Y2
      Code "G01 X" & XPOS+0.465*X1 &" Y" & YPOS+0.465*Y1
      Code "G01 X" & XPOS+0.953*X1+0.465*X2 &" Y" & YPOS+0.953*Y1+0.465*Y2
      Code "G01 X" & XPOS+0.465*X1+0.953*X2 &" Y" & YPOS+0.465*Y1+0.953*Y2
      Code "G01 X" & XPOS+0.465*X1+0.953*X2 &" Y" & YPOS+0.465*Y1+0.953*Y2
      Largo=2.953
    Case 70   '?
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.483*X1+8.089*X2 &" Y" & YPOS+1.483*Y1+8.089*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.942*X1+7.607*X2 &" Y" & YPOS+1.942*Y1+7.607*Y2
      Code "G01 X" & XPOS+1.483*X1+7.147*X2 &" Y" & YPOS+1.483*Y1+7.147*Y2
      Code "G01 X" & XPOS+1*X1+7.607*X2 &" Y" & YPOS+1*Y1+7.607*Y2
      Code "G01 X" & XPOS+1*X1+8.089*X2 &" Y" & YPOS+1*Y1+8.089*Y2
      Code "G01 X" & XPOS+1.483*X1+9.054*X2 &" Y" & YPOS+1.483*Y1+9.054*Y2
      Code "G01 X" & XPOS+1.942*X1+9.514*X2 &" Y" & YPOS+1.942*Y1+9.514*Y2
      Code "G01 X" & XPOS+3.367*X1+9.997*X2 &" Y" & YPOS+3.367*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.815*X1+9.997*X2 &" Y" & YPOS+4.815*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.757*X1+9.514*X2 &" Y" & YPOS+5.757*Y1+9.514*Y2
      Code "G01 X" & XPOS+6.24*X1+8.572*X2 &" Y" & YPOS+6.24*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.24*X1+7.607*X2 &" Y" & YPOS+6.24*Y1+7.607*Y2
      Code "G01 X" & XPOS+5.757*X1+6.664*X2 &" Y" & YPOS+5.757*Y1+6.664*Y2
      Code "G01 X" & XPOS+5.274*X1+6.182*X2 &" Y" & YPOS+5.274*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.332*X1+5.699*X2 &" Y" & YPOS+4.332*Y1+5.699*Y2
      Code "G01 X" & XPOS+2.907*X1+5.24*X2 &" Y" & YPOS+2.907*Y1+5.24*Y2
      Code "G01 X" & XPOS+1.942*X1+4.274*X2 &" Y" & YPOS+1.942*Y1+4.274*Y2
      Code "G01 X" & XPOS+1.942*X1+3.815*X2 &" Y" & YPOS+1.942*Y1+3.815*Y2
      Code "G01 X" & XPOS+2.425*X1+3.332*X2 &" Y" & YPOS+2.425*Y1+3.332*Y2
      Code "G01 X" & XPOS+2.907*X1+3.332*X2 &" Y" & YPOS+2.907*Y1+3.332*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.483*X1+0.942*X2 &" Y" & YPOS+1.483*Y1+0.942*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1*X1+0.483*X2 &" Y" & YPOS+1*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.483*X1 &" Y" & YPOS+1.483*Y1
      Code "G01 X" & XPOS+1.942*X1+0.483*X2 &" Y" & YPOS+1.942*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.483*X1+0.942*X2 &" Y" & YPOS+1.483*Y1+0.942*Y2
      Code "G01 X" & XPOS+1.483*X1+0.942*X2 &" Y" & YPOS+1.483*Y1+0.942*Y2
      Largo=8.24
    Case 71   '¿
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.757*X1+1.907*X2 &" Y" & YPOS+5.757*Y1+1.907*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.274*X1+2.367*X2 &" Y" & YPOS+5.274*Y1+2.367*Y2
      Code "G01 X" & XPOS+5.757*X1+2.85*X2 &" Y" & YPOS+5.757*Y1+2.85*Y2
      Code "G01 X" & XPOS+6.24*X1+2.367*X2 &" Y" & YPOS+6.24*Y1+2.367*Y2
      Code "G01 X" & XPOS+6.24*X1+1.907*X2 &" Y" & YPOS+6.24*Y1+1.907*Y2
      Code "G01 X" & XPOS+5.757*X1+0.942*X2 &" Y" & YPOS+5.757*Y1+0.942*Y2
      Code "G01 X" & XPOS+5.274*X1+0.483*X2 &" Y" & YPOS+5.274*Y1+0.483*Y2
      Code "G01 X" & XPOS+3.85*X1 &" Y" & YPOS+3.85*Y1
      Code "G01 X" & XPOS+2.425*X1 &" Y" & YPOS+2.425*Y1
      Code "G01 X" & XPOS+1.46*X1+0.483*X2 &" Y" & YPOS+1.46*Y1+0.483*Y2
      Code "G01 X" & XPOS+1*X1+1.425*X2 &" Y" & YPOS+1*Y1+1.425*Y2
      Code "G01 X" & XPOS+1*X1+2.367*X2 &" Y" & YPOS+1*Y1+2.367*Y2
      Code "G01 X" & XPOS+1.46*X1+3.332*X2 &" Y" & YPOS+1.46*Y1+3.332*Y2
      Code "G01 X" & XPOS+1.942*X1+3.815*X2 &" Y" & YPOS+1.942*Y1+3.815*Y2
      Code "G01 X" & XPOS+2.907*X1+4.274*X2 &" Y" & YPOS+2.907*Y1+4.274*Y2
      Code "G01 X" & XPOS+4.332*X1+4.757*X2 &" Y" & YPOS+4.332*Y1+4.757*Y2
      Code "G01 X" & XPOS+5.274*X1+5.699*X2 &" Y" & YPOS+5.274*Y1+5.699*Y2
      Code "G01 X" & XPOS+5.274*X1+6.182*X2 &" Y" & YPOS+5.274*Y1+6.182*Y2
      Code "G01 X" & XPOS+4.792*X1+6.664*X2 &" Y" & YPOS+4.792*Y1+6.664*Y2
      Code "G01 X" & XPOS+4.332*X1+6.664*X2 &" Y" & YPOS+4.332*Y1+6.664*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.757*X1+9.054*X2 &" Y" & YPOS+5.757*Y1+9.054*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+6.24*X1+9.514*X2 &" Y" & YPOS+6.24*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.757*X1+9.997*X2 &" Y" & YPOS+5.757*Y1+9.997*Y2
      Code "G01 X" & XPOS+5.274*X1+9.514*X2 &" Y" & YPOS+5.274*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.757*X1+9.054*X2 &" Y" & YPOS+5.757*Y1+9.054*Y2
      Code "G01 X" & XPOS+5.757*X1+9.054*X2 &" Y" & YPOS+5.757*Y1+9.054*Y2
      Largo=8.24
    Case 72   '/
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+13.364*X1+11.904*X2 &" Y" & YPOS+13.364*Y1+11.904*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1*X1-3.332*X2 &" Y" & YPOS+1*Y1-3.332*Y2
      Largo=15.364
    Case 73   '\
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1*X1+11.904*X2 &" Y" & YPOS+1*Y1+11.904*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+6.722*X1-3.332*X2 &" Y" & YPOS+6.722*Y1-3.332*Y2
      Largo=8.722
    Case 74   '=
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.425*X1+5.699*X2 &" Y" & YPOS+2.425*Y1+5.699*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+10.997*X1+5.699*X2 &" Y" & YPOS+10.997*Y1+5.699*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1*X1+2.85*X2 &" Y" & YPOS+1*Y1+2.85*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+9.572*X1+2.85*X2 &" Y" & YPOS+9.572*Y1+2.85*Y2
      Largo=12.997
    Case 75   '_
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1*X1-0.965*X2 &" Y" & YPOS+1*Y1-0.965*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+10.514*X1-0.965*X2 &" Y" & YPOS+10.514*Y1-0.965*Y2
      Largo=12.514
    Case 76   ':
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.907*X1+6.664*X2 &" Y" & YPOS+2.907*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.425*X1+6.182*X2 &" Y" & YPOS+2.425*Y1+6.182*Y2
      Code "G01 X" & XPOS+2.907*X1+5.699*X2 &" Y" & YPOS+2.907*Y1+5.699*Y2
      Code "G01 X" & XPOS+3.39*X1+6.182*X2 &" Y" & YPOS+3.39*Y1+6.182*Y2
      Code "G01 X" & XPOS+2.907*X1+6.664*X2 &" Y" & YPOS+2.907*Y1+6.664*Y2
      Code "G01 X" & XPOS+2.907*X1+6.664*X2 &" Y" & YPOS+2.907*Y1+6.664*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.483*X1+0.942*X2 &" Y" & YPOS+1.483*Y1+0.942*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1*X1+0.483*X2 &" Y" & YPOS+1*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.483*X1 &" Y" & YPOS+1.483*Y1
      Code "G01 X" & XPOS+1.942*X1+0.483*X2 &" Y" & YPOS+1.942*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.483*X1+0.942*X2 &" Y" & YPOS+1.483*Y1+0.942*Y2
      Code "G01 X" & XPOS+1.483*X1+0.942*X2 &" Y" & YPOS+1.483*Y1+0.942*Y2
      Largo=5.39
    Case 77   ';
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.884*X1+6.664*X2 &" Y" & YPOS+2.884*Y1+6.664*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.425*X1+6.182*X2 &" Y" & YPOS+2.425*Y1+6.182*Y2
      Code "G01 X" & XPOS+2.884*X1+5.699*X2 &" Y" & YPOS+2.884*Y1+5.699*Y2
      Code "G01 X" & XPOS+3.367*X1+6.182*X2 &" Y" & YPOS+3.367*Y1+6.182*Y2
      Code "G01 X" & XPOS+2.884*X1+6.664*X2 &" Y" & YPOS+2.884*Y1+6.664*Y2
      Code "G01 X" & XPOS+2.884*X1+6.664*X2 &" Y" & YPOS+2.884*Y1+6.664*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.942*X1+0.483*X2 &" Y" & YPOS+1.942*Y1+0.483*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.46*X1 &" Y" & YPOS+1.46*Y1
      Code "G01 X" & XPOS+1*X1+0.483*X2 &" Y" & YPOS+1*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.46*X1+0.942*X2 &" Y" & YPOS+1.46*Y1+0.942*Y2
      Code "G01 X" & XPOS+1.942*X1+0.483*X2 &" Y" & YPOS+1.942*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.942*X1 &" Y" & YPOS+1.942*Y1
      Code "G01 X" & XPOS+1.46*X1-0.965*X2 &" Y" & YPOS+1.46*Y1-0.965*Y2
      Code "G01 X" & XPOS+0.517*X1-1.907*X2 &" Y" & YPOS+0.517*Y1-1.907*Y2
      Largo=5.367
    Case 78   '$
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.757*X1+11.904*X2 &" Y" & YPOS+5.757*Y1+11.904*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.965*X1-1.907*X2 &" Y" & YPOS+1.965*Y1-1.907*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.147*X1+11.904*X2 &" Y" & YPOS+8.147*Y1+11.904*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.332*X1-1.907*X2 &" Y" & YPOS+4.332*Y1-1.907*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+8.63*X1+8.089*X2 &" Y" & YPOS+8.63*Y1+8.089*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+8.147*X1+7.607*X2 &" Y" & YPOS+8.147*Y1+7.607*Y2
      Code "G01 X" & XPOS+8.63*X1+7.147*X2 &" Y" & YPOS+8.63*Y1+7.147*Y2
      Code "G01 X" & XPOS+9.089*X1+7.607*X2 &" Y" & YPOS+9.089*Y1+7.607*Y2
      Code "G01 X" & XPOS+9.089*X1+8.089*X2 &" Y" & YPOS+9.089*Y1+8.089*Y2
      Code "G01 X" & XPOS+8.63*X1+9.054*X2 &" Y" & YPOS+8.63*Y1+9.054*Y2
      Code "G01 X" & XPOS+8.147*X1+9.514*X2 &" Y" & YPOS+8.147*Y1+9.514*Y2
      Code "G01 X" & XPOS+6.722*X1+9.997*X2 &" Y" & YPOS+6.722*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.815*X1+9.997*X2 &" Y" & YPOS+4.815*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.39*X1+9.514*X2 &" Y" & YPOS+3.39*Y1+9.514*Y2
      Code "G01 X" & XPOS+2.448*X1+8.572*X2 &" Y" & YPOS+2.448*Y1+8.572*Y2
      Code "G01 X" & XPOS+2.448*X1+7.607*X2 &" Y" & YPOS+2.448*Y1+7.607*Y2
      Code "G01 X" & XPOS+2.907*X1+6.664*X2 &" Y" & YPOS+2.907*Y1+6.664*Y2
      Code "G01 X" & XPOS+3.39*X1+6.182*X2 &" Y" & YPOS+3.39*Y1+6.182*Y2
      Code "G01 X" & XPOS+6.722*X1+4.274*X2 &" Y" & YPOS+6.722*Y1+4.274*Y2
      Code "G01 X" & XPOS+7.205*X1+3.815*X2 &" Y" & YPOS+7.205*Y1+3.815*Y2
      Code "G01 X" & XPOS+7.664*X1+2.85*X2 &" Y" & YPOS+7.664*Y1+2.85*Y2
      Code "G01 X" & XPOS+7.664*X1+1.907*X2 &" Y" & YPOS+7.664*Y1+1.907*Y2
      Code "G01 X" & XPOS+7.205*X1+0.942*X2 &" Y" & YPOS+7.205*Y1+0.942*Y2
      Code "G01 X" & XPOS+6.722*X1+0.483*X2 &" Y" & YPOS+6.722*Y1+0.483*Y2
      Code "G01 X" & XPOS+5.297*X1 &" Y" & YPOS+5.297*Y1
      Code "G01 X" & XPOS+3.39*X1 &" Y" & YPOS+3.39*Y1
      Code "G01 X" & XPOS+1.965*X1+0.483*X2 &" Y" & YPOS+1.965*Y1+0.483*Y2
      Code "G01 X" & XPOS+1.483*X1+0.942*X2 &" Y" & YPOS+1.483*Y1+0.942*Y2
      Code "G01 X" & XPOS+1*X1+1.907*X2 &" Y" & YPOS+1*Y1+1.907*Y2
      Code "G01 X" & XPOS+1*X1+2.367*X2 &" Y" & YPOS+1*Y1+2.367*Y2
      Code "G01 X" & XPOS+1.483*X1+2.85*X2 &" Y" & YPOS+1.483*Y1+2.85*Y2
      Code "G01 X" & XPOS+1.965*X1+2.367*X2 &" Y" & YPOS+1.965*Y1+2.367*Y2
      Code "G01 X" & XPOS+1.483*X1+1.907*X2 &" Y" & YPOS+1.483*Y1+1.907*Y2
      Largo=11.089
    Case 79   '&
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+10.514*X1+6.182*X2 &" Y" & YPOS+10.514*Y1+6.182*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+10.031*X1+5.699*X2 &" Y" & YPOS+10.031*Y1+5.699*Y2
      Code "G01 X" & XPOS+10.514*X1+5.24*X2 &" Y" & YPOS+10.514*Y1+5.24*Y2
      Code "G01 X" & XPOS+10.997*X1+5.699*X2 &" Y" & YPOS+10.997*Y1+5.699*Y2
      Code "G01 X" & XPOS+10.997*X1+6.182*X2 &" Y" & YPOS+10.997*Y1+6.182*Y2
      Code "G01 X" & XPOS+10.514*X1+6.664*X2 &" Y" & YPOS+10.514*Y1+6.664*Y2
      Code "G01 X" & XPOS+10.031*X1+6.664*X2 &" Y" & YPOS+10.031*Y1+6.664*Y2
      Code "G01 X" & XPOS+9.089*X1+6.182*X2 &" Y" & YPOS+9.089*Y1+6.182*Y2
      Code "G01 X" & XPOS+8.124*X1+5.24*X2 &" Y" & YPOS+8.124*Y1+5.24*Y2
      Code "G01 X" & XPOS+5.757*X1+1.425*X2 &" Y" & YPOS+5.757*Y1+1.425*Y2
      Code "G01 X" & XPOS+4.815*X1+0.483*X2 &" Y" & YPOS+4.815*Y1+0.483*Y2
      Code "G01 X" & XPOS+3.85*X1 &" Y" & YPOS+3.85*Y1
      Code "G01 X" & XPOS+2.425*X1 &" Y" & YPOS+2.425*Y1
      Code "G01 X" & XPOS+1.483*X1+0.483*X2 &" Y" & YPOS+1.483*Y1+0.483*Y2
      Code "G01 X" & XPOS+1*X1+1.425*X2 &" Y" & YPOS+1*Y1+1.425*Y2
      Code "G01 X" & XPOS+1*X1+2.367*X2 &" Y" & YPOS+1*Y1+2.367*Y2
      Code "G01 X" & XPOS+1.483*X1+3.332*X2 &" Y" & YPOS+1.483*Y1+3.332*Y2
      Code "G01 X" & XPOS+1.942*X1+3.815*X2 &" Y" & YPOS+1.942*Y1+3.815*Y2
      Code "G01 X" & XPOS+4.815*X1+5.24*X2 &" Y" & YPOS+4.815*Y1+5.24*Y2
      Code "G01 X" & XPOS+5.757*X1+5.699*X2 &" Y" & YPOS+5.757*Y1+5.699*Y2
      Code "G01 X" & XPOS+6.699*X1+6.664*X2 &" Y" & YPOS+6.699*Y1+6.664*Y2
      Code "G01 X" & XPOS+7.182*X1+7.607*X2 &" Y" & YPOS+7.182*Y1+7.607*Y2
      Code "G01 X" & XPOS+7.182*X1+8.572*X2 &" Y" & YPOS+7.182*Y1+8.572*Y2
      Code "G01 X" & XPOS+6.699*X1+9.514*X2 &" Y" & YPOS+6.699*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.757*X1+9.997*X2 &" Y" & YPOS+5.757*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.815*X1+9.514*X2 &" Y" & YPOS+4.815*Y1+9.514*Y2
      Code "G01 X" & XPOS+4.332*X1+8.572*X2 &" Y" & YPOS+4.332*Y1+8.572*Y2
      Code "G01 X" & XPOS+4.332*X1+7.147*X2 &" Y" & YPOS+4.332*Y1+7.147*Y2
      Code "G01 X" & XPOS+4.815*X1+4.274*X2 &" Y" & YPOS+4.815*Y1+4.274*Y2
      Code "G01 X" & XPOS+5.274*X1+2.85*X2 &" Y" & YPOS+5.274*Y1+2.85*Y2
      Code "G01 X" & XPOS+6.24*X1+1.425*X2 &" Y" & YPOS+6.24*Y1+1.425*Y2
      Code "G01 X" & XPOS+7.182*X1+0.483*X2 &" Y" & YPOS+7.182*Y1+0.483*Y2
      Code "G01 X" & XPOS+8.124*X1 &" Y" & YPOS+8.124*Y1
      Code "G01 X" & XPOS+8.607*X1 &" Y" & YPOS+8.607*Y1
      Code "G01 X" & XPOS+9.572*X1+0.942*X2 &" Y" & YPOS+9.572*Y1+0.942*Y2
      Code "G01 X" & XPOS+9.572*X1+1.425*X2 &" Y" & YPOS+9.572*Y1+1.425*Y2
      Largo=12.997
    Case 80   '(
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.722*X1+11.904*X2 &" Y" & YPOS+6.722*Y1+11.904*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.815*X1+10.479*X2 &" Y" & YPOS+4.815*Y1+10.479*Y2
      Code "G01 X" & XPOS+3.39*X1+9.054*X2 &" Y" & YPOS+3.39*Y1+9.054*Y2
      Code "G01 X" & XPOS+2.425*X1+7.607*X2 &" Y" & YPOS+2.425*Y1+7.607*Y2
      Code "G01 X" & XPOS+1.483*X1+5.699*X2 &" Y" & YPOS+1.483*Y1+5.699*Y2
      Code "G01 X" & XPOS+1*X1+3.332*X2 &" Y" & YPOS+1*Y1+3.332*Y2
      Code "G01 X" & XPOS+1*X1+1.425*X2 &" Y" & YPOS+1*Y1+1.425*Y2
      Code "G01 X" & XPOS+1.483*X1-0.965*X2 &" Y" & YPOS+1.483*Y1-0.965*Y2
      Code "G01 X" & XPOS+1.965*X1-2.39*X2 &" Y" & YPOS+1.965*Y1-2.39*Y2
      Code "G01 X" & XPOS+2.425*X1-3.332*X2 &" Y" & YPOS+2.425*Y1-3.332*Y2
      Largo=8.722
    Case 81   ')
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.274*X1+11.904*X2 &" Y" & YPOS+5.274*Y1+11.904*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.757*X1+10.939*X2 &" Y" & YPOS+5.757*Y1+10.939*Y2
      Code "G01 X" & XPOS+6.217*X1+9.514*X2 &" Y" & YPOS+6.217*Y1+9.514*Y2
      Code "G01 X" & XPOS+6.699*X1+7.147*X2 &" Y" & YPOS+6.699*Y1+7.147*Y2
      Code "G01 X" & XPOS+6.699*X1+5.24*X2 &" Y" & YPOS+6.699*Y1+5.24*Y2
      Code "G01 X" & XPOS+6.217*X1+2.85*X2 &" Y" & YPOS+6.217*Y1+2.85*Y2
      Code "G01 X" & XPOS+5.274*X1+0.942*X2 &" Y" & YPOS+5.274*Y1+0.942*Y2
      Code "G01 X" & XPOS+4.332*X1-0.483*X2 &" Y" & YPOS+4.332*Y1-0.483*Y2
      Code "G01 X" & XPOS+2.884*X1-1.907*X2 &" Y" & YPOS+2.884*Y1-1.907*Y2
      Code "G01 X" & XPOS+1*X1-3.332*X2 &" Y" & YPOS+1*Y1-3.332*Y2
      Largo=8.699
    Case 82   '"
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.942*X1+11.421*X2 &" Y" & YPOS+1.942*Y1+11.421*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1.46*X1+10.939*X2 &" Y" & YPOS+1.46*Y1+10.939*Y2
      Code "G01 X" & XPOS+1*X1+11.421*X2 &" Y" & YPOS+1*Y1+11.421*Y2
      Code "G01 X" & XPOS+1.46*X1+11.904*X2 &" Y" & YPOS+1.46*Y1+11.904*Y2
      Code "G01 X" & XPOS+1.942*X1+11.421*X2 &" Y" & YPOS+1.942*Y1+11.421*Y2
      Code "G01 X" & XPOS+1.942*X1+10.939*X2 &" Y" & YPOS+1.942*Y1+10.939*Y2
      Code "G01 X" & XPOS+1.46*X1+9.997*X2 &" Y" & YPOS+1.46*Y1+9.997*Y2
      Code "G01 X" & XPOS+0.517*X1+9.054*X2 &" Y" & YPOS+0.517*Y1+9.054*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+4.792*X1+11.421*X2 &" Y" & YPOS+4.792*Y1+11.421*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.332*X1+10.939*X2 &" Y" & YPOS+4.332*Y1+10.939*Y2
      Code "G01 X" & XPOS+3.85*X1+11.421*X2 &" Y" & YPOS+3.85*Y1+11.421*Y2
      Code "G01 X" & XPOS+4.332*X1+11.904*X2 &" Y" & YPOS+4.332*Y1+11.904*Y2
      Code "G01 X" & XPOS+4.792*X1+11.421*X2 &" Y" & YPOS+4.792*Y1+11.421*Y2
      Code "G01 X" & XPOS+4.792*X1+10.939*X2 &" Y" & YPOS+4.792*Y1+10.939*Y2
      Code "G01 X" & XPOS+4.332*X1+9.997*X2 &" Y" & YPOS+4.332*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.367*X1+9.054*X2 &" Y" & YPOS+3.367*Y1+9.054*Y2
      Largo=6.792
    Case 83   '%
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+9.572*X1+9.997*X2 &" Y" & YPOS+9.572*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1*X1 &" Y" & YPOS+1*Y1
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.39*X1+9.997*X2 &" Y" & YPOS+3.39*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.332*X1+9.054*X2 &" Y" & YPOS+4.332*Y1+9.054*Y2
      Code "G01 X" & XPOS+4.332*X1+8.089*X2 &" Y" & YPOS+4.332*Y1+8.089*Y2
      Code "G01 X" & XPOS+3.85*X1+7.147*X2 &" Y" & YPOS+3.85*Y1+7.147*Y2
      Code "G01 X" & XPOS+2.907*X1+6.664*X2 &" Y" & YPOS+2.907*Y1+6.664*Y2
      Code "G01 X" & XPOS+1.965*X1+6.664*X2 &" Y" & YPOS+1.965*Y1+6.664*Y2
      Code "G01 X" & XPOS+1*X1+7.607*X2 &" Y" & YPOS+1*Y1+7.607*Y2
      Code "G01 X" & XPOS+1*X1+8.572*X2 &" Y" & YPOS+1*Y1+8.572*Y2
      Code "G01 X" & XPOS+1.483*X1+9.514*X2 &" Y" & YPOS+1.483*Y1+9.514*Y2
      Code "G01 X" & XPOS+2.425*X1+9.997*X2 &" Y" & YPOS+2.425*Y1+9.997*Y2
      Code "G01 X" & XPOS+3.39*X1+9.997*X2 &" Y" & YPOS+3.39*Y1+9.997*Y2
      Code "G01 X" & XPOS+4.332*X1+9.514*X2 &" Y" & YPOS+4.332*Y1+9.514*Y2
      Code "G01 X" & XPOS+5.757*X1+9.054*X2 &" Y" & YPOS+5.757*Y1+9.054*Y2
      Code "G01 X" & XPOS+7.182*X1+9.054*X2 &" Y" & YPOS+7.182*Y1+9.054*Y2
      Code "G01 X" & XPOS+8.607*X1+9.514*X2 &" Y" & YPOS+8.607*Y1+9.514*Y2
      Code "G01 X" & XPOS+9.572*X1+9.997*X2 &" Y" & YPOS+9.572*Y1+9.997*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+7.664*X1+3.332*X2 &" Y" & YPOS+7.664*Y1+3.332*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+6.722*X1+2.85*X2 &" Y" & YPOS+6.722*Y1+2.85*Y2
      Code "G01 X" & XPOS+6.24*X1+1.907*X2 &" Y" & YPOS+6.24*Y1+1.907*Y2
      Code "G01 X" & XPOS+6.24*X1+0.942*X2 &" Y" & YPOS+6.24*Y1+0.942*Y2
      Code "G01 X" & XPOS+7.182*X1 &" Y" & YPOS+7.182*Y1
      Code "G01 X" & XPOS+8.147*X1 &" Y" & YPOS+8.147*Y1
      Code "G01 X" & XPOS+9.089*X1+0.483*X2 &" Y" & YPOS+9.089*Y1+0.483*Y2
      Code "G01 X" & XPOS+9.572*X1+1.425*X2 &" Y" & YPOS+9.572*Y1+1.425*Y2
      Code "G01 X" & XPOS+9.572*X1+2.367*X2 &" Y" & YPOS+9.572*Y1+2.367*Y2
      Code "G01 X" & XPOS+8.607*X1+3.332*X2 &" Y" & YPOS+8.607*Y1+3.332*Y2
      Code "G01 X" & XPOS+7.664*X1+3.332*X2 &" Y" & YPOS+7.664*Y1+3.332*Y2
      Code "G01 X" & XPOS+7.664*X1+3.332*X2 &" Y" & YPOS+7.664*Y1+3.332*Y2
      Largo=11.572
    Case 84   '*
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.39*X1+9.997*X2 &" Y" & YPOS+3.39*Y1+9.997*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+3.39*X1+4.274*X2 &" Y" & YPOS+3.39*Y1+4.274*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1*X1+8.572*X2 &" Y" & YPOS+1*Y1+8.572*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+5.757*X1+5.699*X2 &" Y" & YPOS+5.757*Y1+5.699*Y2
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+5.757*X1+8.572*X2 &" Y" & YPOS+5.757*Y1+8.572*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+1*X1+5.699*X2 &" Y" & YPOS+1*Y1+5.699*Y2
      Largo=7.757
    Case 85   '°
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+2.907*X1+9.054*X2 &" Y" & YPOS+2.907*Y1+9.054*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+2.632*X1+9.721*X2 &" Y" & YPOS+2.632*Y1+9.721*Y2
      Code "G01 X" & XPOS+1.942*X1+9.997*X2 &" Y" & YPOS+1.942*Y1+9.997*Y2
      Code "G01 X" & XPOS+1.276*X1+9.721*X2 &" Y" & YPOS+1.276*Y1+9.721*Y2
      Code "G01 X" & XPOS+1*X1+9.054*X2 &" Y" & YPOS+1*Y1+9.054*Y2
      Code "G01 X" & XPOS+1.276*X1+8.365*X2 &" Y" & YPOS+1.276*Y1+8.365*Y2
      Code "G01 X" & XPOS+1.942*X1+8.089*X2 &" Y" & YPOS+1.942*Y1+8.089*Y2
      Code "G01 X" & XPOS+2.632*X1+8.365*X2 &" Y" & YPOS+2.632*Y1+8.365*Y2
      Code "G01 X" & XPOS+2.907*X1+9.054*X2 &" Y" & YPOS+2.907*Y1+9.054*Y2
      Code "G01 X" & XPOS+2.907*X1+9.054*X2 &" Y" & YPOS+2.907*Y1+9.054*Y2
      Largo=4.907
      Largo=7
    Case 86   'Diam
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+6.958*X1+8.571*X2 &" Y" & YPOS+6.958*Y1+8.571*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS &" Y" & YPOS
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.889*X1+2.382*X2 &" Y" & YPOS+3.889*Y1+2.382*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.841*X1+2.856*X2 &" Y" & YPOS+4.841*Y1+2.856*Y2
      Code "G01 X" & XPOS+5.318*X1+3.334*X2 &" Y" & YPOS+5.318*Y1+3.334*Y2
      Code "G01 X" & XPOS+5.793*X1+4.286*X2 &" Y" & YPOS+5.793*Y1+4.286*Y2
      Code "G01 X" & XPOS+5.793*X1+5.238*X2 &" Y" & YPOS+5.793*Y1+5.238*Y2
      Code "G01 X" & XPOS+5.318*X1+6.19*X2 &" Y" & YPOS+5.318*Y1+6.19*Y2
      Code "G01 X" & XPOS+4.366*X1+6.667*X2 &" Y" & YPOS+4.366*Y1+6.667*Y2
      Code "G01 X" & XPOS+3.414*X1+6.667*X2 &" Y" & YPOS+3.414*Y1+6.667*Y2
      Code "G01 X" & XPOS+2.462*X1+6.19*X2 &" Y" & YPOS+2.462*Y1+6.19*Y2
      Code "G01 X" & XPOS+1.987*X1+5.715*X2 &" Y" & YPOS+1.987*Y1+5.715*Y2
      Code "G01 X" & XPOS+1.51*X1+4.763*X2 &" Y" & YPOS+1.51*Y1+4.763*Y2
      Code "G01 X" & XPOS+1.51*X1+3.808*X2 &" Y" & YPOS+1.51*Y1+3.808*Y2
      Code "G01 X" & XPOS+1.987*X1+2.856*X2 &" Y" & YPOS+1.987*Y1+2.856*Y2
      Code "G01 X" & XPOS+2.939*X1+2.382*X2 &" Y" & YPOS+2.939*Y1+2.382*Y2
      Code "G01 X" & XPOS+3.889*X1+2.382*X2 &" Y" & YPOS+3.889*Y1+2.382*Y2
      LARGO=6.958
    Case 87   '>
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+9.04*X1+8.571*X2 &" Y" & YPOS+9.04*Y1+8.571*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+4.286*X2 &" Y" & YPOS+4.286*Y2
      Code "G01 X" & XPOS+7.613*X1 &" Y" & YPOS+7.613*Y1
      LARGO=9.04
    Case 88   '<
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+1.901*X1+8.571*X2 &" Y" & YPOS+1.901*Y1+8.571*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS+8.562*X1+4.286*X2 &" Y" & YPOS+8.562*Y1+4.286*Y2
      Code "G01 X" & XPOS &" Y" & YPOS
      LARGO=8.562
    Case 89   '|
      Code "G0 Z"& Rapid_dis
      Code "G00 X" & XPOS+3.805*X1+11.905*X2 &" Y" & YPOS+3.805*Y1+11.905*Y2
      Code "G0 Z"& Corte
      Code "G01 X" & XPOS-3.334*X2 &" Y" & YPOS-3.334*Y2
      LARGO=3.805


  End Select
'=== Actaliza DRO'S ===
  XPOS = XPOS + Largo * X1 
  YPOS = YPOS + Largo * Y1 
  Code "G00 Z" & Rapid_dis

Next
Call SetUserDRO(1072, XPOS)
Call SetUserDRO(1073, YPOS)
Code "G00 X" & XPOS & " Y" & YPOS
Code"M30"

CloseTeachFile()
call LoadStandardLayout()
call LoadTeachFile()