define integer ntips itipi
let ntips 32
if pro%narg.eq.0 
  define real a
  let a random(ntips)
  let itipi min(int(a)+1,ntips)
else if pro%arg.eq."?"
  define real a
  let a random(ntips)
  let itipi min(int(a)+1,ntips)
else
  let itipi &1
endif
say " "
say 'ansi%bold''ansi%red'"Did you know (#"'itipi'") that..."'ansi%none'
if itipi.eq.1
  say "  You can use the HOW_TO command to figure out how to do what you want ?"
else if itipi.eq.2
  say "  You can self-calibrate and image all spectral windows from a NOEMA"
  say "  data set in just a few Clicks using the PIPELINE /WIDGET command ?"
  say "  And even in no Click at all using PIPELINE * !"
else if itipi.eq.3
  say "  You can easily derive and display spectral index for continuum data"
  say "  using the ""Spectral index"" tool ?"
else if itipi.eq.4
  say "  You can self-calibrate and image all spectral windows from an ALMA"
  say "  data set using ""casagildas()"" in CASA and then the PIPELINE command ?"
else if itipi.eq.5
  say "  VIEW can display spectral lines in the spectra using the spectral database"
  say "  defined by CATALOG ?"
else if itipi.eq.6
  say "  IMAGER is fully parallelized ? Do not forget to ask your system manager"
  say "  to compile IMAGER with the OpenMP switch on !..."
else if itipi.eq.7
  say "  you can contact the author by E-Mail at stephane.guilloteau@u-bordeaux.fr ?"
  say "  but the hotline at "'ansi%red'"imager-hotline@services.cnrs.fr"'ansi%none'" should be faster!"
else if itipi.eq.8
  say "  IMAGER handles Mosaics and Single dish as easily as single-field images ?"
else if itipi.eq.9
  say "  You can get another tip by using command TIP ?"
else if itipi.eq.10
  say "  IMAGER can handle Line and Continuum separately from the same UV table ? "
  say "  Try ""how to continuum"" to get more hints about the CONTINUUM !"
else if itipi.eq.11
  say "  IMAGER has a large number of demos ?"
  say "  Use the ""demo"" widget, or ""@ gag_demo:demo"" command"
else if itipi.eq.12
  say "  you may suggest other hints to this list of tips by sending them"
  say "  to "'ansi%blue'"imager-hotline@services.cnrs.fr"'ansi%none' !! stephane.guilloteau@u-bordeaux.fr" 
else if itipi.eq.13
  say "  that there is no Tip Number 13 ?"
else if itipi.eq.14
  say "  command UV_PREVIEW tells you quickly if there is any spectral line"
  say "  in your frequency coverage ?"
else if itipi.eq.15
  say "  IMAGER can also work if your workstation or personnal computer has "
  say "  insufficient memory ? See the ""Huge problems"" section in the Documentation"
else if itipi.eq.16
  say "  IMAGER is "'ansi%bold'"MUCH"'ansi%none'" faster than CASA ?"
  say "  Try your own benchmark if you do not believe it !..."
else if itipi.eq.17
  say "  Self-calibration is in general only a matter of minute, not hours ?"
else if itipi.eq.18
  say "  You can easily combine two images using the COMBINE command ?"
else if itipi.eq.19
  say "  There is a dedicated Web site at "'ansi%red'"https:://imager.oasu.u-bordeaux.fr"'ansi%none'
else if itipi.eq.20
  say "  There is a hotline at "'ansi%red'"imager-hotline@services.cnrs.fr"'ansi%none'
  say "     that you can contact if you are stuck ?"
else if itipi.eq.21
  say "  There is a forum-like list at "'ansi%blue'"imager-diff@services.cnrs.fr"'ansi%none'
  say "     where you may share your experience with other users"
else if itipi.eq.22
  say "  You can produce plots of radial distribution of disks (galaxies, protoplanetary, etc...)"
  say "     using the KEPLER command ?"
else if itipi.eq.23
  say "  You can stack data from different spectral lines using command UV_MERGE ?"
else if itipi.eq.24
  say " You may improve faint line detection by matched-filter in UV plane using UV_DETECT ?"
else if itipi.eq.25
  say " You can concatenate several fields into a Mosaic using UV_MOSAIC ?"
else if itipi.eq.26
  say " The PIPELINE is ready for NOEMA Polyfix ""survey"" mode ?"
else if itipi.eq.27
  say " The PIPELINE can be easily controlled using PIPELINE /WIDGET ?"
else if itipi.eq.28
  say " MultiScale CLEAN also works for Mosaics ?"
else if itipi.eq.29
  say " You can re-start a CLEAN from its current state ?"
  say " or Start it from a Model using the /RESTART option ?"
else if itipi.eq.30
  say " IMAGER can handle Polarization ?"
  say " See HELP STOKES for details, or the Polarization section in the documentation"
else if itipi.eq.31
  say " You can get HELP through your Web browser by using SIC HELP HTML ?"
  say " (most convenient with Safari or Chrome)"
else
  say "  there are currently only "'ntips-1'" tips written ?"
endif
say " "

