0 BEGIN PGM 8180_FR MM 
1 ;Programme CN permettant d'afficher la date
2 ;et l'heure actuelles dans une fenêtre
3 ;auxiliaire de l'écran.
4 ;Puisqu'il n'est pas encore possible de
5 ;réaliser cela avec une syntaxe fixe sur
6 ;les anciennes CN, la CN lit d'abord dans
7 ;ce programme l'heure actuelle du système
8 ;depuis le 01/01/1970 à 0 heure en secondes,
9 ;et la stocke dans le paramètre Q0. Elle
10 ;appelle alors un programme dans lequel
11 ;elle calcule la date et l'heure actuelles
12 ;à partir de cette valeur. Chacune des
13 ;valeurs y est enregistrée dans les
14 ;paramètres Q1-Q6.
15 ;Elle utilise ensuite les valeurs de ce
16 ;programme pour afficher les valeurs à
17 ;l'écran à l'aide d'une fonction FN16.
18 ;Avec la fonction FN16 et le fichier masque,
19 ;il serait également possible d'écrire les
20 ;valeurs dans un journal texte.
21 ;
22 ;Fonction permettant de lire l'heure actuelle
23 ;du système
24 FN 18: SYSREAD Q0 = ID320 NR1 IDX1
25 ;
26 ;Appel du programme pour le calcul de la date
27 ;et de l'heure
28 CALL PGM 81801_fr.h
29 ;
30 ;Fonction permettant d'afficher à l'écran les
31 ;valeurs déterminées dans le format du fichier
32 ;masque Date.a
33 FN 16: F-PRINT Date.a / screen:
34 ;
35 ;Fin du programme
36 END PGM 8180_FR MM