10 lines
152 B
Text
10 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
|