GETFP

(GIN Macro)

Defined in: MACROS GLJ

Used in:

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