origStr = "bassAckwards"
newStr = ""
len = Len(origStr)
FOR i = len TO 1 STEP -1
newStr = newStr + Mid(origStr, i, 1)
END FOR
? newStr
function stringReverse(input as String) as String
newStr = ""
len = len(input)
for i = len to 1 step -1
newStr = newStr + mid(input, i, 1)
end for
return newStr
end function
function main()
str = "This is my string!"
reversed = stringReverse(str)
?reversed ' Prints "!gnirts ym si sihT"
end function