home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / arc-lbr / lbrutil.lbr / SKIPBLKS.IZC / SKIPBLKS.INC
Text File  |  1986-12-27  |  256b  |  10 lines
  1.   PROCEDURE skipblanks(VAR f : text);
  2.   (* exits with either eoln or eof true, or (f^ <> ' ' *)
  3.  
  4.     BEGIN (* skipblanks *)
  5.     WHILE NOT (eoln(f) OR eof(f)) AND (f^ = ' ') DO get(f);
  6.     END; (* skipblanks *)
  7.  
  8.   (* 1---------------1 *)
  9.  
  10. ¡æ