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

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

**Used in:** 

<code - GETFP.mac.txt>
 CJJ=    #MACRO         GETFP
 CK3W    #STRING        %C   
 CKHG    (   
 CL36          LDN   0  1
 CLGQ          SBS   0  %C   
 CM2B    )   
 CMG2          LDX   0  %B   
 CM^L          BNG   0  (GEOERR) 
 CNF=          STO   0  %A   
 CNYW     MOD  LDX   0  0,%A 
 CPDG          STO   0  %B   
 CPY6    #NORMAL 
</code>