createSeed
        "returnerar seed"
    | seed |
    SeedValue := (( Time millisecondClockValue) * 65535 / 86400000) truncated.  


   next: anInteger
    | slump n |
    n := anInteger
    SeedValue := (13849 + (27181 * SeedValue)) BitAnd 8r177777.
    slump := (SeedValue / 65536 * n + 1) truncated.
    ^slump

    Slumpade createSeed.
