Customizing Inference App?

[Han]

Here's a slightly smaller piece of code:

Edit: fixed minor typos

Code:


NumSetup()
BEGIN
LOCAL rtn, src, x, y;
LOCAL insert:={"Dn", "Cn", "and row range"};
LOCAL app:={"Statistics_1Var", "Statistics_2Var", "Spreadsheet"};

rtn := CHOOSE(src, "Which app to import data from?", app);
if (rtn == 0) THEN RETURN end;

// we expect strings, so let the program know this.
x := "";
y := "";


 if INPUT({x,y}, "Configure Xlist and Ylist",
  {"Xlist", "Ylist"},  
  {
    "Specify the source column " +insert(src)+" for Xlist", 
    "Specify the source column " +insert(src)+" for Ylist"
  }
) then

  EXPR("Xlist :=" + app(src) + "." + x);
  EXPR("Ylist :=" + app(src) + "." + y);
end;

END;