(****************************************************************************)
(*                         Bingozettel-Generator                            *)
(*      ---------------------------------------------------------------     *)
(*        copyright (c) 1999 by Hubersoft Corp. All rights reserved.        *)
(****************************************************************************)

var f: text;
    count: word;

(***********************)
const Bingozettel=30;
(***********************)

procedure makebingosheet;
var fertig:array[0..99] of boolean;
    result:array[0..99] of string[2];
    x, y : word;
    b: byte;
    s: string;
begin
  fillchar(fertig, 100, 0);
  b:=random(100);
  for x:=0 to 99 do
  begin
    while fertig[b] do b:=random(100);
    fertig[b]:=true;
    str(b, result[x]);
    if result[x][0]=#1 then result[x]:='0'+result[x];
  end;
(******************************)
  writeln(f, 'ÉÍÍÍÍËÍÍÍÍËÍÍÍÍËÍÍÍÍËÍÍÍÍËÍÍÍÍËÍÍÍÍËÍÍÍÍËÍÍÍÍËÍÍÍÍ»');
  for y:=0 to 9 do
  begin
    for x:=0 to 9 do
    begin
      write(f, 'º ');
      write(f, result[y*10+x], ' ');
    end;
    writeln(f, 'º');
    if y<>9 then writeln(f, 'ÌÍÍÍÍÎÍÍÍÍÎÍÍÍÍÎÍÍÍÍÎÍÍÍÍÎÍÍÍÍÎÍÍÍÍÎÍÍÍÍÎÍÍÍÍÎÍÍÍ͹');
  end;
  writeln(f, 'ÈÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍÍÊÍÍÍͼ');
end;

begin
  assign(f, 'bingo.txt'); rewrite(f);
  randomize;
  for count:=1 to Bingozettel do
  begin
    makebingosheet;
    if (count mod 3=0) and (count<>0) then writeln(f,'');
  end;

  close(f);
end.