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' 
sic\sic search pr:graphic/x_'command'.graphic 
if sic$exist then 
  @ x_'command'.graphic 
else 
  sic\sic search 'command'.init 
  if (sic$exist) then 
    run 'command' 
  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 to get the list of available commands" 
    sic\say "  " 
  endif 
endif 
if verify then 
  sic verify on 
endif