16 lines
277 B
Text
16 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
|