home *** CD-ROM | disk | FTP | other *** search
/ Collection of Education / collectionofeducationcarat1997.iso / SCIENCE / EPHEM421.ZIP / SEL_FLD.C < prev    next >
C/C++ Source or Header  |  1990-09-13  |  25KB  |  637 lines
  1. #include <stdio.h>
  2. #include "screen.h"
  3.  
  4. /* define BANG if and only if your system supports the system() function.
  5.  */
  6. #define    BANG
  7.  
  8. /* table of the fields, with flags indicating which menu(s) they are on and
  9.  * whether pickable for changing or plotting.
  10.  * N.B. type must be long enough to hold 16 bits.
  11.  */
  12. static int fields[] = {
  13.     rcfpack (R_ALTM,    C_ALTM,        F_MMNU|F_CHG),
  14.     rcfpack (R_DAWN,    C_DAWN,        F_MMNU|F_CHG),
  15.     rcfpack (R_DAWN,    C_DAWNV,    F_MMNU|F_PLT),
  16.     rcfpack (R_DUSK,    C_DUSK,        F_MMNU|F_CHG),
  17.     rcfpack (R_DUSK,    C_DUSKV,    F_MMNU|F_PLT),
  18.     rcfpack (R_EPOCH,    C_EPOCHV,    F_MMNU|F_CHG),
  19.     rcfpack (R_HEIGHT,    C_HEIGHTV,    F_MMNU|F_CHG|F_PLT),
  20.     rcfpack (R_JD,    C_JDV,        F_MMNU|F_CHG|F_PLT),
  21.     rcfpack (R_JUPITER,    C_ALT,        F_MNU1|F_PLT),
  22.     rcfpack (R_JUPITER,    C_AZ,        F_MNU1|F_PLT),
  23.     rcfpack (R_JUPITER,    C_DEC,        F_MNU1|F_PLT),
  24.     rcfpack (R_JUPITER,    C_EDIST,    F_MNU1|F_PLT),
  25.     rcfpack (R_JUPITER,    C_ELONG,    F_MNU1|F_PLT),
  26.     rcfpack (R_JUPITER,    C_HLAT,        F_MNU1|F_PLT),
  27.     rcfpack (R_JUPITER,    C_HLONG,    F_MNU1|F_PLT),
  28.     rcfpack (R_JUPITER,    C_MAG,        F_MNU1|F_PLT),
  29.     rcfpack (R_JUPITER,    C_MARS,        F_MNU3|F_PLT),
  30.     rcfpack (R_JUPITER,    C_MERCURY,    F_MNU3|F_PLT),
  31.     rcfpack (R_JUPITER,    C_MOON,        F_MNU3|F_PLT),
  32.     rcfpack (R_JUPITER,    C_NEPTUNE,    F_MNU3|F_PLT),
  33.     rcfpack (R_JUPITER,    C_OBJ,        F_MMNU|F_CHG),
  34.     rcfpack (R_JUPITER,    C_OBJX,        F_MNU3|F_PLT),
  35.     rcfpack (R_JUPITER,    C_OBJY,        F_MNU3|F_PLT),
  36.     rcfpack (R_JUPITER,    C_PHASE,    F_MNU1|F_PLT),
  37.     rcfpack (R_JUPITER,    C_PLUTO,    F_MNU3|F_PLT),
  38.     rcfpack (R_JUPITER,    C_RA,        F_MNU1|F_PLT),
  39.     rcfpack (R_JUPITER,    C_RISEAZ,    F_MNU2|F_PLT),
  40.     rcfpack (R_JUPITER,    C_RISETM,    F_MNU2|F_PLT),
  41.     rcfpack (R_JUPITER,    C_SATURN,    F_MNU3|F_PLT),
  42.     rcfpack (R_JUPITER,    C_SDIST,    F_MNU1|F_PLT),
  43.     rcfpack (R_JUPITER,    C_SETAZ,    F_MNU2|F_PLT),
  44.     rcfpack (R_JUPITER,    C_SETTM,    F_MNU2|F_PLT),
  45.     rcfpack (R_JUPITER,    C_SIZE,        F_MNU1|F_PLT),
  46.     rcfpack (R_JUPITER,    C_SUN,        F_MNU3|F_PLT),
  47.     rcfpack (R_JUPITER,    C_TRANSALT,    F_MNU2|F_PLT),
  48.     rcfpack (R_JUPITER,    C_TRANSTM,    F_MNU2|F_PLT),
  49.     rcfpack (R_JUPITER,    C_TUP,        F_MNU2|F_PLT),
  50.     rcfpack (R_JUPITER,    C_URANUS,    F_MNU3|F_PLT),
  51.     rcfpack (R_JUPITER,    C_VENUS,    F_MNU3|F_PLT),
  52.     rcfpack (R_LAT,    C_LATV,        F_MMNU|F_CHG|F_PLT),
  53.     rcfpack (R_LD,    C_LD,        F_MMNU|F_PLT|F_CHG),
  54.     rcfpack (R_LISTING,    C_LISTING,    F_MMNU|F_CHG),
  55.     rcfpack (R_LON,    C_LON,        F_MMNU|F_CHG),
  56.     rcfpack (R_LON,    C_LONV,        F_MMNU|F_PLT),
  57.     rcfpack (R_LONG,    C_LONGV,    F_MMNU|F_CHG|F_PLT),
  58.     rcfpack (R_LST,    C_LSTV,        F_MMNU|F_CHG|F_PLT),
  59.     rcfpack (R_LT,    C_LT,        F_MMNU|F_CHG|F_PLT),
  60.     rcfpack (R_MARS,    C_ALT,        F_MNU1|F_PLT),
  61.     rcfpack (R_MARS,    C_AZ,        F_MNU1|F_PLT),
  62.     rcfpack (R_MARS,    C_DEC,        F_MNU1|F_PLT),
  63.     rcfpack (R_MARS,    C_EDIST,    F_MNU1|F_PLT),
  64.     rcfpack (R_MARS,    C_ELONG,    F_MNU1|F_PLT),
  65.     rcfpack (R_MARS,    C_HLAT,        F_MNU1|F_PLT),
  66.     rcfpack (R_MARS,    C_HLONG,    F_MNU1|F_PLT),
  67.     rcfpack (R_MARS,    C_JUPITER,    F_MNU3|F_PLT),
  68.     rcfpack (R_MARS,    C_MAG,        F_MNU1|F_PLT),
  69.     rcfpack (R_MARS,    C_MERCURY,    F_MNU3|F_PLT),
  70.     rcfpack (R_MARS,    C_MOON,        F_MNU3|F_PLT),
  71.     rcfpack (R_MARS,    C_NEPTUNE,    F_MNU3|F_PLT),
  72.     rcfpack (R_MARS,    C_OBJ,        F_MMNU|F_CHG),
  73.     rcfpack (R_MARS,    C_OBJX,        F_MNU3|F_PLT),
  74.     rcfpack (R_MARS,    C_OBJY,        F_MNU3|F_PLT),
  75.     rcfpack (R_MARS,    C_PHASE,    F_MNU1|F_PLT),
  76.     rcfpack (R_MARS,    C_PLUTO,    F_MNU3|F_PLT),
  77.     rcfpack (R_MARS,    C_RA,        F_MNU1|F_PLT),
  78.     rcfpack (R_MARS,    C_RISEAZ,    F_MNU2|F_PLT),
  79.     rcfpack (R_MARS,    C_RISETM,    F_MNU2|F_PLT),
  80.     rcfpack (R_MARS,    C_SATURN,    F_MNU3|F_PLT),
  81.     rcfpack (R_MARS,    C_SDIST,    F_MNU1|F_PLT),
  82.     rcfpack (R_MARS,    C_SETAZ,    F_MNU2|F_PLT),
  83.     rcfpack (R_MARS,    C_SETTM,    F_MNU2|F_PLT),
  84.     rcfpack (R_MARS,    C_SIZE,        F_MNU1|F_PLT),
  85.     rcfpack (R_MARS,    C_SUN,        F_MNU3|F_PLT),
  86.     rcfpack (R_MARS,    C_TRANSALT,    F_MNU2|F_PLT),
  87.     rcfpack (R_MARS,    C_TRANSTM,    F_MNU2|F_PLT),
  88.     rcfpack (R_MARS,    C_TUP,        F_MNU2|F_PLT),
  89.     rcfpack (R_MARS,    C_URANUS,    F_MNU3|F_PLT),
  90.     rcfpack (R_MARS,    C_VENUS,    F_MNU3|F_PLT),
  91.     rcfpack (R_MERCURY,    C_ALT,        F_MNU1|F_PLT),
  92.     rcfpack (R_MERCURY,    C_AZ,        F_MNU1|F_PLT),
  93.     rcfpack (R_MERCURY,    C_DEC,        F_MNU1|F_PLT),
  94.     rcfpack (R_MERCURY,    C_EDIST,    F_MNU1|F_PLT),
  95.     rcfpack (R_MERCURY,    C_ELONG,    F_MNU1|F_PLT),
  96.     rcfpack (R_MERCURY,    C_HLAT,        F_MNU1|F_PLT),
  97.     rcfpack (R_MERCURY,    C_HLONG,    F_MNU1|F_PLT),
  98.     rcfpack (R_MERCURY,    C_JUPITER,    F_MNU3|F_PLT),
  99.     rcfpack (R_MERCURY,    C_MAG,        F_MNU1|F_PLT),
  100.     rcfpack (R_MERCURY,    C_MARS,        F_MNU3|F_PLT),
  101.     rcfpack (R_MERCURY,    C_MOON,        F_MNU3|F_PLT),
  102.     rcfpack (R_MERCURY,    C_NEPTUNE,    F_MNU3|F_PLT),
  103.     rcfpack (R_MERCURY,    C_OBJ,        F_MMNU|F_CHG),
  104.     rcfpack (R_MERCURY,    C_OBJX,        F_MNU3|F_PLT),
  105.     rcfpack (R_MERCURY,    C_OBJY,        F_MNU3|F_PLT),
  106.     rcfpack (R_MERCURY,    C_PHASE,    F_MNU1|F_PLT),
  107.     rcfpack (R_MERCURY,    C_PLUTO,    F_MNU3|F_PLT),
  108.     rcfpack (R_MERCURY,    C_RA,        F_MNU1|F_PLT),
  109.     rcfpack (R_MERCURY,    C_RISEAZ,    F_MNU2|F_PLT),
  110.     rcfpack (R_MERCURY,    C_RISETM,    F_MNU2|F_PLT),
  111.     rcfpack (R_MERCURY,    C_SATURN,    F_MNU3|F_PLT),
  112.     rcfpack (R_MERCURY,    C_SDIST,    F_MNU1|F_PLT),
  113.     rcfpack (R_MERCURY,    C_SETAZ,    F_MNU2|F_PLT),
  114.     rcfpack (R_MERCURY,    C_SETTM,    F_MNU2|F_PLT),
  115.     rcfpack (R_MERCURY,    C_SIZE,        F_MNU1|F_PLT),
  116.     rcfpack (R_MERCURY,    C_SUN,        F_MNU3|F_PLT),
  117.     rcfpack (R_MERCURY,    C_TRANSALT,    F_MNU2|F_PLT),
  118.     rcfpack (R_MERCURY,    C_TRANSTM,    F_MNU2|F_PLT),
  119.     rcfpack (R_MERCURY,    C_TUP,        F_MNU2|F_PLT),
  120.     rcfpack (R_MERCURY,    C_URANUS,    F_MNU3|F_PLT),
  121.     rcfpack (R_MERCURY,    C_VENUS,    F_MNU3|F_PLT),
  122.     rcfpack (R_MOON,    C_ALT,        F_MNU1|F_PLT),
  123.     rcfpack (R_MOON,    C_AZ,        F_MNU1|F_PLT),
  124.     rcfpack (R_MOON,    C_DEC,        F_MNU1|F_PLT),
  125.     rcfpack (R_MOON,    C_EDIST,    F_MNU1|F_PLT),
  126.     rcfpack (R_MOON,    C_ELONG,    F_MNU1|F_PLT),
  127.     rcfpack (R_MOON,    C_HLAT,        F_MNU1|F_PLT),
  128.     rcfpack (R_MOON,    C_HLONG,    F_MNU1|F_PLT),
  129.     rcfpack (R_MOON,    C_JUPITER,    F_MNU3|F_PLT),
  130.     rcfpack (R_MOON,    C_MAG,        F_MNU1|F_PLT),
  131.     rcfpack (R_MOON,    C_MARS,        F_MNU3|F_PLT),
  132.     rcfpack (R_MOON,    C_MERCURY,    F_MNU3|F_PLT),
  133.     rcfpack (R_MOON,    C_NEPTUNE,    F_MNU3|F_PLT),
  134.     rcfpack (R_MOON,    C_OBJ,        F_MMNU|F_CHG),
  135.     rcfpack (R_MOON,    C_OBJX,        F_MNU3|F_PLT),
  136.     rcfpack (R_MOON,    C_OBJY,        F_MNU3|F_PLT),
  137.     rcfpack (R_MOON,    C_PHASE,    F_MNU1|F_PLT),
  138.     rcfpack (R_MOON,    C_PLUTO,    F_MNU3|F_PLT),
  139.     rcfpack (R_MOON,    C_RA,        F_MNU1|F_PLT),
  140.     rcfpack (R_MOON,    C_RISEAZ,    F_MNU2|F_PLT),
  141.     rcfpack (R_MOON,    C_RISETM,    F_MNU2|F_PLT),
  142.     rcfpack (R_MOON,    C_SATURN,    F_MNU3|F_PLT),
  143.     rcfpack (R_MOON,    C_SDIST,    F_MNU1|F_PLT),
  144.     rcfpack (R_MOON,    C_SETAZ,    F_MNU2|F_PLT),
  145.     rcfpack (R_MOON,    C_SETTM,    F_MNU2|F_PLT),
  146.     rcfpack (R_MOON,    C_SIZE,        F_MNU1|F_PLT),
  147.     rcfpack (R_MOON,    C_SUN,        F_MNU3|F_PLT),
  148.     rcfpack (R_MOON,    C_TRANSALT,    F_MNU2|F_PLT),
  149.     rcfpack (R_MOON,    C_TRANSTM,    F_MNU2|F_PLT),
  150.     rcfpack (R_MOON,    C_TUP,        F_MNU2|F_PLT),
  151.     rcfpack (R_MOON,    C_URANUS,    F_MNU3|F_PLT),
  152.     rcfpack (R_MOON,    C_VENUS,    F_MNU3|F_PLT),
  153.     rcfpack (R_NEPTUNE,    C_ALT,        F_MNU1|F_PLT),
  154.     rcfpack (R_NEPTUNE,    C_AZ,        F_MNU1|F_PLT),
  155.     rcfpack (R_NEPTUNE,    C_DEC,        F_MNU1|F_PLT),
  156.     rcfpack (R_NEPTUNE,    C_EDIST,    F_MNU1|F_PLT),
  157.     rcfpack (R_NEPTUNE,    C_ELONG,    F_MNU1|F_PLT),
  158.     rcfpack (R_NEPTUNE,    C_HLAT,        F_MNU1|F_PLT),
  159.     rcfpack (R_NEPTUNE,    C_HLONG,    F_MNU1|F_PLT),
  160.     rcfpack (R_NEPTUNE,    C_JUPITER,    F_MNU3|F_PLT),
  161.     rcfpack (R_NEPTUNE,    C_MAG,        F_MNU1|F_PLT),
  162.     rcfpack (R_NEPTUNE,    C_MARS,        F_MNU3|F_PLT),
  163.     rcfpack (R_NEPTUNE,    C_MERCURY,    F_MNU3|F_PLT),
  164.     rcfpack (R_NEPTUNE,    C_MOON,        F_MNU3|F_PLT),
  165.     rcfpack (R_NEPTUNE,    C_OBJ,        F_MMNU|F_CHG),
  166.     rcfpack (R_NEPTUNE,    C_OBJX,        F_MNU3|F_PLT),
  167.     rcfpack (R_NEPTUNE,    C_OBJY,        F_MNU3|F_PLT),
  168.     rcfpack (R_NEPTUNE,    C_PHASE,    F_MNU1|F_PLT),
  169.     rcfpack (R_NEPTUNE,    C_PLUTO,    F_MNU3|F_PLT),
  170.     rcfpack (R_NEPTUNE,    C_RA,        F_MNU1|F_PLT),
  171.     rcfpack (R_NEPTUNE,    C_RISEAZ,    F_MNU2|F_PLT),
  172.     rcfpack (R_NEPTUNE,    C_RISETM,    F_MNU2|F_PLT),
  173.     rcfpack (R_NEPTUNE,    C_SATURN,    F_MNU3|F_PLT),
  174.     rcfpack (R_NEPTUNE,    C_SDIST,    F_MNU1|F_PLT),
  175.     rcfpack (R_NEPTUNE,    C_SETAZ,    F_MNU2|F_PLT),
  176.     rcfpack (R_NEPTUNE,    C_SETTM,    F_MNU2|F_P