1 fn draw-box-on-real-screen x1: int, y1: int, x2: int, y2: int, color: int {
 2   draw-horizontal-line-on-real-screen x1, x2, y1, color
 3   draw-vertical-line-on-real-screen x1, y1, y2, color
 4   draw-horizontal-line-on-real-screen x1, x2, y2, color
 5   draw-vertical-line-on-real-screen x2, y1, y2, color
 6 }
 7 
 8 fn draw-horizontal-line-on-real-screen x1: int, x2: int, y: int, color: int {
 9   var x/eax: int <- copy x1
10   {
11     compare x, x2
12     break-if->=
13     pixel-on-real-screen x, y, color
14     x <- increment
15     loop
16   }
17 }
18 
19 fn draw-vertical-line-on-real-screen x: int, y1: int, y2: int, color: int {
20   var y/eax: int <- copy y1
21   {
22     compare y, y2
23     break-if->=
24     pixel-on-real-screen x, y, color
25     y <- increment
26     loop
27   }
28 }