home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
adav313.zip
/
gnat-3_13p-os2-bin-20010916.zip
/
emx
/
gnat
/
examples
/
random_generic.ads
< prev
next >
Wrap
Text File
|
2000-07-19
|
323b
|
15 lines
--::::::::::
--random_generic.ads
--::::::::::
generic
type Result_Subtype is (<>);
package Random_Generic is
-- Simple integer pseudo-random number generator package.
-- Michael B. Feldman, The George Washington University,
-- June 1995.
function Random_Value return Result_Subtype;
end Random_Generic;