Oakland CPM Archive/oakcpm.iso/sigm/vol131/initseed

Text File | 1984-04-29 | 145 b | 9 lines

procedure initseed;
BEGIN
 timestring := '  :  :  ';
 seed := 0;
 time(timestring);
 FOR i := 1 TO 8 DO seed := seed + ORD(timestring[i]);
END;