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

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

**Used in:** [[george:source:BMCNTRL866|BMCNTRL866]], [[george:source:CORE867|CORE867]], [[george:source:DTREST860|DTREST860]], [[george:source:GIVE867|GIVE867]], [[george:source:RESTLIMB864|RESTLIMB864]], [[george:source:SJOPEN863|SJOPEN863]]

<code - WRITEAUTO.mac.txt>
 =34J ...[??? WRITEAUT SECT FILE FGN 9 DOC   
 =3#B    #MAC  WRITEAUTO 
 =3S2    #SKI  BSOKAY
 =4?L    (   
 =4R=    #STR  %A
 =5=W    (   
 =5QG    #DEF  M1WRITAUTO=%A$FLAW
 =6=6    #DEF  M2WRITAUTO=%A$BOBJ$FLAW<M1WRITAUTO
 =6PQ    #DEF  M3WRITAUTO=%A&BONLFAIL-BONLFAIL<M2WRITAUTO
 =79B    #DEF  M4WRITAUTO=%A&FREEBOBJ-FREEBOBJ<M3WRITAUTO
 =7P2    #DEF  M5WRITAUTO=%A&BSETFREE-BSETFREE<M4WRITAUTO
 =88L    #DEF  M6WRITAUTO=%A&FAILFLAW-FAILFLAW<M5WRITAUTO
 =8N=    #DEF  M7WRITAUTO=%A$FLAW$BSET$BOBJ<M6WRITAUTO   
 =97W    #DEF  M70WRITAUTO=%A&BONLSWAP-BONLSWAP<M7WRITAUTO   
 =9MG    #DEF  M71WRITAUTO=%A&ASWAPFLA-ASWAPFLA<M70WRITAUTO  
 ==76    #DEF  M72WRITAUTO=%A&FAILSWAP-FAILSWAP<M71WRITAUTO  
 ==LQ    #DEF  M8WRITAUTO=%A&BUSE<1$1<M72WRITAUTO
 =?6B    #SKI  %A&BOBJSET
 =?L2    #STR  %F
 =#5L    #SKI
 =#K=    #DEF  M10WRITAUTO=0 
 =*4W    #SKI  %A&BOBJ   
 =*JG    #STR  %G
 =B46    #SKI
 =BHQ    #DEF  M11WRITAUTO=0 
 =C3B    )   
 =CH2    #STR  %C
 =D2L    #DEF  M9WRITAUTO=0  
 =DG=    #OPT  M8WRITAUTO=1  
 =D^W    #OPT  M9WRITAUTO=1  
 =FFG    #OPT  M10WRITAUTO=1 
 =F^6    #OPT  M11WRITAUTO=1 
 =GDQ    #DEF  M98WRITAUTO=M8WRITAUTO<M9WRITAUTO<M10WRITAUTO<M11WRITAUTO 
 =GYB    )   
 =HD2    #OPT  M98WRITAUTO=1 
 =HXL    #SKI  M98WRITAUTO   
 =JC=    #SKI
 =JWW          GEOERR   1,MACWRONG   
 =KBG    #SKI  M98WRITAUTO   
 =KW6    (   
 =L*Q          CALL  0  (BSTS4)  
 =LTB          LDCT  4  #404 
 =M*2    #STR  %A
 =MSL    (   
 =N#=    #SKI  %A&BONLSWAP   
 =NRW          ORN   4  %A   
 =P?G    #SKI  %A&BONLSWAP<1$1   
 =PR6          ORN   4  %A+FAILBIT   
 =Q=Q    )   
 =QQB    #STR  %A
 =R=2    #SKI
 =RPL          ORN   4  FAILBIT  
 =S9=          LDX   5  %B   
 =SNW          SLL   5  8
 =T8G    #STR  %D
 =TN6          ADX   5  %D   
 =W7Q    #STR  %E
 =WMB          LDX   6  %E   
 =X72    #STR  %E
 =XLL    #SKI
 =Y6=    (   
 =YKW    #STR  %D
 =^5G          LDX   6  1+%D 
 =^K6    )   
 ?24Q    #STR  %F
 ?2JB          LDX   7  %F   
 ?342    #STR  %A
 ?3HL    (   
 ?43=    #SKI  %A&BOBJ   
 ?4GW    (   
 ?52G          LDX   0  %G   
 ?5G6          SMO      FX2  
 ?5^Q          STO   0  BA5  
 ?6FB    )   
 ?6^2    )   
 ?7DL          CALL  0  (BSTS1)  
 ?7Y=    )   
 ?8CW    #SKI  BSOKAY
 ?8XG    (   
 ?9C6    #FRE  M1WRITAUTO,M2WRITAUTO,M3WRITAUTO,M4WRITAUTO,M5WRITAUTO
 ?9WQ    #FRE  M6WRITAUTO,M7WRITAUTO,M70WRITAUTO,M71WRITAUTO,M72WRITAUTO 
 ?=BB    #FRE  M8WRITAUTO,M9WRITAUTO,M10WRITAUTO,M11WRITAUTO 
 ?=W2    )   
 ??*L    #FRE  M98WRITAUTO   
 ??T=    #NOR
</code>