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

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

**Used in:** 

<code - BMOPENDIR.mac.txt>
 4S4S ...[??? BMOPENDI SECT FILE FGN 36 DOC  
 4S#L    [ %A-BREAKIN. %B-LABEL IF NOT OK. %C-LABEL IF BACKMAP MARKER SET(X1->FIL
 4SS=    [& DIRECTORY IS OPEN
 4T?W    [ %D-LABEL IF FILE OFFLINE(OPTIONAL)
 4TRG    #MAC  BMOPENDIR 
 4W?6          OPENDIR  %A,GENERAL,CAREFUL,QUERY 
 4WQQ          TESTRPN2 OK,%B
 4X=B          MHUNTW   1,FILE,ENT   
 4XQ2          LDEX  0  ECOPS(1) 
 4Y9L    #STR  %D
 4YP=          BZE   0  %D   
 4^8W    #STR  %D
 4^NG    #SKI
 5286          BZE   0  M1BMOPENDIR  
 52MQ          BACKSPACE                    [SO STEPAGAIN READS NAME 
 537B          MHUNTW   1,FILE,ENT   
 53M2    M1BMOPENDIR 
 546L          JMBS     %C,1,BEBMUWB,BEBM
 54L=    #NOR
</code>