(* This module implements fast text I/O. In the first version only reading is implemented. Created: 3/26/87 by Richie Bielak Modified: This program is PD. It can be freely copied and modified, but please leave my name in. Just throw your onw name in....thanks.. *) DEFINITION MODULE FastTextIO; TYPE FastFile; PROCEDURE OpenFF (VAR F : FastFile; name : ARRAY OF CHAR; VAR suc : BOOLEAN); PROCEDURE CloseFF (VAR F : FastFile); PROCEDURE ReadLine (F : FastFile; VAR buff : ARRAY OF CHAR); PROCEDURE EofFF (F : FastFile) : BOOLEAN; PROCEDURE SkipLines (F : FastFile; count : CARDINAL); END FastTextIO.