program Hello;
uses crt;                                               {Allows for use of different commands}

(***********************************************************)
(*This program takes in the users name as input.  As output*)
(*it states the name, says hello, and shows some text art. *)
(***********************************************************)

Var
   Fname: string; Lname:string;                         {Labels Names for Variables}
   password:string;
   robe:string;

Begin

(***********************************************************)
(*Step 1   Initialize Variable                             *)
(***********************************************************)

   Fname:='';Lname:='';                                 {Initializing Variable}
   password:='';robe:='';

   clrscr;                                              {Clears Screen}

   textcolor(white);                                    {Sets color}
   textbackground(black);

(***********************************************************)
(*Step 2   Introduction and Accepting Input                *)
(***********************************************************)

   textcolor(blue);

writeln('Hello and welcome to the Towers of High Socery Computer System');
writeln('If you were unaware that the Towers had a computer system,');
writeln('Then ask yourself this question, ''How could the mages know so much?''');
writeln('For protection of the mages and for the Towers themselves,');
writeln('It is asked that you now give your first and last name');
writeln('So the system may check on your records.');

   read(Fname,Lname);                                   {Accepts User's Name}
   readln;
   textcolor(white);

writeln('Please enter what Robe Order you are a member of**Hint it is either');
writeln('Good--White,');

   textcolor(red);

writeln('Neutral--Red,');

   textcolor(lightgray);

writeln('or Evil--Black');

   read(robe);                                          {Accepts User's Symbolic Order}
   readln;
   textcolor(white);

writeln('This will take just a few moments to comfirm.');

   delay(750);                                          {Delay here Synnthesizes Computer System Checking Data}
   clrscr;                                              {Clears Screen}

(***********************************************************)
(*Step 3 Returns the Accepted Data and Asks for More       *)
(***********************************************************)

writeln('Welcome ','',Fname, '',Lname, ' of the ','',robe,' Robes');
writeln('To the Towers Computer System');
writeln('Please enter your password, for authorization into the System');

   read(password);                                      {Accepts Password}
   readln;

writeln('This will take just a few moments to confirm.');

   delay(900);                                          {Another Synnthesized Delay}
   clrscr;                                              {Clears Screen}
   textcolor(green);

writeln('',Fname,'', Lname,' of the ','',robe,' Robes');
writeln('Your presence in the system is not authorized under ','',password);
writeln('If this is a mistake, please talk to the Head of the ','',robe,' Robes');
writeln('The Guardian has been summoned to escort you out.');
writeln('Have a nice day.  Hit return immediately!');

   readln;
   clrscr;                                              {Clears Screen for Text Art}
   textcolor(14);

(***********************************************************)
(*Step 4 Text Art                                          *)
(***********************************************************)

writeln('              /|                                           |\               ');
writeln('             /||             ^               ^             ||\              ');
writeln('            / \\__          //               \\          __// \             ');
writeln('           /  |_  \         | \   /     \   / |         /  _|  \            ');
writeln('          /  /  \  \         \  \/ \---/ \/  /         /  /     \           ');
writeln('         /  /    |  \         \  \/\   /\/  /         /  |       \          ');
writeln('        /  /     \   \__       \ ( 0\ /0 ) /       __/   /        \         ');
writeln('       /  /       \     \___    \ \_/|\_/ /    ___/     /\         \        ');
writeln('      /  /         \_)      \___ \/-\|/-\/ ___/      (_/\ \      `  \       ');
writeln('     /  /           /\__)       \/  oVo  \/       (__/   ` \      `  \      ');
writeln('    /  /           /,   \__)    (_/\ _ /\_)    (__/         `      \  \     ');
writeln('   /  ''           /        \__)  (__V_V__)  (__/                    \  \    ');
writeln('  /  ''  ''        /''           \   |{___}|   /         .              \  \   ');
writeln(' /  ''  /        /              \/ |{___}| \/\          `              \  \  ');
writeln('/     /        ''       .        \/{_____}\/  \          \    `         \  \ ');
writeln('     /                ,         /{_______}\   \          \    \         \   ');
writeln('                     /         /{___/_\___}\   `          \    `            ');
writeln('The Guardian has removed your presence from the System!!!!!!!!!!!!');

   delay(500);                                          {Allows Picture to be Viewed}
   readln;
   clrscr;
   textcolor(blue);

writeln('BBBB  Y   Y EEEEE  BBBB  Y   Y EEEEE  BBBB  Y   Y EEEEE  BBBB  Y   Y EEEEE');
writeln('B   B  Y Y  E      B   B  Y Y  E      B   B  Y Y  E      B   B  Y Y  E    ');
writeln('B   B   Y   E      B   B   Y   E      B   B   Y  E       B   B   Y   E    ');
writeln('BBBB    Y   EEEE   BBBB    Y   EEEE   BBBB    Y   EEEE   BBBB    Y   EEEE ');
writeln('B   B   Y   E      B   B   Y   E      B   B   Y   E      B   B   Y   E    ');
writeln('B   B   Y   E      B   B   Y   E      B   B   Y   E      B   B   Y   E    ');
writeln('BBBB    Y   EEEEE, BBBB    Y   EEEEE, BBBB    Y   EEEEE, BBBB    Y   EEEEE');

   textcolor(yellow);

writeln('BBBB  Y   Y EEEEE  BBBB  Y   Y EEEEE  BBBB  Y   Y EEEEE  BBBB  Y   Y EEEEE');
writeln('B   B  Y Y  E      B   B  Y Y  E      B   B  Y Y  E      B   B  Y Y  E    ');
writeln('B   B   Y   E      B   B   Y   E      B   B   Y  E       B   B   Y   E    ');
writeln('BBBB    Y   EEEE   BBBB    Y   EEEE   BBBB    Y   EEEE   BBBB    Y   EEEE ');
writeln('B   B   Y   E      B   B   Y   E      B   B   Y   E      B   B   Y   E    ');
writeln('B   B   Y   E      B   B   Y   E      B   B   Y   E      B   B   Y   E    ');
writeln('BBBB    Y   EEEEE, BBBB    Y   EEEEE, BBBB    Y   EEEEE, BBBB    Y   EEEEE');

   textcolor(red);

writeln('BBBB  Y   Y EEEEE  BBBB  Y   Y EEEEE  BBBB  Y   Y EEEEE  BBBB  Y   Y EEEEE');
writeln('B   B  Y Y  E      B   B  Y Y  E      B   B  Y Y  E      B   B  Y Y  E    ');
writeln('B   B   Y   E      B   B   Y   E      B   B   Y  E       B   B   Y   E    ');
writeln('BBBB    Y   EEEE   BBBB    Y   EEEE   BBBB    Y   EEEE   BBBB    Y   EEEE ');
writeln('B   B   Y   E      B   B   Y   E      B   B   Y   E      B   B   Y   E    ');
writeln('B   B   Y   E      B   B   Y   E      B   B   Y   E      B   B   Y   E    ');
writeln('BBBB    Y   EEEEE, BBBB    Y   EEEEE, BBBB    Y   EEEEE, BBBB    Y   EEEEE');

   delay(500);
   readln;

End.