' eBASIC Sample Program
'
' Random number generation
'
' Compubotics LLC


#device "16f877"
#clock 16000000

RAND 	VAR WORD
SEED	VAR WORD
CTR		var BYTE

MAIN:

	debug CR, "RANDOM Number Generation", CR

	while (1)
	
		' get new seed value from TMR0
		SEED = TMR0
		SEED = SEED * 3
	
		debug CR, "New seed =", dec SEED, CR
	
		CTR = 0
	
		' generate 10 random numbers from seed
		while (CTR < 10)
	
			RANDOM SEED		' generate random number
			RAND = SEED // 10	' put in the range of 0-9
			debug dec RAND,cr	' display it
		
			paUSE 997
		
			CTR = CTR + 1
		
		WEND
		
		debug CR, "Sequence complete", CR
		
	wend
	
END