program frame;
uses crt;
var
  x:byte;
  key:char;
begin
  clrscr;
  textbackground(blue);
  textcolor(white);
  clrscr;
  x := 1;
  gotoxy(3,1);
  for x := 2 to 78 do begin
                        gotoxy(x,1);
                        write(chr(205));
                        gotoxy(x,25);
                        write(chr(205));
                      end;
  gotoxy(1,1);
  write(chr(201));
  gotoxy(79,1);
  write(chr(187));
  gotoxy(1,25);
  write(chr(200));
  gotoxy(79,25);
  write(chr(188));
  for x := 2 to 24 do begin
                        gotoxy(1,x);
                        write(chr(186));
                        gotoxy(79,x);
                        write(chr(186));
                      end;
  gotoxy(35,1);
  write('The frame');
  textbackground(7);
  window(34,15,42,16);
  clrscr;
  textbackground(green);
  window(35,14,43,15);
  clrscr;
  write('   OK');
  repeat key := readkey until key = #13;
  textbackground(blue);
  window(30,13,50,16);
  clrscr;
  textbackground(green);
  window(34,15,42,16);
  clrscr;
  write('   OK');
  delay(10000);
end.