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"