{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: MESSMONA)}}
====== MESSMONA ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_MSYS|MACROS MSYS]]

**Used in:** [[george:source:MESSA|MESSA]], [[george:source:MESSAA|MESSAA]], [[george:source:MESSAB|MESSAB]], [[george:source:MESSAC|MESSAC]], [[george:source:MESSAD|MESSAD]], [[george:source:MESSAE|MESSAE]], [[george:source:MESSAF|MESSAF]], [[george:source:MESSAG|MESSAG]], [[george:source:MESSAH|MESSAH]], [[george:source:MESSAI|MESSAI]], [[george:source:MESSAJ|MESSAJ]], [[george:source:MESSB|MESSB]], [[george:source:MESSBA|MESSBA]], [[george:source:MESSBB|MESSBB]], [[george:source:MESSBC|MESSBC]], [[george:source:MESSBD|MESSBD]], [[george:source:MESSBE|MESSBE]], [[george:source:MESSBF|MESSBF]], [[george:source:MESSBG|MESSBG]], [[george:source:MESSBH|MESSBH]], [[george:source:MESSBI|MESSBI]], [[george:source:MESSBJ|MESSBJ]], [[george:source:MESSC|MESSC]], [[george:source:MESSCA|MESSCA]], [[george:source:MESSCB|MESSCB]], [[george:source:MESSCC|MESSCC]], [[george:source:MESSCD|MESSCD]], [[george:source:MESSCE|MESSCE]], [[george:source:MESSCF|MESSCF]], [[george:source:MESSCG|MESSCG]], [[george:source:MESSCH|MESSCH]], [[george:source:MESSCI|MESSCI]], [[george:source:MESSCJ|MESSCJ]], [[george:source:MESSD|MESSD]], [[george:source:MESSDA|MESSDA]], [[george:source:MESSDB|MESSDB]], [[george:source:MESSDC|MESSDC]], [[george:source:MESSDJ|MESSDJ]], [[george:source:MESSE|MESSE]], [[george:source:MESSF|MESSF]], [[george:source:MESSG|MESSG]], [[george:source:MESSH|MESSH]], [[george:source:MESSI|MESSI]]

<code - MESSMONA.mac.txt>
 3S*8 ...[??? MESSMONA SECT CENT FGN 56 DOC  
 3SK2    #   
 3T4L    #   
 3TJ=    #     HERE FOLLOWS MESSMONA                                **** MESSMONA
 3W3W    #     IT HAS THE SAME FUNCTION AS MESSMON   
 3WHG    #     %A=CHAR COUNT OF MESSAGE PART 
 3X36    #     %B=UNIVERSAL IDENTIFIER   
 3XGQ    #     %C=MESSAGE NUMBER (IF PRESENT)
 3Y2B    #     %D ETC. =CATEGORY NAMES   
 3YG2    #   
 3Y^L    #MAC  MESSMONA  
 3^42 ...#SKI  21?-0?
 3^6B ...(   
 3^8Q ...!     WRONG LENGTH (PREVIOUS PART)  
 3^?6 ...#DEF  0?=21?
 3^*G ...)   
 3^CW ...#DEF  21?=%A
 3^G= ...#SKI  21?>1000-1000 
 3^JL ...(   
 3^M2 ...!     WRONG LENGTH  
 3^PB ...#DEF  21?=0 
 3^RQ ...)   
 3^W6 ...#HAL  %C+0,21?  
 3^YW    #STR  %B
 42DG    #DEF  %B=SEGNO+20?  
 42Y6          CATMASK  %D,%E,%F,%G,%H,%I,%J,%K,%L,%M,%N,%O,%P,%Q,%R,%S,%T,%U,%V-
 43CQ    ,%W,%X  
 43XB    #SKI 22?
 45B=    #DEF  20?=20?+1 
 46*G    #DEF  22?=34?+0?-1]&#10000000<1$1   
 46K# ...#DEF  21?=21?+3/4+0?
 46T6    #SKI  0?>AMFLIMIT-AMFLIMIT  
 47#Q    !   SEGMENT   ! 
 47SB    #NOR
</code>