!------------------------------------------------------------------------ 
! This procedure calls P_LMV.GRAPHIC (more flexible & general) 
gui\panel "MAP Input parameters" pr:graphic/map.hlp 
sic\let name 'name' /prompt "Map file name" 
sic\let type 'type' /prompt "Map file type" 
sic\let first 'first' /prompt "First channel" 
sic\let last 'last' /prompt "Last channel" 
! 
sic\let size 'size' /prompt "Size of plotted area (sec)" 
sic\let spacing 'spacing' /prompt "Contour step" 
sic\let cross 'cross' /prompt "Center cross size (sec)" 
sic\let mark 'mark' /prompt "Box marking type" /choice velocity frequency channel none 
sic\let beam_type 'beam_type' /prompt "Additional beam plotted" /choice dirty clean none 
sic\let extra 'extra' /prompt "Extra data plotted" /choice none coverage 
! 
sic\let do_nice 'do_nice' /prompt "Plot clean beam ?" 
sic\let do_bit 'do_bit' /prompt "Show bitmap images ?" 
sic\let do_contour 'do_contour' /prompt "Draw contours ?" 
sic\let do_grey 'do_grey' /prompt "Fill contours ?" 
sic\let do_tree 'do_tree' /prompt "Structure plot ?" 
! 
on error return 
gui\button "@ PR:X_LMV.GRAPHIC" 
gui\go