randomwalk1=Accumulate[RandomChoice[{-1,1},100000]];randomwalk2=Accumulate[RandomReal[NormalDistribution[],100000]];Manipulate[ListLinePlot[{Take[randomwalk1,n],Take[randomwalk2,n]},PlotRange->All],
{n,20,10000}]