20 lines
343 B
Plaintext
20 lines
343 B
Plaintext
PROGRAM "progname"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
DECLARE FUNCTION reverse$ (a$)
|
|
|
|
FUNCTION Entry ()
|
|
s$ = "asdf"
|
|
PRINT "'"; s$; "' reversed is '"; reverse$(s$); "'"
|
|
END FUNCTION
|
|
|
|
FUNCTION reverse$ (a$)
|
|
b$ = ""
|
|
FOR i = 1 TO LEN(a$)
|
|
b$ = MID$(a$, i, 1) + b$
|
|
NEXT i
|
|
RETURN b$
|
|
END FUNCTION
|
|
END PROGRAM
|