define logical verify 
let verify sic$verify 
sic verify off 
!------------------------------------------------------------------------ 
! INPUT.GRAPHIC 
! On-line Help for mapping procedures. Call sub-procedures named 
! PR:I_Item.GRAPHIC, for simplified maintenance and clarity. 
! R.Lucas 14-may-1990 
!------------------------------------------------------------------------ 
define character p1*12 
let p1 "&1" 
sic\say " " 
if p1.ne." " then 
  let command 'p1' 
endif 
! 
let p1 'command' 
exa p1
if p1.eq." ".or.p1.eq."input".or.p1.eq."?" then 
  let command " " 
  sic\say " INPUT & GO :  Commands for multichannel mapping:" 
  sic\say " " 
  sic\say " - UV_MAP     will compute an image from UV data, New Version" 
  sic\say " - MX         will compute an image from UV data and clean it" 
  sic\say " - CLEAN      will clean a dirty image" 
  sic\say " " 
  sic\say " - MAP        will plot a contour map of all or selected channels" 
  sic\say " - POS        will plot a contour map for velocity-position cubes" 
  sic\say " - VELOCITY   will plot mean, velocity and width maps"
  sic\say " - SPECTRE    will plot spectra from a data cube" 
  sic\say " - LEVEL      will compute best contour level list" 
  sic\say " - LOOK       will look data value from cursor position" 
  sic\say " - LINE       will plot spectrum at cursor position" 
  sic\say " " 
  sic\say " - UVPLOT     will make one dimensional plots of UV data" 
  sic\say " - LIST       will make a alphanumeric list file of UV data" 
  sic\say " - FLAG       will temporary flag some  UV data" 
  sic\say " - UVALL      will plot UV data for all or selected channels" 
  sic\say " - PLOTFIT    will plot results from task UV_FIT" 
  sic\say " Type: INPUT command-name  for further information on a command" 
  sic\say " Type: GO command-name  to execute a command" 
  sic\say "             " 
  sic\say " Caution: Variable BEAM is now called BEAM_TYPE..." 
else 
  sic\sic search pr:graphic/i_'command'.graphic 
  if sic$exist then 
    @ i_'command'.graphic 
  else 
    sic\sic search 'command'.init 
    if (sic$exist) then 
      sic\say "         " 'command' " is a Task with .INIT file" 
      sic\say "         " 
      sic\type 'command'.init 
    else 
      sic\let b*4 "" /new character         ! 4 underline, 7 reverse video 
      sic\let n*4 "" /new character         ! but same attribute on dumb VT100 
      sic\say "  " 
      sic\say "          " 'b' "No INPUT text for &1 " 'n' 
      sic\say "Type ""input input"" or ""input ?"" to get the list of available commands" 
      sic\say "  " 
    endif 
  endif 
endif 
if verify then 
  sic verify on 
endif