home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PINBSRC.ZIP / _RANDOM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-17  |  230 b   |  16 lines
  1.  
  2. function random255:byte;
  3. begin
  4.   random255:=ran255[ran255z];
  5.   inc(ran255z);
  6. end;
  7.  
  8. procedure init_random;
  9. begin
  10.   randomize;
  11.     for ran255z:=0 to 255 do
  12.     begin
  13.       ran255[ran255z]:=random(255);
  14.     end;
  15. end;
  16.