! PR:I_MAKPLAN.NIC
! List input parameters for INPUT MAKPLAN
!----------------------------------------------------------------------
define character var_head*3 var_cali*3
define character type_of_data*4[4]
define integer index

let type_of_data[1] "    "
let type_of_data[2] "NMB "
let type_of_data[3] "ASC "
let type_of_data[4] "FITS"

if (.not.exist(signal)) then
  say "No scan available"
  return
endif
let var_head   'exist(date_observ)'
let var_cali   'exist(amb_temp)'
if (var_head.eq."NO") then
  var head
endif
if (var_cali.eq."NO") then
  var cali
endif
!
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 " MAKPLAN computes double beam maps for all channels"
say " Input data and map name is controlled by variable SCAN"
say " SCAN_TYPE needs to be ON-THE-FLY (=2)"
say " Source name is controlled by variable SOURCE"
say " Azimuth and Elevation spacings are controlled by variable MAP_CELL"
say " Zigzag offset is controlled by variable ZIGZAG"
say " Facility to flip the map left-to-right is controlled by variable FLIP"
say " Smooth in elevation is controlled by variable SMOOTH_EL"
say " Apodization for sin(x)/x is controlled by variable TAPER"
say "    Parabolic = 0, Gaussian = 1, Linear = 2, No Taper = 3"
say " "
say " Current input values :"
say " "
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
let index data_format+1
say "  Input data is: "'B''NAME'.'TYPE_OF_DATA[INDEX]''N'"	Output data is:  "'B''NAME'".MDB"'N'
say "  MAP_CELL             (arcs) [ "'B''MAP_CELL[1]''N' 'B''MAP_CELL[2]''N'" ]"
say "  ZIGZAG               (arcs) [ "'B''ZIGZAG''N'" ]"
say "  FLIP                        [ "'B''FLIP''N'" ]"
say "  SMOOTH_EL                   [ "'B''SMOOTH_EL''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
if (var_cali.eq."NO") then
  var cali off
endif
if (var_head.eq."NO") then
  var head off
endif