home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boink! 1995 May/June
/
Image.bin
/
df_
/
mailbox
/
terminat
/
0151ter2._xe
/
rar
/
PASCAL.EXE
/
TEST78.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-08-20
|
727b
|
27 lines
{ -------------------------- Terminate utility ------------------------------ }
{ }
{ This program will simply test if some of the lines in TERMINAT.DOC is }
{ longer than 78, which is the maximum allowed in each helpfile. }
{ }
{ -------------------------- Terminate utility ------------------------------ }
var
t:text;
s:string;
x:word;
begin
assign(t,'terminat.doc');
reset(t);
x:=0;
while not eof(t) do
begin
inc(x);
readln(t,s);
if length(s)>78 Then writeln(x,': '+s);
end;
close(t);
end.