6 lines
131 B
Text
6 lines
131 B
Text
FUNCTION Reverse(sIn)
|
|
LOCAL sOut := "", i
|
|
FOR i := Len(sIn) TO 1 STEP -1
|
|
sOut += Substr(sIn, i, 1)
|
|
NEXT
|
|
RETURN sOut
|