{$I DECL.TLD}
{$I SPOOL.TLD}

var cnt,i:integer;
    ch:char;
begin
  init_spooler(2048);
  for i:=1 to 100 do writeln(lst,i);
  write('Der Spooler ist ');
  if spooler_status=0 then writeln('leer') else writeln('voll');
  write('Geben Sie einen String ein ? ');
  repeat
    cnt:=succ(cnt);
    if cnt mod 100 = 0 then print_char(1);
    if keypressed then
    begin
      read(kbd,ch);
      write(ch);
    end;
  until ch=^m;
  writeln;
  while spooler_status<>0 do
  begin
    print_char(10);
    writeln('Spooler wird geleert');
  end;
  { Einfacher mit  empty_spooler ! }
  remove_spooler;
end.