unit kuj;

interface
uses crt;
Procedure kursor_tagasi;
Procedure kaota_kursor;
Procedure servad;



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 servad;
var i: integer;
begin
 textbackground(green);
 gotoxy(1, 1);
 for i:=1 to 80 do write(' ');
 for i:=1 to 24 do
 begin
  gotoxy( 1, i); write(' ');
  gotoxy(80, i); write(' ');
 end;
 gotoxy(1, 24);
 for i:=1 to 80 do write(' ');
 textbackground(black);
end;

end.