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