program GamePerson;
uses Crt;

var X,Y:Byte;

procedure Start;
begin
WriteLn(' ______________________________ ');
WriteLn('|                              |');
WriteLn('|             GAME             |');
WriteLn('|            PERSON            |');
WriteLn('|______________________________|');
WriteLn('| ____________________________ |');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||                            ||');
WriteLn('||____________________________||');
WriteLn('|______________________________|');
WriteLn('|                              |');
WriteLn('|    [X]              [^]      |');
WriteLn('|      [O]          [<] [>]    |');
WriteLn('|                     [v]      |');
WriteLn('|______________________________|');
end;
begin
  Start;
  ReadLn;
  GotoXY(3,7); Write('Hello There!');
  ReadLn;
end.