unit Logo;

interface
         procedure WriteLogo;
implementation
uses crt;


  procedure WriteLogo;
    begin;
    TextColor(1);
    WriteLn('        ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ');
    Write('      /°°±±²²²ŪŪŪ');
    TextColor(9);
    Write('±±±²²±±±');
    TextColor(1);
    WriteLn('\');
    Write('     ³°°±±²²ŪŪŪ');
    TextColor(9);
    Write('±±±²²ŪŪ²²±±');
    TextColor(1);
    Write('³');
    TextColor(15);
    WriteLn('   ÜÜÜÜ   ÜÜÜ  ÜÜÜÜ   ÜÜÜ       ÜÜÜÜ  ÜÜÜ  ÜÜÜÜ');
    TextColor(1);
    Write('     ³°°°±±²²²ŪŪŪ');
    TextColor(9);
    Write('±±±²²±±±');
    TextColor(1);
    Write('Ū³');
    TextColor(15);
    WriteLn('   Ū   Ū Ū   Ū  Ū  Ū Ū   Ū     Ū     Ū   Ū Ū   Ū');
    TextColor(1);
    Write('     ĄĀÄÄÄÄÄÄÄÄÄÄæŪ');
    TextColor(9);
    Write('±±±±');
    TextColor(1);
    Write('ŪŪŪ³');
    TextColor(15);
    WriteLn('   ŪßŪß  Ū   Ū  ŪßßÜ Ū   Ū     Ū     Ū   Ū Ūßßß');
    TextColor(1);
    Write('      ³');
    TextColor(4);
    Write('²²²²²²²²²²');
    TextColor(1);
    Write('³ŪŪ');
    TextColor(9);
    Write('±±');
    TextColor(1);
    Write('ŪŪŪŪ³');
    TextColor(15);
    WriteLn('   Ū  Ū  Ū   Ū  Ū  Ū Ū   Ū     Ū     Ū   Ū Ū');
    TextColor(1);
    Write('     ŚĮÄÄÄÄÄÄÄÄÄÄŁŪŪŪŪŪŪ²²³');
    TextColor(15);
    WriteLn('   ß   ß  ßßß  ßßßß   ßßß       ßßßß  ßßß  ß');
    TextColor(1);
    Write('     ³°°°°°°°°°°°±±²²²²±±±³  ');
    TextColor(0);
    TextBackground(7);
    Write(' [ o ]ÄÄ[ f ]ÄÄÄÄÄÄÄ[ n ]ÄÄ[ O ]ÄÄ[ O ]ÄÄ[ b ] ');
    TextBackground(0);
    TextColor(1);
    WriteLn;
    WriteLn('     ³°°°°°°°°°°°°°±±±±°°°³ ');
    Write('     ĄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄŁ');
    WriteLn;
    TextColor(8);
    WriteLn('     Robo.Cop@gmx.net ž http://RoboCop.home.pages.de ž irc.germany.net:6667');
    TextColor(0);
    WriteLn('              (C)1995-1998 by RoboCop of nOOb');
    WriteLn('If you cannot decrypt ^THAT^ Symbol, install the ANSI.SYS Driver!');
  end;

begin
  WriteLn('ž Loading Unit: Logo - RoboCop of nOOb <Robo.Cop@gmx.net>');
end.