unit kujundus;

interface
uses crt;
type nimed=array[1..20] of string[12];
Procedure kursor_tagasi;
Procedure kaota_kursor;
procedure raam(x1, y1, x2, y2: integer);
Procedure vali(x, y: integer; andmed: nimed; hulk: integer; var koht: integer);


implementation
Procedure kursor_tagasi;
BEGIN
 asm
  mov ah,1
  mov ch,6
  mov cl,7
  int 10h
 end
END;

Procedure kaota_kursor;
BEGIN
 asm
  mov ah,1
  mov ch,1
  mov cl,0
  int 10h
 end
END;

procedure raam(x1, y1, x2, y2: integer);
var x, y, vanaattr: integer;
begin
 gotoxy(x1, y1);
 write('Ú');
 x:=x1+1;
 while(x<x2) do
 begin write('Ä'); inc(x); end;
 gotoxy(x2, y1); write('¿');
 y:=y1+1;
 while y<y2 do
 begin
 gotoxy(x1, y); writeln('³');
 gotoxy(x2, y); writeln('³');
 inc(y);
 end;
 gotoxy(x1, y2);
 write('À');
 x:=x1+1;
 while(x<x2) do
 begin write('Ä'); inc(x); end;
 gotoxy(x2, y2); write('Ù');
end;


Procedure vali(x, y: integer; andmed: nimed; hulk: integer; var koht: integer);
var i, tekstivarv, taustavarv: integer;
    c: char;
begin
 raam(x, y, x+13, y+hulk+1);
 x:=x+1;
 taustavarv:=textattr div 16;
 tekstivarv:=textattr mod 16;
 koht:=1;
 for i:=1 to hulk do
 begin
   gotoxy(x, y+i); write(andmed[i]:12);
 end;
 textcolor(taustavarv);
 textbackground(tekstivarv);
 gotoxy(x, y+koht); write(andmed[koht]:12);
 repeat
  c:=readkey;
  if c=chr(0) then
  begin
    c:=readkey;
    textcolor(tekstivarv);
    textbackground(taustavarv);
    gotoxy(x, y+koht); write(andmed[koht]:12);
    if c='H' then if koht>1     then dec(koht);
    if c='P' then if koht<hulk  then inc(koht);
    textcolor(taustavarv);
    textbackground(tekstivarv);
    gotoxy(x, y+koht); write(andmed[koht]:12);
  end;
 until (c=chr(13)) or (c=chr(27));
 if c=chr(27) then koht:=-1;
 textcolor(tekstivarv);
 textbackground(taustavarv);
end;



end.