home *** CD-ROM | disk | FTP | other *** search
/ PC go! 1995 September / Image.iso / pcgo / programm / online / mediaplx / terminat / pascal / test78.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-08-20  |  727 b   |  27 lines
  1.  
  2. { -------------------------- Terminate utility ------------------------------ }
  3. {                                                                             }
  4. { This program will simply test if some of the lines in TERMINAT.DOC is       }
  5. { longer than 78, which is the maximum allowed in each helpfile.              }
  6. {                                                                             }
  7. { -------------------------- Terminate utility ------------------------------ }
  8.  
  9. var
  10.   t:text;
  11.   s:string;
  12.   x:word;
  13.  
  14. begin
  15.   assign(t,'terminat.doc');
  16.   reset(t);
  17.   x:=0;
  18.   while not eof(t) do
  19.   begin
  20.     inc(x);
  21.     readln(t,s);
  22.     if length(s)>78 Then writeln(x,': '+s);
  23.   end;
  24.   close(t);
  25. end.
  26.  
  27.