unit alex;

interface
uses crt,objects,app,drivers,menus,views,dos,dialogs,graph;
const
    cmwork=100;
    cmfon=101;
    cmfile_create=201;
    cmtabl=202;
    cmread_spisok=203;
    cmsort=204;
type
   spisok=record
                naim:string[25];
                opisanie:string[25];
                cena:string[5];
   end;
type
   tnotebook=object(tapplication)
   procedure initmenubar;virtual;
   procedure HandleEvent(var Event: TEvent); virtual;
   procedure InitStatusLine;virtual;
  end;

implementation
{*********************************************************}
{                         ??-Ū                            }
{*********************************************************}
procedure Tnotebook.initmenubar;
var
  r:trect;
begin
    getExtent(r);
    r.b.y:=succ(r.a.y);
    menubar:=new(pmenubar,init(r,
    newmenu(
      newsubmenu('~F~/" (c)"',hcnocontext,
       newmenu(
            {/////////////////////////////////////////////////////////////////}
            newitem('~1~/''(r)ý ĒŽ Ī (c)"','F2',kbF3,cmfile_create,hcnocontext,
            newline(
            {/////////////////////////////////////////////////////////////////}
            newitem('~2~/''ũ?ĄĒð ý --Ŧ? ũ Ī (c)"','F3',kbF2,cmtabl,hcnocontext,
            newline(
            {****************************************************************}
            newitem('~3~/''ôðĄ(r)ō','F4',kbF3,cmread_spisok,hcnocontext,
            {********************************************************************}
            newline(
            newitem('~4~/''(r) Ēð (r)ũ ĒŽ ĄôðĄ(r)ō','F5',kbF3,cmsort,hcnocontext,
            {**************************************************************}
            newline(
            {******************************************************************}

            {///////////////////////////////////////////////////////////////}
            newitem('~5~/''ŦĨ(r)ý','Alt+X',kbF9,cmquit,hcnocontext,nil)))))))))),
            {**************************************************************}
             newsubmenu('~E~/''ŦĨ(r)ý',hcnocontext,
             newmenu(
             newitem('~1~/...','',0,cmwork,hcnocontext,
             newitem('~2~/"?','',0,cmquit,hcnocontext,nil))),
            {**************************************************************}
                                                            nil)))));
end;
{*********************************************************}
{            'ō"Ū§?-ð?/(r)Ēō"Ū§?-ð? ōĢ Ą(r)                   }
{*********************************************************}
PROCEDURE CURSOROFF;
  ASSEMBLER;
  ASM
   MOV   AH,1
   MOV   CX,2020H   {'>?<?-...??... ?"?'???}
   INT   10H
  END;
 {???-...""?? '>'..."...??? ?"?'???}

 PROCEDURE CURSORON;
  ASSEMBLER;
  ASM
   MOV   AH,1
   MOV   CX,0607H   {'?<?-...??... ?"?'???}
   INT   10H
 END;

{*********************************************************}
{                 Ø ō  Ļðũ -ð? Ī(r)-                        }
{*********************************************************}
procedure fon;
var
  ir,jr:byte;
begin
    textbackground(white);
    textcolor(blue);
    for ir:=2 to 24 do
         begin
         gotoxy (1,ir);
         write(#39'øøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøøø');
         end;
end;
{*********************************************************}
{                  '(r)ý -ð? Ī (c)"                          }
{*********************************************************}
procedure file_create;
var
  f:file of spisok;
begin
assign(f,'C:\spisok.spk');
rewrite(f);
   textbackground(1);
   textcolor(white);
   gotoxy(20,12);
   write('‰"');
   gotoxy(20,13);
   write('ó           " (c)" Ą(r)ý - !            ó');
   gotoxy(20,14);
   write('ˆ?');
   textbackground(white);
   gotoxy(20,15);
   write('       ? ģŋðĒ? -  "ŪöĢŪ ō" ũðĻĢ       ');
   readkey;
   fon;
end;
procedure podsvetca(xpt,ypt,zpt:byte);
var
  ipt:byte;
begin
    textbackground(green);
    for ipt:=1 to zpt do
        begin
        gotoxy(xpt+ipt,ypt);
        write(' ');
        end;
    textbackground(1);
end;
procedure soob_tabl_1;
begin
    textbackground(white);
    gotoxy(9,9);
    textcolor(red);
    write('Enter ');
    gotoxy(14,9);
    textcolor(white);
    write(' - ?? ?Ĩ(r)ý -  Ą"?ýĢŪĐĢŪ ĄĒ (r)ōĢ                        ');
    gotoxy(9,10);
    write('ũ(r)ý -   ĢĄĄō(r)ŋ ŊŦō?                                      ');
end;
{******************************************************************}
procedure soob_tabl_2;
begin
    textbackground(white);
    gotoxy(9,9);
    textcolor(red);
    write('Enter ');
    gotoxy(14,9);
    textcolor(white);
    write(' - ? § ĒŽ  ô(r)"-?-ð?        ');
    textcolor(red);
    gotoxy(38,9);
    write('Esc ');
    textcolor(white);
    gotoxy(42,9);
    write('- ?Ēō  ĒŽĄŊ (r)Ē  ô(r)"-?-ðŊ');
end;
procedure tabl;
var
   c:char;
   a:spisok;
   f:file of spisok;
begin
textbackground(blue);
    textcolor(white);
    gotoxy(9,2);
    write('‰[(r)ũ  ]"');
    gotoxy(9,3);
    write('ó? ðŋ?-(r)ũ -ð? Ē(r)ũ   :                                     ó');
    gotoxy(9,4);
    write('ó                                                         ó');
    gotoxy(9,5);
    write('ó?ôðĄ -ð?:                                                ó');
    gotoxy(9,6);
    write('ó                                                         ó');
    gotoxy(9,7);
    write('ó-?- :                                                    ó');
    gotoxy(9,8);
    write('ˆ?');
    soob_tabl_2;
    c:=readkey;
    if c=#13 then
                   begin
                   podsvetca(30,3,25); podsvetca(19,5,25);podsvetca(15,7,5);
                   soob_tabl_1;
                   cursoron;
                   textbackground(green);
                   gotoxy(31,3);
                   readln(a.naim);
                   gotoxy(20,5);
                   readln(a.opisanie);
                   gotoxy(16,7);
                   readln(a.cena);
                   cursoroff;
                   assign(f,'C:\spisok.spk');
                   reset(f);
                   seek(f,filesize(f));
                   write(f,a);
                   close(f);

                   end;
                       {else
                       begin
                       textbackground(white);
                       gotoxy(9,9);
                       write('                 ? ģŋðĒ? "ŪöĢŪ ō" ũðĻĢ                     ');
                       end;}

fon;
end;
procedure spisok_tab;
begin
    textbackground(1);
    textcolor(white);
    gotoxy(10,3);
    write('‰"');
    gotoxy(10,4);
    write('ó                       (r)ũ                              ó');
    gotoxy(10,5);
    write('Œ‹‹ü');
    gotoxy(10,6);
    write('ó? ðŋ?-(r)ũ -ð? Ē(r)ũ   ó       ?ôðĄ -ð?            ó  -?-   ó');
    gotoxy(10,7);
    write('ŒŽŽü');

end;

procedure read_spisok;
var f:file of spisok;
a:spisok;i,k,j:integer;
begin
    spisok_tab;
    i:=0;
    assign(f,'C:\spisok.spk');
    reset(f);
    while not eof(f) do
          begin
          read(f,a);
          gotoxy(10,8+i);
          write('ó                   ó                           ó        ó');
          gotoxy(11,8+i);
          write(a.naim);
          gotoxy(31,8+i);
          write(a.opisanie);
          gotoxy(59,8+i);
          write(a.cena);
          i:=i+1;
          k:=k+1;
          if i=15 then
                     begin
                     textcolor(white);
                     gotoxy(10,8+i);
                     write('ˆŠŠ?');
                     readkey;
                     i:=0
                     end
                     else
                        if k>15 then
                            for j:=i to 14 do
                                 begin
                                 textcolor(white);
                                 gotoxy(10,8+j);
                                 write('ó                   ó                           ó        ó');
                                 end
                                else;


    if k<16 then
       begin
       textcolor(white);
       gotoxy(10,8+i);
       write('ˆŠŠ?');
       end
              else;

          end;

readkey;
fon;
end;
{*********************************************************}
{                      '(r) Ēð (r)ũō                          }
{*********************************************************}
procedure sort;
var
  i,j:integer;
  a:array[1..100]of string[25];
  s:string[25];
  f,f1:file of spisok;
  b:spisok;
function prov:boolean;
var k:integer;
z:boolean;
begin
k:=1;
z:=true;
while (z<>false)and(k<=j)do
   begin
   if a[k]=b.naim then
      z:=false
                   else
                   z:=true;
   k:=k+1;
   end;
if z then
  prov:=true
  else
  prov:=false;
end;
begin
assign(f,'C:\spisok.spk');
reset(f);
read(f,b);
a[1]:=b.naim;
s:=b.naim;
j:=1;
while not eof(f)do
     begin
     read(f,b);
     for i:=1 to j do
         if prov then
            begin
            a[j+1]:=b.naim;
            j:=j+1;
            s:=b.naim;
            end
                       else;
     end;
close(f);
assign(f1,'C:\spisok1.spk');
rewrite(f1);
for i:=1 to j do
   begin
   reset(f);
   while not eof(f)do
         begin
         read(f,b);
         if a[i]=b.naim then
            begin
            seek(f1,filesize(f1));
            write(f1,b);
            end;
         end;
   end;
close(f1);
erase(f);
rename(f1,'C:\spisok.spk');

textbackground(1);
   textcolor(white);
   gotoxy(20,12);
   write('‰"');
   gotoxy(20,13);
   write('ó       ôðĄ(r)ō (r)ĒĄ  Ēð (r)ũ - !        ó');
   gotoxy(20,14);
   write('ˆ?');
   textbackground(white);
   gotoxy(20,15);
   write('       ? ģŋðĒ? -  "ŪöĢŪ ō" ũðĻĢ       ');
   readkey;
   fon;
end;

{*********************************************************}
{                      ?ö  ö(r)Ē§ðō                         }
{*********************************************************}

procedure tnotebook.HandleEvent(var Event: TEvent);
begin
 inherited HandleEvent(Event);
 case Event.What of
   evCommand:
     case Event.Command of
     cmfon:fon;
     cmfile_create:file_create;
     cmtabl:tabl;
     cmread_spisok:read_spisok;
     cmsort:sort
     else
       Exit;
     end;
 else
   Exit;
 end;
 ClearEvent(Event);
end;
{*********************************************************}
{                   'Ē (r)ō  Ą(r)ĄĒ(r)Ŋ-ðŊ                      }
{*********************************************************}
procedure tnotebook.InitStatusLine;
var
  r:trect;
begin
    GetExtent(r);
    R.A.Y:=pred(R.B.Y);
    StatusLine:=new(PStatusline,init(r,
    NewStatusDef(0,0,
    NewStatusKey('~F2~ (r)ý ĒŽ Ī ð"',kbF2,cmfile_create,
    NewStatusKey('~F3~ ũ?ĄĒð ý --Ŧ?',kbF3,cmtabl,
    NewStatusKey('~F4~ ôðĄ(r)ō',kbF4,cmread_spisok,
    NewStatusKey('~F5~ (r) Ēð (r)ũ ĒŽ',kbF5,cmsort,
    NewStatusKey('~F10~ ??-Ū',kbF10,cmMenu,
    NewStatusKey('~Alt-X~ ŦĨ(r)ý',kbAltx,cmquit,nil)))))),
                                                    nil)));
end;

begin
end.