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 0
//initVAL_a:=#FFFh; initVAL_b:=#FFh; initVAL_c:=#Fh; // integer 1
//initVAL_a:="abc"; initVAL_b:="123"; initVAL_c:="\"X\""; // string 2
//initVAL_a:=i; initVAL_b:=(3,4); initVAL_c:=3+4*i; // complex 3
//initVAL_a:=[1]; initVAL_b:=[2]; initVAL_c:=[3]; // matrix 4
initVAL_a:={1}; initVAL_b:={2}; initVAL_c:={3}; // list 6
//initVAL_a:=cas( "f(x):=x+20" ); initVAL_b:=cas( "f(x):=x+30" ); initVAL_c:='A+B'; // function 8
//initVAL_a:=1_m; initVAL_b:=2_cm; initVAL_c:=3_inch; // unit 9
//resetVAL_a:=0; resetVAL_b:=0; resetVAL_c:=0; // real 0
//resetVAL_a:=0; resetVAL_b:=0; resetVAL_c:=0; // integer 1
//resetVAL_a:=""; resetVAL_b:=""; resetVAL_c:=""; // string 2
//resetVAL_a:=0; resetVAL_b:=0; resetVAL_c:=0; // complex 3
//resetVAL_a:=[0]; resetVAL_b:=[0]; resetVAL_c:=[0]; // matrix 4
resetVAL_a:={}; resetVAL_b:={}; resetVAL_c:={}; // list 6
//resetVAL_a:='X'; resetVAL_b:='X'; resetVAL_c:='X'; // function 8
//resetVAL_a:=0_u; resetVAL_b:=0_u; resetVAL_c:=0_u; // unit 9
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 == -1 then title:="Type Allow: "+"Alls" end;
if ObjectType == 0 then title:="Type Allow: "+"Real" end;
if ObjectType == 1 then title:="Type Allow: "+"Integer" end;
if ObjectType == 2 then title:="Type Allow: "+"String" end;
if ObjectType == 3 then title:="Type Allow: "+"Complex" end;
if ObjectType == 4 then title:="Type Allow: "+"Matrix" end;
if ObjectType == 6 then title:="Type Allow: "+"List" end;
if ObjectType == 8 then title:="Type Allow: "+"Function" end;
if ObjectType == 9 then title:="Type Allow: "+"Unit" end;
if ObjectType == 14 then title:="Type Allow: "+"CAS" end;
default
title:="Type Allow: "+"?"
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;