forked from honeydatax/lisbon
-
Notifications
You must be signed in to change notification settings - Fork 0
/
input.uni
84 lines (83 loc) · 2.15 KB
/
input.uni
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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
declare,main
declare,getcolor
declare,filllist
declare,filllist2
declare,shows
function,main
const,0,1,2,16,3,23,255,115,20,33,256,45,240,124,140,144,11,121,110,8,12,132,120
const,4000,176,15,7
string,s,5000
set,sss,012345678901234567890
integer,screen.x1,0
integer,screen.y1,0
integer,screen.x2,79
integer,screen.y2,24
integer,window.x1,3
integer,window.y1,3
integer,window.x2,15
integer,window.y2,14
integer,window.ss2,0
integer,window.ss,0
integer,window.color,0
integer,p2,0
integer,p3,0
integer,n,0
integer,p1,0
integer,black,0
integer,blue,1
integer,red,4
integer,green,2
integer,pink,5
integer,orange,6
integer,cyan,3
integer,white,7
integer,len,0
memfill,s,176,4000
pointer,p1,window.color
let,window.ss,s
string.len,len,window.ss
;,clear.screen function
screen,3
;,clear.screen function
locate,0,0,0
getcolor,p1,blue,cyan,0
color,window.color
window.text,screen.x1,screen.y1,screen.x2,screen.y2
window.text.clear,screen.x1,screen.y1,screen.x2,screen.y2
window.text.print,screen.x1,screen.y1,screen.x2,screen.y2,s
getcolor,p1,white,blue,0
color,window.color
memfill,window.ss,45,132
memfill,window.ss,124,120
memfill,window.ss,45,12
eval,n,window.ss+256
mem.poke,n,0
window.text,window.x1,window.y1,window.x2,window.y2
window.text.clear,window.x1,window.y1,window.x2,window.y2
window.text.print,window.x1,window.y1,window.x2,window.y2,window.ss
eval,window.x1,window.x1+1
eval,window.x2,window.x2-1
eval,window.y1,window.y1+1
eval,window.y2,window.y2-1
let,window.ss,s
getcolor,p1,white,cyan,0
color,window.color
let,n,window.ss
mem.poke,n,0
window.text,window.x1,window.y1,window.x2,window.y2
window.text.clear,window.x1,window.y1,window.x2,window.y2
window.text.print,window.x1,window.y1,window.x2,window.y2,window.ss
locate,window.x1,window.y1,0
input,window.ss,7
eval,window.x1,window.x1+20
eval,window.x2,window.x2+20
pointer,p2,window.x1
window.text,window.x1,window.y1,window.x2,window.y2
window.text.clear,window.x1,window.y1,window.x2,window.y2
window.text.print,window.x1,window.y1,window.x2,window.y2,window.ss
locate,0,0,0
function,getcolor
const,0,1,2,4
integer,i,0
eval,i,argv1*16+argv2
pointer.to,argv0,i