long dropdown list issue

[salvomic]

(07-23-2015 03:53 PM)DrD Wrote:  Divide and conquer is a good idea (for now). You might display a PRINT chart for INPUT choices based on a number range or an alphabetical range. The chart might have a set of lists containing nine choices, from which an INPUT could then display the selected sublist to get to the actual data point of interest, as just one idea.

Divide et impera!
Romans were masters in that "strategy", and computer science's engineers, also

Thanks, Dale, good idea.
I'm adding to that I'm trying now (see the partial code): a first input to ask for series (1-10, 10-20, others) based on Asteroid's number (i.e. Ceres 1, Pallas 2...), than three IF for the series. Doing so I could put only about 26-27 bodies, but the most brighten of the sky are not more than 10-20, isn't it, Marcel?

Salvo

Code:


  INPUT({{chserie, {"1-9", "10-20", "others"}, {20,30,1}}},
  "Choose series of asteroids",
  "Series: ", "Choose series of asteroid and press OK", 0,1);
  IF chserie==1 THEN
    INPUT({{ch, asteroid:={"1 Ceres","2 Pallas","3 Juno", "4 Vesta", "5 Astraea", "6 Hebe", "7 Iris", "8 Flora",
    "9 Metis"}, 
    {20,30,1}}},
    "Choose asteroid or comet", 
    "asteroid: ", "Choose asteroid or comet and press OK", 0,4);
    CASE
        IF ch==  1 THEN H:=3.34; G:=0.12; albedo:=0.100; END;
        IF ch==  2 THEN H:=4.13; G:=0.11; albedo:=0.140; END;
        IF ch==  3 THEN H:=5.33; G:=0.32; albedo:=0.220; END;
        IF ch==  4 THEN H:=3.20; G:=0.32; albedo:=0.380; END;
        IF ch==  5 THEN H:=6.85; G:=0.15; albedo:=0.227; END;
        IF ch==  6 THEN H:=5.71; G:=0.24; albedo:=0.268; END;
        IF ch==  7 THEN H:=5.51; G:=0.15; albedo:=0.277; END;
        IF ch==  8 THEN H:=6.49; G:=0.28; albedo:=0.243; END;
        IF ch==  9 THEN H:=6.28; G:=0.17; albedo:=0.243; END;
        DEFAULT H:=1; G:=0.1;
    END; // case
  name:= asteroid(ch);
  END; // if

  IF chserie==2 THEN