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