This code was donated by Stewart Levin of Mobil Oil. It is for the use
parlib readers for instructional purposes. The codes give examples of the
same problem solved on many architectures. No warranty is expressed or
implied.