11 lines
218 B
Text
11 lines
218 B
Text
FUNCTION reverse$(a$)
|
|
LET b$ = ""
|
|
FOR i = 1 TO LEN(a$)
|
|
LET b$ = (a$)[i:i+1-1] & b$
|
|
NEXT i
|
|
LET reverse$ = b$
|
|
END FUNCTION
|
|
|
|
LET s$ = "asdf"
|
|
PRINT "'"; s$; "' reversed is '"; reverse$(s$); "'"
|
|
END
|