! PR:I_RESTORE.NIC
! List input parameters for INPUT RESTORE
!----------------------------------------------------------------------
define character var_head*3 var_cali*3 
define character type_of_data*3[2]

let var_head 'exist(signal)'
if (var_head.eq."NO") then
  say "No scan available"
  return
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 " RESTORE uses the EHK algorithm to restore maps for all channels"
say " 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 " Misalignment of the double beams is controlled by variable ROTATION"
say " ON to OFF beam separation is controlled by variable BEAMSEP"
say " ON to OFF beam peak ratio is controlled by variable UNBAL"
say " Wobbler frequency filtering is controlled by variable RESTORE_FILTER: "
say "   No = no filter, Yes = filtering"
say " Restore with mask is controlled by variable RESTORE_MASK"
say " The number of impulses in the restoring function is controlled "
say " by variable COMB_TEETH: "
say "  COMB_TEETH=0 :full support "
say "  COMB_TEETH=1 :one positive and one negative impulses in restoring function"
say "  etc..."
say " Current output file :  "'B''NAME'".EHK"'N'
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
say "  SOURCE                  [ "'B''SOURCE''N'" ]"
say "  BEAMSEP         (arcs)  [ "'B''BEAMSEP''N'" ]"
say "  ROTATION        (deg)   [ "'B''ROTATION''N'" ]"
say "  UNBAL                   [ "'B''UNBAL''N'" ]"
if (RESTORE_FILTER) then
say "  RESTORE_FILTER          [ "'B''RESTORE_FILTER''N'" ] (filtering)"
else
say "  RESTORE_FILTER          [ "'B''RESTORE_FILTER''N'" ] (no filtering)"
endif
say "  RESTORE_MASK            [ "'B''RESTORE_MASK''N'" ]"
if (COMB_TEETH.eq.0) then
  say "  COMB_TEETH              [ "'B''COMB_TEETH''N'" ] (0=full support)"
else
  say "  COMB_TEETH              [ "'B''COMB_TEETH''N'" ]"
endif
if (var_head.eq."NO") then
  var head off
endif