program test1;

uses gfx256;

var
   i : integer;

BEGIN
  Graph320x200;

  for i:=0 to 999 do Pixel(random(320),random(200),random(256));
  readln;

  for i:=1 to 15 do HorizLine(10,i*4,10+i*5,i);
  readln;

  for i:=1 to 15 do VertLine(160+i*4,10,10+i*5,i);
  readln;

  Text80x25;
END.