0 BEGIN PGM 10601_IT MM 
1 ;Programma con calcoli e sequenza per foratura
2 ;attraverso un tubo
3 ;
4 ;Impostazione del numero di giri di inizio foratura
5 TOOL CALL  SQ8
6 ;
7 ;Calcoli
8 FN 1: Q40 =+Q2 + +Q1 ;Altezza preposizionamento
9 FN 2: Q41 =+Q2 - +Q5 ;Tubo in basso
10 FN 2: Q20 =+Q2 - +Q4 ;Tubo interno in alto
11 FN 2: Q30 =+Q20 - +Q10 ;Profondità del foro parete superiore
12 FN 1: Q21 =+Q41 + +Q4 ;Profondità del foro parete superiore
13 FN 1: Q43 =+Q21 + +Q1 ;Posizione di partenza parete inferiore
14 FN 1: Q24 =+Q41 + +Q3 ;Inizio decelerazione
15 FN 2: Q42 =+Q41 - +Q10 ;Profondità del foro parete inferiore
16 FN 4: Q36 =+Q6 DIV +10 ;Incremento di velocità
17 FN 4: Q33 =+Q3 DIV +10 ;Incremento percorso
18 FN 4: Q27 =+Q7 DIV +4 ;Avanzamento di avvicinamento
19 L  Z+Q40 R0 FMAX M3 ;Preposizionamento Z
20 L  Z+Q2 FQ27 ;Traslazione Z con avanzamento al 25% su superficie
21 FN 0: Q23 =+Q2
22 FN 0: Q26 =+0
23 ;
24 ;Incremento dell'avanzamento ed esecuzione del tratto
25 ;di accelerazione
26 LBL 2
27 FN 1: Q23 =+Q23 + -Q33 ;Z corrente
28 FN 1: Q26 =+Q26 + +Q36 ;F corrente
29 L  Z+Q23 FQ26
30 CALL LBL 2 REP9
31 ;
32 ;Impostazione del numero di giri di foratura
33 TOOL CALL  SQ9
34 ;
35 FN 0: Q23 =+Q24
36 L  Z+Q30 FQ6 ;Foratura attraverso la parete superiore
37 L  Z+Q43 FQ7 ;Raggiungimento inizio parete inferiore con avanzamento in aria
38 L  Z+Q24 FQ6 ;Foratura fino a inizio del tratto di decelerazione
39 ;
40 ;Riduzione dell'avanzamento ed esecuzione del percorso di decelerazione
41 LBL 3
42 FN 1: Q23 =+Q23 + -Q33
43 FN 1: Q26 =+Q26 + -Q36
44 L  Z+Q23 FQ26
45 CALL LBL 3 REP8
46 L  Z+Q42 ;Foratura fino a fine parete inferiore
47 L  Z+Q40 FQ7 ;Traslazione ad altezza di preposizionamento
48 ;
49 ;Fine programma
50 END PGM 10601_IT MM