12 lines
171 B
Text
12 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
|