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

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** [[george:source:BMAPDIR865|BMAPDIR865]], [[george:source:BMAPTWO860|BMAPTWO860]], [[george:source:BMQUEST866|BMQUEST866]], [[george:source:EDSTART860|EDSTART860]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:LISTFREE867|LISTFREE867]], [[george:source:MTCODE864|MTCODE864]], [[george:source:SCEDITAR84|SCEDITAR84]], [[george:source:SCEDITOR84|SCEDITOR84]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:UMMENDS867|UMMENDS867]], [[george:source:WLB867|WLB867]], [[george:source:WLF862|WLF862]]

<code - ALTLENGD.mac.txt>
 493D ...[??? ALTLENGD SECT CENT FGN 32 DOC  
 49?=    #   
 49QW    #MAC  ALTLENGD  
 4==G          LDX   1  %A   
 4=Q6          LDN   2  %B   
 4?9Q          CALL  0  (CHANGEG)
 4?PB    #STR  %C,£  
 4#92                   +%C                 [SUBROUTINE ADDRESS  
 4#NL    #STR  %C
 4*8=    #SKI
 4*MW                   #10000000           [%C ABSENT   
 4B7G    #STR  £,%C  
 4BM6    #SKI
 4C6Q                   +0                  [%C=£
 4CLB    #NOR
</code>