close,1 mywin=0 rpB=intarr(570,570) fpos=lonarr(200) & ftmp=long(0) & ii=0 device,window_state=winst if(winst(0) eq 0)then window,0,xsize=570,ysize=570 mn=-500 & mx=4000 mn=-550 & mx=2000 mn=0 & mx=4000 filenm=' ' close,13 & openr,13,'rpBlist' while ( not eof(13) ) do begin ;{ point_lun,-13,ftmp & fpos(ii)=ftmp readf,13,filenm close,1 & openr,1,filenm & readu,1,rpB & close,1 rpB=(rpB gt 13000)*0 + (rpB le 13000) * rpB wset,mywin & tv,bytscl(rpB,min=mn,max=mx) xyouts,.0,.85,filenm,size=2,/NORMAL print,filenm,' (352,156 131,255 255,20)',rpB(352,156),rpB(131,255),rpB(255,20) if(mywin eq 0)then begin ;{ cursor,x,y,/NORMAL if ( !ERR eq 2 ) then begin ;{ ii=ii-1 & if (ii le 0) then ii=0 point_lun,13,fpos(ii) endif else begin ;}{ ii=ii+1 endelse ;} endif;} endwhile ;} close,13 end