home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 19
/
CD_ASCQ_19_010295.iso
/
vrac
/
0151ter2.zip
/
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.