!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
let nreference max(1,nreference)
say "OVER will plot bitmap of the First image and overlay contours"
say "     of all other images for the all or selected channels"
say " "
say "* Number of images is given by NIMAGES"
say "* Image names are controlled by character variables NAMES and TYPES."
say "* Reference image number is given by NREFERENCE"
say "* "
say "* See INPUT MAP for standard parameters"
say "* The Wedge (DO_WEGDE) corresponds to the 1st image"
say "* The Header, Beams (Dirty and Clean), UV Coverage correspond to"
say "              the Reference image" 
say "* "
say "* Channels are marked according to variable MARK"
say "        [VELOCITY, FREQUENCY or CHANNEL]"
say "* Channels are controlled by variables FIRST and LAST"
say "* Size and location of plotted area plotted are controlled by"
say "  variables CENTER and SIZE"
say "        [SIZE[1] = SIZE[2] = 0 ==> whole map]"
say "        [X-axis limits: CENTER[1]+SIZE[1]/2 CENTER[1]-SIZE[1]/2 arcsec]"
say "        [Y-axis limits: CENTER[2]-SIZE[2]/2 CENTER[2]+SIZE[2]/2 arcsec]"
say "* Spacing of contour levels is controlled by variable SPACINGS "
say "* Colour Scale is controlled by variable SCALE[2] "
say "* CROSS controls the size of a cross at phase center (0 ==> no cross)"
say "* Current input values:"
say " "
say "  NIMAGES  [ "'bold''nimages''norm'    "]      NREFERENCE ["'bold''nreference''norm' "]"
for i 1 to nimages
  say "  Image "'i' " is "'bold''names[i]'.'types[i]''norm'
  say "  Contour spacing [" 'bold''spacings[i]''norm' "]   "
next
say " "
say "  DO_HEADER [" 'bold''do_header''norm' "]   DO_WEDGE [" 'bold''do_wedge''norm' "]"
say "  DO_BIT [" 'bold''do_bit''norm' "]      DO_CONTOUR [" 'bold''do_contour''norm' "]"
say "  DO_NICE [" 'bold''do_dirty''norm' "]      DO_DIRTY [" 'bold''do_dirty''norm' "]"
say "  DO_COVERAGE [" 'bold''do_coverage''norm' "]"
say " "
say "  FIRST [" 'bold''first''norm' "]         LAST [" 'bold''last''norm' "]"
say "  MARK [" 'bold''mark''norm' "]   SPACE_TYPE [" 'bold''space_type''norm' "]"
say "  SPACING [" 'bold''spacing''norm' "]       TRUE_SPACING [" 'bold''true_spacing''norm' "]"
say "  SIZE [" 'bold''size[1]' 'size[2]''norm' "]        CENTER [" 'bold''center[1]' 'center[2]''norm' "]"
say "  CROSS [" 'bold''cross''norm' "]"
say " "
say "  Reference Map is " 'bold''names[nreference]'.'types[nreference]''norm'
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
