7 lines
151 B
Text
7 lines
151 B
Text
Function StrRev3( $s )
|
|
FOR DIM x = 1 TO LEN(s) \ 2
|
|
PEEK(@s + LEN - x, $1)
|
|
POKE(@s + LEN - x, s{x})(@s + x - 1, PEEK)
|
|
NEXT
|
|
RETURN s
|
|
end function
|