' tb-screen: 80x25
' tb-tz: -05:00
' Ortszeit (Spec konsolen-basisbibliothek): die Zeitfunktionen rechnen in
' der Zone des Rechners. Der Korpus legt sie per tb-tz fest, damit die
' Sollausgabe unabhaengig vom Standort des Testrechners bleibt.
' Alle Werte werden gegen eine gesetzte Uhrzeit geprueft, nicht gegen die
' echte -- sonst waere die Ausgabe nicht reproduzierbar.
DATE$ = "03-15-1992"
TIME$ = "13:45:30"
PRINT DATE$; " "; TIME$
n# = NOW
PRINT YEAR(n#); MONTH(n#); DAY(n#); WEEKDAY(n#)
PRINT HOUR(n#); MINUTE(n#); SECOND(n#)
' TIMER zaehlt ab lokaler Mitternacht: 13*3600 + 45*60 + 30 = 49530.
PRINT INT(TIMER)
' Stunde aus TIME$ und aus NOW muessen uebereinstimmen.
PRINT VAL(LEFT$(TIME$, 2)) = HOUR(n#)
END