RosettaCodeData/Task/Date-format/M2000-Interpreter/date-format.m2000

10 lines
293 B
Text
Raw Permalink Normal View History

2026-04-30 12:34:36 -04:00
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"