C?R2    #MACRO         GIVFP
 C#=L    #STRING        %C   
 C#Q=    (   
 C*9W          LDN   0  1
 C*PG          ADS   0  %C   
 CB96    )   
 CBNQ          LDX   0  %B   
 CC8B     MOD  STO   0  0,%A 
 CCN2          LDX   0  %A   
 CD7L          STO   0  %B   
 CDM=    #NORMAL