#DEFINE MAX_ATOM_LENGTH 250
 
DECLARE INTEGER GlobalGetAtomName IN kernel32;
    INTEGER nAtom,;
    STRING @lpBuffer,;
    INTEGER nSize
 
CREATE CURSOR cs (atom N(12), atomname C(MAX_ATOM_LENGTH))
 
* scanning the string atoms
FOR nAtom = 0xC000 TO 0xFFFF
    lpBuffer = REPLICATE(CHR(0), MAX_ATOM_LENGTH)
 
    lnResult = GlobalGetAtomName(;
                    nAtom,;
                    @lpBuffer,;
                    MAX_ATOM_LENGTH)
 
    IF lnResult > 0
        INSERT INTO cs;
        VALUES (nAtom, LEFT(lpBuffer, lnResult))
    ENDIF
ENDFOR
 
SELECT cs
GO TOP
BROWSE NORMAL NOWAIT