(*
/*

CLASS {NATIVE_Random_soft|_Delphi}, NATIVE,
ABSTRACT :


CONST STR:
    NATIVE_Random_import = "var fSeed: "
    "{$IFDEF MODERN_CODE} Int64 "
    "{$ELSE} Double "
    "{$ENDIF} ;"

    NATIVE_Next_in_range = @
    "	 {$IFDEF MODERN_CODE}"
    "	 fSeed := X_Seed_Low or (Int64(X_Seed_high) shl 32);"
    "	 {$ELSE}"     
    "	 fSeed := X_Seed_Low + X_Seed_high * 4294967296.0;"
    "	 {$ENDIF}"     
    "    fSeed := fSeed * 1103515245 + 12345;"
    "	 if X_Max > 0 then"
    "		{$IFDEF MODERN_CODE}"     
    "    	RESULT := Cardinal(fSeed div 65536) mod Cardinal(X_Max)"
    "		{$ELSE}"     
    "    	RESULT := Cardinal(Trunc(Round(fSeed / 65536))) "
    "					mod Cardinal(X_Max)"
    "		{$ENDIF}"     
    "		;"
    
    NATIVE_Get_seed_low = @
    "	 RESULT := {$IFnDEF MODERN_CODE} Trunc {$ENDIF} (fSeed"
    "		{$IFnDEF MODERN_CODE} + 0.01 {$ENDIF});"
    
    NATIVE_Get_seed_high = @
    "	{$IFDEF MODERN_CODE}"
    "	 RESULT := fSeed shr 32;"
    "	{$ELSE}"     
    "	 RESULT := Trunc(fSeed / 4294967296.0 + 0.01);"
    "	{$ENDIF}"     
    
    NATIVE_Random_last = ""
    
    .
    
END
*/
*)

