CONVERT and variables for arguments

[epp]

Added the list for the menu, called expr instead of CAS (is CAS a better alternative here?), and simplified by removing "simplify".

Code:


EXPORT CD2,CD1;
EXPORT Distance()
BEGIN
  LOCAL x,menu,unit,a1,a2,t;
  INPUT({{ x,[2],{45,20,3} }},"","Convert ");
  IF string(x,1) == "0" THEN RETURN; END;
  unit := { 1_mm, 1_cm, 1_m, 1_km, 1_inch, 1_ft, 1_yd, 1_mile };
  menu := { "mm","cm","m","km","inches","feet","yards","miles" };
  CHOOSE(CD2, "Units", menu);
  CHOOSE(CD1, "To", menu);
  a2 := unit[CD2];
  a1 := unit[CD1];
  t := x + "*" + CONVERT(a2,a1);
  expr(t);
END;