INPUT & EVAL()

[Carlos295pz]

Code:

EXPORT INPEVAL
BEGIN

 LOCAL Vars={{'X',[0],{30,20,1}},
             {'Y',[0],{30,20,2}},
             {'Z',{10,20,30},{30,20,3}}};

 INPUT(EVAL(Vars));
 INPUT(EVAL(Vars({1,2})));
 INPUT(EVAL(Vars({2,3})));

 Vars(0):={'W',[0],{30,20,1}};

 INPUT(EVAL(Vars({2,4})));

 INPUT(EVAL(CONCAT({Vars(0)},Vars({2,3}))));

 LOCAL VHelp:={"▇▶Help for X◀▇",
               "▇▶Help for Y◀▇",
               "▇▶Help for Z◀▇"};
 LOCAL VSelect:={2,3};

 INPUT(EVAL(Vars(VSelect)),{},{},VHelp(VSelect));

END;