NewGuid's bug

[luowycn]

The expression of ComDebug(DevComDebug).NewGuid is wrong:
"256 * g[3] MOD 256" which shoule be "g[3] MOD 256 * 256"
fixed procedure(with debug code): ```

PROCEDURE NewGuid*;
	VAR f: TextMappers.Formatter; g: COM.GUID; res: COM.RESULT; n: INTEGER;
	(*VAR buf:ARRAY 40 OF CHAR;*)
BEGIN
	f.ConnectTo(TextModels.CloneOf(StdLog.buf)); n := 10;
	WHILE n > 0 DO
		res := WinOle.CoCreateGuid(g);
		f.WriteChar("{");
		Hex(f, g[2] MOD 256 + g[3] MOD 256 * 256, 4);
		Hex(f, g[0] MOD 256 + g[1] MOD 256 * 256, 4);
		f.WriteChar("-");
		Hex(f, g[4] MOD 256 + g[5] MOD 256 *256, 4);
		f.WriteChar("-");
		Hex(f, g[6] MOD 256 + g[7] MOD 256 *256, 4);
		f.WriteChar("-");
		Hex(f, g[8] MOD 256, 2);
		Hex(f, g[9] MOD 256, 2);
		f.WriteChar("-");
		Hex(f, g[10] MOD 256, 2);
		Hex(f, g[11] MOD 256, 2);
		Hex(f, g[12] MOD 256, 2);
		Hex(f, g[13] MOD 256, 2);
		Hex(f, g[14] MOD 256, 2);
		Hex(f, g[15] MOD 256, 2);
		f.WriteChar("}");
	(*
		res:=WinOle.StringFromGUID2(g,buf,LEN(buf));
		f.WriteString(buf);
	*)
		f.WriteLn; DEC(n)
	END;
	OpenInfoViewer(f.rider.Base(), "Guids");
	f.ConnectTo(NIL)
END NewGuid;