program lines;

uses gfx256;

var i : integer;

begin
 graph320x200;

 for i:=0 to 299 do
  line(random(320),random(200),random(320),random(200),random(256));

 savevgascreen('lines.bmp');
 readln;
 text80x25;
end.