NewBalance

local component = require("component")
local term = require("term")
local event = require("event")
local Data = component.data
local m = component.modem

local PortO = 123

m.open(PortO)

local _, _, from, port, _, Program = event.pull("modem_message")
    print("Starting ", Program)


    local _, _, from, port, _, ID = event.pull("modem_message")
    local ServerA = from
    local File = io.open(ID, "r")
    local BalanceFile = File:read("*l")

    local FBalance = io.open(BalanceFile, "w")

    os.sleep(1)

    local _, _, from, port, _, NewBalance = event.pull("modem_message")

    FBalance:write(NewBalance)


    File:close()
    FBalance:close()

    os.sleep(0.5)
    os.execute("ServerOn")