Прокомментировать код

Procedure Vvod(x,y:integer;max:integer;mode:string;var logic:boolean;var up,down,ent:boolean;var str:string);
 var
      s:string;
      c:char;
      i:integer;
Begin
 s:=mode;
 while keypressed do c:=readkey;
 up:=false;down:=false;ent:=false;logic:=false;
 repeat
  gotoxy(x,y);
  for i:=1 to max do
   write(' ');
  gotoxy(x,y);
  write(s);
   repeat
    c:=readkey;if ord(c)=0 then
    begin
     c:=readkey;
     if (ord(c)<>72) and (ord(c)<>80) then
      c:=#0
     else
      begin
       case ord(c) of
         72 : up:=true;
         80 : down:=true;
        end;
      end;
     end;
   until (ord(c)<>0);
  case ord(c) of
                 8 : delete(s,length(s),1);
                 13 : ent:=true;
                 27 : logic:=true;
      end;
  if (length(s)<max) and (ord(c)<>8) and (ord(c)<>13) and (not down) and (not up) then s:=s+c;
 until up or down or ent or logic;
 str:=s;
End;
 
Procedure Menushka(var x:integer;var n:word);
 var
     dlina,i,j:word;
     c:char;
Begin
  dlina:=80 div Sim;
  Repeat
   window(1,1,80,1);
   textattr:=$2e;
   clrscr;
   for i:=0 to Sim-1 do
    begin
     if x=i then textattr:=$1e;
     for j:=1 to (dlina-length(Main[i])) div 2 do
      write(' ');
       write(Main[i]);
     for j:=1 to ((dlina-length(Main[i])) div 2) do
     write(' ');
     textattr:=$2e;
    end;
   c:=readkey;if ord(c)=0 then c:=readkey;
   case ord(c) of
                   77 : x:=(x+1)*ord(x<>Sim-1);
                   75 : x:=(x-1)*ord(x<>0)+(Sim-1)*ord(x=0);
                    9 : n:=10
           else n:=x;
         end;
  Until (ord(c)=27) or (ord(c)=13) or (ord(c)=9);
  if ord(c)=27 then halt;
End;
 
Function difwind(x,y:integer;height,widgth,mode:integer;message:string):boolean;
 const
  STR:array [1..3] of string[20] = ('Sdelayte vybor','Vnimanie!','Vse prava zachicheny!');
  Button1='    Da      ';
  Button2='    Net    ';
  Button3='    OK    ';
 var
     p:pointer;
     i,j,k:integer;
     c:char;
     t:boolean;
     oldmaxx,oldmaxy,oldminx,oldminy:integer;
     cur1,cur2:byte;
Begin
 oldmaxx:=lo(windmax)+1;
 oldmaxy:=hi(windmax)+1;
 oldminx:=lo(windmin)+1;
 oldminy:=hi(windmin)+1;
 randomize;
 window(1,1,80,25);
 getmem(p,(height+1)*(widgth+2)*2);
 for i:=0 to height do
  for j:=0 to (widgth+2)*2-1 do
 move(ptr(segb800,80*2*(y+i-1)+x*2+j-2)^,ptr(seg(p^),ofs(p^)+i*(widgth+2)*2+j)^,1);
 textattr:=$1e;
 window(x,y,x+widgth-1,y+height-1);
 clrscr;
 window(1,1,80,25);
 gotoxy(x+(widgth-length(message)) div 2,y+1);write(message);
 gotoxy(x,y);write(#201);
 for i:=1 to round((widgth-length(STR[mode])-2)/2) do
  Write(#205);
 write(STR[mode]);
 for i:=1 to (widgth-length(STR[mode])-2) div 2 do
  Write(#205);
 write(#187);
 for i:=1 to height-2 do
  begin
   gotoxy(x,y+i);write(#186);
   gotoxy(x+widgth-1,y+i);write(#186);
  end;
 gotoxy(x,y+height-1);
 write(#200);
 for i:=1 to widgth-2 do
  Write(#205);
 write(#188);
 t:=true;
 case mode of
 1:
   begin
   Repeat
    if t=true then textattr:=$2f else textattr:=$02;
    gotoxy(x+3,y+3);write(Button1);
    if t=false then textattr:=$2f else textattr:=$02;
    gotoxy(x+widgth-3-length(Button2),y+3);write(Button2);
    c:=readkey;
    case ord(c) of
                    75 : t:=true;
                    77 : t:=false;
          end;
   Until (ord(c)=13) or (ord(c)=27) or (ord(c)=32);
   if ord(c)=27 then t:=false;
  end;
 2:
    repeat
     textattr:=$3b;
     gotoxy(Widgth div 2+x-length(Button3) div 2,height div 2+1+y);write(Button3);
     c:=readkey;
    until (ord(c)=27) or (ord(c)=13) or (ord(c)=32);
 end;
 for i:=0 to height do
  for j:=0 to (widgth+2)*2-1 do
   move(ptr(seg(p^),ofs(p^)+i*((widgth+2)*2)+j)^,ptr(segb800,80*2*(y+i-1)+x*2+j-2)^,1);
 dispose(p);
 window(oldminx,oldminy,oldmaxx,oldmaxy);
 difwind:=t;
End;