35 lines
431 B
Text
35 lines
431 B
Text
phrase$ = "Rosetta Code Phrase Reversal"
|
|
|
|
dim word$(1)
|
|
|
|
n = token(phrase$, word$())
|
|
|
|
print phrase$
|
|
|
|
for i = n to 1 step -1
|
|
print reverse$(word$(i)), " ";
|
|
next
|
|
|
|
print
|
|
|
|
for i = n to 1 step -1
|
|
print word$(i), " ";
|
|
next
|
|
|
|
print
|
|
|
|
for i = 1 to n
|
|
print reverse$(word$(i)), " ";
|
|
next
|
|
|
|
print
|
|
|
|
sub reverse$(w$)
|
|
local i, rw$
|
|
|
|
for i = len(w$) to 1 step -1
|
|
rw$ = rw$ + mid$(w$, i, 1)
|
|
next
|
|
|
|
return rw$
|
|
end sub
|