mim/mim/mimlib/trace.msubr

   1 <PACKAGE "TRACE">
   2 <ENTRY TRACE UNTRACE TRACE-LIST TRACE-PRINTER IN-PRINT OUT-PRINT IN-BREAK
   3 OUT-BREAK TFUNCT TARGS TVALUE>
   4 <USE "NEWSTRUC" "TTY">
   5 <NEWSTRUC TAPPLICABLE LIST TAPP <OR MSUBR FUNCTION> TATOM ATOM IN-PRINT ANY
   6 OUT-PRINT ANY IN-BREAK ANY OUT-BREAK ANY TPRINTER ATOM>
   7 <SETG TRACE-PRINTER PRIN1>
   8 <GDECL (TRACE-PRINTER) ATOM>
   9
  10 <SETG \1atrace-IMSUBR #IMSUBR [|AAAGAUCOH\AEACDAAAAAAGDAAAAAAKBMH]AAAAABABCCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDGAOBQD]AAAABAB]AAAAABCBCOHYAAFOBADNAAAEAMDIADCCAAACDGBKBMH]AAAAAICCBMH]AAAAAADOBMGNBMHNH`H]DMAEBNCNH`H]BMGVBMGICLHOH`HYDQABDAAAAAEECOHYAAFOBSD]AAAABLCIAAAMBLD[H`ESAAAIBLCJAAAUBLD[H`FOAAAQCKFZA`H`H`HIDHAECOFYABBYCKFNAAAMDHCGBMH[H`FMBMH]AAAAAAGGBMGNBMHNH`H]DMAEBNCNH`H]BADNAAAMBMGQBMHIAAAECLHOH`HYDQABDAAAAABMBCDNAAAMBCDJH`H]BLCJAAAMBLD[H`B[AAAIBLCIAAAUBLCAAAAQDAFIBADNAAAUBABNAAAQCOHYAAFOAAAABMH[H`CCCCE_BMH[H`B]CCE_BMHMAAAQBMHMAAAUCCE_CCE_CCE_CCE_CCE_CCE_BMH]AAAKADCCCCE_CKFZA`H`H`HIDHAECOFYABBYCKFZA`H`H`HIDHAECOFYABBYBADMAAAUCKFNAAAEDGAAAAEQAMDNABCBAAAKDGDIAMDNABCBAAASDGDABCDNAABEBEDJH`H]BEDKH`H]BEDKH`H]BLCKAABMBLD[H_FMAABIAMDKABCBAAACDGB_BGDJH`H]D_ADBGDLH`H]CRGPH`H[AMDLABCBAAACDGBIBEDJH`H]BEDKH`H]BFDMAAAUAAAEBEFMAAAQBEDJH`H]BEDKH`H]BEDKH`H]BFDMAAAUAAAEBEFMAAAQCKDNAABCDGAMBQD]AAAABAB[H_D]COHYAAFOBADNAABEBABNAABACOHYAAFOBCDNAAAEAMDJADCCAAACDGAAADF]BEDJAAAEBGDJH`H]BLCIAAA]BCB[H`BMBOALDHBYBGDJH`H]BCATBCDLAAAEBLCJAABMBLCBAABIFSD]AEABDHAQFSD]AGGCDHAKBCB[H`AGFSD]AHACDGAQBCDNAAAEBGDJH`H]BCA\BCCTBLCJAAA]BABKAAAKBQB]ABGFBADKAAAMBIAABLCIAABMBLCAAABIBKBMAAAYBCDMAAA]COFYACGQDAAAAAD[CKDNAABCDHA_BADNAABEBCDIH`H]BCDJH`H]BCDJH`H]BCEBBDDNAAA]AAAEBLCBAAAYDAASBADNAAA]BAABBLCIAAAMBLCAAAAIBLCAAAAYCKDNAABCDHBEBADNAABEBCDIH`H]D_ADBCDJH`H]CRGPH`H[BCFNAAAYBDDNAAA]AAAEBLCKAAB]DAAAADAQBADNAAA]BABNAAAYBLCIAAAUBLCAAAAQBLCKAAB]DAAAACHYBABKAAAKBQB]ABGFBADKAAAMBIAABLCIAABUBLCAAABQBKBMAABABCDMAABECOFYACGQDAAAAACGCKDNAABCDHBEBADNAABEBCDIH`H]BCDJH`H]BCDJH`H]BCEBBDDNAAA]AAAEBLCBAAAYBLCKAAB]DAAAACFIBADNAAA]BAABBLCIAAAMBLCAAAAIBLCKAAB]BLCAAAAYDAAAACEOBABKAAAKBQB]ABGFBADKAAAMBIAABLCIAABMBLCAAABIBKBMAABIBCDMAABMCOFYACGQDAAAAACICKDNAABCDHBGBADNAABEBCDIH`H]D_ADBCDJH`H]CRGPH`H[BCEBBDDNAAA]AAAEBLCKAAB]BLCBAAAYDAAAACB]BADNAAA]BAABBLCIAAAUBLCAAAAQBLCAAAAYBLCKAAB]DAAAACBCBACSBOAIDHAAABGSBAAQBADIAAAECKCADHAAABGGBACSBAAQBADIAAAEFQDMAABWDGAAAAF[BCDIH`H]BCDJH`H]BCFNAAAIBDDNAAAMAAAEBCDIH`H]D_ACBCDJH`H]CRGPH`H[BCFNAAAQBDDNAAAUAAAEBCDIH`H]BCDJH`H]BCDJH`H]BCF[H]CACCFJAAAEBCDIH`H]D_ADBCDJH`H]CRGPH`H[BCF[H]BKCCFJAAAEBGDMAAB]BGA\BGCTBCDIH`H]D_AEBCDJH`H]CRGPH`H[BCEDBDCLAAAEBCCSBOAJDHA[BCEABDCIAAAEBLCIAABEBLCAAABABLCBAAAYBLCKAAB]DAAAABDOCOFYAAFUBMHNAABYBMGKBMGABMGIDQACBADMAACEBLCBAAAYCOFYAAF[BLCIAABEBLCAAABADAAAABCGFQD]ACEHDHAIFQD]AFCBDGAAAAGKBMH[H\GGBMH]AAAAAEFYBMGNBMHNH`H]DMAEBNCNH`H]BMHNAABYBMGKBLCIAABMBLCAAABIBLCBAAAYBLCKAAB]CLHOH`HYDQABDAAAABCOBMHNAABIBMHNAABMBMHNAABYBMHNAAB]BMHNAAAIBMHNAAAMBMH[H\DCCCE_BMHNAAAQBMHNAAAUBMH[H\CUCCE_BADMAAB]BMGYBMGQDYAHCOFYAAHQBCDNAAB]BECRBOAKDHAOBFCIAAAEBEFMAACMBABMAACMDAA[COFYAAFUBMHNAABYBMGJBMHMAACMBMGIDQACBADMAACECOFYAAF[BCDMAACUBCAZBCCRBIAABKAIBACJBLCFAABEBLCEAABACOFYAAGABCDMAACUBCH[H[GKBCEIDADOCOFYAAFUBMHMAACYBMHMAAC]BMHNAABYBMGKBMGABMGIDQADBADMAADEBLCBAAAYCOFYAAF[DACICOFYAAFUBMHMAADIBMHMAADMBMHNAABYBMGKDQACBADMAADEBLCBAAAYCOFYAAF[DABGCOFYAAFUBMHMAADQBMHMAADUBMGRBMHJAAAEDQACBLCIAAA]BLD[H\DGAAAYBADMAADECOFYAAF[BADNAAAEBADIH`H]BLCIAAAEBOAIDHAAH\C]BADNAAAEAMDIADCCAAACDHAAH\COBADNAAAEBOBIAAAEF_FNAAA]DGAAH\B_BMAQF]DNAAA[DGAAH\BUBADNAAAEBADIH`H]BLCIAAAEDAAAH\BEAAAABEAAB]GCB]H]AHEHCCE_BMH]AAAMACGCBMGNBGAOB]GCB]H]AHEHBMGNBKCDCCE_CCE_CCE_CCE_CCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKCVDOAAAAHABADMAACUBAAYBACQBLCIAAAEBKEACKFZA`H`H`HIDHAECOFYABBYCKFNAAAEDHAAAAFEBADNAAAEBCAQBCDIAAAEBEDJH`H]BGDKAAAEBEARBEDJAAAEBACTBOAIDHA[BAECBBCKAAAEBLCLAAA]BLD[H[ECAAAYBLCJAAAMBLCBAAAIDABICOFYAAFUBMH[H[DOBMGLBMGCBMGKDQACBADMAACEBLCJAAAMBLCBAAAICOFYAAF[BLCIAAAUBLCAAAAQBMH[HZECBMH]AAAAAGHUBMGNBADNH`H]CKDIH`H]DNAEBADIH`H]BMGIBMHNAAAIBMHNAAAMCLHOH`HYDQABDAAAADEKBADNAAAEBADIH`H]BLCIAAAEBKF[HZAMDAAAH`CMBADMAACUBAH[HZAACCEQBQD]AAAABAB[HYHWBKDNH`H]COHYAAFOCKFZA`H`H`HIDHAECOFYABBYCKCVDOAQBADMAAAUBABMAAAQBKDNH`H]COHYAAFOBADNAAAEBCDIAAAEBECRBLCJAAAMBLD[HZGAAAAIBOAKDHAAADAQBEASBEDKAAAECKCCDHAAADAEBEDMAACUBEA[BECSBLCKAABEBLCCAABACKFZA`H`H`HIDHAECOFYABBYCKFNAABEDGAAAAEOBADNAAAMBACQBAAQFQDMAABWDGAAACGQBMH[HYFMBMH]AAAAAHGOBMGNBADNH`H]CKDIH`H]DNAEBADIH`H]BMGIBADNAAAMBACQBMGQBMHIAAAECLHOH`HYDQABDAAAACFQBADNAAAMBACQBAAQBADIAAAEBCAQBCDIAAAEBADNAAAMBECQBOAKDHAKBEEBBFCJAAAEDAAAACDYCOFYAAFUBMHNAAAIBMGIBMGBBMGJDQACBADMAACECOFYAAF[BLCIAAAUBLCAAAAQDAAAACCUBADNAABEBCDIAAAEBCDJH`H]BOBJAAAEF_FNAAAMDGAAAAE]BEDNAAAMBECSBAASBLCJAAAUBLD[HXGQAAAQFQDMAABWDGB]BEDIAAAEBCASBCDKAAAEBEDNAAAMBGCSBOALDHAIBGEBBHCJAAAEDABACOFYAAFUBMHNAAAIBMGKBMGBBMGJDQACBADMAACECOFYAAF[BLCIAAAUBLCAAAAQBMH[HXGEBMH]AAAAAIFUBMGNBADNH`H]CKDIH`H]DNAEBADIH`H]BMGIBADNAABEBMGQBMHIAAAECLHOH`HYDQABDAAAABGKBADNAABEBCDIH`H]BADMAACUBAH[HXCMBAEJDAAAABFCBABNAABAD_ABBMAIDHASCTEHCKEHDNAAAAFKBADIH`H]BAB[HXBMDAHKBCDNAAAMBCCRBCARBLCHAAA]BLD]AAAAAACAAAAYBLCIAAAUBLCAAAAQFSDMAABWDGAAABDCBCDNAAAMBCCRBCARBCDJAAAEBEARBEDJAAAEBCDNAAAMBGCRBOALDHAIBGECBHCKAAAEDABACOFYAAFUBMHNAAAIBMGJBMGCBMGKDQACBADMAACECOFYAAF[BLCIAAA]BLCAAAAYBMH[HWH[BMH]AAAAAJEABMGNBADNH`H]CKDIH`H]DNAEBADIH`H]BMGIBADNAAAMBACQBMGQBMHIAAAECLHOH`HYDQABDAAAAAH_DAAAAAHIBCDNAABEBOBJH`H]BECHBGDKAAAEBGDLH`H]BOBLAAAEF_FNAAAMDGAAAAFGBEDNAAAMBECSBCASBLCLAAA]BLD[HWC_AAAYBLCIAAAUBLCAAAAQFSDMAABWDGCABGDJH`H]BEDLAAAEBGASBGDKAAAEBEDNAAAMBCCSBOAJDHAIBCEDBDCLAAAEDABACOFYAAFUBMHNAAAIBMGKBMGDBMGLDQACBADMAACECOFYAAF[BLCIAAA]BLCAAAAYBMH[HWCGBMH]AAAAAKBUBMGNBADNH`H]CKDIH`H]DNAEBADIH`H]BMGIBADNAABEBCDIH`H]BMGZBMGRCLHOH`HYDQABDAAAAACKBADNAABEBCDIH`H]BEDJH`H]BBCKH`H]DABEBCDJH`H]BLCJAABEBLD[HVF_AABABLCIAAAUBLCAAAAQBLCLAAA]BLD[HVFMAAAYDAAAH^AQCTCVCQFNAAAEB\D]ACCHAAACDAAAH]FKAAAACKFZA`H`H`HIDHAECOFYABBYBADNAAAEBCDIH`H]BCDJH`H]BCF[HVE_CCFJAAAEBCDIH`H]BCDJH`H]BCDJH`H]BCF[HVEKCCFJAAAEBCDIH`H]D_ACBCDJH`H]CRGPH`H[BCF[HVDUCCFJAAAEBCDIH`H]D_ADBCDJH`H]CRGPH`H[BCF[HVC_CCFJAAAEBABMAACMCOHYAAFOBEAACTECDMACCCECB]GCB]H]AHEHCCE_BMH[H\A[BMGNBGAOBMGVBMHNAAAEB]GCB]H]AHEHBMGNAGFOAAAAAAAIH`H]BKCDBMH]AAAQADACCCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBADZA`H`H`HYBCDNAAAEBEARBEDJAAAEBMH]AAASADBCBMGCBMGKBGDMAAD]BMGLBMHMAAEABMHMAAEEBMHZA`H`H`HYBMHLAAAEBMHZA`H`H`HUCDHOH`HABDGJA`H`H`HYBHCJAAAEBMH[H`GKBMHNAAAIBMHNAAAMBCDMAAEMBMGJBMHMAAEQBMHMAAEUBMHZA`H`H`HYBMHJAAAEBMHZA`H`H`HUCFHOH`HABDGKA`H`H`HYBDCKAAAEBMH[H`ESCCE_CCE_BCDMAAE]BMGJBMHMAAEABMHMAAEEBMHZA`H`H`HYBMHJAAAEBMHZA`H`H`HUCFHOH`HABDGKA`H`H`HYBDCKAAAEBCDMAAFEBCAZBCCRBAB]AAAAAUBUBEDNH`H]CKFKH`H]DLAEBEDKH`H]BMH[H`CCBMH[H[AQBMGKBGDMAAFMBMGLBMH[H]HIBMGABMHZA`H`H`HYBMHLAAAEBMHZA`H`H`HUCFHOH`HABDGKA`H`H`HYBHCKAAAECOFYAAFUBEDNAAAEBGDKH`H]BGDLH`H]BMG\BMGTDQABBLCIAAAUBADMAAFUBLCJAAAMBLCBAAAICOFYAAF[FQD]ABCBDHAAACBUCOFYAAGGDAAAAAAGDAAAACBIBMH[H]EGCCE_CCE_CCE_BMH]AAAAAHEHCCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBACNCKFIH`H]DLAEBADIH`H]BCDIH`HUBADMAAF]BAAYBACQBMH[H_EWBMGABMGIBEDMAAGEBMGKBMHMAAGIBMHMAAGMBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBACNCKFIH`H]DLAEBADIH`H]BMH[H_CWBMH[HZBEBMGIBEDMAAGUBMGKBMHMAAGYBMHMAAG]BMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBLCJAAAMBLD[HYHOAAAICOFYABA[CKFNAAAEDGAAABCWD_ABCOFYAAFUBADMAAGEBCDIAAAEBMGRBMHJAAAEBMHMAAHABMHMAAHEDQACBADMAAHMBLCHAAAECOFYAAF[BADNAAAMBCBIAAAIBCDIAAAMBOAJDPA[COFYAAFUBCBIAAAIBCDIAAAMBMGBBMGJDQABBADMAAHUCOFYAAF[COFYAAFUBMHMAAHYBMHMAAH]BADMAAGEBCDIAAAEBMGRBMHJAAAEDQACBADMABAECOFYAAF[COFYAAFUBADNAAAMBCAQBCDIAAAEBCDJH`H]BMGZBMGRBCDMAAGEBEDJAAAEBMGSBMHKAAAEDQACBADMABAMCOFYAAF[BADMAAEMBCDIAAAEBCARBCDJAAAEBSB]ACCHBLCJAAAUBLCBAAAQCKFZA`H`H`HIDHAECOFYABBYCKDNAAAQDPAAAAECBADNAAAUBCAQBCDIAAAECOFYAAFUBMH]AAAAAAEABMH]AAAAAABABEDMAAGEBGDKAAAEBMGTBMHLAAAEDQACBADMABAEBLCJAAA]BLCBAAAYCOFYAAF[COFYAAFUBADNAAAMBCAQBCDIAAAEBEDJH`H]D_AEBEDKH`H]CRGPH`H[BGDKAAAEBGCTBGATBGDLAAAEBMHNAAAYBMHNAAA]DYABBAADBACLCOFYACCMCTDNAAAQCQFNAAAUDAAAH`DOBADMAAAUBABMAAAQCOHYAAFOCOFYAAFUBADNAAAEBCDIH`H]D_ACBCDJH`H]CRGPH`H[BMGZBMGRDQABBADMAAFUCOFYAAF[FQD]ABCBDHAAABB_COFYAAGGDAAAAAAGDAAAABBSBMH[H[BICCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBACNCKFIH`H]DLAEBADIH`H]BCDIH`HUBADMAAF]BAAYBACQBMH[H]CEBMGABMGIBEDMAAGEBMGKBMHMAAGIBMHMAAGMBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBACNCKFIH`H]DLAEBADIH`H]BMH[H]AEBMH[HWGSBMGIBEDMAAGUBMGKBMHMAAGYBMHMAAG]BMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBLCJAAAMBLD[HWE]AAAICOFYABA[CKFNAAAEDGCED_ABCOFYAAFUBMHMABAQBMHMABAUBADNAAAMBCAQBCDIAAAEBCDJH`H]BMGZBMGRBCDMAAEMBEDJAAAEBMGSBMHKAAAEDQADBADMABA]COFYAAF[BADMAAAUBABMAAAQCOHYAAFOCOFYAAFUBMHMABAQBMHMABAUBADNAAAMBCAQBCDIAAAEBCDJH`H]BMGZBMGRDQACBADMABA]COFYAAF[BADMAAAUBABMAAAQCOHYAAFOBADNAAAMCSEIBCDMAAFEBCH[HYHOBCEICOFYAAFUBADMAAD]BCDIAAAEBCARBCDJAAAED_AABADMAAEMBEDIAAAEBEASBEDKAAAEBLCJAAA]BLCBAAAYCKFZA`H`H`HIDHAECOFYABBYFUF]AAAAH`H`DPASBMGSBMHKAAAEGUF]H`H`AAAACQEKCSEHDAG[BIAHBABNAAAYBADNAAA]COFYACCMBCDMAAE]BEDJAAAEBEEABFCIAAAEBADMAAFEBAHNAAAIBAFNAAAMCOFYAAFUBADNAAAEBCDIH`H]BCDJH`H]BCDJH`H]BMGZBMGRDQABBADMAAFUCOFYAAF[FQD]ABCBDHAAACACCOFYAAGGDAAAAAAGDAAAABHWBMH[HYB[CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBACNCKFIH`H]DLAEBADIH`H]BCDIH`HUBADMAAF]BAAYBACQBMH[H[CWBMGABMGIBEDMAAGEBMGKBMHMAAGIBMHMAAGMBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBACNCKFIH`H]DLAEBADIH`H]BMH[H[AWBMH[HUHEBMGIBEDMAAGUBMGKBMHMAAGYBMHMAAG]BMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBLCJAAAMBLD[HUFOAAAICOFYABA[CKFNAAAEDGAAABBQD_ABCOFYAAFUBADMAAGEBCDIAAAEBMGRBMHJAAAEBMHMAAHABMHMAAHEDQACBADMAAHMBLCHAAAECOFYAAF[BADNAAAMBCBIAAAIBCDIAAAMBOAJDPA[COFYAAFUBCBIAAAIBCDIAAAMBMGBBMGJDQABBADMAAHUCOFYAAF[COFYAAFUBMHMABBABMHMABBEBADMAAGEBCDIAAAEBMGRBMHJAAAEDQACBADMABAECOFYAAF[COFYAAFUBADNAAAMBCAQBCDIAAAEBEDJH`H]BMG[BMGSBCDMAAGEBEDJAAAEBMGSBMHKAAAEDQACBADMABAMCOFYAAF[COFYAAFUBMHMABBIBMHMABBMBADMAAGEBCDIAAAEBMGRBMHJAAAEDQACBADMABAECOFYAAF[COFYAAFUBADNAAAMBCAQBCDIAAAEBEDJH`H]D_AEBEDKH`H]CRGPH`H[BGDKAAAEBCCTBCARBCDJAAAEBEDMAAE]BGDKAAAEBMGTBMHLAAAEDYABBAABBACJCOFYACCMCOFYAAFUBMH[H\EUBMH[H\EWBADMAAGEBCDIAAAEBMGRBMHJAAAEDQACBADMABAECOFYAAF[BADMAAAUBABMAAAQCOHYAAFOCOFYAAFUBADNAAAEBCDIH`H]D_ADBCDJH`H]CRGPH`H[BMGZBMGRDQABBADMAAFUCOFYAAF[FQD]ABCBDHAAABB_COFYAAGGDAAAAAAGDAAAABBSBMH[HWAOCCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYBACNCKFIH`H]DLAEBADIH`H]BCDIH`HUBADMAAF]BAAYBACQBMH[HYBKBMGABMGIBEDMAAGEBMGKBMHMAAGIBMHMAAGMBMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBACNCKFIH`H]DLAEBADIH`H]BMH[HXHKBMH[HSFYBMGIBEDMAAGUBMGKBMHMAAGYBMHMAAG]BMHZA`H`H`HYBMHKAAAEBMHZA`H`H`HUCHHOH`HABDGLA`H`H`HYBFCLAAAEBLCJAAAMBLD[HSECAAAICOFYABA[CKFNAAAEDGCED_ABCOFYAAFUBMHMABBQBMHMABBUBADNAAAMBCAQBCDIAAAEBCDJH`H]BMGZBMGRBCDMAAE]BEDJAAAEBMGSBMHKAAAEDQADBADMABA]COFYAAF[BADMAAAUBABMAAAQCOHYAAFOCOFYAAFUBMHMABBQBMHMABBUBADNAAAMBCAQBCDIAAAEBCDJH`H]BMGZBMGRDQACBADMABA]COFYAAF[BADMAAAUBABMAAAQCOHYAAFOBADMAAE]BCDIAAAEBCARBCDJAAAEBADMAAFMBEDIAAAECCFKAAAEBEF[HUGEDAAOBADMAAFEBAHNAAAIBAFNAAAMDABEBADNAAAUBLCJAAA]BLCBAAAYCOFYAAG_G]H]H`DQBADNAAA]BABNAAAYBKDNH`H]COHYAAFOCOHYACB[AAAACOH\AEH_DAAAAAAGDAAAAAAGCCE_CCE_CCE_CCE_CKFZA`H`H`HIDHAECOFYABBYCKDNAAAKDGAQBADMAAGECOFYACFSBLCIAAAMBLCAAAAICOFYAAFUBMHMABBYBMHMABB]BMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[BADNAAAEBCDIH`H]BCDJH`H]AMDJADCCAAACDGAAAAEQBCDIH`H]BCDJH`H]BCDJH`H]AMDJADCCAAACDGD[BEDIH`H]D_ACBEDKH`H]CRGPH`H[AMDKABCBAAACDGDEBEDIH`H]D_ADBEDKH`H]CRGPH`H[AMDKABCBAAACDGCOCOFYAAFUBMH[HYH[BMH[HYH]BMHNAAAIBMHNAAAMDQACBADMABAEBLCJAAAUBLD[HKGYAAAQCOFYAAF[COFYAAFUBADNAAAEBCDIH`H]BMGZBMGRBMHNAAAIBMHNAAAMDQACBADMABAMCOFYAAF[DAAAACGGBCDIH`H]BCDJH`H]BLCJAAAUBLD[HKE]AAAQAMDJABCBAAACDHAAAAECCOFYAAFUBMHMABCABMHMABCEBMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[BADNAAAEBCDIH`H]BCDJH`H]BLCJAAAUBLD[HKC_AAAQAMDJADCCAAACDHCECOFYAAFUBMH[HYCUBMH[HYCWBMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[COFYAAFUBADNAAAEBCDIH`H]BCDJH`H]BMGZBMGRBMHNAAAIBMHNAAAMDQACBADMABAMCOFYAAF[BADNAAAEBCDIH`H]D_ACBCDJH`H]CRGPH`H[AMDJABCBAAACDHAAAAEECOFYAAFUBMHMABCIBMHMABCMBMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[BADNAAAEBCDIH`H]D_ACBCDJH`H]CRGPH`H[AMDJADCCAAACDHCKCOFYAAFUBMH[HXF]BMH[HXF_BMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[COFYAAFUBADNAAAEBCDIH`H]D_ACBCDJH`H]CRGPH`H[BMGZBMGRBMHNAAAIBMHNAAAMDQACBADMABAMCOFYAAF[COFYAAFUBMH[HXDSBMH[HXDUBMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[COFYAAFUBADNAAAEBCDIH`H]BMGZBMGRBMHNAAAIBMHNAAAMDQACBADMABAMCOFYAAF[BADNAAAEBCDIH`H]BCDJH`H]BCDJH`H]BLCJAAAUBLD[HJA[AAAQAMDJABCBAAACDHAAAAEKCOFYAAFUBMHMABCABMHMABCEBMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[BADNAAAEBCDIH`H]BCDJH`H]BCDJH`H]BLCJAAAUBLD[HIGYAAAQAMDJADCCAAACDHCICOFYAAFUBMH[HWGOBMH[HWGQBMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[COFYAAFUBADNAAAEBCDIH`H]BCDJH`H]BCDJH`H]BMGZBMGRBMHNAAAIBMHNAAAMDQACBADMABAMCOFYAAF[BADNAAAEBCDIH`H]D_ADBCDJH`H]CRGPH`H[AMDJABCBAAACDHAAAAEECOFYAAFUBMHMABCIBMHMABCMBMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[BADNAAAEBCDIH`H]D_ADBCDJH`H]CRGPH`H[AMDJADCCAAACDHCKCOFYAAFUBMH[HWBSBMH[HWBUBMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[COFYAAFUBADNAAAEBCDIH`H]D_ADBCDJH`H]CRGPH`H[BMGZBMGRBMHNAAAIBMHNAAAMDQACBADMABAMCOFYAAF[COFYAAFUBMH[HVHIBMH]AAAAAAB_BMHNAAAIBMHNAAAMDQACBADMABAECOFYAAF[COHYAAFOAAAA| trace-IMSUBR T "BOTH" "PRINT" "BREAK" %<TYPE-C
  11 TAPPLICABLE LIST> %<GBIND TRACE-PRINTER T>  SETG %<TYPE-W TAPPLICABLE LIST>
  12 %<GBIND TRACE-LIST T>  CANT-TRACE!-ERRORS ERROR NO-VALUE!-ERRORS
  13 BAD-TRACE-SPECIFICATION!-ERRORS TFUNCT ANY TARGS TUPLE TVALUE %<GBIND
  14 TRACE-LEVEL T>  UNWIND EVAL %<GBIND DEBUG-CHANNEL T>  OUTCHAN CHANNEL
  15 LERR!-INTERRUPTS FRAME FRESH-LINE CHANNEL-OP INDENT-TO "IN:  " PRINC PRIN1
  16 IN-BREAK LISTEN "OUT: " " => " OUT-BREAK "%<TRACE" " PRINT" " BREAK" ]>
  17 <SETG \1aTRACE #MSUBR [trace-IMSUBR TRACE ("VALUE" <OR FALSE TAPPLICABLE> "ARGS"
  18 LIST) 0]>
  19 <SETG \1aTRACE-SPEC #MSUBR [trace-IMSUBR TRACE-SPEC ("VALUE" <OR FALSE
  20 TAPPLICABLE> LIST) 240]>
  21 <SETG \1aUNTRACE #MSUBR [trace-IMSUBR UNTRACE ("VALUE" <OR ATOM <LIST [REST
  22 TAPPLICABLE]>> "TUPLE" ANY) 1540]>
  23 <SETG \1aDETRACE #MSUBR [trace-IMSUBR DETRACE ("VALUE" TAPPLICABLE TAPPLICABLE)
  24 2684]>
  25 <SETG TRACE-LEVEL 0>
  26 <GDECL (TRACE-LEVEL) FIX>
  27 <SETG \1aTRACER #MSUBR [trace-IMSUBR TRACER ("VALUE" ANY TAPPLICABLE "TUPLE" ANY
  28 ) 2788]>
  29 <COND (<NOT <FEATURE? "COMPILER">> <APPLYTYPE TAPPLICABLE ,TRACER>)>
  30 <SETG TRACE-LIST ()>
  31 <GDECL (TRACE-LIST) <LIST [REST TAPPLICABLE]>>
  32 <SETG \1aTAPPLICABLE-PRINT #MSUBR [trace-IMSUBR TAPPLICABLE-PRINT ("VALUE"
  33 CHARACTER TAPPLICABLE "OPTIONAL" CHANNEL) 5228]>
  34 <COND (<NOT <FEATURE? "COMPILER">> <PRINTTYPE TAPPLICABLE ,TAPPLICABLE-PRINT>)>
  35 <ENDPACKAGE>