mid__M3112717901.005.z2j45.1.970923174242Z.CC-MAIL*/OU=CCMAIL/O=PSC/PRMD=PSC/A
DMD=MCI/C=US/@MHS 80710001
From: 
     
______________________________ Forward Header 
__________________________________
Subject: Re: Random Number Generator
Author:  Chris Shuffett at psc-ah2
Date:    9/23/97 10:42 AM
     proc srand(integer multiplier)
         integer hrs
                ,min
                ,sec
                ,hun
     
         if multiplier == 0                    //Randomize via system clock
             GetTime(hrs,min,sec,hun)
             multiplier = sec * 100 + hun
             multiplier = multiplier * 0ffffh / 5999
         else
             multiplier = multiplier & 0ffffh  //Must be <= 0ffffh
         endif
     
         multiplier = multiplier | 1           //Add 1 if even 
         SetGlobalInt("randproc_multiplier",multiplier)
     end
     
     integer proc rand()
                 integer seed       = 37584381
                        ,multiplier = GetGlobalInt("randproc_multiplier") 
                        ,result
     
                 result = seed * multiplier
                 multiplier = result & 0ffffh
                 SetGlobalInt("randproc_multiplier",multiplier) 
                 result = result & 0ffff00h
                 result = result shr 8
                 return(result)
             end
     
     proc main()
     //  SetGlobalInt("randproc_multiplier",37)
         srand(0)
         warn(rand() * 10000 / 10000h)
         warn(rand() * 10000 / 10000h)
         warn(rand() * 10000 / 10000h)
         warn(rand() * 10000 / 10000h)
         warn(rand() * 10000 / 10000h)
         warn(rand() * 10000 / 10000h)
         warn(rand() * 10000 / 10000h)
         warn(rand() * 10000 / 10000h)
         warn(rand() * 10000 / 10000h)
         warn(rand() * 10000 / 10000h)
     end
---
---------------