DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦ec9707cf7⟧ TextFile

    Length: 241 (0xf1)
    Types: TextFile
    Notes: UNIX file
    Names: »xrand.c«

Derivation

└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦2d53db1df⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »frankh/lib/xrand.c«

TextFile

#include	<flib.h>

unsigned long 
xrand(min, max)
unsigned long min, max;
{
unsigned long try, t, y;
unsigned int rfact;
	try = 0;
	rfact = max / 32767L + 1L;
	while ((min > try)  || (try > max)) {
		try = rand() * rfact;
	}
	return(try);
}