{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.

    Demonstrates using the ROM character patterns to create large
    titles.

}
{$I getkeys.lib}
{$I grfxtabl.lib}
{$I titles.lib}
var
  N : byte;
  OddLine : string[10];
  C1, C2  : char;
begin
  MakeTitle('This is a',1);
  MakeTitle('BIG Title',9);
  MakeTitle('Press key.',17);
  repeat until keypressed;
  MakeTitle('ABCDEFGHIJ',1);
  MakeTitle('KLMNOPQRST',9);
  MakeTitle('UVWXYZ@#$%',17);
  repeat until keypressed;
  OddLine := '';
  for N := 1 to 10 do OddLine := OddLine + chr(N);
  MakeTitle(OddLine,1);
  OddLine := '';
  for N := 11 to 20 do OddLine := OddLine + chr(N);
  MakeTitle(OddLine,9);
  OddLine := '';
  for N := 21 to 30 do OddLine := OddLine + chr(N);
  MakeTitle(OddLine,17);
  repeat until keypressed;
  OddLine := '';
  for N := 1 to 10 do OddLine := OddLine + chr(15);
  MakeTitle(OddLine,1);
  MakeTitle(OddLine,9);
  MakeTitle(OddLine,17);
  repeat until keypressed;
  ClrScr;
  WriteLn('Press various keys and fill the screen.  <Esc> to quit.');
  repeat
    GetKeys(C1,C2);
    OddLine := '';
    for N := 1 to 10 do OddLine := OddLine + C1;
    MakeTitle(OddLine,1);
    MakeTitle(OddLine,9);
    MakeTitle(OddLine,17);
    repeat until keypressed;
  until (C1 = #27) and (C2 = #0);

end.