lisbon/lotary.uni at main · matozoid/lisbon · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
declare,main
declare,digit
declare,numbers
function,main
	const,0,1,2,15,3
	integer,n,0
	screen,3
	color,1
	for,n,0,15,1#numbers,n,0,0,0
function,numbers
	const,0,1,2,8
	integer,counter,0
	integer,number0,0
	integer,multp,0
	integer,p1,0
	integer,p2,0
	let,multp,1
	let,number0,0
	pointer,p2,multp
	pointer,p1,number0
	digit,0,0,0,0
	for,counter,0,8,1#digit,counter,p1,p2,0
	locate,0,argv0,0
	printnumber,number0
function,digit
	const,0,1,2,2047
	integer,a,0
	integer,b,0
	integer,c,0
	integer,number,0
	integer,multp,0
	integer,y,0
	pointer.from,number,argv1
	pointer.from,multp,argv2
	timer.rnd,b
	bits.and,b,b,2047
	eval,a,2047/9+1
	eval,b,b/a
	eval,b,b*multp
	eval,number,number+b
	pointer.to,argv1,number
	eval,multp,multp*10
	pointer.to,argv2,multp