3D6J ...[??? MESSMON SECT CENT FGN 56 DOC   
 3DBB    #   
 3DW2    #   
 3F*L    #     HERE FOLLOWS MESSMON                                 **** MESSMON 
 3FT=    #     IT IS USED TO INTRODUCE A MESSAGE PART AND
 3G#W    #     DEFINE A UNIVERSAL TO REFER TO THE MESSAGE.   
 3GSG    #     %A=NUMBER OF CHARS IN FOLLOWING MESSAGE PART  
 3H#6    #     %B=CATEGORIES AS AN OCTAL NUMBER  
 3HRQ    #     %C=UNIVERSAL IDENTIFIER OF THE MESSAGE
 3J?B    #     %D=SEGMENT NUMBER CONTAINING THE MESSAGE  
 3JR2    #     %E=MESSAGE NUMBER (IF PRESENT)
 3K=L    #   
 3KQ=    #MAC  MESSMON   
 3KSL ...#SKI  21?-0?
 3KX2 ...(   
 3K^B ...!     WRONG LENGTH (PREVIOUS PART)  
 3L3Q ...#DEF  0?=21?
 3L66 ...)   
 3L8G ...#DEF  21?=%A
 3L=W ...#SKI  21?>1000-1000 
 3L*= ...(   
 3LCL ...!     WRONG LENGTH  
 3LG2 ...#DEF  21?=0 
 3LJB ...)   
 3LLQ ...#HAL  %E+0,21?  
 3LPG          %B
 3M96    #STR  %C
 3MNQ    #DEF  %C=SEGNO+20?  
 3N8B    #SKI  22?   
 3PM=    #DEF  20?=20?+1 
 3QLG    #DEF  22?=%B&#10000000<1$1  
 3QW# ...#DEF  21?=21?+3/4+0?
 3R66    #SKI  0?>AMFLIMIT-AMFLIMIT  
 3RKQ    !   SEGMENT   ! 
 3S5B    #NOR