PRO error_pointlun,file


   OPENR, IUN, file, /GET_LUN

   POINT_LUN, IUN, 0

   s=STRARR(2)
   READF,iun,s
   PRINT,s

   POINT_LUN,-iun,bpos
   PRINT,'pointer is:',bpos

   s=FLTARR(1)
   READF,iun,s
   PRINT,'value:',s

   POINT_LUN,-iun,npos
   PRINT,'new position:',npos

   s=FLTARR(1)
   POINT_LUN,iun,bpos
   READF,iun,s
   PRINT,'last position:',bpos
   PRINT,'value:',s

   FREE_LUN,iun

END