0 BEGIN PGM 8215_IT MM 
1 ;Programma NC per determinare il tempo di
2 ;esecuzione del programma e visualizzarlo
3 ;a fine programma in una finestra in primo
4 ;piano sullo schermo.
5 ;Il controllo numerico legge a tale scopo
6 ;all'inizio e alla fine del programma
7 ;l'ora di sistema corrente, calcola su tale
8 ;base il tempo di esecuzione del programma
9 ;e lo visualizza mediante la funzione FN16
10 ;sotto forma di un file maschera definito.
11 ;
12 BLK FORM 0.1 Z X+0 Y+0 Z-20
13 BLK FORM 0.2  X+100  Y+100  Z+0
14 ;
15 ;Lettura dell'ora di sistema in sec.
16 ;da 1.1.1970 ore 00 e scrittura in Q=10
17 FN 18: SYSREAD Q10 = ID320 NR1 IDX0
18 ;
19 ;Lavorazione
20 TOOL CALL 1 Z S20000 F1000
21 L  X+0  Y+0 R0 FMAX M3
22 L  Z-5 R0 FMAX
23 L  X+0  Y+0 F50
24 L  X+80  Y+20
25 L  Y+80
26 L  X+20
27 L  X+0  Y+0 R0
28 L  Z+100 R0 FMAX
29 ;Fine lavorazione
30 ;
31 ;Lettura dell'ora di sistema
32 ;in sec. da 1.1.1970 ore 00
33 ;e scrittura in Q=11
34 ;
35 ;Calcolo del tempo di esecuzione del programma
36 FN 18: SYSREAD Q11 = ID320 NR1 IDX0 ;Lettura dell'ora di sistema corrente in secondi
37 FN 2: Q12 =+Q11 - +Q10 ;Sottrazione ora di sistema avvio da ora di sistema fine in secondi
Q13 = Q12 / 3600 ;Calcolo delle ore
Q30 = INT Q13 ;Eliminazione delle posizioni decimali delle ore
Q14 = Q30 * 3600 ;Conversione delle ore in secondi
Q15 = Q12 - Q14 ;Calcolo dei secondi residui
Q16 = Q15 / 60 ;Calcolo dei minuti
Q31 = INT Q16 ;Eliminazione delle posizioni decimali dei minuti
Q17 = Q31 * 60 ;Conversione dei minuti in secondi
Q32 = Q15 - Q17 ;Calcolo dei secondi residui
38 ;
39 ;Emissione sullo schermo con definizione del
40 ;file maschera da utilizzare
41 FN 16: F-PRINT 82151_it.a / Screen:
42 ;
43 ;Fine programma
44 M30
45 END PGM 8215_IT MM