program nyc;
{$Igraphlib.pas}
        var     x,x1,y1,x2,y2,step           : real ;
                i                            : integer;

begin
      hires;
      randomize;
      setwindow(-100,-100,100,100);
      setviewport(1,1,80,25);
      useviewport;
      x1:= -100;
      x2:= -100;
      y1:= -100;
      i:=1;
      repeat
            y2:=y1+random(i*10)-i*7;
            drawline(x1,y1,x2,y2,white);
            x2:=x2+random(3)+1;
            drawline(x1,y2,x2,y2,white);
            if x2 >= 100 then
                 begin x2 := -100;
                 i:= (i ) +1;
                 end;
            if abs(y2) >= 100 then
                 y2 := -100 ;
            x1:=x2;
            y1:=y2;
            until keypressed ;
end.