program GameSort;

const

  Forever: boolean = false;

var

  Option: char;

{***************************************************************************}

procedure Games;

begin

  writeln('

end;



{***************************************************************************}





{***************************************************************************}

{***************************************************************************}

{***************************************************************************}

begin

 repeat

  clrscr;

  writeln('1) Games people play');

  writeln('2) Gamemasters');

  writeln;

  Option := readkey;

  case Option of

    '1': Games;

    '2': DMs;

    else

      writeln(#7);

 until Forever;

end.

