7 lines
165 B
Text
7 lines
165 B
Text
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
|