define logical verify 
let verify sic$verify
sic verify off
!------------------------------------------------------------------------
!
! INPUT.NIC (in analogy to INPUT.GRAPHIC by R.Lucas)
! On-line Help for mapping procedures. Calls sub-procedures named
! PR:I_Item.NIC, for simplified maintenance and clarity.
! 
!------------------------------------------------------------------------
define character p1*15
let p1 "&1"
if p1.ne." " then
    let execute 'p1'
endif
!
let p1 'execute'
sym rotate "@ p_rotate"
if p1.eq." ".or.p1.eq."INPUT".or.p1.eq."input" then
    let execute " "
    sic\say " "
    sic\say " INPUT & GO : Procedures for multichannel display:"
    sic\say " "
    sic\say " - CONVERT        converts AZ-EL maps to RA-DEC maps"
    sic\say " - FLUX           computes fluxes"
    sic\say " - MAKPLAN        computes double beam maps for all channels"
    sic\say " - MAP            makes (color) contour maps for all or selected channels"
    sic\say " - ONOFF          produces a table of calibrated fluxes"
    sic\say " - QUICKLOOK      reduces scan by scan (use at the telescope)"
    sic\say " - REDUCE         reduces a scan (experimental ... modify at your will)"
    sic\say " - RESTORE        uses the EKH Algorithm to restore maps for all channels"
    sic\say " - SHIFT_AND_ADD  uses the homonymous technique to restore maps"
    sic\say " - SIGNAL         plots bolometer data for a selection of channels"
    sic\say " - TOTPOW         displays total power data for a sequence of scans"
    sic\say "             "
    sic\say " Type: INPUT procedure-name for further information on a procedure"
    sic\say " Type: procedure-name, GO procedure-name or simply GO to (re)execute"
    sic\say "             "
else 
    sic search pr:nic/i_'execute'.nic
    if (sic$exist) then
      @ i_'execute'.nic
     else
      @ p_error_text 'p1'
    endif
endif
if verify then
    sic verify on
endif