program tpage;

uses myio,
     crt, dos;

procedure titlepage;
var x,y,col,col1:byte;
    c:char;
begin
{rcg11172000 gay.}
{
  clrscr; cursoron(FALSE);
  textbackground(0); textcolor(0);
  writeln;
  writeln('  ÜÛÛÛÛÛÛÜÜ    ÜÛÛÛÛÛÛÜÜ');
  writeln('  Þ    ßÛÛÛÛ   Þ    ßÛÛÛÛ');
  writeln('  Þ    ÜÛÛÛß   Þ     ÛÛÛÛ                  ÜÜ Ü');
  writeln('  ÛÛÛÛÛÛÛÛ     ÛÛÛÛÛÛÛÛÛÛ     Üßßßß   ÜÜ  Û   Û   Ü   Ü ßßßÜ  ÜÜ ÜßßÜ');
  writeln('  Þ    ßÛÛÛÜ   Þ     ÛÛÛÛ      ßßßßÜ Û  Û Ûß  Ûß  Û Ü Û ÜßßÛ Û   ÛÜß');
  writeln('  Þ    ÜÛÛÛÛ   Þ     ÛÛÛÛ   ßßßßßßß   ßß  ß    ßß  ß ß   ßßß ß    ßßßßßßßßßßßßß');
  writeln('  ßÛÛÛÛÛÛßß    Þ  __ÜÛÛÛß   ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
  writeln;
  writeln('             P r E s E n T s ! ! ! ! ! !');
  col1:=0;
  repeat
    for x:=3 to 79 do begin
      col1:=col1 mod 2+1;
      case col1 of 1:col:=14; 2:col:=4; end;
      for y:=2 to 8 do mem[vidseg:(160*(y-1)+2*(x-1))+1]:=col;
    end;
    delay(100);
  until (keypressed);
  c:=readkey;
  textcolor(14);
  clrscr; cursoron(TRUE);
}
end;

begin
  checkvidseg;
  titlepage;
end.