mim/mim/mimlib/sortx.msubr

   1 <PACKAGE "SORTX">
   2 <RENTRY SORT>
   3
   4 <SETG \1asort-IMSUBR #IMSUBR [|AAACFSFQD]AAAEDMBCCOH\AEH[DAAAAAAKDAAAAAASDAAAAAAUBMH]AAAAAACABMH]AAAAAAABBMH[H`HUCCE_BEAACZECDMACCCECB]GCB]H]AHEHCCE_BMH]AAAMACGCBMGNBGAOBMGVBMHNAAAEBMHNAAAIBMHNAAAMBMHNAAAQBMHNAAAUBMHNAAAYBMHNAAA]B]GCB]H]AHEHBMGNAGFOAAAAAABAH`H]BKCDBMH]AAAAABCBCCE_CCE_CCE_BMH[H`EYCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_BMH[H`ECCCE_CCE_CCE_CCE_CCE_BMH[H`DUCCE_CKFZA`H`H`HIDHAECOFYABBYBOBNAAA]CSEHAMDNACCHAAAKDGBYBADNAAAMBCBQD_HYBCDQD_H]BABNAAAIBLCIAABUBLCAAABQBMBNAAAUCBHQDOAACICGEQEGBQB]ACCHBLCJAACEBLCBAACABLCHAAB]DAAAABBOAMDNAHGGAAAKDGBWBADNAAAMBCDQD]H]BABNAAAIBLCIAABUBLCAAABQBMBNAAAUCBHQDMAACICGEQEGBQB]AHGGBLCJAACEBLD[H_HMAACABLCHAAB]DAAAAAHQAMDNABABAAAKDGAAAAEGBADNAAAMBABNAAAIBLCHAAB]CTEHCKEHDPBCCKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEHBAB]AAAAABABCKEHDPAGBAB[H`HWDAG_BCAYBCCQBADNAAAMBABNAAAIBMBNAAAUBLCIAABUBLCAAABQBLCJAACEBLCBAACACKEGDPBACKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEGBAB[H`F[CKEGDPAGBAB[H`FSDAHABLCGAACMBLD[H_CYAACIDADAAMDNAHEHAAAKDGB[BADNAAAMBCBQD_HYBCDQD_H]BABNAAAIBQB]ACCHBLCIAABUBLCAAABQBMBNAAAUCBHQDOAACICGEQEGBQB]ACCHBLCJAACEBLCBAACABLCHAAB]DAA_COFYAAFUBMHMAAAQBMHMAAAUDQABBADMAAA]COFYAAF[BKDNH`H]COHYAAFOBLCIAACUBLCAAACQCKDNAABADPAAAAHGCOFYAAFUBMHNAAAIBMHNAAAMDQABBADMAABECOFYAAF[BOAICMDNDYAHAAAUBADNAABEBABNAABABLCIAAC]BLCAAACYBLCHAADECKFZA`H`H`HIDHAECOFYABBYCKDNAACYDPAAAAFABADNAAC]BCAQBCDIAAAECTDNAACYCQEICKDNAACYDOAED_ABDAAKBOBIAAAECTDNAACYCQEICOFYAAFUBMGBBMGJDQABBLCIAAC]B\D]ACCHAAC[BADMAABEBLCJAADMBLCBAADIBLCHAADUBLD[H^CSAADQCOFYAAF[BOAICMDNDYAHAADUBLCIAAD]F_FNAADEDGAYBOAICMDNDYAGAADUBLCGAACMBLD[H^BKAACICKEGDHAAH`DSCOFYAAFUBMHMAABIBMHMAABMBMHNAADIBMHNAADMDQACBADMAAA]COFYAAF[DAAAH`CQAMDNABGFAACCDHAIAMDNADCCAACCDGAQBADMAABUBLCIAABMBLD]AAAKADCCAABICKFZA`H`H`HIDHAECOFYABBYAMDNACCHAACSDGAKCKDNAACQDOAAABGSDAA[AMDNAHGGAACSDGAKCKDNAACQDOAAABGADAAICKFNAACUDGAAABFWAMDNACCHAABSDGAWBOBNAAAUBADNAABUCBHQD_AAE`DNAABQBLCIAABUDADAAMDNAHGGAABSDGAWBOBNAAAUBADNAABUCBHQD]AAE`DNAABQBLCIAABUDACCBOBNAAAUBLCHAAC]BLD[H]DAAACYCKEHDPBQBADNAABUCKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEHBLCHAAC]BLD[H]B]AACYBLCIAABUBLD[H^ECAABQCKEHDPACDAGUCOFYAAFUBMHNAABQBMHNAABUBMHNAAAQBMHNAAAUDQACBADMAAB]COFYAAF[FQD]ABCBDHAQBADNAAAMBABNAAAIBKDNH`H]COHYAAFOAMDNACCHAABSDGB[BOBNAAB]BADNAABUBCBQD_HYBCDQD_H]BMBNAAAUCBHQDOAABAAGCICACEEAGQFNAABQBQB]ACCHBLCIAACUBLCAAACQBLCJAACEBLCBAACADAAAAAGCAMDNAHGGAABSDGBYBADNAABUBOBNAAB]BCDQD]H]BMBNAAAUCBHQDMAABAAGCICACEEAGQFNAABQBQB]AHGGBLCIAACUBLCAAACQBLCJAACEBLD[H\D[AACADAAAAAECBOBNAAB]BADNAABUBABNAABQCTEHCKEHDPBACKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEHBAB[H]E]CKEHDPAGBAB[H]EUDAHABCAYBCCQBMBNAAAUBADNAABUBABNAABQBLCJAACEBLCBAACACKEGDPBACKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEGBAB[H]DACKEGDPAGBAB[H]CYDAHABLCIAACUBLCAAACQBLCGAACMBLD[H[HWAACIAMDNACCHAABSDGBACOFYAAFUBMHNAACQBMHNAACUBMHNAABYBMHNAAB]DQACBADMAACECOFYAAF[DACGAMDNAHGGAABSDGBACOFYAAFUBMHNAACQBMHNAACUBMHNAABYBMHNAAB]DQACBADMAACECOFYAAF[DAA_COFYAAFUBMHNAACQBMHNAACUBMHNAABYBMHNAAB]DQACBADMAACECOFYAAF[AMDNABCBAAACDHBOCOFYAAFUBMHNAACABMHNAACEBMGABMGIDYACBLCIAADMBLCAAADIBAAVBADNAAAECOFYACCMFQD]ABCBDHAAABG]DAC[CKFNAABMDHBKBKAABCCIBIBNAACABLCIAADMBLCAAADIBADNAACECOFYACGWBLCEAADUBLD[H[BKAADQCKEEDPAAABFMDABKCOFYAAFUBMHNAACABMHNAACEBMGABMGIBLCIAADMBLCAAADIDQACBADMAACMCOFYAAF[FQD]ABCBDHAAABEABADNAADMBABNAADIBMH]AAAAAICCBMH]AAAAAGDUBMGNBCDNH`H]CKDJH`H]DNAEBCDJH`H]BMGJBMHNAABQBMHNAABUBMHNAACQBMHNAACUBMHNAAAQBMHNAAAUBLCIAACEBLCAAACACLHOH`HIDQADDAAAABGGCKDNAABADPAAABBIBADNAABEBABNAABABLCIAACMBLCAAACICKFZA`H`H`HIDHAECOFYABBYCKDNAACIDPAAABAEBADNAACMBCAQBCDIAAAECTDNAACICQEICKDNAACIDOAED_ABDAAKBOBIAAAECTDNAACICQEIBMH[H`DIBMH]AAAAAHE_BMGNBEDNH`H]CKDKH`H]DNAEBEDKH`H]BMGKCOFYAAFUBMGBBMGJCOFYAAFUBMHNAABQBMHNAABUDQABBLCIAACMB\D]ACCHAACKBADMAABEBLCJAADMBLCBAADIBLCHAADUBLD[HZAGAADQCOFYAAF[BOAICMDNDYAHAAAUCEEHG_FNAADECMBNDYAAAADUBMH[HYHIBMGHDQACBADMAACUCOFYAAF[BMGABMGICOFYAAFUBMHNAADIBMHNAADMCOFYAAFUBMHNAACQBMHNAACUDQABBADMAABECOFYAAF[BOAICMDNDYAHAAAUCEEHG_FNAADECMBNDYAAAADUBMH[HYE_BMGHDQACBADMAACUCOFYAAF[BMGABMGIBMHNAADQBMHNAADUCLHOH`HIDQADDAAAAAE]DAAAH_HMAMDNACCHAACSDGA]BOBNAAAUBADNAACUCBHQD_AAE`DNAACQBLCIAACUBLCIAACUDAAAH\DWAMDNAHGGAACSDGA]BOBNAAAUBADNAACUCBHQD]AAE`DNAACQBLCIAACUBLCIAACUDAAAH\CSBOBNAAAUBLCHAAC]BLD[HYBEAACYCKEHDPAAH\B_BADNAACUBCDNAAC]CKFZA`H`H`HIDHAECOFYABBYBADIH`H]CTEJBOAJDPACDAHIBLCIAACUBLD[HZCEAACQBLCJAAC]BLD[HXHKAACYDAAAH\AGAAAACCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYAMDNACCHAAACDGAAAAGEAMDNACCHAAAKDGAAAAF[BQD]AAAABCDNAAAEBCAVBEDNAAAMBEBNAAAIBLCKAAA]BLCCAAAYBLCJAABEBLCBAABABLCIAABMBLD[HXHIAABICKFZA`H`H`HIDHAECOFYABBYCKDNAABADPAAACAUCKDNAAAYDPAAACAMBADNAABEBABNAABABCDNAAA]BCBNAAAYBEAQBEDIAAAEBGARBGDJAAAEBAEDBBCLAAAEBCECBDCKAAAECTFNAAAUCKFNAAAUDHAGBUD]AAAADAAMBADMAABUBABMAABQCOHYAAFOGQF]H`H`AAAACQEIGSF[H`HYCQEJBLCIAABEBLCAAABABLCJAAA]BLCBAAAYBLCKAABMBLD[HXDAAABIDAAAH`DWAMDNAHGGAAACDGAAAAFYAMDNAHGGAAAKDGAAAAFOBQD]AAAABCDNAAAEBCAVBEDNAAAMBEBNAAAIBLCKAABEBLCCAABABLCJAAA]BLCBAAAYBLCIAABMBLD[HXA]AABICKFZA`H`H`HIDHAECOFYABBYCKDNAAAYDPDCCKDNAABADPC]BADNAAA]BABNAAAYBCDNAABEBCBNAABABECQBGCRBAELBCEKCTFNAAAUCKFNAAAUDHAGBUD]AAAADAAMBADMAABUBABMAABQCOHYAAFOGQF[H`CICYEIGSF[H`CCCYEJBLCIAAA]BLCAAAAYBLCJAABEBLCBAABABLCKAABMBLD[HWFKAABIDAEMBADNAABMBABNAABICOHYAAFOAMDNABABAAACDHAMBQD]AAAABAB[HWEKCOHYAAFOAMDNABABAAAKDHAMBQD]AAAABAB[HWDWCOHYAAFOBQD]AAAABCDNAAAEBCAVBEDNAAAMBEBNAAAIBLCKAAA]BLCCAAAYBLCJAABEBLCBAABABLCIAABMBLD[HWCIAABICKFZA`H`H`HIDHAECOFYABBYCKFNAABEDHDUCKFNAAA]DHDOBADNAABEBABNAABABCDNAAA]BCBNAAAYBEAQBEDIAAAEBGARBGDJAAAEBAEDBBCLAAAEBCECBDCKAAAECTFNAAAUCKFNAAAUDHAGBUD]AAAADAAMBADMAABUBABMAABQCOHYAAFOBADIH`H]BCDJH`H]BLCJAAA]BLD[HWGOAAAYBLCIAABEBLD[HWGEAABABLCKAABMBLD[HVGGAABIDAAAH`D]BADNAABMBABNAABICOHYAAFOAAAAAAAA| sort-IMSUBR BAD-SORT-RECORD!-ERRORS ERROR LENGTH
   5 INCONSISTENT-SORT-RECORD!-ERRORS T LENGTH? NTH G? REST ]>
   6 <SETG \1aSORT #MSUBR [sort-IMSUBR SORT ("VALUE" ANY <OR FALSE APPLICABLE> ANY
   7 "OPTIONAL" FIX FIX "TUPLE" ANY) 0]>
   8 <SETG \1aSWITCH #MSUBR [sort-IMSUBR SWITCH ("VALUE" <OR ATOM FALSE> ANY ANY FIX)
   9  2104]>
  10 <ENDPACKAGE>