View difference between Paste ID: 2kEDKMWA and vg4Bixzq

-'Nuovi Moduli
+'Paramenti
 
-Sub S_10357360(ByVal NND As Integer)
+Sub S_1007305(ByVal NND As Integer)
-ACT_MOD = "1035736"
+ACT_MOD = "1007305"
 
 
 
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 
-R01 = T_SMUS(-0.2, -0.2) & T_SMUS(H + 0.2, -0.2) & T_SMUS(L + 0.2, -0.2) & T_SMUS(H + 0.2, L + 0.2)
+'************************************* SCRITTURA LISTATO
 
-fn = R01
+R01A = T_CIRC((H - M2) / 2, L - 142, 8.5) & T_CIRC((H - M2) / 2, L - 42, 8.5)
 R01B = T_CIRC(H / 2 + M2 / 2, L - 42, 8.5) & T_CIRC(H / 2 + M2 / 2, L - 142, 8.5)
 R01 = R01A & R01B
-P1 = 250
+
-P2 = H - 400
+R02 = T_RECT1(H - 96, H + 4, L - 13.5, L + 6) & T_RECT1(-4, 96, L - 13.5, L + 6)
 
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+'R03A = TG_R(20, 7, 3, 3, 7, 8, 8)
 'R03B = TG_R(20, 4, L - 20.5, 7, L - 16.5, 8, 8)
 'R03C = TG_R(20, 100, L - 7, 103, L - 3, 8, 8)
 'R03D = TG_R(20, H - 103, L - 4, H - 99, L - 8, 8, 8)
 'R03E = TG_R(20, H - 7, L - 16.5, H - 3, L - 20.5, 8, 8)
 'R03F = TG_R(20, H - 3, 7, H - 7, 3, 8, 8)
-Call CUT_END_S(H, L, "B", POSINTAB)
+'R03 = R03A & R03B & R03C & R03D & R03E & R03F
-Call FVTPT(3, NND, "B")
+
 SCST = 0.2 'AGGIUNTA STANDARD
 R03A = T_SMUS(-SCST, -SCST) & T_SMUS(H + SCST, -SCST)
 R03B = T_SMUS(H + SCST, L - 13.5) & T_SMUS(-SCST, L - 13.5)
 R03C = T_SMUS(96 - SCST, L + SCST) & T_SMUS(H - 96 + SCST, L + SCST)
 R03 = R03A & R03B & R03C
 
 fn = R01 & R02 & R03
 P1 = H / 2 - 180
-Sub S_10229750(ByVal NND As Integer)
+P2 = H / 2 + 180
-ACT_MOD = "1022975"
+
-CLAMP = 0
+
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & R01 & R02 & R03
 
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+
 Call FVTPT(3, NND, "C")
 
 End Sub
-R01 = T_SLOT(30, L - 51.7, 10, 5, 90)
+
-R01 = R01 & T_SLOT(30 + M1, L - 51.7, 10, 5, 90)
+Sub S_1007303(ByVal NND As Integer)
-R01 = R01 & T_SLOT(30 + 2 * M1, L - 51.7, 10, 5, 90)
+ACT_MOD = "1007303"
-R01 = R01 & T_SLOT(30 + 3 * M1, L - 51.7, 10, 5, 90)
+
-R01 = R01 & T_SLOT(30 + 4 * M1, L - 51.7, 10, 5, 90)
+
-R01 = R01 & T_SLOT(30 + 5 * M1, L - 51.7, 10, 5, 90)
+
 
 L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-R02 = T_CIRC(30, L - 3.75, 14)
+
-R02 = R02 & T_CIRC(30 + M1, L - 3.75, 14)
+
-R02 = R02 & T_CIRC(30 + 2 * M1, L - 3.75, 14)
+
-R02 = R02 & T_CIRC(30 + 3 * M1, L - 3.75, 14)
+
-R02 = R02 & T_CIRC(30 + 4 * M1, L - 3.75, 14)
+'************************************* SCRITTURA LISTATO
-R02 = R02 & T_CIRC(30 + 5 * M1, L - 3.75, 14)
+
 R01A = T_CIRC((H - M2) / 2, L / 2 - 90, 8.5) & T_CIRC((H - M2) / 2, L / 2 + 90, 8.5)
-' GLI SMUSSI
+R01B = T_CIRC(H / 2 + M2 / 2, L / 2 - 90, 8.5) & T_CIRC(H / 2 + M2 / 2, L / 2 + 90, 8.5)
 R01 = R01A & R01B
-R03 = T_SMUS(30 + 6.25, L)
+
-R03 = R03 & T_SMUS(30 - 6.25, L)
+R02A = T_RECT1(-3, 96, -3, 15) & T_RECT1(-3, 96, L - 15, L + 3)
 R02B = T_RECT1(H - 96, H + 3, L - 15, L + 3) & T_RECT1(H - 96, H + 3, -3, 15)
-R03 = R03 & T_SMUS(30 + M1 + 6.25, L)
+R02 = R02A & R02B
-R03 = R03 & T_SMUS(30 + M1 - 6.25, L)
+
 
-R03 = R03 & T_SMUS(30 + 2 * M1 + 6.25, L)
+'R03A = TG_R(20, 103, 3, 99, 7, 20, 20)
-R03 = R03 & T_SMUS(30 + 2 * M1 - 6.25, L)
+'R03B = TG_R(20, 7, 16.5, 3, 20.5, 20, 20)
 'R03C = TG_R(20, 3, L - 23, 10, L - 15, 20, 20)
-R03 = R03 & T_SMUS(30 + 3 * M1 + 6.25, L)
+'R03D = TG_R(20, 99, L - 7, 103, L - 3, 20, 20)
-R03 = R03 & T_SMUS(30 + 3 * M1 - 6.25, L)
+'R03E = TG_R(20, H - 88, L - 10, H - 84, L - 7, 20, 20)
 'R03F = TG_R(20, H - 7, L - 15, H - 4, L - 23, 20, 20)
-R03 = R03 & T_SMUS(30 + 4 * M1 + 6.25, L)
+'R03G = TG_R(20, H - 3, 20.5, H - 8, 16.5, 20, 20)
-R03 = R03 & T_SMUS(30 + 4 * M1 - 6.25, L)
+'R03H = TG_R(20, H - 99, 7, H - 103, 3, 20, 20)
 'R03 = R03A & R03B & R03C & R03D & R03E & R03F & R03G & R03H
-R03 = R03 & T_SMUS(30 + 5 * M1 + 6.25, L)
+
-R03 = R03 & T_SMUS(30 + 5 * M1 - 6.25, L)
+SCST = 0.2 'AGGIUNTA STANDARD
 R03A = T_SMUS(96 - SCST, -SCST) & T_SMUS(-SCST, 15 - SCST)
 R03B = T_SMUS(H - 96 + SCST, -SCST) & T_SMUS(H + SCST, 15 - SCST)
 R03C = T_SMUS(96 - SCST, L + SCST) & T_SMUS(-SCST, L + SCST)
 R03D = T_SMUS(H - 96 + SCST, L + SCST) & T_SMUS(H + SCST, L + SCST)
 R03 = R03A & R03B & R03C & R03D
 
-P1 = 250
+
-P2 = H - 400
+
 P1 = H / 2 - 180
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+P2 = H / 2 + 180
 MVAL = 500
 
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & R01 & R02 & R03
 
 Call SAVE_SUB(NND, STRINGA)
-Call CUT_END_S(H, L, "B", POSINTAB)
+
-Call FVTPT(3, NND, "B")
+
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 End Sub
 
 
-Sub S_3201155358(ByVal NND As Integer)
+Sub S_1007236(ByVal NND As Integer)
-ACT_MOD = "3201155358"
+ACT_MOD = "1007236"
-CLAMP = 0
+
 
 
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+L = INPUT_NUM(NND, "L", 0, 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)
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+
 M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
 M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
 
-fn = ""
+'************************************* SCRITTURA LISTATO
 
 R01 = T_RECT1(-4, 96, -5, 15) & T_RECT1(M1 - 96, M1 + 4, -5, 15)
 
-P1 = 250
+R02A = T_CIRC(M1 / 2 - M4 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 - M2 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 - M2 / 2, L - 48 - 170, 8.5)
-P2 = H - 400
+R02B = T_CIRC(M1 / 2 - M3 / 2, L - 48, 8.5) & T_CIRC(M1 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + 20, L - 48, 8.5)
 R02C = T_CIRC(M1 / 2 + M3 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + M2 / 2, L - 48, 8.5)
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+R02D = T_CIRC(M1 / 2 + M4 / 2, L - 48, 8.5) & T_CIRC(M1 / 2 + M2 / 2, L - 48 - 170, 8.5)
 R02 = R02A & R02B & R02C & R02D
 
 'R03A = TG_R(20, 96 + 5, 0, 96, 6, 8, 8) & TG_R(20, 5, 15, 0, 20, 8, 8)
 'R03B = TG_R(20, 0, L - 5, 5, L, 8, 8) & TG_R(20, M1 - 5, L, M1, L - 5, 8, 8)
 'R03C = TG_R(20, M1, 20, M1 - 5, 15, 8, 8) & TG_R(20, M1 - 96, 5, M1 - 96 - 5, 0, 8, 8)
-Call CUT_END_S(H, L, "B", POSINTAB)
+'R03 = R03A & R03B & R03C
-Call FVTPT(3, NND, "B")
+'
 SCST = 0.2 'AGGIUNTA STANDARD
 R03A = T_SMUS(-SCST, L + SCST)
 R03B = T_SMUS(H + SCST, L + SCST)
 R03D = T_SMUS(-SCST, 15) & T_SMUS(H - SCST, 15)
 R03E = T_SMUS(96, -SCST) & T_SMUS(H - 96, -SCST)
 R03 = R03A & R03B & R03D & R03E
 
 fn = R01 & R02 & R03
-Sub S_1026716A(ByVal NND As Integer)
+P1 = 200
-ACT_MOD = "1026716"
+P2 = H - 250
-CLAMP = 0
+
 
 
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & R01 & R02 & R03
 
 Call SAVE_SUB(NND, STRINGA)
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+
 POSINTAB = def_posintab(NND)
-RGR = 0.2
+
-agsp = 2
+
-R01 = T_RECT1(MR_X(1321, H, agsp), MR_X(1321 + 445, H, agsp), L - 31.4, L + 6)
+
-R02 = T_CIRC(MR_X(28, H, agsp), 6, 3.3)
+
-R03 = T_SMUS(-RGR, -RGR) & T_SMUS(-RGR, L + RGR) & T_SMUS(H + RGR, -RGR) & T_SMUS(H + RGR, L + RGR)
+
 End Sub
 
 
 Sub S_1023836A(ByVal NND As Integer)
-P1 = 250
+ACT_MOD = "1023836"
-P2 = H - 400
+
 
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+
 L = INPUT_NUM(NND, "L", 0, 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)
 
 '************************************* SCRITTURA LISTATO
 'tt_pch = "GANCIO" '"23G0S"
 'R01A = T_SPECIAL(M2 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, tt_pch, "C0.")
 'R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, tt_pch, "C0.")
 'R01 = R01A & R01B
-Sub S_10280840(ByVal NND As Integer)
+
-ACT_MOD = "1028084"
+R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
-CLAMP = 0
+
 
 SCST = 0.2
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+R03A = T_SMUS(-SCST, -SCST)
 R03B = T_SMUS(L + SCST, H + SCST)
 R03C = T_SMUS(L + SCST, -SCST)
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+R03D = T_SMUS(-SCST, H + SCST)
-
+R03 = R03A & R03B & R03C & R03D
-R01 = T_CIRC(100, 38.5, 8.5) & T_CIRC(H - 100, 38.5, 8.5)
+
-inter = (H - 200) / 5
+fn = R02 & R03
-R02 = T_CIRC(100 + inter, 38.5, 8.5) & T_CIRC(100 + 2 * inter, 38.5, 8.5) & T_CIRC(100 + 3 * inter, 38.5, 8.5) & T_CIRC(100 + 4 * inter, 38.5, 8.5)
+P1 = 200
 P2 = L - 250
-fn = R01 & R02
+
 
 STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & R01 & R02 & R03
-P1 = 250
+
-P2 = H - 400
+
 
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+If L > H Then
 H1 = H
 L1 = L
 L = H1
 H = L1
 End If
-Call CUT_END_S(H, L, "B", POSINTAB)
+
-Call FVTPT(3, NND, "B")
+    POSINTAB = def_posintab(NND)
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
 
     STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(5) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-Sub S_10228760(ByVal NND As Integer)
+    STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-ACT_MOD = "1022876"
+
-CLAMP = 0
+    STR_OUT(7) = TL_CUT_O
     STR_OUT(8) = "TOOLANGLE(0)"
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+    STR_OUT(9) = "MIDCUT(N)"
     STR_OUT(10) = UnloadOutline(110, 6, 0, -6, H, L)
     STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(12) = "'FINE BLOCCO"
     Call FVTPT(3, NND, "")
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+
 
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
-R01 = T_CIRC(29, L - 15, 3.3) & T_CIRC(H - 29, L - 15, 3.3)
+    STR_OUT(2) = TL_CUT_V
     STR_OUT(3) = "TOOLANGLE(90)"
-For U = 1 To 5
+    STR_OUT(4) = "MIDCUT(N)"
-R02 = R02 & T_CIRC(H - 29 - (M1 * U), L - 15, 3.3)
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
-Next U
+    STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
-R03 = T_CIRC(15, 8, 3.3) & T_CIRC(H - 15, 8, 3.3)
+
     STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-R04 = T_CIRC(79, 8, 7.2) & T_CIRC(H - 79, 8, 7.2)
+    STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-n_for = (H - 79 - 79) / 50
+    STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-For F = 1 To n_for
+
-R05 = R05 & T_CIRC(79 + (50 * F), 8, 7.2)
+    STR_OUT(11) = TL_CUT_O
-Next F
+    STR_OUT(12) = "TOOLANGLE(0)"
     STR_OUT(13) = "MIDCUT(N)"
-fn = R01 & R02 & R03 & R04 & R05
+    STR_OUT(14) = UnloadOutline(110, 6, 0, -6, H, L)
     STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-P1 = 250
+    STR_OUT(16) = "'FINE BLOCCO"
-P2 = H - 400
+    Call FVTPT(3, NND, "C")
 
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+
 End Sub
 
 Sub S_1023836B(ByVal NND As Integer)
 ACT_MOD = "1023836"
 
 
-Call CUT_END_S(H, L, "B", POSINTAB)
+
-Call FVTPT(3, NND, "B")
+L = INPUT_NUM(NND, "L", 0, 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)
 
 '************************************* SCRITTURA LISTATO
-Sub S_1026699A(ByVal NND As Integer)
+'tt_pch = "GANCIO" '"23G0S"
-ACT_MOD = "1026699"
+'R01A = T_SPECIAL(M2 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, tt_pch, "C0.")
-CLAMP = 0
+'R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, tt_pch, "C0.")
 'R01 = R01A & R01B
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+
 R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5) & T_CIRC(M2 + 35, H - 53, 8.5)
 
 
 SCST = 0.2
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+R03A = T_SMUS(-SCST, -SCST)
-H_SPC_VT = L - 11.8 - 22.6 - 8.5 + 4 * 1.8
+R03B = T_SMUS(L + SCST, H + SCST)
 R03C = T_SMUS(L + SCST, -SCST)
 R03D = T_SMUS(-SCST, H + SCST)
-R01A = T_CIRC(28, 22.8, 3.3) & T_CIRC(28 + 425, 22.8, 3.3) & T_CIRC(28 + 2 * 425, 22.8, 3.3) & T_CIRC(28 + 3 * 425, 22.8, 3.3)
+R03 = R03A & R03B & R03C & R03D
-R01B = T_CIRC(H - 30, 22.8, 3.3) & T_CIRC(H - 30 - M1, 22.8, 3.3)
+
 fn = R02 & R03
-R02A = T_CIRC(7, L - 8, 7) & T_CIRC(7 + 50, L - 8, 7)
+P1 = 200
-R02B = T_CIRC(107, L - 8, 7) & T_CIRC(107, L - 8 + 1.4, 7) & T_CIRC(107, L - 8 - 1.4, 7)
+P2 = L - 250
-R02C = T_CIRC(157, L - 8, 7) & T_CIRC(157, L - 8 + 1.4, 7) & T_CIRC(157, L - 8 - 1.4, 7)
+
-R02 = R02A & R02B & R02C
+
-R03A = T_RECT1(H - 20, H + 6, L - 26, L + 6)
+STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & R01 & R02 & R03
-R03B = T_SMUS(H - (15 - 5) - 20, L + (0.5)) & T_SMUS(H - (-0.5) - 20, L - (15 - 5)) & T_SMUS(H - (7.5 - 2.75) - 20, L - (7.5 - 2.75)) & T_CIRC(H - 20 - 1, L - 1, 7.2)
+
-R03 = R03A & R03B
+
 
-R04 = ""
+If L > H Then
-For U = 0 To 21
+H1 = H
-R04 = R04 & T_CIRC(207 + 50 * U, L - 8, 7)
+L1 = L
-Next U
+L = H1
-R04 = R04 & T_CIRC(1322 - 15, L - 8, 7)
+H = L1
 End If
 
     POSINTAB = def_posintab(NND)
-Select Case ver
+
-Case 1, 2, 3, 4
+
-R05A = T_CIRC(H - 178, L - 8, 7) & T_CIRC(H - 178, L - 8 + 1.4, 7) & T_CIRC(H - 178, L - 8 - 1.4, 7)
+    STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
-R05B = T_CIRC(H - 128, L - 8, 7) & T_CIRC(H - 128, L - 8 + 1.4, 7) & T_CIRC(H - 128, L - 8 - 1.4, 7)
+
-R05 = R05A & R05B
+    STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-R06 = T_RECT1(H - 107, H - 107 + 30, L - 12, L + 6) & T_SMUS(H - 107, L) & T_SMUS(H - 107 + 30, L)
+    STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(5) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-Case 5, 6
+    STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-R05 = ""
+
-R06 = ""
+    STR_OUT(7) = TL_CUT_O
     STR_OUT(8) = "TOOLANGLE(0)"
-Case Else
+    STR_OUT(9) = "MIDCUT(N)"
-MsgBox ("ATTENZIONE CONTROLLARE VERSIONE SU " & ACT_MOD)
+    STR_OUT(10) = UnloadOutline(110, 6, 0, -6, H, L)
-End Select
+    STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(12) = "'FINE BLOCCO"
-R07 = T_RECT1(1322, 1322 + 443, L - H_SPC_VT, L + 6)
+    Call FVTPT(3, NND, "")
 
 
-fn = R01 & R02 & R03 & R04 & R05 & R06 & R07
+
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CUT_V
-P1 = 250
+    STR_OUT(3) = "TOOLANGLE(90)"
-P2 = H - 400
+    STR_OUT(4) = "MIDCUT(N)"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+    STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
 
     STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
 
-Call CUT_END_S(H, L, "B", POSINTAB)
+    STR_OUT(11) = TL_CUT_O
-Call FVTPT(3, NND, "B")
+    STR_OUT(12) = "TOOLANGLE(0)"
     STR_OUT(13) = "MIDCUT(N)"
     STR_OUT(14) = UnloadOutline(110, 6, 0, -6, H, L)
     STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(16) = "'FINE BLOCCO"
     Call FVTPT(3, NND, "C")
 
 
-Sub S_1027588A(ByVal NND As Integer)
+
-ACT_MOD = "1027588"
+
-CLAMP = 0
+
 
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+Sub S_1006951(ByVal NND As Integer)
 ACT_MOD = "1006951"
 
 
 
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+L = INPUT_NUM(NND, "L", 0, ACT_MOD)
-H_SPC_VT = L - 12 - 8 + 1.8 * 2
+
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
-R01A = T_CIRC(7, L - 8, 7) & T_CIRC(7 + 50, L - 8, 7) & T_CIRC(1322 - 15, L - 8, 7)
+
-R01B = T_CIRC(107, L - 8, 7) & T_CIRC(107, L - 8 + 1.4, 7) & T_CIRC(107, L - 8 - 1.4, 7)
+
-R01C = T_CIRC(157, L - 8, 7) & T_CIRC(157, L - 8 + 1.4, 7) & T_CIRC(157, L - 8 - 1.4, 7)
+
-If H = 1908 Then
+
-R01D = T_CIRC(178, L - 8, 7) & T_CIRC(178, L - 8 + 1.4, 7) & T_CIRC(178, L - 8 - 1.4, 7)
+'************************************* SCRITTURA LISTATO
-R01E = T_CIRC(128, L - 8, 7) & T_CIRC(128, L - 8 + 1.4, 7) & T_CIRC(128, L - 8 - 1.4, 7)
+
-Else
+'tt_pch = "GANCIO" '"23G0S"
-R01D = ""
+'R01A = T_SPECIAL(M2 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + M3 - 10, H - 55 + 6, tt_pch, "C0.")
-R01E = ""
+'R01B = T_SPECIAL(M2 + 2 * M3 - 10, H - 55 + 6, tt_pch, "C0.") & T_SPECIAL(M2 + 3 * M3 - 10, H - 55 + 6, tt_pch, "C0.")
 'R01 = R01A & R01B
-R01 = R01A & R01B & R01C & R01D & R01E
+
 R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
-R02 = ""
+
-For U = 0 To 21
+SCST = 0.2
-R02 = R02 & T_CIRC(207 + 50 * U, L - 8, 7)
+R03A = T_SMUS(-SCST, -SCST)
-Next U
+R03B = T_SMUS(L + SCST, H + SCST)
 R03C = T_SMUS(L + SCST, -SCST)
-R03 = T_CIRC(28, 23.2, 3.3) & T_CIRC(28 + 425, 23.2, 3.3) & T_CIRC(28 + 2 * 425, 23.2, 3.3) & T_CIRC(28 + 3 * 425, 23.2, 3.3)
+R03D = T_SMUS(-SCST, H + SCST)
-R04 = T_CIRC(H - 30, 23.2, 3.3) & T_CIRC(H - 30 - M1, 23.2, 3.3)
+R03 = R03A & R03B & R03C & R03D
 
 fn = R02 & R03
-R05 = T_RECT1(1322, 1322 + 443, L - H_SPC_VT, L + 6)
+P1 = 200
-R06 = T_SMUS(H - (15 - 5), L + 0.5) & T_SMUS(H - (-0.5), L - 15 + 5) & T_SMUS(H - (7.5 - 2.75), L - 7.5 + 2.75) & T_CIRC(H - (1), L - 1, 7.2)
+P2 = L - 250
 MVAL = 500
-fn = R01 & R02 & R03 & R04 & R05 & R06
+STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
-P1 = 250
+
-P2 = H - 400
+If L > H Then
 H1 = H
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+L1 = L
 L = H1
 H = L1
 End If
 
     POSINTAB = def_posintab(NND)
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
-Call CUT_END_S(H, L, "B", POSINTAB)
+
-Call FVTPT(3, NND, "B")
+    STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
     STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(5) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(7) = TL_CUT_O
     STR_OUT(8) = "TOOLANGLE(0)"
     STR_OUT(9) = "MIDCUT(N)"
     STR_OUT(10) = UnloadOutline(110, 6, 0, -6, H, L)
-Sub S_1027588C(ByVal NND As Integer)
+    STR_OUT(11) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-ACT_MOD = "1027588"
+    STR_OUT(12) = "'FINE BLOCCO"
-CLAMP = 0
+    Call FVTPT(3, NND, "")
 
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+
     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = TL_CUT_V
     STR_OUT(3) = "TOOLANGLE(90)"
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+    STR_OUT(4) = "MIDCUT(N)"
-H_SPC_VT = L - 12 - 8 + 1.8 * 2
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
     STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
     STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-R01A = T_CIRC(7, L - 8, 7) & T_CIRC(7 + 50, L - 8, 7) & T_CIRC(1322 - 15, L - 8, 7)
+    STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-R01B = T_CIRC(107, L - 8, 7) & T_CIRC(107, L - 8 + 1.4, 7) & T_CIRC(107, L - 8 - 1.4, 7)
+    STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-R01C = T_CIRC(157, L - 8, 7) & T_CIRC(157, L - 8 + 1.4, 7) & T_CIRC(157, L - 8 - 1.4, 7)
+    STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-If H <> 1908 Then
+    STR_OUT(11) = TL_CUT_O
-R01D = T_CIRC(178, L - 8, 7) & T_CIRC(178, L - 8 + 1.4, 7) & T_CIRC(178, L - 8 - 1.4, 7)
+    STR_OUT(12) = "TOOLANGLE(0)"
-R01E = T_CIRC(128, L - 8, 7) & T_CIRC(128, L - 8 + 1.4, 7) & T_CIRC(128, L - 8 - 1.4, 7)
+    STR_OUT(13) = "MIDCUT(N)"
-Else
+    STR_OUT(14) = UnloadOutline(110, 6, 0, -6, H, L)
-R01D = ""
+    STR_OUT(15) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-R01E = ""
+    STR_OUT(16) = "'FINE BLOCCO"
     Call FVTPT(3, NND, "C")
-R01 = R01A & R01B & R01C & R01D & R01E
+
 End Sub
-R02 = ""
+
-For U = 0 To 21
+
-R02 = R02 & T_CIRC(207 + 50 * U, L - 8, 7)
+Sub S_1006951C(ByVal NND As Integer)
-Next U
+ACT_MOD = "1006951"
 
-R03 = T_CIRC(28, 23.2, 3.3) & T_CIRC(28 + 425, 23.2, 3.3) & T_CIRC(28 + 2 * 425, 23.2, 3.3) & T_CIRC(28 + 3 * 425, 23.2, 3.3)
+
-R04 = T_CIRC(H - 30, 23.2, 3.3) & T_CIRC(H - 30 - M1, 23.2, 3.3)
+
 L = INPUT_NUM(NND, "L", 0, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-R05 = T_RECT1(1322, 1322 + 443, L - H_SPC_VT, L + 6)
+
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-'R06 = T_SMUS(H - (15 - 5), L + 0.5) & T_SMUS(H - (-0.5), L - 15 + 5) & T_SMUS(H - (7.5 - 2.75), L - 7.5 + 2.75)
+
-R06 = T_SMUS(H - (-0.5), L - 15 + 5)
+
-R07 = T_RECT1(H - 70, H + 6, L - 10, L + 5)
+
-R08 = T_SMUS(H - (15 - 5) - 70, L + 0.5 + 5) & T_SMUS(H - (-0.5) - 70, L - 15 + 5 + 5) & T_SMUS(H - (7.5 - 2.75) - 70, L - 7.5 + 2.75 + 5)
+'************************************* SCRITTURA LISTATO
-R08 = T_SMUS(H - (-0.5) - 70, L - 15 + 5 + 5) & T_SMUS(H - (7.5 - 2.75) - 70, L - 7.5 + 2.75 + 5)
+
-'-70 + 5
+R02 = T_CIRC(M2 + 3 * M3 - 35, H - 53, 8.5)
-fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08
+
 SCST = 0.2
 R03A = T_SMUS(-SCST, -SCST)
-P1 = 250
+R03B = T_SMUS(L + SCST, H + SCST)
-P2 = H - 400
+R03C = T_SMUS(L + SCST, -SCST)
 R03D = T_SMUS(-SCST, H + SCST)
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+R03 = R03A & R03B & R03C & R03D
 
 fn = R02 & R03
 P1 = 200
 P2 = L - 250
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
-Call CUT_END_S(H, L, "B", POSINTAB)
+
-Call FVTPT(3, NND, "B")
+
 
 If L > H Then
 H1 = H
 L1 = L
 L = H1
 H = L1
 End If
-Sub S_1020085B(ByVal NND As Integer)
+
-ACT_MOD = "1020085"
+    POSINTAB = def_posintab(NND)
-CLAMP = 0
+
     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
-L = INPUT_NUM(NND, "L", L, ACT_MOD)
+    STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(4) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+
     STR_OUT(12) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
-SCS = 6
+    STR_OUT(11) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
 
     STR_OUT(13) = TL_CUT_O
-R01 = T_RECT1(30, H - 30, -3.6, 29) & T_RECT1(30, H - 30, L - 29, L + 3.6)
+    STR_OUT(14) = "TOOLANGLE(0)"
-R02 = T_CIRC(14, 11, 5.5) & T_CIRC(H - 14, 11, 5.5) & T_CIRC(14, L - 11, 5.5) & T_CIRC(H - 14, L - 11, 5.5)
+    STR_OUT(15) = "MIDCUT(N)"
     STR_OUT(16) = UnloadOutline(110, 6, 0, -6, H, L)
     STR_OUT(17) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
-R03 = T_SMUS(-0.5, -0.5)
+    STR_OUT(18) = "'FINE BLOCCO"
-R03 = R03 & T_SMUS(30 + 0.5, -0.5)
+    Call FVTPT(3, NND, "")
-R03 = R03 & T_SMUS(H + 0.5, -0.5)
+
-R03 = R03 & T_SMUS(H - 30.5, -0.5)
+
-R03 = R03 & T_SMUS(-0.5, L + 0.5)
+
-R03 = R03 & T_SMUS(30 + 0.5, L + 0.5)
+
-R03 = R03 & T_SMUS(H + 0.5, L + 0.5)
+    STR_OUT(2) = TL_CUT_V
-R03 = R03 & T_SMUS(H - 30.5, L + 0.5)
+    STR_OUT(3) = "TOOLANGLE(90)"
     STR_OUT(4) = "MIDCUT(N)"
     STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(L) & "," & "0" & "," & "0" & ",-6,-6,0,M0))"
     STR_OUT(6) = "TOOL(SPECIALE, C521, A180, " & Chr(34) & "GANCIO" & Chr(34) & ")"
-P1 = 250
+    STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-P2 = H - 400
+    STR_OUT(8) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
     STR_OUT(9) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 2 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+    STR_OUT(10) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 + 6) & "))"
 
     STR_OUT(12) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
     STR_OUT(11) = "PUN(P" & CNLV_GEO & "(" & Jcdf(M2 + 3 * M3 - 10) & "," & Jcdf(L - 55 - M5 + 6) & "))"
 
     STR_OUT(13) = TL_CUT_O
     STR_OUT(14) = "TOOLANGLE(0)"
-Call CUT_END_S(H, L, "B", POSINTAB)
+    STR_OUT(15) = "MIDCUT(N)"
-Call FVTPT(3, NND, "B")
+    STR_OUT(16) = UnloadOutline(110, 6, 0, -6, H, L)
     STR_OUT(17) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & ",-6," & Jcdf(0) & ",-6,-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
     STR_OUT(18) = "'FINE BLOCCO"
     Call FVTPT(3, NND, "C")
 
 End Sub