** declare the windos api functions
declare integer GlobalAddAtom in win32api string
declare integer GlobalFindAtom in win32api string
declare integer GlobalDeleteAtom in win32api integer

* need a location to hold the atom for exiting. made public
* here, could be a property of a class.
public natom

** when creating a name for the atom it has nothing to do with the window name.  
so make the name anything. 
** it is not case senstive abc = ABC

** if the atom exist from previous load it will return a 
** positive number
if GlobalFindAtom('any name') >  0 
   quit 
else
   natom = GlobalAddAtom('any name')  && create atom for the app
endif

* I say use any name, but the name must be consistant.  
* doing a find and add atom will be with the same name.
** at the end of the program just before exiting
** destroy the atom
GlobalDeleteAtom(natom)

* it is importen to destroy the atom, for it is not automaticly destroyed on exit.  
* which will mean that the program will not run again, untill the system is restarted.

DECLARE integer GlobalAddAtom IN win32api string
DECLARE integer GlobalFindAtom IN win32api string
messagebox(GlobalFindAtom('any string'))

Declare integer GlobalAddAtom in win32api string
Declare integer GlobalDeleteAtom in win32api integer
Declare integer GlobalFindAtom in win32api string
lcAtomStr = "My TEST"
lcRandomStr = SYS( 3 )
lnAtomHandle = GlobalAddAtom(m.lcAtomStr)
MESSAGEBOX(GlobalFindAtom(m.lcRandomStr), 0 + 64 ,'GlobalFindAtom('+m.lcRandomStr+')')
MESSAGEBOX(lnAtomHandle, 0 + 64 ,'AtomHandle')
MESSAGEBOX(GlobalFindAtom(m.lcAtomStr), 0 + 64 ,'GlobalFindAtom('+m.lcAtomStr+')')
MESSAGEBOX(GlobalDeleteAtom(m.lnAtomHandle), 0 + 64 ,'GlobalDeleteAtom(AtomHandle)')

local lhAtom
lhAtom=GlobalAddAtom("My Atom")
lhAtom = lhAtom - int(lhAtom/ 65536 )* 65536 

DO WHILE GlobalDeleteAtom(GlobalFindAtom(m.lcAtomStr)) =  0 
ENDDO