12 lines
438 B
Text
12 lines
438 B
Text
|
procedure main()
|
||
|
|
|
||
|
|
write("&time - milliseconds of CPU time = ",&time)
|
||
|
|
write("&clock - Time of day as hh:mm:ss (24-hour format) = ",&clock)
|
||
|
|
write("&date - current date in yyyy/mm/dd format = ",&date)
|
||
|
|
write("&dateline - timestamp with day of the week, date, and current time to the minute = ",&dateline)
|
||
|
|
|
||
|
|
if find("Unicon",&version) then
|
||
|
|
write("&now - time in seconds since the epoch = ", &now) # Unicon only
|
||
|
|
|
||
|
|
end
|