View difference between Paste ID: M2wCzu3B and 2kEDKMWA

-'Paramenti
+'Piastroni
 
-Sub S_1007305(ByVal NND As Integer)
+Sub S_1005784C(NND)
-ACT_MOD = "1007305"
+
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
-L = INPUT_NUM(NND, "L", 0, ACT_MOD)
+
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 
-'************************************* SCRITTURA LISTATO
+L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-R01A = T_CIRC((H - M2) / 2, L - 142, 8.5) & T_CIRC((H - M2) / 2, L - 42, 8.5)
+
-R01B = T_CIRC(H / 2 + M2 / 2, L - 42, 8.5) & T_CIRC(H / 2 + M2 / 2, L - 142, 8.5)
+VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
-R01 = R01A & R01B
+'***********************************************************
 Dim POSINTAB As Byte
-R02 = T_RECT1(H - 96, H + 4, L - 13.5, L + 6) & T_RECT1(-4, 96, L - 13.5, L + 6)
+M = H
 XP = (CO + 120 - 170 - 170) / 2
-'R03A = TG_R(20, 7, 3, 3, 7, 8, 8)
+XP2 = (CO + 120 - 210 - 210) / 2
-'R03B = TG_R(20, 4, L - 20.5, 7, L - 16.5, 8, 8)
+'*********************************LAVORAZIONI
-'R03C = TG_R(20, 100, L - 7, 103, L - 3, 8, 8)
+
-'R03D = TG_R(20, H - 103, L - 4, H - 99, L - 8, 8, 8)
+Select Case VV
-'R03E = TG_R(20, H - 7, L - 16.5, H - 3, L - 20.5, 8, 8)
+Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"
-'R03F = TG_R(20, H - 3, 7, H - 7, 3, 8, 8)
+AGG = 2
-'R03 = R03A & R03B & R03C & R03D & R03E & R03F
+Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"
 AGG = 1
-SCST = 0.2 'AGGIUNTA STANDARD
+Case Else
-R03A = T_SMUS(-SCST, -SCST) & T_SMUS(H + SCST, -SCST)
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-R03B = T_SMUS(H + SCST, L - 13.5) & T_SMUS(-SCST, L - 13.5)
+End Select
-R03C = T_SMUS(96 - SCST, L + SCST) & T_SMUS(H - 96 + SCST, L + SCST)
+
-R03 = R03A & R03B & R03C
+
 R01 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)
-fn = R01 & R02 & R03
+R02 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + XP2 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)
-P1 = H / 2 - 180
+
-P2 = H / 2 + 180
+R03 = T_CIRC(MR_X(87.5, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 * 2 + 2 * XP - 60, H, AGG), 3, 3.3)
 R04 = T_RECT2(MR_X(87.5 - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(87.5 - 60 + 170 * 2 + 2 * XP, H, AGG), 49 - 8, 10, 16)
 R05 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1)
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & R01 & R02 & R03
+R06 = T_CIRC(MR_X(87.5 + FL, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 60 + 1, 10.1)
 R07 = T_CIRC(MR_X(87.5, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL - CO - 4, H, AGG), 68, 10.1)
 
 R08 = T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5 - 26, H, AGG), 13.5, 4.2) & T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5, H, AGG), 13.5, 4.2)
 R09 = T_CIRC(MR_X(87.5 - 29.4, H, AGG), L - 30 - 23 - 1, 6) & T_CIRC(MR_X(87.5 - 29.4 + 63, H, AGG), L - 30 - 45 - 1, 6) & T_CIRC(MR_X(87.5 + CO - 67 - 35, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67 - 2, H, AGG), L - 30 - 22 - 21.5 - 1, 6)
 
 R10 = T_CIRC(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2) & T_CIRC(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2)
 R11 = T_SLOT(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90) & T_SLOT(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90)
 
 R12 = T_CIRC(MR_X(6.5, H, AGG), L - (30 - 10.5), 6)
 R13 = T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150 + 40, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 140, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(M - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6)
-Sub S_1007303(ByVal NND As Integer)
+'R14 = T_SLOT(127.1, 30 - 12, 38.8, 6.8, 0)
-ACT_MOD = "1007303"
+R14 = T_SLOT(MR_X(127.1, H, AGG), L - (30 - 12), 38.8, 7, 0)
 R15 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)
 
 'Select Case VV
 'Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"
-L = INPUT_NUM(NND, "L", 0, ACT_MOD)
+R16 = T_SMUS(H + 1, 141)
 'Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"
 'R16 = T_SMUS(-1, 141)
 'Case Else
 'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-'************************************* SCRITTURA LISTATO
+'End Select
 
-R01A = T_CIRC((H - M2) / 2, L / 2 - 90, 8.5) & T_CIRC((H - M2) / 2, L / 2 + 90, 8.5)
+'**********************************************
-R01B = T_CIRC(H / 2 + M2 / 2, L / 2 - 90, 8.5) & T_CIRC(H / 2 + M2 / 2, L / 2 + 90, 8.5)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16
-R01 = R01A & R01B
+
 
-R02A = T_RECT1(-3, 96, -3, 15) & T_RECT1(-3, 96, L - 15, L + 3)
+P1 = 250
-R02B = T_RECT1(H - 96, H + 3, L - 15, L + 3) & T_RECT1(H - 96, H + 3, -3, 15)
+P2 = H - 400
-R02 = R02A & R02B
+
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
-'R03A = TG_R(20, 103, 3, 99, 7, 20, 20)
+
-'R03B = TG_R(20, 7, 16.5, 3, 20.5, 20, 20)
+
-'R03C = TG_R(20, 3, L - 23, 10, L - 15, 20, 20)
+
-'R03D = TG_R(20, 99, L - 7, 103, L - 3, 20, 20)
+
-'R03E = TG_R(20, H - 88, L - 10, H - 84, L - 7, 20, 20)
+
-'R03F = TG_R(20, H - 7, L - 15, H - 4, L - 23, 20, 20)
+
-'R03G = TG_R(20, H - 3, 20.5, H - 8, 16.5, 20, 20)
+
-'R03H = TG_R(20, H - 99, 7, H - 103, 3, 20, 20)
+
-'R03 = R03A & R03B & R03C & R03D & R03E & R03F & R03G & R03H
+
 Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
-SCST = 0.2 'AGGIUNTA STANDARD
+Call FVTPT(3, NND, "D")
-R03A = T_SMUS(96 - SCST, -SCST) & T_SMUS(-SCST, 15 - SCST)
+Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
-R03B = T_SMUS(H - 96 + SCST, -SCST) & T_SMUS(H + SCST, 15 - SCST)
+Call FVTPT(3, NND, "E")
-R03C = T_SMUS(96 - SCST, L + SCST) & T_SMUS(-SCST, L + SCST)
+
-R03D = T_SMUS(H - 96 + SCST, L + SCST) & T_SMUS(H + SCST, L + SCST)
+
-R03 = R03A & R03B & R03C & R03D
+
 Sub S_1005784E(NND)
 
-fn = R01 & R02 & R03
+ACT_MOD = INFO_DAT(NND, 0, 6)
-P1 = H / 2 - 180
+CLAMP = 0
-P2 = H / 2 + 180
+NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & R01 & R02 & R03
+FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 M = H
 XP = (CO + 120 - 170 - 170) / 2
 XP2 = (CO + 120 - 210 - 210) / 2
-Sub S_1007236(ByVal NND As Integer)
+'*********************************LAVORAZIONI
-ACT_MOD = "1007236"
+
 Select Case VV
 Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"
 AGG = 2
-L = INPUT_NUM(NND, "L", 0, ACT_MOD)
+Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"
 AGG = 1
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
-M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
+
-M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
+
 R01 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)
-'************************************* SCRITTURA LISTATO
+R02 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + XP2 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)
 
-R01 = T_RECT1(-4, 96, -5, 15) & T_RECT1(M1 - 96, M1 + 4, -5, 15)
+R03 = T_CIRC(MR_X(87.5, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 * 2 + 2 * XP - 60, H, AGG), 3, 3.3)
 R04 = T_RECT2(MR_X(87.5 - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(87.5 - 60 + 170 * 2 + 2 * XP, H, AGG), 49 - 8, 10, 16)
-R02A = T_CIRC(M1 / 2 - M4 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 - M2 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 - M2 / 2, L - 48 - 170, 8.5)
+R05 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1)
-R02B = T_CIRC(M1 / 2 - M3 / 2, L - 48, 8.5) & T_CIRC(M1 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + 20, L - 48, 8.5)
+R06 = T_CIRC(MR_X(87.5 + FL, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 60 + 1, 10.1)
-R02C = T_CIRC(M1 / 2 + M3 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + M2 / 2, L - 48, 8.5)
+R07 = T_CIRC(MR_X(87.5, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL - CO - 4, H, AGG), 68, 10.1)
-R02D = T_CIRC(M1 / 2 + M4 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + M2 / 2, L - 48 - 170, 8.5)
+
-R02 = R02A & R02B & R02C & R02D
+R08 = T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5 - 26, H, AGG), 13.5, 4.2) & T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5, H, AGG), 13.5, 4.2)
 R09 = T_CIRC(MR_X(87.5 - 29.4, H, AGG), L - 30 - 23 - 1, 6) & T_CIRC(MR_X(87.5 - 29.4 + 63, H, AGG), L - 30 - 45 - 1, 6) & T_CIRC(MR_X(87.5 + CO - 67 - 35, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67 - 2, H, AGG), L - 30 - 22 - 21.5 - 1, 6)
-'R03A = TG_R(20, 96 + 5, 0, 96, 6, 8, 8) & TG_R(20, 5, 15, 0, 20, 8, 8)
+
-'R03B = TG_R(20, 0, L - 5, 5, L, 8, 8) & TG_R(20, M1 - 5, L, M1, L - 5, 8, 8)
+R10 = T_CIRC(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2) & T_CIRC(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2)
-'R03C = TG_R(20, M1, 20, M1 - 5, 15, 8, 8) & TG_R(20, M1 - 96, 5, M1 - 96 - 5, 0, 8, 8)
+R11 = T_SLOT(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90) & T_SLOT(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90)
-'R03 = R03A & R03B & R03C
+
-'
+R12 = T_CIRC(MR_X(6.5, H, AGG), L - (30 - 10.5), 6)
-SCST = 0.2 'AGGIUNTA STANDARD
+R13 = T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150 + 40, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 140, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(M - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6)
-R03A = T_SMUS(-SCST, L + SCST)
+'R14 = T_SLOT(127.1, 30 - 12, 38.8, 6.8, 0)
-R03B = T_SMUS(H + SCST, L + SCST)
+R14 = T_SLOT(MR_X(127.1, H, AGG), L - (30 - 12), 38.8, 7, 0)
-R03D = T_SMUS(-SCST, 15) & T_SMUS(H - SCST, 15)
+R15 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)
-R03E = T_SMUS(96, -SCST) & T_SMUS(H - 96, -SCST)
+
-R03 = R03A & R03B & R03D & R03E
+'Select Case VV
 'Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"
-fn = R01 & R02 & R03
+R16 = T_SMUS(H + 1, 141)
-P1 = 200
+R17 = T_RECT2(MR_X(174, H, AGG), L - (30 - 10.5), 6.8, 6.8)
-P2 = H - 250
+'Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"
 'R16 = T_SMUS(-1, 141)
 'Case Else
 'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & R01 & R02 & R03
+'End Select
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
-Sub S_1023836A(ByVal NND As Integer)
+
-ACT_MOD = "1023836"
+
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
-L = INPUT_NUM(NND, "L", 0, ACT_MOD)
+
 
 Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
-M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
+Call FVTPT(3, NND, "E")
 
-'************************************* SCRITTURA LISTATO
+
-'tt_pch = "GANCIO" '"23G0S"
+
-'R01A = T_SPECIAL(M2 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, tt_pch, "C0.")
+
-'R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, tt_pch, "C0.")
+
-'R01 = R01A & R01B
+Sub S_0902935C(NND)
 
-R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
+ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
-SCST = 0.2
+
-R03A = T_SMUS(-SCST, -SCST)
+CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
-R03B = T_SMUS(L + SCST, H + SCST)
+ss = INPUT_NUM(NND, "M2", ss, ACT_MOD)
-R03C = T_SMUS(L + SCST, -SCST)
+WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
-R03D = T_SMUS(-SCST, H + SCST)
+FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)
-R03 = R03A & R03B & R03C & R03D
+FR = INPUT_NUM(NND, "FR", FR, ACT_MOD)
 MR = INPUT_NUM(NND, "MR", MR, ACT_MOD)
-fn = R02 & R03
+BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
-P1 = 200
+BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
-P2 = L - 250
+
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & R01 & R02 & R03
+
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
-If L > H Then
+XP = (CO + 120 - 170 - 170) / 2
-H1 = H
+XP2 = (CO + 120 - 210 - 210) / 2
-L1 = L
+'*********************************LAVORAZIONI
-L = H1
+
-H = L1
+Select Case VV
-End If
+Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"
 AGG = 2
-    POSINTAB = def_posintab(NND)
+Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"
-    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
+AGG = 1
-    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
+Case Else
-    STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-
+End Select
-    STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+
-    STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+
-    STR_OUT(5) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+R01A = T_SLOT(MR_X(MR - 60 - 47, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170 + XP, H, AGG), 13, 30, 11, 0)
-    STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+R01B = T_SLOT(MR_X(MR - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)
-
+R01C = T_SLOT(MR_X(MR - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 * 2 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)
-    STR_OUT(7) = TL_CUT_O
+R01 = R01A & R01B & R01C
-    STR_OUT(8) = "TOOLANGLE(0)"
+
-    STR_OUT(9) = "MIDCUT(N)"
+R02 = T_CIRC(MR_X(MR, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 2 * 170 + 2 * XP - 60, H, AGG), 3, 3.3)
-    STR_OUT(10) = UnloadOutline(110, 6, 0, -6, H, L)
+
-    STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
+R03 = T_RECT2(MR_X(MR - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(MR + CO + 60, H, AGG), 49 - 8, 10, 16)
-    STR_OUT(12) = "'FINE BLOCCO"
+R04 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 60 + 1, 10.1)
-    Call FVTPT(3, NND, "")
+R05 = T_CIRC(MR_X(9 + FR, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS - FL, H, AGG), 68, 10.1)
-
+
-
+SCC = 1
-    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
+R06 = T_CIRC(MR_X(MR + BL, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + BL + 35, H, AGG), L - 30 - 22 - SCC, 4.2)
-    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
+R07 = T_CIRC(MR_X(9 + ss - 30, H, AGG), L - 30 - 23 - SCC, 6) & T_CIRC(MR_X(9 + ss + 30 + 3, H, AGG), L - 30 - 45 - SCC, 6) 'MANCA QUOTA SUL DISEGNO
-    STR_OUT(2) = TL_CUT_V
+R08 = T_CIRC(MR_X(MR + CO - BR, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + CO - BR - 35, H, AGG), L - 30 - 22 - SCC, 4.2)
-    STR_OUT(3) = "TOOLANGLE(90)"
+
-    STR_OUT(4) = "MIDCUT(N)"
+R09 = T_CIRC(MR_X(MR - 60, H, AGG), L - 30 - 14 - 20, 20.2) & T_CIRC(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 20, 20.2)
-    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
+
-    STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
+R10 = T_SLOT(MR_X(MR - 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90) & T_SLOT(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90)
-
+
-    STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+R11 = T_RECT2(MR_X(H - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(9 + ss + 23 + 32 + 105, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100 - 40, H, AGG), L - (30 - 10.5), 8.6, 8.6)
-    STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+R12 = T_CIRC(MR_X(9 + ss - 96, H, AGG), L - (30 - 10.5), 8.8) '9
-    STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+'R13 = T_SLOT(9 + SS + 23 + 16, L - 30 - 12, 38.8, 6.8, 0)
-    STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+R13 = T_SLOT(MR_X(9 + ss + 23 + 16, H, AGG), L - 30 + 12, 38.8, 7, 0)
-
+R14 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0)
-    STR_OUT(11) = TL_CUT_O
+
-    STR_OUT(12) = "TOOLANGLE(0)"
+
-    STR_OUT(13) = "MIDCUT(N)"
+'Select Case VV
-    STR_OUT(14) = UnloadOutline(110, 6, 0, -6, H, L)
+'Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"
-    STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
+R16 = T_SMUS(H + 1, 141)
-    STR_OUT(16) = "'FINE BLOCCO"
+'Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"
-    Call FVTPT(3, NND, "C")
+'R16 = T_SMUS(-1, 141)
 'Case Else
 'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 'End Select
 
-Sub S_1023836B(ByVal NND As Integer)
+
-ACT_MOD = "1023836"
+
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R16
 
-L = INPUT_NUM(NND, "L", 0, ACT_MOD)
+
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
+
 Call SAVE_SUB(NND, STRINGA)
-'************************************* SCRITTURA LISTATO
+
-'tt_pch = "GANCIO" '"23G0S"
+
-'R01A = T_SPECIAL(M2 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, tt_pch, "C0.")
+
-'R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, tt_pch, "C0.")
+
-'R01 = R01A & R01B
+
 Call FVTPT(3, NND, "C")
-R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5) & T_CIRC(M2 + 35, H - 53, 8.5)
+
 Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
-SCST = 0.2
+Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
-R03A = T_SMUS(-SCST, -SCST)
+Call FVTPT(3, NND, "E")
-R03B = T_SMUS(L + SCST, H + SCST)
+
-R03C = T_SMUS(L + SCST, -SCST)
+
-R03D = T_SMUS(-SCST, H + SCST)
+
-R03 = R03A & R03B & R03C & R03D
+Sub S_0902935D(NND)
 
-fn = R02 & R03
+ACT_MOD = INFO_DAT(NND, 0, 6)
-P1 = 200
+CLAMP = 0
-P2 = L - 250
+NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
-STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & R01 & R02 & R03
+ss = INPUT_NUM(NND, "SS", ss, ACT_MOD)
 WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
 FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)
 FR = INPUT_NUM(NND, "FR", FR, ACT_MOD)
-If L > H Then
+MR = INPUT_NUM(NND, "MR", MR, ACT_MOD)
-H1 = H
+BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
-L1 = L
+BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
-L = H1
+M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
-H = L1
+M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
-End If
+
 
-    POSINTAB = def_posintab(NND)
+
-    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
+L = INPUT_NUM(NND, "L", L, ACT_MOD)
-    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
+
-    STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
+
-
+VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
-    STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+'***********************************************************
-    STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+Dim POSINTAB As Byte
-    STR_OUT(5) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+XP = (CO + 120 - 170 - 170) / 2
-    STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+XP2 = (CO + 120 - 210 - 210) / 2
-
+'*********************************LAVORAZIONI
-    STR_OUT(7) = TL_CUT_O
+
-    STR_OUT(8) = "TOOLANGLE(0)"
+Select Case VV
-    STR_OUT(9) = "MIDCUT(N)"
+Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"
-    STR_OUT(10) = UnloadOutline(110, 6, 0, -6, H, L)
+AGG = 2
-    STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
+Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"
-    STR_OUT(12) = "'FINE BLOCCO"
+AGG = 1
-    Call FVTPT(3, NND, "")
+Case Else
-
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-
+End Select
-    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
+
-    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
+
-    STR_OUT(2) = TL_CUT_V
+R01A = T_SLOT(MR_X(MR - 60 - 47, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170 + XP, H, AGG), 13, 30, 11, 0)
-    STR_OUT(3) = "TOOLANGLE(90)"
+R01B = T_SLOT(MR_X(MR - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)
-    STR_OUT(4) = "MIDCUT(N)"
+R01C = T_SLOT(MR_X(MR - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 * 2 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)
-    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
+R01 = R01A & R01B & R01C
-    STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
+
-
+R02 = T_CIRC(MR_X(MR, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 2 * 170 + 2 * XP - 60, H, AGG), 3, 3.3)
-    STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+
-    STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+R03 = T_RECT2(MR_X(MR - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(MR + CO + 60, H, AGG), 49 - 8, 10, 16)
-    STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+R04 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 60 + 1, 10.1)
-    STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+R05 = T_CIRC(MR_X(9 + FR, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS - FL, H, AGG), 68, 10.1)
-
+
-    STR_OUT(11) = TL_CUT_O
+SCC = 1
-    STR_OUT(12) = "TOOLANGLE(0)"
+R06 = T_CIRC(MR_X(MR + BL, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + BL + 35, H, AGG), L - 30 - 22 - SCC, 4.2)
-    STR_OUT(13) = "MIDCUT(N)"
+R07 = T_CIRC(MR_X(9 + ss - 30, H, AGG), L - 30 - 23 - SCC, 6) & T_CIRC(MR_X(9 + ss + 30 + 3, H, AGG), L - 30 - 45 - SCC, 6) 'MANCA QUOTA SUL DISEGNO
-    STR_OUT(14) = UnloadOutline(110, 6, 0, -6, H, L)
+R08 = T_CIRC(MR_X(MR + CO - BR, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + CO - BR - 35, H, AGG), L - 30 - 22 - SCC, 4.2)
-    STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
+
-    STR_OUT(16) = "'FINE BLOCCO"
+R09 = T_CIRC(MR_X(MR - 60, H, AGG), L - 30 - 14 - 20, 20.2) & T_CIRC(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 20, 20.2)
-    Call FVTPT(3, NND, "C")
+
 R10 = T_SLOT(MR_X(MR - 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90) & T_SLOT(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90)
 
 R11 = T_RECT2(MR_X(H - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + M1, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(9 + ss + 23 + 32 + 105, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100 - 40, H, AGG), L - (30 - 10.5), 8.6, 8.6)
 R12 = T_CIRC(MR_X(9 + ss - 96, H, AGG), L - (30 - 10.5), 8.8) '9
 'R13 = T_SLOT(9 + SS + 23 + 16, L - 30 - 12, 38.8, 6.8, 0)
 R13 = T_SLOT(MR_X(9 + ss + 23 + 16, H, AGG), L - 30 + 12, 38.8, 7, 0)
-Sub S_1006951(ByVal NND As Integer)
+R14 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0)
-ACT_MOD = "1006951"
+
 
 'Select Case VV
 'Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"
-L = INPUT_NUM(NND, "L", 0, ACT_MOD)
+R16 = T_SMUS(H + 1, 141)
 R17 = T_RECT2(MR_X(9 + ss - 154, H, AGG), L - (30 - 10.5), 6.8, 6.8) & T_RECT2(MR_X(9 + ss + M2, H, AGG), L - (30 - 10.5), 6.8, 6.8)
 'Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"
 'R16 = T_SMUS(-1, 141)
 'Case Else
-M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
+'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
+'End Select
 
-'************************************* SCRITTURA LISTATO
+
 
-'tt_pch = "GANCIO" '"23G0S"
+'**********************************************
-'R01A = T_SPECIAL(M2 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, tt_pch, "C0.")
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R16 & R17
-'R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, tt_pch, "C0.")
+
-'R01 = R01A & R01B
+
 P1 = 250
-R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
+P2 = H - 400
 MVAL = 500
-SCST = 0.2
+STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-R03A = T_SMUS(-SCST, -SCST)
+
-R03B = T_SMUS(L + SCST, H + SCST)
+
-R03C = T_SMUS(L + SCST, -SCST)
+
-R03D = T_SMUS(-SCST, H + SCST)
+
-R03 = R03A & R03B & R03C & R03D
+
 Call FVTPT(3, NND, "")
-fn = R02 & R03
+
-P1 = 200
+
-P2 = L - 250
+
 Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
-STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
+Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
-If L > H Then
+
-H1 = H
+
-L1 = L
+Sub S_1006615C(NND)
-L = H1
+
-H = L1
+ACT_MOD = INFO_DAT(NND, 0, 6)
-End If
+CLAMP = 0
 NHD = 15
-    POSINTAB = def_posintab(NND)
+
-    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
+CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
-    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
+WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
-    STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
+
-    STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+L = INPUT_NUM(NND, "L", L, ACT_MOD)
-    STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+
-    STR_OUT(5) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+
-    STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
-    STR_OUT(7) = TL_CUT_O
+'***********************************************************
-    STR_OUT(8) = "TOOLANGLE(0)"
+Dim POSINTAB As Byte
-    STR_OUT(9) = "MIDCUT(N)"
+
-    STR_OUT(10) = UnloadOutline(110, 6, 0, -6, H, L)
+'*********************************LAVORAZIONI
-    STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
+
-    STR_OUT(12) = "'FINE BLOCCO"
+ Select Case CO
-    Call FVTPT(3, NND, "")
+ Case 600
-
+ M1 = 141.2
-
+ Case 650
-    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
+ M1 = 166.2
-    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
+ Case 700
-    STR_OUT(2) = TL_CUT_V
+ M1 = 191.2
-    STR_OUT(3) = "TOOLANGLE(90)"
+ Case 750
-    STR_OUT(4) = "MIDCUT(N)"
+ M1 = 216.2
-    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
+ Case 800
-    STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
+ M1 = 241.2
-    STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+ Case 850
-    STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+ M1 = 266.2
-    STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+ Case 900
-    STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+ M1 = 291.2
-    STR_OUT(11) = TL_CUT_O
+ Case Else
-    STR_OUT(12) = "TOOLANGLE(0)"
+ MsgBox ("errore CO su " & ACT_MOD)
-    STR_OUT(13) = "MIDCUT(N)"
+ End Select
-    STR_OUT(14) = UnloadOutline(110, 6, 0, -6, H, L)
+
-    STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
+
-    STR_OUT(16) = "'FINE BLOCCO"
+
-    Call FVTPT(3, NND, "C")
+R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(9, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
 R02 = T_CIRC(H - 87.5, 5, 3.3) & T_CIRC(H - 87.5 - (CO / 2), 5, 3.3) & T_CIRC(H - 87.5 - CO, 5, 3.3)
 
 'R03 = T_SLOT(H - 27.5, 16.6, 15, 6.8, 90) & T_SLOT(H - 197.5, 16.6, 15, 6.8, 90) & T_SLOT(H - 87.5 - CO + 30, 16.6, 15, 6.8, 90) & T_SLOT(H - 87.5 - CO - 60, 16.6, 15, 6.8, 90)
 R03 = T_SLOT(H - 27.5, 19.5, 25, 11, 90) & T_SLOT(H - 197.5, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO + 30, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO - 60, 19.5, 25, 11, 90)
-Sub S_1006951C(ByVal NND As Integer)
+'R03 = T_RECT2(H - 27.5, 16.6, 6.8, 15) & T_RECT2(H - 197.5, 16.6, 6.8, 15) & T_RECT2(H - 87.5 - CO + 30, 16.6, 6.8, 15) & T_RECT2(H - 87.5 - CO - 60, 16.6, 6.8, 15)
-ACT_MOD = "1006951"
+
 R19 = T_CIRC(H - 85 - 49, L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(H - 85, L - 38.5 - 39 - 1.5, 10.1)
 
 R04 = T_CIRC(9 + WS, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 78.5 - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
-L = INPUT_NUM(NND, "L", 0, ACT_MOD)
+R05 = T_CIRC(H - 27.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 197.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO + 30, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO - 60, L - 8.5 - 30 - 55 - 1, 20.2)
 R06 = T_SLOT(H - 27.5, L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(H - 197.5, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO + 30, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO - 60, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
 
 R07 = T_RECT2(H - 27.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 197.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO + 30 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO - 60 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10)
 R08 = T_CIRC(H - 78.5 - 57.5 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(H - 78.5 - 57.5 - 10 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6)
-M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
+R09 = T_CIRC(H - 87.5 - CO - 60 + 152, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(H - 87.5 - CO - 60 + 152 + 35, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
-M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
+R10 = T_CIRC(H - 12, L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(H - 24, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233 + 129.8, L - 8.5 - 30 + 12.5, 7.2)
-M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
+R11 = T_CIRC(H - 47.5, L - 8.5 - 30 + 21, 10.1) & T_CIRC(H - 47.5 - 88.6, L - 8.5 - 30 + 15, 10.1)
-'************************************* SCRITTURA LISTATO
+
 'R12 = T_SLOT(141.2 + 22 - 72 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 - 50 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 + 22 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0)
-R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
+'R13 = T_SLOT(141.2 + 22, L - 8.5 - 30 + 9 + 12, 15, 6.8, 0) & T_SLOT(141.2 - 2.8, L - 8.5 - 30 + 9 + 12, 15, 6.8, 0)
 R12 = T_SLOT(M1 + 22 - 72 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M1 + 22 - 50 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M1 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M1 + 22 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0)
-SCST = 0.2
+R13 = T_SLOT(M1 - 2.8 + 22, L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(M1 - 2.8, L - 8.5 - 30 + 7 + 12, 15, 7, 0)
-R03A = T_SMUS(-SCST, -SCST)
+
-R03B = T_SMUS(L + SCST, H + SCST)
+R14 = T_RECT2(M1 - 2.8 - 25.2, L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(M1 + 6, L - 8.5 - 30 + 7, 8.6, 8.6)
-R03C = T_SMUS(L + SCST, -SCST)
+R15 = T_RECT1(-6, M1, L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(H - 172.5, H - 87.5 - 30 + 6, L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(H - 87.5 - 30, H - 87.5 + 30, L - 8.5 - 30 - 1, L + 6)
-R03D = T_SMUS(-SCST, H + SCST)
+
-R03 = R03A & R03B & R03C & R03D
+R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 30 + 24.5, "7SQ", 0)
 R17 = T_SPECIAL(M1, L, "7SQ", 0) & T_SPECIAL(H - 172.5, L, "7SQ", 0) & T_SPECIAL(H - 87.5 - 30, L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(H - 87.5 + 30, L, "7SQ", 0)
-fn = R02 & R03
+
-P1 = 200
+R18 = T_RECT2(H - 78.5 - 9, L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
-P2 = L - 250
+
 
-STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
+Select Case VV
 Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
 R20 = T_SMUS(H + 1, L - 96)
 Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
-If L > H Then
+R20 = T_SMUS(-1, L - 96)
-H1 = H
+Case Else
-L1 = L
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-L = H1
+End Select
-H = L1
+
-End If
+
 '**********************************************
-    POSINTAB = def_posintab(NND)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20
-    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
+
-    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
+
-    STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
+P1 = 250
-    STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+P2 = H - 400
-    STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+
-    STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-    STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+
-
+
-    STR_OUT(12) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
+
-    STR_OUT(11) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
+
-
+
-    STR_OUT(13) = TL_CUT_O
+
-    STR_OUT(14) = "TOOLANGLE(0)"
+
-    STR_OUT(15) = "MIDCUT(N)"
+
-    STR_OUT(16) = UnloadOutline(110, 6, 0, -6, H, L)
+Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
-    STR_OUT(17) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
+Call FVTPT(3, NND, "D")
-    STR_OUT(18) = "'FINE BLOCCO"
+Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
-    Call FVTPT(3, NND, "")
+Call FVTPT(3, NND, "E")
-
+
-
+
-    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
+
-    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
+
-    STR_OUT(2) = TL_CUT_V
+
-    STR_OUT(3) = "TOOLANGLE(90)"
+Sub S_1006615E(NND)
-    STR_OUT(4) = "MIDCUT(N)"
+
-    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
+ACT_MOD = INFO_DAT(NND, 0, 6)
-    STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
+CLAMP = 0
-    STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+NHD = 15
-    STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+
-    STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
-    STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
+WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
-
+L = INPUT_NUM(NND, "L", L, ACT_MOD)
-    STR_OUT(12) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
+
-    STR_OUT(11) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
+
-
+M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
-    STR_OUT(13) = TL_CUT_O
+M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
-    STR_OUT(14) = "TOOLANGLE(0)"
+M3 = INPUT_STR(NND, "M3", M3, ACT_MOD)
-    STR_OUT(15) = "MIDCUT(N)"
+VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
-    STR_OUT(16) = UnloadOutline(110, 6, 0, -6, H, L)
+'***********************************************************
-    STR_OUT(17) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
+Dim POSINTAB As Byte
-    STR_OUT(18) = "'FINE BLOCCO"
+
-    Call FVTPT(3, NND, "C")
+'*********************************LAVORAZIONI
 
 ' Select Case co
 ' Case 600
 ' M1 = 141.2
 ' Case 650
 ' M1 = 166.2
 ' Case 700
 ' M1 = 191.2
 ' Case 750
 ' M1 = 216.2
 ' Case 800
 ' M1 = 241.2
 ' Case 850
 ' M1 = 266.2
 ' Case 900
 ' M1 = 291.2
 ' Case Else
 ' MsgBox ("errore CO su " & ACT_MOD)
 ' End Select
 
 
 
 R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(9, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
 R02 = T_CIRC(H - 87.5, 5, 3.3) & T_CIRC(H - 87.5 - (CO / 2), 5, 3.3) & T_CIRC(H - 87.5 - CO, 5, 3.3)
 
 'R03 = T_SLOT(H - 27.5, 16.6, 15, 6.8, 90) & T_SLOT(H - 197.5, 16.6, 15, 6.8, 90) & T_SLOT(H - 87.5 - CO + 30, 16.6, 15, 6.8, 90) & T_SLOT(H - 87.5 - CO - 60, 16.6, 15, 6.8, 90)
 R03 = T_SLOT(H - 27.5, 19.5, 25, 11, 90) & T_SLOT(H - 197.5, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO + 30, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO - 60, 19.5, 25, 11, 90)
 'R03 = T_RECT2(H - 27.5, 16.6, 6.8, 15) & T_RECT2(H - 197.5, 16.6, 6.8, 15) & T_RECT2(H - 87.5 - CO + 30, 16.6, 6.8, 15) & T_RECT2(H - 87.5 - CO - 60, 16.6, 6.8, 15)
 
 R19 = T_CIRC(H - 85 - 49, L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(H - 85, L - 38.5 - 39 - 1.5, 10.1)
 
 R04 = T_CIRC(9 + WS, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 78.5 - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
 R05 = T_CIRC(H - 27.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 197.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO + 30, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO - 60, L - 8.5 - 30 - 55 - 1, 20.2)
 R06 = T_SLOT(H - 27.5, L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(H - 197.5, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO + 30, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO - 60, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
 
 R07 = T_RECT2(H - 27.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 197.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO + 30 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO - 60 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10)
 R08 = T_CIRC(H - 78.5 - 57.5 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(H - 78.5 - 57.5 - 10 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6)
 R09 = T_CIRC(H - 87.5 - CO - 60 + 152, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(H - 87.5 - CO - 60 + 152 + 35, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
 R10 = T_CIRC(H - 12, L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(H - 24, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233 + 129.8, L - 8.5 - 30 + 12.5, 7.2)
 R11 = T_CIRC(H - 47.5, L - 8.5 - 30 + 21, 10.1) & T_CIRC(H - 47.5 - 88.6, L - 8.5 - 30 + 15, 10.1)
 
 'R12 = T_SLOT(141.2 + 22 - 72 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 - 50 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 + 22 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0)
 'R13 = T_SLOT(141.2 + 22, L - 8.5 - 30 + 9 + 12, 15, 6.8, 0) & T_SLOT(141.2 - 2.8, L - 8.5 - 30 + 9 + 12, 15, 6.8, 0)
 R12 = T_SLOT(M2 + 22 - 72 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 50 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0)
 R13 = T_SLOT(M2 - 2.8 + 22, L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(M2 - 2.8, L - 8.5 - 30 + 7 + 12, 15, 7, 0)
 
 R14 = T_RECT2(M2 - 2.8 - 25.2, L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(M2 + 6, L - 8.5 - 30 + 7, 8.6, 8.6)
 R15 = T_RECT1(-6, M2, L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(H - 172.5, H - 87.5 - 30 + 6, L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(H - 87.5 - 30, H - 87.5 + 30, L - 8.5 - 30 - 1, L + 6)
 
 R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 30 + 24.5, "7SQ", 0)
 R17 = T_SPECIAL(M2, L, "7SQ", 0) & T_SPECIAL(H - 172.5, L, "7SQ", 0) & T_SPECIAL(H - 87.5 - 30, L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(H - 87.5 + 30, L, "7SQ", 0)
 
 R18 = T_RECT2(H - 78.5 - 9, L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
 
 
 Select Case VV
 Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
 R20 = T_SMUS(H + 1, L - 96)
 Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
 R20 = T_SMUS(-1, L - 96)
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 
 Sub S_1006615F(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_STR(NND, "M3", M3, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
 
 R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(9, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
 R02 = T_CIRC(H - 87.5, 5, 3.3) & T_CIRC(H - 87.5 - (CO / 2), 5, 3.3) & T_CIRC(H - 87.5 - CO, 5, 3.3)
 
 R03 = T_SLOT(H - 27.5, 19.5, 25, 11, 90) & T_SLOT(H - 197.5, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO + 30, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO - 60, 19.5, 25, 11, 90)
 R03 = R03 & T_SLOT(H - 87.5 - CO + 30 + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV F
 
 R19 = T_CIRC(H - 85 - 49, L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(H - 85, L - 38.5 - 39 - 1.5, 10.1)
 
 R04 = T_CIRC(9 + WS, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 78.5 - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
 R05 = T_CIRC(H - 27.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 197.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO + 30, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO - 60, L - 8.5 - 30 - 55 - 1, 20.2)
 R05 = R05 & T_CIRC(H - 87.5 - CO + 30 + 100, L - 8.5 - 30 - 55 - 1, 20.2) 'AGGIUNTA REV F
 
 R06 = T_SLOT(H - 27.5, L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(H - 197.5, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO + 30, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO - 60, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
 R06 = R06 & T_SLOT(H - 87.5 - CO + 30 + 100, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) 'AGGIUNTA REV F
 
 R07 = T_RECT2(H - 27.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 197.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO + 30 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO - 60 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10)
 R07 = R07 & T_RECT2(H - 87.5 - CO + 30 - 21.5 + 100, L - 8.5 - 30 - 37.5 - 1, 10, 10) 'AGGIUNTA REV F
 
 R08 = T_CIRC(H - 78.5 - 57.5 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(H - 78.5 - 57.5 - 10 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6)
 R09 = T_CIRC(H - 87.5 - CO - 60 + 152, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(H - 87.5 - CO - 60 + 152 + 35, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
 R10 = T_CIRC(H - 12, L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(H - 24, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233 + 129.8, L - 8.5 - 30 + 12.5, 7.2)
 R11 = T_CIRC(H - 47.5, L - 8.5 - 30 + 21, 10.1) & T_CIRC(H - 47.5 - 88.6, L - 8.5 - 30 + 15, 10.1)
 
 R12 = T_SLOT(M2 + 22 - 72 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 50 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0)
 R13 = T_SLOT(M2 - 2.8 + 22, L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(M2 - 2.8, L - 8.5 - 30 + 7 + 12, 15, 7, 0)
 
 R14 = T_RECT2(M2 - 2.8 - 25.2, L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(M2 + 6, L - 8.5 - 30 + 7, 8.6, 8.6)
 R15 = T_RECT1(-6, M2, L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(H - 172.5, H - 87.5 - 30 + 6, L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(H - 87.5 - 30, H - 87.5 + 30, L - 8.5 - 30 - 1, L + 6)
 
 R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 30 + 24.5, "7SQ", 0)
 R17 = T_SPECIAL(M2, L, "7SQ", 0) & T_SPECIAL(H - 172.5, L, "7SQ", 0) & T_SPECIAL(H - 87.5 - 30, L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(H - 87.5 + 30, L, "7SQ", 0)
 
 R18 = T_RECT2(H - 78.5 - 9, L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
 
 
 Select Case VV
 Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
 R20 = T_SMUS(H + 1, L - 96)
 Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
 R20 = T_SMUS(-1, L - 96)
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_1006615G(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_STR(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_STR(NND, "M4", M4, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
 
 R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(9, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
 R02 = T_CIRC(H - 87.5, 5, 3.3) & T_CIRC(H - 87.5 - (CO / 2), 5, 3.3) & T_CIRC(H - 87.5 - CO, 5, 3.3)
 
 R03 = T_SLOT(H - 27.5, 19.5, 25, 11, 90) & T_SLOT(H - 197.5, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO + 30, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO - 60, 19.5, 25, 11, 90)
 R03 = R03 & T_SLOT(H - 87.5 - CO + 30 + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV F
 
 R19 = T_CIRC(H - 85 - 49, L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(H - 85, L - 38.5 - 39 - 1.5, 10.1)
 
 R04 = T_CIRC(9 + WS, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 78.5 - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
 R05 = T_CIRC(H - 27.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 197.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO + 30, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO - 60, L - 8.5 - 30 - 55 - 1, 20.2)
 R05 = R05 & T_CIRC(H - 87.5 - CO + 30 + 100, L - 8.5 - 30 - 55 - 1, 20.2) 'AGGIUNTA REV F
 
 R06 = T_SLOT(H - 27.5, L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(H - 197.5, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO + 30, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO - 60, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
 R06 = R06 & T_SLOT(H - 87.5 - CO + 30 + 100, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) 'AGGIUNTA REV F
 
 R07 = T_RECT2(H - 27.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 197.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO + 30 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO - 60 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10)
 R07 = R07 & T_RECT2(H - 87.5 - CO + 30 - 21.5 + 100, L - 8.5 - 30 - 37.5 - 1, 10, 10) 'AGGIUNTA REV F
 
 R08 = T_CIRC(H - 78.5 - 57.5 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(H - 78.5 - 57.5 - 10 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6)
 R09 = T_CIRC(H - 87.5 - CO - 60 + 152, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(H - 87.5 - CO - 60 + 152 + 35, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
 R10 = T_CIRC(H - 12, L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(H - 24, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233 + 129.8, L - 8.5 - 30 + 12.5, 7.2)
 R11 = T_CIRC(H - 47.5, L - 8.5 - 30 + 21, 10.1) & T_CIRC(H - 47.5 - 88.6, L - 8.5 - 30 + 15, 10.1)
 
 R12 = T_SLOT(M2 + 22 - 72 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 50 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0)
 R13 = T_SLOT(M2 - 2.8 + 22, L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(M2 - 2.8, L - 8.5 - 30 + 7 + 12, 15, 7, 0)
 
 R14 = T_RECT2(M2 - 2.8 - 25.2, L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(M2 + 6, L - 8.5 - 30 + 7, 8.6, 8.6)
 R15 = T_RECT1(-6, M2, L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(H - 172.5, H - 87.5 - 30 + 6, L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(H - 87.5 - 30, H - 87.5 + 30, L - 8.5 - 30 - 1, L + 6)
 
 R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 30 + 24.5, "7SQ", 0)
 R17 = T_SPECIAL(M2, L, "7SQ", 0) & T_SPECIAL(H - 172.5, L, "7SQ", 0) & T_SPECIAL(H - 87.5 - 30, L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(H - 87.5 + 30, L, "7SQ", 0)
 
 R18 = T_RECT2(H - 78.5 - 9, L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
 
 
 Select Case VV
 Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
 R20 = T_SMUS(H + 1, L - 96)
 Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
 R20 = T_SMUS(-1, L - 96)
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
 R21 = T_CIRC(H - 87.5 - M4 - 56, L - 8.5 - 12, 6) & T_CIRC(H - 87.5 - M4, L - 8.5 - 12, 6)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 
 Sub S_1006615H(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_STR(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_STR(NND, "M4", M4, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
 Select Case VV
 Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
 AGG = 2
 Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
 AGG = 1
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
 
 R01 = T_CIRC(MR_X(9, H, AGG), 12, 8.8) & T_CIRC(MR_X(9, H, AGG), 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(MR_X(H - 9, H, AGG), 12, 8.8) & T_CIRC(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(MR_X(9, H, AGG), 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 12 + 0.5, 10.1)
 R02 = T_CIRC(MR_X(H - 87.5, H, AGG), 5, 3.3) & T_CIRC(MR_X(H - 87.5 - (CO / 2), H, AGG), 5, 3.3) & T_CIRC(MR_X(H - 87.5 - CO, H, AGG), 5, 3.3)
 
 R03 = T_SLOT(MR_X(H - 27.5, H, AGG), 19.5, 25, 11, 90) & T_SLOT(MR_X(H - 197.5, H, AGG), 19.5, 25, 11, 90) & T_SLOT(MR_X(H - 87.5 - CO + 30, H, AGG), 19.5, 25, 11, 90) & T_SLOT(MR_X(H - 87.5 - CO - 60, H, AGG), 19.5, 25, 11, 90)
 R03 = R03 & T_SLOT(MR_X(H - 87.5 - CO + 30 + 100, H, AGG), 19.5, 25, 11, 90) 'AGGIUNTA REV F
 
 R19 = T_CIRC(MR_X(H - 85 - 49, H, AGG), L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(MR_X(H - 85, H, AGG), L - 38.5 - 39 - 1.5, 10.1)
 
 R04 = T_CIRC(MR_X(9 + WS, H, AGG), 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(MR_X(H - 78.5 - 9, H, AGG), 26.8 + 21.4 + 12 + 0.5, 10.1)
 R05 = T_CIRC(MR_X(H - 27.5, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(MR_X(H - 197.5, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(MR_X(H - 87.5 - CO + 30, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(MR_X(H - 87.5 - CO - 60, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2)
 R05 = R05 & T_CIRC(MR_X(H - 87.5 - CO + 30 + 100, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2) 'AGGIUNTA REV F
 
 R06 = T_SLOT(MR_X(H - 27.5, H, AGG), L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(MR_X(H - 197.5, H, AGG), L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(MR_X(H - 87.5 - CO + 30, H, AGG), L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(MR_X(H - 87.5 - CO - 60, H, AGG), L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
 R06 = R06 & T_SLOT(MR_X(H - 87.5 - CO + 30 + 100, H, AGG), L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) 'AGGIUNTA REV F
 
 R07 = T_RECT2(MR_X(H - 27.5 - 21.5, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(MR_X(H - 197.5 - 21.5, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(MR_X(H - 87.5 - CO + 30 - 21.5, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(MR_X(H - 87.5 - CO - 60 - 21.5, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10)
 R07 = R07 & T_RECT2(MR_X(H - 87.5 - CO + 30 - 21.5 + 100, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10) 'AGGIUNTA REV F
 
 R08 = T_CIRC(MR_X(H - 78.5 - 57.5 - 9, H, AGG), L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(MR_X(H - 78.5 - 57.5 - 10 - 9, H, AGG), L - 8.5 - 30 - 37.75 - 1, 3.6)
 R09 = T_CIRC(MR_X(H - 87.5 - CO - 60 + 152, H, AGG), 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(MR_X(H - 87.5 - CO - 60 + 152 + 35, H, AGG), 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
 R10 = T_CIRC(MR_X(H - 12, H, AGG), L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(MR_X(H - 24, H, AGG), L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(MR_X(H - 24 - 222, H, AGG), L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(MR_X(H - 24 - 222 - 233, H, AGG), L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(MR_X(H - 24 - 222 - 233 + 129.8, H, AGG), L - 8.5 - 30 + 12.5, 7.2)
 R11 = T_CIRC(MR_X(H - 47.5, H, AGG), L - 8.5 - 30 + 21, 10.1) & T_CIRC(MR_X(H - 47.5 - 88.6, H, AGG), L - 8.5 - 30 + 15, 10.1)
 
 R12 = T_SLOT(MR_X(M2 + 22 - 72 - 2.8, H, AGG), L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(MR_X(M2 + 22 - 50 - 2.8, H, AGG), L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(MR_X(M2 + 22 - 2.8, H, AGG), L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(MR_X(M2 + 22 + 22 - 2.8, H, AGG), L - 8.5 - 30 + 7, 15, 7, 0)
 R13 = T_SLOT(MR_X(M2 - 2.8 + 22, H, AGG), L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(MR_X(M2 - 2.8, H, AGG), L - 8.5 - 30 + 7 + 12, 15, 7, 0)
 
 R14 = T_RECT2(MR_X(M2 - 2.8 - 25.2, H, AGG), L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(MR_X(M2 + 6, H, AGG), L - 8.5 - 30 + 7, 8.6, 8.6)
 R15 = T_RECT1(MR_X(-6, H, AGG), MR_X(M2, H, AGG), L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(MR_X(H - 172.5, H, AGG), MR_X(H - 87.5 - 30 + 6, H, AGG), L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(MR_X(H - 87.5 - 30, H, AGG), MR_X(H - 87.5 + 30, H, AGG), L - 8.5 - 30 - 1, L + 6)
 
 R16 = T_SPECIAL(MR_X(0, H, AGG), 0, "7SQ", 0) & T_SPECIAL(MR_X(H, H, AGG), 0, "7SQ", 0) & T_SPECIAL(MR_X(H, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(0, H, AGG), L - 8.5 - 30 + 24.5, "7SQ", 0)
 R17 = T_SPECIAL(MR_X(M2, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(H - 172.5, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(H - 87.5 - 30, H, AGG), L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(MR_X(H - 87.5 + 30, H, AGG), L, "7SQ", 0)
 
 R18 = T_RECT2(MR_X(H - 78.5 - 9, H, AGG), L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
 
 
 'Select Case VV
 'Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
 R20 = T_SMUS(H + 1, L - 96)
 'Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
 'R20 = T_SMUS(-1, L - 96)
 'Case Else
 'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 'End Select
 
 R21 = T_CIRC(MR_X(H - 87.5 - M4 - 53, H, AGG), L - 8.5 - 12, 6) & T_CIRC(MR_X(H - 87.5 - M4, H, AGG), L - 8.5 - 12, 6)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 
 Sub S_0902920C(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 ss = INPUT_NUM(NND, "SS", ss, ACT_MOD)
 F = INPUT_NUM(NND, "F", F, ACT_MOD)
 G = INPUT_NUM(NND, "G", G, ACT_MOD)
 BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
 BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
 WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + F, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 317, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + WS, 26.8 + 21.4 + 12, 10.1)
  R03 = T_CIRC(H - 130, 5, 3.3) & T_CIRC(H - 130 - (CO / 2), 5, 3.3) & T_CIRC(H - 130 - CO, 5, 3.3)
  R04 = T_SLOT(H - 160, 19.5, 25, 11, 90) & T_SLOT(H - 160 - (CO - 60), 19.5, 25, 11, 90)
 
  R05 = T_CIRC(H - 160 - BR, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - BR - 35, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - (CO - 60) + BL + 35, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - (CO - 60) + BL, L - 8.5 - 30 - 86 - 2, 4.2)
  R06 = T_CIRC(9 + WS + 23, L - 8.5 - 30 - 60 - 15 - 1.3, 3.6) & T_CIRC(9 + WS + 23, L - 8.5 - 30 - 60 - 1.3, 3.6) & T_CIRC(9 + WS + 53.5, L - 8.5 - 30 - 18 - 1.7, 3.6) & T_CIRC(9 + WS - 57.5, L - 8.5 - 30 - 37 - 1.7, 3.6) & T_CIRC(9 + WS - 57.5 - 10, L - 8.5 - 30 - 37 - 1.7, 3.6)
  R07 = T_CIRC(9 + WS - 13, L - 8.5 - 30 - 41 + 1, 10.1) & T_CIRC(9 + WS + 61, L - 8.5 - 30 - 41 + 1, 10.1)
 
  R08 = T_RECT2(H - 160 - CO + 60 - 21.5, L - 8.5 - 30 - 36.5 - 2, 10, 10) & T_RECT2(H - 160 + 21.5, L - 8.5 - 30 - 36.5 - 2, 10, 10)
  R09 = T_RECT2(H - 9 - ss, L - 8.5 - 30 - 21 - 2, 26, 20)
  R10 = T_CIRC(H - 160 - CO + 60, L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2) & T_CIRC(H - 160, L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2)
  R11 = T_SLOT(H - 160 - CO + 60, L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90) & T_SLOT(H - 160, L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90)
 
 'R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5, 18, 6.8, 0)
  R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5 - 1, 18, 7, 0)
  R13 = T_SLOT(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(9 + WS + 67 - 234.5 - 50, L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 115, L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0)
 ' If CO = 900 Then
 ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 6.8, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
 ' Else
 ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 6.8, 0)
 ' End If
  If CO = 900 Then
  R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 7, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
  Else
  R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 7, 0)
  End If
  R15 = T_SLOT(9 + WS + 67 - 234.5 - 50, L - 30 - 8.5 + 4.75, 10, 4.5, 0) & T_SLOT(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), L - 30 - 8.5 + 4.75, 10, 4.5, 0)
 ' R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 15, 6.8, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 15, 6.8, 0)
  R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 18, 7, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 18, 7, 0)
 
  R17 = T_CIRC(9 + WS - 67 - 170.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS - 67, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS - 67 + 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  R18 = T_CIRC(9 + WS - 40, L - 38.5 + 16.25, 10.1) & T_CIRC(9 + WS + 40, L - 38.5 + 16.25, 10.1)
 
  R19 = T_RECT2(H - 83.5 - 22, L - 38.5 + 15.5, 8.6, 8.6)
  R20 = T_RECT1(-6, G + 25.8, L - 38.5 + 24.5, L + 6) & T_RECT1(9 + WS - 55.9 - 30, 9 + WS + 40.1 + 30, L - 8.5 - 6.7, L + 6) & T_RECT1(9 + WS - 30, 9 + WS + 30, L - 38.5 - 0.5, L + 6) & T_RECT1(H - 35, H + 6, L - 38.5 + 19, L + 6) & T_RECT1(H - 60, H - 34, L - 38.5 + 28, L + 6)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 38.5 + 24.5, "7SQ", 0) & T_SPECIAL(G + 25.8, L, "7SQ", 0) & T_SPECIAL(H, L - 38.5 + 19, "7SQ", 0) & T_SPECIAL(H - 60, L, "7SQ", 0) & T_SPECIAL(H - 44 + 5.3 + 0.2, L - (10.5 + 5.5) + 5.3 + 0.2, "7SQ", 0) & T_SPECIAL(H - 44 + 5.5 + 3.6, L - (10.5 + 5.5) + 5.5 - 3.6, "7SQ", 0)
  R22 = T_SPECIAL(9 + WS - 55.9 - 30, L, "7SQ", 0) & T_SPECIAL(9 + WS + 40.1 + 30, L, "7SQ", 0) & T_SPECIAL(9 + WS + 30, L - 15.2, "7SQ", 0) & T_SPECIAL(9 + WS - 30, L - 15.2, "7SQ", 0)
 
 
  Select Case VV
     Case "P01", "P03", "P05", "P07", "P09", "P11", "P13"
     R23 = T_SMUS(H + 1, L - 38.5 - 27.5 - 10)
     Case "P12", "P14", "P02", "P04", "P06", "P08", "P10"
     R23 = T_SMUS(-1, L - 38.5 - 27.5 - 10)
     Case Else
     MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
     End Select
 
 
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 
 Sub S_0902920D(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 ss = INPUT_NUM(NND, "SS", ss, ACT_MOD)
 F = INPUT_NUM(NND, "F", F, ACT_MOD)
 G = INPUT_NUM(NND, "G", G, ACT_MOD)
 BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
 BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
 WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + F, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 317, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + WS, 26.8 + 21.4 + 12, 10.1)
  R03 = T_CIRC(H - 130, 5, 3.3) & T_CIRC(H - 130 - (CO / 2), 5, 3.3) & T_CIRC(H - 130 - CO, 5, 3.3)
  R04 = T_SLOT(H - 160, 19.5, 25, 11, 90) & T_SLOT(H - 160 - (CO - 60), 19.5, 25, 11, 90)
 
  R05 = T_CIRC(H - 160 - BR, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - BR - 35, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - (CO - 60) + BL + 35, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - (CO - 60) + BL, L - 8.5 - 30 - 86 - 2, 4.2)
  R06 = T_CIRC(9 + WS + 23, L - 8.5 - 30 - 60 - 15 - 1.3, 3.6) & T_CIRC(9 + WS + 23, L - 8.5 - 30 - 60 - 1.3, 3.6) & T_CIRC(9 + WS + 53.5, L - 8.5 - 30 - 18 - 1.7, 3.6) & T_CIRC(9 + WS - 57.5, L - 8.5 - 30 - 37 - 1.7, 3.6) & T_CIRC(9 + WS - 57.5 - 10, L - 8.5 - 30 - 37 - 1.7, 3.6)
  R07 = T_CIRC(9 + WS - 13, L - 8.5 - 30 - 41 + 1, 10.1) & T_CIRC(9 + WS + 61, L - 8.5 - 30 - 41 + 1, 10.1)
 
  R08 = T_RECT2(H - 160 - CO + 60 - 21.5, L - 8.5 - 30 - 36.5 - 2, 10, 10) & T_RECT2(H - 160 + 21.5, L - 8.5 - 30 - 36.5 - 2, 10, 10)
  R09 = T_RECT2(H - 9 - ss, L - 8.5 - 30 - 21 - 2, 26, 20)
  R10 = T_CIRC(H - 160 - CO + 60, L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2) & T_CIRC(H - 160, L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2)
  R11 = T_SLOT(H - 160 - CO + 60, L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90) & T_SLOT(H - 160, L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90)
 
 'R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5, 18, 6.8, 0)
  R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5 - 1, 18, 7, 0)
  R13 = T_SLOT(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(9 + WS + 67 - 234.5 - 50, L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 115, L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0)
 ' If CO = 900 Then
 ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 6.8, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
 ' Else
 ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 6.8, 0)
 ' End If
  If CO = 900 Then
  R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 7, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
  Else
  R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 7, 0)
  End If
  R15 = T_SLOT(9 + WS + 67 - 234.5 - 50, L - 30 - 8.5 + 4.75, 10, 4.5, 0) & T_SLOT(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), L - 30 - 8.5 + 4.75, 10, 4.5, 0)
 ' R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 15, 6.8, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 15, 6.8, 0)
  R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 18, 7, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 18, 7, 0)
 
  R17 = T_CIRC(9 + WS - 67 - 170.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS - 67, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS - 67 + 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  R18 = T_CIRC(9 + WS - 40, L - 38.5 + 16.25, 10.1) & T_CIRC(9 + WS + 40, L - 38.5 + 16.25, 10.1)
 
  R19 = T_RECT2(H - 83.5 - 22, L - 38.5 + 15.5, 8.6, 8.6)
  R20 = T_RECT1(-6, G + 25.8, L - 38.5 + 24.5, L + 6) & T_RECT1(9 + WS - 55.9 - 30, 9 + WS + 40.1 + 30, L - 8.5 - 6.7, L + 6) & T_RECT1(9 + WS - 30, 9 + WS + 30, L - 38.5 - 0.5, L + 6) & T_RECT1(H - 35, H + 6, L - 38.5 + 19, L + 6) & T_RECT1(H - 60, H - 34, L - 38.5 + 28, L + 6)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 38.5 + 24.5, "7SQ", 0) & T_SPECIAL(G + 25.8, L, "7SQ", 0) & T_SPECIAL(H, L - 38.5 + 19, "7SQ", 0) & T_SPECIAL(H - 60, L, "7SQ", 0) & T_SPECIAL(H - 44 + 5.3 + 0.2, L - (10.5 + 5.5) + 5.3 + 0.2, "7SQ", 0) & T_SPECIAL(H - 44 + 5.5 + 3.6, L - (10.5 + 5.5) + 5.5 - 3.6, "7SQ", 0)
  R22 = T_SPECIAL(9 + WS - 55.9 - 30, L, "7SQ", 0) & T_SPECIAL(9 + WS + 40.1 + 30, L, "7SQ", 0) & T_SPECIAL(9 + WS + 30, L - 15.2, "7SQ", 0) & T_SPECIAL(9 + WS - 30, L - 15.2, "7SQ", 0)
 
 
  Select Case VV
     Case "P01", "P03", "P05", "P07", "P09", "P11", "P13"
     R23 = T_SMUS(H + 1, L - 38.5 - 27.5 - 10)
     Case "P12", "P14", "P02", "P04", "P06", "P08", "P10"
     R23 = T_SMUS(-1, L - 38.5 - 27.5 - 10)
     Case Else
     MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  End Select
 
  R24 = T_CIRC(H - 130 - M1, L - 12.25 - 8.5, 6) & T_CIRC(H - 130 - M1 - 56, L - 12.25 - 8.5, 6)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_0902920F(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 ss = INPUT_NUM(NND, "SS", ss, ACT_MOD)
 F = INPUT_NUM(NND, "F", F, ACT_MOD)
 G = INPUT_NUM(NND, "G", G, ACT_MOD)
 BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
 BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
 WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 If CO = 880 Then CO = 900
 '*********************************LAVORAZIONI
 
 Select Case VV
 Case "P12", "P14", "P02", "P04", "P06", "P08", "P10"
 AGG = 2
 Case "P01", "P03", "P05", "P07", "P09", "P11", "P13"
 AGG = 1
 Case Else
     MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
 
 
  R01 = T_CIRC(MR_X(9, H, AGG), 12, 8.8) & T_CIRC(MR_X(9, H, AGG), 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8) & T_CIRC(MR_X(H - 9, H, AGG), 12, 8.8) & T_CIRC(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8)
  R02 = T_CIRC(MR_X(9, H, AGG), 26.8 + 21.4 + 12, 10.1) & T_CIRC(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 12, 10.1) & T_CIRC(MR_X(9 + F, H, AGG), 26.8 + 21.4 + 12, 10.1) & T_CIRC(MR_X(H - 9 - 317, H, AGG), 26.8 + 21.4 + 12, 10.1) & T_CIRC(MR_X(9 + WS, H, AGG), 26.8 + 21.4 + 12, 10.1)
  R03 = T_CIRC(MR_X(H - 130, H, AGG), 5, 3.3) & T_CIRC(MR_X(H - 130 - (CO / 2), H, AGG), 5, 3.3) & T_CIRC(MR_X(H - 130 - CO, H, AGG), 5, 3.3)
  R04 = T_SLOT(MR_X(H - 160, H, AGG), 19.5, 25, 11, 90) & T_SLOT(MR_X(H - 160 - (CO - 60), H, AGG), 19.5, 25, 11, 90)
 
  R05 = T_CIRC(MR_X(H - 160 - BR, H, AGG), L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(MR_X(H - 160 - BR - 35, H, AGG), L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(MR_X(H - 160 - (CO - 60) + BL + 35, H, AGG), L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(MR_X(H - 160 - (CO - 60) + BL, H, AGG), L - 8.5 - 30 - 86 - 2, 4.2)
  R06 = T_CIRC(MR_X(9 + WS + 23, H, AGG), L - 8.5 - 30 - 60 - 15 - 1.3, 3.6) & T_CIRC(MR_X(9 + WS + 23, H, AGG), L - 8.5 - 30 - 60 - 1.3, 3.6) & T_CIRC(MR_X(9 + WS + 53.5, H, AGG), L - 8.5 - 30 - 18 - 1.7, 3.6) & T_CIRC(MR_X(9 + WS - 57.5, H, AGG), L - 8.5 - 30 - 37 - 1.7, 3.6) & T_CIRC(MR_X(9 + WS - 57.5 - 10, H, AGG), L - 8.5 - 30 - 37 - 1.7, 3.6)
  R07 = T_CIRC(MR_X(9 + WS - 13, H, AGG), L - 8.5 - 30 - 41 + 1, 10.1) & T_CIRC(MR_X(9 + WS + 61, H, AGG), L - 8.5 - 30 - 41 + 1, 10.1)
 
  R08 = T_RECT2(MR_X(H - 160 - CO + 60 - 21.5, H, AGG), L - 8.5 - 30 - 36.5 - 2, 10, 10) & T_RECT2(MR_X(H - 160 + 21.5, H, AGG), L - 8.5 - 30 - 36.5 - 2, 10, 10)
  R09 = T_RECT2(MR_X(H - 9 - ss, H, AGG), L - 8.5 - 30 - 21 - 2, 26, 20)
  R10 = T_CIRC(MR_X(H - 160 - CO + 60, H, AGG), L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2) & T_CIRC(MR_X(H - 160, H, AGG), L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2)
  R11 = T_SLOT(MR_X(H - 160 - CO + 60, H, AGG), L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90) & T_SLOT(MR_X(H - 160, H, AGG), L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90)
 
 'R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5, 18, 6.8, 0)
  R12 = T_SLOT(MR_X(H - 10.4, H, AGG), L - 8.5 - 30 - 27.5 - 1, 18, 7, 0)
  R13 = T_SLOT(MR_X(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), H, AGG), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(MR_X(9 + WS + 67 - 234.5 - 50, H, AGG), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(MR_X(H - 115, H, AGG), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0)
 ' If CO = 900 Then
 ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 6.8, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
 ' Else
 ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 6.8, 0)
 ' End If
  If CO = 900 Then
  R14 = T_SLOT(MR_X(G, H, AGG), L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(MR_X(G + 20.7, H, AGG), L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(MR_X(G + 58, H, AGG), L - 8.5 - 30 + 13.5, 41, 7, 0) & T_CIRC(MR_X(G + 86, H, AGG), L - 8.5 - 30 + 13.5, 6.5)
  Else
  R14 = T_SLOT(MR_X(G, H, AGG), L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(MR_X(G + 20.7, H, AGG), L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(MR_X(G + 45, H, AGG), L - 8.5 - 30 + 13.5, 15, 7, 0) & T_SLOT(MR_X(G + 45 + 26, H, AGG), L - 8.5 - 30 + 13.5, 15, 7, 0)
  End If
  R15 = T_SLOT(MR_X(9 + WS + 67 - 234.5 - 50, H, AGG), L - 30 - 8.5 + 4.75, 10, 4.5, 0) & T_SLOT(MR_X(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), H, AGG), L - 30 - 8.5 + 4.75, 10, 4.5, 0)
 ' R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 15, 6.8, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 15, 6.8, 0)
  R16 = T_SLOT(MR_X(H - 115, H, AGG), L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(MR_X(H - 13.5, H, AGG), L - 38.5 + 10, 18, 7, 0) & T_SLOT(MR_X(H - 83.5, H, AGG), L - 38.5 + 15.5, 18, 7, 0)
 
  R17 = T_CIRC(MR_X(9 + WS - 67 - 170.5, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS - 67, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS + 67 - 234.5, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS + 67, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS - 67 + 234.5, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS + 67 + 170.5, H, AGG), L - 38.5 + 12.25, 6.5)
  R18 = T_CIRC(MR_X(9 + WS - 40, H, AGG), L - 38.5 + 16.25, 10.1) & T_CIRC(MR_X(9 + WS + 40, H, AGG), L - 38.5 + 16.25, 10.1)
 
  R19 = T_RECT2(MR_X(H - 83.5 - 22, H, AGG), L - 38.5 + 15.5, 8.6, 8.6)
  R20 = T_RECT1(MR_X(-6, H, AGG), MR_X(G + 25.8, H, AGG), L - 38.5 + 24.5, L + 6) & T_RECT1(MR_X(9 + WS - 55.9 - 30, H, AGG), MR_X(9 + WS + 40.1 + 30, H, AGG), L - 8.5 - 6.7, L + 6) & T_RECT1(MR_X(9 + WS - 30, H, AGG), MR_X(9 + WS + 30, H, AGG), L - 38.5 - 0.5, L + 6) & T_RECT1(MR_X(H - 35, H, AGG), MR_X(H + 6, H, AGG), L - 38.5 + 19, L + 6) & T_RECT1(MR_X(H - 60, H, AGG), MR_X(H - 34, H, AGG), L - 38.5 + 28, L + 6)
 
  R21 = T_SPECIAL(MR_X(0, H, AGG), 0, "7SQ", 0) & T_SPECIAL(MR_X(H, H, AGG), 0, "7SQ", 0) & T_SPECIAL(MR_X(0, H, AGG), L - 38.5 + 24.5, "7SQ", 0) & T_SPECIAL(MR_X(G + 25.8, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(H, H, AGG), L - 38.5 + 19, "7SQ", 0) & T_SPECIAL(MR_X(H - 60, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(H - 44 + 5.3 + 0.2, H, AGG), L - (10.5 + 5.5) + 5.3 + 0.2, "7SQ", 0) & T_SPECIAL(MR_X(H - 44 + 5.5 + 3.6, H, AGG), L - (10.5 + 5.5) + 5.5 - 3.6, "7SQ", 0)
  R22 = T_SPECIAL(MR_X(9 + WS - 55.9 - 30, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(9 + WS + 40.1 + 30, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(9 + WS + 30, H, AGG), L - 15.2, "7SQ", 0) & T_SPECIAL(MR_X(9 + WS - 30, H, AGG), L - 15.2, "7SQ", 0)
 
 
  'Select Case VV
     'Case "P01", "P03", "P05", "P07", "P09", "P11", "P13"
     R23 = T_SMUS(H + 1, L - 38.5 - 27.5 - 10)
     'Case "P12", "P14", "P02", "P04", "P06", "P08", "P10"
     'R23 = T_SMUS(-1, L - 38.5 - 27.5 - 10)
     'Case Else
     'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  'End Select
 
  R24 = T_CIRC(MR_X(H - 130 - M1, H, AGG), L - 12.25 - 8.5, 6) & T_CIRC(MR_X(H - 130 - M1 - 53, H, AGG), L - 12.25 - 8.5, 6)
 
  R25 = T_RECT2(MR_X(9, H, AGG), 26.8 + 21.4 + 12 - 22, 8.6, 15) & T_RECT2(MR_X(9, H, AGG), 26.8 + 21.4 + 12 + 22, 8.6, 15) & T_RECT2(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 12 - 22, 8.6, 15) & T_RECT2(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 12 + 22, 8.6, 15)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_0902895D(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
 BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
 BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
 ' R05 = T_SLOT(H - 11, L - 38.5 - 7.5, 15, 6.8, 0) & T_SLOT(H - 11, L - 38.5 - 25.5, 15, 6.8, 0) & T_SLOT(H - 11, L - 38.5 - 47.5, 15, 6.8, 0)
  R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
 
  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
 
  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
 
  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
 
  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
 ' R15 = T_SLOT(H - 45, L - 38.5 + 17.5, 15, 6.8, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 17.5, 15, 6.8, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 17.5, 8.6, 8.6)
  R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
 ' R16 = T_SLOT(H / 2 - GL, L - 38.5 + 17.5, 15, 6.8, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 17.5, 15, 6.8, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 17.5, 15, 6.8, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 17.5, 8.6, 8.6)
  R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  R18 = T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
 
 
  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
 
 
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_0902895E(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
 BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
 BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
  R04 = R04 & T_SLOT(H - ((H - CO + 60) / 2) - 100, 19.5, 25, 11, 90) & T_SLOT(((H - CO + 60) / 2) + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV E
 
  R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
 
  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
 
  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  R09 = R09 & T_CIRC(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) 'AGGIUNTA REV E
 
  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  R10 = R10 & T_SLOT(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
 
  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
 
  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  R13 = R13 & T_RECT2(((H - CO + 60) / 2) - 21.5 + 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5 - 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) 'AGGIUNTA REV E
 
  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
 
  R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
 
  R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  R18 = T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
 
 
  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
 
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_0902895F(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
 BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
 BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
  R04 = R04 & T_SLOT(H - ((H - CO + 60) / 2) - 100, 19.5, 25, 11, 90) & T_SLOT(((H - CO + 60) / 2) + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV E
 
  R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
 
  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
 
  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  R09 = R09 & T_CIRC(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) 'AGGIUNTA REV E
 
  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  R10 = R10 & T_SLOT(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
 
  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
 
  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  R13 = R13 & T_RECT2(((H - CO + 60) / 2) - 21.5 + 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5 - 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) 'AGGIUNTA REV E
 
  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
 
  R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
 
  R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  R18 = T_CIRC(H / 2 + 67 - 234.5 - 100, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
 
 
  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
 
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_0902895G(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
 BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
 BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
  R04 = R04 & T_SLOT(H - ((H - CO + 60) / 2) - 100, 19.5, 25, 11, 90) & T_SLOT(((H - CO + 60) / 2) + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV E
 
  R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
 
  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
 
  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  R09 = R09 & T_CIRC(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) 'AGGIUNTA REV E
 
  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  R10 = R10 & T_SLOT(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
 
  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
 
  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  R13 = R13 & T_RECT2(((H - CO + 60) / 2) - 21.5 + 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5 - 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) 'AGGIUNTA REV E
 
  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
 
  R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
 
  R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  R18 = T_CIRC(H / 2 + 67 - 234.5 - 100, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
 
 
  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
 
  R26 = T_CIRC(H / 2 - M1, L - 8.5 - 12.25, 6) & T_CIRC(H / 2 - M1 - 56, L - 8.5 - 12.25, 6)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25 & R26
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_0902895J(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
 BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
 BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
  R04 = R04 & T_SLOT(H - ((H - CO + 60) / 2) - 100, 19.5, 25, 11, 90) & T_SLOT(((H - CO + 60) / 2) + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV E
 
  R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
 
  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
 
  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  R09 = R09 & T_CIRC(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) 'AGGIUNTA REV E
 
  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  R10 = R10 & T_SLOT(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
 
  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
 
  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  R13 = R13 & T_RECT2(((H - CO + 60) / 2) - 21.5 + 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5 - 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) 'AGGIUNTA REV E
 
  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
 
  R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
 
  R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  R18 = T_CIRC(H / 2 + 67 - 234.5 - 100, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
 
 
  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
 
  R26 = T_CIRC(H / 2 - M1, L - 8.5 - 12.25, 6) & T_CIRC(H / 2 - M1 - 53, L - 8.5 - 12.25, 6)
 
  R27 = T_RECT2(9, 26.8 + 21.4 + 12 - 22, 8.6, 15) & T_RECT2(9, 26.8 + 21.4 + 12 + 22, 8.6, 15) & T_RECT2(H - 9, 26.8 + 21.4 + 12 - 22, 8.6, 15) & T_RECT2(H - 9, 26.8 + 21.4 + 12 + 22, 8.6, 15)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25 & R26 & R27
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_1006715D(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 delt = 2
 '*********************************LAVORAZIONI
 
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8) & T_CIRC(H - 9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
 
  X1X = (H - CO) / 2
  R03 = T_SLOT(X1X + 30, 12.5 + 7, 25, 11, 90) & T_SLOT(H - X1X - 30, 12.5 + 7, 25, 11, 90)
  R04 = T_CIRC(X1X, 3, 3.3) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H - X1X, 3, 3.3)
 
  R05 = T_RECT2(X1X + 8.5, L - 26 - 47.5 - 1, 10, 10) & T_CIRC(X1X + 30, L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(X1X + 30, L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
  R06 = T_RECT2(H - (X1X + 8.5), L - 26 - 47.5 - 1, 10, 10) & T_CIRC(H - (X1X + 30), L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(H - (X1X + 30), L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
 
  R07 = T_CIRC(H / 2 - 7.5, L - 26 - 73 - delt, 3.6) & T_CIRC(H / 2 + 7.5, L - 26 - 73 - delt, 3.6)
 
  R08 = T_CIRC(H / 2 - 19, L - 26 - 73 + 20.2 - delt, 10.1) & T_CIRC(H / 2 - 19 + 57, L - 26 - 73 + 20.2 - 32 - delt, 10.1)
  R09 = T_CIRC(H / 2 - 142.5, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45 + 167.5, L - 26 - 12 - delt, 10.1)
 
  R10 = T_SLOT(H - X1X + 196.2, L - 26 - 28 - 1.5, 18, 7, 0) '6.8
 
  R11 = T_RECT1(H / 2 - 156.5 - 22, H / 2 - 156.5, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56, H / 2 + 56 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56 + 170.5, H / 2 + 56 + 170.5 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5)
 
  R12 = T_SLOT(H / 2 - CO / 2 - 99.2 - 89.4 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 24.7 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 5.6, L - 16.8, 18, 7, 0) & T_RECT2(H / 2 - CO / 2 - 99.2 - 24.7 - 29.7, L - 16.8, 8.6, 8.6)
  R13 = T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 89.4 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 5.6), L - 16.8, 18, 7, 0) & T_RECT2(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 29.7), L - 16.8, 8.6, 8.6)
  R14 = T_RECT2(X1X - 99.2 + 40.7, L - 16.8, 6.8, 6.8) & T_RECT2(X1X - 99.2 + 40.7 + 24.8, L - 16.8, 6.8, 6.8)
 
  R15 = T_RECT1(X1X - 99.2 + 10.9, X1X - 99.2 + 10.9 + 5, L - 12.5, L - 2.5) & T_RECT1(H - (X1X - 99.2 + 10.9) - 5, H - (X1X - 99.2 + 10.9), L - 12.5, L - 2.5)
  R16 = T_RECT1(-6, H / 2 - CO / 2 - 85.1, L - 7.5, L + 2.5) & T_RECT1(H + 6, H - (H / 2 - CO / 2 - 85.1), L - 7.5, L + 2.5)
 
  R17 = T_CIRC(H / 2 - 48.6, L - 21.5, 10.1) & T_CIRC(H / 2 + 40, L - 15.5, 10.1)
 
  R18 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 28, L + 6)
  R19 = T_RECT1(H / 2 + 170, H / 2 + 30 + 19.7, L - 10, L + 6) & T_RECT1(H / 2 + 30 - 5, H / 2 + 30 + 19.7 + 5, L - 7.5, L + 6) & T_RECT1(H / 2 - 30, H / 2 - 30 - 55, L - 11.5, L + 6)
  R20 = T_RECT1(H / 2 - 30 - 28.3 - 5, H / 2 - 30 - 28.3, L - 28.5 - 5, L - 28.5 + 5) & T_RECT1(H / 2 - 30 - 28.3, H / 2 - 30 + 1.7, L - 28.5, L - 28.5 - 5) & T_RECT1(H / 2 - 30, H / 2 - 30 + 5, L - 28.5 - 5, L - 28.5 + 5)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 7.5, "7SQ", 0) & T_SPECIAL(H, L - 7.5, "7SQ", 0) & T_SPECIAL(X1X - 85.1, L, "7SQ", 0) & T_SPECIAL(H - (X1X - 85.1), L, "7SQ", 0)
  R22 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 170, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 7.5, "7SQ", 0) & T_SPECIAL(H / 2 - 30, L - 11.5, "7SQ", 0)
 
 ' R23 = T_SLOT(X1X - 99.2 - 75, L - 8.5 + 1.5, 26, 14, 0) & T_SLOT(H - (X1X - 99.2 - 75), L - 8.5 + 1.5, 26, 14, 0)
  R23A = T_CIRC(H - (X1X - 99.2 - 75) - 13 + 7, L - 5.5, 14) & T_CIRC(H - (X1X - 99.2 - 75) + 13 - 7, L - 5.5, 14) & T_RECT2(H - (X1X - 99.2 - 75), L - 5.5 - 2, 26 - 14, 10)
  R23B = T_CIRC(X1X - 99.2 - 75 - 13 + 7, L - 5.5, 14) & T_CIRC(X1X - 99.2 - 75 + 13 - 7, L - 5.5, 14) & T_RECT2(X1X - 99.2 - 75, L - 5.5 - 2, 26 - 14, 10)
  R23 = R23A & R23B
 
  R24 = T_SMUS(H + 1, L - 26 - 18 - 15)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 Sub S_1006715E(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 delt = 2
 '*********************************LAVORAZIONI
 
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8) & T_CIRC(H - 9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
 
  X1X = (H - CO) / 2
  R03 = T_SLOT(X1X + 30, 12.5 + 7, 25, 11, 90) & T_SLOT(H - X1X - 30, 12.5 + 7, 25, 11, 90)
  R04 = T_CIRC(X1X, 3, 3.3) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H - X1X, 3, 3.3)
 
  R05 = T_RECT2(X1X + 8.5, L - 26 - 47.5 - 1, 10, 10) & T_CIRC(X1X + 30, L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(X1X + 30, L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
  R06 = T_RECT2(H - (X1X + 8.5), L - 26 - 47.5 - 1, 10, 10) & T_CIRC(H - (X1X + 30), L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(H - (X1X + 30), L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
 
  R07 = T_CIRC(H / 2 - 7.5, L - 26 - 73 - delt, 3.6) & T_CIRC(H / 2 + 7.5, L - 26 - 73 - delt, 3.6)
 
  R08 = T_CIRC(H / 2 - 19, L - 26 - 73 + 20.2 - delt, 10.1) & T_CIRC(H / 2 - 19 + 57, L - 26 - 73 + 20.2 - 32 - delt, 10.1)
  R09 = T_CIRC(H / 2 - 142.5, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45 + 167.5, L - 26 - 12 - delt, 10.1)
 
  R10 = T_SLOT(H - X1X + 196.2, L - 26 - 28 - 1.5, 18, 7, 0) '6.8
 
  R11 = T_RECT1(H / 2 - 156.5 - 22, H / 2 - 156.5, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56, H / 2 + 56 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56 + 170.5, H / 2 + 56 + 170.5 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5)
 
  R12 = T_SLOT(H / 2 - CO / 2 - 99.2 - 89.4 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 24.7 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 5.6, L - 16.8, 18, 7, 0) & T_RECT2(H / 2 - CO / 2 - 99.2 - 24.7 - 29.7, L - 16.8, 8.6, 8.6)
  R13 = T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 89.4 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 5.6), L - 16.8, 18, 7, 0) & T_RECT2(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 29.7), L - 16.8, 8.6, 8.6)
  R14 = "" ' T_RECT2(X1X - 99.2 + 40.7, L - 16.8, 6.8, 6.8) & T_RECT2(X1X - 99.2 + 40.7 + 24.8, L - 16.8, 6.8, 6.8)
 
  R15 = T_RECT1(X1X - 99.2 + 10.9, X1X - 99.2 + 10.9 + 5, L - 12.5, L - 2.5) & T_RECT1(H - (X1X - 99.2 + 10.9) - 5, H - (X1X - 99.2 + 10.9), L - 12.5, L - 2.5)
  R16 = T_RECT1(-6, H / 2 - CO / 2 - 85.1, L - 7.5, L + 2.5) & T_RECT1(H + 6, H - (H / 2 - CO / 2 - 85.1), L - 7.5, L + 2.5)
 
  R17 = T_CIRC(H / 2 - 48.6, L - 21.5, 10.1) & T_CIRC(H / 2 + 40, L - 15.5, 10.1)
 
  R18 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 28, L + 6)
  R19 = T_RECT1(H / 2 + 170, H / 2 + 30 + 19.7, L - 10, L + 6) & T_RECT1(H / 2 + 30 - 5, H / 2 + 30 + 19.7 + 5, L - 7.5, L + 6) & T_RECT1(H / 2 - 30, H / 2 - 30 - 55, L - 11.5, L + 6)
  R20 = T_RECT1(H / 2 - 30 - 28.3 - 5, H / 2 - 30 - 28.3, L - 28.5 - 5, L - 28.5 + 5) & T_RECT1(H / 2 - 30 - 28.3, H / 2 - 30 + 1.7, L - 28.5, L - 28.5 - 5) & T_RECT1(H / 2 - 30, H / 2 - 30 + 5, L - 28.5 - 5, L - 28.5 + 5)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 7.5, "7SQ", 0) & T_SPECIAL(H, L - 7.5, "7SQ", 0) & T_SPECIAL(X1X - 85.1, L, "7SQ", 0) & T_SPECIAL(H - (X1X - 85.1), L, "7SQ", 0)
  R22 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 170, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 7.5, "7SQ", 0) & T_SPECIAL(H / 2 - 30, L - 11.5, "7SQ", 0)
 
 ' R23 = T_SLOT(X1X - 99.2 - 75, L - 8.5 + 1.5, 26, 14, 0) & T_SLOT(H - (X1X - 99.2 - 75), L - 8.5 + 1.5, 26, 14, 0)
  R23A = T_CIRC(H - (X1X - 99.2 - 75) - 13 + 7, L - 5.5, 14) & T_CIRC(H - (X1X - 99.2 - 75) + 13 - 7, L - 5.5, 14) & T_RECT2(H - (X1X - 99.2 - 75), L - 5.5 - 2, 26 - 14, 10)
  R23B = T_CIRC(X1X - 99.2 - 75 - 13 + 7, L - 5.5, 14) & T_CIRC(X1X - 99.2 - 75 + 13 - 7, L - 5.5, 14) & T_RECT2(X1X - 99.2 - 75, L - 5.5 - 2, 26 - 14, 10)
  R23 = R23A & R23B
 
  R24 = T_SMUS(H + 1, L - 26 - 18 - 15)
 
  R25 = T_CIRC(H / 2 - M1, L - 8.5 - 11.75, 6) & T_CIRC(H / 2 - M1 - 56, L - 8.5 - 11.75, 6)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_1006715F(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 delt = 2
 '*********************************LAVORAZIONI
 
 
  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8) & T_CIRC(H - 9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8)
  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
 
  X1X = (H - CO) / 2
  R03 = T_SLOT(X1X + 30, 12.5 + 7, 25, 11, 90) & T_SLOT(H - X1X - 30, 12.5 + 7, 25, 11, 90)
  R04 = T_CIRC(X1X, 3, 3.3) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H - X1X, 3, 3.3)
 
  R05 = T_RECT2(X1X + 8.5, L - 26 - 47.5 - 1, 10, 10) & T_CIRC(X1X + 30, L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(X1X + 30, L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
  R06 = T_RECT2(H - (X1X + 8.5), L - 26 - 47.5 - 1, 10, 10) & T_CIRC(H - (X1X + 30), L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(H - (X1X + 30), L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
 
  R07 = T_CIRC(H / 2 - 7.5, L - 26 - 73 - delt, 3.6) & T_CIRC(H / 2 + 7.5, L - 26 - 73 - delt, 3.6)
 
  R08 = T_CIRC(H / 2 - 19, L - 26 - 73 + 20.2 - delt, 10.1) & T_CIRC(H / 2 - 19 + 57, L - 26 - 73 + 20.2 - 32 - delt, 10.1)
  R09 = T_CIRC(H / 2 - 142.5, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45 + 167.5, L - 26 - 12 - delt, 10.1)
 
  R10 = T_SLOT(H - X1X + 196.2, L - 26 - 28 - 1.5, 18, 7, 0) '6.8
 
  R11 = T_RECT1(H / 2 - 156.5 - 22, H / 2 - 156.5, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56, H / 2 + 56 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56 + 170.5, H / 2 + 56 + 170.5 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5)
 
  R12 = T_SLOT(H / 2 - CO / 2 - 99.2 - 89.4 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 24.7 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 5.6, L - 16.8, 18, 7, 0) & T_RECT2(H / 2 - CO / 2 - 99.2 - 24.7 - 29.7, L - 16.8, 8.6, 8.6)
  R13 = T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 89.4 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 5.6), L - 16.8, 18, 7, 0) & T_RECT2(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 29.7), L - 16.8, 8.6, 8.6)
  R14 = "" ' T_RECT2(X1X - 99.2 + 40.7, L - 16.8, 6.8, 6.8) & T_RECT2(X1X - 99.2 + 40.7 + 24.8, L - 16.8, 6.8, 6.8)
 
  R15 = T_RECT1(X1X - 99.2 + 10.9, X1X - 99.2 + 10.9 + 5, L - 12.5, L - 2.5) & T_RECT1(H - (X1X - 99.2 + 10.9) - 5, H - (X1X - 99.2 + 10.9), L - 12.5, L - 2.5)
  R16 = T_RECT1(-6, H / 2 - CO / 2 - 85.1, L - 7.5, L + 2.5) & T_RECT1(H + 6, H - (H / 2 - CO / 2 - 85.1), L - 7.5, L + 2.5)
 
  R17 = T_CIRC(H / 2 - 48.6, L - 21.5, 10.1) & T_CIRC(H / 2 + 40, L - 15.5, 10.1)
 
  R18 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 28, L + 6)
  R19 = T_RECT1(H / 2 + 170, H / 2 + 30 + 19.7, L - 10, L + 6) & T_RECT1(H / 2 + 30 - 5, H / 2 + 30 + 19.7 + 5, L - 7.5, L + 6) & T_RECT1(H / 2 - 30, H / 2 - 30 - 55, L - 11.5, L + 6)
  R20 = T_RECT1(H / 2 - 30 - 28.3 - 5, H / 2 - 30 - 28.3, L - 28.5 - 5, L - 28.5 + 5) & T_RECT1(H / 2 - 30 - 28.3, H / 2 - 30 + 1.7, L - 28.5, L - 28.5 - 5) & T_RECT1(H / 2 - 30, H / 2 - 30 + 5, L - 28.5 - 5, L - 28.5 + 5)
 
  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 7.5, "7SQ", 0) & T_SPECIAL(H, L - 7.5, "7SQ", 0) & T_SPECIAL(X1X - 85.1, L, "7SQ", 0) & T_SPECIAL(H - (X1X - 85.1), L, "7SQ", 0)
  R22 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 170, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 7.5, "7SQ", 0) & T_SPECIAL(H / 2 - 30, L - 11.5, "7SQ", 0)
 
 ' R23 = T_SLOT(X1X - 99.2 - 75, L - 8.5 + 1.5, 26, 14, 0) & T_SLOT(H - (X1X - 99.2 - 75), L - 8.5 + 1.5, 26, 14, 0)
  R23A = T_CIRC(H - (X1X - 99.2 - 75) - 13 + 7, L - 5.5, 14) & T_CIRC(H - (X1X - 99.2 - 75) + 13 - 7, L - 5.5, 14) & T_RECT2(H - (X1X - 99.2 - 75), L - 5.5 - 2, 26 - 14, 10)
  R23B = T_CIRC(X1X - 99.2 - 75 - 13 + 7, L - 5.5, 14) & T_CIRC(X1X - 99.2 - 75 + 13 - 7, L - 5.5, 14) & T_RECT2(X1X - 99.2 - 75, L - 5.5 - 2, 26 - 14, 10)
  R23 = R23A & R23B
 
  R24 = T_SMUS(H + 1, L - 26 - 18 - 15)
 
  R25 = T_CIRC(H / 2 - M1, L - 8.5 - 11.75, 6) & T_CIRC(H / 2 - M1 - 53, L - 8.5 - 11.75, 6)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 
 Sub S_1005785A(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 a = INPUT_NUM(NND, "A", a, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
  M = H
  X1X = ((M - CO) / 2)
 
  R01 = T_SLOT(X1X - 60 - 47 - a, 13, 30, 11, 0) & T_SLOT(X1X - 60, 13, 30, 11, 0) & T_SLOT(X1X - 60 - 47, 13, 30, 11, 0) & T_SLOT(X1X - 60 + 48, 13, 30, 11, 0) & T_SLOT(X1X + 110, 13, 30, 11, 0)
  R02 = T_RECT2(X1X - 60, 40.5, 10, 16) & T_CIRC(X1X, 3, 3.3)
  R03 = T_SLOT(X1X - 60, L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0) & T_SLOT(X1X - 60 + 210, L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0)
  R04 = T_CIRC(X1X - 60, L - 9 - 26 - 34 - 20, 20.2) & T_SLOT(X1X - 60, L - 9 - 26 - 34 - 10, 31, 11, 90)
  R05 = T_CIRC(9, 49.5 + 9.6 + 9, 10.1) & T_CIRC(9, 49.5 + 9.6 + 9.6 + 21 + 41.5, 10.1) & T_CIRC(9, 49.5 + 9.6 + 9.6 + 21 + 41.5 + 60, 10.1)
 
 
  R06 = T_SLOT(H - (X1X - 60 - 47 - a), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60 - 47), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60 + 48), 13, 30, 11, 0) & T_SLOT(H - (X1X + 110), 13, 30, 11, 0)
  R07 = T_RECT2(H - (X1X - 60), 40.5, 10, 16) & T_CIRC(H - (X1X), 3, 3.3)
  R08 = T_SLOT(H - (X1X - 60), L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0) & T_SLOT(H - (X1X - 60 + 210), L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0)
  R09 = T_CIRC(H - (X1X - 60), L - 9 - 26 - 34 - 20, 20.2) & T_SLOT(H - (X1X - 60), L - 9 - 26 - 34 - 10, 31, 11, 90)
  R10 = T_CIRC(H - 9, 49.5 + 9.6 + 9, 10.1) & T_CIRC(H - 9, 49.5 + 9.6 + 9.6 + 21 + 41.5, 10.1) & T_CIRC(H - 9, 49.5 + 9.6 + 9.6 + 21 + 41.5 + 60, 10.1)
 
  R11 = T_SLOT(H / 2, 13, 30, 11, 0) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H / 2, 49.5 + 9.6 + 9, 10.1)
  R12 = T_SLOT(H / 2, L - 35 - 92, 30, 11, 0) & T_CIRC(H / 2 + 28.1, L - 35 - 92, 6) & T_CIRC(H / 2 + 28.1 - 55, L - 35 - 92, 6) & T_CIRC(H / 2 + 28.1 - 93, L - 35 - 92 + 75, 6)
 
  R13 = T_RECT2(29, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - 29, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(X1X + 100, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - X1X - 100, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - X1X - 140, L - 35 + 10.5, 8.6, 8.6)
  R14 = T_SLOT(H / 2 + 39, L - 35 + 12, 38.8, 7, 0)
  R15 = T_CIRC(H / 2 - 96, L - 35 + 8.15, 8.8) & T_CIRC(H / 2 - 96, L - 9, 14) & T_SLOT(H / 2 - 96, L - 35, 10, 4.5, 0)
  R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)
 
 
  R17 = T_SMUS(H + 1, 161)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub
 
 Sub S_1005785B(NND)
 
 ACT_MOD = INFO_DAT(NND, 0, 6)
 CLAMP = 0
 NHD = 15
 
 CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
 a = INPUT_NUM(NND, "A", a, ACT_MOD)
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
 '***********************************************************
 Dim POSINTAB As Byte
 
 '*********************************LAVORAZIONI
  M = H
  X1X = ((M - CO) / 2)
 
  R01 = T_SLOT(X1X - 60 - 47 - a, 13, 30, 11, 0) & T_SLOT(X1X - 60, 13, 30, 11, 0) & T_SLOT(X1X - 60 - 47, 13, 30, 11, 0) & T_SLOT(X1X - 60 + 48, 13, 30, 11, 0) & T_SLOT(X1X + 110, 13, 30, 11, 0)
  R02 = T_RECT2(X1X - 60, 40.5, 10, 16) & T_CIRC(X1X, 3, 3.3)
  R03 = T_SLOT(X1X - 60, L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0) & T_SLOT(X1X - 60 + 210, L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0)
  R04 = T_CIRC(X1X - 60, L - 9 - 26 - 34 - 20, 20.2) & T_SLOT(X1X - 60, L - 9 - 26 - 34 - 10, 31, 11, 90)
  R05 = T_CIRC(9, 49.5 + 9.6 + 9, 10.1) & T_CIRC(9, 49.5 + 9.6 + 9.6 + 21 + 41.5, 10.1) & T_CIRC(9, 49.5 + 9.6 + 9.6 + 21 + 41.5 + 60, 10.1)
 
 
  R06 = T_SLOT(H - (X1X - 60 - 47 - a), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60 - 47), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60 + 48), 13, 30, 11, 0) & T_SLOT(H - (X1X + 110), 13, 30, 11, 0)
  R07 = T_RECT2(H - (X1X - 60), 40.5, 10, 16) & T_CIRC(H - (X1X), 3, 3.3)
  R08 = T_SLOT(H - (X1X - 60), L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0) & T_SLOT(H - (X1X - 60 + 210), L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0)
  R09 = T_CIRC(H - (X1X - 60), L - 9 - 26 - 34 - 20, 20.2) & T_SLOT(H - (X1X - 60), L - 9 - 26 - 34 - 10, 31, 11, 90)
  R10 = T_CIRC(H - 9, 49.5 + 9.6 + 9, 10.1) & T_CIRC(H - 9, 49.5 + 9.6 + 9.6 + 21 + 41.5, 10.1) & T_CIRC(H - 9, 49.5 + 9.6 + 9.6 + 21 + 41.5 + 60, 10.1)
 
  R11 = T_SLOT(H / 2, 13, 30, 11, 0) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H / 2, 49.5 + 9.6 + 9, 10.1)
  R12 = T_SLOT(H / 2, L - 35 - 92, 30, 11, 0) & T_CIRC(H / 2 + 28.1, L - 35 - 92, 6) & T_CIRC(H / 2 + 28.1 - 55, L - 35 - 92, 6) & T_CIRC(H / 2 + 28.1 - 93, L - 35 - 92 + 75, 6)
 
  R13 = T_RECT2(29, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - 29, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(X1X + 100, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - X1X - 100, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - X1X - 140, L - 35 + 10.5, 8.6, 8.6)
  R14 = T_SLOT(H / 2 + 39, L - 35 + 12, 38.8, 7, 0)
  R15 = T_CIRC(H / 2 - 96, L - 35 + 8.15, 8.8) & T_CIRC(H / 2 - 96, L - 9, 14) & T_SLOT(H / 2 - 96, L - 35, 10, 4.5, 0)
  R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)
 
 
  R17 = T_SMUS(H + 1, 161)
  R18 = T_RECT2(M / 2 - 112.5, L - 35 + 14.5, 6.8, 6.8) & T_RECT2(M / 2 + 112.5, L - 35 + 14.5, 6.8, 6.8)
 
 '**********************************************
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
 Call FVTPT(3, NND, "D")
 Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
 Call FVTPT(3, NND, "E")
 
 End Sub