CPU = 16F876

MHZ = 10

CONFIG 16254



;***********************************************

; http://www.basicmicro.com                    

; Title : random.bas                             

; Author : Dale Kubin                          

; Date : 04/29/02                              

; Random command. Generate pseudo random numbers                             

;***********************************************



Temp var word

temp = 25

	

	Main

		Temp = Random temp	;25 is the seed value

		Debug [DEC Temp,13]	;displays the results of temp

		Goto Main		;repeat loop forever