Как передавать/принимать файлы, если в новой версии нет send/receive networkfile?

Procedure.i ReceiveNetworkFile(ClientID.i, Filename$)
 
  Protected Size.q, Count.i, *Buffer, RcvBytes.q
 
  *Buffer = AllocateMemory(1024, #PB_Memory_NoClear)
  If *Buffer
    RcvBytes = ReceiveNetworkData(ClientID, *Buffer, 1024)
   
    If RcvBytes > 0
      Size = PeekQ(*Buffer)
     
      If Size > 0
       
        RcvBytes - SizeOf(Size)
       
        File = CreateFile(#PB_Any, Filename$)
        If File
          WriteData(File, *Buffer + SizeOf(Size), RcvBytes)
        EndIf
       
        Count = 0     
        While RcvBytes < Size And Count >= 0
          Count = ReceiveNetworkData(ClientID, *Buffer, 1024)
          If Count > 0
            If IsFile(File)
              WriteData(File, *Buffer, Count)
            EndIf
            RcvBytes + Count
          EndIf
        Wend
       
        If IsFile(File)
          If RcvBytes = Size
            Result = #True
          EndIf
          CloseFile(File)
        EndIf
       
      EndIf
     
    EndIf
   
    FreeMemory(*Buffer)
  EndIf 
 
  ProcedureReturn Result
 
EndProcedure
 
 
 
Procedure.i SendNetworkFile(ClientID.i, Filename$)
 
  Protected Result.i, File.i, Size.q, *Buffer
 
  File = ReadFile(#PB_Any, Filename$)
  If File
    Size = Lof(File)
    SizeBuffer = Size + SizeOf(Size)
    *Buffer =  AllocateMemory(SizeBuffer, #PB_Memory_NoClear)
    If *Buffer
      PokeQ(*Buffer, Size)
      If ReadData(File, *Buffer + SizeOf(Size), Size) = Size
        If SendNetworkData(ClientID, *Buffer, SizeBuffer) = SizeBuffer
          Result = #True
        EndIf
      EndIf
    EndIf
    CloseFile(File)
  EndIf
 
  ProcedureReturn Result
 
EndProcedure