! PR:I_FINDINGCHART.GRAPHIC 
! List input parameters for INPUT FINDINGCHART 
!---------------------------------------------------------------------- 
gui\panel "Finding Chart Creation Dialog Box" pr:graphic/findingchart.hlp 
if .not.exist(fc_exist) then 
  define integer fc_exist /glob 
  define logical fc_ident fc_sao fc_iras fc_gsc /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 /glob 
  let fc_ra "00:00:00.00" 
  let fc_dec "00:00:00.00" 
  let fc_system "EQUATORIAL" 
  let fc_marker 12 3 .5 
  let fc_gsc yes 
  let fc_sao no 
  let fc_iras no 
  let fc_ident no 
  let fc_epoch 2000.0 
  let fc_mag 16.0 
  let size 10 
endif 
say "CHART input parameters" 
sic\let fc_ra 'fc_ra' /prompt "R.A. of Chart Center" 
sic\let fc_dec 'fc_dec' /prompt "DEC. of Chart Center" 
sic\let fc_system 'fc_system' /prompt "Coordinate type" /choice galactic equatorial 
let fc_epoch 'fc_epoch' /prompt " Epoch " /range 1850 2050 
let size 'size' /prompt "CHART size (Arc Min.)" 
let fc_mag 'fc_mag' /prompt "Will plot Stars down to magnitude" /range -3 16 
let fc_gsc 'fc_gsc' /prompt "Plot GSC stars" 
let fc_sao 'fc_sao' /prompt "Plots Astrometric stars" 
let fc_iras 'fc_iras' /prompt "Plots IRAS sources" 
let fc_ident 'fc_ident' /prompt "Plotted stars will be identified" 
! 
on error return 
gui\button "@ PR:P_FINDINGCHART.GRAPHIC" "OK" 
gui\go