pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.highlight .cp { color: #cc0000; font-weight: bold } /* Comment.Preproc */
.highlight .cpf { color: #888888 } /* Comment.PreprocFile */
.highlight .c1 { color: #888888 } /* Comment.Single */
.highlight .cs { color: #cc0000; font-weight: bold; background-color: #fff0f0 } /* Comment.Special */
.highlight .gd { color: #000000; background-color: #ffdddd } /* Generic.Deleted */
.highlight .ge { font-style: italic } /* Generic.Emph */
.highlight .ges { font-weight: bold; font-style: italic } /* Generic.EmphStrong */
.highlight .gr { color: #aa0000 } /* Generic.Error */
.highlight .gh { color: #333333 } /* Generic.Heading */
.highlight .gi { color: #000000; background-color: #ddffdd } /* Generic.Inserted */
.highlight .go { color: #888888 } /* Generic.Output */
.highlight .gp {
# Guess the result of mixing two colors.

fn main screen: (addr screen), keyboard: (addr keyboard), data-disk: (addr disk) {
  var second-buffer: screen
  var second-screen/edi: (addr screen) <- address second-buffer
  initialize-screen second-screen, 0x80, 0x30, 1/include-pixels
  var leftx/edx: int <- copy 0x80
  var rightx/ebx: int <- copy 0x380
  {
    compare leftx, rightx
    break-if->=
    clear-screen second-screen
    # interesting value: 9/blue with 0xe/yellow
    color-field second-screen, leftx 0x40/y, 0x40/width 0x40/height, 1/blue
    color-field second-screen, rightx 0x41/y, 0x40/width 0x40/height, 2/green
    copy-pixels second-screen, screen
    # on the first iteration, give everyone a chance to make their guess
    {
      compare leftx, 0x80
      break-if->
      var x/eax: byte <- read-key keyboard
      compare x, 0
      loop-if-=
    }
    leftx <- add 2
    rightx <- subtract 2
    loop
  }
}

fn color-field screen: (addr screen), xmin: int, ymin: int, width: int, height: int, color: int {
  var xmax/esi: int <- copy xmin
  xmax <- add width
  var ymax/edi: int <- copy ymin
  ymax <- add height
  var y/eax: int <- copy ymin
  {
    compare y, ymax
    break-if->=
    var x/ecx: int <- copy xmin
    {
      compare x, xmax
      break-if->=
      pixel screen, x, y, color
      x <- add 2
      loop
    }
    y <- increment
    compare y, ymax
    break-if->=
    var x/ecx: int <- copy xmin
    x <- increment
    {
      compare x, xmax
      break-if->=
      pixel screen, x, y, color
      x <- add 2
      loop
    }
    y <- increment
    loop
  }
}