home *** CD-ROM | disk | FTP | other *** search
-
- {*************************************************************}
- {* Eric's FASTREAD Routines *}
- {* *}
- {* Written by: *}
- {* Eric W. Wedaa *}
- {* 4620 East 17th Street *}
- {* Tucson AZ, 85711 *}
- {* *}
- {* Copyrighted 1987, 1988 by Eric W. Wedaa *}
- {* *}
- {* BIX: EWEDAA *}
- {* CIS: 76515,2274 *}
- {* *}
- {* Release Date: August 27, 1987. *}
- {* Second Release Date: Feb. 21, 1988. *}
- {* Third Release Date: June 25, 1988. *}
- {* *}
- {* Don't let it be said I don't support my users. *}
- {*************************************************************}
-
- {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
- {++ The following files are needed to use these routines ++}
- {++ --Fastread.inc ++}
- {++ --Fastread.con ++}
- {++ --Fastread.typ ++}
- {++ --Fastread.doc ++}
- {++ --Read.Me ++}
- {+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++}
-
-
- Fastread.doc is in 1st_Word format.
-
- ==============================================================
- ==============================================================
-
- This version (2/21/88) now allows a Fast seek while reading files.
- Note! This is not yet set up for seek while writing. If you want to
- see this, let me know and we'll talk about it.
-
- This version also fixes the bug where you would get a null line
- before setting the End of File marker. As in:
-
- count:=1;
- While not f_eof(buffer) do begin;
- f_readln(buffer,text_line);
- writeln(count,text_line,'<<');
- count:=count +1;
- end;
- writeln('all done');
-
- and the data file:
- one
- two
- three
-
- giving the output:
- 1 one<<
- 2 two<<
- 3 three<<
- 4<<
- all done
-
- which was wrong. It now will give the output:
- 1 one<<
- 2 two<<
- 3 three<<
- all done
-
-
- ==============================================================
- ==============================================================
-
- RELEASE 3 NOTES!!!!!!!
-
- This version (06/25/88) now allows a backwards readln. You MUST
- read the documentation to understand how to use this!
-
- This version also fixes a minor bug in the Fast Seek routine.
-
- This version also fixes the error code for when you attempt to
- write to an allready filled disk.
-
- Coming soon! A new and Improved version of Eric's Pascal Utilities.
- (A NON public domain/shareware product!) Write for details!
-