proc reverse . s$ .
a$[] = strchars s$
for i = 1 to len a$[] div 2
swap a$[i] a$[len a$[] - i + 1]
.
s$ = strjoin a$[]
s$ = "hello"
call reverse s$
print s$