begin

  ! similar code in test-junk/chess9.imp fails to
  ! indirect on y for reasons completely unknown.
  ! I haven't yet been able to reproduce the bug.
  
  routine do2(integername x, y)
    integer p, q
    x = p - 65 + 1
    y = q - 48
  end
endofprogram