0 BEGIN PGM 8180_NL MM 
1 ;NC-programma om de huidige datum en tijd
2 ;in een apart venster op het beeldscherm
3 ;weer te geven.
4 ;Omdat dit bij oudere besturingen nog niet
5 ;mogelijk is, moet dit met een vaste
6 ;syntaxis worden gerealiseerd; eerst leest
7 ;de besturing in dit programma de actuele
8 ;systeemtijd sinds 1.1.1970 0 uur in
9 ;seconden uit en slaat deze op in parameter
10 ;Q0. Vervolgens roept de besturing een
11 ;programma op waarin ze uit deze waarde de
12 ;huidige datum en tijd berekent. De
13 ;afzonderlijke waarden worden daar in de
14 ;parameters Q1-Q6 opgeslagen.
15 ;Deze waarden gebruikt de besturing
16 ;vervolgens in dit programma om met behulp
17 ;van een FN16-functie de waarden in een
18 ;masker op het beeldscherm weer te geven.
19 ;Met de FN16-functie en het maskerbestand
20 ;zou het ook mogelijk zijn de waarden in een
21 ;tekstprotocol te schrijven.
22 ;
23 ;Functie om de huidige systeemtijd uit te lezen
24 FN 18: SYSREAD Q0 = ID320 NR1 IDX1
25 ;
26 ;Programma voor de berekening van datum en
27 ;tijd oproepen
28 CALL PGM 81801_nl.h
29 ;
30 ;Functie om de bepaalde waarden in het formaat
31 ;van het maskerbestand Datum.a op het
32 ;beeldscherm weer te geven
33 FN 16: F-PRINT Datum.a / screen:
34 ;
35 ;Einde programma
36 END PGM 8180_NL MM