close,1 mywin=0 pB=intarr(128,720) fpos=lonarr(500) & ftmp=long(0) & ii=0 device,window_state=winst if(winst(0) eq 0)then window,0,xsize=128,ysize=720 mn=-1000 & mx=5000 filenm=' ' close,13 & openr,13,'pBlist' while ( not eof(13) ) do begin ;{ point_lun,-13,ftmp & fpos(ii)=ftmp readf,13,filenm close,1 & openr,1,filenm & readu,1,pB & close,1 wset,mywin & tv,bytscl(pB,min=mn,max=mx) xyouts,.0,.85,filenm,size=2,/NORMAL print,filenm,' (23-1,150 59-1,150 104-1,150)',pB(23-1,150),pB(59-1,150),pB(104-1,150) 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