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

**Defined in:** [[george:source:MACROS_RJDG|MACROS RJDG]]

**Used in:** [[george:source:ALAS822|ALAS822]], [[george:source:CHANFILE8|CHANFILE8]], [[george:source:GLOBALS867|GLOBALS867]], [[george:source:INDEX85|INDEX85]], [[george:source:JWUPDATE867|JWUPDATE867]], [[george:source:ORELEMPT70|ORELEMPT70]], [[george:source:WLOUT865|WLOUT865]]

<code - SHORTEN.mac.txt>
 2JRJ ...[??? SHORTEN SECT CENT FGN 7 DOC
 2K3B    #     [SHORTEN A CORE BLOCK QUICKLY BY A FEW WORDS  
 2KH2    #MAC  SHORTEN   
 2L2L          LDN   0  %B   
 2LG=          BXL   0  ALOGLEN(%A),M1SHORTEN
 2L^W          BXE   0  ALOGLEN(%A),M1SHORTEN
 2MFG          GEOERR   BRIEFPM,SHORTEN  
 2M^6    M1SHORTEN   
 2NDQ          STO   0  ALOGLEN(%A)  
 2NYB    #NOR
</code>