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

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

**Used in:** 

<code - FTRANC.mac.txt>
 =3S2    #   
 =4?L    # **********************************************************************
 =4R=    # *                                                                     
 =5=W    # *                        EXOFILE TRANSFER SYSTEM                      
 =5QG    # *                                                                     
 =6=6    # *          FTRANC,FTRANW,TRANERR,OPENST,CLOSEST,CLOSEWR,WORDST        
 =6PQ    # *          READST,READSAVE,READSTX,SAVEST,WRITEST,WRITESTX,CHUCK,CHUCK
 =79B    # *                                                                     
 =7P2    # **********************************************************************
 =88L    #   
 =8N=    [???                                FTRANC  
 =97W    #                                   ******  
 ==76    #MAC  FTRANC
 ==LQ    #   
 =?6B    #OPT  MFTRANC1=0
 =?L2    #SKI  MFTRANC1-1
 =#5L    (   
 =#K=    #FRE  MFTRANC1  
 =*4W    #DEF  MFTRANC1=1
 =*JG    MFTRANC2
 =B46    #DEF  MFTRANC=MFTRANC2  
 =BHQ          STO   0  EWK+2(3) 
 =C3B          LDN   1  EBUF-A1(3)   
 =CH2    MFTRANC4
 =D2L          LDX   1  A1(1)
 =DG=          BNZ   1  MFTRANC3 
 =D^W          LDX   0  EWK+2(3) 
 =FFG          EXIT  0  0
 =F^6    MFTRANC3
 =GDQ          LDN   0  FBUFR-1(1)   
 =GYB          TXL   0  EWK(3)   
 =HD2          BCC      MFTRANC4 
 =HXL          ADN   0  129  
 =JC=          TXL   0  EWK(3)   
 =JWW          BCS      MFTRANC4 
 =KBG          LDX   0  EWK+2(3) 
 =KW6          EXIT  0  1
 =L*Q    )   
 =LTB    #NOR
</code>