! PR:I_MAP.NIC (in analogy to I_MAP.GRAPHIC by R.Lucas)
! List input parameters for INPUT MAP
!
!----------------------------------------------------------------------
define character var_head*3 
let var_head   'exist(date_observ)'
if (var_head.eq."NO") then
  var head
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 " MAP plots a contour map of all or selected channels"
say " "
say " Map ["'b'"name"'n'"] is controlled by character variables NAME and TYPE"
say " Channels are controlled by variables FIRST and LAST [0 0 ==> all channels]"
say " CONTOUR == YES for contour plots and BITMAP == YES for color plots"
say " PLOTBEAM == YES to plot the beam and AXIS = REL (or ABS) for axis type"
say " LEVELS == PER (or ABS) for percentual or absolute levels"
say " Size of square area plotted is controlled by variable SIZE "
say "        [>0 == limits are SIZE/2 -SIZE/2 -SIZE/2 SIZE/2 SECONDS]"
say "        [ 0 == whole map; <0 == manually use LIMITS command]"
say " Spacing of contour levels is controlled by variable SPACING "
say "        [>0 ==> levels equally spaced by the value of SPACING]"
say "        [ 0 ==> automatic determination; <0 ==> manually use LEVEL command]"
say " CROSS controls the size (arcsec) of a cross at map center (0 ==> no cross)"
say " ASPECT controls the abscissa to ordinate ratio (==1 square boxes)"
say " DO_MAP == YES to display the results of MAKPLAN, RESTORE and SHIFT_AND_ADD"
if (.not.exist(signal)) then
  return 
endif
let name 'SCAN'
if (scan.lt.1000.and.scan.ge.100) then
  let name "0"'SCAN'
else if (scan.lt.100.and.scan.ge.10) then
  let name "00"'SCAN'
else if (scan.lt.10) then
  let name "000"'SCAN'
endif
say " "
say " Current output file : "'B''NAME'"."'TYPE''N'
say " "
say " Current input values :"
say " "
say " CONTOUR    [ "'B''CONTOUR''N'" ]	BITMAP [ "'B''BITMAP''N'" ]	PLOTBEAM [ "'B''PLOTBEAM''N'" ]"
say " AXIS       [ "'B''AXIS''N'" ]	FIRST  [ "'B''FIRST''N'" ]	LAST [ "'b''last''n'" ]"
say " LEVELS     [ "'B''LEVELS''N'" ]"
say " SPACING    [ "'B''SPACING''N'" ]	TRUE_SPACING [ "'B''TRUE_SPACING''N'" ]"
say " SIZE       [ "'B''SIZE''N'" ]	CROSS [ "'B''CROSS''N'" ]	ASPECT [ "'B''ASPECT''N'" ]"
say " PLOTWEIGHT [ "'B''PLOTWEIGHT''N'" ]      DO_SUPPORT [ "'B''DO_SUPPORT''N'" ]"
if (var_head.eq."NO") then
  var head off
endif