nProcs

nProc fpc(string fle,dta){

    long hFile=createFile(fle,GENERIC_WRITE,0,0,CREATE_ALWAYS,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

}