!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
if exist(greg%def) then
  delete /var greg%def bold norm
  delete /var command 
  delete /var names name refname 
  delete /var types reftype type 
  delete /var beam_type extra 
  delete /var do_tree 
  delete /var aaa__date spe__date tuv__date 
  delete /var aaa__name aaa__type 
  delete /var spe__name spe__type 
  delete /var tuv__name  
  delete /var angle 
  delete /var mosaic 
  delete /var mark file box_limits 
  delete /var marker1 marker2 space_type 
  delete /var do_bit do_contour do_fill do_grey do_nice do_color do_rcoord do_loop 
  delete /var do_label do_legend do_header do_wedge do_mask do_dirty do_coverage do_weight do_vsys 
  delete /var nimages nreference pens
  delete /var first last step channel mbox nbox 
  delete /var xpix ypix color 
  delete /var nxy_box nx_box ny_box 
  delete /var center size cross aspect box_aspect expand 
  delete /var area_spacing width_spacing velo_spacing 
  delete /var true_spacing spacing spacings level_min level_max 
  delete /var true_scale scale scales ubox
  delete /var true_range range vsys 
  delete /var iblc itrc 
  delete /var rblc rtrc sblc strc 
  delete /var true_sampling sampling 
  delete /var inte_sampling 
  delete /var plot_position
  delete /var s 
  delete /var header_name_type
  let greg%kind "none"
endif
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
