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

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

**Used in:** [[george:source:APPEND864|APPEND864]], [[george:source:DELETE864|DELETE864]], [[george:source:DROBJ864|DROBJ864]], [[george:source:EDOBJ864|EDOBJ864]], [[george:source:MTCODE864|MTCODE864]], [[george:source:MTOBJ864|MTOBJ864]], [[george:source:PERUSFIL84|PERUSFIL84]], [[george:source:RAND864|RAND864]], [[george:source:READFILE84|READFILE84]], [[george:source:REWRITE864|REWRITE864]]

<code - FILEREAD.mac.txt>
 6W^D ...[??? FILEREAD SECT FILE FGN 11 DOC  
 6X9=    #MAC  FILEREAD  
 6X9C ...#   
 6X9J ...#     SET M4FILEREAD TO ZERO
 6X9P ...#                 IF   %B CONTAINS BSET OR BOBJ 
 6X9W ...#              OR IF   %G IS NOCHECK
 6X=3 ...#   
 6X=8 ...#STR  %B
 6X=* ...#DEF  M2FILEREAD = BSET+BOBJ&(%B)   
 6X=G ...#OPT  M2FILEREAD = 0
 6X=M ...#   
 6X=S ...#STR  NOCHECK,%G
 6X=^ ...#DEF  M3FILEREAD = 0
 6X?6 ...#OPT  M3FILEREAD = 1
 6X?? ...#   
 6X?D ...#DEF  M4FILEREAD = M2FILEREAD^M3FILEREAD<1$1
 6X?K ...#   
 6X?Q ...#   
 6X?X ...#SKI  M4FILEREAD
 6X#4 ...(   
 6X#B ...      LDN   3  6
 6XCG ...M1FILEREAD  
 6XGL ...      SMO      FX2  
 6XKQ ...      STO   3  ACOMMUNE7
 6XMC ...)   
 6XP4 ...      FILEA    %A,%C,%D 
 6XQP ...#SKI  M4FILEREAD
 6XSB ...(   
 6XW4 ...      SMO      FX2  
 6Y3= ...      LDX   3  ACOMMUNE7
 6Y5W ...)   
 6Y8G    #STR  %C
 6YN6          BACKREAD %B,%C,,GEN1,GEN2,%E,%F   
 6^7Q    #STR  %C
 6^MB    #SKI
 7272          BACKREAD %B,BSBS,,GEN1,GEN2,%E,%F 
 729K ...#SKI  M4FILEREAD
 72#8 ...(   
 72BS ...      STO   3  ACOMMUNE7(2) 
 75JB    #STR  %A
 7642          LDX   3  %A   
 76HL    #STR  %A
 773=    #SKI
 77GW          LDN   3  0
 782G          CALL  0  M1FILETRAN          [X1->FCB, X2->FCA
 7#C6          SMO      FX2  
 7#WQ          LDX   2  FPTR                [X2-> BUFFER 
 7CCF ...      CHECKBL 1,2,M5FILEREAD       [J IF NOT CORRUPT - OVERWRITES X0,X1 
 7CG4 ...      SMO      FX2  
 7CJM ...      LDX   3  ACOMMUNE7
 7CM= ...      SBN   3  1
 7CPT ...      BZE   3  M6FILEREAD   
 7CSD ...      FREECORE 2
 7CX3 ...      BRN      M1FILEREAD   
 7C^L ...M6FILEREAD  
 7D49 ...      CORRUPTB BACK1(2),BACK2(2)
 7D6S ...M5FILEREAD  
 7D9C ...      LDX   1  FX1  
 7D#6          LDX   2  FX2  
 7DRQ    )   
 7F?B    #FRE  M2FILEREAD,M3FILEREAD,M4FILEREAD  
 7FR2    #NOR
</code>