Source code in the yabasic programming language

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