uses
	go32;

var
	vgasel : Word;
	r : trealregs;

begin
	r.eax := $13; realintr($10, r);
	vgasel := segment_to_descriptor($A000);
	seg_fillchar(vgasel, 0, 64000, #15);
	readln;
	r.eax := $3; realintr($10, r);
end.