editt     delet
     fpakb     inser
     fpakb     headr
     * Convert the 5-digit number in )01 to a 3-character address    )0D
     * in )02 using )03, which must be an index register.            )0D
     * Requires a word mark at )03-2.  Clobbers )03&1                )0D
     *                                                               )0D
               incldzonea
     )00       mn   )01,)02
               mn
               mn 
               za   )01-2,)03&1
               mz   zonel&)03,)02    Thousands / 4
               mz   zoneh&)03,)02-2  Thousands mod 4
     fpakc     inser
     fpakc     headr
     *    Convert the 5-digit number in )01&4 to a 3-character       )0D
     *    address in )02&2 using )03, which must be an index         )0D
     *    register.                                                  )0D
     *    Requires a word mark at )03-2.  Clobbers )03&1             )0D
     *                                                               )0D
               incldzonea
     )00       mn   )01&4,)02&2
               mn
               mn 
               za   )01+2,)03&1
               mz   zonel&)03,)02&2    Thousands / 4
               mz   zoneh&)03,)02      Thousands mod 4
     icode     delet
     index     delet
     seqnc     delet
     sort7     delet
     topen     delet
     wcscs     delet
     zon       inser
     zonea     headr
     zonel     equ  *&1
               dcw  @9999zzzzrrrriiii@  Low zone, indexed by thousands
     zoneh     equ  *&1
               dcw  @9zri9zri9zri9zri@  High zone, indexed by thousands