0  BEGIN PGM 8180_DE MM 
1  ;NC-Programm um das aktuelle Datum und die
2  ;Uhrzeit in einem Ueberblendfenster
3  ;auf dem Bildschirm anzuzeigen.
4  ;Da es bei aelteren Steuerungen noch nicht
5  ;moeglich ist dies mit einer festen Syntax
6  ;zu realisieren, liest die Steuerung in
7  ;diesem Programm zunaechst die aktuelle
8  ;Systemzeit seit dem 1.1.1970 0 Uhr in
9  ;Sekunden aus und speichert dies im Parameter
10 ;Q0. Dann ruft sie ein Programm in dem sie
11 ;aus diesem Wert das aktuelle Datum und die
12 ;Uhrzeit berechnet. Die einzelnen Werte
13 ;speichert sie dort in den Parametern Q1-Q6.
14 ;Diese Werte benutzt sie dann in diesem
15 ;Programm, um mittels einer FN16-Funktion
16 ;die Werte in einer Maske auf dem Bildschirm
17 ;anzuzeigen.
18 ;Mit der FN16-Funktion und der Maskendatei
19 ;waere es auch moeglich die Werte in ein
20 ;Textprotokoll zu schreiben.
21 ;
22 ;Funktion um aktuelle Systemzeit auszulesen
23 FN 18: SYSREAD Q0 = ID320 NR1 IDX1
24 ;
25 ;Programm zur Berechnung von Datum und Uhrzeit
26 ;rufen
27 CALL PGM 81801_de.h
28 ;
29 ;Funktion um die ermittelten Werte im Format
30 ;der Maskendatei Datum.a auf dem Bildschirm
31 ;anzuzeigen
32 FN 16: F-PRINT Datum.a / screen:
33 ;
34 ;Programmende
35 END PGM 8180_DE MM