11 lines
171 B
Text
11 lines
171 B
Text
s$ = "asdf"
|
|
print "'", s$, "' reversed is '", reverse$(s$), "'"
|
|
end
|
|
|
|
sub reverse$(a$)
|
|
b$ = ""
|
|
for i = 1 to len(a$)
|
|
b$ = mid$(a$, i, 1) + b$
|
|
next i
|
|
return b$
|
|
end sub
|