CONVERT and variables for arguments

[Han]

Code:


EXPORT C2,C1;
EXPORT TEST()
BEGIN
    LOCAL y,lst,a1,a2,t;
    CHOOSE(C2, "Convert from", "mm","cm","m","km","inches","feet","yards","miles");
    CHOOSE(C1, "Convert to",   "mm","cm","m","km","inches","feet","yards","miles");
//    lst := {"mm","cm","m","km","inch","ft","yd","mile"};
    lst := { 1_mm, 1_cm, 1_m, 1_km, 1_inch, 1_ft, 1_yd, 1_mile };
    a1 := lst[C1];
    a2 := lst[C2];
    INPUT(
      { 
        { y, [2] } 
      }
    );
   t:="simplify(" + y + "*" + CONVERT(a2,a1) + ")";
   CAS(t);
END;

Is this what you meant?