Re: BACKWARDS FILE READIN

 BBS: Inland Empire Archive
Date: 02-10-93 (22:04)             Number: 329
From: DONN BLY                     Refer#: NONE
  To: DAVID DUREL                   Recvd: NO  
Subj: Re: BACKWARDS FILE READIN      Conf: (2) Quik_Bas

 > Does anyone out there have a simple routine to read an ASCII file
 > backwards?
 > In other words, start from the end of the file and read to the
 > beginning, instead of the other way around.

You mean like this:

SUB DispBackward1 (FileName$)
   FileNum% = FREEFILE
   Buff$ = " "
   OPEN FileName$ FOR BINARY AS #FileNum%
   FOR I& = LOF(FileNum%) TO 1 STEP -1
      GET #FileNum%, I&, Buff$
      PRINT Buff$;
   NEXT
   CLOSE #FileNum%
END SUB

or this:

SUB DispBackward2 (FileName$)
   FileNum% = FREEFILE
   Buff$ = " "
   OutLine$ = ""
   OPEN FileName$ FOR BINARY AS #FileNum%
   I& = LOF(FileNum%)
   DO WHILE I&
      GET #FileNum%, I&, Buff$
      OutLine$ = Buff$ + OutLine$
      IF ASC(Buff$) = 13 THEN
         PRINT OutLine$;
         OutLine$ = ""
      END IF
      I& = I& - 1
   LOOP
   IF LEN(OutLine$) THEN PRINT OutLine$
   CLOSE #FileNum%
END SUB

--- OPMED 3.00
 * Origin: The Loft *HST/V32b/V42b* [NC, SDS] (1:236/7)