CHARS

(GIN Macro)

Defined in: MACROS JSR

Used in: OPILLSA206, SCEDITAR84

CHARS.mac.txt

 FX9C ...[??? CHARS SECT CENT FGN 9 DOC  
 FX9H ...#MAC  CHARS    [JSRAYNER.THIS MACRO GENERATE A WORD OF 4 CHARS GIVEN BY 
 FX=W                   +0   
 FXQG    #STR  %A
 FY=6    (   
 FYPQ    #FID  0     5  %A   
 F^9B    #SKIP %A>63-63  
 F^P2    !JSR CHARS1 
 G28L    )   
 G2N=    #STR  %B
 G37W    (   
 G3MG    #FID  6     11 %B   
 G476    #SKIP %B>63-63  
 G4LQ    !JSR CHARS2 
 G56B    )   
 G5L2    #STR  %C
 G65L    (   
 G6K=    #FID  12    17 %C   
 G74W    #SKIP %C>63-63  
 G7JG    !JSR CHARS3 
 G846    )   
 G8HQ    #STR  %D
 G93B    (   
 G9H2    #FID  18    23 %D   
 G=2L    #SKIP %D>63-63  
 G=G=    !JSQ CHARS4 
 G=^W    )   
 G?FG    #NOR