begin
  integer scalar, s = '0'

  routine READBINARY(integername N)
    N = N<<1 ! (S-'0')
  end

  READBINARY(scalar)
endofprogram