let verify sic$verify /new logical 
sic verify off                  ! Set verify off 
! P_GO.GRAPHIC 
! Main driver of UV and Mapping routine 
!---------------------------------------------------------------------- 
define character p1*12 fich*80
let p1 "&1" 
if p1.ne." " then 
  let command 'p1' 
endif 
! 
! Execute presumed command. No language check
let fich pr:graphic/p_'command'.graphic 
if (file(fich)) then 
  @ p_'command'.graphic &2 &3 &4 &5 &6 &7 &8 &9 
else 
  on error continue 
  run 'command' /edit 
  on error                      ! Restore normal error behaviour 
endif 
if verify then                  ! Restore Verify mode to previous status 
  sic verify on 
endif