11 lines
253 B
QBasic
11 lines
253 B
QBasic
' tb-screen: 80x25
|
|
' tb-tz: +00:00
|
|
' Additive TerminalBasic-Erweiterung: bekannte UTC ist kein Rueckfall.
|
|
PRINT TIMEZONEKNOWN
|
|
DATE$ = "03-15-1992"
|
|
TIME$ = "13:45:30"
|
|
PRINT TIMEZONEKNOWN
|
|
PRINT DATE$; " "; TIME$
|
|
PRINT YEAR(NOW); HOUR(NOW); INT(TIMER)
|
|
END
|