! PR:I_FINDINGCHART.GRAPHIC 
! List input parameters for INPUT FINDINGCHART 
!---------------------------------------------------------------------- 
sic\let b*4 "" /new character               ! 4 is underline, 7 reverse video but both 
sic\let n*4 "" /new character               ! are mapped to same attribute on dumb VT100 
if .not.exist(fc_exist) then 
  define integer fc_exist /glob 
  define logical fc_ident /glob 
  define character fc_system*12 /glob 
  define character fc_ra*16 fc_dec*16 /glob 
  define real fc_marker[3] /glob 
  define real fc_epoch fc_mag fc_angle /glob 
  let fc_ra "00:00:00.00" 
  let fc_dec "00:00:00.00" 
  let fc_angle 0.0 
  let fc_system "EQUATORIAL" 
  let fc_marker 12 3 .5 
  let fc_ident no 
  let fc_epoch 2000.0 
  let fc_mag 16.0 
  let size 10 
endif 
say " FINDINGCHART will plot a Finding Chart from the Guide Star Catalog" 
say " By using the GSC command of GRAPHIC." 
say " This in turn will use the GSC CD-ROM of the correct hemisphere," 
say " using the GAG_DROM and GAG_CDROM_MOUNT SIC logical names, that can" 
say " be checked by the command SIC LOG GAG_CDROM and SIC LOG GAG_CDROM_MOUNT." 
say " " 
say " To modify variables listed below, use the command LET variable_name value" 
say "_ Center of Projection is controlled by variables FC_RA and FC_DEC" 
say "  even if these values are Galactic LII and BII. The format is:" 
say "  "'b'"HH:MM:SS.SS"'n'" for RA , "'b'"DD:MM:SS.SS"'n'" for DEC, LII and BII" 
say "  (But formats like HH.hhh or DD.ddd are also valid)" 
say "_ The projection SYSTEM is controlled by variable FC_SYSTEM," 
say "      with optional epoch FC_EPOCH and at angle FC_ANGLE  " 
say "_ Size of square area plotted is controlled by variable SIZE " 
say "      [>0 == limits are SIZE/2 -SIZE/2 -SIZE/2 SIZE/2 MINUTES]" 
say "      [0 == 10 minutes  ;    <0 == manually use LIMITS command]" 
say "_ Marker used for stars is controlled by the table (size 3) FC_MARKER." 
say "_ Limiting Magnitude is controlled by variable FC_MAG (real)" 
say "_ Identification of stars is controlled by variable FC_IDENT (logical)" 
say "_ Current input values:" 
sic\say "    Map centered on " 'b''fc_ra''n'" "'b''fc_dec''n' 
sic\say "    Coordinate type is " 'b''fc_system''n' " (" 'b''fc_epoch''n' ")" 
say "    Map type Azimuthal, SIZE [" 'b''size''n' "]    ANGLE "'b''fc_angle''n' 
say "    Stars down to magnitude "'b''fc_mag''n'" will be plotted" 
say "    with MARKERS of "'b''fc_marker[1]''n'" sides, size "'b''fc_marker[3]''n'" cm (scaled by magnitude) " 
say "    and type "'b''fc_marker[2]''n'" (see HELP MARKER for explanation)" 
say "    Identification of stars is "'b''fc_ident''n'