nProcs

nProc fpca(string fle,dta){

    casenot fileExists(fle) : return fpc(fle,dta)
    long hFile=createFile(fle,4,0,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)
    case hFile==INVALID_HANDLE_VALUE or hFile==0 : return 0
    long wtC=dim(4),kk
    writeFile(hFile,dta,len(dta),wtC,0)
    flushFileBuffers(hFile)
    closeHandle(hFile)
    case len(dta)==long(wtC,0) : kk=1
    dispose(wtC)
    return kk

}