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