0 BEGIN PGM 8180_ES MM 
1 ;Programa NC para visualizar la fecha y
2 ;hora actuales en una ventana superpuesta
3 ;en la pantalla.
4 ;Puesto que con los controles numéricos
5 ;antiguos todavía no es posible realizar
6 ;esto con una sintaxis fija, el control
7 ;numérico lee en este programa primeramente
8 ;la hora del sistema actual desde el
9 ;1.1.1970 0 horas en segundos y guarda esto
10 ;en el parámetro Q0. Luego llama un
11 ;programa en el que, a partir de dicho
12 ;valor, calcula la fecha y hora actuales.
13 ;Allí, guarda los diferentes valores en
14 ;los parámetros Q1-Q6.
15 ;Estos valores los utiliza entonces en este
16 ;programa para visualizar, mediante una
17 ;función FN-16, los valores en una máscara
18 ;en la pantalla.
19 ;Con la función FN16 y el fichero de máscara
20 ;también sería posible escribir los valores
21 ;en un protocolo de texto.
22 ;
23 ;Función para leer la hora del sistema actual
24 FN 18: SYSREAD Q0 = ID320 NR1 IDX1
25 ;
26 ;Llamar programa para calcular la fecha y hora
27 CALL PGM 81801_es.h
28 ;
29 ;Función para visualizar los valores determinados
30 ;en el formato del fichero de máscara fecha en
31 ;la pantalla.
32 FN 16: F-PRINT Fecha.a / screen:
33 ;
34 ;Final del programa
35 END PGM 8180_ES MM