uses crt;
const a: array[1..4] of string=(' Open    ',' Save    ',' Save as ',' Exit    ');
var y: integer;
   klav: char;
begin

 clrscr;

 textcolor(14);
 textbackground(1);

 for y:=1 to 4 do
     begin
       gotoxy(1,y);
       write(a[y]);
     end;

 y:=1;

 repeat

   textcolor(0);
   textbackground(7);

   gotoxy(1,y);
   write(a[y]);


   klav := readkey;

   if klav = #0 then klav := readkey;

   case klav of
       #72: begin
              if y>1 then begin
                            textcolor(14);
                            textbackground(1);

                            gotoxy(1,y);
                            write(a[y]);

                            y:=y-1;
                          end;
            end;
       #80: begin
              if y<4 then begin
                            textcolor(14);
                            textbackground(1);

                            gotoxy(1,y);
                            write(a[y]);

                            y:=y+1;
                          end;
            end;
   end;
 until klav=#27;

end.