(*****************************************************
*
*	This can be put in your library or just used
*  as a source of random numbers. It was written by
*  Bob Harsch as a quickie.
*
* donated Sept 1980
***************************************************)

PROGRAM random;
var
  seed:0..65535;
  i:integer;

  Function Random:real;
   begin /* Random */
     seed:=(seed*13077+6925)mod 32768;
     random:=seed/32768.0
   end /* Random */;

begin
     seed:=trunc(time*1000.0);
        for i:=1 to 25 do writeln(trunc(random*6.0)+1)
end.

.