RosettaCodeData/Task/Runtime-evaluation-In-an-environment/FreeBASIC/runtime-evaluation-in-an-environment.basic

#include "solver.bi"

Dim As String expression = "(x ^ 2 )-7"

setVar("x",1.2)
Print "one = ";Solver(expression)
setVar("x",3.4)
Print "two = ";Solver(expression)

Sleep