! 
! X_SUPPORT.MAP 
! 
if (.not.exist(supp_name)) then 
  define char supp_name*20 supp_type*20 /global 
  define integer supp_plane /global 
endif 
let supp_plane max(1,first) 
let supp_type "pol" 
! 
gui\panel "SUPPORT control panel" pr:map/x_support.hlp 
! 
let supp_plane 'supp_plane' /prompt "Plane" 
let supp_name 'supp_name' /prompt "Support file name" 
let supp_type 'supp_type' /prompt "Support file extension" 
! 
gui\button "@ p_plot DIRTY 'supp_plane' 'supp_plane'" "Show Dirty" 
gui\button "SUPPORT /PLOT" "Show Supp." 
gui\button "SUPPORT" "Def. Supp." 
gui\button "SUPPORT 'supp_name'.'supp_type'" "Load Supp." 
gui\button "CLEAN\WRITE SUPPORT 'supp_name'.'supp_type'" "Save Supp." 
! 
gui\go