home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / arc-lbr / lbrutil.lbr / SKIPTO.IZC / SKIPTO.INC
Encoding:
Text File  |  1986-12-27  |  384 b   |  11 lines
  1.   PROCEDURE skipto(c : char; VAR f : text);
  2.   (* skip characters until either c or eoln encountered *)
  3.   (* at exit c is in f^, or eoln or eof is true         *)
  4.  
  5.     BEGIN (* skipto *)
  6.     WHILE (f^ <> c) AND NOT (eoln(f) OR eof(f)) DO get(f);
  7.     END; (* skipto *)
  8.  
  9.   (* 1---------------1 *)
  10.  
  11. τ╖