! 
! PR:X_QUICKIMAGEDISPLAY.GRAPHIC 
! 
sic\if .not.exist(qckimg$exist) then 
  sic\define logical qckimg$exist qckimg$useopt /glob 
  sic\define character qckimg$name*132 /glob 
  sic\define character qckimg$scal*4 /glob 
  sic\define real qckimg$min qckimg$max /glob 
  sic\let qckimg$scal lin 
sic\endif 
                                ! 
gui\panel "Quick Display of an Image" pr:graphic/x_quickdisplayimage.hlp 
sic\let qckimg$name 'qckimg$name' /prompt "File name " /file "*.gdf" 
say "Optional Parameters" 
sic\let qckimg$useopt 'qckimg$useopt' /prompt "Use Optional Parameters" 
sic\let qckimg$scal 'qckimg$scal' /prompt "Scaling mode" /choice lin log equ 
sic\let qckimg$min 'qckimg$min' /prompt "Low Cut" 
sic\let qckimg$max 'qckimg$max' /prompt "High Cut" 
                                ! 
gui\button "@ p_quickdisplayimage.graphic" "Display Current Image"
gui\button "HEADER" "Show Current Header" 
on error return 
gui\go "@ p_quickdisplayimage.graphic"