RosettaCodeData/Task/Date-format/M2000-Interpreter/date-format.m2000
2026-04-30 12:34:36 -04:00

9 lines
293 B
Text

open "output.txt" for wide output as #
Print #f, date$(today,1033)
Print #f, date$(today, 1033,"Long Date")
Print #f, date$(today,1048)
Print #f, date$(today, 1048,"Long Date")
close #f
Print #-2, eval$(buffer(dir$+"output.txt"))
win dir$+"output.txt" ' or Win "notepad", dir$+"output.txt"