scroll.uni

declare,main0
declare,lists
declare,number
declare,scrolls
function,main0
	const,0,1,2,3
	screen,3
	color,1
	lists,argv0,argv0,argv0,argv0
function,scrolls
	const,0,1,2,22,3840
	memory,screen1,753664	
	memory,screen2,753824
	;,mem
	memcopy,screen1,screen2,3840
	;,mem
	pointer.to,argv0,22
function,lists
	const,0,1,2,12,32,30,4000
	string,temp,81
	integer,n,0
	for,n,0,30,1#number,n,argv0,argv0,argv0
function,number
	const,0,1,4,21,22,25,32,41,2047,80,81	
	integer,number,0
	integer,locals,0
	integer,p1,0
	pointer,p1,locals
	let,locals,argv0
	big,locals,22#scrolls,p1,0,0,0
	locate,0,locals,0
	timer.rnd,argv1
	bits.and,argv1,argv1,2047
	div,argv1,argv1,41
	printnumber,argv1
	locate,0,locals,0
	echo,        
	timer.sleep,4