! 
! X_SUPPORT_ALL.MAP 
! 
if (.not.exist(supp_name)) then 
  define char supp_name*20 supp_type*20 /global 
  define logical supp_plot_clean supp_get_cursor /global 
endif 
let supp_type "pol" 
! 
gui\panel "SUPPORT control panel" pr:map/x_support.hlp 
! 
let first 'first' /prompt "First Plane" 
let last 'last' /prompt "Last Plane" 
let supp_name 'supp_name' /prompt "Support file name" 
let supp_type 'supp_type' /prompt "Support file extension" 
! 
gui\button "@ do_support_all NO" "From cursor" 
gui\button "@ do_support_all YES" "From file" 
! 
gui\go