Окна и клавиши Опции

[Димас]

Как например можно сделать такое окно на Турбо Паскале:



и как написать, например когда я нажимаю клавишу f1 то оно это окно закрыло(очистило), и открыло что то на подобие такого:

[nikita182]

 

uses crt;

var
 c : char;

 procedure asd;
  begin
   clrscr;
   writeln;
   writeln        ('          ********************************');
   writeln        ('          *                                                    *');
   writeln        ('          *                                                    *');
   writeln        ('          *         гыгы, окошко                       *');
   writeln        ('          *                                                    *');
   writeln        ('          ********************************');
   readkey;
 end;

begin
 repeat
 clrscr;
  writeln ('1 - окно, 2 - выход');
  c := readkey;
  case c of
     '1': asd;
     '2': halt;
  end;
 until c = '2';
end.

вот такое окошко) пойдет?

[Димас]

вот такое окошко) пойдет?

неее, такое не красиво... хочется такое как на картинках)))))