export input0()
begin
local a, b, c;
local resetVAL_a, resetVAL_b, resetVAL_c;
local initVAL_a, initVAL_b, initVAL_c;
//initVAL_a:=1; initVAL_b:=2; initVAL_c:=3; // real
//initVAL_a:=#FFFh; initVAL_b:=#FFh; initVAL_c:=#Fh; // integer
//initVAL_a:="abc"; initVAL_b:="123"; initVAL_c:="X"; // string
//initVAL_a:=i; initVAL_b:=(3,4); initVAL_c:=3+4*i; // complex
initVAL_a:=[1]; initVAL_b:=[2]; initVAL_c:=[3]; // matrix
//initVAL_a:={1}; initVAL_b:={2}; initVAL_c:={3}; // list
//initVAL_a:=cas( "f(x):=x+20" ); initVAL_b:=cas( "f(x):=x+30" ); initVAL_c:='A+B'; // function
//initVAL_a:=1_m; initVAL_b:=2_cm; initVAL_c:=3_inch; // real
resetVAL_a:=0; resetVAL_b:=0; resetVAL_c:=0;
local ObjectType_AllAllowed := -1;
local ObjectType_Real := 0;
local ObjectType_Integer := 1;
local ObjectType_String := 2;
local ObjectType_Complex := 3;
local ObjectType_Matrix := 4;
local ObjectType_List := 6;
local ObjectType_Function := 8;
local ObjectType_Unit := 9;
local ObjectType_CAS := 14;
local ObjectType := ObjectType_List;
local title;
case
if ObjectType == 0 then title:="Real" end;
if ObjectType == 1 then title:="Integer" end;
if ObjectType == 2 then title:="String" end;
if ObjectType == 3 then title:="Complex" end;
if ObjectType == 4 then title:="Matrix" end;
if ObjectType == 6 then title:="List" end;
if ObjectType == 8 then title:="Function" end;
if ObjectType == 9 then title:="Unit" end;
if ObjectType == 14 then title:="CAS" end;
default
title:="?"
end;
local ObjectType_Real := 0;
local ObjectType_Integer := 1;
local ObjectType_String := 2;
local ObjectType_Complex := 3;
local ObjectType_Matrix := 4;
local ObjectType_List := 6;
local ObjectType_Function := 8;
local ObjectType_Unit := 9;
local ObjectType_CAS := 14;
local ok := 1;
local cancel := 0;
local keyPressedOnMenu := 0;
keyPressedOnMenu := input
(
{
{a, [ObjectType] },
{b, [ObjectType] },
{c, [ObjectType] }
},
title,
{ "label_a", "label_b","label_c" },
{ "help_a", "help_b", "help_c" },
{ resetVAL_a, resetVAL_b, resetVAL_c },
{ initVAL_a, initVAL_b, initVAL_c }
);
if keyPressedOnMenu == ok then
return ({a, b, c});
//return ([expr(a), expr(b), expr(c)]); // for -1
else
return "Done";
end;
end;