9 lines
152 B
Text
9 lines
152 B
Text
filedialog "Open","*.txt",file$
|
|
if file$="" then end
|
|
open file$ for input as #f
|
|
while not(eof(#f))
|
|
line input #f, t$
|
|
print t$
|
|
wend
|
|
close #f
|
|
end
|