XProfan

bin2src(string fileName,data,bool _append){

    data=decode64(data)
    long l=len(data)

    ifnot l {

        case _append:return
        long fh=assign(fileName)
        rewrite fh
        close fh
        assign fh,""
        return fileName

    }

    mem mem=l+1

    ifnot _append {

        string mem#,0=data
        blockWrite fileName,mem,,l
        dispose mem
        return fileName

    }

    long fh=assign(fileName)
    openrw fh
    seek fh,getFileSize(fh)
    string mem#,0=data
    blockWrite fh,mem,,l
    dispose mem
    assign fh,""
    return fileName

}