Ran[]:=Module[{},MySeed=Mod[MySeed*65539,2^31]]
MySeed=1;
ts=Table[Table[Ran[],{3}],{1000}];
ListPointPlot3D[ts,BoxRatios->{1,1,1},ViewPoint->{1,1,6}]
ListPointPlot3D[ts,BoxRatios->{1,1,1},ViewPoint->{-1,1,15}]

ts1=Table[Ran[],{10000}];

Histogram[ts1/2^31,100]

Histogram[ts1/2^31,{0.01}]

ts2=Table[Table[Ran[],{2}],{10000}];

ListPlot[ts2/2^31]