Quadratic Explorer App

[compsystems]

Hello,
I want to swich from the "terminal view" to the application "Quadratic Explorer App",
but only at the end of the program is changed to the application, does not follow the logic of the algorithm

PHP Code:

#cas 
    dinamicLkn_quadExplorer():=
    begin
        local coeff, pol, roots, discriminant;
        print; // clear terminal view
        // freeze;

        print("Current view: TERMINAL VIEW");
        coeff := [0.5, -3, 2.5];
        pol := SLIST(coeff.*seq('x'^k,k,2,0));
        //roots := SOLVE(0.5, -3, 2.5); 
        //roots := SOLVE(pol[1], pol[2], pol[3]);
        roots := Quadratic_Explorer::SOLVE(0.5, -3, 2.5);

        print( "COEF: " + coeff ); 
        print( "POL: " + pol ); 
        print( "ROOTS: x1 = " + roots[1] + ", x2 = " + roots[2] );
        discriminant := DELTA(0.5, -3, 2.5);
        print( "DISCRIMINAT: D = " + discriminant ); wait();

        startapp("Quadratic_Explorer");  wait(); //  current: Quadratic_Explorer


         startview(1);


        print("Again on the terminal view"); wait();   // return to terminal view  & Wait for a key  ...

        return "done"; //Returns an output value (string) 
    end;
#end 


request: the Quadratic_Explorer() CMD Should initialize the polynomial expression of the quadratic function.

Quadratic_Explorer(a,b,c); // A*X^2+B*X+C
Quadratic_Explorer(0.5, -3, 2.5);