0 BEGIN PGM 8215_NL MM 
1 ;NC-programma om de programmalooptijd te
2 ;bepalen en aan het einde van het programma
3 ;in een apart venster op het beeldscherm
4 ;weer te geven.
5 ;Daarvoor leest de besturing aan het begin
6 ;van het programma en aan het einde van het
7 ;programma de actuele systeemtijd uit,
8 ;berekent daaruit de programmalooptijd en
9 ;geeft deze met de functie FN16 in de vorm
10 ;van een gedefinieerd maskerbestand weer.
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 ;Uitlezen van de systeemtijd in sec. sinds
16 ;1.1.1970 0 uur en schrijven in Q=10
17 FN 18: SYSREAD Q10 = ID320 NR1 IDX0
18 ;
19 ;Bewerking
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 ;Einde bewerking
30 ;
31 ;Uitlezen van de systeemtijd
32 ;in seconden sinds 1.1.1970 0 uur
33 ;en schrijven in Q=11
34 ;
35 ;Berekenen van de programmalooptijd
36 FN 18: SYSREAD Q11 = ID320 NR1 IDX0 ;Actuele systeemtijd in seconden uitlezen
37 FN 2: Q12 =+Q11 - +Q10 ;Start systeemtijd van einde systeemtijd aftrekken in seconden
Q13 = Q12 / 3600 ;Berekening van de uren
Q30 = INT Q13 ;Cijfers na de komma van de uren afbreken
Q14 = Q30 * 3600 ;Uren in seconden omrekenen
Q15 = Q12 - Q14 ;Berekening van de resterende seconden
Q16 = Q15 / 60 ;Berekening van de minuten
Q31 = INT Q16 ;Cijfers na de komma van de minuten afbreken
Q17 = Q31 * 60 ;Minuten in seconden omrekenen
Q32 = Q15 - Q17 ;Berekening van de resterende seconden
38 ;
39 ;Uitvoer op het beeldscherm met definitie van
40 ;het te gebruiken maskerbestand
41 FN 16: F-PRINT 82151_nl.a / Screen:
42 ;
43 ;Einde programma
44 M30
45 END PGM 8215_NL MM