M755.m1s

'Macro for Write Engraving Screen
'******  Lithograph  ******
'****** German Bravo 2004  *****
'******   Revision 2005    *****
'
'(N°Lineas,X1,X2,,,,Xn,Largo)
'(N°Lineas,Y1,Y2,,,,Yn,Largo)
'(N°Lineas,I1,I2,,,,In,Largo)
'(N°Lineas,J1,J2,,,,Jn,Largo)
'(N°Lineas,G1,G2,,,,Gn,Largo)
'
Option Explicit
'=== Declaraciones ===
Dim XPOS,YPOS,Top_Mat,Depth,Rapid_dis,Feed,Porcentaje,Height,ToolNum,RPM
Dim X1,X2,Y1,Y2,escala,corte,Largo,Num,Codigo,Total,GG,GM,IJ

Dim MX_AA,MY_AA,MI_AA,MJ_AA,MG_AA,MX_BB,MY_BB,MI_BB,MJ_BB,MG_BB,MX_CC,MY_CC,MI_CC,MJ_CC,MG_CC,MX_DD,MY_DD,MI_DD,MJ_DD,MG_DD
Dim MX_EE,MY_EE,MI_EE,MJ_EE,MG_EE,MX_FF,MY_FF,MI_FF,MJ_FF,MG_FF,MX_GG,MY_GG,MI_GG,MJ_GG,MG_GG,MX_HH,MY_HH,MI_HH,MJ_HH,MG_HH
Dim MX_II,MY_II,MI_II,MJ_II,MG_II,MX_JJ,MY_JJ,MI_JJ,MJ_JJ,MG_JJ,MX_KK,MY_KK,MI_KK,MJ_KK,MG_KK,MX_LL,MY_LL,MI_LL,MJ_LL,MG_LL
Dim MX_MM,MY_MM,MI_MM,MJ_MM,MG_MM,MX_NN,MY_NN,MI_NN,MJ_NN,MG_NN,MX_ENNE,MY_ENNE,MI_ENNE,MJ_ENNE,MG_ENNE,MX_OO,MY_OO,MI_OO
Dim MJ_OO,MG_OO,MX_PP,MY_PP,MI_PP,MJ_PP,MG_PP,MX_QQ,MY_QQ,MI_QQ,MJ_QQ,MG_QQ,MX_RR,MY_RR,MI_RR,MJ_RR,MG_RR,MX_SS,MY_SS,MI_SS
Dim MJ_SS,MG_SS,MX_TT,MY_TT,MI_TT,MJ_TT,MG_TT,MX_UU,MY_UU,MI_UU,MJ_UU,MG_UU,MX_VV,MY_VV,MI_VV,MJ_VV,MG_VV,MX_WW,MY_WW,MI_WW
Dim MJ_WW,MG_WW,MX_XX,MY_XX,MI_XX,MJ_XX,MG_XX,MX_YY,MY_YY,MI_YY,MJ_YY,MG_YY,MX_ZZ,MY_ZZ,MI_ZZ,MJ_ZZ,MG_ZZ,MX_Peso,MY_Peso,MI_Peso
Dim MJ_Peso,MG_Peso,MX_Porcent,MY_Porcent,MI_Porcent,MJ_Porcent,MG_Porcent,MX_Amberstand,MY_Amberstand,MI_Amberstand
Dim MJ_Amberstand,MG_Amberstand,MX_AbreParent,MY_AbreParent,MI_AbreParent,MJ_AbreParent,MG_AbreParent,MX_CierraParent
Dim MY_CierraParent,MI_CierraParent,MJ_CierraParent,MG_CierraParent,MX_Bajo,MY_Bajo,MI_Bajo,MJ_Bajo,MG_Bajo,MX_mas,MY_mas
Dim MI_mas,MJ_mas,MG_mas,MX_DosPuntos,MY_DosPuntos,MI_DosPuntos,MJ_DosPuntos,MG_DosPuntos,MX_Comillas,MY_Comillas
Dim MI_Comillas,MJ_Comillas,MG_Comillas,MX_IntCierra,MY_IntCierra,MI_IntCierra,MJ_IntCierra,MG_IntCierra,MX_IntAbre
Dim MY_IntAbre,MI_IntAbre,MJ_IntAbre,MG_IntAbre,MX_coma,MY_coma,MI_coma,MJ_coma,MG_coma,MX_Punto,MY_Punto,MI_Punto,MJ_Punto
Dim MG_Punto,MX_PuntoComa,MY_PuntoComa,MI_PuntoComa,MJ_PuntoComa,MG_PuntoComa,MX_Slash,MY_Slash,MI_Slash,MJ_Slash,MG_Slash
Dim MX_BackSlash,MY_BackSlash,MI_BackSlash,MJ_BackSlash,MG_BackSlash,MX_Migual,MY_Migual,MI_Migual,MJ_Migual,MG_Migual
Dim MX_menos,MY_menos,MI_menos,MJ_menos,MG_menos,MX_1,MY_1,MI_1,MJ_1,MG_1,MX_2,MY_2,MI_2,MJ_2,MG_2,MX_3,MY_3,MI_3,MJ_3,MG_3
Dim MX_4,MY_4,MI_4,MJ_4,MG_4,MX_5,MY_5,MI_5,MJ_5,MG_5,MX_6,MY_6,MI_6,MJ_6,MG_6,MX_7,MY_7,MI_7,MJ_7,MG_7,MX_8,MY_8,MI_8,MJ_8
Dim MG_8,MX_9,MY_9,MI_9,MJ_9,MG_9,MX_0,MY_0,MI_0,MJ_0,MG_0,MX_Asterisco,MY_Asterisco,MI_Asterisco,MJ_Asterisco,MG_Asterisco
Dim MX_Grado,MY_Grado,MI_Grado,MJ_Grado,MG_Grado,MX_espacio,MY_espacio,MI_espacio,MJ_espacio,MG_espacio,MX_Diam,MY_Diam
Dim MI_Diam,MJ_Diam,MG_Diam,MX_Mayor,MY_Mayor,MI_Mayor,MJ_Mayor,MG_Mayor,MX_Menor,MY_Menor,MI_Menor,MJ_Menor,MG_Menor
Dim MX_Vertical,MY_Vertical,MI_Vertical,MJ_Vertical,MG_Vertical

Dim LetraX, LetraY, LetraI, LetraJ, LetraG, Lineas, GC, G6789, I, J, XX, YY, II, JJ, GX, GY, GI, GJ, GGX, GGY, GGI, GGJ

'=== Coordenada de Letras ===
MX_1 = Array(10,+3.25,+3.219,"",+2.388,+2.417,"",+0.464,+0.04,+3.198,+3.25,+3.25)
MY_1 = Array(10,+9.511,+3.441,+0.004,"",+3.444,+7.921,+5.955,+6.461,+9.511,"",+3.25)
MI_1 = Array(10,"",+89.988,"","",+37.657,"","","",-3156.061,"",+3.25)
MJ_1 = Array(10,"",6.035,"","",1.43,"","","",3276.852,"",+3.25)
MG_1 = Array(10,"A","D","B","B","C","B","B","B","D","B",+3.25)
MX_2 = Array(20,-0.045,+6.053,"",+1.762,"",+3.507,+5.142,+5.483,+5.087,+3.957,+1.168,+0.978,+2.356,+4.112,+4.769,+4.622,+3.657,+2.486,-0.071,-0.045,+6.053)
MY_2 = Array(20,+0.075,-0.011,+0.734,+0.705,+0.782,+2.184,+4.177,+5.025,+7.5,+8.543,+9.526,+8.799,+8.509,+7.458,+6.071,+4.99,+3.292,+2.115,+0.16,+0.075,+6.053)
MI_2 = Array(20,"",-3.392,"","","",-7.344,-2.213,+2.522,+2.695,+1.614,+0.364,"",+0.375,+1.132,+2.545,+1.542,-0.207,-10.703,-13.892,"",+6.053)
MJ_2 = Array(20,"",-453.938,"","","",13.905,8.545,5.724,5.847,4.871,2.798,"",2.509,4.473,5.866,5.958,6.612,16.411,20.88,"",+6.053)
MG_2 = Array(20,"A","C","B","B","B","D","D","D","D","D","D","B","C","C","C","C","C","C","C","B",+6.053)
MX_3 = Array(31,+0.048,-0.003,+2.83,+3.701,+3.83,+3.119,+2.144,+0.942,"",+1.519,+2.064,+3.521,+3.708,+3.711,+3.193,+2.019,+0.614,+0.737,+2.933,+3.468,+4.178,+4.55,+4.357,+3,+2.803,"",+4.193,+4.815,+4.494,+2.435,+0.048,+4.815)
MY_3 = Array(31,+0.004,+0.662,+1.461,+2.312,+3.576,+4.348,+4.726,+4.872,+5.273,+5.318,+5.46,+6.578,+7.076,+7.366,+8.291,+8.892,+9.151,+9.855,+9.305,+9,+8.41,+7.218,+6.534,+5.308,+5.219,+5.167,+4.541,+2.872,+2.098,+0.549,+0.004,+4.815)
MI_3 = Array(31,"","",-0.077,+1.521,+2.484,+2.313,+1.503,+0.705,"",+0.976,+1.384,+1.243,+2.218,+2.658,+2.4,+1.189,-0.242,"",+0.161,+1.559,+2.1,+2.851,+3.088,+1.791,"","",+2.182,+3.059,+2.911,+0.636,+0.028,+4.815)
MJ_3 = Array(31,"","",6.349,3.672,3.075,2.892,1.625,-2.098,"",8.549,6.952,8.038,7.353,7.232,7.239,5.823,0.557,"",2.891,6.281,6.631,7.342,7.261,8.011,"","",1.933,3.168,3.209,5.082,5.586,+4.815)
MG_3 = Array(31,"A","B","D","D","D","D","D","D","B","D","D","D","D","D","D","D","D","B","C","C","C","C","C","C","B","B","C","C","C","C","C",+4.815)
MX_4 = Array(18,+0.034,+0.002,+5.501,+5.578,"",+6.954,+6.928,+5.578,+5.603,+4.818,+4.834,+0.034,+1.184,+4.834,"",+4.805,"",+1.184,+6.954)
MY_4 = Array(18,+2.323,+2.402,+9.683,"",+2.956,+2.982,+2.291,+2.323,+0.061,"",+2.323,"",+2.982,"",+7.915,+7.889,+7.915,+2.982,+6.954)
MI_4 = Array(18,"","",+775.767,"","","","","",+56.555,"","","","","","","","",-153.986,+6.954)
MJ_4 = Array(18,"","",-577.84,"","","","","",1.746,"","","","","","","","",120.677,+6.954)
MG_4 = Array(18,"A","B","C","B","B","B","B","B","D","B","B","B","A","B","B","B","B","C",+6.954)
MX_5 = Array(18,+0.18,-0.026,+2.869,+3.555,+3.747,+3.108,+1.776,+0.237,+0.803,+4.862,+4.83,+1.356,+1.012,+3.219,+4.281,+4.49,+2.9,+0.18,+4.862)
MY_5 = Array(18,+0.004,+0.693,+2.16,+3.047,+4.543,+5.452,+6.057,+6.314,+9.511,+9.626,+8.853,"",+6.908,+6.268,+5.39,+3.347,+1.31,+0.004,+4.862)
MI_5 = Array(18,"","",-1.362,+0.709,+1.617,+2.103,+0.834,-0.563,"","","","","",+0.212,+2.08,+2.306,+0.319,-1.529,+4.862)
MJ_5 = Array(18,"","",6.922,4.536,4.057,4.066,2.216,-3.238,"","","","","",0.029,3.808,4.156,4.964,7.045,+4.862)
MG_5 = Array(18,"A","B","D","D","D","D","D","D","B","B","B","B","B","C","C","C","C","C",+4.862)
MX_6 = Array(26,+1.05,+0.053,+0.024,+0.571,+3.89,+4.353,+1.641,+1.504,+3.675,+5.198,+5.586,+2.834,+1.05,+1.45,+0.883,+0.855,"",+1.109,+1.21,+1.511,+3.446,+4.399,+4.736,+3.99,+2.61,+1.45,+5.586)
MY_6 = Array(26,+0.559,+2.761,+3.102,+5.646,+9.774,+9.127,+6.124,+5.815,+5.522,+4.447,+2.699,-0.027,+0.559,+1.232,+2.739,+3.196,+3.53,+4.889,+5.156,"",+4.822,+4.077,+2.338,+1.108,+0.641,+1.232,+5.586)
MI_6 = Array(26,"",+2.869,-1.52,+6.434,+9.094,"",+8.906,"",+1.804,+2.766,+3.124,+2.433,+2.721,"",+3.511,-0.461,"",+7.594,+2.522,"",+1.649,+2.574,+2.397,+2.324,+2.813,+2.707,+5.586)
MJ_6 = Array(26,"",2.71,2.801,3.055,2.191,"",2.288,"",-0.169,2.619,3.069,3.13,2.635,"",2.867,2.884,"",2.972,4.508,"",0.189,2.723,2.788,2.959,2.312,2.264,+5.586)
MG_6 = Array(26,"A","C","D","C","C","B","D","B","C","C","C","C","C","A","C","D","B","C","C","B","C","C","C","C","C","C",+5.586)
MX_7 = Array(8,+1.322,+4.751,+0.004,+0.03,+5.722,+5.749,+2.076,+1.322,+5.749)
MY_7 = Array(8,+0.206,+8.533,"",+9.335,+9.249,+9.238,-0.164,+0.206,+5.749)
MI_7 = Array(8,"",-512.121,"","",+4.998,"",+580.73,"",+5.749)
MJ_7 = Array(8,"",216.479,"","",149.931,"",-220.798,"",+5.749)
MG_7 = Array(8,"A","D","B","B","D","B","D","B",+5.749)
MX_8 = Array(41,+0.34,+2.061,+4.225,+5.683,+5.735,+4.136,+5.623,+4.462,+3.072,+1.889,+0.814,+0.213,+0.23,+0.623,+1.054,+1.702,+0.569,+0.103,+0.07,+0.34,+1.34,+2.196,+2.82,+4.035,+4.631,+4.876,+4.15,+3.154,+2.832,+1.191,+0.9,+0.912,+1.34,+2.296,+1.094,+1.19,+2.832,+3.424,+4.852,+4.056,+2.296,+5.735)
MY_8 = Array(41,+1.366,+0.07,+0.29,+2.019,+3.238,+4.966,+6.75,+9.295,+9.634,+9.432,+8.68,+7.183,+6.843,+5.77,+5.3,+4.907,+3.934,+2.75,+2.486,+1.366,+1.276,+0.744,+0.619,+0.923,+1.461,+1.966,+4.285,+4.618,+4.628,+3.659,+2.789,+2.344,+1.276,+5.335,+6.714,+7.849,+8.981,+8.923,+7.129,+5.59,+5.335,+5.735)
MI_8 = Array(41,"",+2.564,+2.812,+3.131,+3.609,+3.466,+3.056,+3.466,+3.026,+2.878,+2.774,+2.454,"",+2.403,+2.241,+3.957,+2.901,+2.637,-0.554,+2.683,"",+2.735,+3.16,+2.815,+3.027,+2.57,+2.843,+3.04,+2.871,+2.812,+3.256,+5.522,+2.76,"",+2.853,+2.837,+2.83,+2.858,+3.084,+3.073,+2.878,+5.735)
MJ_8 = Array(41,"",2.528,3.43,2.692,2.719,2.742,7.378,7.303,6.429,7.211,7.024,7.152,"",7.031,6.82,9.358,2.364,2.437,2.699,2.525,"",2.565,3.933,3.218,2.637,2.777,2.602,2.622,0.489,2.787,2.486,2.691,2.465,"",7.034,7.138,7.227,6.193,7.187,7.074,7.522,+5.735)
MG_8 = Array(41,"A","D","D","D","D","D","D","D","D","D","D","D","B","D","D","D","D","D","C","D","A","D","D","D","D","D","D","D","D","D","D","D","D","A","C","C","C","C","C","C","C",+5.735)
MX_9 = Array(27,+1.328,+2.409,+3.818,+4.159,+3.516,+2.898,+1.41,+0.068,+2.177,+3.395,+5.478,+5.581,+4.162,+2.049,+1.793,+1.328,+1.678,+3.016,+4.38,+4.484,+4.613,+4.427,+3.695,+1.686,+1.15,+0.828,+1.678,+5.581)
MY_9 = Array(27,+0.417,+1.376,+3.186,+3.836,+3.778,+3.814,+4.268,+5.916,+9.504,+9.558,+7.613,+6.897,+2.405,-0.02,-0.208,+0.417,+4.968,+4.472,+4.454,+4.72,+7.36,+7.867,+8.731,+8.512,+7.896,+6.889,+4.968,+5.581)
MI_9 = Array(27,"",-2.928,-4.779,-3.429,+4.37,+3.588,+3.433,+2.575,+3.075,+2.894,+2.945,+3.038,-2.521,-4.131,"","","",+3.279,+3.789,+3.183,-0.536,-2.168,+2.677,+2.846,+3.532,+3.582,+3.203,+5.581)
MJ_9 = Array(27,"",6.296,8.426,7.396,-2.084,10.416,8.231,6.587,6.562,7.093,6.988,6.896,6.988,7.494,"","","",7.237,11.169,5.071,6.289,5.163,7.126,7.187,6.368,6.562,6.791,+5.581)
MG_9 = Array(27,"A","D","D","D","D","C","C","C","C","C","C","C","C","C","B","B","A","D","D","D","D","D","D","D","D","D","D",+5.581)
MX_0 = Array(22,+2.163,+0.048,+0.02,+0.385,+4.147,+5.786,+8.26,+8.31,+6.699,+2.163,+1.445,+4.147,+4.632,+5.104,+7.175,+7.472,+7.331,+5.794,+4.147,+1.445,+0.855,+1.445,+8.31)
MY_0 = Array(22,+0.469,+3.845,+4.354,+6.175,+8.768,+8.466,+5.186,+4.508,+0.963,+0.469,+2.203,+0.663,+0.676,+0.803,+2.849,+4.397,+5.472,+7.646,+8.08,+6.49,+4.346,+2.203,+8.31)
MI_0 = Array(22,"",+4.104,+4.748,+4.748,+4.345,+4.297,+4.318,+3.603,+3.603,+4.064,"",+4.215,+4.319,+2.321,+3.987,+3.289,+3.289,+3.969,+4.173,+4.169,+5.043,+5.043,+8.31)
MJ_0 = Array(22,"",4.036,4.354,4.354,4.455,4.983,4.785,4.508,4.508,4.086,"",3.923,3.293,10.179,4.005,4.397,4.397,4.726,4.836,4.953,4.346,4.346,+8.31)
MG_0 = Array(22,"A","C","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","D","D","D",+8.31)
MX_AA = Array(14,-0.055,+0.699,+2.284,+7.142,+9.027,+9.76,+4.717,+4.691,-0.055,+2.59,+6.808,+5.219,+4.689,+2.59,+9.76)
MY_AA = Array(14,+0.405,-0.008,+3.383,+3.538,+0.004,+0.456,+9.923,"",+0.405,+4.001,+4.165,+7.387,+8.435,+4.001,+9.76)
MI_AA = Array(14,"","",+62.946,"","","",+298.835,"",-826.837,"","",+66.349,"",+1799.274,+9.76)
MJ_AA = Array(14,"","",-27.036,"","","",160.511,"",418.631,"","",35.534,"",-844.127,+9.76)
MG_AA = Array(14,"A","B","C","B","B","B","C","B","C","A","B","C","B","D",+9.76)
MX_BB = Array(35,+0.077,0,+2.297,+3.59,+4.377,+4.433,+3.932,+2.663,"",+4.44,+4.841,+4.84,+4.421,+4.102,+2.478,0,+0.802,"",+1.157,+2.125,+3.529,+3.787,+3.954,+3.76,+2.747,+0.802,"","",+2.264,+2.92,+3.609,+3.608,+3.489,+2.609,+0.802,+4.841)
MY_BB = Array(35,+4.654,+9.307,+9.098,+8.619,+7.685,+7.243,+6.003,+5.082,+5.056,+4.112,+2.979,+2.924,+1.805,+1.429,+0.399,0,+0.659,+4.639,"",+4.538,+3.892,+3.577,+2.907,+2.188,+1.219,+0.659,+5.183,+8.706,+8.459,+8.191,+7.024,+6.974,+6.552,+5.612,+5.183,+4.841)
MI_BB = Array(35,-140.902,-140.902,+0.25,+1.484,+2.795,+2.649,+2.649,+1.074,"",+2.336,+3.039,+3.039,+2.943,-0.934,+1.146,+0.231,"","","",+1.171,+1.639,+2.658,+2.528,+2.528,+1.584,+0.345,"","",+0.764,+1.602,+2.277,+2.277,+1.757,+1.678,+0.808,+4.841)
MJ_BB = Array(35,4.654,4.654,-0.634,4.908,7.151,7.243,7.243,8.604,"",2.296,2.979,2.979,2.997,6.018,4.296,6.456,"","","",0.083,1.633,2.918,2.907,2.907,3.449,5.896,"","",4.021,5.911,7.024,7.024,7.269,7.365,9.184,+4.841)
MG_BB = Array(35,"D","D","C","C","C","C","C","C","B","C","C","C","C","C","C","C","A","B","B","C","C","C","C","C","C","C","A","B","C","C","C","C","C","C","C",+4.841)
MX_CC = Array(17,+2.774,+0.144,-0.009,+0.017,+1.43,+5.009,+6.549,+6.697,+3.341,+0.994,+0.913,+2.548,+6.556,+7.205,+7.308,+5.784,+2.774,+7.308)
MY_CC = Array(17,+0.427,+3.02,+3.927,+4.308,+7.132,+9.25,+9.645,+8.866,+7.739,+4.749,+4.048,+1.344,+0.729,+0.825,+0.093,-0.005,+0.427,+7.308)
MI_CC = Array(17,"",+4.162,+2.752,+2.752,+4.92,+7.439,+9.501,"",+7.705,+5.736,+3.964,+3.964,+5.513,"","",+6.041,+5.374,+7.308)
MJ_CC = Array(17,"",4.464,3.927,3.927,3.621,1.061,-5.054,"",0.31,3.443,4.048,4.048,7.297,"","",7.829,7.842,+7.308)
MG_CC = Array(17,"A","C","C","C","C","C","C","B","D","D","D","D","D","B","B","C","C",+7.308)
MX_DD = Array(22,+0.033,0,+4.906,+6.498,+7.622,+7.904,+7.904,+6.405,+3.41,+2.251,0,+0.859,+1.488,+2.386,+5.8,+7.023,+7.04,+6.695,+6.288,+3.752,+0.859,"",+7.904)
MY_DD = Array(22,+4.654,+9.307,+8.811,+8.103,+6.923,+5.779,+5.758,+2.389,+0.636,+0.296,0,+0.745,+0.809,+0.997,+2.8,+5.042,+5.371,+6.801,+7.295,+8.354,+8.605,+0.745,+7.904)
MI_DD = Array(22,-327.025,-327.025,+0.633,+3.42,+4.635,+5.445,+5.445,+3.381,+0.743,+0.744,-0.14,"",+0.822,-4.512,+0.898,+2.859,+3.903,+3.903,+5.18,+2.943,+0.963,"",+7.904)
MJ_DD = Array(22,4.654,4.654,-8.923,3.322,5.204,5.779,5.779,5.752,8.633,7.572,9.765,"",4.209,31.666,7.949,5.858,5.371,5.371,5.968,2.851,-6.994,"",+7.904)
MG_DD = Array(22,"D","D","C","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","D","B",+7.904)
MX_EE = Array(17,+0.067,+0.102,+0.067,+4.035,+4.061,+2.698,+0.926,"",+1.279,+1.399,+3.649,+3.662,+0.926,"",+4.229,+4.254,+0.067,+4.254)
MY_EE = Array(17,+0.096,+4.697,+9.299,+9.554,+8.794,+8.781,+8.704,+5.029,+5.022,+5.001,+5.106,+4.375,+4.428,+0.734,+0.728,-0.039,+0.096,+4.254)
MI_EE = Array(17,"",-298.972,-298.972,-1.885,"",+2.989,-0.938,"",+1.044,"",-15.235,"",-36.311,"","","","",+4.254)
MJ_EE = Array(17,"",4.697,4.697,70.664,"",49.757,72.439,"",2.15,"",383.478,"",-1979.357,"","","","",+4.254)
MG_EE = Array(17,"A","D","D","D","B","C","C","B","C","B","D","B","D","B","B","B","B",+4.254)
MX_FF = Array(15,+0.859,"",+1.818,+3.756,+3.731,+2.803,+0.859,"",+3.994,+3.943,+2.56,+0.862,0,+0.035,0,+3.994)
MY_FF = Array(15,"",+4.267,+4.246,+4.273,+4.997,+4.945,+4.868,+8.649,+8.696,+9.45,+9.336,+9.273,+9.211,+4.605,0,+3.994)
MI_FF = Array(15,"","","",+4.373,"","",+4.071,"",+1.166,"",+2.176,+2.293,-0.518,-299.54,-299.54,+3.994)
MJ_FF = Array(15,"","","",-106.517,"","",-51.684,"",91.191,"",22.373,-6.532,22.341,4.605,4.605,+3.994)
MG_FF = Array(15,"B","B","B","C","B","B","D","B","D","B","C","D","C","C","C",+3.994)
MX_GG = Array(22,+1.335,+3.934,+7.653,+7.634,+7.611,+7.638,+6.784,"",+6.842,+5.451,+2.454,+1.013,+0.944,+1.35,+2.963,+6.706,+6.506,+3.462,+0.511,+0.093,+0.047,+1.335,+7.653)
MY_GG = Array(22,+1.137,+0.1,+0.482,+1.801,+3.012,+4.326,"",+3.609,+0.946,+0.724,+1.373,+3.261,+3.932,+5.523,+7.333,+8.962,+9.737,+8.49,+5.595,+4.325,+3.771,+1.137,+7.653)
MI_GG = Array(22,"",+4.575,+4.784,"",+39.861,+39.861,"","",-76.217,+4.488,+5.02,+3.901,+4.271,+4.271,+6.27,+8.368,"",+10.232,+6.651,+3.705,+3.383,+3.383,+7.653)
MJ_GG = Array(22,"",5.48,10.127,"",3.012,3.012,"","",0.491,11.211,5.974,3.972,3.932,3.932,2.76,0.03,"",-3.698,2.29,3.838,3.771,3.771,+7.653)
MG_GG = Array(22,"A","D","D","B","C","C","B","B","C","C","C","C","C","C","C","C","B","D","D","D","D","D",+7.653)
MX_HH = Array(15,+0.868,+0.862,+7.076,+6.997,+7.024,+7.905,+7.849,+7.931,+7.019,+7.076,+0.862,+0.89,-0.026,+0.048,0,+7.931)
MY_HH = Array(15,"",+4.296,+4.582,+1.684,0,"",+4.175,+9.221,"",+5.212,+4.954,+9.221,"",+4.111,0,+7.931)
MI_HH = Array(15,"","","",+60.143,+60.143,"",+162.793,+162.793,"","","","","",-177.391,-177.391,+7.931)
MJ_HH = Array(15,"","","",1.684,1.684,"",4.175,4.175,"","","","","",4.111,4.111,+7.931)
MG_HH = Array(15,"B","B","B","D","D","B","C","C","B","B","B","B","B","C","C",+7.931)
MX_II = Array(11,-0.002,+0.029,-0.004,0,+0.859,+0.829,+0.859,+0.826,+0.859,"",0,+0.859)
MY_II = Array(11,+0.65,+2.968,+7.557,+9.221,"",+8.22,+7.218,+5.255,+3.291,0,"",+0.859)
MI_II = Array(11,+86.447,+86.447,+319.201,+319.201,"",+17.542,+17.542,+58.448,+58.448,"","",+0.859)
MJ_II = Array(11,0.65,0.65,7.557,7.557,"",8.22,8.22,5.255,5.255,"","",+0.859)
MG_II = Array(11,"C","C","C","C","B","D","D","D","D","B","B",+0.859)
MX_JJ = Array(16,+0.44,+0.061,+1.47,+2.037,+2.033,+2.094,+2.026,+2.037,"",+2.943,+2.867,+2.891,+2.892,+2.641,+1.674,+0.44,+2.943)
MY_JJ = Array(16,-0.05,+0.631,+1.84,+3.704,+4.167,+5.967,+7.796,+8.538,+10.023,"",+6.946,+5.215,+5.059,+2.772,+0.819,-0.05,+2.943)
MI_JJ = Array(16,"","",-1.009,-1.461,+28.477,+28.477,+26.451,+26.451,"","",+65.831,+65.831,-7.619,-7.619,-1.944,-0.976,+2.943)
MJ_JJ = Array(16,"","",3.306,3.749,4.167,4.167,7.796,7.796,"","",6.946,6.946,5.059,5.059,3.826,3.268,+2.943)
MG_JJ = Array(16,"A","B","D","D","C","C","C","C","B","B","D","D","C","C","C","C",+2.943)
MX_KK = Array(19,+0.888,+0.856,+0.859,+0.829,+0.859,+0.856,+0.888,"",0,+0.058,0,+0.945,+5.834,+6.405,+2.896,+1.953,+6.013,+5.502,+0.945,+6.405)
MY_KK = Array(19,"",+1.996,+2.614,+3.952,+5.291,+5.594,+6.502,+9.508,"",+4.754,0,+4.98,+0.092,+0.656,+4.088,+5.021,+8.661,+9.245,+4.98,+6.405)
MI_KK = Array(19,"",+63.743,+63.743,+31.093,+31.093,+13.658,+13.658,"","",-193.814,-193.814,"",+117.5,"",-232.858,"","","","",+6.405)
MJ_KK = Array(19,"",1.996,1.996,3.952,3.952,5.594,5.594,"","",4.754,4.754,"",116.657,"",-240.462,"","","","",+6.405)
MG_KK = Array(19,"B","C","C","C","C","C","C","B","B","C","C","A","D","B","D","B","B","B","B",+6.405)
MX_LL = Array(9,+4.162,"",+0.859,+0.849,+0.916,+0.026,+0.087,+0.06,0,+4.162)
MY_LL = Array(9,-0.143,+0.659,"",+3.062,+9.221,"",+5.304,+2.666,0,+4.162)
MI_LL = Array(9,+57.998,"","",+281.715,+281.715,"",-124.983,-124.983,+115.874,+4.162)
MJ_LL = Array(9,1625.19,"","",3.062,3.062,"",5.304,5.304,-1.253,+4.162)
MG_LL = Array(9,"D","B","B","C","C","B","C","C","D",+4.162)
MX_MM = Array(19,-0.244,+0.508,+2.891,+2.847,+2.887,+4.427,+5.88,+5.95,+9.351,+11.974,+12.755,+9.52,+9.487,+7.704,+6.801,+6.014,+2.747,+2.73,-0.244,+12.755)
MY_MM = Array(19,+0.191,-0.093,+7.732,+7.703,+7.733,+4.37,+1.265,"",+7.652,-0.094,+0.273,+9.322,"",+5.94,+4.227,+2.735,+9.723,+9.72,+0.191,+12.755)
MI_MM = Array(19,"","","","","",+113.573,+52.002,"","",+192.007,"",+278.187,"",-8501.996,"","","","",-405.646,+12.755)
MJ_MM = Array(19,"","","","","",56.409,24.726,"","",65.184,"",100.28,"",4494.89,"","","","",131.949,+12.755)
MG_MM = Array(19,"A","B","B","B","B","D","D","B","B","D","B","C","B","C","B","B","B","B","C",+12.755)
MX_NN = Array(18,+0.005,+0.864,+1.035,+1.061,+7.227,+8.312,+8.338,+8.481,+8.726,+7.908,+7.823,+7.737,+7.74,+7.708,+7.697,+0.493,+0.434,+0.005,+8.726)
MY_NN = Array(18,+0.079,+0.053,+8.1,"",+1.088,-0.155,-0.153,+4.308,+9.342,"",+7.566,+3.649,+3.167,+1.597,+1.594,+9.842,"",+0.079,+8.726)
MI_NN = Array(18,"","","","",+164.781,-1733.355,"",-295.649,-133.75,"","",-130.96,-31.219,-31.219,"",-273.192,"","",+8.726)
MJ_NN = Array(18,"","","","",145.828,-1520.588,"",11.837,13.76,"","",8.651,3.167,3.167,"",-236.459,"","",+8.726)
MG_NN = Array(18,"A","B","B","B","D","C","B","D","D","B","B","C","C","C","B","D","B","B",+8.726)
MX_ENNE = Array(37,+0.43,+0.489,+7.694,+7.736,+7.732,+7.818,+7.904,+8.722,+8.477,+8.334,+8.31,+1.662,+1.056,+1.031,+0.859,0,+3.061,+2.63,+3.202,+3.839,+4.251,+4.74,+5.19,+5.537,+6.067,+6.315,+6.799,+6.315,+5.943,+5.537,+5.222,+4.752,+4.245,+3.865,+3.565,+3.162,+3.061,+8.722)
MY_ENNE = Array(37,+9.751,"",+1.515,+3.087,+3.57,+7.487,+9.262,"",+4.229,-0.232,-0.233,+7.278,+8.021,"",-0.026,0,+10.015,+10.305,+11.036,+11.28,+11.201,+10.984,+10.772,+10.707,+10.942,+11.309,+10.984,+10.408,+10.147,+10.049,+10.114,+10.322,+10.543,+10.621,+10.536,+10.157,+10.015,+8.722)
MI_ENNE = Array(37,"","",-272.343,-21.376,-21.376,-130.965,"","",-135.178,-371.449,"",-7916.459,"","","","","","",+4.644,+3.845,+3.804,+3.184,"",+5.59,+5.533,+4.98,"",-1.453,+5.352,+5.253,+5.553,+7.259,"",+3.833,+3.879,+4.4,"",+8.722)
MJ_ENNE = Array(37,"","",-236.183,3.087,3.087,8.571,"","",13.763,14.19,"",-7006.723,"","","","","","",9.318,10.31,9.99,8.138,"",11.958,11.433,11.945,"",17.423,11.384,12.111,10.919,15.337,"",9.508,10.001,9.246,"",+8.722)
MG_ENNE = Array(37,"B","B","C","D","D","D","B","B","C","C","B","D","B","B","B","B","A","B","C","C","C","C","B","D","D","D","B","C","C","C","C","C","B","D","D","D","B",+8.722)
MX_OO = Array(22,+2.134,+0.019,-0.008,+0.357,+4.119,+5.757,+8.232,+8.281,+6.67,+2.134,+1.417,+4.119,+4.603,+5.075,+7.146,+7.443,+7.302,+5.766,+4.119,+1.417,+0.827,+1.417,+8.281)
MY_OO = Array(22,+0.469,+3.845,+4.354,+6.175,+8.768,+8.466,+5.186,+4.508,+0.963,+0.469,+2.203,+0.663,+0.676,+0.803,+2.849,+4.397,+5.472,+7.646,+8.08,+6.49,+4.346,+2.203,+8.281)
MI_OO = Array(22,"",+4.075,+4.719,+4.719,+4.316,+4.268,+4.29,+3.575,+3.575,+4.036,"",+4.186,+4.291,+2.293,+3.958,+3.26,+3.26,+3.941,+4.145,+4.14,+5.014,+5.014,+8.281)
MJ_OO = Array(22,"",4.036,4.354,4.354,4.455,4.983,4.785,4.508,4.508,4.086,"",3.923,3.293,10.179,4.005,4.397,4.397,4.726,4.836,4.953,4.346,4.346,+8.281)
MG_OO = Array(22,"A","C","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","D","D","D",+8.281)
MX_PP = Array(23,+0.009,+0.061,+0.026,+3.038,+4.282,+4.984,+4.983,+4.128,+2.199,+0.83,+0.888,0,+0.83,+2.751,+3.896,+4.122,+4.084,+3.974,+2.741,+2.155,+1.171,+0.83,"",+4.984)
MY_PP = Array(23,+1.027,+5.508,+9.221,+8.829,+8.138,+6.575,+6.524,+4.543,+3.304,+2.909,0,"",+3.57,+4.274,+5.452,+6.388,+6.783,+7.106,+8.173,+8.373,+8.534,"",+3.57,+4.984)
MI_PP = Array(23,"",-194.956,-194.956,+0.389,+2.095,+2.89,+2.89,+2.272,+0.375,-0.208,"","","",-0.103,+1.283,+2.075,+2.075,+1.684,+2.09,-0.076,+0.755,"","",+4.984)
MJ_PP = Array(23,"",5.508,5.508,0.243,5.666,6.575,6.575,6.519,8.262,9.078,"","","",9.088,6.846,6.388,6.388,6.148,6.174,0.883,2.902,"","",+4.984)
MG_PP = Array(23,"B","D","D","C","C","C","C","C","C","C","B","B","A","D","D","D","D","D","D","D","D","B","B",+4.984)
MX_QQ = Array(36,+1.325,+3.463,+4.094,+4.325,+7.214,+8.157,+9.585,+9.728,+6.157,+6.157,+7.499,+9.45,+9.41,+7.561,+4.93,+0.526,+0.034,+0.067,+1.325,+1.736,+0.894,+0.899,+1.115,+2.52,+3.016,+4.952,+5.029,+7.824,+8.608,+8.627,+8.625,+8.395,+5.597,+4.933,+2.426,+1.736,+9.728)
MY_QQ = Array(36,+1.009,-0.045,-0.155,"",-0.552,-0.719,-0.899,-0.109,+0.152,+0.203,+0.903,+5.157,+5.821,+8.811,+9.496,+6.572,+4.497,+3.805,+1.009,+1.805,+4.468,+4.684,+5.857,+8.075,+8.429,+8.866,"",+7.561,+5.351,+4.692,+4.492,+3.294,+0.62,+0.53,+1.109,+1.805,+9.728)
MI_QQ = Array(36,"",+4.097,+2.188,"",+0.803,+10.118,+6.851,"","","",+5.14,+3.837,+3.837,+5.433,+5.045,+4.963,+5.752,+7.095,+4.474,"",+5.53,+5.53,+6.366,+5.093,+4.333,+4.847,"",+5.075,+4.507,-2.952,-2.952,+5.261,+4.538,+4.983,+4.439,+4.786,+9.728)
MJ_QQ = Array(36,"",3.934,-9.286,"",-36.423,13.108,-16.85,"","","",3.79,5.157,5.157,5.427,4.546,4.668,4.238,4.484,4.108,"",4.468,4.468,4.285,4.891,6.06,4.828,"",5.32,5.14,4.692,4.692,4.518,4.529,2.658,4.108,4.14,+9.728)
MG_QQ = Array(36,"A","D","C","B","C","D","C","B","B","B","D","D","D","D","D","D","D","D","D","A","C","C","C","C","C","C","B","C","C","C","C","C","C","C","C","C",+9.728)
MX_RR = Array(23,+0.047,-0.026,"",+3.374,+4.289,+5.024,+5.024,+5.025,+4.266,+3.153,+5.406,+6.292,+5.667,+2.094,+3.495,+4.136,+3.829,+3.242,+0.805,+0.808,+0.776,+0.862,0,+6.292)
MY_RR = Array(23,+3.124,+7.006,+9.221,+8.835,+8.422,+7.078,+7.035,+6.955,+5.263,+4.359,+1.459,+0.298,-0.251,+4.425,+5.419,+7.022,+7.717,+8.126,+8.591,+7.945,+5.968,0,"",+6.292)
MI_RR = Array(23,-103.977,-103.977,"",+0.375,+2.574,+3.428,+3.428,+2.76,+2.76,-1.303,+62.627,"","","",+0.471,+1.729,+3.14,+2.367,+0.924,-60.164,-60.164,-308.129,"",+6.292)
MJ_RR = Array(23,3.124,3.124,"",-2.395,5.839,7.078,7.078,6.955,6.955,10.981,48.23,"","","",8.199,7.055,6.998,6.24,2.605,7.945,7.945,-1.464,"",+6.292)
MG_RR = Array(23,"D","D","B","C","C","C","C","C","C","C","D","B","B","B","D","D","D","D","D","C","C","C","B",+6.292)
MX_SS = Array(27,+0.659,+0.451,+2.373,+3.026,+3.404,+3.359,+2.881,+2.466,+1.456,+0.477,+0.187,+0.084,+0.603,+3.536,+3.744,+1.534,+1.015,+0.915,+1.418,+1.87,+3.562,+4.151,+4.294,+4.273,+3.79,+2.261,+0.659,+4.294)
MY_SS = Array(27,-0.039,+0.634,+1.443,+2.008,+2.976,+3.33,+4.028,+4.331,+4.911,+5.616,+6.033,+6.552,+7.879,+9.669,+8.944,+7.88,+7.182,+6.713,+5.838,+5.533,+4.555,+3.894,+3.204,+2.936,+1.839,+0.595,-0.039,+4.294)
MI_SS = Array(27,"","",-0.883,+0.535,+1.973,+1.973,+1.811,+0.92,-8.177,+3.362,+1.5,+1.487,+2.457,+4.806,"",+4.505,+2.894,+2.074,+2.117,+3.951,-5.901,+2.584,+2.554,+2.554,+1.966,+0.011,-1.36,+4.294)
MJ_SS = Array(27,"","",6.492,4.227,2.976,2.976,2.782,1.773,-13.033,8.588,6.637,6.561,6.389,4.29,"",4.538,6.328,6.709,6.822,9.106,-9.859,3.089,3.204,3.204,3.297,4.924,7.395,+4.294)
MG_SS = Array(27,"A","B","D","D","D","D","D","D","D","C","C","C","C","C","B","D","D","D","D","D","C","C","C","C","C","C","C",+4.294)
MX_TT = Array(15,+3.729,+3.817,+3.815,+1.267,+0.005,"",+2.039,+8.382,"",+6.484,+4.573,+4.617,+4.613,+4.674,+3.729,+8.382)
MY_TT = Array(15,-0.011,+7.322,+8.478,+8.466,+8.437,+9.182,+9.122,+9.175,+8.437,+8.466,+8.495,+2.018,+1.618,-0.011,"",+8.382)
MI_TT = Array(15,"",-301.354,-301.354,+1.592,+0.273,"",-12.153,+4.684,"","","",+505.698,+26.419,+26.419,"",+8.382)
MJ_TT = Array(15,"",7.322,7.322,201.551,24.465,"",-437.615,72.36,"","","",8.649,1.618,1.618,"",+8.382)
MG_TT = Array(15,"A","D","D","C","C","B","C","D","B","B","B","D","D","D","B",+8.382)
MX_UU = Array(29,+0.716,+3.435,+7.204,+7.706,+7.734,+7.786,+7.843,+7.789,+6.943,+6.959,+7.045,+6.991,+6.865,+6.714,+5.088,+3.391,+2.304,+1.182,+0.959,+0.885,+0.888,+0.839,+0.916,+0.057,+0.029,+0.057,+0.057,+0.115,+0.716,+7.843)
MY_UU = Array(29,+1.905,+0.032,+2.054,+3.744,+4.095,+4.72,+7.185,+9.573,"",+8.752,+6.59,+4.874,+3.776,+2.93,+0.94,+0.76,+1.163,+2.868,+4.154,+5.033,+5.2,+7.046,+9.368,"",+7.75,+7.153,+6.96,+4.2,+1.905,+7.843)
MI_UU = Array(29,"",+3.673,+3.922,+2.076,+5.586,+1.862,-45.304,-45.304,"","",-20.197,-20.197,-1.073,-0.727,+4.002,+3.918,+3.649,+4.436,+7.067,+6.186,+6.186,+35.568,+35.568,"","",-26.14,+66.27,+66.27,+6.249,+7.843)
MJ_UU = Array(29,"",3.287,3.648,4.495,4.095,4.896,7.185,7.185,"","",6.59,6.59,5.241,4.695,3.487,3.87,3.12,3.788,4.552,5.033,5.033,7.046,7.046,"","",6.196,6.96,6.96,4.581,+7.843)
MG_UU = Array(29,"A","D","D","D","D","D","D","D","B","B","C","C","C","C","C","C","C","C","C","C","C","C","C","B","B","C","D","D","D",+7.843)
MX_VV = Array(12,+3.282,+4.334,+4.346,+9.179,+8.457,+6.887,+5.508,+4.434,+0.734,-0.047,+2.194,+3.282,+9.179)
MY_VV = Array(12,+2.202,-0.072,-0.065,+9.401,+9.816,+6.591,+3.759,+1.553,+9.813,+9.395,+4.549,+2.202,+9.179)
MI_VV = Array(12,"","","",+189.742,"",+5990.838,"","",+231.976,"",+1530.128,"",+9.179)
MJ_VV = Array(12,"","","",-88.755,"",-2904.927,"","",108.425,"",714.243,"",+9.179)
MG_VV = Array(12,"A","B","B","C","B","D","B","B","C","B","D","B",+9.179)
MX_WW = Array(21,+2.962,-0.145,+0.646,+3.148,+3.173,+3.835,+6.341,+6.365,+9.369,+9.395,+12.225,+12.999,+10.669,+10.519,+10.043,+9.437,+9.411,+6.305,+4.576,+2.988,+2.962,+12.999)
MY_WW = Array(21,-0.129,+9.396,+9.701,+1.589,"",+3.009,+7.867,+7.868,+1.962,+1.95,+9.566,+9.265,+3.259,+2.874,+1.73,+0.304,+0.299,+6.345,+2.948,-0.129,"",+12.999)
MI_WW = Array(21,"",+244.334,"",+978.538,"",+18.423,+173.691,"","","",-186.986,"",-141.01,+7.592,+28.269,-34.054,"",+579.343,-3526.399,-62.704,"",+12.999)
MJ_WW = Array(21,"",83.881,"",306.805,"",-4.66,-81.511,"","","",79.264,"",65.575,4.234,-5.179,19.636,"",296.975,1802.436,35.716,"",+12.999)
MG_WW = Array(21,"A","C","B","D","B","C","C","B","B","B","D","B","C","C","D","C","B","C","C","C","B",+12.999)
MX_XX = Array(14,+0.405,-0.182,+3.571,+0.307,+0.95,+2.005,+4.076,+7.486,+8.079,+4.527,+8.225,+7.607,+4.004,+0.405,+8.225)
MY_XX = Array(14,-0.066,+0.483,+4.924,+8.851,+9.417,+8.06,+5.426,+9.466,+8.881,+4.908,+0.541,-0.015,+4.417,-0.066,+8.225)
MI_XX = Array(14,"","","",-181.718,"","",+113.151,+297.678,"",+63.288,"","","","",+8.225)
MJ_XX = Array(14,"","","",-145.777,"","",93.301,-238.932,"",-44.052,"","","","",+8.225)
MG_XX = Array(14,"A","B","B","D","B","B","D","C","B","D","B","B","B","B",+8.225)
MX_YY = Array(17,+3.473,+3.559,+3.55,+0.705,-0.109,+0.257,+3.988,+4.014,+4.937,+8.15,+8.439,+4.387,+4.327,+4.33,+4.329,+4.387,+3.473,+8.439)
MY_YY = Array(17,0,+2.07,+2.749,+8.258,+8.756,+9.458,+4.676,"",+6.845,+9.458,+8.73,+3.588,+2.443,+2.208,+1.983,0,"",+8.439)
MI_YY = Array(17,"",-21.462,-21.462,-3.584,-2.992,"",-2.936,"",+9.228,+10.703,"",+10.708,+15.218,+15.218,+38.241,+38.241,"",+8.439)
MJ_YY = Array(17,"",2.07,2.07,2.555,3.119,"",3.119,"",3.737,3.036,"",2.775,2.443,2.443,1.983,1.983,"",+8.439)
MG_YY = Array(17,"A","D","D","D","D","B","C","B","C","C","B","D","D","D","D","D","B",+8.439)
MX_ZZ = Array(17,+7.133,+7.185,+7.121,+6.87,+3.163,+1.364,+4.382,+5.466,+7.528,+7.502,+0.598,+0.541,+6.227,+4.16,+2.598,+0.962,0,+7.528)
MY_ZZ = Array(17,-0.172,+0.592,+0.578,+0.573,+0.544,+0.561,+4.855,+6.298,+9.084,+9.107,+9.364,+8.706,+8.561,+5.719,+3.571,+1.322,0,+7.528)
MI_ZZ = Array(17,-16.849,"","",+6.95,+4.13,+2.073,+181.521,+26.809,+31.605,"",+37.215,"","","","","","",+7.528)
MJ_ZZ = Array(17,-847.668,"","",2.922,115.294,-19.644,-122.812,-10.876,-10.89,"",897.598,"","","","","","",+7.528)
MG_ZZ = Array(17,"C","B","B","C","C","D","C","C","C","B","C","B","B","B","B","B","B",+7.528)
MX_mas = Array(15,+3.761,+3.787,+2.189,+2.185,+2.239,+1.477,+1.492,+1.49,+0.018,-0.058,+1.49,"",+2.064,+2.139,+3.761,+3.787)
MY_mas = Array(15,+4.894,+4.241,+4.215,+3.871,+2.67,+2.593,+3.829,+4.241,+4.191,+4.891,"",+6.407,+6.439,+4.891,+4.894,+3.787)
MI_mas = Array(15,"","",+3.436,+15.457,+15.457,"",-49.709,-49.709,+1.063,"","","","",+41.052,"",+3.787)
MJ_mas = Array(15,"","",-23.572,3.871,3.871,"",3.829,3.829,-4.891,"","","","",7.549,"",+3.787)
MG_mas = Array(15,"A","B","D","D","D","B","D","D","D","B","B","B","B","D","B",+3.787)
MX_menos = Array(8,+0.174,+0.098,+1.885,+3.429,+3.861,+3.887,+1.516,+0.174,+3.887)
MY_menos = Array(8,+4.158,+4.876,+4.878,+4.73,+4.804,+4.252,+4.138,+4.158,+3.887)
MI_menos = Array(8,"","",+1.484,"","","",+4.074,"",+3.887)
MJ_menos = Array(8,"","",-376.201,"","","",-24.523,"",+3.887)
MG_menos = Array(8,"A","B","C","B","B","B","D","B",+3.887)
MX_coma = Array(5,+0.557,-0.359,+0.118,+1.453,+0.557,+1.453)
MY_coma = Array(5,+1.013,-1.608,-1.829,+0.578,+1.013,+1.453)
MI_coma = Array(5,"","","","","",+1.453)
MJ_coma = Array(5,"","","","","",+1.453)
MG_coma = Array(5,"A","B","B","B","B",+1.453)
MX_Punto = Array(4,"",+1.101,"",0,+1.101)
MY_Punto = Array(4,+1.152,"",0,"",+1.101)
MI_Punto = Array(4,"","","","",+1.101)
MJ_Punto = Array(4,"","","","",+1.101)
MG_Punto = Array(4,"B","B","B","B",+1.101)
MX_IntCierra = Array(22,+0.955,"",+1.979,"",+0.955,+1.243,+0.931,+2.592,+3.139,+3.336,+3.135,+2.552,+1.581,-0.018,+0.189,+3.072,+3.898,+4.184,+4.174,+3.567,+1.65,+1.243,+4.184)
MY_IntCierra = Array(22,-0.027,+1.048,"",-0.027,"",+2.891,+3.513,+4.586,+5.346,+6.236,+7.136,+7.82,+8.386,+8.846,+9.553,+8.362,+7.49,+6.469,+6.277,+4.709,+3.105,+2.891,+4.184)
MI_IntCierra = Array(22,"","","","","","","",-0.895,+0.755,+1.217,+1.217,+1.139,+0.315,-1.796,"",-0.925,+1.279,+2.216,+2.216,+1.189,-1.028,"",+4.184)
MJ_IntCierra = Array(22,"","","","","","","",8.161,6.487,6.236,6.236,6.025,5.099,-0.344,"",2.766,5.837,6.469,6.469,6.532,8.251,"",+4.184)
MG_IntCierra = Array(22,"A","B","B","B","B","A","B","D","D","D","D","D","D","D","B","C","C","C","C","C","C","B",+4.184)
MX_IntAbre = Array(20,+1.291,+0.355,+0.014,+0.031,+0.835,+2.951,+3.243,+1.392,+0.862,+0.862,+1.579,+3.454,+4.203,+3.991,+1.291,+2.168,"",+3.243,"",+2.168,+4.203)
MY_IntAbre = Array(20,+0.992,+1.908,+3.009,+3.267,+5.01,+6.554,+5.949,+4.578,+3.033,+2.982,+1.692,+0.797,+0.614,-0.075,+0.992,+8.372,+9.447,"",+8.372,"",+4.203)
MI_IntAbre = Array(20,"",+3.329,+1.961,+1.961,+3.115,+5.791,"",+5.332,+3.379,+3.379,+2.749,+4.712,+6.457,"",+5.053,"","","","","",+4.203)
MJ_IntAbre = Array(20,"",4.01,3.009,3.009,2.901,0.441,"",1.195,3.033,3.033,3.186,5.844,11.434,"",6.56,"","","","","",+4.203)
MG_IntAbre = Array(20,"A","C","C","C","C","C","B","D","D","D","D","D","D","B","C","A","B","B","B","B",+4.203)
MX_Slash = Array(5,-0.114,+0.486,+6.174,+5.542,-0.114,+6.174)
MY_Slash = Array(5,+0.415,+0.014,+9.149,+9.511,+0.415,+6.174)
MI_Slash = Array(5,"","",+166.273,"","",+6.174)
MJ_Slash = Array(5,"","",-96.884,"","",+6.174)
MG_Slash = Array(5,"A","B","C","B","B",+6.174)
MX_BackSlash = Array(10,+3.377,+5.66,+6.251,+5.173,+3.803,+2.27,+0.614,-0.037,+2.492,+3.377,+6.251)
MY_BackSlash = Array(10,+3.919,+0.04,+0.451,+2.189,+4.397,+6.868,+9.537,+9.172,+5.296,+3.919,+6.251)
MI_BackSlash = Array(10,"",+2903.586,"","","","","","",+2021.553,+24.611,+6.251)
MJ_BackSlash = Array(10,"",1707.999,"","","","","","",1325.762,18.536,+6.251)
MG_BackSlash = Array(10,"A","D","B","B","B","B","B","B","D","D",+6.251)
MX_Migual = Array(12,+0.117,+3.884,+3.826,+3.065,+0.04,+0.117,+0.092,+0.04,+3.826,+3.858,+1.639,+0.092,+3.884)
MY_Migual = Array(12,+4.187,+4.277,+4.878,+4.852,+4.89,+4.187,+5.287,+6.004,+5.999,+5.401,+5.313,+5.287,+3.884)
MI_Migual = Array(12,"",-6.421,"","",-1.632,"","","",+2.044,"",+5.11,"",+3.884)
MJ_Migual = Array(12,"",355.145,"","",-248.62,"","","",93.541,"",-53.911,"",+3.884)
MG_Migual = Array(12,"A","D","B","B","D","B","A","B","D","B","D","B",+3.884)
MX_Bajo = Array(4,"",+6.63,"",0,+6.63)
MY_Bajo = Array(4,+0.64,"",0,"",+6.63)
MI_Bajo = Array(4,"","","","",+6.63)
MJ_Bajo = Array(4,"","","","",+6.63)
MG_Bajo = Array(4,"B","B","B","B",+6.63)
MX_DosPuntos = Array(10,+0.056,"",+1.131,"",+0.056,"","",+1.131,"",+0.056,+1.131)
MY_DosPuntos = Array(10,+0.731,+1.857,"",+0.731,"",+5.313,+6.439,"",+5.313,"",+1.131)
MI_DosPuntos = Array(10,"","","","","","","","","","",+1.131)
MJ_DosPuntos = Array(10,"","","","","","","","","","",+1.131)
MG_DosPuntos = Array(10,"A","B","B","B","B","A","B","B","B","B",+1.131)
MX_PuntoComa = Array(10,+0.317,-0.445,-0.039,+1.232,+0.317,+0.067,"",+1.142,"",+0.067,+1.232)
MY_PuntoComa = Array(10,+0.808,-1.813,-1.982,+0.326,+0.808,+4.187,+5.313,"",+4.187,"",+1.232)
MI_PuntoComa = Array(10,"","","","","","","","","","",+1.232)
MJ_PuntoComa = Array(10,"","","","","","","","","","",+1.232)
MG_PuntoComa = Array(10,"A","B","B","B","B","A","B","B","B","B",+1.232)
MX_Peso = Array(39,+0.218,+1.649,+1.61,+2.289,+2.263,+3.798,+4.048,+4.132,+4.132,+3.94,+3.363,+2.116,+1.151,+0.91,+0.829,+0.986,+1.447,+3.777,+3.653,+2.263,+2.314,+1.61,+1.657,+1.649,+0.466,-0.008,-0.017,+0.174,+0.986,+1.566,+2.685,+3.089,+3.229,+3.29,+3.287,+3.192,+2.695,+0.095,+0.218,+4.132)
MY_Peso = Array(39,+0.053,+0.411,-1.381,"",+0.656,+2.054,+2.513,+2.898,+2.937,+3.76,+4.368,+5.031,+5.688,+6.051,+6.416,+6.913,+7.402,+8.279,+9.007,+8.594,+10.138,"",+8.82,+8.275,+7.367,+6.303,+6.154,+5.519,+4.757,+4.435,+3.855,+3.481,+3.24,+2.957,+2.895,+2.494,+1.83,+0.781,+0.053,+4.132)
MI_Peso = Array(39,"",-1.121,"","","",+0.082,+1.78,+3.076,+2.272,+2.272,+2.491,-0.161,+3.547,+2.099,+1.698,+1.698,+2.597,+4.215,"",+4.953,"","",-16.929,-16.929,+3.394,+1.852,+1.13,+1.13,+2.495,"",-8.444,+2.075,+2.373,+2.595,+2.595,+2.36,+1.259,-0.147,"",+4.132)
MJ_Peso = Array(39,"",8.434,"","","",4.59,3.453,2.926,2.937,2.937,2.963,-0.761,8.168,6.581,6.416,6.416,5.856,3.578,"",2.082,"","",8.82,8.82,4.779,6.113,6.154,6.154,7.179,"",-16.265,2.792,2.903,2.957,2.957,2.904,3.422,5.128,"",+4.132)
MG_Peso = Array(39,"A","D","B","B","B","D","D","D","D","D","D","D","C","C","C","C","C","C","B","D","B","B","C","C","D","D","D","D","D","B","C","C","C","C","C","C","C","C","B",+4.132)
MX_Amberstand = Array(37,+1.22,+0.142,+0.008,+0.033,+0.595,+1.833,+1.086,+0.958,+1.11,+2.013,+4.509,+4.703,+2.448,+1.852,+1.803,+1.985,+2.259,+4.785,+5.789,+6.944,+7.566,+6.305,+7.947,+7.456,+5.78,+3.02,+2.265,+1.22,+1.563,+0.888,+0.854,+1.215,+2.273,+5.306,+3.753,+2.067,+1.563,+7.947)
MY_Amberstand = Array(37,+0.26,+1.397,+2.089,+2.395,+3.786,+5.022,+5.999,+6.63,+7.314,+8.463,+9.664,+8.911,+7.944,+7.098,+6.723,+6.021,+5.64,+3.258,+2.395,+4.199,+3.775,+1.989,+0.712,+0.116,+1.473,+0.013,-0.037,+0.26,+0.975,+1.901,+2.287,+3.505,+4.562,+1.879,+0.784,+0.727,+0.975,+7.947)
MI_Amberstand = Array(37,"",+2.254,+1.847,+1.847,+2.671,+7.149,+3.785,+2.575,+2.575,+4.165,+5.857,"",+5.393,+3.493,+3.243,+3.243,+3.498,+18.48,-13.298,-3.004,"",-1.655,+29.779,"","",+2.603,+2.27,+2.304,"",+2.335,+3.085,+3.085,+4.221,+43.701,+2.256,+2.832,+3.043,+7.947)
MJ_Amberstand = Array(37,"",2.319,2.089,2.089,2.139,-1.541,7.287,6.63,6.63,5.843,3.671,"",4.191,6.575,6.723,6.723,6.821,20.308,-18.801,9.293,"",8.95,30.491,"","",4.138,5.672,2.087,"",2.247,2.287,2.287,1.558,48.35,4.555,3.054,3.344,+7.947)
MG_Amberstand = Array(37,"A","C","C","C","C","C","C","C","C","C","C","B","D","D","D","D","D","D","C","D","B","C","D","B","B","C","C","C","A","C","C","C","C","D","C","C","C",+7.947)
MX_AbreParent = Array(14,+2.835,+0.058,+0.058,+0.057,+0.075,+0.213,+2.087,+2.834,+3.238,+0.897,+0.789,+1.45,+3.238,+2.835,+3.238)
MY_AbreParent = Array(14,-0.05,+5.344,+5.443,+5.601,+6.206,+7.006,+10.617,+11.264,+10.754,+6.754,+5.547,+2.613,+0.493,-0.05,+3.238)
MI_AbreParent = Array(14,"",+6.684,+6.684,+10.182,+10.182,+4.723,+7.723,+5.718,"",+7.357,+7.638,+7.638,+6.569,"",+3.238)
MJ_AbreParent = Array(14,"",5.344,5.344,5.601,5.601,5.815,5.401,7.184,"",5.657,5.547,5.547,5.118,"",+3.238)
MG_AbreParent = Array(14,"A","C","C","C","C","C","C","C","B","D","D","D","D","B",+3.238)
MX_CierraParent = Array(13,+0.385,+0.004,+2.336,+2.428,+2.422,+2.344,+2.172,-0.022,+0.385,+2.534,+3.164,+2.298,+0.385,+3.164)
MY_CierraParent = Array(13,-0.011,+0.506,+4.653,+5.936,+6.275,+6.924,+7.623,+10.754,+11.328,+8.757,+5.734,+2.217,-0.011,+3.164)
MI_CierraParent = Array(13,"","",-4.216,-6.545,-6.545,-6.123,-315.977,-3.57,"",-2.801,-4.411,-4.411,-2.93,+3.164)
MJ_CierraParent = Array(13,"","",5.607,5.936,5.936,5.583,-71.078,5.932,"",6.48,5.734,5.734,4.769,+3.164)
MG_CierraParent = Array(13,"A","B","D","D","D","D","D","D","B","C","C","C","C",+3.164)
MX_Comillas = Array(10,+0.265,+0.084,+0.987,+0.749,+0.265,+1.825,+1.799,+2.644,+2.336,+1.825,+2.644)
MY_Comillas = Array(10,+6.311,+8.89,+8.948,+6.337,+6.311,+6.431,+8.863,+8.785,+6.405,+6.431,+2.644)
MI_Comillas = Array(10,"","","","","","","","","","",+2.644)
MJ_Comillas = Array(10,"","","","","","","","","","",+2.644)
MG_Comillas = Array(10,"A","B","B","B","B","A","B","B","B","B",+2.644)
MX_Porcent = Array(56,+2.589,+3.182,+8.942,+8.323,+7.478,+2.589,+1.489,+0.151,+0.035,-0.042,-0.042,-0.016,+0.391,+2.556,+4.196,+5.01,+5.062,+4.752,+2.791,+1.489,+1.55,+4.255,+4.309,+4.181,+3.025,+2.553,+1.791,+0.847,+0.701,+0.675,+1.55,+6.732,+6.3,+6.401,+8.937,+10.388,+11.304,+11.375,+11.374,+11.375,+11.369,+11.19,+8.224,+6.732,+7.106,+8.194,+9.434,+10.336,+10.516,+10.658,+10.66,+10.412,+8.937,+7.661,+7.051,+7.106,+11.375)
MY_Porcent = Array(56,+0.488,+0.104,+9.543,+9.933,+8.499,+0.488,+4.777,+6.077,+6.38,+6.99,+7.008,+7.092,+8.417,+9.62,+9.137,+7.712,+7.197,+5.976,+4.617,+4.777,+5.454,+6.599,+7.139,+7.962,+8.998,+9.057,+8.905,+7.82,+7.092,+7.033,+5.454,+1.357,+2.759,+3.46,+5.396,+5.003,+3.669,+2.982,+2.907,+2.816,+2.579,+1.911,+0.427,+1.357,+2.246,+1.044,+0.974,+1.735,+2.047,+2.723,+2.839,+3.936,+4.807,+4.31,+2.747,+2.246,+11.375)
MI_Porcent = Array(56,"","",+117.722,"",-16.521,-9514.319,"",+2.318,"",+2.398,"",-0.581,+2.652,+2.527,+2.688,+2.905,+2.496,+2.496,+2.387,+2.494,"",+2.517,+1.602,+1.602,+2.716,+2.547,+2.508,+2.62,+2.76,"",+2.638,"",+8.79,+8.79,+8.942,+9.013,+9.259,+7.997,+7.997,+6.59,+6.59,+9.515,+8.856,+8.65,"",+8.894,+8.902,+8.719,+8.087,+8.965,+8.115,+8.115,+8.999,+8.847,+9.356,+9.356,+11.375)
MJ_Porcent = Array(56,"","",-63.308,"",23.602,5813.347,"",6.969,"",6.99,"",7.217,6.996,7.122,7.037,7.455,7.197,7.197,7.295,7.578,"",6.936,7.139,7.139,7.491,7.076,7.292,7.231,7.055,"",7.09,"",2.759,2.759,2.761,2.803,3.245,2.982,2.982,2.816,2.816,2.718,2.87,2.771,"",2.77,2.57,2.737,3.242,2.723,2.839,2.839,3.229,3.154,2.747,2.747,+11.375)
MG_Porcent = Array(56,"A","B","C","B","C","C","A","C","B","C","A","D","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","B","D","A","C","C","C","C","C","C","C","C","C","C","C","C","A","D","D","D","D","D","D","D","D","D","D","D",+11.375)
MX_Asterisco = Array(24,+1.303,+0.741,+1.489,+0.09,+0.142,+1.265,+1.955,+1.626,+1.303,+2.738,+2.109,+2.814,+3.934,+3.985,+2.599,+3.366,+2.738,+2.031,+3.289,+2.74,+2.031,+1.251,+0.709,+2.031,+3.985)
MY_Asterisco = Array(24,+5.665,+5.946,+7.284,"",+7.924,+7.671,+7.528,+6.6,+5.665,+5.696,+7.515,+7.634,+7.873,+7.284,+7.233,+5.997,+5.696,+7.591,+9.104,+9.492,+8.129,+9.492,+9.078,+7.591,+3.985)
MI_Asterisco = Array(24,"","","","","",+2.879,"",-15.784,"","",-73.618,-4.842,+7.516,"","",+190.265,"","","","",-13.713,"","",+169.199,+3.985)
MJ_Asterisco = Array(24,"","","","","",17.451,"",13.295,"","",-19.678,50.809,-11.697,"","",122.924,"","","","",17.186,"","",157.566,+3.985)
MG_Asterisco = Array(24,"A","B","B","B","B","D","B","C","B","A","D","D","C","B","B","D","B","A","B","B","C","B","B","D",+3.985)
MX_Grado = Array(24,+1.529,+2.83,+4.79,+5.1,+5.047,+4.235,+2.595,+0.432,+0.024,-0.002,+0.075,+0.191,+1.529,+1.589,+4.292,+4.347,+4.218,+3.063,+2.592,+1.83,+0.887,+0.74,+0.714,+1.589,+5.1)
MY_Grado = Array(24,+5.965,+5.805,+7.162,+8.382,+8.897,+10.32,+10.802,+9.601,+8.277,+8.193,+7.567,+7.263,+5.965,+6.637,+7.783,+8.324,+9.149,+10.187,+10.245,+10.094,+9.006,+8.277,+8.219,+6.637,+5.1)
MI_Grado = Array(24,"",+2.532,+2.426,+2.538,+2.538,+2.945,+2.727,+2.566,+2.686,-0.471,+2.434,"",+2.356,"",+2.556,+1.628,+1.628,+2.753,+2.586,+2.547,+2.662,+2.82,"",+2.683,+5.1)
MJ_Grado = Array(24,"",8.754,8.483,8.382,8.382,8.64,8.221,8.306,8.182,8.383,8.175,"",8.156,"",8.116,8.324,8.324,8.68,8.269,8.484,8.42,8.237,"",8.274,+5.1)
MG_Grado = Array(24,"A","D","D","D","D","D","D","D","D","C","D","B","D","A","D","D","D","D","D","D","D","D","B","D",+5.1)
MX_Diam = Array(39,+0.016,+0.609,+2.042,+2.195,+0.016,+1.518,+0.857,+0.741,+0.664,+0.664,+0.689,+1.097,+3.263,+4.169,+4.91,+5.747,+6.366,+5.017,+4.732,+4.905,+5.718,+5.77,+5.461,+3.498,+2.042,+2.37,+4.379,+4.891,+5.014,+4.96,+2.37,+1.889,+3.837,+3.261,+2.5,+1.557,+1.41,+1.385,+1.889,+6.366)
MY_Diam = Array(39,+0.356,-0.023,+2.473,+2.413,+0.356,+2.81,+3.714,+4.018,+4.627,+4.645,+4.73,+6.057,+7.26,+7.145,+8.356,+9.773,+9.415,+7.339,+6.891,+6.777,+5.351,+4.835,+3.613,+2.253,+2.473,+3.03,+6.329,+5.58,+4.777,+4.239,+3.03,+3.416,+6.601,+6.689,+6.538,+5.455,+4.73,+4.672,+3.416,+6.366)
MI_Diam = Array(39,"","",+135.182,+3.024,"",-12186.059,+3.024,"",+3.104,"",+0.195,+3.361,+3.235,+3.394,-12186.059,-18.909,"",+80.482,+135.182,+3.394,+3.611,+3.202,+3.202,+3.094,+3.2,"",+135.182,+3.425,+2.319,+2.319,+3.225,"",-12186.059,+3.255,+3.216,+3.324,+3.471,"",+3.341,+6.366)
MJ_Diam = Array(39,"","",-75.584,4.606,"",7460.23,4.606,"",4.627,"",4.834,4.634,4.761,4.676,7460.23,23.386,"",-40.229,-75.584,4.676,5.094,4.835,4.835,4.932,5.201,"",-75.584,5.126,4.777,4.777,4.578,"",7460.23,4.711,4.922,4.868,4.69,"",4.728,+6.366)
MG_Diam = Array(39,"A","B","C","D","A","D","C","B","C","A","D","C","C","C","D","D","B","D","D","C","C","C","C","C","C","A","C","C","C","C","C","A","D","D","D","D","D","B","D",+6.366)
MX_Mayor = Array(7,+0.604,+0.131,+1.531,+0.012,+0.475,+2.356,+0.604,+2.356)
MY_Mayor = Array(7,+2.695,+3.213,+4.445,+6.128,+6.607,+4.389,+2.695,+2.356)
MI_Mayor = Array(7,"","","","","","","",+2.356)
MJ_Mayor = Array(7,"","","","","","","",+2.356)
MG_Mayor = Array(7,"A","B","B","B","B","B","B",+2.356)
MX_Menor = Array(7,+1.675,-0.057,+1.824,+2.286,+0.75,+2.177,+1.675,+2.286)
MY_Menor = Array(7,+2.739,+4.433,+6.65,+6.172,+4.502,+3.26,+2.739,+2.286)
MI_Menor = Array(7,"","","","","","","",+2.286)
MJ_Menor = Array(7,"","","","","","","",+2.286)
MG_Menor = Array(7,"A","B","B","B","B","B","B",+2.286)
MX_Vertical = Array(4,"",+0.833,"",0,+0.833)
MY_Vertical = Array(4,+9.423,"",0,"",+0.833)
MI_Vertical = Array(4,"","","","",+0.833)
MJ_Vertical = Array(4,"","","","",+0.833)
MG_Vertical = Array(4,"B","B","B","B",+0.833)
MX_espacio = Array(0,9)
MY_espacio = Array(0,9)
MI_espacio = Array(0,9)
MJ_espacio = Array(0,9)
MG_espacio = Array(0,9)



'=== Ingresos ===
XPOS = GetOEMDRO(1072)
YPOS = GetOEMDRO(1073)
Top_Mat = GetOEMDRO(1077)
Depth = Abs(GetOEMDRO(1075))
Rapid_dis = GetOEMDRO(1079)
Feed = Abs(GetOEMDRO(1070))
Porcentaje = GetOEMDRO(1082)
Height = Abs(GetOEMDRO(1081))
RPM =GetOEMDRO (1083)
ToolNum =GetOEMDRO (1084)

'=== Comprobaciones ===
While Feed <= 0
  Feed=Question ("FeedRtae can't be zero or negative, Input a right Value:")
  Call SetUserDRO(1070, Feed)
Wend
While Porcentaje <= 0
  Porcentaje=Question ("% Separation can't be zero or negative, Input a right Value:")
  Call SetUserDRO(1082, Porcentaje)
Wend
While Height = 0
  Height= Question ("Height can't be zero,Input a right Value:")
  Call SetUserDRO(1081, Height)
Wend
While Rapid_dis < Top_Mat
 Rapid_dis=Question ("Rapid Height must be > Top Material, Input a right Value:")
  Call SetUserDRO(1079, Rapid_dis)
Wend

'=== Escala y Direccion ===
Escala = Height / 10
If GetUserLED(1050) Then '0°
	If GetUserLED(1041) Then
		X1 = -1*Escala
		X2 = 0
		Y1 = 0
		Y2 = Escala
	Else
		X1 = Escala
		X2 = 0
		Y1 = 0
		Y2 = Escala
	End If
End If
If GetUserLED(1051) Then '90°
	If GetUserLED(1041) Then
		X1 = 0
		X2 = -1*Escala
		Y1 = -1*Escala
		Y2 = 0
	Else
		X1 = 0
		X2 = -1 * Escala
		Y1 = Escala
		Y2 = 0
	End If
End If
If GetUserLED(1052) Then '180°
	If GetUserLED(1041) Then
		X1 = Escala
		X2 = 0
		Y1 = 0
		Y2 = -1*Escala
	Else
		X1 = -1 * Escala
		X2 = 0
		Y1 = 0
		Y2 = -1 * Escala
	End If
End If
If GetUserLED(1053) Then '270°
	If GetUserLED(1041) Then
		X1 = 0
		X2 = Escala
		Y1 = Escala
		Y2 = 0
	Else
		X1 = 0
		X2 = Escala
		Y1 = -1 * Escala
		Y2 = 0
	End If
End If
If GetUserLED(1041) Then
	GG="G03"
	GM="G02"
else
	GG="G02"
	GM="G03"
end If

'=== GCode ===
OpenTeachFile "write.tap"

IF GetOEMLED(73)=0 Then
	IJ=0
Else
	IJ=1
	SetIJMode( 0 )
End If

Code "G00 G49 G40  G17 G80 G50 G90 "
If GetUserLED (1059) then
	Code"M6 T"&ToolNum 
End if
If GetUserLED(1055)then
	Code "G20"
Else
	Code"G21" 
End if
IF GetUserLED(1056) Then
	Code"M03 S"& RPM
Else
	Code "M04 S"& RPM
End if
IF GetUserLED(1058) Then
	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)

	Total = 0
	'=== Escribe ===
	Select Case Codigo
		Case 21 'A
			LetraG = MG_AA
			LetraX = MX_AA
			LetraY = MY_AA
			LetraI = MI_AA
			LetraJ = MJ_AA
		Case 35 'B
			LetraG = MG_BB
			LetraX = MX_BB
			LetraY = MY_BB
			LetraI = MI_BB
			LetraJ = MJ_BB
		Case 33 'C
			LetraG = MG_CC
			LetraX = MX_CC
			LetraY = MY_CC
			LetraI = MI_CC
			LetraJ = MJ_CC
		Case 23 'D
			LetraG = MG_DD
			LetraX = MX_DD
			LetraY = MY_DD
			LetraI = MI_DD
			LetraJ = MJ_DD
		Case 13 'E
			LetraG = MG_EE
			LetraX = MX_EE
			LetraY = MY_EE
			LetraI = MI_EE
			LetraJ = MJ_EE
		Case 24 'F
			LetraG = MG_FF
			LetraX = MX_FF
			LetraY = MY_FF
			LetraI = MI_FF
			LetraJ = MJ_FF
		Case 25 'G
			LetraG = MG_GG
			LetraX = MX_GG
			LetraY = MY_GG
			LetraI = MI_GG
			LetraJ = MJ_GG
		Case 26 'H
			LetraG = MG_HH
			LetraX = MX_HH
			LetraY = MY_HH
			LetraI = MI_HH
			LetraJ = MJ_HH
		Case 18 'I
			LetraG = MG_II
			LetraX = MX_II
			LetraY = MY_II
			LetraI = MI_II
			LetraJ = MJ_II
		Case 27 'J
			LetraG = MG_JJ
			LetraX = MX_JJ
			LetraY = MY_JJ
			LetraI = MI_JJ
			LetraJ = MJ_JJ
		Case 28 'K
			LetraG = MG_KK
			LetraX = MX_KK
			LetraY = MY_KK
			LetraI = MI_KK
			LetraJ = MJ_KK
		Case 29 'L
			LetraG = MG_LL
			LetraX = MX_LL
			LetraY = MY_LL
			LetraI = MI_LL
			LetraJ = MJ_LL
		Case 37 'M
			LetraG = MG_MM
			LetraX = MX_MM
			LetraY = MY_MM
			LetraI = MI_MM
			LetraJ = MJ_MM
		Case 36 'N
			LetraG = MG_NN
			LetraX = MX_NN
			LetraY = MY_NN
			LetraI = MI_NN
			LetraJ = MJ_NN
		Case 30 'Ñ
			LetraG = MG_ENNE
			LetraX = MX_ENNE
			LetraY = MY_ENNE
			LetraI = MI_ENNE
			LetraJ = MJ_ENNE
		Case 19 'O
			LetraG = MG_OO
			LetraX = MX_OO
			LetraY = MY_OO
			LetraI = MI_OO
			LetraJ = MJ_OO
		Case 20 'P
			LetraG = MG_PP
			LetraX = MX_PP
			LetraY = MY_PP
			LetraI = MI_PP
			LetraJ = MJ_PP
		Case 11 'Q
			LetraG = MG_QQ
			LetraX = MX_QQ
			LetraY = MY_QQ
			LetraI = MI_QQ
			LetraJ = MJ_QQ
		Case 14 'R
			LetraG = MG_RR
			LetraX = MX_RR
			LetraY = MY_RR
			LetraI = MI_RR
			LetraJ = MJ_RR
		Case 22 'S
			LetraG = MG_SS
			LetraX = MX_SS
			LetraY = MY_SS
			LetraI = MI_SS
			LetraJ = MJ_SS
		Case 15 'T
			LetraG = MG_TT
			LetraX = MX_TT
			LetraY = MY_TT
			LetraI = MI_TT
			LetraJ = MJ_TT
		Case 17 'U
			LetraG = MG_UU
			LetraX = MX_UU
			LetraY = MY_UU
			LetraI = MI_UU
			LetraJ = MJ_UU
		Case 34 'V
			LetraG = MG_VV
			LetraX = MX_VV
			LetraY = MY_VV
			LetraI = MI_VV
			LetraJ = MJ_VV
		Case 12 'W
			LetraG = MG_WW
			LetraX = MX_WW
			LetraY = MY_WW
			LetraI = MI_WW
			LetraJ = MJ_WW
		Case 32 'X
			LetraG = MG_XX
			LetraX = MX_XX
			LetraY = MY_XX
			LetraI = MI_XX
			LetraJ = MJ_XX
		Case 16 'Y
			LetraG = MG_YY
			LetraX = MX_YY
			LetraY = MY_YY
			LetraI = MI_YY
			LetraJ = MJ_YY
		Case 31 'Z
			LetraG = MG_ZZ
			LetraX = MX_ZZ
			LetraY = MY_ZZ
			LetraI = MI_ZZ
			LetraJ = MJ_ZZ
		Case 51 'a
			LetraG = MG_AA
			LetraX = MX_AA
			LetraY = MY_AA
			LetraI = MI_AA
			LetraJ = MJ_AA
		Case 65 'b
			LetraG = MG_BB
			LetraX = MX_BB
			LetraY = MY_BB
			LetraI = MI_BB
			LetraJ = MJ_BB
		Case 63 'c
			LetraG = MG_CC
			LetraX = MX_CC
			LetraY = MY_CC
			LetraI = MI_CC
			LetraJ = MJ_CC
		Case 53 'd
			LetraG = MG_DD
			LetraX = MX_DD
			LetraY = MY_DD
			LetraI = MI_DD
			LetraJ = MJ_DD
		Case 43 'e
			LetraG = MG_EE
			LetraX = MX_EE
			LetraY = MY_EE
			LetraI = MI_EE
			LetraJ = MJ_EE
		Case 54 'f
			LetraG = MG_FF
			LetraX = MX_FF
			LetraY = MY_FF
			LetraI = MI_FF
			LetraJ = MJ_FF
		Case 55 'g
			LetraG = MG_GG
			LetraX = MX_GG
			LetraY = MY_GG
			LetraI = MI_GG
			LetraJ = MJ_GG
		Case 56 'h
			LetraG = MG_HH
			LetraX = MX_HH
			LetraY = MY_HH
			LetraI = MI_HH
			LetraJ = MJ_HH
		Case 48 'i
			LetraG = MG_II
			LetraX = MX_II
			LetraY = MY_II
			LetraI = MI_II
			LetraJ = MJ_II
		Case 57 'j
			LetraG = MG_JJ
			LetraX = MX_JJ
			LetraY = MY_JJ
			LetraI = MI_JJ
			LetraJ = MJ_JJ
		Case 58 'k
			LetraG = MG_KK
			LetraX = MX_KK
			LetraY = MY_KK
			LetraI = MI_KK
			LetraJ = MJ_KK
		Case 59 'l
			LetraG = MG_LL
			LetraX = MX_LL
			LetraY = MY_LL
			LetraI = MI_LL
			LetraJ = MJ_LL
		Case 67 'm
			LetraG = MG_MM
			LetraX = MX_MM
			LetraY = MY_MM
			LetraI = MI_MM
			LetraJ = MJ_MM
		Case 66 'n
			LetraG = MG_NN
			LetraX = MX_NN
			LetraY = MY_NN
			LetraI = MI_NN
			LetraJ = MJ_NN
		Case 60 'ñ
			LetraG = MG_enne
			LetraX = MX_enne
			LetraY = MY_enne
			LetraI = MI_enne
			LetraJ = MJ_enne
		Case 49 'o
			LetraG = MG_OO
			LetraX = MX_OO
			LetraY = MY_OO
			LetraI = MI_OO
			LetraJ = MJ_OO
		Case 50 'p
			LetraG = MG_PP
			LetraX = MX_PP
			LetraY = MY_PP
			LetraI = MI_PP
			LetraJ = MJ_PP
		Case 41 'q
			LetraG = MG_QQ
			LetraX = MX_QQ
			LetraY = MY_QQ
			LetraI = MI_QQ
			LetraJ = MJ_QQ
		Case 44 'r
			LetraG = MG_RR
			LetraX = MX_RR
			LetraY = MY_RR
			LetraI = MI_RR
			LetraJ = MJ_RR
		Case 52 's
			LetraG = MG_SS
			LetraX = MX_SS
			LetraY = MY_SS
			LetraI = MI_SS
			LetraJ = MJ_SS
		Case 45 't
			LetraG = MG_TT
			LetraX = MX_TT
			LetraY = MY_TT
			LetraI = MI_TT
			LetraJ = MJ_TT
		Case 47 'u
			LetraG = MG_UU
			LetraX = MX_UU
			LetraY = MY_UU
			LetraI = MI_UU
			LetraJ = MJ_UU
		Case 64 'v
			LetraG = MG_VV
			LetraX = MX_VV
			LetraY = MY_VV
			LetraI = MI_VV
			LetraJ = MJ_VV
		Case 42 'w
			LetraG = MG_WW
			LetraX = MX_WW
			LetraY = MY_WW
			LetraI = MI_WW
			LetraJ = MJ_WW
		Case 62 'x
			LetraG = MG_XX
			LetraX = MX_XX
			LetraY = MY_XX
			LetraI = MI_XX
			LetraJ = MJ_XX
		Case 46 'y
			LetraG = MG_YY
			LetraX = MX_YY
			LetraY = MY_YY
			LetraI = MI_YY
			LetraJ = MJ_YY
		Case 61 'z
			LetraG = MG_ZZ
			LetraX = MX_ZZ
			LetraY = MY_ZZ
			LetraI = MI_ZZ
			LetraJ = MJ_ZZ
		Case 78 '$
			LetraG = MG_peso
			LetraX = MX_peso
			LetraY = MY_peso
			LetraI = MI_peso
			LetraJ = MJ_peso
		Case 83 '%
			LetraG = MG_porcent
			LetraX = MX_Porcent
			LetraY = MY_Porcent
			LetraI = MI_Porcent
			LetraJ = MJ_Porcent
		Case 79 '&
			LetraG = MG_Amberstand
			LetraX = MX_Amberstand
			LetraY = MY_Amberstand
			LetraI = MI_Amberstand
			LetraJ = MJ_Amberstand
		Case 80 '(
			LetraG = MG_AbreParent
			LetraX = MX_AbreParent
			LetraY = MY_AbreParent
			LetraI = MI_AbreParent
			LetraJ = MJ_AbreParent
		Case 81 ')
			LetraG = MG_CierraParent
			LetraX = MX_CierraParent
			LetraY = MY_CierraParent
			LetraI = MI_CierraParent
			LetraJ = MJ_CierraParent
		Case 75 '_
			LetraG = MG_Bajo
			LetraX = MX_Bajo
			LetraY = MY_Bajo
			LetraI = MI_Bajo
			LetraJ = MJ_Bajo
		Case 38 '+
			LetraG = MG_mas
			LetraX = MX_mas
			LetraY = MY_mas
			LetraI = MI_mas
			LetraJ = MJ_mas
		Case 76 ':
			LetraG = MG_DosPuntos
			LetraX = MX_DosPuntos
			LetraY = MY_DosPuntos
			LetraI = MI_DosPuntos
			LetraJ = MJ_DosPuntos
		Case 82 '"
			LetraG = MG_Comillas
			LetraX = MX_Comillas
			LetraY = MY_Comillas
			LetraI = MI_Comillas
			LetraJ = MJ_Comillas
		Case 70 '?
			LetraG = MG_IntCierra
			LetraX = MX_IntCierra
			LetraY = MY_IntCierra
			LetraI = MI_IntCierra
			LetraJ = MJ_IntCierra
		Case 71 '¿
			LetraG = MG_IntAbre
			LetraX = MX_IntAbre
			LetraY = MY_IntAbre
			LetraI = MI_IntAbre
			LetraJ = MJ_IntAbre
		Case 68 'coma
			LetraG = MG_coma
			LetraX = MX_coma
			LetraY = MY_coma
			LetraI = MI_coma
			LetraJ = MJ_coma
		Case 69 'Punto
			LetraG = MG_Punto
			LetraX = MX_Punto
			LetraY = MY_Punto
			LetraI = MI_Punto
			LetraJ = MJ_Punto
		Case 77 ';
			LetraG = MG_PuntoComa
			LetraX = MX_PuntoComa
			LetraY = MY_PuntoComa
			LetraI = MI_PuntoComa
			LetraJ = MJ_PuntoComa
		Case 72 '/
			LetraG = MG_Slash
			LetraX = MX_Slash
			LetraY = MY_Slash
			LetraI = MI_Slash
			LetraJ = MJ_Slash
		Case 73 '\
			LetraG = MG_BackSlash
			LetraX = MX_BackSlash
			LetraY = MY_BackSlash
			LetraI = MI_BackSlash
			LetraJ = MJ_BackSlash
		Case 74 '=
			LetraG = MG_Migual
			LetraX = MX_Migual
			LetraY = MY_Migual
			LetraI = MI_Migual
			LetraJ = MJ_Migual
		Case 39 '-
			LetraG = MG_menos
			LetraX = MX_menos
			LetraY = MY_menos
			LetraI = MI_menos
			LetraJ = MJ_menos
		Case 1 '1
			LetraG = MG_1
			LetraX = MX_1
			LetraY = MY_1
			LetraI = MI_1
			LetraJ = MJ_1
		Case 2 '2
			LetraG = MG_2
			LetraX = MX_2
			LetraY = MY_2
			LetraI = MI_2
			LetraJ = MJ_2
		Case 3 '3
			LetraG = MG_3
			LetraX = MX_3
			LetraY = MY_3
			LetraI = MI_3
			LetraJ = MJ_3
		Case 4 '4
			LetraG = MG_4
			LetraX = MX_4
			LetraY = MY_4
			LetraI = MI_4
			LetraJ = MJ_4
		Case 5 '5
			LetraG = MG_5
			LetraX = MX_5
			LetraY = MY_5
			LetraI = MI_5
			LetraJ = MJ_5
		Case 6 '6
			LetraG = MG_6
			LetraX = MX_6
			LetraY = MY_6
			LetraI = MI_6
			LetraJ = MJ_6
		Case 7 '7
			LetraG = MG_7
			LetraX = MX_7
			LetraY = MY_7
			LetraI = MI_7
			LetraJ = MJ_7
		Case 8 '8
			LetraG = MG_8
			LetraX = MX_8
			LetraY = MY_8
			LetraI = MI_8
			LetraJ = MJ_8
		Case 9 '9
			LetraG = MG_9
			LetraX = MX_9
			LetraY = MY_9
			LetraI = MI_9
			LetraJ = MJ_9
		Case 10 '0
			LetraG = MG_0
			LetraX = MX_0
			LetraY = MY_0
			LetraI = MI_0
			LetraJ = MJ_0
		Case 84 '*
			LetraG = MG_Asterisco
			LetraX = MX_Asterisco
			LetraY = MY_Asterisco
			LetraI = MI_Asterisco
			LetraJ = MJ_Asterisco
		Case 85 '°
			LetraG = MG_Grado
			LetraX = MX_Grado
			LetraY = MY_Grado
			LetraI = MI_Grado
			LetraJ = MJ_Grado
		Case 40 'spc
			LetraG = MG_espacio
			LetraX = MX_espacio
			LetraY = MY_espacio
			LetraI = MI_espacio
			LetraJ = MJ_espacio
		Case 86 'Diam
			LetraG = MG_Diam
			LetraX = MX_Diam
			LetraY = MY_Diam
			LetraI = MI_Diam
			LetraJ = MJ_Diam
		Case 87 '>
			LetraG = MG_Mayor
			LetraX = MX_Mayor
			LetraY = MY_Mayor
			LetraI = MI_Mayor
			LetraJ = MJ_Mayor
		Case 88 '<
			LetraG = MG_Menor
			LetraX = MX_Menor
			LetraY = MY_Menor
			LetraI = MI_Menor
			LetraJ = MJ_Menor
		Case 89 '|
			LetraG = MG_Vertical
			LetraX = MX_Vertical
			LetraY = MY_Vertical
			LetraI = MI_Vertical
			LetraJ = MJ_Vertical
	End Select
  
	Lineas = LetraG(0)
	GX = XPOS
	GY = YPOS
	GI = 0
	GJ = 0
	GC = "G01"
	For I = 0 to Lineas-1
		G6789 = LetraG( I  + 1 )
		If G6789 = "A" Then
			If GC <> "G00" Then Code "G00 Z" & Rapid_dis
		Else
			If GC = "G00" Then
				Code "G00 Z" & Top_Mat
				Code "G01 Z" & Corte
			Else
 				If I = 0 Then	
					Code "G00 X" & XPOS & " Y" & YPOS
					Code "G00 Z" & Top_Mat
					Code "G00 Z" & Corte
				End If
			End If
		End If
		Select case G6789
			Case G6789 = "A"
				GC = "G00"
			Case G6789 = "B"
				GC = "G01"
			Case G6789 = "C"
				GC = GG
			Case G6789 = "D"
				GC = GM
		End Select
		GGX = LetraX(I + 1)
		GGY = LetraY(I + 1)
		GGI = LetraI(I + 1)
		GGJ = LetraJ(I + 1)
		If (Asc(GGX) = 0 and I <> 0 ) Then 
			GGX = GX
		Else
			GX = GGX
		End If
		If (Asc(GGY) = 0 and I <> 0 ) Then 
			GGY = GY
		Else
			GY = GGY
		End If

		XX = XPOS + GGX * X1 + GGY * X2
		YY = YPOS + GGX * Y1 + GGY * Y2

		If (Asc(GGI) = 0 or Asc(GGJ) = 0) Then 
			Code GC & " X" & XX & " Y" & YY
		Else
			GI = GGI
			GJ = GGJ
			II = XPOS + GGI * X1 + GGJ * X2
			JJ = YPOS + GGI * Y1 + GGJ * Y2
			Code GC & " X" & XX & " Y" & YY & " I" & II & " J" & JJ
		End If
	Next
	Largo = LetraG( Lineas + 1)


'=== Actaliza DRO'S ===
	XPOS = XPOS + (    Largo + 3.268 * Porcentaje / 100) * X1 
	YPOS = YPOS + (    Largo + 3.268 * Porcentaje / 100) * Y1 
	Code "G00 Z" & Rapid_dis
Next
Call SetUserDRO(1072, XPOS)
Call SetUserDRO(1073, YPOS)
Code "G00 X" & XPOS & " Y" & YPOS

' Restaura IJ Mode
If IJ=1 then SetIJMode( 0 )

Code"M30"
If GetUserLED(1063) Then SaveWizard()
CloseTeachFile()
call LoadStandardLayout()
call LoadTeachFile()