Expression evaluator

[Agamemnus]

Something like this, but I can't get it to return back to the same line. I don't know if it's possible.

Code:

DECLARE FUNCTION evaluate# (inputstring$)

CLS
PRINT evaluate("5 + 5")
FUNCTION evaluate# (inputstring$)
OPEN "tempcalc.bas" FOR OUTPUT AS #1
PRINT #1, "a# =" + inputstring$
PRINT #1, "OPEN " + CHR$(34) + "tempcal2.bas" + CHR$(34) + " FOR OUTPUT as #2"
PRINT #1, "PRINT #2, a#"
PRINT #1, "CLOSE"
PRINT #1, "SYSTEM"
CLOSE
CHAIN "tempcalc.bas"
OPEN "tempcal2.bas" FOR INPUT AS #1
INPUT #1, evaluate#
CLOSE
KILL "tempcal2.bas"
KILL "tempcalc.bas"
END FUNCTION