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