title: PIN Block format 01 Progress 4gl
body: <p>How can I implement PIN Block Format 01? so I could get the output like this:</p>
  
  <pre><code>accnum            pin1   pin2
  ----------------  -----  ----------------
  6034000001234562  92389  0592789FFFEDCBA9
  </code></pre>
  
  <p>I don't know how to implement xor bitwise.
  Thank you.</p>