home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
High Voltage Shareware
/
high1.zip
/
high1
/
DIR12
/
0141TER2.ZIP
/
0141TER2._XE
/
MANUAL.EXE
/
TEST78.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-01-19
|
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.