Reverse words in a string: Difference between revisions
Reverse words in a string in BASIC256
No edit summary |
(Reverse words in a string in BASIC256) |
||
Line 606:
</pre>
=={{header|BASIC256}}==
{{trans|FreeBASIC}}
<lang BASIC256>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</lang>
=={{header|BBC BASIC}}==
| |||