[help] input cmd

[compsystems]

Hello, the following code inquire two independent values each individually with INPUT CMD, the problem is that every time a value [ok] is entered the dialog box closes. the idea is to use the terminal view to show to request and input cmd to enter it

What I can do, to hold the dialog box?


Thank you

PHP Code:

export testInput()
begin
 local x1 := 0, x2;
 print;
 print("Enter x1"); wait;
 if NOT( input( x1 )) then kill; end;
 print(x1); 

 print("Enter x2"); wait;
 if NOT( input( x2 )) then kill; end;
 print(x2);
 return "done";
end; 


in RPL the dialog box is retained.

PHP Code:

«
0 'initialValue' STO
0 'resetValue' STO
"Input"
{{ "x1:" "Enter Value for X1"  }}
1
resetValue 1 ->LIST
initialValue 1 ->LIST
INFORM
IF NOT THEN KILL END

"Input"
{{ "x2:" "Enter Value for X2"  }}
1
resetValue 1 LIST
initialValue 1 LIST
INFORM
IF NOT THEN KILL END
»