STEPWRITE [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: STEPWRITE)}}
====== STEPWRITE ======
(GIN Macro)

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

**Used in:** [[george:source:BMAPTWO860|BMAPTWO860]], [[george:source:BMSJRNL866|BMSJRNL866]], [[george:source:CLOSEALT864|CLOSEALT864]], [[george:source:DEAD867|DEAD867]], [[george:source:DICTWELL867|DICTWELL867]], [[george:source:FHOBJBL860|FHOBJBL860]], [[george:source:INCCHECK860|INCCHECK860]], [[george:source:INCEND865|INCEND865]], [[george:source:INCRV850|INCRV850]], [[george:source:INCTAPES867|INCTAPES867]], [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTFIND867|LISTFIND867]], [[george:source:LISTPROC867|LISTPROC867]], [[george:source:NEWA867|NEWA867]], [[george:source:REGEN865|REGEN865]], [[george:source:RENAMAG864|RENAMAG864]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:SYSPROP867|SYSPROP867]], [[george:source:TAPERING867|TAPERING867]], [[george:source:WLE862|WLE862]], [[george:source:WLF862|WLF862]]

<code - STEPWRITE.mac.txt>
 8^BD ...[??? STEPWRIT SECT FILE FGN 19 DOC  
 8^L=    #MAC  STEPWRITE 
 925W    #STR  %A
 92KG    #SKI
 9356          TOPFCA   2
 93JQ    #STR  %A
 944B    (   
 94J2 ...      LOADNUM  3,%A 
 953L          LDX   2  FX2  
 95H=          FFCA  
 962W    )   
 96GG          PSTAC    1,2  
 9726          BFCBX    1,1  
 97FQ          JBC      M2STEPWRITE,2,BAMCLEAN  [J IF NOT OPEN IN CLEAN MODE 
 97^B          GEOERR   1,CANTSTWR   
 98F2    M2STEPWRITE 
 98YL          JBC      M1STEPWRITE,1,BFCARE    [J IF NOT CAREFUL
 99D=          LDX   2  FREADBLOCK(2)
 99XW          SBN   2  FBLKS-1  
 9=CG          MAPBCH   2,1  
 9=X6          BNZ   0  M1STEPWRITE         [J.IF BLK ALREADY SUBBED 
 9?BQ          SUBSTITUTE %A 
 9?WB    M1STEPWRITE 
 9#B2          STEPAGAIN %A  
 9#TL          STEPREWRITE %A
 9**=    #NOR
</code>