INSERT [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: INSERT)}}
====== INSERT ======
(GIN Macro)

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

**Used in:** [[george:source:ADDICT865|ADDICT865]], [[george:source:BEXTSJ84|BEXTSJ84]], [[george:source:BMJLSLAV864|BMJLSLAV864]], [[george:source:BMSAVJOB864|BMSAVJOB864]], [[george:source:BMXEMS83|BMXEMS83]], [[george:source:BMXEND7|BMXEND7]], [[george:source:CHTAB|CHTAB]], [[george:source:CLOSEALT864|CLOSEALT864]], [[george:source:CREALEX864|CREALEX864]], [[george:source:DTREST860|DTREST860]], [[george:source:ENWELL867|ENWELL867]], [[george:source:FHOBJ860|FHOBJ860]], [[george:source:FHOBJDIR860|FHOBJDIR860]], [[george:source:INCPTRES864|INCPTRES864]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:INKS|INKS]], [[george:source:JOBLIST867|JOBLIST867]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:LISTEND867|LISTEND867]], [[george:source:MAKEFILE863|MAKEFILE863]], [[george:source:NEWDIR867|NEWDIR867]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:NEWPW867|NEWPW867]], [[george:source:OPERAPP864|OPERAPP864]], [[george:source:PROPERTY867|PROPERTY867]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:RENAME864|RENAME864]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RESTEND850|RESTEND850]], [[george:source:SYSPROP867|SYSPROP867]], [[george:source:TRAPGO864|TRAPGO864]], [[george:source:WHATRVSA867|WHATRVSA867]], [[george:source:WLC867|WLC867]], [[george:source:WLE862|WLE862]], [[george:source:WLG862|WLG862]], [[george:source:WORKFILE860|WORKFILE860]]

<code - INSERT.mac.txt>
 25CB    #     MACROS FOR "RINGS & THINGS" IN THE FILESTORE  
 25X2    #   
 26BL    #     THIS SUBFILE CONTAINS THE FOLLOWING  MACROS IN THIS ORDER 
 26W=    #    (NB  PLEASE UPDATE !! )
 27*W    #   
 27TG    #     INSERT
 28*6    #     REPLACE   
 28SQ    #     APPEND           ACCESS  MACROS   
 29#B    #     DELETE
 29S2    #     REWRITE   
 2=?L    #     WIND  
 2=R=    #     WRITEB
 2?=W    #     STEP  
 2?QG    #     QSTEPC
 2#=6    #     READ  
 2#PQ    #     BACKSPACE 
 2*9B    #     REWIND
 2*P2    #     FASTREWIND
 2B8L    #  !  GETFNAME  
 2BN=    #     VSKIP 
 2C7W    #     SKIP  
 2CMG    #     SUBSTITUTE
 2D76    #     STEPREWRITE   
 2DLQ    #     STEPWRITE 
 2F6B    #     READBACK  
 2FL2    #     READAGAIN 
 2G5L    #     READB 
 2GK=    #     STEPAGAIN 
 2H4W    #     CURTAIL   
 2HJG    #   
 2J46    #     GETDIR
 2JHQ    #     GDE   
 2K3B    #     FINDREC   
 2KH2    #     READDICT  
 2L2L    #     READDICU  
 2LG=    #     GETSOUT   
 2L^W    #      GETJOB   
 2MFG    #     LOCATE
 2M^6    #     NEXTENT   
 2NDQ    #     NEXTENT3  
 2NYB    #   
 2PD2    #   
 2PXL    #     GETAFURB                     [LEXICON ACCESS  
 2QC=    #     STEPFBLOCK                   [M&CROS  
 2QWW    #     SCURFUB   
 2RBG    #     FUWBSET   
 2RW6    #   
 2R^= ...#     CORRUPTB  
 2S4B ...#     CHECKBL   
 2S7G ...#     BSCHECK   
 2S94 ...#    DISCFAIL        [ NOT FOR GENERAL USE !
 2S=L ...#   
 2S*Q    # MACRO DEFINITIONS FOR TESTING RINGS AND THINGS
 2STB    #   
 2T58 ...[??? INSERT SECT FILE FGN 19 DOC
 2T*2    #MAC  INSERT
 2TSL    #STR %A 
 2W#=    (   
 2WRW          LDCT 0 %A 
 2X?G     SMO FX2
 2XR6          STO   0  ACOMMUNE7
 2Y=Q     DOWN INSERT,1  
 2YQB    )   
 2^=2    #STR %A 
 2^PL    #SKI
 329=     DOWN INSERT,11 
 32NW    #NOR
</code>