0 BEGIN PGM 8215_FR MM 
1 ;Programme CN permettant de déterminer la
2 ;durée d'exécution du programme et de
3 ;l'afficher, à la fin du programme, dans
4 ;une fenêtre auxiliaire de l'écran.
5 ;Pour ce faire, la CN lit l'heure
6 ;actuelle du système au début et à la fin
7 ;du programme, calcule la durée d'exécution
8 ;du programme à partir de cette dernière et
9 ;affiche cette durée sous la forme d'un
10 ;fichier masque défini à l'aide de la
11 ;fonction FN16.
12 ;
13 BLK FORM 0.1 Z X+0 Y+0 Z-20
14 BLK FORM 0.2  X+100  Y+100  Z+0
15 ;
16 ;Lire l'heure du système en s depuis
17 ;le 01/01/1970 à 0 heure et écrire
18 ;dans Q=10
19 FN 18: SYSREAD Q10 = ID320 NR1 IDX0
20 ;
21 ;Usinage
22 TOOL CALL 1 Z S20000 F1000
23 L  X+0  Y+0 R0 FMAX M3
24 L  Z-5 R0 FMAX
25 L  X+0  Y+0 F50
26 L  X+80  Y+20
27 L  Y+80
28 L  X+20
29 L  X+0  Y+0 R0
30 L  Z+100 R0 FMAX
31 ;Fin de l'usinage
32 ;
33 ;Lire l'heure du système
34 ;en s depuis le 01/01/1970 à 0 heure
35 ;et l'écrire dans Q=11
36 ;
37 ;Calcul de la durée d'exécution du programme
38 FN 18: SYSREAD Q11 = ID320 NR1 IDX0 ;Lecture de l'heure actuelle du système, en secondes
39 FN 2: Q12 =+Q11 - +Q10 ;Soustraction, en secondes, de l'heure du système du départ à l'heure du système de la fin
Q13 = Q12 / 3600 ;Calcul des heures
Q30 = INT Q13 ;Troncature des décimales des heures
Q14 = Q30 * 3600 ;Conversion des heures en secondes
Q15 = Q12 - Q14 ;Calcul des secondes restantes
Q16 = Q15 / 60 ;Calcul des minutes
Q31 = INT Q16 ;Troncature des décimales des minutes
Q17 = Q31 * 60 ;Conversion des minutes en secondes
Q32 = Q15 - Q17 ;Calcul des secondes restantes
40 ;
41 ;Affichage à l'écran avec définition
42 ;du fichier masque à utiliser
43 FN 16: F-PRINT 82151_fr.a / Screen:
44 ;
45 ;Fin du programme
46 M30
47 END PGM 8215_FR MM