Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

TP / 11 / MOUSEXY

.PAS
Скачиваний:
18
Добавлен:
10.12.2013
Размер:
1.93 Кб
Скачать
uses Crt,Dos;

const
Base = 'Base.dat'; Temp = 'Temp.dat';
Len = 30;
X1W = 20; Y1W = 5; {X1,Y1,X2,Y2 for Window}
X2W = 80; Y2W = 25;
HC = Yellow; THC = Brown; { HeaderColor, TableHeaderColor }
TC = LightGray;
MTC = Brown; STC = White; { MenuTextColor, SelectTextColor }
LU = #218; RU = #191; { LeftUp, RightUp }
LD = #192; RD = #217; { LeftDown, RightDown }
H = #196; V = #179; { Horisontal, Vertical }
HMenu = 480/25;

type
AMenu = array[1..7] of String[10];
Worker = record
N: Integer;
FIO: string[Len];
Kafedra,Dolgnost,Razrad: Byte;
Stavka,Oklad,Zarplata: Real;
end;

const
M: AMenu = (
' Џа®б¬®ва ',
' „®Ў ўЁвм ',
' €§¬Ґ­Ёвм ',
' “¤ «Ёвм ',
' Џ®ЁбЄ ',
' ‘®авЁа®ўЄ  ',
' ‚л室 ');
FM: AMenu = (
'”€Ћ ',
'Љ дҐ¤а  ',
'„®«¦­®бвм ',
'ђ §ап¤ ',
'‘в ўЄ  ',
'ЋЄ« ¤ ',
'‡ аЇ« в  ');

var
R: Registers;
i: Byte;
Index: Integer;
s: String;
w: Worker;
f,ft: file of Worker;

begin
R.AX:= $00; Intr($33,R);
R.AX:= $01; Intr($33,R);
TextBackground(Black);
ClrScr;
Window(3,3,17,12);
{ ђЁб㥬 а ¬Єг }
s:= '';
for i:=1 to 12 do
s:= s + H;
TextColor(MTC);
Write(LU,s,RU);
GotoXY(1,9); Write(LD,s,RD);
for i:=1 to 7 do begin
GotoXY(1,1+i); Write(V);
GotoXY(14,1+i); Write(V);
end;
{ ‚лў®¤Ё¬ ¬Ґ­о }
for i:=1 to 7 do begin
GotoXY(2,1+i); Write(M[i]);
end;
Window(30,5,40,10);
TextBackground(Blue);
TextColor(White);
repeat
R.AX:= $0B; Intr($33,R);
if (R.CX > 0) or (R.DX > 0) then begin
R.AX:= $03; Intr($33,R);
ClrScr;
WriteLn('X: ',R.CX);
WriteLn('Y: ',R.DX);
end;
until KeyPressed;
end.
Соседние файлы в папке 11