! PR:I_CONVERT.NIC
! List input parameters for INPUT CONVERT
!----------------------------------------------------------------------
define character var_head*3 var_bolo*3 
define character type_of_data*3[2]

if (.not.exist(signal).and.scan_list.eq." ") then
  say "No scan available"
  return
endif
let var_head 'exist(date_observ)'
var head
let var_bolo 'exist(ref_chan)'
var bolo
let b*4 "" /new character  ! 4 is underline, 7 reverse video but both 
let n*4 "" /new character  ! are mapped to same attribute on dumb VT100
say " CONVERT converts AZ-EL maps in RA-DEC maps"
say " Source name is controlled by variable SOURCE"
say " Source position is controlled by LAMBDA and BETA"
say " Epoch of coordinates is controlled by variable EPOCH"
say " RA extent of the RA-DEC map is controlled by variable RA_EXTENT"
say " DEC extent of the RA-DEC map is controlled by variable DEC_EXTENT"
say " RA and DEC spacings are controlled by variable RADEC_CELL"
say " Cutoff weight is controled by variable CUTOFF"
say " Apodization for sin(x)/x is controlled by variable TAPER"
say "    Parabolic = 0, Gaussian = 1, Linear = 2, No Taper = 3"
say " "
say " "'B'"Use SCAN_LIST to combine maps."'N'" Instrumental weighting is adopted"
say " "
if SCAN_LIST.eq." " then
  let name 'SCAN'
  if (scan.lt.10) then
    let name "000"'SCAN'
  else if (scan.lt.100) then
    let name "00"'SCAN'
  else if (scan.lt.1000) then
    let name "0"'SCAN'
  endif
  if (TYPE.eq."EKH".or.TYPE.eq."ekh") then
    say " Current input file  : "'B''NAME'".ekh"'N'
  else if (TYPE.eq."SAA".or.TYPE.eq."saa") then
    say " Current input file  : "'B''NAME'".saa"'N'
  else
    say " Current input file  : "'B''NAME'"."'TYPE''N'
  endif
  say " Current output file : "'B''NAME'".cnv"'N'
else
  def char numb*4 cnvname*40 cmbname*40
  symbol snumb 'scan_list'
  let numb 'snumb'
  let cnvname 'numb'".cnv"
  def ima cnvima 'cnvname' read
  let cmbname 'cnvima%source'
  say " Current input files (.cnv)  : "'B''SCAN_LIST''N'
  say " Current output file         : "'B''cmbname'".cnv"'N'
endif 
say " "
say " Current input values :"
say " "
say "  SOURCE                    [ "'B''SOURCE''N'" ]"
say "  LAMBDA              (deg) [ "'B''LAMBDA''N'" ]" 
say "  BET                 (deg) [ "'B''BETA''N'" ]"
say "  EPOCH            (years)  [ "'B''EPOCH''N'" ]"
say "  RA_EXTENT       (arcmin)  [ "'B''RA_EXTENT''N'" ]"
say "  DEC_EXTENT      (arcmin)  [ "'B''DEC_EXTENT''N'" ]"
say "  RADEC_CELL      (arcsec)  [ "'B''RADEC_CELL[1]'" "'RADEC_CELL[2]''N'" ]"
say "  CUTOFF         (fraction) [ "'B''nint(CUTOFF*1000000)|1000000''N'" ]"
if (taper.eq.0) then
  say "  TAPER        (Parabolic)  [ "'B''TAPER''N'" ]"
 else if (taper.eq.1)
  say "  TAPER         (Gaussian)  [ "'B''TAPER''N'" ]"
 else if (taper.eq.2)
  say "  TAPER           (Linear)  [ "'B''TAPER''N'" ]"
 else if (taper.lt.0.or.taper.gt.2)
  say "  TAPER         (No Taper)  [ "'B''TAPER''N'" ]"
endif
say "  SCAN_LIST                 [ "'B''SCAN_LIST''N'" ]"
if (var_head.eq."NO") then
  var head off
endif
if (var_bolo.eq."NO") then
  var bolo off
endif