{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: GIVFP)}}
====== GIVFP ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

**Used in:** 

<code - GIVFP.mac.txt>
 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 
</code>