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,xpos=700
                  
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