17 lines
277 B
Text
17 lines
277 B
Text
|
source = freefile
|
||
|
|
open (source, "m:\text.txt")
|
||
|
|
textEnt$ = ""
|
||
|
|
dim textSal$(size(source)*8)
|
||
|
|
linea = 0
|
||
|
|
|
||
|
|
while not eof(source)
|
||
|
|
textEnt$ = readline(source)
|
||
|
|
linea += 1
|
||
|
|
textSal$[linea] = textEnt$
|
||
|
|
end while
|
||
|
|
|
||
|
|
for n = size(source) to 1 step -1
|
||
|
|
print textSal$[n];
|
||
|
|
next n
|
||
|
|
close source
|