XProfan

nProc beginMutex(string name){

    long rt=createMutex(,,name)

    if getLastError()==error_already_exists {

        releaseMutex(rt)
        closeHandle(rt)
        rt=0

    }

    return rt

}

nProc endMutex(long mutex){

    releaseMutex(mutex)
    closeHandle(mutex)

#0000FF>}