imports System
imports System.IO

public class Starter
	shared public sub Main()
		dim sw as StreamWriter=new StreamWriter("date.txt", true)
		dim dt as DateTime=DateTime.Now
		dim datestring as string=dt.ToShortDateString()+" " _ 
			+dt.ToShortTimeString()
		sw.WriteLine(datestring)
		sw.Close()

		dim sr as StreamReader=new StreamReader("date.txt")
		dim filetext as string=sr.ReadToEnd()
		sr.Close()
		Console.WriteLine(filetext)
	end sub
end class