!
! P_RESTORE.NIC restores single beam maps
!  
!
let execute "RESTORE"
if (.not.exist(signal)) then
  say "No input file opened"
  return
endif
on error "RETURN BASE"
define char var_hea*3 
let var_hea 'exist(date_observ)' 
var hea
!
run restore /nowin
!
!
! this section has to be removed one of these days
!
def head mak$pl 'name'".mdb" read
def head res$to 'name'".ekh" write
let res$to%pa mak$pl%pa
let res$to%minor mak$pl%minor
let res$to%major mak$pl%major
del /var res$to mak$pl
!
if (var_hea.eq."NO") then
  var hea off
endif
let type ekh
let cnv_type ekh
let aspect 0
if (do_map) then
  @ p_map
endif