TP / 11 / MOUSEXY

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.