Re: Pascal

Это у тебя на Паскале и на голом экране, я так понял.
Ну так тебе нужно че-то типа
uses
Crt;
var
Key :Char;
y :Integer;
const MnOp :array [1..4] of string = (' Menu1 ', ' Menu2 ', ' Menu3 ', '
Menu4 ');
procedure DrawOp(Bc, Cl, Op :Byte);
begin
TextBackground(Bc); TextColor(Cl);
GoToXY(1, y); Write(MnOp[Op]);
end;
begin
ClrScr;
for y := 2 to 5 do
DrawOp(0, 7, y-1);
y := 2;
DrawOp(7, 0, 1);
repeat
Key := ReadKey;
if Key in [#72,#80] then
begin
DrawOp(0, 7, y-1);
if Key = #72 then
if y = 2 then y := 5 else Dec(y)
else
if y = 5 then y := 2 else Inc(y);
DrawOp(7, 0, y-1);
end;
until Key = #13;
end.
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
Здравствуйте Вадим,
Saturday, January 3, 2004, 11:17:58 AM, вы писали: