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

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

**Used in:** [[george:source:ADDICT865|ADDICT865]], [[george:source:ADJUNCTS85|ADJUNCTS85]], [[george:source:ALAS822|ALAS822]], [[george:source:ALASB867|ALASB867]], [[george:source:ASSOC867|ASSOC867]], [[george:source:BACKROOM865|BACKROOM865]], [[george:source:BMAPDIR865|BMAPDIR865]], [[george:source:BMAPONE867|BMAPONE867]], [[george:source:BMFIXIT864|BMFIXIT864]], [[george:source:BMQUEST866|BMQUEST866]], [[george:source:BMSAVJOB864|BMSAVJOB864]], [[george:source:CDCIPB864|CDCIPB864]], [[george:source:CHANG867|CHANG867]], [[george:source:COMPRESS864|COMPRESS864]], [[george:source:CONIPB8|CONIPB8]], [[george:source:CONMXA85|CONMXA85]], [[george:source:CONMXC8|CONMXC8]], [[george:source:COPYB867|COPYB867]], [[george:source:DEWELL867|DEWELL867]], [[george:source:DICTWELL867|DICTWELL867]], [[george:source:DOXCODE867|DOXCODE867]], [[george:source:DUMP860|DUMP860]], [[george:source:ERASE867|ERASE867]], [[george:source:ERASEA867|ERASEA867]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:FILEMAP|FILEMAP]], [[george:source:GETFREE867|GETFREE867]], [[george:source:GLOBALS867|GLOBALS867]], [[george:source:GOTO867|GOTO867]], [[george:source:HOWBIG867|HOWBIG867]], [[george:source:IDFCONF867|IDFCONF867]], [[george:source:IDFLINE867|IDFLINE867]], [[george:source:IDFPER867|IDFPER867]], [[george:source:INCEND865|INCEND865]], [[george:source:INCEOT865|INCEOT865]], [[george:source:INCSTART865|INCSTART865]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:INCVFCHK850|INCVFCHK850]], [[george:source:INCWRITE865|INCWRITE865]], [[george:source:INLOOP84|INLOOP84]], [[george:source:INPCT84|INPCT84]], [[george:source:INRESTAR84|INRESTAR84]], [[george:source:IPBCCA867|IPBCCA867]], [[george:source:IPBCONS867|IPBCONS867]], [[george:source:IPBINC865|IPBINC865]], [[george:source:IPBLISTB867|IPBLISTB867]], [[george:source:IPBMOP867|IPBMOP867]], [[george:source:IPBMOPB867|IPBMOPB867]], [[george:source:IPBTAPE867|IPBTAPE867]], [[george:source:JDWRITE867|JDWRITE867]], [[george:source:JOBDATA867|JOBDATA867]], [[george:source:JOBDATAB867|JOBDATAB867]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:JWUPDATE867|JWUPDATE867]], [[george:source:LISTEND867|LISTEND867]], [[george:source:MAKEVCC867|MAKEVCC867]], [[george:source:MONJRNAL850|MONJRNAL850]], [[george:source:MOPOUT85|MOPOUT85]], [[george:source:NNORM83|NNORM83]], [[george:source:PUTPER85|PUTPER85]], [[george:source:REGEN865|REGEN865]], [[george:source:RENGAGE851|RENGAGE851]], [[george:source:RESTOREG864|RESTOREG864]], [[george:source:RMTLF864|RMTLF864]], [[george:source:SCEDITAR84|SCEDITAR84]], [[george:source:SCHEDJOB867|SCHEDJOB867]], [[george:source:UNSAVE867|UNSAVE867]], [[george:source:USERDIR842|USERDIR842]], [[george:source:WHATRVS867|WHATRVS867]], [[george:source:WLA867|WLA867]], [[george:source:WLAA867|WLAA867]], [[george:source:WLB867|WLB867]], [[george:source:WSJOBS867|WSJOBS867]], [[george:source:WSPERIS867|WSPERIS867]]

<code - ALTLENG.mac.txt>
 3YPS ...[??? ALTLENG SECT CENT FGN 32 DOC   
 3Y^L    #   
 3^F=    # ALTLENG & VARIANTS ARE LIKE ALTLEN ETC BUT DONT INVOLVE LOCKING THE   
 3^YW    # BLOCK 
 42DG    #   
 42Y6    #MAC  ALTLENG   
 43CQ          LDX   1  %A   
 43XB          LDX   2  %B   
 44C2          CALL  0  (CHANGEG)
 44WL    #STR  %C,£  
 45B=                   +%C                 [SUBROUTINE ADDRESS  
 45TW    #STR  %C
 46*G    #SKI
 46T6                   #10000000           [%C ABSENT   
 47#Q    #STR  £,%C  
 47SB    #SKI
 48#2                   +0                  [%C=£
 48RL    #NOR
</code>