end_of_shell_code = $
rb end_of_shell_code
repeat end_of_shell_code
  load xxx byte from end_of_shell_code - %
  xx1 = (xxx and 0xF) + '0'
  xx2 = (xxx shr 4) + '0'
  if xx1 > '9'
    xx1 = xx1 - '9' + 'A'
  end if
  if xx2 > '9'
    xx2 = xx2 - '9' + 'A' - 1
  end if
  store word xx2 + (xx1 shl 8) at (end_of_shell_code - %) shl 1
end repeat