inkey2.uni

declare,main0
declare,lists
declare,mainloop
declare,number
declare,printo
declare,print_
declare,resetsx
declare,resetsy
declare,setsx
declare,setsy
declare,addxy
declare,subxy
function,main0
	lists,argv0,argv0,argv0,argv0
function,lists
	const,0,1,2,27,3
	integer,n,0
	integer,x,0
	integer,y,0
	integer,xx,1
	integer,yy,1
	integer,m,0
	pointer,m,n
	screen,3
	color,1
	do,n,27#mainloop,m,argv0,argv0,argv0
function,mainloop
	const,0,1,4,8,12,16,22,77,255
	integer,arg1,0
	integer,x,0
	integer,y,0
	integer,xm,0
	integer,ym,0
	integer,xv,0
	integer,yv,0
	integer,xmv,0
	integer,ymv,0
	add,x,argv0,4
	add,y,argv0,8
	add,xm,argv0,12
	add,ym,argv0,16
	pointer.from,xv,x
	pointer.from,yv,y
	pointer.from,xmv,xm
	pointer.from,ymv,ym
	print_,xv,yv,0,0
	like,xmv,1#addxy,x,xv,0,0
	like,xmv,0#subxy,x,xv,0,0
	like,ymv,1#addxy,y,yv,0,0
	like,ymv,0#subxy,y,yv,0,0
	pointer.from,xv,x
	pointer.from,yv,y
	pointer.from,xmv,xm
	pointer.from,ymv,ym
	big,xv,77#resetsx,x,xm,0,0
	big,yv,22#resetsy,y,ym,0,0
	less,xv,1#setsx,x,xm,0,0
	less,yv,1#setsy,y,ym,0,0
	pointer.from,xv,x
	pointer.from,yv,y
	pointer.from,xmv,xm
	pointer.from,ymv,ym
	printO,xv,yv,0,0
	timer.sleep,4
	inkey,arg1
	bits.and,arg1,arg1,255
	pointer.to,argv0,arg1
function,printo
	const,0,1,2
	locate,argv0,argv1,0
	echo,O
function,print_
	const,0,1,2
	locate,argv0,argv1,0
	echo, 
function,resetsx
	const,-1,0,1,2,77	
	pointer.to,argv0,77
	pointer.to,argv1,0
function,resetsy
	const,-1,0,1,2,22	
	pointer.to,argv0,22
	pointer.to,argv1,0
function,setsx
	const,-1,0,1,2	
	pointer.to,argv0,1
	pointer.to,argv1,1
function,setsy
	const,0,1,2	
	pointer.to,argv0,1
	pointer.to,argv1,1
function,addxy
	const,0,1,2	
	add,argv1,argv1,1
	pointer.to,argv0,argv1
function,subxy
	const,0,1,2	
	sub,argv1,argv1,1
	pointer.to,argv0,argv1