View difference between Paste ID: sjkCbENn and Jb3e4t6S

-'Ante2
+'Entrance
 
-Function T_PAT(ByVal XC As Double, ByVal YC As Double)
+Sub S_1036865A(ByVal NND As Integer)
 ACT_MOD = "1036865"
-If XC = 0 Then
+
-XC = (12.15 + 0.1)
+
-ACC = "C180."
+
-Else
+
-XC = XC - (12.15 + 0.1)
+
-ACC = "C0."
+
-End If
+
 EN_ASL = 10
-T_PAT = T_SPECIAL(XC, YC, "PATTINO-FNL", ACC)
+R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
 R02 = T_SLOT(M1, 13.5, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.5, 16, EN_ASL, 0)
 R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
 R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
 R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
 
-Sub S_1017132A(ByVal NND As Integer)
+
-ACT_MOD = "1017132"
+
-CLAMP = 1
+
 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, "")
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+Call FVTPT(3, NND, "C")
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+
-VV = Replace(VV, "P", "")
+
 Sub S_1036865B(ByVal NND As Integer)
 ACT_MOD = "1036865"
 CLAMP = 0
 
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
 If L <> 156.6 Then MsgBox ("ERRORE NELLO SVILUPPO DEL COMPONENTE " & ACT_MOD)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+EN_ASL = 10
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
-R01 = R01 & T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+R02 = T_SLOT(M1, 13.75, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.75, 16, EN_ASL, 0)
-R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
+R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
-R01 = R01 & T_CIRC(121 - 30, L - (14 + BT + M5 - 4 * SPS), 7.2)      'SERVE IL TONDO Ø7
+
-R01 = R01 & T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)            'SERVE IL TONDO Ø20.2
+
-R01 = R01 & T_CIRC(121 + 55, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø19.5
+
 
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M3 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+
 
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
-YY1 = 14 + BT + 32 - 4 * SPS
+Call FVTPT(3, NND, "C")
 
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
 
 Sub S_1036865C(ByVal NND As Integer)
 ACT_MOD = "1036865"
-Case 1, 2
+
-SPEK = 0
+
-Case 3, 4
+
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
 If L <> 156.6 Then MsgBox ("ERRORE NELLO SVILUPPO DEL COMPONENTE " & ACT_MOD)
-fn = R01 & R02 & R04
+
 
 Select Case VV
 Case 1
 EN_ASL = 10
 R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
 R02 = T_SLOT(M1, 13.75, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.75, 16, EN_ASL, 0)
 R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
 R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)
 R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
 Case 2
 EN_ASL = 10
 R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
 R02 = T_SLOT(M1, 13.75, 16, EN_ASL, 0) & T_SLOT(M1, L - 13.75, 16, EN_ASL, 0)
 R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
 R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)
 R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
 Case 3
 EN_ASL = 10
-Sub S_1017011A(ByVal NND As Integer)
+R01 = T_HEX(63.3, L / 2, 11) & T_HEX(63.3 + 132, L / 2, 11)
-ACT_MOD = "1017011"
+R02 = T_SLOT(H - 28.3, 13.75, 16, EN_ASL, 0) & T_SLOT(H - 28.3, L - 13.75, 16, EN_ASL, 0)
-CLAMP = 1
+R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
 R04 = T_RECT1(-2.5, 7.5, 27.5, L - 27.5)
 R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
 End Select
 
 'R06 = T_DATAMATRIX(ODP, L / 2 + 20, 70, "O") 'SASSI AGGIUNTA DATAMATRIX 30.06.22
 
 fn = R01 & R02 & R03 & R04 & R05 '& R06 'SASSI AGGIUNTA DATAMATRIX 30.06.22
 
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+
-VV = Replace(VV, "P", "")
+
 Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 End Sub
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
 
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+Sub S_10429030(ByVal NND As Integer)
 ACT_MOD = "1042903"
-R01 = R01 & T_CIRC(46, L - 5, 4.2)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
+
-R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M5 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(121 - 30, L - (14 + BT + M2 - 4 * SPS), 7.2)  'SERVE IL TONDO Ø7
+
-R01 = R01 & T_CIRC(121, L - (14 + BT + M2 - 4 * SPS), 20)        'SERVE IL TONDO Ø20.2
+
-R01 = R01 & T_CIRC(121 + 55, L - (14 + BT + M2 - 4 * SPS), 20)   'SERVE IL TONDO Ø19.5
+'If L <> 156.6 Then MsgBox ("ERRORE NELLO SVILUPPO DEL COMPONENTE " & ACT_MOD)
 
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+EN_ASL = 10
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M3 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
 R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 P1 = 250
 P2 = H - 400
-YY1 = 14 + BT + 32 - 4 * SPS
+
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-'R03 = T_SPECIAL(H - 14.65 + 2.5, L - YY1, "PATTINO-FNL", 0) & T_SPECIAL(H - 14.65 + 2.5, L - YY1 - M3, "PATTINO-FNL", 0)
+
-R03 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
 Call SAVE_SUB(NND, STRINGA)
 
-fn = R01 & R02 & R03
+
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 End Sub
 
 Sub S_1042903B(ByVal NND As Integer)
 ACT_MOD = "1042903"
 CLAMP = 0
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-Sub S_1015591A(ByVal NND As Integer)
+
-ACT_MOD = "1015591"
+
-CLAMP = 1
+VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)
 
 Select Case VV
 Case 1
 EN_ASL = 10
 R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)
 R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)
 R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
 R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+EN_ASL = 10
-VV = Replace(VV, "H", "")
+R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)
 R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)
 R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
 R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
 R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
 Case 3
 EN_ASL = 10
 R01 = T_HEX(63.3, L - 77.8, 11) & T_HEX(63.3 + 132, L - 77.8, 11)
-R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+R02 = T_SLOT(H - 28.3, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, 13.5, 16, EN_ASL, 0) & T_SLOT(H - 28.3, L - 13.5, 16, EN_ASL, 0)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
 R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
+
-R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
+MsgBox ("ERRORE VERSIONE " & ACT_MOD)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
+
 
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS) - 55, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
+
 
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+Call FVTPT(3, NND, "C")
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 
 
-YY1 = M1 + BT + 32 - 4 * SPS
+Sub S_10483620(ByVal NND As Integer)
 ACT_MOD = "1048362"
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
-SPEK = 0
+
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
+
-R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
+EN_ASL = 10
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
+R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
+R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)
 R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS) - 55, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS))
+R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 fn = R01 & R02 & R03 & R04 & R05
 
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
-YY1 = M1 + BT + 32 - 4 * SPS
+Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
-SPEK = 0
+
 
 
 Sub S_1048362A(ByVal NND As Integer)
-R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+ACT_MOD = "1048362"
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
+
-R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS) - 55, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
+VV = INPUT_NUM(NND, "VER", VV, ACT_MOD)
 '**********************************
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 Case 1
 EN_ASL = 10
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 EN_ASL = 10
 R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)
-YY1 = M1 + BT + 32 - 4 * SPS
+R02 = T_SLOT(M2, 13.5, 16, EN_ASL, 0) & T_SLOT(36.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(M2, L - 13.5, 16, EN_ASL, 0)
 R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
 R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
 Case 3
-Case 4
+EN_ASL = 10
 R01 = T_HEX(63.3, 77.8, 11) & T_HEX(63.3 + 132, 77.8, 11)
-R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+R02 = T_SLOT(36.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(H - 28.3, L - 13.5, 16, EN_ASL, 0) & T_SLOT(H - 28.3, 13.5, 16, EN_ASL, 0)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+R03 = T_CIRC(0, 11, 4.2) & T_CIRC(0, L - 11, 4.2)
 R04 = T_RECT1(-2.5, 7.5, 27, L - 27)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+R05 = T_SMUS(0, 0) & T_SMUS(H, 0) & T_SMUS(H, L) & T_SMUS(0, L)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
+
-R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
+
 '**********************************
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS) - 55, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
+
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 
 POSINTAB = def_posintab(NND)
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+Call CUT_END_T_special(H, L, 0, 0, "C", POSINTAB)
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+Call FVTPT(3, NND, "C")
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 
 
-YY1 = M1 + BT + 32 - 4 * SPS
+Sub S_1036629A(ByVal NND As Integer)
 ACT_MOD = "1036629"
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-fn = R01 & R02 & R04
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
 M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
 M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
 M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
 M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
 M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
 M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
 M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
 M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
 M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
 M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
 M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-Sub S_1015607C(ByVal NND As Integer)
+
-ACT_MOD = "1015607"
+
-CLAMP = 1
+EN_ASL = 10
 If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
 
 
 Select Case ver
 Case 1
 AGG = 1
 Case 2
 AGG = 2
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
-VV = Replace(VV, "P", "")
+If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
 If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
 If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
 If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
 
 R01 = R01A & R01B & R01C & R01D & R01E & R01F
 
 R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)
-Case 1, 2
+If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+R02 = R02A & R02B
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+R03B = T_SLOT(M5 + M6 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+R03 = R03A & R03B & R03C
-'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+
-'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+DIM_ASL = 6.5
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
+R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-If VV = 2 Then
+R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R03 = T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
+R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-End If
+R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-If VV = 1 Then
+R04 = R04A & R04B & R04C & R04D & R04E & R04F
-R03 = T_RECT2(121, L - (14 + BT + M5 - 4 * SPS), 24, 24)
+
-End If
+R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+R06 = ""
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M3 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+
 R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+R09C = T_CIRC(0, L - 20, 20.2) & T_CIRC(H, L - 20, 20.2)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+R09 = R09A & R09B & R09C
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
-R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
+R_MS = 0.7
-R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
+R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)
 
-YY1 = 14 + BT + 32 - 4 * SPS
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11
-SPEK = 0
+
 
-Case 3, 4
+
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+
-'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+
-'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-If VV = 4 Then
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
-R03 = T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
+    STR_OUT(2) = TL_CLN
-End If
+    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
-If VV = 3 Then
+    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
-R03 = T_RECT2(121, L - (14 + BT + M5 - 4 * SPS), 24, 24)
+    STR_OUT(5) = TL_CUT_O
-End If
+    STR_OUT(6) = "TOOLANGLE(0)"
     STR_OUT(7) = "MIDCUT(N)"
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M3 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+    STR_OUT(11) = "'FINE BLOCCO"
 
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+'Call CUT_END_S(H, L, "0", POSINTAB)
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+    STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
-R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
+    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
-R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
+    STR_OUT(5) = TL_CUT_V
     STR_OUT(6) = "TOOLANGLE(90)"
-YY1 = 14 + BT + 32 - 4 * SPS
+    STR_OUT(7) = "MIDCUT(N)"
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
     STR_OUT(9) = TL_CUT_O
     STR_OUT(10) = "TOOLANGLE(0)"
-Case 5, 6
+    STR_OUT(11) = "MIDCUT(N)"
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+    STR_OUT(15) = "'FINE BLOCCO"
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+'Call CUT_END_S(H, L, "C", POSINTAB)
-'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+Call FVTPT(3, NND, "C")
-'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+
 
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M3 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+Sub S_1036629D(ByVal NND As Integer)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+ACT_MOD = "1036629"
 CLAMP = 0
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
+
-R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
+
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS, 8.5)
+
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS + 0.75, 8.5)
+
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS - 0.75, 8.5)
+
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-YY1 = 14 + BT + 32 - 4 * SPS
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-SPEK = 0
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
 M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-Case 7, 8
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
-'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
-'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+ODP = INFO_DAT(NND, 0, 5)
 
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+EN_ASL = 10
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M3 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+
 
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+Select Case ver
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+AGG = 1
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+AGG = 2
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
+
-R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
+
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS, 8.5)
+R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS + 0.75, 8.5)
+R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS - 0.75, 8.5)
+If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
 If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
 If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
-YY1 = 14 + BT + 32 - 4 * SPS
+If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
 R01 = R01A & R01B & R01C & R01D & R01E & R01F
 
 R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)
 If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+R02 = R02A & R02B
 
 R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03B = T_SLOT(M5 + M6 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03 = R03A & R03B & R03C
 
 DIM_ASL = 6.5
 R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04 = R04A & R04B & R04C & R04D & R04E & R04F
 
 R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
 R06 = ""
 
 R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)
-Sub S_1025682A(ByVal NND As Integer)
+
-ACT_MOD = "1025682"
+R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
 
 R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)
 R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)
 
 R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
 R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)
 
 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
 R09 = R09A & R09B & R09C & R09D
 
 R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
 R_MS = 0.7
 R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)
 
 If M21 > 0 Then R12 = T_SLOT(M21, 13 + 58 + M20 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+If M22 > 0 Then R13 = T_SLOT(H - M22, 13 + 58 + M20 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+
-VV = Replace(VV, "P", "")
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-Case 1, 2
+
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+
-'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M10 - 4 * SPS), 10)
+    STR_OUT(2) = TL_CLN
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
-If VV = 2 Then
+    STR_OUT(5) = TL_CUT_O
-R03 = T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
+    STR_OUT(6) = "TOOLANGLE(0)"
-End If
+    STR_OUT(7) = "MIDCUT(N)"
-If VV = 1 Then
+    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
-R03 = T_RECT2(121, L - (14 + BT + M5 - 4 * SPS), 24, 24)
+    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
-End If
+    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(11) = "'FINE BLOCCO"
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L + SCS)
+'Call CUT_END_S(H, L, "0", POSINTAB)
-R01 = R01 & T_RECT1(H - 10, H + 1, -SCS, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+    STR_OUT(2) = TL_CLN
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+    STR_OUT(5) = TL_CUT_V
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+    STR_OUT(6) = "TOOLANGLE(90)"
     STR_OUT(7) = "MIDCUT(N)"
-R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
+    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
-R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
+    STR_OUT(9) = TL_CUT_O
     STR_OUT(10) = "TOOLANGLE(0)"
     STR_OUT(11) = "MIDCUT(N)"
-YY1 = 14 + BT + 32 - 4 * SPS
+    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
-R05 = T_RECT1(H - 30 - M9, H - 30 - M9 + M8, L - 14 - BT - M6 + M7 / 2 + 4 * SPS, L - 14 - BT - M6 - M7 / 2 + 4 * SPS)
+    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-SPEK = 0
+    STR_OUT(15) = "'FINE BLOCCO"
 
-Case 3, 4
+'Call CUT_END_S(H, L, "C", POSINTAB)
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+Call FVTPT(3, NND, "C")
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+
-'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+
-'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+Sub S_1036629E(ByVal NND As Integer)
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M10 - 4 * SPS), 10)
+ACT_MOD = "1036629"
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+
 
-If VV = 4 Then
+
-R03 = T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
+
-End If
+
-If VV = 3 Then
+
-R03 = T_RECT2(121, L - (14 + BT + M5 - 4 * SPS), 24, 24)
+
-End If
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, -SCS, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
 M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
+M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
+M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
 M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-YY1 = 14 + BT + 32 - 4 * SPS
+M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
-R05 = T_RECT1(H - 30 - M9, H - 30 - M9 + M8, L - 14 - BT - M6 + M7 / 2 + 4 * SPS, L - 14 - BT - M6 - M7 / 2 + 4 * SPS)
+M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
 M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-Case 5, 6
+ODP = INFO_DAT(NND, 0, 5)
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+EN_ASL = 10
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+
-'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+Select Case ver
-'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M10 - 4 * SPS), 10)
+AGG = 1
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+
 AGG = 2
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L + SCS)
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, -SCS, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+
 R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 R01 = R01A & R01B & R01C & R01D & R01E & R01F
-R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
+
-R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
+R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)
 If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS, 8.5)
+R02 = R02A & R02B
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS + 0.75, 8.5)
+
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS - 0.75, 8.5)
+R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03B = T_SLOT(M5 + M6 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
-YY1 = 14 + BT + 32 - 4 * SPS
+If M23 > 0 Then R03D = T_SLOT(M23, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03D = ""
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+R03 = R03A & R03B & R03C & R03D
-R05 = T_RECT1(H - 30 - M9, H - 30 - M9 + M8, L - 14 - BT - M6 + M7 / 2 + 4 * SPS, L - 14 - BT - M6 - M7 / 2 + 4 * SPS)
+
-SPEK = 0
+DIM_ASL = 6.5
 R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-Case 7, 8
+R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+R04 = R04A & R04B & R04C & R04D & R04E & R04F
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+
-'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
-'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M10 - 4 * SPS), 10)
+R06 = ""
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+
 R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L + SCS)
+R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
-R01 = R01 & T_RECT1(H - 10, H + 1, -SCS, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)
 R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+R09 = R09A & R09B & R09C & R09D
 
-R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
+R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
-R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
+R_MS = 0.7
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS, 8.5)
+R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS + 0.75, 8.5)
+
-R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS - 0.75, 8.5)
+If M21 > 0 Then R12 = T_SLOT(M21, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R12 = ""
 If M22 > 0 Then R13 = T_SLOT(H - M22, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R13 = ""
 
-YY1 = 14 + BT + 32 - 4 * SPS
+R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
-R05 = T_RECT1(H - 30 - M9, H - 30 - M9 + M8, L - 14 - BT - M6 + M7 / 2 + 4 * SPS, L - 14 - BT - M6 - M7 / 2 + 4 * SPS)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14
 
 
 P1 = 250
 P2 = H - 400
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 SPEK = 1
 STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
     STR_OUT(5) = TL_CUT_O
     STR_OUT(6) = "TOOLANGLE(0)"
     STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(11) = "'FINE BLOCCO"
-Sub S_1015627A(ByVal NND As Integer)
+
-ACT_MOD = "1015627"
+'Call CUT_END_S(H, L, "0", POSINTAB)
-CLAMP = 1
+
 
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
     STR_OUT(5) = TL_CUT_V
     STR_OUT(6) = "TOOLANGLE(90)"
     STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+    STR_OUT(9) = TL_CUT_O
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+    STR_OUT(10) = "TOOLANGLE(0)"
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+    STR_OUT(11) = "MIDCUT(N)"
-VV = Replace(VV, "H", "")
+    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(15) = "'FINE BLOCCO"
 
 'Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 
-R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+Sub S_1036629F(ByVal NND As Integer)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M2 - 4 * SPS), 10)
+ACT_MOD = "1036629"
-R02 = T_CIRC(13, L - (M1 + BT + M5 + M2 - M3 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M3 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 - 4 * SPS), 10)
+
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 60)
+
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
 M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-YY1 = M1 + BT + 32 - 4 * SPS
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-SPEK = 0
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
 M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
 M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
 M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+'M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
 'M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+'M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M2 - 4 * SPS), 10)
+M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
-R02 = T_CIRC(13, L - (M1 + BT + M5 + M2 - M3 - 4 * SPS), 10)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M3 - 4 * SPS), 10)
+ODP = INFO_DAT(NND, 0, 5)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 - 4 * SPS), 10)
+
 SCS = 6
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS))
+EN_ASL = 10
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 60)
+If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 Select Case ver
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+AGG = 1
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+AGG = 2
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
-YY1 = M1 + BT + 32 - 4 * SPS
+R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
-SPEK = 0
+If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
 If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
 If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
 If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
-R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+R01 = R01A & R01B & R01C & R01D & R01E & R01F
 
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M2 - 4 * SPS), 10)
+If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""
-R02 = T_CIRC(13, L - (M1 + BT + M5 + M2 - M3 - 4 * SPS), 10)
+R02 = R02A & R02B
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M3 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 - 4 * SPS), 10)
+R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03B = T_SLOT(M5 + M6 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS))
+If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 60)
+If M23 > 0 Then R03D = T_SLOT(M23, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03D = ""
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+R03 = R03A & R03B & R03C & R03D
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 DIM_ASL = 6.5
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04 = R04A & R04B & R04C & R04D & R04E & R04F
 
-YY1 = M1 + BT + 32 - 4 * SPS
+R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
 R06 = ""
 
-Case 4
+R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)
 
-R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M2 - 4 * SPS), 10)
+
-R02 = T_CIRC(13, L - (M1 + BT + M5 + M2 - M3 - 4 * SPS), 10)
+R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M3 - 4 * SPS), 10)
+R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 - 4 * SPS), 10)
+
 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS))
+R09 = R09A & R09B & R09C & R09D
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 60)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+R_MS = 0.7
 R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+'If M21 > 0 Then R12 = T_SLOT(M21, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R12 = ""
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+'If M22 > 0 Then R13 = T_SLOT(H - M22, 13 + 58 + M20 - 4 * SPS, 20, 6.5, 90) Else R13 = ""
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14  '& R12 & R13
 
-YY1 = M1 + BT + 32 - 4 * SPS
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 SPEK = 1
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 
 Call SAVE_SUB(NND, STRINGA)
-fn = R01 & R02 & R04
+
 POSINTAB = def_posintab(NND)
 
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
     STR_OUT(5) = TL_CUT_O
     STR_OUT(6) = "TOOLANGLE(0)"
     STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(11) = "'FINE BLOCCO"
 
 'Call CUT_END_S(H, L, "0", POSINTAB)
-Sub S_1015448C(ByVal NND As Integer)
+
-ACT_MOD = "1015448"
+
-CLAMP = 1
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
     STR_OUT(5) = TL_CUT_V
     STR_OUT(6) = "TOOLANGLE(90)"
     STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
     STR_OUT(9) = TL_CUT_O
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+    STR_OUT(10) = "TOOLANGLE(0)"
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+    STR_OUT(11) = "MIDCUT(N)"
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
-VV = Replace(VV, "P", "")
+    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(15) = "'FINE BLOCCO"
 
 'Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 
 End Sub
-Case 1, 2
+
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+Sub S_10414310(ByVal NND As Integer)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+ACT_MOD = "1041431"
 CLAMP = 0
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
+
-'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
+
-'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M5 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-If VV = 2 Then
+
-R03 = T_CIRC(121, L - (14 + BT + M2 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
+
-End If
+
-If VV = 1 Then
+
-R03 = T_RECT2(121, L - (14 + BT + M2 - 4 * SPS), 24, 24)
+
-End If
+
 M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
 M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
 M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
 M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
-YY1 = 14 + BT + 32 - 4 * SPS
+
-R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
+ODP = INFO_DAT(NND, 0, 5)
-R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+
-SPEK = 0
+EN_ASL = 10
 If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
-Case 3, 4
+
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = R01 & T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+Select Case ver
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+AGG = 1
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
+AGG = 2
-'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
+
-'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M5 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
+
 R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
+If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
 If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+R01 = R01A & R01B & R01C & R01D & R01E & R01F
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+R02 = R02A & R02B
 
 R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-YY1 = 14 + BT + 32 - 4 * SPS
+If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
+If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
+R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
+R03 = R03A & R03B & R03C
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS, 8.5)
+
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS + 0.5, 8.5)
+DIM_ASL = 6.5
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS - 0.5, 8.5)
+R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-Case 5, 6
+R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+R04 = R04A & R04B & R04C & R04D & R04E & R04F
-R01 = R01 & T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+R06 = ""
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
+
-'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
+R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)
-'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M5 - 4 * SPS), 10)
+R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
+
 R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
+R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)
 
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+R09 = R09A & R09B & R09C & R09D
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+R_MS = 0.7
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)
 
 If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
-YY1 = 14 + BT + 32 - 4 * SPS
+If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
 
-R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
+R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
-R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
+R15 = T_SLOT(13, L - 16.3 - M24, 6.5, 12, 0) & T_SLOT(H - 13, L - 16.3 - M24, 6.5, 12, 0)
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS, 8.5)
+
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS + 0.5, 8.5)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS - 0.5, 8.5)
+
 
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+
-SPEK = 0
+
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
     STR_OUT(5) = TL_CUT_O
     STR_OUT(6) = "TOOLANGLE(0)"
     STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(11) = "'FINE BLOCCO"
 
 'Call CUT_END_S(H, L, "0", POSINTAB)
-Sub S_1025392A(ByVal NND As Integer)
+
-ACT_MOD = "1025392"
+
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
     STR_OUT(5) = TL_CUT_V
     STR_OUT(6) = "TOOLANGLE(90)"
     STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
     STR_OUT(9) = TL_CUT_O
     STR_OUT(10) = "TOOLANGLE(0)"
     STR_OUT(11) = "MIDCUT(N)"
     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+    STR_OUT(15) = "'FINE BLOCCO"
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+'Call CUT_END_S(H, L, "C", POSINTAB)
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+Call FVTPT(3, NND, "C")
-VV = Replace(VV, "P", "")
+
 
 End Sub
 
 Sub S_1041431A(ByVal NND As Integer)
 ACT_MOD = "1041431"
 CLAMP = 0
 
-Case 1, 2
+
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
+
-'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
+
-'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M9 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
+
 M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
-If VV = 2 Then
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-R03 = T_CIRC(121, L - (14 + BT + M2 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-End If
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-If VV = 1 Then
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-R03 = T_RECT2(121, L - (14 + BT + M2 - 4 * SPS), 24, 24)
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-End If
+M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
 M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
+M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
 M22 = INPUT_NUM(NND, "M22", M22, ACT_MOD)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+M23 = INPUT_NUM(NND, "M23", M23, ACT_MOD)
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+ODP = INFO_DAT(NND, 0, 5)
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 SCS = 6
 EN_ASL = 10
-YY1 = 14 + BT + 32 - 4 * SPS
+If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
-R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
+
-R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
+Select Case ver
-
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+AGG = 1
-R05 = T_RECT1(H - M7 - 30, H - M7 - 30 + M6, L - 14 - BT - M8 + 4 * SPS, L - 14 - BT - M8 + 4 * SPS - M5)
+
-SPEK = 0
+AGG = 2
 Case Else
-Case 3, 4
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = R01 & T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
 R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
+If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
-'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
+If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
-'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M9 - 4 * SPS), 10)
+R01 = R01A & R01B & R01C & R01D & R01E & R01F
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
+
 R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+R02 = R02A & R02B
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+R03 = R03A & R03B & R03C & R03D
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 DIM_ASL = 6.5
 R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-YY1 = 14 + BT + 32 - 4 * SPS
+R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
+R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
+R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
+R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS, 8.5)
+R04 = R04A & R04B & R04C & R04D & R04E & R04F
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS + 0.5, 8.5)
+
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS - 0.5, 8.5)
+R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+R06 = ""
-R05 = T_RECT1(H - M7 - 30, H - M7 - 30 + M6, L - 14 - BT - M8 + 4 * SPS, L - 14 - BT - M8 + 4 * SPS - M5)
+
 R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)
 
-Case 5, 6
+R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = R01 & T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)
 
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
+
-'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
+'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
-'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
+R09 = R09A & R09B & R09C & R09D
-R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M9 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
+R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
 R_MS = 0.7
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
+If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
 
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+R15 = T_SLOT(13, L - 16.3 - M24, 12, 6.5, 0) & T_SLOT(H - 13, L - 16.3 - M24, 12, 6.5, 0)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 
 P1 = 250
-YY1 = 14 + BT + 32 - 4 * SPS
+
 MVAL = 500
-R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
+
-R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
+
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS, 8.5)
+
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS + 0.5, 8.5)
+
-R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS - 0.5, 8.5)
+
 POSINTAB = def_posintab(NND)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
+
-R05 = T_RECT1(H - M7 - 30, H - M7 - 30 + M6, L - 14 - BT - M8 + 4 * SPS, L - 14 - BT - M8 + 4 * SPS - M5)
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-SPEK = 0
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
     STR_OUT(5) = TL_CUT_O
     STR_OUT(6) = "TOOLANGLE(0)"
     STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(11) = "'FINE BLOCCO"
 
 'Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
     STR_OUT(5) = TL_CUT_V
     STR_OUT(6) = "TOOLANGLE(90)"
     STR_OUT(7) = "MIDCUT(N)"
-Sub S_1015390A(ByVal NND As Integer)
+    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
-ACT_MOD = "1015390"
+    STR_OUT(9) = TL_CUT_O
-CLAMP = 1
+    STR_OUT(10) = "TOOLANGLE(0)"
     STR_OUT(11) = "MIDCUT(N)"
     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(15) = "'FINE BLOCCO"
 
 'Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+
-VV = Replace(VV, "H", "")
+
 
 Sub S_1041431B(ByVal NND As Integer)
 ACT_MOD = "1041431"
 CLAMP = 0
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
-Case 1, 2
+
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-R02 = T_CIRC(46, L - 5, 4.5)
+
-R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
+
-R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
+
-R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
+
-R02 = R02 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 72 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + 72 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
 M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
+M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + 72 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + 72 - 18 - 4 * SPS), 1, 1)
+M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
 M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
-R02 = R02 & T_CIRC(2, L - 57 - 14 - BT + 4 * SPS, 12)
+M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
-R01 = R01 & T_RECT1(-3, 2, L - 57 - 14 - BT + 4 * SPS - 6, L - 57 - 14 - BT + 4 * SPS + 6)
+M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 ODP = INFO_DAT(NND, 0, 5)
-YY1 = 14 + BT + 32 - 4 * SPS
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 72)
+
 EN_ASL = 10
 If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
-Case 3, 4
+
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+Select Case ver
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
 AGG = 1
-R02 = T_CIRC(46, L - 5, 4.5)
+
-R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
+AGG = 2
-R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
+
-R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-R02 = R02 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+
 
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 72 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + 72 - 18 - 4 * SPS))
+R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
 If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
+R01 = R01A & R01B & R01C & R01D & R01E & R01F
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + 72 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + 72 - 18 - 4 * SPS), 1, 1)
+R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""
 R02 = R02A & R02B
-R02 = R02 & T_CIRC(2, L - 57 - 14 - BT + 4 * SPS, 12)
+
-R01 = R01 & T_RECT1(-3, 2, L - 57 - 14 - BT + 4 * SPS - 6, L - 57 - 14 - BT + 4 * SPS + 6)
+R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-YY1 = 14 + BT + 32 - 4 * SPS
+If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 72)
+If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
-SPEK = 0
+If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03 = R03A & R03B & R03C & R03D
 
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+DIM_ASL = 6.5
 R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-fn = R01 & R02 & R04
+R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04 = R04A & R04B & R04C & R04D & R04E & R04F
 
 R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
 R06 = ""
 
 R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)
 
 R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
 
 R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)
 R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)
 
 R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
-Sub S_1015353A(ByVal NND As Integer)
+R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)
-ACT_MOD = "1015353"
+
-CLAMP = 1
+'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
 R09 = R09A & R09B & R09C & R09D
 
 R10 = T_RECT2(17.5, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
 R_MS = 0.7
 R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)
 
 'If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
 'If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
 
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+R15 = T_SLOT(13, L - 16.3 - M24, 12, 6.5, 0) & T_SLOT(H - 13, L - 16.3 - M24, 12, 6.5, 0)
-VV = Replace(VV, "H", "")
+
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14 & R15
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-R01 = T_RECT1(-46, 26, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
 
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 91 - 18 - 4 * SPS) - 55, L - (14 + BT + 23 + 91 - 18 - 4 * SPS))
+    STR_OUT(2) = TL_CLN
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 18 - 4 * SPS), L - (14 + BT + 23 + 18 - 4 * SPS) + 40.5)
+    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
+    STR_OUT(5) = TL_CUT_O
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+    STR_OUT(6) = "TOOLANGLE(0)"
     STR_OUT(7) = "MIDCUT(N)"
-R01 = R01 & T_BLQ(5, L - (14 + BT + 145 - 4 - 4 * SPS), 0, L - (14 + BT + 145 - 4 - 4 * SPS) + 5, 1, 1)
+    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
+    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 23 + 18 - 4 * SPS), H, L - (14 + BT + 23 + 18 - 4 * SPS) - 5, 1, 1)
+    STR_OUT(11) = "'FINE BLOCCO"
-R01 = R01 & T_BLQ(H, L - (14 + BT + 23 + 91 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 23 + 91 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + 145 - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + 145 - 4 - 4 * SPS), 1, 1)
+'Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
-YY1 = 14 + BT + 23 - 4 * SPS
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 91)
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
+    STR_OUT(5) = TL_CUT_V
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+    STR_OUT(6) = "TOOLANGLE(90)"
     STR_OUT(7) = "MIDCUT(N)"
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+    STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
+    STR_OUT(9) = TL_CUT_O
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
+    STR_OUT(10) = "TOOLANGLE(0)"
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
+    STR_OUT(11) = "MIDCUT(N)"
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 91 - 18 - 4 * SPS) - 55, L - (14 + BT + 23 + 91 - 18 - 4 * SPS))
+    STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 18 - 4 * SPS), L - (14 + BT + 23 + 18 - 4 * SPS) + 40.5)
+    STR_OUT(15) = "'FINE BLOCCO"
 
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
+'Call CUT_END_S(H, L, "C", POSINTAB)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+Call FVTPT(3, NND, "C")
 
-R01 = R01 & T_BLQ(5, L - (14 + BT + 145 - 4 - 4 * SPS), 0, L - (14 + BT + 145 - 4 - 4 * SPS) + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 23 + 18 - 4 * SPS), H, L - (14 + BT + 23 + 18 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 23 + 91 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 23 + 91 - 18 - 4 * SPS), 1, 1)
+Sub S_1041431C(ByVal NND As Integer)
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + 145 - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + 145 - 4 - 4 * SPS), 1, 1)
+ACT_MOD = "1041431"
 CLAMP = 0
-YY1 = 14 + BT + 23 - 4 * SPS
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 91)
+
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-R01 = T_RECT1(-46, 26, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
 M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 91 - 18 - 4 * SPS) - 55, L - (14 + BT + 23 + 91 - 18 - 4 * SPS))
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 18 - 4 * SPS), L - (14 + BT + 23 + 18 - 4 * SPS) + 40.5)
+M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
 M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
+M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
 M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
-R01 = R01 & T_BLQ(5, L - (14 + BT + 145 - 4 - 4 * SPS), 0, L - (14 + BT + 145 - 4 - 4 * SPS) + 5, 1, 1)
+M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
+M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 23 + 18 - 4 * SPS), H, L - (14 + BT + 23 + 18 - 4 * SPS) - 5, 1, 1)
+M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
-R01 = R01 & T_BLQ(H, L - (14 + BT + 23 + 91 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 23 + 91 - 18 - 4 * SPS), 1, 1)
+M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + 145 - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + 145 - 4 - 4 * SPS), 1, 1)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 ODP = INFO_DAT(NND, 0, 5)
-YY1 = 14 + BT + 23 - 4 * SPS
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 91)
+
-SPEK = 0
+EN_ASL = 10
 If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
-Case 4
+
 
-R01 = T_RECT1(-6.6, 26, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
+Select Case ver
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+AGG = 1
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
+AGG = 2
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 91 - 18 - 4 * SPS) - 55, L - (14 + BT + 23 + 91 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 18 - 4 * SPS), L - (14 + BT + 23 + 18 - 4 * SPS) + 40.5)
+R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
 R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
+If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
 If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
-R01 = R01 & T_BLQ(5, L - (14 + BT + 145 - 4 - 4 * SPS), 0, L - (14 + BT + 145 - 4 - 4 * SPS) + 5, 1, 1)
+If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
+R01 = R01A & R01B & R01C & R01D & R01E & R01F
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 23 + 18 - 4 * SPS), H, L - (14 + BT + 23 + 18 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 23 + 91 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 23 + 91 - 18 - 4 * SPS), 1, 1)
+R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + 145 - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + 145 - 4 - 4 * SPS), 1, 1)
+If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""
 R02 = R02A & R02B
-YY1 = 14 + BT + 23 - 4 * SPS
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 91)
+R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-SPEK = 0
+If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
 If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 R03 = R03A & R03B & R03C & R03D
-fn = R01 & R04
+
 DIM_ASL = 6.5
 R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04 = R04A & R04B & R04C & R04D & R04E & R04F
 
 R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
 'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
 R06 = ""
 
 R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)
 
-Sub S_10130960(ByVal NND As Integer)
+R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
-ACT_MOD = "1013096"
+
-CLAMP = 1
+R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)
 R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)
 
 R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
 R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)
 
 'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
 R09 = R09A & R09B & R09C & R09D
 
 R10 = T_RECT2(8, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+R_MS = 0.7
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+
-VV = Replace(VV, "P", "")
+'If M22 > 0 Then R12 = T_SLOT(38, 13 + 58 + M22 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
 'If M23 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M23 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
 
 R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
 
-FAI = 14 + 17 + -3 * SPS         'VALORE INTERNO PIEGA FRONTALE INFERIORE
+R15 = T_SLOT(13, L - 16.3 - M24, 12, 6.5, 0) & T_SLOT(H - 13, L - 16.3 - M24, 12, 6.5, 0)
-FAS = L - (14 + BT - 3 * SPS)    'VALORE INTERNO PIEGA FRONTALE SUPERIORE
+
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14 & R15
-SM = 4
+
-AA = 45 / 57.29577957
+
-DD = Round(Sin(AA) * SM, 3)
+
 P2 = H - 400
-SCINF = FAI + 4 - SPS
+
-SCSUP = FAS - 4 + SPS
+
 SPEK = 1
-R01 = T_CIRC(50.5, L - 5, 4.5)
+
 
-'SMUSSI
+
-R01 = R01 & T_BLQ(0, SCSUP - DD, DD, SCSUP, 1, 1)
+
-R01 = R01 & T_BLQ(H - DD, SCSUP, H, SCSUP - DD, 1, 1)
+
-R01 = R01 & T_BLQ(H, SCINF + DD, H - DD, SCINF, 1, 1)
+
-R01 = R01 & T_BLQ(DD, 14, 0, 14 + DD, 1, 1)
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
-R02 = T_RECT1(H - 20, H + SCS, -SCS, SCINF)
+    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
-R02 = R02 & T_RECT1(H - 20, H + SCS, SCSUP, L + SCS)
+    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
-R02 = R02 & T_RECT1(-SCS, 30.5, SCSUP, L + SCS)
+    STR_OUT(5) = TL_CUT_O
-R02 = R02 & T_RECT1(-SCS, 30.5, -SCS, 14) 'basso destra nel disegno
+    STR_OUT(6) = "TOOLANGLE(0)"
     STR_OUT(7) = "MIDCUT(N)"
-DD10 = 10
+    STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
-R03 = T_RECT1(-1, 4, FAS - 105 + SPS + DD10 / 2, FAS - 105 + SPS - DD10 / 2)
+    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
-R03 = R03 & T_CIRC(17, FAS - M4 + SPS, DD10)
+    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-R03 = R03 & T_CIRC(17, FAS - M4 - 45 + SPS, DD10)
+    STR_OUT(11) = "'FINE BLOCCO"
-R03 = R03 & T_CIRC(4, FAS - 105 + SPS, DD10)
+
-If LA >= 216 Then R04 = T_CIRC(17, FAS - M4 - M1 + 45 + SPS, DD10) Else R04 = ""
+'Call CUT_END_S(H, L, "0", POSINTAB)
-R03 = R03 & T_CIRC(17, FAS - M4 - M1 + SPS, DD10)
+
 
-YY1 = FAS - 32 + SPS
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-R05 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
-R09 = T_CIRC(125, FAS - M2 + SPS, 20) & T_CIRC(125 + 55, FAS - M2 + SPS, 20) & T_CIRC(125 - 30, FAS - M2 + SPS, 6.5)
+    STR_OUT(5) = TL_CUT_V
     STR_OUT(6) = "TOOLANGLE(90)"
     STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
     STR_OUT(9) = TL_CUT_O
     STR_OUT(10) = "TOOLANGLE(0)"
     STR_OUT(11) = "MIDCUT(N)"
     STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(15) = "'FINE BLOCCO"
 
 'Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 
 End Sub
 
 Sub S_1041431D(ByVal NND As Integer)
 ACT_MOD = "1041431"
 CLAMP = 0
-Sub S_10128290(ByVal NND As Integer)
+
-ACT_MOD = "1012829"
+
-CLAMP = 1
+
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
 M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
 M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+M11 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-VV = Replace(VV, "P", "")
+M13 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
 M14 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
 M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
 M16 = INPUT_NUM(NND, "M16", M16, ACT_MOD)
-FAI = 14 + 17 + -3 * SPS         'VALORE INTERNO PIEGA FRONTALE INFERIORE
+M17 = INPUT_NUM(NND, "M17", M17, ACT_MOD)
-FAS = L - (14 + BT - 3 * SPS)    'VALORE INTERNO PIEGA FRONTALE SUPERIORE
+M18 = INPUT_NUM(NND, "M18", M18, ACT_MOD)
 M19 = INPUT_NUM(NND, "M19", M19, ACT_MOD)
-SM = 4
+M20 = INPUT_NUM(NND, "M20", M20, ACT_MOD)
-AA = 45 / 57.29577957
+M21 = INPUT_NUM(NND, "M21", M21, ACT_MOD)
-DD = Round(Sin(AA) * SM, 3)
+M24 = INPUT_NUM(NND, "M24", M24, ACT_MOD)
 M25 = INPUT_NUM(NND, "M25", M25, ACT_MOD)
-SCINF = FAI + 4 - SPS
+M26 = INPUT_NUM(NND, "M26", M26, ACT_MOD)
-SCSUP = FAS - 4 + SPS
+M27 = INPUT_NUM(NND, "M27", M27, ACT_MOD)
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 ODP = INFO_DAT(NND, 0, 5)
 
-Case 1, 2
+
-R01 = T_CIRC(50.5, L - 5, 4.5)
+EN_ASL = 10
-R01 = R01 & T_BLQ(0, SCSUP - DD, DD, SCSUP, 1, 1)
+If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU " & ACT_MOD)
-R01 = R01 & T_BLQ(H - DD, SCSUP, H, SCSUP - DD, 1, 1)
+
-R01 = R01 & T_BLQ(H, SCINF + DD, H - DD, SCINF, 1, 1)
+
-R01 = R01 & T_BLQ(DD, 14, 0, 14 + DD, 1, 1)
+Select Case ver
 Case 1
 AGG = 1
-R01 = R01 & T_RECT1(H - 20, H + SCS, -SCS, SCINF)
+
-R01 = R01 & T_RECT1(H - 20, H + SCS, SCSUP, L + SCS)
+AGG = 2
-R01 = R01 & T_RECT1(-SCS, 30.5, SCSUP, L + SCS)
+
-PR01 = R01 & T_RECT1(-SCS, 30.5, -SCS, 14) 'basso destra nel disegno
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
-DD10 = 10
+
-R01 = R01 & T_RECT1(-1, 4, FAS - 158 + SPS + DD10 / 2, FAS - 158 + SPS - DD10 / 2)
+R01A = T_HEX(M8, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_CIRC(17, FAS - M4 + SPS, DD10)
+R01B = T_HEX(H - M10, 13 + 58 - 17.5 - 2 * SPS, 11)
-R01 = R01 & T_CIRC(17, FAS - M4 - M2 + SPS, DD10)
+If M9 > 0 Then R01C = T_HEX(M9, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01C = ""
-R01 = R01 & T_CIRC(4, FAS - 158 + SPS, DD10)
+If M11 > 0 Then R01D = T_HEX(H - M11, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01D = ""
-If LA >= 216 Then R02 = T_CIRC(17, FAS - M4 - M1 + M2 + SPS, DD10) Else R02 = ""
+If M13 > 0 Then R01E = T_HEX(M13, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01E = ""
-R01 = R01 & T_CIRC(17, FAS - M4 - M1 + SPS, DD10)
+If M14 > 0 Then R01F = T_HEX(H - M14, 13 + 58 - 17.5 - 2 * SPS, 11) Else R01F = ""
 
 R01 = R01A & R01B & R01C & R01D & R01E & R01F
-YY1 = FAS - 32 + SPS
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+R02A = T_SLOT(13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 - 4 * SPS, 16, EN_ASL, 90)
 If M7 > 0 Then R02B = T_SLOT(13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(H - 13, 13 + 58 + 50 + M7 - 4 * SPS, 16, EN_ASL, 90) Else R02B = ""
 R02 = R02A & R02B
-R03 = T_CIRC(125, FAS - M5 + SPS, 20)                                               'foro emergenza tondo
+
-R03 = R03 & T_CIRC(125 + 55, FAS - M5 + SPS, 20)                                          'foro emergenza tondo
+R03A = T_SLOT(M15, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R03 = R03 & T_CIRC(125 - 30, FAS - M5 + SPS, 6.5)                                          'foro emergenza tondo
+If M20 > 0 Then R03A = R03A & T_SLOT(M5 + 50 - M20, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-SPEK = 0
+R03B = T_SLOT(M5 + M6 - 50, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) & T_SLOT(M5 + M6 / 2, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
 If M21 > 0 Then R03B = R03B & T_SLOT(M5 + M6 - 50 + M21, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-Case 3, 4
+If M16 > 0 Then R03C = T_SLOT(H - M16, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90) Else R03C = ""
-R01 = T_CIRC(50.5, L - 5, 4.5)
+If M25 > 0 Then R03D = T_SLOT(M25, 13 + 58 + M19 - 4 * SPS, 16, EN_ASL, 90)
-R01 = R01 & T_BLQ(0, SCSUP - DD, DD, SCSUP, 1, 1)
+R03 = R03A & R03B & R03C & R03D
-R01 = R01 & T_BLQ(H - DD, SCSUP, H, SCSUP - DD, 1, 1)
+
-R01 = R01 & T_BLQ(H, SCINF + DD, H - DD, SCINF, 1, 1)
+DIM_ASL = 6.5
-R01 = R01 & T_BLQ(DD, 14, 0, 14 + DD, 1, 1)
+R04A = T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04B = T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
 R04C = T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 2, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_RECT1(H - 20, H + SCS, -SCS, SCINF)
+R04D = T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 3, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_RECT1(H - 20, H + SCS, SCSUP, L + SCS)
+R04E = T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 4, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-R01 = R01 & T_RECT1(-SCS, 30.5, SCSUP, L + SCS)
+R04F = T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS, 12, DIM_ASL, 0) & T_SLOT(240 + M18 * 5, 13 + 58 + M19 + 65 - 4 * SPS + 10, 12, DIM_ASL, 0)
-PR01 = R01 & T_RECT1(-SCS, 30.5, -SCS, 14) 'basso destra nel disegno
+R04 = R04A & R04B & R04C & R04D & R04E & R04F
 
-DD10 = 10
+R05 = T_RECT1(M5 - 70, M5 + 70, L - 20, L + 6) & T_RECT1(M5 + M6 - 70, M5 + M6 + 70, L - 20, L + 6)
-R01 = R01 & T_RECT1(-1, 4, FAS - 158 + SPS + DD10 / 2, FAS - 158 + SPS - DD10 / 2)
+'R06 = T_RECT1(-6, M3, -6, 23) & T_RECT1(M3 + M2, M3 + M2 + M4 + 6, -6, 23)
-R01 = R01 & T_CIRC(17, FAS - M4 + SPS, DD10)
+R06 = ""
-R01 = R01 & T_CIRC(17, FAS - M4 - M2 + SPS, DD10)
+
-R01 = R01 & T_CIRC(4, FAS - 158 + SPS, DD10)
+R07 = T_SLOT(M3 - 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90) & T_SLOT(M3 + M2 + 1, 23 + (13.6 - 2) / 2, 15.6, 2, 90)
-If LA >= 216 Then R02 = T_CIRC(17, FAS - M4 - M1 + M2 + SPS, DD10) Else R02 = ""
+
-R01 = R01 & T_CIRC(17, FAS - M4 - M1 + SPS, DD10)
+R08 = T_RECT1(-6, 20, L - 20, L + 6) & T_RECT1(H - 20, H + 6, L - 20, L + 6)
 
 R09A = T_SMUS(20 - 5.25, L - 20) & T_SMUS(0, L - 20 - 20 + 5.25) & T_SMUS(5, L - 20 - 20 + 5.25 + 5) & T_SMUS(10, L - 20 - 20 + 5.25 + 10)
-YY1 = FAS - 32 + SPS
+R09B = T_SMUS(H - (20 - 5.25), L - 20) & T_SMUS(H, L - 20 - 20 + 5.25) & T_SMUS(H - 5, L - 20 - 20 + 5.25 + 5) & T_SMUS(H - 10, L - 20 - 20 + 5.25 + 10)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
 R09C = T_SMUS(5 - 5, L - 20 - 20 + 5.25 + 5 + 5) & T_SMUS(10 - 5, L - 20 - 20 + 5.25 + 10 + 5)
 R09D = T_SMUS(H - 10 + 5, L - 20 - 20 + 5.25 + 10 + 5) & T_SMUS(H - 5 + 5, L - 20 - 20 + 5.25 + 5 + 5)
-R03 = T_CIRC(125, FAS - M5 + SPS, 20)                                               'foro emergenza tondo
+
-R03 = R03 & T_CIRC(125 + 55, FAS - M5 + SPS, 20)                                          'foro emergenza tondo
+'R09C = T_CIRC(0, L - 20, 10.5) & T_CIRC(H, L - 20, 10.5)
-R03 = R03 & T_CIRC(125 - 30, FAS - M5 + SPS, 6.5)                                          'foro emergenza tondo
+R09 = R09A & R09B & R09C & R09D
 
 R10 = T_RECT2(8, 13 + 58 - 17.5 - 2.4, 6.8, 6.8)
 R_MS = 0.7
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+R11 = T_SMUS(-R_MS, 23 - R_MS) & T_SMUS(M3 - R_MS, -R_MS) & T_SMUS(M3 + M2 + R_MS, -R_MS) & T_SMUS(H + R_MS, 23 - R_MS)
 
 If M26 > 0 Then R12 = T_SLOT(38, 13 + 58 + M26 - 4 * SPS, 12, 6.5, 90) Else R12 = ""
 If M27 > 0 Then R13 = T_SLOT(H - 38, 13 + 58 + M27 - 4 * SPS, 12, 6.5, 90) Else R13 = ""
 
 R14 = T_DATAMATRIX(ODP, H - 10 - 18.5, L - 46.3 - 45, "V")
 
 R15 = T_SLOT(13, L - 16.3 - M24, 12, 6.5, 0) & T_SLOT(H - 13, L - 16.3 - M24, 12, 6.5, 0)
 
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R14 & R15 & R12 & R13
 
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 SPEK = 1
 STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
-Sub S_1006711A(ByVal NND As Integer)
+
-ACT_MOD = "1006711"
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-CLAMP = 1
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
     STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
     STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
     STR_OUT(5) = TL_CUT_O
     STR_OUT(6) = "TOOLANGLE(0)"
     STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = UnloadOutline(110, 6, 230, -6, H, L)
     STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+    STR_OUT(11) = "'FINE BLOCCO"
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+'Call CUT_END_S(H, L, "0", POSINTAB)
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+
-VV = Replace(VV, "P", "")
+
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
-DD10 = 10
+    STR_OUT(3) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M3) & "," & Jcdf(L - 23 + 50) & ",-6,0,0,M0))"
-SCSUP = M1 + 10.7
+    STR_OUT(4) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(M3 + M2) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H) & "," & Jcdf(L - 23 + 50) & ",0,-6,0,M0))"
-SCFOR = M1 + 45.7
+    STR_OUT(5) = TL_CUT_V
-SCINF = M1 + 63.7
+    STR_OUT(6) = "TOOLANGLE(90)"
-CENT = (H - 26 - 30) / 2
+    STR_OUT(7) = "MIDCUT(N)"
     STR_OUT(8) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
     STR_OUT(9) = TL_CUT_O
-Case 1, 3
+    STR_OUT(10) = "TOOLANGLE(0)"
     STR_OUT(11) = "MIDCUT(N)"
-R01 = T_RECT1(-46, 26, -SCS, 99.3)
+    STR_OUT(12) = UnloadOutline(110, 6, 230, -6, H, L)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
+    STR_OUT(13) = "PUN(LIN" & CNLV_GEO & "(P," & 230 & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0))"
     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",230," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-R02 = T_CIRC(46, L - 7, 4.5)
+    STR_OUT(15) = "'FINE BLOCCO"
-R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
+'Call CUT_END_S(H, L, "C", POSINTAB)
-R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
+Call FVTPT(3, NND, "C")
-R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
+
-R02 = R02 & T_CIRC(36, 78.5, 5)
+
-R02 = R02 & T_CIRC(36 + M4, 78.5, 5)
+
-R02 = R02 & T_CIRC(26 + CENT, 78.5, 5)
+
-R02 = R02 & T_CIRC(H - 40 - M4, 78.5, 5)
+Sub S_1036714A(ByVal NND As Integer)
-R02 = R02 & T_CIRC(H - 40, 78.5, 5)
+ACT_MOD = "1036714"
-R01 = R01 & T_RECT1(36 - 2.5, 36 + 2.5, 40.5 - 5, 40.5 + 5)
+
-R01 = R01 & T_RECT1(36 + M4 - 2.5, 36 + M4 + 2.5, 40.5 - 5, 40.5 + 5)
+
-R01 = R01 & T_RECT1(26 + CENT - 2.5, 26 + CENT + 2.5, 40.5 - 5, 40.5 + 5)
+
-R01 = R01 & T_RECT1(H - 40 - M4 - 2.5, H - 40 - M4 + 2.5, 40.5 - 5, 40.5 + 5)
+
-R01 = R01 & T_RECT1(H - 40 - 2.5, H - 40 + 2.5, 40.5 - 5, 40.5 + 5)
+
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
+
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, 99.3)
+
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-R01 = R01 & T_BLQ(5, 99.3, 0, 99.3 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 99.3 + 5, H - 15, 99.3, 1, 1)
+EN_ASL = 10
 Select Case ver
 Case 1
-YY1 = 45.7 + M1
+AGG = 1
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
-SPEK = 0
+AGG = 2
 Case Else
-Case 2, 4
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
-R01 = T_RECT1(-46, 26, -SCS, 99.3)
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
+R01 = T_HEX(M2, L / 2, 11) & T_HEX(H - M4, L / 2, 11)
 If M7 > 0 Then R01 = R01 & T_HEX(M7, L / 2, 11)
-R02 = T_CIRC(46, L - 7, 4.5)
+If M1 > 0 Then R01 = R01 & T_HEX(M1, L / 2, 11)
-R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
+If M8 > 0 Then R01 = R01 & T_HEX(H - M8, L / 2, 11)
-R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
+If M3 > 0 Then R01 = R01 & T_HEX(H - M3, L / 2, 11)
-R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
+
-R02 = R02 & T_CIRC(36, 78.5, 5)
+
-R02 = R02 & T_CIRC(36 + M4, 78.5, 5)
+R_MS = 1
-R02 = R02 & T_CIRC(26 + CENT, 78.5, 5)
+R02 = T_SMUS(-R_MS, -R_MS) & T_SMUS(-R_MS, L + R_MS) & T_SMUS(H + R_MS, L + R_MS) & T_SMUS(H + R_MS, -R_MS)
-R02 = R02 & T_CIRC(H - 40 - M4, 78.5, 5)
+'R03 = T_SMUS(M5 + 105 / 2, -0.75) & T_SMUS(M5 - 105 / 2, L + 0.75) & T_SMUS(M5 + M6 + 105 / 2, -0.75) & T_SMUS(M5 + M6 - 105 / 2, L + 0.75)
-R02 = R02 & T_CIRC(H - 40, 78.5, 5)
+R03A = T_CIRC(M5 + 105 / 2, 0, 4.2) & T_CIRC(M5 - 105 / 2, 0, 4.2) & T_CIRC(M5 + M6 + 105 / 2, 0, 4.2) & T_CIRC(M5 + M6 - 105 / 2, 0, 4.2)
 R03B = T_CIRC(M5 + 105 / 2, L, 4.2) & T_CIRC(M5 - 105 / 2, L, 4.2) & T_CIRC(M5 + M6 + 105 / 2, L, 4.2) & T_CIRC(M5 + M6 - 105 / 2, L, 4.2)
-R01 = R01 & T_RECT1(36 - 2.5, 36 + 2.5, 40.5 - 5, 40.5 + 5)
+R03 = R03A & R03B
-R01 = R01 & T_RECT1(36 + M4 - 2.5, 36 + M4 + 2.5, 40.5 - 5, 40.5 + 5)
+R04 = T_CIRC(0, L - 17, 4.2)
-R01 = R01 & T_RECT1(26 + CENT - 2.5, 26 + CENT + 2.5, 40.5 - 5, 40.5 + 5)
+
-R01 = R01 & T_RECT1(H - 40 - M4 - 2.5, H - 40 - M4 + 2.5, 40.5 - 5, 40.5 + 5)
+
-R01 = R01 & T_RECT1(H - 40 - 2.5, H - 40 + 2.5, 40.5 - 5, 40.5 + 5)
+
 P1 = 250
-R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
+
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, 99.3)
+
 If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
-R01 = R01 & T_BLQ(5, 99.3, 0, 99.3 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 99.3 + 5, H - 15, 99.3, 1, 1)
+
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
-YY1 = 45.7 + M1
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
 
 Sub S_10428730(ByVal NND As Integer)
 ACT_MOD = "1042873"
 CLAMP = 0
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
 M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
 M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 
 SCS = 6
 EN_ASL = 10
 Select Case ver
 Case 1
 AGG = 1
 Case 2
-Sub S_1006707A(ByVal NND As Integer)
+AGG = 2
-ACT_MOD = "1006707"
+
-CLAMP = 1
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
 R01 = T_HEX(M2, L / 2, 11) & T_HEX(H - M4, L / 2, 11)
 If M7 > 0 Then R01 = R01 & T_HEX(M7, L / 2, 11)
 If M1 > 0 Then R01 = R01 & T_HEX(M1, L / 2, 11)
 If M8 > 0 Then R01 = R01 & T_HEX(H - M8, L / 2, 11)
 If M3 > 0 Then R01 = R01 & T_HEX(H - M3, L / 2, 11)
 
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+R_MS = 1
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+R02 = T_SMUS(-R_MS, -R_MS) & T_SMUS(-R_MS, L + R_MS) & T_SMUS(H + R_MS, L + R_MS) & T_SMUS(H + R_MS, -R_MS)
-VV = Replace(VV, "P", "")
+'R03 = T_SMUS(M5 + 105 / 2, -0.75) & T_SMUS(M5 - 105 / 2, L + 0.75) & T_SMUS(M5 + M6 + 105 / 2, -0.75) & T_SMUS(M5 + M6 - 105 / 2, L + 0.75)
 R03A = T_CIRC(M5 + 105 / 2, 0, 4.2) & T_CIRC(M5 - 105 / 2, 0, 4.2) & T_CIRC(M5 + M6 + 105 / 2, 0, 4.2) & T_CIRC(M5 + M6 - 105 / 2, 0, 4.2)
 R03B = T_CIRC(M5 + 105 / 2, L, 4.2) & T_CIRC(M5 - 105 / 2, L, 4.2) & T_CIRC(M5 + M6 + 105 / 2, L, 4.2) & T_CIRC(M5 + M6 - 105 / 2, L, 4.2)
 R03 = R03A & R03B
-DD10 = 10
+R04 = T_CIRC(0, L - 17, 4.2)
-SCSUP = M1 + 14.3
+
-SCFOR = M1 + 46.8
+
-SCINF = M1 + 63.3
+
-CENT = (H - 26 - 30) / 2
+
 P2 = H - 400
 MVAL = 500
-Case 1, 3
+
 
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 37)
+If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
+
-R02 = T_CIRC(46, L - 7, 4.5)
+
-R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
+
 Call CUT_END_S(H, L, "B", POSINTAB)
-R02 = R02 & T_CIRC(36, 18, 5)
+
-R02 = R02 & T_CIRC(36 + M4, 18, 5)
+Call CUT_END_S(H, L, "C", POSINTAB)
-R02 = R02 & T_CIRC(26 + CENT, 18, 5)
+Call FVTPT(3, NND, "C")
-R02 = R02 & T_CIRC(H - 40 - M4, 18, 5)
+
-R02 = R02 & T_CIRC(H - 40, 18, 5)
+
 
-R02 = R02 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
+
-R02 = R02 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
+Sub S_1042873A(ByVal NND As Integer)
-R02 = R02 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
+ACT_MOD = "1042873"
-R02 = R02 & T_RECT1(H - 30, H + 2.6, -SCS, 37)
+
 
-R01 = R01 & T_BLQ(5, 37, 0, 37 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 37 + 5, H - 15, 37, 1, 1)
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-YY1 = 45.3 + M1
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
-SPEK = 0
+
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-Case 2, 4
+
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 37)
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
+
-R02 = T_CIRC(46, L - 7, 4.5)
+EN_ASL = 10
-R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
+Select Case ver
-R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
+AGG = 1
-R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
+
-R02 = R02 & T_CIRC(36, 18, 5)
+AGG = 2
-R02 = R02 & T_CIRC(36 + M4, 18, 5)
+
-R02 = R02 & T_CIRC(26 + CENT, 18, 5)
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-R02 = R02 & T_CIRC(H - 40 - M4, 18, 5)
+
-R02 = R02 & T_CIRC(H - 40, 18, 5)
+
 R01 = T_HEX(M2, L / 2, 11) & T_HEX(H - M4, L / 2, 11)
-R02 = R02 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
+If M7 > 0 Then R01 = R01 & T_HEX(M7, L / 2, 11)
-R02 = R02 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
+If M1 > 0 Then R01 = R01 & T_HEX(M1, L / 2, 11)
-R02 = R02 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
+If M8 > 0 Then R01 = R01 & T_HEX(H - M8, L / 2, 11)
-R02 = R02 & T_RECT1(H - 30, H + 2.6, -SCS, 37)
+If M3 > 0 Then R01 = R01 & T_HEX(H - M3, L / 2, 11)
 
-R01 = R01 & T_BLQ(5, 37, 0, 37 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
+R_MS = 1
-R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
+R02 = T_SMUS(-R_MS, -R_MS) & T_SMUS(-R_MS, L + R_MS) & T_SMUS(H + R_MS, L + R_MS) & T_SMUS(H + R_MS, -R_MS)
-R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
+'R03 = T_SMUS(M5 + 105 / 2, -0.75) & T_SMUS(M5 - 105 / 2, L + 0.75) & T_SMUS(M5 + M6 + 105 / 2, -0.75) & T_SMUS(M5 + M6 - 105 / 2, L + 0.75)
-R01 = R01 & T_BLQ(H - 10, 37 + 5, H - 15, 37, 1, 1)
+R03A = T_CIRC(M5 + 52.5, 0, 4.2) & T_CIRC(M5 + 52.5 - M9, 0, 4.2) & T_CIRC(M5 + M6 - 52.5 + M10, 0, 4.2) & T_CIRC(M5 + M6 - 52.5, 0, 4.2)
 R03B = T_CIRC(M5 + 52.5, L, 4.2) & T_CIRC(M5 + 52.5 - M9, L, 4.2) & T_CIRC(M5 + M6 - 52.5 + M10, L, 4.2) & T_CIRC(M5 + M6 - 52.5, L, 4.2)
 R03 = R03A & R03B
-YY1 = 45.3 + M1
+R04 = T_CIRC(0, L - 17, 4.2)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
 fn = R01 & R02 & R03 & R04
 
 P1 = 250
 P2 = H - 400
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
-fn = R01 & R02 & R04
+If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
 
 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, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 End Sub
 
 
 Sub S_1037258B(ByVal NND As Integer)
-Sub S_1006704A(ByVal NND As Integer)
+ACT_MOD = "1037258"
-ACT_MOD = "1006704"
+
-CLAMP = 1
+
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+
-VV = Replace(VV, "P", "")
+
 EN_ASL = 10
 Select Case ver
 Case 1
-DD10 = 10
+AGG = 1
 Case 2
 AGG = 2
-Case 1, 3
+
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 29)
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28, L + SCS)
+
 R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
-R01 = R01 & T_CIRC(46, L - 7, 4.5)
+R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
-R01 = R01 & T_CIRC(13, L - 59, DD10)
+R01 = R01A & R01B
-R01 = R01 & T_CIRC(13, L - 59 - 45, DD10)
+
-R01 = R01 & T_CIRC(13, L - 59 - M1 + 45, DD10)
+R02 = T_SLOT(5, 20 + 35 + 47 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 40 - 4 * SPS, 23.5, EN_ASL, 0)
-R01 = R01 & T_CIRC(13, L - 59 - M1, DD10)
+
-If VV = 1 Then R02 = T_RECT1(121 - 12, 121 + 12, L - 134 - 12, L - 134 + 12) Else R02 = ""  'FORO EMERGENZA QUADRATO 24x24
+If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
 If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 77, L - 77 + 60)
+If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28, L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 59 - M2 + 18 - 90, L - 59 - M2 + 18)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 45)
+'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
 R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
-R01 = R01 & T_BLQ(5, 29, 0, 29 + 5, 1, 1)
+R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
-R01 = R01 & T_BLQ(0, L - 33, 5, L - 33 + 5, 1, 1)
+R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
-R01 = R01 & T_BLQ(H - 15, L - 28, H - 10, L - 28 - 5, 1, 1)
+R05 = R05A & R05B
-R01 = R01 & T_BLQ(H - 5, L - 77, H, L - 77 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - 59 - M2 + 23, H - 5, L - 59 - M2 + 18, 1, 1)
+R06A = T_RECT1(-6, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
-R01 = R01 & T_BLQ(H - 10, 45 + 5, H - 15, 45, 1, 1)
+R06B = T_RECT1(H + 6, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
 R06 = R06A & R06B
-YY1 = 59
+
 R_MS = 1
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
+R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
-SPEK = 0
+R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
 R07 = R07A & R07B
-Case 2, 4
+
 
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 29)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28, L + SCS)
+
-R01 = R01 & T_CIRC(46, L - 7, 4.5)
+
-R01 = R01 & T_CIRC(13, L - 59, DD10)
+
-R01 = R01 & T_CIRC(13, L - 59 - 45, DD10)
+
-R01 = R01 & T_CIRC(13, L - 59 - M1 + 45, DD10)
+
-R01 = R01 & T_CIRC(13, L - 59 - M1, DD10)
+
-If VV = 2 Then R02 = T_RECT1(121 - 12, 121 + 12, L - 134 - 12, L - 134 + 12) Else R02 = ""  'FORO EMERGENZA QUADRATO 24x24
+If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
 
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 77, L - 77 + 60)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28, L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 59 - M2 + 18 - 90, L - 59 - M2 + 18)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 45)
+
 Call FVTPT(3, NND, "")
-R01 = R01 & T_BLQ(5, 29, 0, 29 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - 33, 5, L - 33 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - 28, H - 10, L - 28 - 5, 1, 1)
+Call CUT_END_S(H, L, "C", POSINTAB)
-R01 = R01 & T_BLQ(H - 5, L - 77, H, L - 77 - 5, 1, 1)
+Call FVTPT(3, NND, "C")
-R01 = R01 & T_BLQ(H, L - 59 - M2 + 23, H - 5, L - 59 - M2 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 45 + 5, H - 15, 45, 1, 1)
+
 
-YY1 = 59
+
 Sub S_1037258C(ByVal NND As Integer)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
+ACT_MOD = "1037258"
 CLAMP = 0
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-fn = R01 & R02 & R04
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
 M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
 M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 ODP = INFO_DAT(NND, 0, 5)
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 
 SCS = 6
 EN_ASL = 10
 Select Case ver
 Case 1
 AGG = 1
 Case 2
 AGG = 2
-Sub S_1006702A(ByVal NND As Integer)
+
-ACT_MOD = "1006702"
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-CLAMP = 1
+
 
 R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
 R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
 R01 = R01A & R01B
 
 R02 = T_SLOT(5, 20 + 35 + 47 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 40 - 4 * SPS, 23.5, EN_ASL, 0)
 R03 = ""
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+
-VV = Replace(VV, "P", "")
+
 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
 R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
 R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
-DD10 = 10
+R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
 R05 = R05A & R05B
 
-Case 1, 3
+R06A = T_RECT1(-6, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
 R06B = T_RECT1(H + 6, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 27.8)
+R06 = R06A & R06B
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28.3, L + SCS)
+
 R_MS = 0.6
-R01 = R01 & T_CIRC(46, L - 7, 4.5)
+R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
-R01 = R01 & T_CIRC(13, L - 60.8, DD10)
+R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
-R01 = R01 & T_CIRC(13, L - 60.8 - 45, DD10)
+R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
-R01 = R01 & T_CIRC(13, L - 60.8 - M1 + 45, DD10)
+R07 = R07A & R07B & R07C
-R01 = R01 & T_CIRC(13, L - 60.8 - M1, DD10)
+
-If VV = 1 Then R02 = T_CIRC(121, L - 135.8, 20) Else R02 = ""  'FORO EMERGENZA TONDO
+If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 12, 6.5, 0) Else R08A = ""
 If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 12, 6.5, 0) Else R08B = ""
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 77.3, L - 77.3 + 60)
+If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 12, 6.5, 0) Else R08C = ""
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28.3, L + SCS)
+R08 = R08A & R08B & R08C
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 59.3 - M2 + 18 - 90, L - 59.3 - M2 + 18)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 43.8)
+R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
 
-R01 = R01 & T_BLQ(5, 27.8, 0, 27.8 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - 28.3 - 5, 5, L - 28.3, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - 28.3, H - 10, L - 28.3 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - 77.3, H, L - 77.3 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - 59.3 - M2 + 23, H - 5, L - 59.3 - M2 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 43.8 + 5, H - 15, 43.8, 1, 1)
+
 
-YY1 = 59.3
+If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
+
-SPEK = 0
+
 
-Case 2, 4
+
 Call CUT_END_S(H, L, "0", POSINTAB)
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 27.8)
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28.3, L + SCS)
+
 Call FVTPT(3, NND, "B")
-R01 = R01 & T_CIRC(46, L - 7, 4.5)
+Call CUT_END_S(H, L, "C", POSINTAB)
-R01 = R01 & T_CIRC(13, L - 60.8, DD10)
+Call FVTPT(3, NND, "C")
-R01 = R01 & T_CIRC(13, L - 60.8 - 45, DD10)
+
-R01 = R01 & T_CIRC(13, L - 60.8 - M1 + 45, DD10)
+
-R01 = R01 & T_CIRC(13, L - 60.8 - M1, DD10)
+
-If VV = 2 Then R02 = T_CIRC(121, L - 135.8, 20) Else R02 = ""  'FORO EMERGENZA TONDO
+
 Sub S_1037258E(ByVal NND As Integer)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 77.3, L - 77.3 + 60)
+ACT_MOD = "1037258"
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28.3, L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 59.3 - M2 + 18 - 90, L - 59.3 - M2 + 18)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 43.8)
+
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-R01 = R01 & T_BLQ(5, 27.8, 0, 27.8 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - 28.3 - 5, 5, L - 28.3, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - 28.3, H - 10, L - 28.3 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - 77.3, H, L - 77.3 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - 59.3 - M2 + 23, H - 5, L - 59.3 - M2 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 43.8 + 5, H - 15, 43.8, 1, 1)
+
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-YY1 = 59.3
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
+
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 ODP = INFO_DAT(NND, 0, 5)
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 SCS = 6
 EN_ASL = 10
 Select Case ver
-fn = R01 & R02 & R04
+
 AGG = 1
 Case 2
 AGG = 2
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
 R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
 R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
 R01 = R01A & R01B
 
 R02 = T_SLOT(5, 20 + 35 + 47 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 40 - 4 * SPS, 23.5, EN_ASL, 0)
 R03 = ""
 If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
 If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
 If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
-Sub S_1006632B(ByVal NND As Integer)
+
-ACT_MOD = "1006632"
+
-CLAMP = 1
+'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
 R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
 R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
 R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
 R05 = R05A & R05B
 
 R06A = T_RECT1(-6, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
 R06B = T_RECT1(H + 6, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+R06 = R06A & R06B
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+R_MS = 0.6
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
-VV = Replace(VV, "P", "")
+R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
 R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
 R07 = R07A & R07B & R07C
 
-DD10 = 10
+If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08A = ""
 If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08B = ""
 If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08C = ""
-Case 1, 3
+R08 = R08A & R08B & R08C
 
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 45)
+R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28, L + SCS)
+
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
-R01 = R01 & T_CIRC(46, L - 7, 4.5)
+
-R01 = R01 & T_CIRC(13, L - 39, DD10)
+
-R01 = R01 & T_CIRC(13, L - 39 - 45, DD10)
+
-R01 = R01 & T_CIRC(13, L - 39 - M1 + 45, DD10)
+
-R01 = R01 & T_CIRC(13, L - 39 - M1, DD10)
+
-If VV = 1 Then R02 = T_RECT1(121 - 12, 121 + 12, L - 114 - 12, L - 114 + 12) Else R02 = "" 'FORO EMERGENZA QUADRATO 24x24
+
 If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 77, L - 77 + 60)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28, L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 59 - M2 + 18 - 90, L - 59 - M2 + 18)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 45)
+
 Call CUT_END_S(H, L, "0", POSINTAB)
-R01 = R01 & T_BLQ(5, 45, 0, 45 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - 33, 5, L - 33 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - 28, H - 10, L - 28 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - 77, H, L - 77 - 5, 1, 1)
+Call CUT_END_S(H, L, "C", POSINTAB)
-R01 = R01 & T_BLQ(H, L - 59 - M2 + 23, H - 5, L - 59 - M2 + 18, 1, 1)
+Call FVTPT(3, NND, "C")
-R01 = R01 & T_BLQ(H - 10, 45 + 5, H - 15, 45, 1, 1)
+
 End Sub
 
-YY1 = 59
+
-If VV = 3 Then
+Sub S_1037258F(ByVal NND As Integer)
-R03 = T_CIRC(8, L - 104 - BT - 14 + 4 * SPS, 10)
+ACT_MOD = "1037258"
-R03 = R03 & T_RECT1(-2, 8, L - 104 - BT - 14 - 5 + 4 * SPS, L - 104 - BT - 14 + 5 + 4 * SPS)
+
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS, 8.5)
+
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS + 0.75, 8.5)
+
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS - 0.75, 8.5)
+
-Else
+
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-End If
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
+
-SPEK = 0
+
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-Case 2, 4
+
 'M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 45)
+'M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28, L + SCS)
+'M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 ODP = INFO_DAT(NND, 0, 5)
-R01 = R01 & T_CIRC(46, L - 7, 4.5)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R01 = R01 & T_CIRC(13, L - 39, DD10)
+
-R01 = R01 & T_CIRC(13, L - 39 - 45, DD10)
+
-R01 = R01 & T_CIRC(13, L - 39 - M1 + 45, DD10)
+EN_ASL = 10
-R01 = R01 & T_CIRC(13, L - 39 - M1, DD10)
+Select Case ver
-If VV = 2 Then R02 = T_RECT1(121 - 12, 121 + 12, L - 114 - 12, L - 114 + 12) Else R02 = "" 'FORO EMERGENZA QUADRATO 24x24
+
 AGG = 1
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 77, L - 77 + 60)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28, L + SCS)
+AGG = 2
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 59 - M2 + 18 - 90, L - 59 - M2 + 18)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 45)
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
-R01 = R01 & T_BLQ(5, 45, 0, 45 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - 33, 5, L - 33 + 5, 1, 1)
+R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
-R01 = R01 & T_BLQ(H - 15, L - 28, H - 10, L - 28 - 5, 1, 1)
+R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
-R01 = R01 & T_BLQ(H - 5, L - 77, H, L - 77 - 5, 1, 1)
+R01 = R01A & R01B
-R01 = R01 & T_BLQ(H, L - 59 - M2 + 23, H - 5, L - 59 - M2 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 45 + 5, H - 15, 45, 1, 1)
+R02 = T_SLOT(5, 20 + 35 + 47 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 40 - 4 * SPS, 23.5, EN_ASL, 0)
 R03 = ""
 If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
-YY1 = 59
+If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
-If VV = 4 Then
+If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
-R03 = T_CIRC(8, L - 104 - BT - 14 + 4 * SPS, 10)
+
-R03 = R03 & T_RECT1(-2, 8, L - 104 - BT - 14 - 5 + 4 * SPS, L - 104 - BT - 14 + 5 + 4 * SPS)
+
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS, 8.5)
+'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS + 0.75, 8.5)
+R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS - 0.75, 8.5)
+R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
-Else
+R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
 R05 = R05A & R05B
-End If
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
+R06A = T_RECT1(-6 - 3, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6 - 3, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
 R06B = T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
 R06 = R06A & R06B
 
 R_MS = 0.6
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
 R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
 R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
 R07 = R07A & R07B & R07C
 
 'If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08A = ""
 'If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08B = ""
 'If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08C = ""
 'R08 = R08A & R08B & R08C
 
 
 R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
 
 fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R09  '& R08
 
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
-Sub S_1006629E(ByVal NND As Integer)
+
-ACT_MOD = "1006629"
+
-CLAMP = 1
+
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+Sub S_1042991A(ByVal NND As Integer)
-VV = Replace(VV, "P", "")
+ACT_MOD = "1042991"
 CLAMP = 0
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-DD10 = 10
+
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-Case 1, 3
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 43.8)
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28.3, L + SCS)
+
 M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - 40.8, DD10)
+
-R01 = R01 & T_CIRC(13, L - 40.8 - 45, DD10)
+ODP = INFO_DAT(NND, 0, 5)
-R01 = R01 & T_CIRC(13, L - 40.8 - M1 + 45, DD10)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R01 = R01 & T_CIRC(13, L - 40.8 - M1, DD10)
+
-If VV = 1 Then R02 = T_CIRC(121, L - 115.8, 20) Else R02 = "" 'FORO EMERGENZA TONDO
+
 EN_ASL = 10
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 77.3, L - 77.3 + 60)
+Select Case ver
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28.3, L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 59.3 - M2 + 18 - 75, L - 59.3 - M2 + 18)
+AGG = 1
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 43.8)
+
 AGG = 2
-R01 = R01 & T_BLQ(5, 43.8, 0, 43.8 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - 33.3, 5, L - 33.3 + 5, 1, 1)
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-R01 = R01 & T_BLQ(H - 15, L - 28.3, H - 10, L - 28.3 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - 77.3, H, L - 77.3 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - 59.3 - M2 + 23, H - 5, L - 59.3 - M2 + 18, 1, 1)
+R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
-R01 = R01 & T_BLQ(H - 10, 48.8, H - 15, 43.8, 1, 1)
+R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
 R01 = R01A & R01B
-YY1 = 59.3
+
-If VV = 3 Then
+R02 = T_SLOT(5, 20 + 35 + 30 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 30 - 4 * SPS, 23.5, EN_ASL, 0)
-R03 = T_CIRC(8, L - 104 - 17.5 - 14 + 4 * SPS, 10)
+
-R03 = R03 & T_RECT1(-2, 8, L - 104 - 17.5 - 14 - 5 + 4 * SPS, L - 104 - 17.5 - 14 + 5 + 4 * SPS)
+If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS, 8.5)
+If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS + 0.75, 8.5)
+If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS - 0.75, 8.5)
+
-Else
+
 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
-End If
+R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
+R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
-SPEK = 0
+R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
 R05 = R05A & R05B
-Case 2, 4
+
 R06A = T_RECT1(-6 - 3, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6 - 3, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 43.8)
+R06B = T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28.3, L + SCS)
+R06 = R06A & R06B
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - 40.8, DD10)
+R_MS = 0.6
-R01 = R01 & T_CIRC(13, L - 40.8 - 45, DD10)
+R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
-R01 = R01 & T_CIRC(13, L - 40.8 - M1 + 45, DD10)
+R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
-R01 = R01 & T_CIRC(13, L - 40.8 - M1, DD10)
+R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
-If VV = 2 Then R02 = T_CIRC(121, L - 115.8, 20) Else R02 = "" 'FORO EMERGENZA TONDO
+R07 = R07A & R07B & R07C
 
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 77.3, L - 77.3 + 60)
+If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08A = ""
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28.3, L + SCS)
+If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08B = ""
-R01 = R01 & T_RECT1(H - 10, H + 1, L - 59.3 - M2 + 18 - 75, L - 59.3 - M2 + 18)
+If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08C = ""
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 43.8)
+R08 = R08A & R08B & R08C
 
-R01 = R01 & T_BLQ(5, 43.8, 0, 43.8 + 5, 1, 1)
+R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
-R01 = R01 & T_BLQ(0, L - 33.3, 5, L - 33.3 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - 28.3, H - 10, L - 28.3 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - 77.3, H, L - 77.3 - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - 59.3 - M2 + 23, H - 5, L - 59.3 - M2 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 48.8, H - 15, 43.8, 1, 1)
+
 MVAL = 500
-YY1 = 59.3
+
-If VV = 4 Then
+
-R03 = T_CIRC(8, L - 104 - 17.5 - 14 + 4 * SPS, 10)
+If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
-R03 = R03 & T_RECT1(-2, 8, L - 104 - 17.5 - 14 - 5 + 4 * SPS, L - 104 - 17.5 - 14 + 5 + 4 * SPS)
+
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS, 8.5)
+
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS + 0.75, 8.5)
+
-R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS - 0.75, 8.5)
+
-Else
+
 Call FVTPT(3, NND, "")
-End If
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
+
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 End Sub
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 
 Sub S_1042991C(ByVal NND As Integer)
 ACT_MOD = "1042991"
 CLAMP = 0
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
 'M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
 'M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
 'M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
 ODP = INFO_DAT(NND, 0, 5)
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-Sub S_1006619A(ByVal NND As Integer)
+
-ACT_MOD = "1006619"
+
-CLAMP = 1
+EN_ASL = 10
 Select Case ver
 Case 1
 AGG = 1
 Case 2
 AGG = 2
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+R01 = R01A & R01B
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+
-VV = Replace(VV, "P", "")
+R02 = T_SLOT(5, 20 + 35 + 30 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 30 - 4 * SPS, 23.5, EN_ASL, 0)
 R03 = ""
 If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
 If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
-DD10 = 10
+If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
-SCSUP = M1 + 14.3
+
-SCFOR = M1 + 26.8
+
-SCINF = M1 + 63.3
+'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
-CENT = (H - 26 - 30) / 2
+R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
 R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
 R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
-Case 1, 3
+R05 = R05A & R05B
 
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 37)
+R06A = T_RECT1(-6 - 3, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6 - 3, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
+R06B = T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
 R06 = R06A & R06B
-R01 = R01 & T_CIRC(46, L - 7, 4.5)
+
-R01 = R01 & T_CIRC(13, L - SCFOR, DD10)
+R_MS = 0.6
-R01 = R01 & T_CIRC(13, L - SCFOR - 45, DD10)
+R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
-R01 = R01 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
+R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
-R01 = R01 & T_CIRC(13, L - SCFOR - M2, DD10)
+R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
-R01 = R01 & T_CIRC(36, 18, 5)
+R07 = R07A & R07B & R07C
-R01 = R01 & T_CIRC(36 + M4, 18, 5)
+
-R01 = R01 & T_CIRC(26 + CENT, 18, 5)
+'If M9 > 0 Then R08A = T_SLOT(H - 26 - M9 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08A = ""
-R01 = R01 & T_CIRC(H - 40 - M4, 18, 5)
+'If M7 > 0 Then R08B = T_SLOT(H - 26 - M7 + 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08B = ""
-R01 = R01 & T_CIRC(H - 40, 18, 5)
+'If M8 > 0 Then R08C = T_SLOT(26 + M8 - 2.4, L - 20 - 39 + 2.4, 20, 6.5, 0) Else R08C = ""
 'R08 = R08A & R08B & R08C
-R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
+R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
-R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 37)
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R09 ' & R08
 
-R01 = R01 & T_BLQ(5, 37, 0, 37 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 37 + 5, H - 15, 37, 1, 1)
+If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
 
-YY1 = 45.3 + M1
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
-SPEK = 0
+
 Call CUT_END_S(H, L, "0", POSINTAB)
-Case 2, 4
+
 Call CUT_END_S(H, L, "B", POSINTAB)
-R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 37)
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
+Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
-R01 = R01 & T_CIRC(46, L - 7, 4.5)
+
-R01 = R01 & T_CIRC(13, L - SCFOR, DD10)
+
-R01 = R01 & T_CIRC(13, L - SCFOR - 45, DD10)
+
-R01 = R01 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
+Sub S_1042991D(ByVal NND As Integer)
-R01 = R01 & T_CIRC(13, L - SCFOR - M2, DD10)
+ACT_MOD = "1042991"
-R01 = R01 & T_CIRC(36, 18, 5)
+
-R01 = R01 & T_CIRC(36 + M4, 18, 5)
+
-R01 = R01 & T_CIRC(26 + CENT, 18, 5)
+
-R01 = R01 & T_CIRC(H - 40 - M4, 18, 5)
+
-R01 = R01 & T_CIRC(H - 40, 18, 5)
+
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 37)
+
 M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-R01 = R01 & T_BLQ(5, 37, 0, 37 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
+ODP = INFO_DAT(NND, 0, 5)
-R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R01 = R01 & T_BLQ(H - 10, 37 + 5, H - 15, 37, 1, 1)
+
 SCS = 6
-YY1 = 45.3 + M1
+EN_ASL = 10
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+Select Case ver
 Case 1
 AGG = 1
 Case 2
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+AGG = 2
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-fn = R01 & R04
+
 
 R01A = T_SLOT(H - 26 - 55 + 2 * SPS, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 2 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
 R01B = T_SLOT(H - 26 - 55 + 2 * SPS - 3 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0) & T_SLOT(H - 26 - 55 + 2 * SPS - 4 * M6, L - 20 - 14 + 2 * SPS, 16, EN_ASL, 0)
 R01 = R01A & R01B
 
 R02 = T_SLOT(5, 20 + 35 + 30 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + 30 - 4 * SPS, 23.5, EN_ASL, 0)
 R03 = ""
 If M3 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M3 - 4 * SPS, 20, EN_ASL, 0) & T_SLOT(H - 6.75, 20 + 35 + M3 - 4 * SPS, 23.5, EN_ASL, 0)
 If M4 > 0 Then R03 = R03 & T_SLOT(5, 20 + 35 + M4 - 4 * SPS, 20, EN_ASL, 0)
 If M5 > 0 Then R03 = R03 & T_SLOT(H - 6.75, 20 + 35 + M5 - 4 * SPS, 23.5, EN_ASL, 0)
 
 
 'r04 = T_RECT1(6, 6 + 5, 20 + 35 + 15 - 4 * SPS, 20 + 35 + 15 - 4 * SPS + 5)
 R04 = T_RECT2(H - (6 + 2.5), 20 + 35 + 15 - 4 * SPS + 2.5, 6.8, 6.8)
-Sub S_1006616A(ByVal NND As Integer)
+R05A = T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(26 + 1.2 - 3.5 - 2 * SPS, L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
-ACT_MOD = "1006616"
+R05B = T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), 20 + 35 + 7.6 - 1 - 4 * SPS, 7, 2, 0) & T_SLOT(H - (26 + 1.2 - 3.5 - 2 * SPS), L - 20 - 7.6 + 2 * SPS + 1, 7, 2, 0)
-CLAMP = 1
+R05 = R05A & R05B
 
 R06A = T_RECT1(-6 - 3, 26 - 2 * SPS, -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(-6 - 3, 26 - 2 * SPS, L + 6, L - 20 - 7.6 + 2 * SPS)
 R06B = T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), -6, 20 + 35 + 7.6 - 4 * SPS) & T_RECT1(H + 6 + 3, H - (26 - 2 * SPS), L + 6, L - 20 - 7.6 + 2 * SPS)
 R06 = R06A & R06B
 
 R_MS = 0.6
 R07A = T_SMUS(-R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(-R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
 R07B = T_SMUS(H + R_MS, 20 + 35 + 7.6 - 4 * SPS - R_MS) & T_SMUS(H + R_MS, L - 20 - 7.6 + 2 * SPS + R_MS)
 R07C = T_SMUS(26 - 2 * SPS - R_MS, -R_MS) & T_SMUS(26 - 2 * SPS - R_MS, L + R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, -R_MS) & T_SMUS(H - 26 + 2 * SPS + R_MS, L + R_MS)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+R07 = R07A & R07B & R07C
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+If M9 > 0 Then R08A = T_SLOT(H - M9 - 26 + 2 * SPS, L - 20 - 39 + 2 * SPS, 12, 6.5, 0) Else R08A = ""
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+If M7 > 0 Then R08B = T_SLOT(H - M7 - 26 + 2 * SPS, L - 20 - 39 + 2 * SPS, 12, 6.5, 0) Else R08B = ""
-VV = Replace(VV, "P", "")
+If M8 > 0 Then R08C = T_SLOT(H - M8 - 26 + 2 * SPS, L - 20 - 39 + 2 * SPS, 12, 6.5, 0) Else R08C = ""
 R08 = R08A & R08B & R08C
 
 R09 = T_DATAMATRIX(ODP, H - 26 - 80 + 2.4 - 43.5, L - 20 - 6 + 2.4 - 18.5, "O")
-DD10 = 10
+
-SCSUP = M1 + 10.7
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R09 & R08
-SCFOR = M1 + 25.7
+
-SCINF = M1 + 63.7
+
-POSC = (H - 26 - 30) / 2
+
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-Case 1, 3
+
-R01 = T_RECT1(-46, 26, -SCS, 99.3)
+If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
+
 Call SAVE_SUB(NND, STRINGA)
-R02 = T_CIRC(46, L - 7, 4.5)
+
-R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
+
-R02 = R02 & T_CIRC(36, 78.5, 5)
+
-R02 = R02 & T_CIRC(36 + M4, 78.5, 5)
+Call CUT_END_S(H, L, "C", POSINTAB)
-R02 = R02 & T_CIRC(POSC + 26, 78.5, 5)
+Call FVTPT(3, NND, "C")
-R02 = R02 & T_CIRC(H - 40 - M4, 78.5, 5)
+
-R02 = R02 & T_CIRC(H - 40, 78.5, 5)
+
 
-R03 = T_RECT1(36 - 2.5, 36 + 2.5, 40.5 - 5, 40.5 + 5)
+
-R03 = R03 & T_RECT1(36 + M4 - 2.5, 36 + M4 + 2.5, 40.5 - 5, 40.5 + 5)
+
-R03 = R03 & T_RECT1(POSC + 26 - 2.5, POSC + 26 + 2.5, 40.5 - 5, 40.5 + 5)
+
-R03 = R03 & T_RECT1(H - 40 - M4 - 2.5, H - 40 - M4 + 2.5, 40.5 - 5, 40.5 + 5)
+Function T_BUGNA(ByVal XC As Double, ByVal YC As Double)
-R03 = R03 & T_RECT1(H - 40 - 2.5, H - 40 + 2.5, 40.5 - 5, 40.5 + 5)
+
 
-R03 = R03 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
+T_BUGNA = T_SPECIAL(XC, YC, "15Y", "C0.")
-R03 = R03 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
+
-R03 = R03 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
+
-R03 = R03 & T_RECT1(H - 30, H + 42, -SCS, 99.3)
+
 
-R01 = R01 & T_BLQ(5, 99.3, 0, 99.3 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
+Sub S_1037319B(ByVal NND As Integer)
-R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
+ACT_MOD = "1037319"
-R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 99.3 + 5, H - 15, 99.3, 1, 1)
+
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
-YY1 = 45.7 + M1
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
-SPEK = 0
+
 R01 = T_BUGNA(100, 7.5) & T_BUGNA(100 + 200, 7.5) & T_BUGNA(H - 100, 7.5)
-Case 2, 4
+R02 = T_BUGNA(100, L - 7.5) & T_BUGNA(100 + 200, L - 7.5) & T_BUGNA(H - 100, L - 7.5)
 
-R01 = T_RECT1(-46, 26, -SCS, 99.3)
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
+fn = R01 & R02
 
-R02 = T_CIRC(46, L - 7, 4.5)
+
-R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
+
-R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
+
-R02 = R02 & T_CIRC(36, 78.5, 5)
+
-R02 = R02 & T_CIRC(36 + M4, 78.5, 5)
+
-R02 = R02 & T_CIRC(POSC + 26, 78.5, 5)
+
-R02 = R02 & T_CIRC(H - 40 - M4, 78.5, 5)
+
-R02 = R02 & T_CIRC(H - 40, 78.5, 5)
+
 Call CUT_END_S(H, L, "B", POSINTAB)
-R03 = T_RECT1(36 - 2.5, 36 + 2.5, 40.5 - 5, 40.5 + 5)
+
-R03 = R03 & T_RECT1(36 + M4 - 2.5, 36 + M4 + 2.5, 40.5 - 5, 40.5 + 5)
+Call CUT_END_S(H, L, "C", POSINTAB)
-R03 = R03 & T_RECT1(POSC + 26 - 2.5, POSC + 26 + 2.5, 40.5 - 5, 40.5 + 5)
+Call FVTPT(3, NND, "C")
-R03 = R03 & T_RECT1(H - 40 - M4 - 2.5, H - 40 - M4 + 2.5, 40.5 - 5, 40.5 + 5)
+
-R03 = R03 & T_RECT1(H - 40 - 2.5, H - 40 + 2.5, 40.5 - 5, 40.5 + 5)
+
 
-R03 = R03 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
+
-R03 = R03 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
+
-R03 = R03 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
+Sub S_1012500(ByVal NND As Integer)
-R03 = R03 & T_RECT1(H - 30, H + 42, -SCS, 99.3)
+ACT_MOD = "1012500"
 CLAMP = 0
-R01 = R01 & T_BLQ(5, 99.3, 0, 99.3 + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
+
-R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, 99.3 + 5, H - 15, 99.3, 1, 1)
+
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-YY1 = 45.7 + M1
+
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
 
 Select Case ver
 Case 1
 AGG = 1
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+
 AGG = 2
 Case Else
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
 End Select
 
 
 R01 = T_SLOT(MR_X(H - 62 - 98, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(H - 62 - 98 - 658.5, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(H - 62 - 98 - 658.5 - 273, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(H - 62 - 98 - 658.5 - 273 - 395, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(H - 62 - 98 - 658.5 - 273 - 395 - 500, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 
 R02 = ""
 R03 = ""
 R04 = ""
 For P = 1 To 36
 R02 = R02 & T_SLOT(MR_X(H - 62 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 3, 16, 3.2, 0)
 R03 = R03 & T_SLOT(MR_X(H - 62 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 3, 16, 3.2, 0)
 R04 = R04 & T_SLOT(MR_X(H - 62 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 6.3 - 3, 16, 3.2, 0)
 Next P
-'************************************************************************************************************************************************
+
 R05 = T_CIRC(MR_X(10, H, AGG), 64, 8.5) & T_SLOT(MR_X(H - 18, H, AGG), 20 + 7 + 11.5 - 3, 24, 9, 0) '8.5
-Function MIRROR(ByVal STRINGA As String, ByVal LENGHT As Double, ByVal WIDTH As Double, ByVal AGG_X As Integer, ByVal AGG_Y As Integer) As String
+R06 = T_SLOT(MR_X(27 - 0.5, H, AGG), 20 + 35 + 4 - 1 - 6, 7, 2, 0) & T_SLOT(MR_X(27 - 0.5, H, AGG), 20 + 35 + 34 - 6 + 1, 7, 2, 0)
-If STRINGA = "" Then Exit Function
+R07 = T_SLOT(MR_X(H - 62 + 0.5, H, AGG), 20 + 7 - 1 - 3, 7, 2, 0) & T_SLOT(MR_X(H - 62 + 0.5, H, AGG), 20 + 7 + 1 - 3 + 23, 7, 2, 0)
 
-STAZ_NO_MRX = ""
+R08 = T_RECT1(MR_X(-6, H, AGG), MR_X(27, H, AGG), -6, 20 + 35 + 4 - 6) & T_RECT1(MR_X(-6, H, AGG), MR_X(27, H, AGG), 20 + 35 + 34 - 6, L + 6)
-STAZ_NO_MRY = ""
+R09 = T_RECT1(MR_X(H - 62, H, AGG), MR_X(H + 6, H, AGG), -6, 20 + 7 - 3) & T_RECT1(MR_X(H - 62, H, AGG), MR_X(H + 6, H, AGG), 20 + 30 - 3, L + 6)
-STAZ_NO_MR = ""
+
-STAZ_INDEX = ""
+R10 = T_SMUS(MR_X(27, H, AGG), 15 - 5.25) & T_SMUS(MR_X(27 + 15 - 5.25, H, AGG), 0) & T_SMUS(MR_X(27 + (15 - 5.25) / 2, H, AGG), (15 - 5.25) / 2) & T_CIRC(MR_X(27 + 1, H, AGG), 1, 8.5)
 
 R_MS = 1.5
-GoTo SALTA
+R11 = T_SMUS(MR_X(-R_MS, H, AGG), 20 + 35 - 6 + 4 - R_MS) & T_SMUS(MR_X(-R_MS, H, AGG), 20 + 35 - 6 + 34 + R_MS) & T_SMUS(MR_X(27 - R_MS, H, AGG), L + R_MS)
-NTT = NHD
+R12 = T_SMUS(MR_X(H - 62 + R_MS, H, AGG), L + R_MS) & T_SMUS(MR_X(H - 62 + R_MS, H, AGG), -R_MS) & T_SMUS(MR_X(H + R_MS, H, AGG), 20 + 7 - 3 - R_MS) & T_SMUS(MR_X(H + R_MS, H, AGG), 20 + 30 - 3 + R_MS)
-For TM = 1 To 100
+
-If TOOL_VAR(NTT, TM, 1) = "" Then Exit For
+
-If InStr(1, TOOL_VAR(NTT, TM, 8), "NO") > 0 Then
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12
-STAZ_NO_MR = STAZ_NO_MR & "-" & TOOL_VAR(NTT, TM, 1) & "-" 'UTENSILI NON SPECCHIABILI
+
-If InStr(1, TOOL_VAR(NTT, TM, 8), "X") > 0 Then STAZ_NO_MRX = STAZ_NO_MRX & "-" & TOOL_VAR(NTT, TM, 1) & "-" 'UTENSILI NON SPECCHIABILI IN X
+
-If InStr(1, TOOL_VAR(NTT, TM, 8), "Y") > 0 Then STAZ_NO_MRY = STAZ_NO_MRY & "-" & TOOL_VAR(NTT, TM, 1) & "-" 'UTENSILI NON SPECCHIABILI IN Y
+
-End If
+
-If TOOL_VAR(NTT, TM, 5) = "0I" And TOOL_VAR(NTT, TM, 6) = "SPECIALE" Then 'UTENSILI SPECIALI SU INDEX
+
-STAZ_INDEX = STAZ_INDEX & "-" & TOOL_VAR(NTT, TM, 1) & "-"
+
-End If
+'If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
-Next TM
+
-SALTA:
+
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
-Select Case AGG_X & AGG_Y
+
 Call CUT_END_S(H, L, "B", POSINTAB)
-Case "11" '************************************************************************************SPECCHIATURA SIA IN X CHE IN Y
+
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
-PEZ_1 = Left(STRINGA, InStr(1, STRINGA, "M5") + 63) 'STRINGA CON TORRETTA E INFO PEZZO
+
-PEZ_LAV = Replace(STRINGA, PEZ_1, "")               'STRINGA CON LAVORAZIONI
+
 
-For LV = 1 To quanteVolte(PEZ_LAV, ">")
+Sub S_1012499(ByVal NND As Integer)
-PEZ_2 = Left(PEZ_LAV, InStr(1, PEZ_LAV, ">")) 'STRINGA SINGOLA LAVORAZIONE
+ACT_MOD = "1012499"
 CLAMP = 0
-If InStr(1, STAZ_NO_MR, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) = 0 Then
+
-If InStr(1, PEZ_2, "X") > 0 Then
+
-CRD_X = Mid(PEZ_2, InStr(1, PEZ_2, "X") + 1, InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") - 1)
+
-CRD_X = LENGHT - Val(CRD_X)
+
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-If InStr(1, PEZ_2, "Y") > 0 Then
+
-CRD_Y = Mid(PEZ_2, InStr(1, PEZ_2, "Y") + 1, InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") - 1)
+
-CRD_Y = WIDTH - Val(CRD_Y)
+
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-End If
+
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 
 
-If InStr(1, STAZ_INDEX, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) > 0 Then 'SPECIALI INDEX
+Select Case ver
-ANG_TL = Mid(PEZ_2, InStr(1, PEZ_2, "C") + 1, InStr(InStr(1, PEZ_2, "C"), PEZ_2, "/") - InStr(1, PEZ_2, "C") - 1)
+
-ANG_TL2 = Replace(ANG_TL, ".", "")
+AGG = 1
-NEW_ANG = 180 - Abs(Val(ANG_TL2))
+
-If Val(NEW_ANG) > 180 Then NEW_ANG = 360 - Val(NEW_ANG)
+AGG = 2
-If InStr(1, ANG_TL, "-") = 0 Then NEW_ANG = "-" & NEW_ANG
+
 MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-If Len(NEW_ANG) < 4 Then NEW_ANG = Replace(NEW_ANG, ".", "") & "."
+
-PEZ_2 = Replace(PEZ_2, "C" & ANG_TL, "C" & NEW_ANG)
+
-End If
+
 
 
 R01 = T_SLOT(MR_X(H - 35 - 98, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
-NEW_LAV = Left(PEZ_2, InStr(1, PEZ_2, "X")) & Jcdf(CRD_X) & "/Y" & Jcdf(CRD_Y) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") + 1) 'LAVORAZIONE SPECCHIATA
+R01 = R01 & T_SLOT(MR_X(H - 35 - 98 - 658.5, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(H - 35 - 98 - 658.5 - 273, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(H - 35 - 98 - 658.5 - 273 - 395, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(H - 35 - 98 - 658.5 - 273 - 395 - 500, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
-Else
+
 R02 = ""
-NEW_LAV = PEZ_2
+
 R04 = ""
 For P = 1 To 37
-If InStr(1, NEW_LAV, "G28") > 0 Then
+R02 = R02 & T_SLOT(MR_X(H - 35 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 3, 16, 3.2, 0)
-If InStr(1, NEW_LAV, "J0.") > 0 Then
+R03 = R03 & T_SLOT(MR_X(H - 35 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 3, 16, 3.2, 0)
-NEW_LAV = Replace(NEW_LAV, "J0.", "J180.")
+R04 = R04 & T_SLOT(MR_X(H - 35 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 6.3 - 3, 16, 3.2, 0)
-GoTo FINE_ANGOLO_SCANT4
+Next P
-End If
+
-If InStr(1, NEW_LAV, "J180.") > 0 Then
+R05A = T_SLOT(MR_X(6.25, H, AGG), L - 20 - 32 + 3, 21.5, 9, 0)
-NEW_LAV = Replace(NEW_LAV, "J180.", "J0.")
+If M4 > 0 Then R05B = T_SLOT(MR_X(6.25, H, AGG), L - 20 - M4 + 3, 21.5, 9, 0) Else R05B = ""
-GoTo FINE_ANGOLO_SCANT4
+If M3 > 0 Then R05C = T_SLOT(MR_X(6.25, H, AGG), L - 20 - 32 - M3 + 3, 21.5, 9, 0) Else R05C = ""
-End If
+R05 = R05A & R05B & R05C
-If InStr(1, NEW_LAV, "J90.") > 0 Then
+
-NEW_LAV = Replace(NEW_LAV, "J90.", "J-90.")
+R06A = T_SLOT(MR_X(H - 3.9, H, AGG), L - 20 - 48 + 3, 16.8, 9, 0)
-GoTo FINE_ANGOLO_SCANT4
+If M6 > 0 Then R06B = T_SLOT(MR_X(H - 3.9, H, AGG), L - 20 - M6 + 3, 16.8, 9, 0) Else R06B = ""
-End If
+If M5 > 0 Then R06C = T_SLOT(MR_X(H - 3.9, H, AGG), L - 20 - 48 - M5 + 3, 16.8, 9, 0) Else R06C = ""
-If InStr(1, NEW_LAV, "J-90.") > 0 Then
+R06 = R06A & R06B & R06C
-NEW_LAV = Replace(NEW_LAV, "J-90.", "J90.")
+
-GoTo FINE_ANGOLO_SCANT4
+R07 = T_SLOT(MR_X(22 - 1.5, H, AGG), L - 20 - 18 + 3 + 1, 7, 2, 0) & T_SLOT(MR_X(22 - 1.5, H, AGG), 20 + 35 + 24 - 6 - 1, 7, 2, 0)
-End If
+
-If InStr(1, NEW_LAV, "J-0.") > 0 Then
+R08 = T_RECT1(MR_X(-6, H, AGG), MR_X(22, H, AGG), L - 20 - 18 + 3, L + 6) & T_RECT1(MR_X(-0.6, H, AGG), MR_X(22, H, AGG), -6, 20 + 35 + 24 - 6)
-NEW_LAV = Replace(NEW_LAV, "J-0.", "J-180.")
+R09 = T_RECT1(MR_X(H - 35, H, AGG), MR_X(H + 6, H, AGG), L - 20 - 30 + 3, L + 6) & T_RECT1(MR_X(H - 35, H, AGG), MR_X(H + 6, H, AGG), -6, 20 + 35 + 25 - 6)
-GoTo FINE_ANGOLO_SCANT4
+
-End If
+
-If InStr(1, NEW_LAV, "J-180.") > 0 Then
+
-NEW_LAV = Replace(NEW_LAV, "J-0.", "J-0.")
+
-GoTo FINE_ANGOLO_SCANT4
+
-End If
+
-If InStr(1, NEW_LAV, "J270.") > 0 Then
+
-NEW_LAV = Replace(NEW_LAV, "J270.", "J-270.")
+
-GoTo FINE_ANGOLO_SCANT4
+
-End If
+
-If InStr(1, NEW_LAV, "J-270.") > 0 Then
+'If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
-NEW_LAV = Replace(NEW_LAV, "J-270.", "J270.")
+
-GoTo FINE_ANGOLO_SCANT4
+
-End If
+
-End If
+
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
-If InStr(1, NEW_LAV, "G37") > 0 Then
+
-If InStr(1, NEW_LAV, "I-") > 0 Then
+
-NEW_LAV = Replace(NEW_LAV, "I-", "I")
+Call CUT_END_S(H, L, "C", POSINTAB)
-GoTo FINE_ANGOLO_SCANT3
+Call FVTPT(3, NND, "C")
-End If
+
-If InStr(1, NEW_LAV, "I") > 0 Then
+
-NEW_LAV = Replace(NEW_LAV, "I", "I-")
+
-GoTo FINE_ANGOLO_SCANT3
+
-End If
+
-FINE_ANGOLO_SCANT3:
+Sub S_1011067(ByVal NND As Integer)
-If InStr(1, NEW_LAV, "J-") > 0 Then
+ACT_MOD = "1011067"
-NEW_LAV = Replace(NEW_LAV, "J-", "J")
+
-GoTo FINE_ANGOLO_SCANT4
+
-End If
+
-If InStr(1, NEW_LAV, "J") > 0 Then
+
-NEW_LAV = Replace(NEW_LAV, "J", "J-")
+
-GoTo FINE_ANGOLO_SCANT4
+
-End If
+
-End If
+
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
-FINE_ANGOLO_SCANT4:
+
-End If
+
-Else
+
 M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-'*********UTENSILE SPECIAlE NON SIMMETRICO E NON INDEX
+
 NA = INPUT_NUM(NND, "NA", NA, ACT_MOD)
 ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-ANGOLO = Right(PEZ_2, Len(PEZ_2) - InStr(1, PEZ_2, "C"))
+
-ANGOLO = Left(ANGOLO, InStr(1, ANGOLO, ".") - 1)
+
-ANGOLO_OLD = ANGOLO
+Select Case ver
 Case 1
-Select Case ANGOLO
+AGG = 1
-Case "0"
+
-ANGOLO = "180"
+AGG = 1 '2
-Case "180"
+
-ANGOLO = "0"
+MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
-Case "90"
+
-ANGOLO = "-90"
+
-Case "-90"
+
-ANGOLO = "90"
+
 R01 = T_SLOT(MR_X(H - 22 - 95, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
-MsgBox (("ERRORE ANGOLO 5RD"))
+R01 = R01 & T_SLOT(MR_X(H - 22 - 95 - 658.5, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(H - 22 - M7, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(H - 22 - M8, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
 R01 = R01 & T_SLOT(MR_X(M9 + 22, H, AGG), L - 20 - 13 + 3, 14, 9, 0)
-TOTO = Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)
+
-For RA1 = 1 To 46
+R02 = ""
-If TOOL_VAR(NHD, RA1, 1) = TOTO Then
+
-NM_LG = TOOL_VAR(NHD, RA1, 3)
+R04 = ""
-End If
+For P = 1 To (NA + 1)
-Next RA1
+R02 = R02 & T_SLOT(MR_X(H - 22 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 3, 16, 3.2, 0)
 R03 = R03 & T_SLOT(MR_X(H - 22 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 3, 16, 3.2, 0)
 R04 = R04 & T_SLOT(MR_X(H - 22 - 56 - 19 * (P - 1), H, AGG), 20 + 35 - 11.2 - 6.3 - 6.3 - 3, 16, 3.2, 0)
-PR_TL = 0
+Next P
-For RA = 1 To 46
+
-If TOOL_VAR(NHD, RA, 3) = NM_LG And TOOL_VAR(NHD, RA, 5) = ANGOLO Then
+R05A = T_SLOT(MR_X(6.25, H, AGG), L - (20 + 32 - 3), 21.5, 9, 0)
-TORR = TOOL_VAR(NHD, RA, 1)
+If M4 > 0 Then R05B = T_SLOT(MR_X(6.25, H, AGG), L - (20 + M4 - 3), 21.5, 9, 0) Else R05B = ""
-PR_TL = 1
+If M3 > 0 Then R05C = T_SLOT(MR_X(6.25, H, AGG), L - (20 + M3 - 3), 21.5, 9, 0) Else R05C = ""
-Exit For
+R05 = R05A & R05B & R05C
-End If
+
-Next RA
+If M10 > 0 Then R06 = T_RECT1(MR_X(-2.5, H, AGG), MR_X(M10, H, AGG), L - 20 - 110 - 30, L - 20 - 110)
 
-If PR_TL = 0 Then
+R07A = T_SLOT(MR_X(H - 6.25, H, AGG), L - 20 - 48 + 3, 21.5, 9, 0)
-MsgBox ("NON TROVATO UTENSILE 5RD CON ANGOLO " & ANGOLO)
+If M5 > 0 Then R07B = T_SLOT(MR_X(H - 6.25, H, AGG), L - 20 - M5 + 3, 21.5, 9, 0) Else R07B = ""
-GoTo PROS_LAV3
+If M6 > 0 Then R07C = T_SLOT(MR_X(H - 6.25, H, AGG), L - 20 - M6 + 3, 21.5, 9, 0) Else R07C = ""
-End If
+R07 = R07A & R07B & R07C
 
-PEZ_2 = Replace(PEZ_2, "C" & ANGOLO_OLD, "C" & ANGOLO)
+R08 = T_RECT1(MR_X(-6, H, AGG), MR_X(22, H, AGG), -6, 20) & T_RECT1(MR_X(-0.6, H, AGG), MR_X(22, H, AGG), L - 18 - 20 + 3, L + 6) & T_RECT1(MR_X(H - 22, H, AGG), MR_X(H + 0.6, H, AGG), -6, 20 + 35 + 10 - 6) & T_RECT1(MR_X(H - 22, H, AGG), MR_X(H + 0.6, H, AGG), L - 20 - 30 + 3, L + 6)
-PEZ_2 = Replace(PEZ_2, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4), TORR)
+
 
-If InStr(1, PEZ_2, "X") > 0 Then
+
-CRD_X = Mid(PEZ_2, InStr(1, PEZ_2, "X") + 1, InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") - 1)
+R09 = T_SLOT(MR_X(22 - 1.5, H, AGG), 20 - 1, 7, 2, 0) & T_SLOT(MR_X(22 - 1.5, H, AGG), L - 20 - 18 + 3 + 1, 7, 2, 0) & T_SLOT(MR_X(H - (22 - 1.5), H, AGG), L - 20 - 30 + 3 + 1, 7, 2, 0) & T_SLOT(MR_X(H - (22 - 1.5), H, AGG), 20 + 35 + 10 - 1 - 6, 7, 2, 0)
-CRD_X = LENGHT - Val(CRD_X)
+
-CRD_Y = Mid(PEZ_2, InStr(1, PEZ_2, "Y") + 1, InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") - 1)
+SMS = 1.5
-CRD_Y = WIDTH - Val(CRD_Y)
+R10A = T_SMUS(MR_X(-SMS, H, AGG), 20 - SMS) & T_SMUS(MR_X(-SMS, H, AGG), L - 20 - 18 + 3 + SMS)
 R10B = T_SMUS(MR_X(H + SMS, H, AGG), L - 20 - 30 + 3 + SMS) & T_SMUS(MR_X(H + SMS, H, AGG), 20 + 35 + 10 - 6 - SMS)
-NEW_LAV = Left(PEZ_2, InStr(1, PEZ_2, "X")) & Jcdf(CRD_X) & "/Y" & Jcdf(CRD_Y) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") + 1) 'LAVORAZIONE SPECCHIATA
+R10 = R10A & R10B
 
-Else
+R11 = T_SLOT(MR_X(10, H, AGG), 32, 14, 9, 0) & T_SMUS(MR_X(-SMS, H, AGG), 76 - SMS) & T_RECT1(MR_X(-6, H, AGG), MR_X(17, H, AGG), 42, 76) & T_SMUS(MR_X(18.45, H, AGG), 50.5) & T_SMUS(MR_X(18.45 - 3, H, AGG), 50.5 + 3) & T_SMUS(MR_X(18.45 - 3, H, AGG), 50.5 - 3)
-PROS_LAV3:
+'MODIFICA REV. E
-NEW_LAV = PEZ_2
+
-End If
+fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11
 
-End If
+
 P2 = H - 400
 MVAL = 500
-MR_VPR = MR_VPR & ST64(NEW_LAV) 'VPR SPECCHIATO
+
-PEZ_LAV = Right(PEZ_LAV, Len(PEZ_LAV) - 64)
+
-Next LV
+If ver = 2 Then STRINGA = MIRROR(STRINGA, H, L, 1, 0)
 
 Call SAVE_SUB(NND, STRINGA)
 
-MIRROR = PEZ_1 & MR_VPR
+
 Call CUT_END_S(H, L, "0", POSINTAB)
-'****************************************FINE DOPPIA SPECCHIATURA
+
 Call CUT_END_S(H, L, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 Call CUT_END_S(H, L, "C", POSINTAB)
-Case "10" '***********************************************************************************************SPECCHIATURA IN X
+Call FVTPT(3, NND, "C")
 
 End Sub
-PEZ_1 = Left(STRINGA, InStr(1, STRINGA, "M5") + 63) 'STRINGA CON TORRETTA E INFO PEZZO
+
-PEZ_LAV = Replace(STRINGA, PEZ_1, "")             'STRINGA CON LAVORAZIONI
+
 Sub S_1011908(ByVal NND As Integer)
-For LV = 1 To quanteVolte(PEZ_LAV, ">")
+ACT_MOD = "1011908"
-PEZ_2 = Left(PEZ_LAV, InStr(1, PEZ_LAV, ">")) 'STRINGA SINGOLA LAVORAZIONE
+
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
-If InStr(1, STAZ_NO_MRX, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) = 0 Then
+
-If InStr(1, PEZ_2, "X") > 0 Then
+
-CRD_X = Mid(PEZ_2, InStr(1, PEZ_2, "X") + 1, InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") - 1)
+
-CRD_X = LENGHT - Val(CRD_X)
+
 M4 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M3 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-If InStr(1, STAZ_INDEX, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) > 0 Then 'SPECIALI INDEX
+
 M8 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
-ANG_TL = Mid(PEZ_2, InStr(1, PEZ_2, "C") + 1, InStr(InStr(1, PEZ_2, "C"), PEZ_2, "/") - InStr(1, PEZ_2, "C") - 1)
+M9 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
-ANG_TL2 = Replace(ANG_TL, ".", "")
+M6 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-NEW_ANG = 180 - Val(ANG_TL2)
+M7 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-If Val(NEW_ANG) > 180 Then NEW_ANG = 360 - Val(NEW_ANG)
+
-If InStr(1, ANG_TL, "-") > 0 Then NEW_ANG = "-" & NEW_ANG
+M12 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
 M11 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-If Len(NEW_ANG) < 4 Then NEW_ANG = Replace(NEW_ANG, ".", "") & "."
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-PEZ_2 = Replace(PEZ_2, "C" & ANG_TL, "C" & NEW_ANG)
+
 BKF1 = M11 - 25
-End If
+BKF2 = M12 - 25
 
 If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU" & ACT_MOD)
-NEW_LAV = Left(PEZ_2, InStr(1, PEZ_2, "X")) & Jcdf(CRD_X) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") + 1) 'LAVORAZIONE SPECCHIATA
+
 R01 = T_SLOT(100, 22, 14, 9, 0) & T_SLOT(220, 22, 14, 9, 0) & T_SLOT(H - 100, 22, 14, 9, 0) & T_SLOT(H - 220, 22, 14, 9, 0) & T_SLOT(H / 2 - M5 / 2, 22, 14, 9, 0) & T_SLOT(H / 2 + M5 / 2, 22, 14, 9, 0)
 R02 = T_SLOT(13, L - 10 - 58 - 21 + 6, 14, 9, 0) & T_SLOT(H - 13, L - 10 - 58 - 21 + 6, 14, 9, 0)
 
-Else
+If BKF2 > 50 Then R03A = T_HEX(32, L - 10 - 55 + 15, 9.1) Else R03A = ""
 If M8 > 0 Then R03B = T_HEX(32 + M8, L - 10 - 55 + 15, 9.1) Else R03B = ""
-NEW_LAV = PEZ_2
+If M9 > 0 Then R03C = T_HEX(M9, L - 10 - 55 + 15, 9.1) Else R03C = ""
 If M12 > 0 Then R03D = T_SLOT(M12, L - 10 - 55 + 22, 14, 9, 0) Else R03D = ""
 R03 = R03A & R03B & R03C & R03D
-If InStr(1, NEW_LAV, "G28") > 0 Then
+
-If InStr(1, NEW_LAV, "J0.") > 0 Then
+If BKF1 > 50 Then R04A = T_HEX(H - 32, L - 10 - 55 + 15, 9.1) Else R04A = ""
-NEW_LAV = Replace(NEW_LAV, "J0.", "J180.")
+If M6 > 0 Then R04B = T_HEX(H - 32 - M6, L - 10 - 55 + 15, 9.1) Else R04B = ""
-GoTo FINE_ANGOLO_SCANT
+If M7 > 0 Then R04C = T_HEX(H - M7, L - 10 - 55 + 15, 9.1) Else R04C = ""
-End If
+If M11 > 0 Then R04D = T_SLOT(H - M11, L - 10 - 55 + 22, 14, 9, 0) Else R04D = ""
-If InStr(1, NEW_LAV, "J180.") > 0 Then
+R04 = R04A & R04B & R04C & R04D
-NEW_LAV = Replace(NEW_LAV, "J180.", "J0.")
+
-GoTo FINE_ANGOLO_SCANT
+R05 = T_SLOT(M4 - 1, L - 27.5, 11, 2, 90) & T_SLOT(M4 + M2 + 1, L - 27.5, 11, 2, 90)
-End If
+'ALTEZZA SCANTONATURA 23 mm
-If InStr(1, NEW_LAV, "J-0.") > 0 Then
+'DA FARE IL BLOCCO
-NEW_LAV = Replace(NEW_LAV, "J-0.", "J-180.")
+
-GoTo FINE_ANGOLO_SCANT
+
-End If
+
-If InStr(1, NEW_LAV, "J-180.") > 0 Then
+
-NEW_LAV = Replace(NEW_LAV, "J-0.", "J-0.")
+
-GoTo FINE_ANGOLO_SCANT
+
-End If
+
-End If
+
 Call SAVE_SUB(NND, STRINGA)
 
-If InStr(1, NEW_LAV, "G37") > 0 Then
+
-If InStr(1, NEW_LAV, "I-") > 0 Then
+
-NEW_LAV = Replace(NEW_LAV, "I-", "I")
+
-GoTo FINE_ANGOLO_SCANT
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-End If
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
-If InStr(1, NEW_LAV, "I") > 0 Then
+    STR_OUT(2) = TL_CLN
-NEW_LAV = Replace(NEW_LAV, "I", "I-")
+    STR_OUT(3) = "TOOLANGLE(0)"
-GoTo FINE_ANGOLO_SCANT
+    STR_OUT(4) = "MIDCUT(N)"
-End If
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-6) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M4) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
-End If
+    STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - M3) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H + 6) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
     STR_OUT(7) = TL_CUT_O
     STR_OUT(8) = "TOOLANGLE(0)"
-FINE_ANGOLO_SCANT:
+    STR_OUT(9) = "MIDCUT(N)"
-End If
+    STR_OUT(10) = UnloadOutline(110, 6, SCN_X, -6, H, L)
-Else
+    STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-'*********UTENSILE SPECIAlE NON SIMMETRICO E NON INDEX
+    STR_OUT(12) = "'FINE BLOCCO"
 
 Call FVTPT(3, NND, "")
-ANGOLO = Right(PEZ_2, Len(PEZ_2) - InStr(1, PEZ_2, "C"))
+
-ANGOLO = Left(ANGOLO, InStr(1, ANGOLO, ".") - 1)
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-ANGOLO_OLD = ANGOLO
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
-Select Case ANGOLO
+    STR_OUT(3) = "TOOLANGLE(0)"
-Case "0"
+    STR_OUT(4) = "MIDCUT(N)"
-ANGOLO = "-90"
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-6) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M4) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
-Case "180"
+    STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - M3) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H + 6) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
-ANGOLO = "90"
+    STR_OUT(7) = TL_CUT_V
-Case "90"
+    STR_OUT(8) = "TOOLANGLE(90)"
-ANGOLO = "180"
+    STR_OUT(9) = "MIDCUT(N)"
-Case "-90"
+    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & 0 & "," & Jcdf(L) & "," & 0 & "," & Jcdf(0) & ",-6,-6,0,M0))"
-ANGOLO = "0"
+    STR_OUT(11) = TL_CUT_O
     STR_OUT(12) = "TOOLANGLE(0)"
-MsgBox (("ERRORE ANGOLO 5RD"))
+    STR_OUT(13) = "MIDCUT(N)"
     STR_OUT(14) = UnloadOutline(110, 6, SCN_X, -6, H, L)
     STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(16) = "'FINE BLOCCO"
-TOTO = Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)
+
-For RA1 = 1 To 46
+Call FVTPT(3, NND, "C")
-If TOOL_VAR(NHD, RA1, 1) = TOTO Then
+
-NM_LG = TOOL_VAR(NHD, RA1, 3)
+
-End If
+
-Next RA1
+
 
 
 Sub S_1011060(ByVal NND As Integer)
-PR_TL = 0
+ACT_MOD = "1011060"
-For RA = 1 To 46
+
-If TOOL_VAR(NHD, RA, 3) = NM_LG And TOOL_VAR(NHD, RA, 5) = ANGOLO Then
+
-TORR = TOOL_VAR(NHD, RA, 1)
+
-PR_TL = 1
+
-Exit For
+
-End If
+
-Next RA
+
 M4 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
-If PR_TL = 0 Then
+M3 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
-MsgBox ("NON TROVATO UTENSILE 5RD CON ANGOLO " & ANGOLO)
+
-GoTo PROS_LAV
+
-End If
+
 M10 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
-PEZ_2 = Replace(PEZ_2, "C" & ANGOLO_OLD, "C" & ANGOLO)
+M11 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
-PEZ_2 = Replace(PEZ_2, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4), TORR)
+M8 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
 M9 = INPUT_NUM(NND, "M11", M11, ACT_MOD)
-If InStr(1, PEZ_2, "X") > 0 Then
+M12 = INPUT_NUM(NND, "M12", M12, ACT_MOD)
-CRD_X = Mid(PEZ_2, InStr(1, PEZ_2, "X") + 1, InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") - 1)
+M14 = INPUT_NUM(NND, "M13", M13, ACT_MOD)
-CRD_X = LENGHT - Val(CRD_X)
+M13 = INPUT_NUM(NND, "M14", M14, ACT_MOD)
-PEZ_2 = Left(PEZ_2, InStr(1, PEZ_2, "X")) & Jcdf(CRD_X) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") + 1)
+M15 = INPUT_NUM(NND, "M15", M15, ACT_MOD)
-End If
+ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 
-PROS_LAV:
+
-NEW_LAV = PEZ_2
+
-'***************************
+
-End If
+HKK = M1 - 48
 
 If (M2 + M3 + M4) <> H Then MsgBox ("TAGLIO TRAVERSA ENTRANCE ERRATO SU" & ACT_MOD)
 
 
-MR_VPR = MR_VPR & ST64(NEW_LAV) 'VPR SPECCHIATO
+R01 = T_CIRC(100, 14, 14) & T_CIRC(H - 100, 14, 14) & T_CIRC(H / 2 - M5 / 2, 14, 14) & T_CIRC(H / 2 + M5 / 2, 14, 14)
-PEZ_LAV = Right(PEZ_LAV, Len(PEZ_LAV) - 64)
+R02 = T_SLOT(380.25, 5.5, 17.5, 6.5, 90) & T_SLOT(H - 380.25, 5.5, 17.5, 6.5, 90) & T_SLOT(380.25 + M6, 5.5, 17.5, 6.5, 90) & T_SLOT(H - 380.25 - M7, 5.5, 17.5, 6.5, 90)
 If HKK = 139 Then R03 = T_CIRC(13, 14 + M15, 14) & T_CIRC(H - 13, 14 + M15, 14) Else R03 = ""
-Next LV
+
 R04A = T_HEX(32, L - 10 - 58 + 3 + 15, 9.1)
 If M11 > 0 Then R04B = T_HEX(M11, L - 10 - 58 + 3 + 15, 9.1) Else R04B = ""
 If M10 > 0 Then R04C = T_HEX(M10, L - 10 - 58 + 3 + 15, 9.1) Else R04C = ""
-MIRROR = PEZ_1 & MR_VPR
+R04D = T_SLOT(M14, L - 10 - 58 + 3 + 20, 14, 9, 0)
 R04 = R04A & R04B & R04C & R04D
-'***********************************************FINE SPECCHIATURA IN X
+
 R05A = T_HEX(H - 32, L - 10 - 58 + 3 + 15, 9.1)
 If M9 > 0 Then R05B = T_HEX(H - M9, L - 10 - 58 + 3 + 15, 9.1) Else R05B = ""
 If M8 > 0 Then R05C = T_HEX(H - M8, L - 10 - 58 + 3 + 15, 9.1) Else R05C = ""
-Case "01" '****************************************************************************************************SPECCHIATURA IN Y
+R05D = T_SLOT(H - M13, L - 10 - 58 + 3 + 20, 14, 9, 0)
 R05 = R05A & R05B & R05C & R05D
 
-PEZ_1 = Left(STRINGA, InStr(1, STRINGA, "M5") + 63) 'STRINGA CON TORRETTA E INFO PEZZO
+R06 = T_SLOT(M4 - 1, L - 27.5, 11, 2, 90) & T_SLOT(M4 + M2 + 1, L - 27.5, 11, 2, 90)
-PEZ_LAV = Replace(STRINGA, PEZ_1, "")             'STRINGA CON LAVORAZIONI
+'ALTEZZA SCANTONATURA 23 mm
 'DA FARE IL BLOCCO
-For LV = 1 To quanteVolte(PEZ_LAV, ">")
+
-PEZ_2 = Left(PEZ_LAV, InStr(1, PEZ_LAV, ">")) 'STRINGA SINGOLA LAVORAZIONE
+
 fn = R01 & R02 & R03 & R04 & R05 & R06
-If InStr(1, STAZ_NO_MR, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) = 0 Then
+
-If InStr(1, PEZ_2, "Y") > 0 Then
+
-CRD_Y = Mid(PEZ_2, InStr(1, PEZ_2, "Y") + 1, InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") - 1)
+
-CRD_Y = WIDTH - Val(CRD_Y)
+
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
-If InStr(1, STAZ_INDEX, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) > 0 Then 'SPECIALI INDEX
+
 POSINTAB = def_posintab(NND)
-ANG_TL = Mid(PEZ_2, InStr(1, PEZ_2, "C") + 1, InStr(InStr(1, PEZ_2, "C"), PEZ_2, "/") - InStr(1, PEZ_2, "C") - 1)
+
-ANG_TL2 = Replace(ANG_TL, ".", "")
+
-NEW_ANG = 0 - Val(ANG_TL2)
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-If Val(NEW_ANG) > 180 Then NEW_ANG = 360 - Val(NEW_ANG)
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
-'If InStr(1, ANG_TL, "-") > 0 Then NEW_ANG = "-" & NEW_ANG
+    STR_OUT(2) = TL_CLN
     STR_OUT(3) = "TOOLANGLE(0)"
-If Len(NEW_ANG) < 4 Then NEW_ANG = Replace(NEW_ANG, ".", "") & "."
+    STR_OUT(4) = "MIDCUT(N)"
-PEZ_2 = Replace(PEZ_2, "C" & ANG_TL, "C" & NEW_ANG)
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-6) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M4) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
     STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - M3) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H + 6) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
-End If
+    STR_OUT(7) = TL_CUT_O
     STR_OUT(8) = "TOOLANGLE(0)"
     STR_OUT(9) = "MIDCUT(N)"
-NEW_LAV = Left(PEZ_2, InStr(1, PEZ_2, "Y")) & Jcdf(CRD_Y) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") + 1) 'LAVORAZIONE SPECCHIATA
+    STR_OUT(10) = UnloadOutline(110, 6, SCN_X, -6, H, L)
     STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(12) = "'FINE BLOCCO"
 
-Else
+
 
-NEW_LAV = PEZ_2
+    STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CLN
-If InStr(1, NEW_LAV, "G28") > 0 Then
+    STR_OUT(3) = "TOOLANGLE(0)"
-If InStr(1, NEW_LAV, "J-90.") > 0 Then
+    STR_OUT(4) = "MIDCUT(N)"
-NEW_LAV = Replace(NEW_LAV, "J-90.", "J90.")
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(-6) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(M4) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
-GoTo FINE_ANGOLO_SCANT2
+    STR_OUT(6) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H - M3) & "," & Jcdf(L - 23 + 50) & "," & Jcdf(H + 6) & "," & Jcdf(L - 23 + 50) & ",0,0,0,M0))"
-End If
+    STR_OUT(7) = TL_CUT_V
-If InStr(1, NEW_LAV, "J90.") > 0 Then
+    STR_OUT(8) = "TOOLANGLE(90)"
-NEW_LAV = Replace(NEW_LAV, "J90.", "J-90.")
+    STR_OUT(9) = "MIDCUT(N)"
-GoTo FINE_ANGOLO_SCANT2
+    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & 0 & "," & Jcdf(L) & "," & 0 & "," & Jcdf(0) & ",-6,-6,0,M0))"
-End If
+    STR_OUT(11) = TL_CUT_O
-If InStr(1, NEW_LAV, "J270.") > 0 Then
+    STR_OUT(12) = "TOOLANGLE(0)"
-NEW_LAV = Replace(NEW_LAV, "J270.", "J-270.")
+    STR_OUT(13) = "MIDCUT(N)"
-GoTo FINE_ANGOLO_SCANT2
+    STR_OUT(14) = UnloadOutline(110, 6, SCN_X, -6, H, L)
-End If
+    STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-If InStr(1, NEW_LAV, "J-270.") > 0 Then
+    STR_OUT(16) = "'FINE BLOCCO"
-NEW_LAV = Replace(NEW_LAV, "J-270.", "J270.")
+
-GoTo FINE_ANGOLO_SCANT2
+Call FVTPT(3, NND, "C")
-End If
+
-End If
+
 
 End Sub
-If InStr(1, NEW_LAV, "G37") > 0 Then
+
-If InStr(1, NEW_LAV, "J-") > 0 Then
+
-NEW_LAV = Replace(NEW_LAV, "J-", "J")
+
-GoTo FINE_ANGOLO_SCANT2
+
-End If
+