ERASESUD

(GIN Macro)
ERASESUD.mac.txt
 KMBL    #MAC  ERASESUD  
 KMW=    #STR  %A
 KN*W    #SKIP   
 KNTG          TOPFCB   2
 KP*6    #STR  %A
 KPSQ    (   
 KQ#B    #STR  %A,2  
 KQS2          LDX   2  %A   
 KR?L    #STR  %B
 KRR=    (   
 KS=W    #SKIP          %B>FUSER1-%B 
 KSQG          SBN   2  FUSER1-%B
 KT=6    #SKIP          %B>FUSER1-FUSER1 
 KTPQ          ADN   2  %B-FUSER1
 KW9B    )   
 KWP2    )   
 KX8L          STO   2  JWSP1
 KXN=          LDN   2  BSUD 
 KY7W    MERASESUD1  
 KYMG          LDX   2  FPTR(2)  
 K^76          TXU   2  CXSU 
 K^LQ          BCC      MERASESUD3   
 L26B          LDX   0  HSUDNAME+3(2)       [COMPARE FIRST FOUR CHARS OF 
 L2L2          SMO      JWSP1               [LOCAL NAME  
 L35L          TXU   0  FLOC1
 L3K=          BCS      MERASESUD1   
 L44W          LDN   1  9                   [COMPARE FULL NAME   
 L4JG    MERASESUD2  
 L546          SMO      1
 L5HQ          LDX   0  HSUDNAME-1(2)
 L63B          SMO      JWSP1
 L6H2          TXU   0  FUSER1-1(1)  
 L72L          BCS      MERASESUD1   
 L7G=          BCT   1  MERASESUD2   
 L7^W          STOZ     HSUDNAME+3(2)
 L8FG          LDX   0  HUSERS(2)
 L8^6          BNZ   0  MERASESUD3   
 L9DQ          LDX   0  HSUDNO(2)
 L9YB          SMO      FX2  
 L=D2          STO   0  ACOMMUNE1
 L=XL          DOWN     PROGDEL,4
 L?C=    #STR  %C
 L?WW          BRN      %C   
 L#BG    MERASESUD3  
 L#W6          LDX   1  FX1  
 L**Q          LDX   2  FX2  
 L*TB    #NOR