/*************************************/
/* ÆÇÅÔÌÉÎÅ (FP, BUF, MAX)           */
/*                                   */
/* ÇETS A LINE FROM FILE 'FP'.       */
/* ÉNPUT ENDS WHEN A CARRAIGE RETURN */
/* IS INPUT, END OF FILE IS REACHED, */
/* OR THE BUFFER IS FILLED.          */
/*                                   */
/* ÔHIS FUNCTION RETURNS THE NUMBER  */
/* OF CHARACTERS INPUT... THIS DOES  */
/* NOT INCLUDE THE TRAILING CARRAIGE */
/* RETURN.                           */
/*                                   */
/* ×RITTEN 88/06/01                  */
/*   BY ÓTEVE ÂOYKO,                 */
/*   OF ÉNFINITY ÅNTERPRISES.        */
/*************************************/

#INCLUDE <STDIO.H>

FGETLINE (FP, BUF, MAX)
ÆÉÌÅ *FP;
CHAR BUF[];
UNSIGNED MAX;
Û
   CHAR C;
   UNSIGNED LEN = 0;

   C = FGETC (FP);

   WHILE ((C != '\N') && (!FEOF (FP)) && (LEN < MAX))
   Û
      BUF[LEN] = C;
      LEN++;
      C = FGETC (FP);
   Ý
   RETURN (LEN);
Ý