byte lives

define main routine
  inputs lives
  outputs lives
  trashes a, x, z, n, c, v
  {
      ld a, 0
      st a, lives
      ld x, lives
      st off, c
      add x, 1
      st x, lives
  }