                             /        MX042.F                                                                                                                                                                                                      Kp               MX042.F  BACKUP/INTERCHANGE/BLOCK=8192 MX_JNET.OPT,MX_MFSDISP.OPT,MX_JNET.COM,MX_JNET.ALPHA_OPT,MX_MFSDISP.ALPHA_OPT,[-.JNET]MX_JNET.VERSION,[-.JNET]JNET.OLB,[-.JNET]MX_MFSDISP.VERSION,[-.JNET]JNET.ALPHA_OLB SYS$DISK:[]MX042.F/SAVE  GOATHUNTER              G7.0 	 _GENE:: 
      _GENE$DKA100:  V6.2        
                                  * [MX.KIT]MX_JNET.OPT;1 +  , L   .     /     4 &       z                    - EL    0   1    2   3      K  P   W   O     5 "  6 *-  7 m  8          9 m  G    H  J                          & VMI$KWD:JNET.OLB/INCLUDE=(MX_JNET)/LIB VMI$KWD:COMMON.OLB/LIB MX_SHR:.EXE/SHARE  MX_FLQ_SHR:.EXE/SHARE  JANSHR/SHARE                                                                                                                                                                                                                                                                                                                                                                                                      `                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          ˧        MX042.F                        L  EL  [MX.KIT]MX_MFSDISP.OPT;1                                                                                                       '                              `               * [MX.KIT]MX_MFSDISP.OPT;1 +  , L   .     /     4 '                           - EL    0   1    2   3      K  P   W   O     5 %  6 `LSD  7 t  8          9 m  G    H  J                       ' VMI$KWD:JNET.OLB/INCLUDE=MX_MFSDISP/LIB  VMI$KWD:COMMON.OLB/LIB MX_SHR:.EXE/SHARE  MX_FLQ_SHR:/SHARE  UNIVERSAL=JAN_MFSDISP12                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       p        MX042.F                        L  EL  [MX.KIT]MX_JNET.COM;1                                                                                                          F                                              * [MX.KIT]MX_JNET.COM;1 +  , L   .     /     4 F       <                   - EL    0   1    2   3      K  P   W   O     5   6 Fz3Ί  7 Wx  8          9 m  G    H  J                          F $ define/user sys$error nl:	!Redirect SYS$ERROR because of VAX C stuffE $ file = f$search("MX_JNET_DIR:MXBITNET.MAILERS")	!Fix protection bug E $ if file .nes. "" then set file/prot=(g,w) 'file'	!... in VAX C code % $ run mx_exe:mx_jnet.exe	!Run MX Jnet : $ exit '$status'		!Exit with status (written to ACCOUNTNG)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              2&        MX042.F                        M  EL  [MX.KIT]MX_JNET.ALPHA_OPT;3                                                                                                    ,                                             * [MX.KIT]MX_JNET.ALPHA_OPT;3 +  , M   .     /     4 ,                           - EL    0   1    2   3      K  P   W   O     5   6 &ۦ?  7 #  8          9          G    H  J                    , VMI$KWD:JNET.ALPHA_OLB/INCLUDE=(MX_JNET)/LIB VMI$KWD:COMMON.ALPHA_OLB/LIB MX_SHR:.EXE/SHARE  VMI$KWD:MX_FLQ_SHR.EXE/SHARE JANSHR/SHARE                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            g        MX042.F                        .M  EL  [MX.KIT]MX_MFSDISP.ALPHA_OPT;2                                                                                                 -                                             * [MX.KIT]MX_MFSDISP.ALPHA_OPT;2 +  , .M   .     /     4 -                           - EL    0   1    2   3      K  P   W   O     5   6 74x@  7 P  8          9          G    H  J                 - VMI$KWD:JNET.ALPHA_OLB/INCLUDE=MX_MFSDISP/LIB  VMI$KWD:COMMON.ALPHA_OLB/LIB MX_SHR:.EXE/SHARE  VMI$KWD:MX_FLQ_SHR.EXE/SHARE' SYMBOL_VECTOR=(JAN_MFSDISP12=PROCEDURE)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               W        MX042.F                        2L  L  [MX.JNET]MX_JNET.VERSION;1                                                                                                                                   1               * [MX.JNET]MX_JNET.VERSION;1 +  , 2L   .     /     4                            - L    0   1    2   3      K  P   W   O     5   6 _  7 ~J  8          9 m  G    H  J                      NAME=MX_JNET IDENT="V4.1"                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            ܾD0        MX042.F                        L  L  [MX.JNET]JNET.OLB;3                                                                                                                                          ؒ               * [MX.JNET]JNET.OLB;3 +  , L   .     /     4                             - L    0   1    2   3      K  P   W   O     5   6 ;奫  7 !  8          9          G    H  J                              %   Librarian A09-22               𥫪 P !                                       9                                                                                                                                                                                                                                                                                                                                                                                                                            ADDRESS_HACKS   
BITEARN_NODES   2 BITNET    BITNET_SEND(   BSMTP`   zCHECK_UNQUEUED_MESSAGESe   L ERRORl    JNET_IN|   v 	JNET_SEND   MX_JNET   .
MX_MFSDISP    PARSE_BSMTP_CMD    PARSE_NOTEADRS   PROCESS                                                                                                                                                                                                                                                                             ACC_FAB   
ACC_OPENED   ACC_RAB    BITNET_SEND    BITNET_TO_MX(   BSMTP_IN(   
BSMTP_SEND`   zCHECK_UNQUEUED_MESSAGES   CONFIG   DEBUGe   L 
ERROR_INITe   L 
ERROR_SEND   2 FIND_BITNET_HOST   HSTBL   INIT   .JAN_MFSDISP12   JNETNAME   
JNET_BUILD_MXBITNET_MAILERS   	JNET_INFO|   v 	JNET_SEND|   v JNET_SEND_FILE   LCLHST   LOCATE_FLAG   MX_JNET    MX_TO_BITNET  PARSE_NOTEADRS   2 PARSE_REC_KEY   2 PARSE_REC_STATE                   PN_KEY    PN_STATE   PROCESSl    PROCESS_INPUTe   L 	RCP_ERROR   2 READ_BITNET_HOST_TABLE   
RESET_MASK   SHUTDOWN_FLAG   STATUS_CODE   STATUS_PARAM   
TRACE_UNIT                                                                                                                                                                                                                                                                                                              :              MX_TO_BITNET   PARSE_REC_STATE   
TRACE_UNITAM                                                                                                                                                                                                                                                                                                                                                                                                                                                            1        N V1.4-1                          <     ADDRESS_HACKSV1.4-121-May-1994 03:0821-May-1994 03:08  VAX Bliss-32 V4.6-902 ,     ADDRESS_HACKS  MX_TO_BITNET   P <     >     @     .BITNET   $   4.BITNET   <   L%     T@     `.BITNET   l   |@      .BITNET        @      .BITNET        @          FIND_BITNET_HOST   
PARSE_MBOX   VERIFY_PHRASE   LIB$SYS_FA    O   STR$CASE_BLIND_COMPARE   
STR$APPEND   
STR$PREFIX   STR$POSITION   STR$COPY_DX   
STR$COPY_R   
STR$CONCAT   	JNET_INFO   JNETNAME?    CONFIG   STR$FREE1_DX   STR$FREE1_DX   STR$FREE1_DX   P   
     MX_TO_BITNET  	 	7  	r  	  	{  	  	  	  	    
STR$CONCAT[ 
STR$APPENDZ STR$COPY_DXY STR$FREE1_DXX W<^ЬUlЬVVЏ   	   4Ԯ8Џ  ,Ԯ0Џ  $Ԯ(Џ  ԮЏ  ԮЏ  ԮЏ  Ԯ $0<ݬ 
PARSE_MBOX൮,4	ݬUi$*(  VERIFY_PHRASEP	(iW(j i 	JNET_INFO340 FIND_BITNET_HOSTPV(P0PP1,ݬUi1CЮ8T<4STSSR?b%:RSP 
STR$COPY_Rݮ8î<R 
STR$COPY_R⟮8iRRT@  FIND_BITNET_HOSTPV@PHPP4kT8j8jh CONFIG0 STR$CASE_BLIND_COMPARE 
   PVpPxPP JNETNAME`Y0 FIND_BITNET_HOSTPX JNETNAME STR$CASE_BLIND_COMPAREPVǔ  Pǜ PP JNETNAMEǄ VǸ P PPǨ D8Uk0 @4Uk4h,h$hhhhP   }   }BITNET_TO_MX    P <     >      @      %      .BITNET@  @     .BITNET   $.     4%     @.BITNET@  L@     \    STR$FREE1_DX }P      
 }   BITNET_TO_MX \ 	}	 M 	  	  	  	     CONFIGW 
STR$CONCATV STR$COPY_DXU STR$FREE1_DXT  S$^ЬRЏ  Ԯ Џ  ԮЏ  Ԯݏ  ԮЏ  Ԯ(ݬ 
PARSE_MBOXᵮ 	ݬRe,^ VERIFY_PHRASEP^eS   
STR$APPENDe^ FIND_BITNET_HOSTPJ JNETNAME STR$CASE_BLIND_COMPAREP
Wi 	JNET_INFO3W4$    =P@0$RfF 	JNET_INFO3,\ STR$POSITIONPWx$h4(Rf. ԮÄ , Rf ddd^dP	  l      h  $PLIT$    $PLIT$h        $CODE$   $CODE$      w w 1       !	! V1.1                            :     BITEARN_NODESV1.125-MAY-1994 06:37                   VAX C V3.2-044  PMX Jnet Intfc Info: %sPMX Jnet Intfc Error: %s/P:node.6PMAIL;P,=POUTONLYEPBSMTPKPRFC82    2RPMX_JNET_DIR:BITEARN.NODESlPrnPmbc=50uPmbf=50|PCan't read %s - aborting. PMX_JNET_DIR:BITEARN.NODES PMX_JNET_DIR:MXBITNET.MAILERS Pmrs=%d PMX_JNET_DIR:MXBITNET.MAILERS Prfm=fix Pfop=cbtPalq=265	Pdeq=20PwPCan't open %s for writing - aborting.8PMX_JNET_DIR:MXBITNET.MAILERSUP<None>\PVERSaPInvalid version entry in BITEARN NODES: '%s'.PerversPNJE Pormat.PMX_JNET_DIR:MXBITNET.MAILERSPrPCan't read %s     - forcing rebuild.PMX_JNET_DIR:MXBITNET.MAILERSPMX_JNET_DIR:BITEARN.NODESPrPCan't read %s - aborting.5PMX_JNET_DIR:BITEARN.NODESOP%s not found - continuing.jPMX_JNET_DIR:BITEARN.NODESP%s still up to date - won't rebuild.PMX_JNET_DIR:MXBITNET.MAILERSPVersion mismatch - rebuilding %s.PMX_JNET_DIR:MXBITNET.MAILERSP%s not found - must rebuild.  "PMX_JNET_DIR:MXBITNET.MAILERS  P  ^ԭݬ  SPRINTF STRLEN    P 	LOG_EVENT ^ Rԭݬߢ SPRINTF STRLENP 	LOG_EVENT^ V XЬRЬSRPRUSRSTb`P  WUhUW~U FGETSPxe:ߦ/U STRNCMPPee
Uee
 e2PЬPUQPTPSQPQR`dPSP ` ePhUW~U FGETSPи RߢRSRSSP^ V P֬ ЬRb :RPЬRRXbb(P֬(ЬRbRPЬR֬bЬRRSbb)֬)Ь                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                          Iӏ        MX042.F                        L  L  [MX.JNET]JNET.OLB;3                                                                                                                                                           RbRPЬR֬bߦ6S STRNCMPP1dScަ;S,1Q3 YcPP 
ScPP PbSP,[PN1cD+ScR
R R,Yc7,2Pc,,%cRR,R ScRR,R c,Pc,c1 c,1 U3 WSTcRR R,PScR
R R,ߦ=T STRCMPPU6ߦET STRCMPPUWߦKT STRCMPPUWWRU10PWЬRYW PQhR(R@"QRQRPhRR@	QRQRh@hPXh@h$ЬRQSP&PSRSRP    ЬRb MEMCPY PΈ^ V ZߦuߦnߦlߦR FOPENPj^Ɩ ߦ| SPRINTFR͙ې͛ې͜͝Rߦ͡ SPRINTF͡ STRLENP͙͙۟͡͝ 	LOG_EVENTPư  REMOVE(  SPRINTF	     CREATPԪPP FDOPENPժ_8 SPRINTFRِ͑ِ͓͔͕Rߦ͙ SPRINTF͙ STRLENP͙͕ٟ͑͑   	LOG_EVENTP( ͡ MEMSETݐ-ͱݐ-ͩ͹ͽ(  MEMSET    U MEMCPYݪ( FWRITEPPj<~ FGETSPPTd.Pd.TSc sPcT STRLENP\T STRNCMPP]Ta SPRINTFR͉א͋א͍͌Rߦ͑ SPRINTF͑ STRLENP͉͍͑ן͉ 	LOG_EVENTPT STRCPYPP18((͡\l.
l.UTl$l TRTRll 	TRTR YWXW1 STRNCMPTPl:Pl:l1\Rb     1tlSSs_W[Ə\\dP1S\l01H91@l.Pl.\P\1W1StF\ly1 \lp1 \le1 \l.1 Ɩ\\dP1 Y1 Sf1 \lf1 ƛ\\dP1 X\Pl 
P\l l}l:x\Rb 	\Sc lґ lȑ lPcU=cD.lN)lD
PlV
P\1rPX1]W1VY1ݪ( FWRITEP1P|~ݪ  FSEEK(  MEMSET MEMCPYݪ(     FWRITEPP2 P< Π^ S Uÿâ FOPENPT1|T( FREADdRa SPRINTFRRߣ SPRINTF STRLENP 	LOG_EVENTT FCLOSE FOPENPTT<~ FGETSP1 T	 l5 SPRINTFRRߣ SPRINTF STRLENP 	LOG_EVENTT	T FCLOSEPjO SPRINTFRͻͽ;ͿRc     SPRINTF STRLENPͻͿͻ 	LOG_EVENTPT	T FCLOSERb.
b.R STRNCMPP_éÄ SPRINTFRͳ͵ͶͷRcͻ SPRINTFͻ STRLENPͳͻͷͳ 	LOG_EVENTP SPRINTFRͫͭͮͯRcͳ SPRINTFͳ STRLENPͫͳͯͫ 	LOG_EVENT[" SPRINTFRͣͥͦͧRcͫ SPRINTFͫ    R    BITEARN_NODES      info L     L       mourn P        	get_entry        process_server |  	    go 0    ,	  JNET_build_table <  "  h  JNET_BUILD_MXBITNET_MAILERS    		                                   cc                   k  	LOG_EVENT  CREAT  MEMSET  MEMCPY  STRLEN  STRNCMP  STRCMP  STRCPY  REMOVE  FSEEK  SPRINTF  FWRITE  FREAD  FGETS  FCLOSE  FDOPEN  FOPEN 
  h    JNET_BUILD_MXBITNET_MAILERS  s  $CODE    $DATA    STDIN    STDOUT    STDERR    ERRNO    
VAXC$ERRNO ?  $CHAR_STRING_CONSTANTS x  STRLENPͣͫͧͣ 	LOG_EVENTԥe PRee FCLOSEPRեݥ F    CLOSEPRRP  ^ Ϻ        w w 1         V1.4                            3     BITNETV1.421-May-1994 03:0621-May-1994 03:06   VAX Bliss-32 V4.6-902 /     BITNET  READ_BITNET_HOST_TABLE   
      PARSE_REC_KEY5   P   4&  4&  4&  4&  4&  4&   
     PARSE_REC_STATE  P:44& 
44&                      \-44& 144&.       :        I44&        >Z44&.           :        r44&           44&        g 44&:  44&         44&         44&         44&  44& PnickaliasmailerBSMTPDEFRTBITNET PMX_JNET_DIR:MXBITNET.MAILERS  VERSMX_JNET_DIR:XMAILER.NAMES    (    JNET_BUILD_MXBITNET_MAILERS   
LIB$TPARSE   LIB$FREE_VM   
LIB$GET_VM   STR$TRIM   STR$COPY_DX   
STR$COPY_R   STR$LEFT   STR$POSITION   
STR$UPCASE   STR$GET1_DX   LIB    $SYS_FAO   
ROU_GETJNI   HSTBL =    	MDM_OPENF   	MDM_READF   
MDM_CLOSEF   STR$FREE1_DX   P #  
     READ_BITNET_HOST_TABLE  	 	] |  	  	  
	  	    
MDM_CLOSEF[ 	MDM_READFZ 	MDM_OPENFY^-R~B HSTBLS  LIB$FREE_VM   RP~@ HSTBLQQaQ   PЏ  ԮX  JNET_BUILD_MXBITNET_MAILERSPRR4iPR    R"ݮjѾ$	ݮk,R RXDiPRRRPݮjP1 Ԯ!X  *  ЮQP~@ HSTBLPaЮV-   
LIB$GET_VMЮW( fg( P~@ HSTBLPg1kݮk STR$FREE1_DXP#  m   mFIND_BITNET_HOST O LP.BITNET  L.JNET    \.EARN    l!8AS |        STR$FREE1_DX mP  
 m  FIND_BITNET_HOST j 	m	 [ '	      	C   STR$FREE1_DX[ STR$COPY_DXZTY STR$TRIMX 
STR$COPY_RW STR$POSITIONV^Џ  PԮTЏ  HԮLݬThPL 
STR$UPCASEYLfP	LfP	 LfPn^LX STR$LEFT	HTj:.PTQQP TP~@ HSTBLUeTTU-PT dTPTUPPRREݬgl ݬgl*(ݬglФlФ1 Џ 0@4Џ (8,ݬT~, LIB$SYS_FAOH S    TR$GET1_DXԮ$8D,4<lH|0d 0X 
ROU_GETJNIPRR7Pݬhl	Pݬhl	4ݬjllPkHkRPZ     [	PARSE_REC	[	Z1 
  4^}VW 
LIB$GET_VM, n   }<fЦg,0    
LIB$TPARSEPVVW LIB$FREE_VMggW( (է
VPp      PR_STORE		H 	 
    	 	 	    Ь$PϬ   i i i p v | ϼ(   : <QQ^ X@ M<QQD >@3<(QQ ( "@*(Ь (
P;      zPR_SET_BLANKS	z	      P      PARSE_MAILERS_REC		^ 	J 	b 	u   ^ЬPРWѧ     1 ݬ 
LIB$GET_VMмV, n  fWY XPZZ                                                                                                                                                                                                                                                    	                        -B        MX042.F                        L  L  [MX.JNET]JNET.OLB;3                                                                                                                                          t                 ZP PPX( -GY*QQXPZZ ZP@-WYYPZZ ZPQX(Ч }P 	            
_LIB$KEY0$    
_LIB$KEY0$          _LIB$STATE$    _LIB$STATE$      '   
_LIB$KEY1$   
_LIB$KEY1$'          $PLIT$   $PLIT$       O  $CODE$   $CODE$O    Q[Q P 44Q 44Q 44Q 44Qz44Qzn44Q     zc44QV44QzE44Qz:44Q)44Q44Q44   w w 1       1 V1.2                            8     BITNET_SENDV1.221-May-1994 03:0821-May-1994 03:08  VAX Bliss-32 V4.6-902 )     BITNET_SEND  BITNET_SEND    P!%D   BITNET_SEND: Sending BITNET message.  *   MX_JNET_DIR:BITNET_!XL_!XL_!XL.TMP  "  4!%D   BITNET_SEND: Could not create temp file, sts=!XL  6  `@      ,      <   !           MSG_TEXT   !%D   BITNET_SEND:   Ugh.  Ancient MAILER BITNET 2.  Gross.  :   !%D   BITNET_SEND:  Sending file to !AS at !AS. /  !17%D XMIT: PROTO=BITNET, SOURCE="!AS", HOST="!AS", BYTES_SENT=!UL  B  T!%D   BITNET_SEND:  Send failed: !AS$  Message number       
ACC_OPENED   ACC_FAB   ACC_RAB   	RCP_ERROR   JNET_SEND_FILE   
PARSE_MBOX   
FORMAT_HDR   
STR$COPY_R   STR$COPY_DX   
STR$CONCAT   STR$FREE1_DX   
STR$PREFIX   
STR$APPEND  "     
LIB$GETJPI   LIB$SYS_FAO     LIB$FREE_VM   
LIB$GET_VM   LIB$CVT_HTB   LIB$DELETE_FILE   STR$POSITION   	STR$RIGHT   MYUNAME   DEBUG   
TRACE_UNIT   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
SYS$GETTIM   
SYS$CREATE   
MDM_WRITEF     LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   SYS$CONNECT   
MEM_GETTXT   SYS$PUT   MEM_FREETXT   MEM_FREETXT   SYS$PUT   FLQ_MAKE_FSPEC   SYS$OPEN   SYS$CONNECT   SYS$GET   SYS$PUT   SYS$DISCONNECT     	SYS$ #   CLOSE   SYS$DISCONNECT   	SYS$CLOSE   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   SYS$PUT   STR$FREE1_DX   
SYS$GETMSG   
MDM_WRITEF   LIB$SYS_FAO #    STR$FREE1_DX   STR$FREE1_DX   P   
     BITNET_SEND 	 	3    	  	  	  	  	  	   $    0 -	 	)  t^ЬZݬ}X~Џ  txЏ  \`Џ  lpЏ  dhЏ  TXЏ  LP|PP|P΀>Џ ,F40 DEBUG5Џ  $Ԯ(~(~ , LIB$SYS_FAO$ 
TRACE_UNIT   
MDM_WRITEF$ STR$FREE1_DX4 
SYS$GETTIM|~< 
LIB$GETJPIݮ<<`~ X LIB$SYS_FAO, n P PưΞLXܐT, n ` L`L %   N΄PV΄X, n D D<  X  
SYS$CREATEP[[V DEBUG7Џ  $Ԯ([~,~   LIB$SYS_FAO$ 
TRACE_UNIT 
MDM_WRITEF$ STR$FREE1_DXT STR$FREE1_DX\ STR$FREE1_DX[P SYS$CONNECTоWWXHD$@"<<  L ` 
STR$CONCATL  P 
STR$APPENDTP 
STR$APPENDgWiЮRRY1 !F ^ o o o o o o o o o o o o o o R o o o o o o o o o o o o o o o o o )
| &   
t

l 
STR$COPY_R豢
b1i< LRR 
MEM_GETTXTPVR
(RPfllPttPddPЮPPX STR$COPY_DXdx\ 
PARSE_MBOXPL  X STR$POSITIONP(Xl 	STR$RIGHTTxl 
PARSE_MBOXP  MYUNAMEx STR$COPY_DXiѮY1 O~΀ݮ$ 
FORMAT_HDR|.ЮR
>D SYS$PUT<
PPn MEM_FREETXTЮP`` MEM_FREETXTЮ '   `1s>   SYS$PUT, n P `P`vͬ-,   !\    FLQ_MAKE_FSPEC`\$, n ` `(, g, n ,ͬ,ͬ, n D D< `` SYS$OPENP[[1 <ͶP< PP<  
LIB$GET_VMD SYS$CONNECT SYS$GETP> SYS$PUT<PPn֟ SYS$DISCONNECT` 	SYS$CLOSE< LIB$FREE_VM SYS$DISCONNECT 	SYS$CLOSE΄Od (      
STR$COPY_R枨$H"D@< DEBUGwЏ  $Ԯ(~(~  LIB$SYS_FAO$ 
TRACE_UNIT 
MDM_WRITEF$ STR$FREE1_DX DEBUG=Џ  $Ԯ(<H~0~ L LIB$SYS_FAO$ 
TRACE_UNIT  
MDM_WRITEF$ STR$FREE1_DXݨ|~HTΈt JNET_SEND_FILEP[[O 
ACC_OPENEDGЏ  $Ԯ(n@ݮ~4~  LIB$SYS_FAOЮ( ACC_RAB(3$ ACC_RAB"3 ACC_RAB SYS$PUT$   STR$FREE1_DX|,}~4,[ 
S )   YS$GETMSG , DEBUG8Џ  $Ԯ(,~,~  LIB$SYS_FAO$ 
TRACE_UNIT 
MDM_WRITEF$ STR$FREE1_DX)4 оWW,ݧ 	RCP_ERRORgW\  LIB$DELETE_FILEt STR$FREE1_DX\ STR$FREE1_DXl STR$FREE1_DXd STR$FREE1_DXT STR$FREE1_DXL STR$FREE1_DXP	          $PLIT$    $PLIT$        $CODE$   $CODE$      w w 1       @Ā V2.5-1                          4  *       BSMTPV2.5-121-May-1994 03:0721-May-1994 03:07  VAX Bliss-32 V4.6-902 "     BSMTP  
BSMTP_SEND   P!%D   BSMTP_SEND: Sending via BSMTP...  &   !%D   BSMTP_SEND: bzzt.  status=!XL on msg_text open4  0MX_JNET_DIR:JNET_!XL_!XL_!XL.TMP   l!%D   BSMTP_SEND: Error status=!XL opening temporary file   9   HELO       .BITNET     !%D   BSMTP_SEND: >!AS     MAIL FROM:  
       ,!%D   BSMTP_SEND: >!AS    8!%D   BSMTP_SEND: > +   !AS    XQUIT  x!%D   BSMTP_SEND: (no recipients)   !  !%D   BSMTP_SEND: >QUIT   RCPT TO :!AS        !%D   BSMTP_SEND: >!AS    !%D   BSMTP_SEND: >!AS    DATA  0!%D   BSMTP_SEND: >DATA   <!%D   BSMTP_SEND: >!AS    \   |!%D   BSMTP_SEND: >   !%D   BSMTP_SEND: >   .      !%D   BSMTP_SEND: >!AS    !%D   BSMTP_SEND: >!AS    .     !%D   BSMTP_SEND: >.  QUIT  ,    0!%D   BSMTP_SEND: >QUIT   <!%D   BSMTP_SEND: Sending BSMTP file to !AS at !AS  2  \!%D   BSMTP_SEN~ D: Send failed: !AS  "  Message number  !17%D XMIT: PROTO=BSMTP, SOURCE="!AS", HOST="!AS", BYTES_SENT=!UL   A      
ACC_OPENED   ACC_FAB   ACC_RAB   JNET_SEND_FILE   	RCP_ERROR   BITNET_TO_MX   PARSE_BSMTP_CMD   FIND_BITNET_HOST   
FORMAT_HDR   PARSE_ADDRLIST   PARSE821   	FORMAT821   
PARSE_HDRS   
WRITE_INFO    
WRITE_HDRS   
MX_VERSION   -    OPEN_MSG_TEXT   MEM_GETRCPT   MEM_FREERCPT   LIB$SYS_FAO   
LIB$GETJPI   
STR$CONCAT   
STR$COPY_R   STR$POSITION   	STR$RIGHT   STR$LEFT   STR$COPY_DX   LIB$ADD_TIMES     STR$CASE_BLIND_COMPARE   STR$TRIM   STR$COMPARE_EQL   
STR$APPEND   
STR$PREFIX   LIB$DELETE_FILE   STR$FREE1_DX   
LIB$GET_VM   LIB$FREE_VM   STR$FIND_FIRST_NOT_IN_SET   CONFIG   	JNET_INFO   JNETNAME     MYUNAME   DEBUG   
TRACE_UNIT   
MDM_WRITEF   
MDM_WRITEF   LIB$SYS_FAO                                                                                                                                                                                                                                                    
                        HR        MX042.F                        L  L  [MX.JNET]JNET.OLB;3                                                                                                                                          a      -        .     STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   
SYS$GETTIM   	MDM_OPENF   
MDM_WRITEF   LIB$SYS_FAO    STR$FREE1_DX   STR$FREE1_DX   
MDM_CLOSEF   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF    LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   S /   TR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF     LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   MEM_FREETXT   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   	MDM_READF   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF     LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR 0   $FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO    STR$FREE1_DX   
SYS$GETMSG   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   SYS$PUT   STR$FREE1_DX   STR$FREE1_DX   P   
     
BSMTP_SEND  	 	    		    	v 	  Θ^Ь[ЬSY DEBUG 1   9Џ   Ԯ$~$~ ( LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DXV:@<Џ  ԭЏ  ԭЏ  ԭܞ(PP(P,PѣPPZݬ  OPEN_MSG_TEXTPXXO DEBUG;Џ   Ԯ$X~(~ d LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DX STR$FREE1_DX1 0 
SYS$GETTIM|~< 
LIB$GETJPIݮݮ8ݮ8~     LIB$SYS_FAO~ 	MDM_OPENFPXXn DEBUG;Џ   Ԯ$X 2   ~(~   LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DX STR$FREE1_DX STR$FREE1_DX STR$FREE1_DXݮ   
MDM_CLOSEFXP   JNETNAME   
STR$CONCATЮRR 
MDM_WRITEF DEBUG<Џ   Ԯ$~(~  LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DX<PPV[ $   
STR$CONCATZ1 P Џ   Ԯ$ݭ욏O( 
STR$COPY_R 0$ 
STR$APPENDO   ~<O   3     
STR$COPY_R R 
MDM_WRITEF< PPV DEBUG<Џ  Ԯ ~ ~ P LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF STR$FREE1_DX  STR$FREE1_DX1BR 
MDM_WRITEF DEBUG<Џ   Ԯ$~(~ p LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DX<PPViY1  |R  
MDM_WRITEF DEBUGyЏ   Ԯ$~$~  LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DX DEBUG9Џ   Ԯ 4   $~$~  LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF    STR$FREE1_DXR 
MDM_CLOSEFݮ 
MDM_CLOSEF LIB$DELETE_FILE STR$FREE1_DX STR$FREE1_DX埭1iUUY15~  LIB$SYS_FAOZ1 P Џ   Ԯ$ݭ욏O( 
STR$COPY_R $  
STR$APPENDO   ~<O    
STR$COPY_R R 
MDM_WRITEF< PPV DEBUG<Џ  Ԯ ~ ~  LIB$SYS_FAO 
TRACE_UNIT 
MDM_WRITEF STR 5   $FREE1_DX  STR$FREE1_DX1BR  
MDM_WRITEF DEBUG<Џ   Ԯ$~(~ ( LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DXeU<PPV1 4R 
MDM_WRITEF DEBUG9Џ   Ԯ$~$~ T LIB$SYS_FAO   
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DXVмTT1 P~,T 
FORMAT_HDR(qЮR
ݮ 
MDM_WRITEF<
PPV DEBUG<Џ   Ԯ$~(~ t LIB$SYS_FAO  
TRACE_UNIT  
MDM_W 6   RITEF  STR$FREE1_DX MEM_FREETXTdT1i |ЮTT 
MDM_WRITEF DEBUG9Џ   Ԯ$~$~  LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DXݮ 	MDM_READFP1:ЭWR/T   
MDM_WRITEF DEBUGЏ   Ԯ$~$~ ZRRP PP<RPPW1 g.oЏ   Ԯ$ ( 
STR$CONCAT T 
MDM_WRITEF DEBUG<Џ  Ԯ ~ ~  LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF 7    STR$FREE1_DXET 
MDM_WRITEF DEBUG<Џ   Ԯ$~(~   LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DX<PPV<PPWR1ݮ 
MDM_CLOSEF T   
MDM_WRITEF DEBUG9Џ   Ԯ$~$~ ( LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DXV 4T 
MDM_WRITEF DEBUG9Џ   Ԯ$~$~ T LIB$SYS_FAO  
TRACE_UNIT  
MDM_WRITEF  STR$FREE1_DXT 
MDM_CLOSEFV" 8   $ DEBUG?Џ   Ԯ$~,~  LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DXݣ|~ MYUNAME  JNET_SEND_FILEPXX1  8}~@ X 
SYS$GETMSG8 DEBUG<Џ   Ԯ$8~(~  LIB$SYS_FAO  
TRACE_UNIT 
MDM_WRITEF  STR$FREE1_DX)@ iUUY8ݥ 	RCP_ERROReU韭   LIB$DELETE_FILE 	JNET_INFO3U 
ACC_OPENEDMЏ   Ԯ$V[~0~  LIB$SYS_FAO 9   Ю$ ACC_RAB(3  ACC_RAB"3 ACC_RAB SYS$PUT  STR$FREE1_DX STR$FREE1_DX STR$FREE1_DX  STR$FREE1_DXP   K
   K
BSMTP_IN    P!%D   BSMTP_IN: Processing incoming BSMTP file from !AD at !AD...   A   @     lJNET_INPUT  
  xBSMTP_TRANSCRIPT  ERROR_MSG   	  From: Message Exchange Jnet Interface <Postmaster@!AS>  6  To: !AD@!AD     Date: !AS   	  Subject: Error in BSMTP message pro :   ccessing +      TBSMTP transcript:     \   x220 !AS.BITNET MX !AS SMTP server ready at !AS  .  !%D   BSMTP_IN: send: !AS     220 !AS.BITNET MX !AS S MTP server ready at !AS  .  503 End of file reached before command sequence finished.   9  !%D   BSMTP_IN: send: !AS     X503 End of file reached before command sequence finished.   9  |!%D   BSMTP_IN: handling BSMTP contin uation char (!XB)  6  503 End of file reached before  ;   command sequence finished.   9   !%D   BSMTP_IN: send: !AS     D503 End of file reached before command sequence finished.   9  h!%D   BSMTP_IN: rcvd: !AS     050 ! AS   !%D   BSMTP_IN: send: !AS     050 !AS   050 !AS   250 Hello, !AD    $!%D   BSMTP_IN: send: !AS     <250 Hello, !AD    `250 Please stop wasting my time.   x!%D   BSMTP_IN: send: !AS      250 Please stop wasting my time.   221 !AS.B <   ITNET Closing transmission channel.,  !%D   BSMTP_IN: send: !AS      	221 !AS.BITNET Closing transmission channel.,  D	500 Please identify yourself with HELO. '  x	!%D    BSMTP_IN: send: !AS     	500 Please identify yourself with HELO. '  	<>    	501 Invalid address: !AD  
!%D   BSMTP_IN: send: !AS     (
501 Invalid address: !AD  L
<>    l
Postmaster  
  x
<       
@     
>     
<!AS@!AS>   	  
250                                                                                                                                                                                                                                                                              iu5                                        L  L  [MX.JNET]MX_JNET,UX/?sn0EcT;2                                                                                                 l                              p     <       '  ]`961ⴓYs_r#hl /cGwO,Y`mu-ֹfC z eUago- ѭR"^$:#_.K	OrHi,r6;o5MW~3

,Z5lpĕ⭫nMa햯ǿpt=`Zt8)~#(V_qiKG;~r3es4(]1:lr)n괯c|_9ISV3>~ݕ}Zу0H_ir+a
F5
̻T^[K|Y7qTewf64<udֿ}Ipa1a S2u=)48lYQt&4oz^"7DHSweKxJc:3,I3 gKOD
#^=ʘSe%XVZ0)$ʕC3 8 .xN~*ax}j>o}|U"]$#jOe'~r.ߢXPIίuT_c$x!}2E<f'ȭ͓ϊ0ߐ
Wl,_ZS*>:mбn3SBPڡ땱(TD[D
IR*6TV=~6&$&"fn;xΘi6c>NnbRB?ٕܛ76awӶ78mi@UGN
QSWh¶AդF;[PSJDCDP^斃-b2|Mq%{qh	_MLdJ̓ٛ̃@JB
xY/ۇ#3N]CTO\ʀޜ!_^EPT/0=vgw *z:PXGl`bp>P5d:&ـhc<۰N9(Ɯ	NQoB    8M
9	MS]EE\Uܤ
Ya{fgKaCMkV-"1Q36Ou"\XIԌb#|puH؂;QI6O#t~?|"C3D_9vn5-X`U%Ey6M bEa,H@Ϩ/|qLMRi$!]x$밆q5|䃝Ѓ/]XdgU{dόiJ"KΈ'qqlJfݒ<{W4\o%8ȃYp\I{->Շۂyd`18r D GYE؞d0ns?E}Y#4uqϬb#xm ԓ$mcoXC8*0f\p%+{Ī	><{r fV$K&{zP5IHTD.m>ގ\>/wW/JK\7Aio[IINIT*ӴI &Adg}r*W\^s[h UJ㟸9֜4zB'V}`(^CGrvBx񃭐`9z*g՚CƵdkSY.i2Ye0Q ǮcNM)9C'q/UpD8	]L%Pa{vثX6lyU͒e 	*ԔCWW˓J]3KǇV0")OTGrZ
Oeڗ̎/Y$;w7Xp][b:8'9f[.fmWB%Kиf,ϿW
EOH_XIhF3\ıI1zG|[@2NA.*ξVTXFZJG`iTV*^P2n 1%NDKYDE/BUXX%oqD;ҩz_9    ({9ȽLZE^PS>[zA؁>SSGNC܈LOT]D SQSH	;1p]Rc?@벴 ]d?HPELJiĞ߸Jb^0Lګaƹ6djBџOEOEjX[K"1UO_NN`t")#wUMY)Sm	VNAëP
AM&<pHu%bn8SupItpb*/H8bqSLA<X@_CL|tpB sacBUMDRXcza|T.^0ɥBZ9U%W,C>ͨ:k)T=ph\Qa:%&1[ɇh=!Wr1N    ?K10RZQ%	s*]s]2Y G,u3JPoO5 /ePpFa}g!~P'lд%D9O)Y9VՀjSu:
&yȖ%+K|09=}3LzeR:
NyJ(Rdybױg~,?yCsZn(Z(,eYd֗LnG_<[#UR6X5QѰu mtPi!a=e;ڋz|94QB$Y.?~,qxrX|K}vfdڊMO&C󝟇H^
Rx SBLO۟TYyH"yr1W!LŬd 	 DpẘW6	KfE|xOʴnrB(ꠓSU(rE]˰UO{އcY86=m!޽>i>BT@&JrBt*^rrjؼ!<!n,>)LN7V? X]!s?ZWXF`KIAWE* c	 FIN_߹TXU(Vgw,ϜT uqaDVSmշIs
G]Cio(8.1b	~@ݜCC@,|SmIbV| 3&ٴABXLM0q&_T_B]vwQUT2Sg[Ǯ?YﵜZR
76;Fz		{뎥ƿNށނeW!KfL_=F.T9O2W?{SM$ߐz 	j1繖dXVLc .PY_aTh_ʱkJJɓ^qTFN2YI4.	wO"]ɌCe!5ǁFxaTMB\Y(͂	[2JWP\Օ^i($3H^{K"HE)+uVc)QYEUV&K@nQfҋYQgC-XD":HkF޿ҎYx	,jjxZН+&pUxT@JA9LWFScoT~ƛo`2&m?:KWqB+3m'9/*׋@漠?ndTW]YHyT0DbchD^DKFڱ&Ys^WuڜlS,Pr*Y5dc4BoP.5ltH2¦qF-ME9K܇Zhy>2lѶIq,^8MXb'RdX}m	L7W<UK=w8m3ԏX'F$Y8}V>AZ}0HyuuxK3ᢦD
fM޲eZfTl6wS}fƷ9r8'c.ҩQ2IRꤶES{0 C;0 oXTB w/V{<X]>Q
	P+I{P6pØhwEK
8cK_\N {AR[{ݓdpʊOGKKvvP!-ĺطf^VI!"BLk@eUN)T|M#cO,]@TK&CmlMP"TkVS|0>nTDU0Pam|Ux^ ]d'p&&j "tVX-!;Ʈ @
>g{?)T0[!XI6S,M  QZd1M _~XO7:D{n$Jp&A ?bߧmk{|G

NƩYQLBxS[JC_ac6A	oqPУW 
ZnܹXauC ^.BUX<K*@@<CFIP\͘%kA_.}|y47ht0Լ{0-|~Ut^˲Y	O}Iiǹ~D`˼&DfXD~Pzú\]wd?${UPu9 ԣ҉g!ڔbE@ޏ M=tB{<]sDAAUPh~=!xZo{;H++ETVOKs
	!Jq2<DI \_ek^sJ2 ClR.:lEiA>O	A!E|jlLuVWT$Dh2<^ᄞRHICMY>p!S@CK4UM>;ߨՅ&[>T]`E"6KbcSCێf.$O~zE!N>@*n	DvbX=~-oysSzm~-qoK.W0u]#>dDWC]Q0[cQ-܄
&
=ZofSإj?B_czILbpKzͤdN?!2TR( KݻP6
   ͻW3͘.:JOJN 1^xrauv'͈SGjתd2Q1+Pw~4x%hGx?li%^)FoQ7>PA_#Y}9 iwo%;@QT4d""/Y*&& jdc*0~] 9eTx@l{y2zk60kpvLs?jXڳ$pHG,&*Y{/7b;1;]~|MI[brasfd`?
Y~q`[@C\zor8-_E<q]&@$;)Ex{e+?mkGIv-0FVG|jo1
4d$-2kaִmTFojew36Whc[_.\1iI7"Q~ZRW3p_}JaeD
vu&^RmG'#b+bsp=*e Rһ'4lF!:oa3
P1u|?Ol77pҀΉms}gPTgQA%,2=b+1?u7Ih7#3?"qbRow~M3'4vZ	c4g.daNUH;q3(+[zR.4FVCLP4>35n*Y@+ߞ%'o-ЂyIVFSn<6U97kZ>V}f,drpMxkjyNO(?L%0(s6]ݢNDev[gcba	g-=<dWT[o5ffk
%oJymnzUS!(;w XFO-C C<3cn B[zl<h7=PZ4` pY;`k1zh){	%*h56t76]'6	ydB (-h+ZҌg"$
Z)AtHq3/S`B) c}MH [jCWQ]pehuilRL#_!@{m	z̯(c4&<fCB?0} Z&W':`˶<?EU)f~wV@I5u?RCZ7l;$bj)D'yWJPhm)3={'x4;OxiD!tn6=2M1Lt6Rdo6=ஙf40/%*5/ VPe3SM0>?TR0f#BNGbvitP6CyV.[ש{+z5T{tb!#lVW枼Ǆ40gy?xͅ`bO6eVuz(?H78rv:kg)x%4ay2 <m072RbRS>|xf`G\?\8Q ZHP,ڈ;:}>qb>j.f!rB	N/+}&|ŶMe
W|KͰ_vtv(alƇ_߾qiUmmj(# )Op=>p!0,gfƉސ@8[HO?kBu-27S;m%rmH|[LgR`NHH)梫O`j-};^B@ŎX16՘׭S9,sr;!/HSz&=N7̇ۧ'и*- upefK9	/#\S^f  LGZu$>]t{ (-l(ecpbv Fdy}uAXV]9m.BZJSOQEIWZTea ?)8zF2epcwzm] F_TmtG3O
$\,=csdp
S
1X8Wd{f!>ޖQD+vYL~WOv}4WYiW	yp'#                                                                                                                                                                                                                                                                           m        MX042.F                        L  L  [MX.JNET]JNET.OLB;3                                                                                                                                                <        =    MAIL command accepted.    
!%D   BSMTP_IN: send: !AS     
250 MAIL command accepted.    250 Okay.   	  0!%D   BSMTP_IN: send: !AS     D250 Okay.   	  h 221 !AS.BITNET Closing transmission channel +  |!%D   BSMTP_IN: send: !AS     221 !AS.BITNET Closing transmission channel +  ON  250 OK    !%D   BSMTP_IN: send: !AS     250 OK    @250 OK    P!%D   BS MTP_IN: send: !AS     `250 OK    503 Bad  >   sequence of commands.     !%D   BSMTP_IN: send: !AS     503 Bad sequence of commands.     500 Syntax error; command unrecognized. '  !%D   BSMTP_IN: send: !AS      8500 Syntax error; command unrecognized. '  \501 Syntax error in address   !%D   BSMTP_IN: send: !AS     501 Syntax error in address   250 Recipient okay (at least in form)   %  !%D   BSMTP_IN: send: !AS      (250 Recipient okay (at least in form)   %  ?    LSRC_INFO  |354 Start mail input; end with <crlf>.<crlf>,  !%D   BSMTP_IN: send: !AS     354 Start mail input; end with <crlf>.<crlf>,  221 !AS.BITNET Closing tra nsmission channel +  !%D   BSMTP_IN: send: !AS     L221 !AS.BITNET Closing transmission channel +  p503 Bad sequence of commands.     !%D   BSMTP_IN: send: !AS     503 Bad sequence of commands.     250 Serv er has reset to initial state.  &  !%D   BSMT @   P_IN: send: !AS     H250 Server has reset to initial state.  &  l250 Stop wasting my time.     !%D   BSMTP_IN: send: !AS     250 Stop wasting my time.     502 Co mmand not implemented.  !%D   BSMTP_IN: send: !AS     ,502 Command not implemented.  PReceived: from !AS (!AD) by !AS (!AS) with BSMTP; !AS   5  t,     !%D   BSMTP_IN: rewrote !AS as !AS  "  HDR_INFO   250 Message received and queued.   !%D   B A   SMTP_IN: send: !AS     $250 Message received and queued.   H250 Message received from charlatan mailer. +  p!%D   BSMTP_IN: send: !AS     250 Message received from charlatan  mailer. +   	          250 Message received and queued.   !%D   BSMTP_IN: send: !AS     <250 Message received and queued.   `250 Message received from charlatan mailer. +  !%D   BSMTP_IN: send: !AS      250 Message received from charlatan m B   ailer. +     !%D   BSMTP_IN: Sending transcript back to !AS at !AS   5  BSMTP.REPLY   \!%D   BSMTP_IN: BSMTP replies disabled; no transcript sent. ;  p---- Rest of BSMT P input follows ----   %  0 00:05:00.00     !%D   BSMTP_IN: Problem accessing queue; will try again at !%D  >  !%D   BSMTP_IN: Sending !AS back to !AS at !AS  .  DPOSTMAST.MAIL     |!%D   BSMTP_IN: Finished.           
MDM_WRITEF   LIB$SYS_FAO   STR C   $FREE1_DX   FLQ_MAKE_FSPEC   
MDM_MKDATE   STR$FREE1_DX   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF     LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO    STR$FREE1_DX   STR$FREE1_DX   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF D      LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO    STR$FREE1_DX   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   STR$FREE1_DX   MEM_FREETXT   FLQ_ADD   
MDM_WRITEF     LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX E      STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF     LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   MEM_FREETXT   MEM_FREETXT   
MDM_WRITEF     LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITE F   F   LIB$SYS_FAO   STR$FREE1_DX   
FLQ_UPDATE     
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MEM_GETTXT   
MEM_GETTXT   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO     STR$FREE1_DX   MEM_FREETXT   
MEM_GETTXT   MEM_FREETXT   MEM_FREETXT   MEM_FREETXT   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MEM_GETTXT   
MDM_WRITEF   G      LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   MEM_FREETXT   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
SYS$GETTIM   
SYS$BINTIM    
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   MEM_FREETXT   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX K
P  
 K
  BSMTP_IN  	K
	    H   û 	<  g	V   gg	s  	 	 	 	 	   	 	  Rg	 	 
	  	P 		O )	h 	Z , 	 	L c I   		 	    ^ЬWԭЏ  ԭЏ  ԭЏ  ԭЏ  ԭЏ  ԭЏ  ԭЏ  ԭЏ  ԭЏ  ԭ DEBUGKЏ  pԮtǬ <Ǫ ~Ǌ <ǈ ~~~ d LIB$SYS_FAOp 
TRACE_UNIT  
MDM_WRITEFp STR$FREE1_DXԮǬ Ǫ  
STR$COPY_Rȟ؟ FIND_BITNET_HOSTP1  p STR$POSITIONPR J   7 	STR$RIGHT STR$LEFT STR$COPY_DXǊ ǈ    
STR$COPY_Rȟ STR$CASE_BLIND_COMPARERPR؟ STR$CASE_BLIND_COMPARESPSRSП STR$CASE_BLIND_COMPARERPRSR STR$CASE_BLIND_COMPAREQPQRSSQPPPxPPxP|PPP ݧ   FLQ_MAKE_FSPEC 	MDM_OPENF 	JNET_INFO3' ݧ FLQ_MAKE_FSPEC񟭸~  	MDM_OPENF ݧ FLQ_MAKE_FSPEC K   񟭰~$ 	MDM_OPENF~~ 
MDM_MKDATEЏ  pԮt  JNETNAMEt~  LIB$SYS_FAOpЮ RR 
MDM_WRITEFp STR$FREE1_DXЏ  pԮtǬ <Ǫ ~Ǌ <ǈ ~~  LIB$SYS_FAOpR 
MDM_WRITEFp STR$FREE1_DXЏ  pԮtt~  LIB$SYS_FAOpR   
MDM_WRITEFp STR$FREE1_DX LR 
MDM_WRITEF TR 
MDM_WRITEF pR 
MDM_WRITEF xR 
MDM_WRITEFЏ  pԮt  
MX_VERSIONP JNETNAME|~                                                                                                                                                                                                                                                                           1ӌ        MX042.F                        L  L  [MX.JNET]JNET.OLB;3                                                                                                                                          m      K        L     LIB$SYS_FAO 	JNET_INFO3pݮ  
MDM_WRITEF DEBUG<Џ  hԮlp~p~  LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DXp STR$FREE1_DXЏ  hԮl  
MX_VERSIONP JNETNAMEt~  LIB$SYS_FAOhR   
MDM_WRITEFh STR$FREE1_DX[ԮԮDԮ8YԮ@ݮ 	MDM_READFPj 	JNET_INFO3 Pݮ 
MDM_WRITEF DEBUG?Џ  pԮt P~x~ t LIB$SYS_FAOp 
TRACE_UNIT 
MDM M   _WRITEFp  STR$FREE1_DX ݮ 1YYP ЭPORR   R<1 DEBUG;Џ  hԮlR~p~  LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DXЏ  pԮtpݮ 	MDM_READFPp  	JNET_INFO3 <ݮ 
MDM_WRITEF DEBUG?Џ  hԮl <~p~ ` LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DX ݮ  
MDM_WRITEF<ݭ<׮ 
STR$COPY_Rp  
STR$APPEND䱮pP  N   ЮtP OR1?p STR$FREE1_DX蟭 STR$TRIM DEBUG<Џ  pԮt~x~  LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DXЮX1 Џ  pԮt蟮t~    LIB$SYS_FAO 	JNET_INFO3pݮ 
MDM_WRITEF DEBUG<Џ  hԮlp~p~  LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DXp STR$FREE1_DXЏ  hԮl蟮l~   LIB$SYS_FAOhX 
MDM_WRITEF柮h/Џ  pԮt蟮t~  O    LIB$SYS_FAOpX 
MDM_WRITEFp STR$FREE1_DXY
 rj@( PARSE_BSMTP_CMDϮ$ " " " " " " " " " " H" " " "  	JNET_INFO3 	ݮ   
MDM_WRITEF DEBUG?Џ  pԮt 	~x~ 	 LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX 	1Y@SSЮDR
 
STR$COPY_RЏ  pԮtS<
~x~ 4 LIB$SYS_FAO   	JNET_INFO3pݮ 
MDM_WRITEF DEBUG<Џ  hԮlp~p~ X LIB$SYS P   _FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DXp STR$FREE1_DXЏ  hԮlS<
~p~ p1 	JNET_INFO3 ݮ   
MDM_WRITEF DEBUG?Џ  pԮt ~x~  LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX 10Џ  pԮt JNETNAMEt~ 	 LIB$SYS_FAO 	JNET_INFO3pݮ  
MDM_WRITEF DEBUG<Џ  hԮlp~p~ <	 LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1 Q   _DXp STR$FREE1_DXЏ  hԮl JNETNAMEl~ p	1	@( PARSE_BSMTP_CMDϮ$| ||" " " " " "  " "  	JNET_INFO3 0ݮ 
MDM_WRITEF DEBUG?Џ  pԮt 0~x~ T LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX 1y	@SSЮDR
 
STR$COPY_R؟   PARSE821P1   
 STR$COMPARE_EQLPЏ  pԮtS<
~x~  
 LIB$SYS_FAO 	JNET_INFO3pݮ 
MDM_WR R   ITEF DEBUG<Џ  hԮlp~p~ D
 LIB$SYS_FAOh 
TRACE_UNIT   
MDM_WRITEFh STR$FREE1_DXp STR$FREE1_DXЏ  hԮlS<
~p~ d
 LIB$SYS_FAOhX 
MDM_WRITEFh STR$FREE1_DX1 p
 STR$COMPARE_EQLP1 w FIND_BITNET_HOSTPdǊ ǈ   
STR$COPY_R STR$CASE_BLIND_COMPAREPAǬ Ǫ  
STR$COPY_R STR$CASE_BLIND_COMPARERPR STR$CASE_BLIND_COMPAREQPQRQП؟ S    	FORMAT821 N  MEM_FREETXT 
  STR$COPY_DX CONFIG STR$COPY_DX 
؟ 
 
 
STR$CONCATD<  
LIB$GET_VMЮDV, n  f8<ԦDB@؟~ 
 LIB$SYS_FAO<PP>>PPH(HJV   FLQ_ADDPD<  LIB$FREE_VMԮD[1ԮY 	JNET_INFO3 
ݮ 
MDM_WRITEF DEBUG?Џ  pԮt 
~x~  LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp  T   STR$FREE1_DX (1*  	JNET_INFO3 <ݮ 
MDM_WRITEF DEBUG?Џ  pԮt <~x~ ` LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX t1Џ  pԮt JNETNAMEt~  LIB$SYS_FAO   	JNET_INFO3pݮ 
MDM_WRITEF DEBUG<Џ  hԮlp~p~  LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DXp STR$FREE1_DXЏ  hԮl JNETNAMEl~  1Ю@PT-
  T U   T   	JNET_INFO3 ݮ 
MDM_WRITEF DEBUG?Џ  pԮt ~x~ 8 LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX Hd 	JNET_INFO3 Xݮ 
MDM_WRITEF   DEBUG?Џ  pԮt X~x~ | LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX X1 	JNET_INFO3 ݮ 
MDM_WRITEF DEBUG?Џ  pԮt ~x~   LIB$SYS_FAOp 
TRACE_UNIT 
MDM V   _WRITEFp STR$FREE1_DX  1@( PARSE_BSMTP_CMDϮ$ 5" " " " " " " " " "  	JNET_INFO3 $ݮ 
MDM_WRITEF DEBUG?Џ  pԮt $~x~ H  LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX l1@~
D~ 
STR$COPY_R؟ PARSE821Pg 	JNET_INFO3 ݮ 
MDM_WRITEF DEBUG?Џ  pԮt ~x~   LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp ST W   R$FREE1_DX 1PѭPQ(rЮ(Rt
p JNETNAMEt STR$CASE_BLIND_COMPAREP CONFIGt STR$CASE_BLIND_COMPAREP( MEM_FREETXTb؟  	FORMAT821, MEM_GETRCPTЮ,V<PP < PP(f|(( MEM_FREETXT֮ 	JNET_INFO3  ݮ 
MDM_WRITEF DEBUG?Џ  pԮt  ~x~ D LIB$SYS_FAOp  
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX t1КB~П ݮX X    
WRITE_INFOx,, MEM_FREERCPTퟭ STR$FREE1_DX 	JNET_INFO3 ݮ 
MDM_WRITEF DEBUG?Џ  pԮt ~x~   LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX ݮ  
MDM_WRITEFY1Џ  pԮt JNETNAMEt~ D LIB$SYS_FAO 	JNET_INFO3pݮ 
MDM_WRITEF DEBUG<Џ  hԮlp~p~ h   LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DXp STR$FREE1_DX Y   Џ  hԮl JNETNAMEl~  LIB$SYS_FAOhX 
MDM_WRITEFh STR$FREE1_DXm 	JNET_INFO3 ݮ   
MDM_WRITEF DEBUG?Џ  pԮt ~x~  LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX X 
MDM_WRITEF1x,, MEM_FREERCPTYЮDP8P 
FLQ_UPDATED<    LIB$FREE_VMԮD 	JNET_INFO3 @ݮ 
MDM_WRITEF DEBUG?Џ  pԮt @~x~ d LIB$SYS_FAO Z   p 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX ݮ 1 	JNET_INFO3 ݮ  
MDM_WRITEF DEBUG?Џ  pԮt ~x~  LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX  1X蟭 STR$TRIMұ.ZZZ1\b<RR 
MEM_GETTXTPVR
(RĦf~~  
MDM_MKDATE  
MX_VERSIONP JNETNAMEǊ <ǈ ~ȟ~ 	 LIB$SYS_FAO<~ 
MEM_GETTXTPV
(ĦfpPPp                                                                                                                                                                                                                                                                           ,V        MX042.F                        L  L  [MX.JNET]JNET.OLB;3                                                                                                                                                Z        [   PthPPhPlp 
PARSE_HDRSp41cЮ4P
`d!J J J J J J J J D D D D D D D D J D J J  J D D D D D D D D D D D D D `l STR$FREE1_DXꞮXPPXP\\h PARSE_ADDRLISTRX01 Ю0P
PRTR  
STR$APPENDT BITNET_TO_MX DEBUG?Џ  HԮLT~T~   LIB$SYS_FAOH 
TRACE_UNIT 
MDM_WRITEFH STR$FREE1_DX 
STR$APPENDR0 MEM_FREETXT1_R3<~ 
MEM_GETTXTPVЮ4P
( \   fl4 MEM_FREETXT4l1h ݮLݬ  
WRITE_HDRS44 MEM_FREETXTh44 MEM_FREETXTퟮ8ЮLRR OPEN_MSG_TEXTZ1 ݮ8 
MDM_CLOSEFԮ8[Įf 	JNET_INFO3 ݮ 
MDM_WRITEF DEBUG?Џ  XԮ\ ~`~ @  LIB$SYS_FAOX 
TRACE_UNIT 
MDM_WRITEFX STR$FREE1_DX hd 	JNET_INFO3 ݮ 
MDM_WRITEF DEBUG?Џ  XԮ\ ~`~  LIB$SYS_FAOX 
TRACE_UNIT ]    
MDM_WRITEFX  STR$FREE1_DX ݮ 1YT 	J   STR$FIND_FIRST_NOT_IN_SETPPP<< 	STR$RIGHT  
STR$APPEND 
STR$APPEND0<RR 
MEM_GETTXTPVR
(RĦf  STR$COPY_DX1k蟭 STR$TRIMޱP.PPZZZ1 ݮ8 
MDM_CLOSEFԮ8[f 	JNET_INFO3 4ݮ 
MDM_WRITEF DEBUG?Џ  pԮt 4~x~ X LIB$SYS_FAOp 
TRACE_UNIT  
MDM_WRITEFp  ^   STR$FREE1_DX d 	JNET_INFO3 ݮ 
MDM_WRITEF DEBUG?Џ  pԮt ~x~  LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX X  
MDM_WRITEFYU@ЮDR.)rptpݮ< 
MDM_WRITEF<pPP<PP ݮ< 
MDM_WRITEFծ@
@ MEM_FREETXT1 	JNET_INFO31 ݮ 
MDM_CLOSEFǊ ǈ  
STR$COPY_RǬ Ǫ    
STR$COPY_R DEBUG?Џ  pԮtȟ~|~ T L _   IB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX hȟ MYUNAME JNET_SEND_FILE@ DEBUG9Џ  pԮt~t~    LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DXR['R ݮ  
MDM_WRITEFݮ 	MDM_READFPݮ 
MDM_CLOSEFݮ 
MDM_CLOSEF[|p 
SYS$GETTIMh  
SYS$BINTIM(lx  LIB$ADD_TIMES<<8 DEBUG<Џ  `Ԯd(~h~ < LIB$SYS_FAO` 
TRACE_UNI `   T 
MDM_WRITEF` STR$FREE1_DX1 R1 Ǌ ǈ  
STR$COPY_RǬ Ǫ  
STR$COPY_R DEBUGBЏ  pԮtȟ🭰~~ t  LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX ȟ MYUNAME JNET_SEND_FILE8.8ЮDP8P 
FLQ_UPDATED<  LIB$FREE_VMԮDW 
FLQ_UPDATEծ8
ݮ8   
MDM_CLOSEFծ@
@ MEM_FREETXTЮDP#8P 
FLQ_UPDATED<  LIB$FREE_VM DEBUG9Џ  pԮt a   ~t~  LIB$SYS_FAOp 
TRACE_UNIT 
MDM_WRITEFp STR$FREE1_DX STR$FREE1_DX   STR$FREE1_DX STR$FREE1_DX STR$FREE1_DX STR$FREE1_DX STR$FREE1_DX STR$FREE1_DX STR$FREE1_DXP 	          $PLIT$    $PLIT$      (  $CODE$   $CODE$(      w w 1       " V1.2                            D     CHECK_UNQUEUED_MESSAGESV1.227-May-1994 10:5927-May-1994 10:59  VAX Blis b   s-32 V4.6-902 A     CHECK_UNQUEUED_MESSAGES  CHECK_UNQUEUED_MESSAGES   @P     PMX_JNET_  _LOCK_UNQCHK JAN_RECEIVE:MX_JNET_CTRL.*   $MX_JNET_FILE H<!AD@!AD>   	 \JNET_INPUT  
 p;         	COPY_FILE   LIB$SYS_FAO   LIB$CVT_DTB   LIB$FIND_FILE   LIB$FIND_FILE_END   
STR$APPEND   LIB$DELETE_FILE   
LIB$GET_VM   
STR$CONCAT   CONFIG   SYS$ENQW   STR$FREE1_DX   
SYS$DCLEXH   FLQ_OPEN     	MDM_OPENF   	MDM_PARSE c      	MDM_READF   
MDM_CLOSEF   FLQ_ADD   FLQ_MAKE_FSPEC   
FLQ_UPDATE   	FLQ_CLOSE   STR$FREE1_DX   P $  
     CHECK_UNQUEUED_MESSAGES 	 	6  %	a  	  		  		  	  	    [ STR$FREE1_DXZ 	MDM_READFY @X^hkЏ  Ԯ[ CONFIG3쟮 
STR$CONCAT|~|~|~(~ SYS$ENQWPWjW1X   d   ȞШП 
SYS$DCLEXHh FLQ_OPENPWWЏ  ԭЏ  ԭ   ԭԮ$ LIB$FIND_FILEP1 	MDM_OPENFPWW՟8 	MDM_PARSEPWW~ 	MDM_OPENFPWW, n  $PЮVVi<PP>>PP`(`bVi<PPPP (  Vi<PP  PP  (   < ~Ϊ <ά ~~L LIB$SYS_FAO<PP>>PP`(`bViݭ<~ LIB$CVT_DTB쟭Vi(ݭ<~ LIB$CVT_DTBV 
MDM_CLOSEF e   \CXT FLQ_ADDPWWs蟫`ݮ( FLQ_MAKE_FSPEC蟭   	COPY_FILEPWW8PT 
FLQ_UPDATEl 
STR$APPEND LIB$DELETE_FILE LIB$DELETE_FILEPT 
FLQ_UPDATE1% 	FLQ_CLOSE LIB$FIND_FILE_END꟭jjjP      EXIT_HANDLER     SYS$DEQ  		 
  !   լ|~~ݬ SYS$DEQP 	        D   $OWN$     $OWN$D         $PLIT$   $PLIT$   f          $CODE$   $CODE$    Q    w w 1        D V1.3-1                          4     ERRORV1.3-121-May-1994 03:0621-May-1994 03:06  VAX Bliss-32 V4.6-902 "     ERROR  
ERROR_INIT   P       P<>        CONFIG   
WRITE_INFO   
WRITE_HDRS   	READ_HDRS   
FORMAT_HDR   	COPY_FILE   LIB$SYS_FAO   
STR$CONCAT   
STR$PREFIX   STR$FREE1_DX   STR$COMPARE   STR$COPY_DX   STR$DUPL_CHAR   STR$COMPARE_EQL3    MEM_GE g   TRCPT   MEM_FREERCPT   MAKE_ADDRESS   P   
      
ERROR_INIT ! 	 	D   b   R}ЬЏ  bԢݬ STR$COMPARE_EQLPݬR STR$COPY_DXP  B    B	RCP_ERROR [ PError(s) occurred when sending to the following user(s):8   !AD: !AS  
 L !    
MDM_WRITEF   STR$FREE1_DX  BP   
 B    	RCP_ERROR9 	B	m + 	  	      $T 
MDM_WRITEFS^ЬRd  h     dADݤcЏ  nԮݬ<~~X LIB$SYS_FAO^ݤc^ STR$FREE1_DXP "  e     OPEN_ERROR_FILE `P<>  Postmaster  
 d<   >   JNET delivery agent <!AS>     JNET delivery error   HDR_INFO  SRC_INFO  <>    <>    MSG_TEXT  Note: this message was generated automatically. /    R @A problem occurred during JNET delivery of your message.8 H      FLQ_ADD   
MDM_MKDATE i      
MEM_GETTXT   
MEM_GETTXT   
MEM_GETTXT   
MEM_GETTXT   MEM_FREETXT   FLQ_MAKE_FSPEC   	MDM_OPENF   STR$FREE1_DX  Pl 	 	 ]  	  	    
MEM_GETTXT[`Z Y ^i1BЏ  ԮPPPPPP, n  @}3HPjR FLQ_ADDP	P 
LIB$SIGNAL~~ 
MDM_MKDATE<~kPV
(f~ MAKE_ADDRESS<PPP>>PP P<                                                                                                                                                                                                                                                                           K        MX042.F                        L  L  [MX.JNET]JNET.OLB;3                                                                                                                                          ?      i        j   X<PWRV, WfVW,X WfXVXW, Wf~< LIB$SYS_FAO<~kPV
(f<i~kPVi
(ifX STR$COPY_DX<~kPV
(fhݩ 
WRITE_HDRSn^  MEM_FREETXT MEM_GETRCPTЮV<iPP < PP(fʐ 3 ʄ xݩ 
WRITE_INFO MEM_FREERCPTʠ ݩ FLQ_MAKE_FSPEC~ 	MDM_OPENF  
MDM_WRITEF  ]  
MDM_WRITEF  
MDM_WRITEF( k    
MDM_WRITEFi STR$FREE1_DXP   c   

ERROR_SEND t PMessage follows.         MSG_TEXT (ERROR: cannot get message text)  Q    STR$FREE1_DX   MEM_FREETXT   
MDM_CLOSEF   
FLQ_UPDATE   STR$FREE1_DX  
P  
 
  
ERROR_SEND [ 	
	 L "   	COPY_FILEY 
MDM_CLOSEFXW 
MDM_WRITEFV U ^1Џ  Ԯ
 l   PPPWefefеSSF
S 
FORMAT_HDRn)nR
ef<
PP^ MEM_FREETXTcSefeh0T-,  #$  FLQ_MAKE_FSPECǟ~ i,~~iP*U 	MDM_OPENFPLef eh0 
FLQ_UPDATE STR$FREE1_DXP	  T       
LIB$SIGNAL (  $OWN$    $OWN$(       $PLIT$   $PLIT$      ^  $CODE$   $CODE$^    Q	 m        w w 1        V1.6                            4     JNET_INV1.621-May-1994 03:0721-May-1994 03:07  VAX Bliss-32 V4.6-902 '     JNET_IN  PROCESS_INPUT    P!%D Processing incoming message, entry number !UL   1   JNET_INPUT  
  <!%D   File not quite there yet...couldn't find the input file.  >  P!%D   Couldn't open the file (sts=!XL), probably still INP. ;   !%D   Dest user=!AD,  File type code=!UL, first line is: !AS ;   HELO    !%D n      This is a BSMTP file.   (220 220-!%D   This is a BSMTP reply...trash it. '  T<     >     !AD@!AD.BITNET    <@    :     >     ! %D   Not BSMTP: org=!AS, rcpt=!AS  "  !%D   ...oh, gross.  This is a PROFS message.  Will encapsulate.@     L@     T 	    `      l,     x!%D   Translated address !AS to !AS #  .BITNET   f rom !AD (!AD) by !AS (!AS) with Jnet; !AS  *  !AD@! o   AD   !%D   Got entry number !UL in queue.$  !AD@!AD   0SRC_INFO  @HDR_INFO  PMSG_TEXT  `!%D   Failed to add entry to queue, sts=!XL +  p    FIND_BITNET_HOST   PARSE_NOTEADRS   BITNET_TO_MX   BSMTP_IN   
WRITE_INFO   
PARSE_HDRS   
WRITE_HDRS   PARSE_ADDRLIST   
PARSE_MBOX   
MX_VERSION   MEM_GETRCPT   MEM_FREERCPT   
STR$COPY_R   STR$COPY_DX     
STR$UPCASE   STR$POSITION   
STR$CONCAT   
STR$APPEND   
STR$PREFIX   LIB$S p   YS_FAO   	STR$RIGHT   STR$CASE_BLIND_COMPARE   STR$TRIM   STR$FIND_FIRST_NOT_IN_SET   STR$LEFT   LIB$FIND_FILE   LIB$FIND_FILE_END     	JNET_INFO   LCLHST   CONFIG   DEBUG   
TRACE_UNIT   
MDM_WRITEF   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   FLQ_MAKE_FSPEC   STR$FREE1_DX   
FLQ_UPDATE   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX    	MDM_OPENF   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   	MDM_READF   
MDM_CLOSEF   
MDM_WRITEF   LIB$S q   YS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX    
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MEM_GETTXT   
MEM_GETTXT   
MDM_MKDATE   
MEM_GETTXT    STR$FREE1_DX   STR$FREE1_DX   
MEM_GETTXT   
MEM_GETTXT   STR$FREE1_DX   MEM_FREETXT   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   MEM_FRE r   ETXT   
MEM_GETTXT   MEM_FREETXT     
MEM_GETTXT   FLQ_ADD   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   MEM_FREETXT   STR$FREE1_DX   P   
     PROCESS_INPUT 	 	H    	  	  	 A	- 	M o  s   k	  F	h 	   P^ЬW DEBUG8Џ  hԮlݧ~p~ 4 LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DXЏ  xԮ|Џ  ΐ Δ Џ  Έ Ό Џ  ΀ ΄ Џ  pԮtPPPPPPΐ  Hݧ   FLQ_MAKE_FSPECԮ|Θ  LIB$FIND_FILEP LIB$FIND_FILE_END]x STR$FREE1_DXΐ  STR$FREE1_DX8W 
FLQ_UPDATE DEBUG t   1
Џ  hԮl~l~   LIB$SYS_FAOh 
TRACE_UNIT  
MDM_WRITEFhr| 	MDM_OPENFP^ DEBUG8Џ  hԮlݮ~p~   LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DX8W 
FLQ_UPDATEx STR$FREE1_DXΐ 10
ΐ ݮ   	MDM_READFݮ 
MDM_CLOSEFΐ Ό  
STR$UPCASE DEBUGFЏ  hԮlΈ (Ǿ <Ǽ ~~|~  LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DX(aW  PWΐ  u   P)  ތ F   DEBUG5Џ  hԮl~l~ D LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DXWݬ BSMTP_INfΐ 1  Lތ 	 Pތ q DEBUG5Џ  hԮl~l~ | LIB$SYS_FAOh  
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DX8W 
FLQ_UPDATEΐ  STR$FREE1_DXΈ  STR$FREE1_DX΀  STR$FREE1_DXx1| 	MDM_OPENFǾ Ǽ Θ  
STR$COPY_R  LCLHSTΘ  Θ   
STR$CONCAT v     MEM_GETRCPTЮ V, n f<Έ PP < PP(ތ fǬ ݮǪ Y<i~Ǌ [[ǈ Z<j~Π ~  LIB$SYS_FAO Δ   CONFIG ΄  
STR$CONCAT DEBUG<Џ  hԮlΈ t~t~   LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DX(1  DEBUG5Џ  hԮl~l~ D LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DX<ΐ RR 
MEM_GETTXTPVR
(Rޔ f<Έ ~   
MEM_GETTXT w   PVΈ 
(Έ ތ fΐ ~ 
MDM_MKDATE<ΐ RR 
MEM_GETTXTPVR
(Rޔ f LΔ  STR$COPY_DX1hPPPPPTHPPHPLbZЏ  @ԮDЏ  hԮlXiXЮ\j`[d@΄ ΐ d  FIND_BITNET_HOSTP1 @Џ  8Ԯ< XD STR$POSITIONPR5n^D@ 	STR$RIGHTn^DΘ  STR$LEFTΐ D STR$COPY_DXΈ \ STR$CASE_BLIND_COMPARERPR΀ \ STR$CASE_BLIND_COMPARESPSRS8\  STR$CASE_BLIND_COMPARERP x   RSR@d STR$CASE_BLIND_COMPAREQPQRXXQX8 STR$FREE1_DXh STR$FREE1_DXΈ ݮ 	MDM_READFPΈ Δ  STR$TRIM1 ΐ ޔ  ޔ 	J dΔ  STR$FIND_FIRST_NOT_IN_SETP PPΔ ΐ  	STR$RIGHT pl 
STR$APPENDΈ l 
STR$APPEND1<hRR 
MEM_GETTXTPVR
(RlfTΐ l STR$COPY_DX1F<hRR 
MEM_GETTXTPVR
(RlfTh STR$FREE1_DXHT  
PARSE_HDRSP$$ MEM_FREETXTH$1                                                                                                                                                                                                                                                                           J        MX042.F                        L  L  [MX.JNET]JNET.OLB;3                                                                                                                                                x        y   "Ю$P
`d!J J J J J J J J D D D D D D D D J D J J J D D D D D D D D D D D D D `ΐ  STR$FREE1_DXឮ8PP8P<(X<h PARSE_NOTEADRS<h  PARSE_ADDRLISTR81<ЮP
024R |Δ  
STR$APPENDΈ 4 BITNET_TO_MX DEBUG<Џ  (Ԯ,Έ 4~4~  LIB$SYS_FAO( 
TRACE_UNIT 
MDM_WRITEF( STR$FREE1_DXΈ Δ   
STR$APPENDRЮ$P1 X΀ Ό 8 
PARSE_MBOXi0Ю4΀ 4 STR$CAS z   E_BLIND_COMPAREQPQQXXBЏ  (Ԯ, 40 
STR$CONCAT΀ , STR$CASE_BLIND_COMPAREQPQQX( STR$FREE1_DXX!j0[4Έ 4   STR$CASE_BLIND_COMPAREQPQQX MEM_FREETXT1R5<ΐ RR 
MEM_GETTXTPVЮ$PR
(Rޔ f$ MEM_FREETXT$1ΐ ~ 
MDM_MKDATEΐ   
MX_VERSIONP CONFIG[<j~ݮ<i~Τ ~ 
   LIB$SYS_FAO<Έ ~ 
MEM_GETTXTPVΈ 
(Έ ތ f, n  Θ Τ    C ݮ<i~[<j~Π  {   ~  LIB$SYS_FAO<ΐ PP>>PP ( ޔ  Θ  FLQ_ADDP1# DEBUG8Џ  hԮlݧ~p~ (  LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DXY<i~[<j~Π ~ 8 LIB$SYS_FAOΐ C~| Hά ݬ 
WRITE_INFO XΠ ݬ 
WRITE_HDRSΐ  hΨ  FLQ_MAKE_FSPECΔ    	MDM_OPENFΈ ݮ 	MDM_READFP)Έ Δ  STR$TRIMΐ ݮ  
MDM_WRITEF<ΐ PPΨ ݮ 
MDM_CLOSEFݮ 
MDM_CLOSEF |    Θ  
FLQ_UPDATE8W 
FLQ_UPDATE= DEBUG8Џ  hԮlݮ~p~   LIB$SYS_FAOh 
TRACE_UNIT 
MDM_WRITEFh STR$FREE1_DX   MEM_FREERCPT$$ MEM_FREETXTΐ  STR$FREE1_DXΈ  STR$FREE1_DX΀  STR$FREE1_DXx STR$FREE1_DXp   STR$FREE1_DXP A     	TO_MAILER		 	  M < ЬU 	JNET_INFO3T 	JNET_INFO3PTP-ż ž  
PdTP 	  /   }          $PLIT$    $PLIT$        $CODE$   $CODE$    Q    w w 1       + V2.2                            6     	JNET_SENDV2.221-May-1994 03:0621-May-1994 03:06  VAX Bliss-32 V4.6-902 %     	JNET_SEND  	JNET_SEND    P     P!%D   JNET_SEND: Sending non-BSMTP message. +  MX_JNET_DIR:JNET_!XL_!XL_!XL.TMP  4!%D   JNET_SEND: Could not create temp file, sts=!XL4 \<         MSG_TEXT  !%D   JNET_S ~   END:  Sending file to !AS at !AS,   !17%D XMIT: PROTO=JNET, SOURCE="!AS", HOST="!AS", BYTES_SENT=!UL@  !%D   JNET_SEND:  Send failed: !AS  " 4Message number      
ACC_OPENED   ACC_FAB   ACC_RAB   	RCP_ERROR   
PARSE_MBOX   
FORMAT_HDR   
MEM_GETTXT   JAN_SENDFILE   
STR$COPY_R   STR$COPY_DX   
STR$CONCAT   STR$FREE1_DX   
STR$PREFIX   
STR$APPEND   
STR$UPCASE    
LIB$GETJPI   LIB$SYS_FAO   LIB$FREE_VM   
LIB$GET_VM   LIB$CVT_HTB   LIB$DELETE_F    ILE   STR$POSITION   	STR$RIGHT   SF_IVCC   	JNET_INFO   JNETNAME   MYUNAME   DEBUG   
TRACE_UNIT   
MDM_WRITEF     LIB$SYS_FAO   STR$FREE1_DX   
SYS$GETTIM   
SYS$CREATE   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX   STR$FREE1_DX   SYS$CONNECT   SYS$PUT   MEM_FREETXT   SYS$PUT   FLQ_MAKE_FSPEC   SYS$OPEN     SYS$CONNECT   SYS$GET   SYS$PUT   SYS$DISCONNECT   	SYS$CLOSE   SYS$DISCONNECT   	SYS$CLOSE   
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX       SYS$PUT   STR$FREE1_DX   
SYS$GETMSG   
MDM_WRITEF   LIB$SYS_FAO#    STR$FREE1_DX   STR$FREE1_DX   P   
     	JNET_SEND 	 	V  	  	  	  	  	   STR$FREE1_DX[΀^ЬVЬZYXЏ  \`Џ  DHЏ  TXЏ  LPЏ  <@dPP    dPh.Џ 6$  DEBUG1Џ  Ԯ~~, LIB$SYS_FAO 
TRACE_UNIT   
MDM_WRITEFk$ 
SYS$GETTIM|~< 
LIB$GETJPIݮ,,H~T LIB$SYS_FAO, n P PưΞL@ܐ<, n ` L`LNlPVlX, n D D<  X   
SYS$CREATEPWWJ DEBUG3Џ  ԮW~~  LIB$SYS_FAO 
TRACE_UNIT 
MDM_WRITEF⟮k<kDkWP SYS$CONNECT    мRRy!F ^ o o o o o o o o o o o o o o R o o o o o o o o o o o o o o o o o )
d 
\

T 
STR$COPY_RbRTTP\\PLLPZPP@ STR$COPY_DXL`D 
PARSE_MBOXPL @ STR$POSITIONP(@T 	STR$RIGHT<`T  
PARSE_MBOXP MYUNAME` STR$COPY_DXмRRLO~hR 
FORMAT_HDRd.ЮS
>D SYS$PUT<
PPX MEM_FREETXTbR> SYS$PUT, n     P `P`vͬ-,  !D     FLQ_MAKE_FSPECHD$, n ` `(, g, n ,ͬ,ͬ, n D D< `` SYS$OPENPWW1 <ͶP< PP< 
LIB$GET_VMD SYS$CONNECT  SYS$GETP> SYS$PUT<PPX֟ SYS$DISCONNECT` 	SYS$CLOSE< LIB$FREE_VM SYS$DISCONNECT 	SYS$CLOSElOL 
STR$COPY_RiTTY108    4$0",  DEBUG9Џ  Ԯ,8~ ~  LIB$SYS_FAO 
TRACE_UNIT 
MDM_WRITEFܟk,8dP  PWWP 	JNET_INFO3H 
ACC_OPENEDBЏ  ԮX0Z~$~, LIB$SYS_FAOЮ   ACC_RAB(3 ACC_RAB"3 ACC_RAB SYS$PUT柮ki}~$W 
SYS$GETMSG DEBUG4Џ  Ԯ~~X LIB$SYS_FAO 
TRACE_UNIT 
MDM_WRITEFk)$`ݤ T  	RCP_ERRORdT1D LIB$    DELETE_FILEٟ\kDkTkLk<kP!  +   +JNET_SEND_FILE  pP!8AS.MAIL   	 p.MAIL    M    !%D   JNET_SEND_FILE:  Sending file as NETDATA  . @    QUMAIL   1    
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX  +P  
 +   JNET_SEND_FILE F 	+	:7  	   
STR$UPCASEW 
STR$CONCATV LIB$SYS_FAOU|T|^ЬSЏ  |ԭЏ  tԮxЏ  lԮpl    լݬxg*ݬg||x~Te|fl
լݬp STR$COPY_DX<Rl=Ѭ7<R   DEBUG-Џ  nԮ~~Te^ 
TRACE_UNIT 
MDM_WRITEF^ STR$FREE1_DXݬ`ݬfPЏ hԀlЮpԀRpԀ JNETNAME JNETNAME3݀ԀtЮxԀ|ЭԀ MYUNAMEY  MYUNAME3ԀcУ|   JAN_SENDFILEPQˏ   QPP SF_IVCCQQP      MSG_ROUTINE P!%D !AS      1    
MDM_WRITEF   LIB$SYS_FAO   STR$FREE1_DX  P 		
  y   ^ DEBUG5Џ  nԮݬ~~ LIB$SYS_FAO^ 
TRACE_UNIT 
MDM_WRITEF^ STR$FREE1_DXP 	  B         $OWN$     $OWN$         $PLIT$   $PLIT$         $CODE$   $CODE$    QQ+    w w 1   