let.uni

declare,main0
declare,lists
declare,clears
declare,clearline
declare,number
function,main0
	lists,argv0,argv0,argv0,argv0
function,lists
	const,0,1,2,3,12,32,4000
	string,temp,81
	integer,n,0
	screen,3
	color,1
	clears,argv0,argv0,argv0,argv0
	for,n,0,12,1#number,n,argv0,argv0,argv0
function,clears
	const,0,1,25,32,80,81	
	integer,n,0
	integer,p1,80
	memfill,argv0,32,80
	add,p1,p1,argv0
	memfill,p1,0,1
	locate,0,0,0
	for,n,0,25,1#clearline,argv0,n,argv0,argv0
	locate,0,0,0
function,clearline
	const,0,1,32,80,81	
	locate,0,argv1,0
	print,argv0
function,number
	const,0,1,25,32,41,2047,80,81	
	integer,number,0
	locate,0,argv0,0
	timer.rnd,argv1
	bits.and,argv1,argv1,2047
	div,argv1,argv1,41
	let,number,argv1
	printnumber,argv1
	locate,0,argv0,0
	echo,