!------------------------------------------------------------------------ 
! This procedure calls P_LMV.GRAPHIC (more flexible & general) 
on error return 
if (name.eq." ") then 
  say "Please enter map file name (without extension) " 
  let name 
endif 
if (type.eq." ") then 
  say "Please enter map file extension " 
  let type 
endif 
let do_tree yes 
let do_nice yes 
@ p_lmv.graphic 
change directory <greg