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
|
recipe main [
default-space:address:array:location <- new location:type, 30:literal
switch-to-display
draw-bounding-box 0:literal/screen, 5:literal, 5:literal, 30:literal, 45:literal
wait-for-key-from-keyboard
return-to-console
]
recipe draw-bounding-box [
default-space:address:array:location <- new location:type, 30:literal
screen:address <- next-ingredient
top:number <- next-ingredient
{
out?:boolean <- lesser-than top:number, 0:literal
break-unless out?:boolean
top:number <- copy 0:literal
}
left:number <- next-ingredient
{
out?:boolean <- lesser-than left:number, 0:literal
break-unless out?:boolean
left:number <- copy 0:literal
}
bottom:number <- next-ingredient
{
height:number <- screen-height screen:address
out?:boolean <- greater-or-equal bottom:number, height:number
break-unless out?:boolean
bottom:number <- subtract height:number, 1:literal
}
right:number <- next-ingredient
{
width:number <- screen-width screen:address
out?:boolean <- greater-or-equal right:number, width:number
break-unless out?:boolean
right:number <- subtract width:number, 1:literal
}
#? print-integer screen:address, bottom:number
#? print-character screen:address, 32:literal/space
#? print-integer screen:address, right:number
# top border
move-cursor screen:address, top:number, left:number
print-character screen:address, 9484:literal/down-right, 245:literal/grey
x:number <- add left:number, 1:literal # exclude corner
{
continue?:boolean <- lesser-than x:number, right:number
break-unless continue?:boolean
print-character screen:address, 9472:literal/horizontal, 245:literal/grey
x:number <- add x:number, 1:literal
loop
}
print-character screen:address, 9488:literal/down-left, 245:literal/grey
# bottom border
move-cursor screen:address, bottom:number, left:number
print-character screen:address, 9492:literal/up-right, 245:literal/grey
x:number <- add left:number, 1:literal # exclude corner
{
continue?:boolean <- lesser-than x:number, right:number
break-unless continue?:boolean
print-character screen:address, 9472:literal/horizontal, 245:literal/grey
x:number <- add x:number, 1:literal
loop
}
print-character screen:address, 9496:literal/up-left, 245:literal/grey
# left and right borders
x:number <- add top:number, 1:literal # exclude corner
{
continue?:boolean <- lesser-than x:number, bottom:number
break-unless continue?:boolean
move-cursor screen:address, x:number, left:number
print-character screen:address, 9474:literal/vertical, 245:literal/grey
move-cursor screen:address, x:number, right:number
print-character screen:address, 9474:literal/vertical, 245:literal/grey
x:number <- add x:number, 1:literal
loop
}
# position cursor inside box
move-cursor screen:address, top:number, left:number
cursor-down screen:address
cursor-right screen:address
]
|