1 fn draw-text-rightward screen: (addr screen), text: (addr array byte), x: int, y: int, color: int {
 2   var stream-storage: (stream byte 0x100)
 3   var stream/esi: (addr stream byte) <- address stream-storage
 4   write stream, text
 5   {
 6     var g/eax: grapheme <- read-grapheme stream
 7     compare g, 0xffffffff  # end-of-file
 8     break-if-=
 9     draw-grapheme screen, g, x, y, color
10     add-to x, 8  # font-width
11     loop
12   }
13 }