10 lines
186 B
Text
10 lines
186 B
Text
PRINT @reverse$("asdf")
|
|
'
|
|
FUNCTION reverse$(string$)
|
|
LOCAL result$,i%
|
|
result$=""
|
|
FOR i%=1 TO LEN(string$)
|
|
result$=MID$(string$,i%,1)+result$
|
|
NEXT i%
|
|
RETURN result$
|
|
ENDFUNC
|