ServerOn.lua

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

term.clear()

local PortO = 123

m.open(PortO)

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


if StartUp == "Card-Maker" then

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

    os.sleep(4)

    local _, _, from, port, _, message = event.pull("modem_message")
    local f = io.open(message, "a")
    f:write(message, "\n")
    print("Name is ", message)
    local Decoded_Name = Data.decode64(message)
    print("Decoded Name is ", Decoded_Name)

    os.sleep(2)

    local _, _, from, port, _, ID = event.pull("modem_message")
    print("ID is ", ID)
    f:write(ID, "\n")
    local Decoded_ID = Data.decode64(ID)
    print("Decoded ID is ", Decoded_ID)

    os.sleep(2)

    local _, _, from, port, _, Pass = event.pull("modem_message")
    print("Pass is ", Pass)
    f:write(Pass, "\n")
    local Decoded_Pass = Data.decode64(Pass)
    print("Decoded Pass is ", Decoded_Pass)

    local Balance = 100
    f:write(Balance, "\n")

    f:close()
end

if StartUp ~= "Card-Maker" then
    print("Incorrect Call")
    os.sleep(3)
    term.clear()
    os.execute("serveron")
end