`` Simple Random Generator Demo


constant int IM = 139968
constant int IA =  3877
constant int IC = 29573


real generateRandom(real top) 
	int last = time()
	last = (last * IA + IC) mod IM
return  (top * last) / IM

int main(int argc, array argv)

    real top
	if argc = 2
		top = argv[1].toReal()
	else
		print ~~
Random Demo
syntax:
  random maxvalue
		~~
		exit(0)
	/if	

	real result
	result  = generateRandom(top)

    print "Generated:", int(result)
	
return 0


main($argc, $argv)