program teste;

uses graph, crt;

var i,j,driver,mode:integer;

begin
  driver:=detect;
  detectgraph(driver, mode);
  initgraph(driver, mode, 'c:\tp6');
  for i:=0 to 639 do
    for j:=0 to 479 do
        putpixel(i, j, 15);
  closegraph
end.