! PR:I_ONOFF.NIC
! List input parameters for INPUT ONOFF
!----------------------------------------------------------------------
define character var_head*3 var_cali*3
define character type_of_data*3[3] fit_method*11[4]
define integer index i

let fit_method "(mean)" "(plane)" "(parabolic)" "(automatic)"
if (.not.exist(onoff_mode)) then
  say "No scan available"
  return
endif
let type_of_data[1] "   "
let type_of_data[2] "NMB"
let type_of_data[3] "ASC"
let var_head   'exist(date_observ)'
let var_cali   'exist(amb_temp)'
if (var_head.eq."NO") then
  var head
  if (.not.exist(nsubscan)) then
    say "No scan available"
    return
  endif
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 " ONOFF ["'B'"scan"'N'"] writes out a table of (calibrated) fluxes "
say " ONOFF type is either SYMmetric (ONOFF_MODE=1) or UNSYMmetric(ONOFF_MODE=-1)"
!say " The COMPUTE variable is not supported any more."
say " High frequency noise removal is controlled by variable NOISE"
say " Output file FORMAT is either SHORT (1) or LONG (2)"
say " Results is written to the default "'B'"scan"'N'".onf. To add these"
say " results to a specific file, in addition to "'B'"scan"'N'".onf,"
say " use the ONOFF_FILE variable. These data will then be further"
say " processed by @ p_onoff-sum for those of you who asked for it."
say " ONOFF_FIT is either a 1=weighted mean, 2=plane fit, 3=parabolic fit"
say " 4=automatic fit (i.e. the best of 1, 2 and 3 in terms of RMS is"
say " computed) to the data for the removal of the high frequency noise"
say " term. Use ONOFF_FIT_DIST to define the range (i.e. distance) of "
say " channels around the reference channel which is used for fitting."
say " ONOFF_BEAM defines the radius of the beam which is used for "
say " computing flux and for removing noise."
say " "
!say " Current output file is:  "'B''ONOFF_FILE'".onf"'N'
!say " No output file activated "
!let index data_format+1
!let i onoff_mode+2 
say " Current input values :"
say " "
if (ONOFF_MODE.eq.1) then
  say "  ONOFF_MODE         [ "'B''ONOFF_MODE''N'" ]  (symmetrical)"
else if (ONOFF_MODE.eq.-1) then
  say "  ONOFF_MODE         [ "'B''ONOFF_MODE''N'" ] (unsymmetrical)"
else
  say "  ONOFF_MODE         [ "'B''ONOFF_MODE''N'" ] (undefined)"
endif
say "  ONOFF_FIT          [ "'B''ONOFF_FIT''N'" ]  "'fit_method[onoff_fit]'
say "  ONOFF_FIT_DIST     [ "'B''ONOFF_FIT_DIST''N'" ] (arcsec)"
say "  ONOFF_BEAM         [ "'B''ONOFF_BEAM''N'" ]  (arcsec)"
!if (compute.eq.1.) then
!  say "  COMPUTE            [ "'B''COMPUTE''N'" ]  (mean)"
! else
!  say "  COMPUTE            [ "'B''COMPUTE''N'" ]  (median)"
!endif
! say "  WOBBLER_THROW      [ "'B''WOBBLER_THROW''N'" ] (arcs) - unused"
say "  NOISE              [ "'B''NOISE''N'" ] "
if (format.eq.1) then
  say "  FORMAT             [ "'B''FORMAT''N'" ]  (short)"
 else
  say "  FORMAT             [ "'B''FORMAT''N'" ]  (long)"
endif
say "  ONOFF_FILE         [ "'B''ONOFF_FILE''N'" ]   (extra output file)"

if (var_cali.eq."NO") then
  var cali off
endif
if (var_head.eq."NO") then
  var head off
endif