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

**Defined in:** [[george:source:MACROS_HL|MACROS HL]]

**Used in:** [[george:source:RESTBLOK850|RESTBLOK850]], [[george:source:UNSAVE867|UNSAVE867]]

<code - CHANBLOK.mac.txt>
 2#^J ...[??? CHANBLOK SECT CENT FGN 5 DOC   
 2*9B    #   
 2*P2    #   
 2B8L    #              CHAMBLOK MACRO   
 2BN=    #              WILL RENAME THE FILE/FRB BLOCK,MOVE THE RECORDS UP OVER  
 2C7W    #              THE RECORD RED TAPE AND REDUCE THE LOGICAL LENGTH OF THE 
 2CMG    #              BLOCK
 2D76    #MAC           CHANBLOK 
 2DLQ          LDEX  4  FRH(3)   
 2F6B          SBN   4  3                   [LENGTH OF BLOCK 
 2FL2          LDX   5  FRH+2(3)            [TYPE OF BLOCK   
 2G5L    #STR  %A
 2GK= ...      GETCORE  4,1,,%A,%B   
 2H4W    #STR  %A
 2HJG    #SKI
 2J46 ...      GETCORE  4,1                 [GET BLOCK AND   
 2JHQ          FINDCORE 3                   [STORE ITS TYPE  
 2K3B          STO   5  ATYPE(3) 
 2KH2          STEPAGAIN 
 2L2L          LDN   4  FRH+3(3) 
 2LG=          MHUNTX   2,5  
 2L^W          LDN   5  A1(2)
 2MFG          SMO      ALOGLEN(2)   
 2M^6          MOVE  4  0
 2NDQ          CHAINACT 2
 2NYB    #NOR
</code>