+ implemented Randomize for msdos

git-svn-id: branches/i8086@24081 -

rtl/msdos/system.pp

@@ -128,7 +128,14 @@ begin
 end;
 
 procedure randomize;
+var
+  hl   : longint;
+  regs : Registers;
 begin
+  regs.AH:=$2C;
+  MsDos(regs);
+  hl:=regs.DX;
+  randseed:=hl*$10000+ regs.CX;
 end;
 
 {*****************************************************************************