filedialog "Open a Text File","*.txt",file$
if file$<>"" then
    open file$ for input as #1
    entire$ = input$(#1, lof(#1))
    close #1
    print entire$
end if