0 BEGIN PGM 8180_IT MM 
1 ;Programma NC per visualizzare la data e
2 ;l'ora correnti in una finestra in primo
3 ;piano sullo schermo.
4 ;Siccome per controlli numerici meno recenti
5 ;non č ancora possibile realizzare ciņ con
6 ;una sintassi fissa, il controllo numerico
7 ;legge in questo programma dapprima l'ora di
8 ;sistema corrente a partire da 1.1.1970
9 ;ore 00 in secondi e la salva nel parametro
10 ;Q0. Richiama quindi un programma in cui
11 ;calcola da tale valore la data e l'ora
12 ;correnti. Salva poi i singoli valori nei
13 ;parametri Q1-Q6.
14 ;Utilizza questi valori in questo programma
15 ;per visualizzare mediante una funzione
16 ;FN16 i valori in una maschera sullo schermo.
17 ;Con la funzione FN16 e il file maschera
18 ;sarebbe anche possibile scrivere i valori
19 ;in un protocollo di testo.
20 ;
21 ;Funzione per leggere l'ora di sistema corrente
22 FN 18: SYSREAD Q0 = ID320 NR1 IDX1
23 ;
24 ;Programma per richiamare il calcolo di data
25 ;e ora
26 CALL PGM 81801_it.h
27 ;
28 ;Funzione per visualizzare sullo schermo i
29 ;valori determinati nel formato del file
30 ;maschera Data.a
31 FN 16: F-PRINT Data.a / screen:
32 ;
33 ;Fine programma
34 END PGM 8180_IT MM