     fpaka     headr
     * Convert the 5-digit number in )01 to a 3-character address    )0E
     * in )02 -- )03 using X)04.  )03 must be )02+2.                 )0E
     * This is required because of a limitation in Autocoder, which  )0E
     * cannot handle things like 2+A+X2 or A+X2+2.                   )0E
     *                                                               )0E
               incldzonea
     )00       mn   )01,)03
               mn
               mn 
               sar  *&4
               mcw  0,)04
               mcw  @0@
               mz   zonel&)04,)03  Thousands / 4
               mz   zoneh&)04,)02  Thousands mod 4
