!
! P_LOAD.NIC	Load an image in variable &1
!  
! 	The image is defined by variable 'NAME' and 'TYPE'
!	Extrema are computed if needed
!
define character save_name*30
on error "RETURN BASE"
let save_name 'name'
sic search 'name'.'type'
if (.not.sic$exist) then
  let name 0'name'
  sic search 'name'.'type'
  if (.not.sic$exist) then
    let name 0'name'
    sic search 'name'.'type'
    if (.not.sic$exist) then
      let name 'save_name' 
      say "File "'NAME'"."'TYPE'" does not exist"
      return base
    endif
  endif
endif
if 'exist(aaa)' then
  del /var aaa
endif
define image &1 'name'.'type' read /global
rgdata &1 /var
!delete /var &1
symbol drawn &1%