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