TEXT
REDABAS liest Systemdatum und Uhrzeit von DateStamper...
ENDT
SET TALK OFF
LOAD RDBCLOCK
STOR '????????' TO DATE
STOR '?????' TO TIME
SET CALL TO 44032
CALL DATE
SET CALL TO 44034
CALL TIME
SET DATE TO &DATE
DISPLAY MEMORY
SET TALK ON
? "Today's date is:",date()
RETURN