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

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:CLOSDEL867|CLOSDEL867]], [[george:source:CONTRACT866|CONTRACT866]], [[george:source:EXINTWO866|EXINTWO866]], [[george:source:SCEXEND867|SCEXEND867]]

<code - CHUCK.mac.txt>
 F3D=    #   
 F3XW    [???                                CHUCK   
 F4CG    #                                   *****   
 F4X6    #MAC  CHUCK 
 F5BQ    #   
 F5WB    #OPT  MCHUCK1=0 
 F6B2    #OPT  MCHUCK2=0 
 F6TL    #STR  C,%A  
 F7*=    #SKI
 F7SW          CALL  0  MCHUCK3  
 F8#G    #STR  W,%A  
 F8S6    #SKI
 F9?Q          CALL  0  MCHUCK4  
 F9RB          LDX   0  %B   
 F=?2    #STR  C,%A  
 F=QL    #SKI
 F?==    (   
 F?PW    #SKI  MCHUCK1-1 
 F#9G    (   
 F#P6    #FRE  MCHUCK1   
 F*8Q    #DEF  MCHUCK1=1 
 F*NB          BRN      MCHUCK5  
 FB82    MCHUCK6 
 FBML    #DEF  MCHUCK3=MCHUCK6   
 FC7=          STO   1  EWK+1(3) 
 FCLW          STO   0  ETLINK(3)
 FD6G          SMO      0
 FDL6          OBEY     0
 FF5Q          STO   0  EWK(3)   
 FFKB          CALL  0  MFTRANC  
 FG52          BRN      MTRANERR 
 FGJL    #SKI  K6EXOFILE>199-199 
 FH4=    (   
 FHHW          SMO      A1+2(1)  
 FJ3G          LDN   0  0
 FJH6          BZE   0  MTRANERR 
 FK2Q    )   
 FKGB          LDN   0  1
 FL22          SBS   0  A1+2(1)  
 FLFL          LDX   0  ETLINK(3)
 FL^=          LDX   1  EWK+1(3) 
 FMDW          EXIT  0  1
 FMYG          TRANERR   
 FND6          FTRANC
 FNXQ    MCHUCK5 
 FPCB    )   
 FPX2    )   
 FQBL    #STR  W,%A  
 FQW=    #SKI
 FR*W    (   
 FRTG    #SKI  MCHUCK2-1 
 FS*6    (   
 FSSQ    #FRE  MCHUCK2   
 FT#B    #DEF  MCHUCK2=1 
 FTS2          BRN      MCHUCK8  
 FW?L    MCHUCK9 
 FWR=    #DEF  MCHUCK4=MCHUCK9   
 FX=W          STO   1  EWK+1(3) 
 FXQG          STO   0  ETLINK(3)
 FY=6          SMO      0
 FYPQ          OBEY     0
 F^9B          SRL   0  7
 F^P2          STO   0  EWK(3)   
 G28L          CALL  0  MFTRANW  
 G2N=          BRN      MTRANERR 
 G37W    #SKI  K6EXOFILE>199-199 
 G3MG    (   
 G476          SMO      A1+2(1)  
 G4LQ          LDN   0  0
 G56B          BZE   0  MTRANERR 
 G5L2    )   
 G65L          LDN   0  1
 G6K=          SBS   0  A1+2(1)  
 G74W          LDX   0  ETLINK(3)
 G7JG          LDX   1  EWK+1(3) 
 G846          EXIT  0  1
 G8HQ          TRANERR   
 G93B          FTRANW
 G9H2    MCHUCK8 
 G=2L    )   
 G=G=    )   
 G=^W    #NOR
</code>