program GROW ;
// Fills subdirectory X of current directory with CHEKLINX test files.
// Execute, in X, cheklinx <options> f100.htm
var F : text ; J : integer ; S : string ;
const K=25 ;
begin
for J := 100 to 100+K do begin Write(J:9, #13) ;
  Str(J, S) ;
  Assign(F, 'X\F'+S+'.htm') ; Rewrite(F) ;
  Writeln(F, 'Text1') ;
  if J<100+K then Writeln(F, '<a href="F', J+1, '.htm">link</a>') ;
  Writeln(F, 'Text2') ;
  Close(F) ;
  end ;
end.