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

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

**Used in:** 

<code - WRITESTX.mac.txt>
 C8T=    #   
 C9#W    [???                                WRITESTX
 C9SG    #                                   ********
 C=#6    #MAC  WRITESTX  
 C=RQ    #   
 C??B    #OPT  MWRITESTX1=0  
 C?R2    #OPT  MWRITESTX2=0  
 C#=L    #STR  C,%A  
 C#Q=    #SKI
 C*9W    (   
 C*PG    #SKI  MWRITESTX1-1  
 CB96    (   
 CBNQ    #FRE  MWRITESTX1
 CC8B    #DEF  MWRITESTX1=1  
 CCN2          BRN      MWRITESTX5   
 CD7L    MWRITESTX6  
 CDM=    #DEF  MWRITESTX3=MWRITESTX6 
 CF6W          STO   1  EWK+1(3) 
 CFLG          SMO      0
 CG66          OBEY     0
 CGKQ          STO   1  EBLOCK(3)
 CH5B          STO   1  EWK(3)   
 CHK2          STO   0  ETLINK(3)
 CJ4L          CALL  0  MFTRANC  
 CJJ=          BRN      MTRANERR 
 CK3W          SMO      ETLINK(3)
 CKHG          OBEY     1
 CL36          STO   0  EWK(3)   
 CLGQ          LDX   0  ETMARK(3)
 CM2B          BZE   0  MWRITESTX7   
 CMG2          LDX   0  A1+2(1)  
 CM^L          BNG   0  MWRITESTX8   
 CNF=          LDX   0  FX1  
 CNYW          SBS   0  ETLINK(3)
 CPDG          DOWN     TRANSFER,7   
 CPY6          MHUNTW   3,EWDAS,GEXD 
 CQCQ          LDX   0  FX1  
 CQXB          ADX   0  ETLINK(3)
 CRC2          EXIT  0  2
 CRWL    MWRITESTX7  
 CSB=          STO   1  ETMARK(3)
 CSTW          LDX   0  EWK(3)   
 CT*G          ORS   0  A1+2(1)  
 CTT6    MWRITESTX8  
 CW#Q          LDX   0  EWK+3(3) 
 CWSB          BZE   0  MWRITESTX15  
 CX#2    #SKI  K6EXOFILE>199-199 
 CXRL    (   
 CY?=          SMO      A1+2(1)  
 CYQW          LDN   0  0
 C^=G          BZE   0  MTRANERR 
 C^Q6    )   
 D29Q          LDN   0  1
 D2PB          SBS   0  A1+2(1)  
 D392    MWRITESTX15 
 D3NL          LDX   0  ETLINK(3)
 D48=          LDX   1  EWK+1(3) 
 D4MW          EXIT  0  2
 D57G          TRANERR   
 D5M6          FTRANC
 D66Q    MWRITESTX5  
 D6LB    )   
 D762    )   
 D7KL    #STR  W,%A  
 D85=    #SKI
 D8JW    (   
 D94G    #SKI  MWRITESTX2-1  
 D9J6    (   
 D=3Q    #FRE  MWRITESTX2
 D=HB    #DEF  MWRITESTX2=1  
 D?32          BRN      MWRITESTX11  
 D?GL    MWRITESTX12 
 D#2=    #DEF  MWRITESTX4=MWRITESTX12
 D#FW          STO   1  EWK+1(3) 
 D#^G          SMO      0
 D*F6          OBEY     0
 D*YQ          STO   1  EBLOCK(3)
 DBDB          SRL   1  7
 DBY2          STO   1  EWK(3)   
 DCCL          STO   0  ETLINK(3)
 DCX=          CALL  0  MFTRANW  
 DDBW          BRN      MTRANERR 
 DDWG          SMO      ETLINK(3)
 DFB6          OBEY     1
 DFTQ          STO   0  EWK(3)   
 DG*B          LDX   0  ETMARK(3)
 DGT2          BZE   0  MWRITESTX9   
 DH#L          LDX   0  A1+2(1)  
 DHS=          BNG   0  MWRITESTX10  
 DJ?W          LDX   0  FX1  
 DJRG          SBS   0  ETLINK(3)
 DK?6          DOWN     TRANSFER,8   
 DKQQ          MHUNTW   3,EWDAS,GEXD 
 DL=B          LDX   0  FX1  
 DLQ2          ADX   0  ETLINK(3)
 DM9L          EXIT  0  2
 DMP=    MWRITESTX9  
 DN8W          STO   1  ETMARK(3)
 DNNG          LDX   0  EWK(3)   
 DP86          ORS   0  A1+2(1)  
 DPMQ    MWRITESTX10 
 DQ7B          LDX   0  EWK+3(3) 
 DQM2          BZE   0  MWRITESTX16  
 DR6L    #SKI  K6EXOFILE>199-199 
 DRL=    (   
 DS5W          SMO      A1+2(1)  
 DSKG          LDN   0  0
 DT56          BZE   0  MTRANERR 
 DTJQ    )   
 DW4B          LDN   0  1
 DWJ2          SBS   0  A1+2(1)  
 DX3L    MWRITESTX16 
 DXH=          LDX   0  ETLINK(3)
 DY2W          EXIT  0  2
 DYGG          TRANERR   
 D^26          FTRANW
 D^FQ    MWRITESTX11 
 D^^B    )   
 F2F2    )   
 F2YL    #NOR
</code>