close,1
mywin=0
filenm=' '
syn=0
syn=intarr(360,181)
                  
; Open a window
device,window_state=winst
if(winst(mywin) eq 0)then window,mywin,xsize=360,ysize=181

mn=0 & mx=1500

ans='y'
                  
while ( (ans eq 'y') or (ans eq 'Y') ) do begin ;{

    print,'Enter in the filename of the map you want to display, eg: 1885e1.36'
    read,filenm
    close,1 & openr,1,filenm & readu,1,syn & close,1

    ;;; Extra line to swap bytes if necessary.
    ;;; byteorder,syn,/sswap   ;;; Remove the ;;; at the front of this line.
			       ;;; if you need to swap the bytes.
    
    wset,mywin  & tv,bytscl(syn,min=mn,max=mx),order=1
    xyouts,.0,.85,filenm,size=2,/NORMAL
    print,'Map presently displayed is: ',filenm
    print,'         min and max in the map are: ',min(syn),max(syn)

    print,'Do you have another map to display?  (y or n)'
    read,ans
    
    
endwhile ;}
                  
end