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