Minecraft CC rednet basic Counication.

function readADV( _sReplaceChar, _tHistory ) -- slightly modified read function credit to dan200 for original
    term.setCursorBlink( true )

    local sLine = ""
    local nHistoryPos = nil
    local nPos = 0
    if _sReplaceChar then
        _sReplaceChar = string.sub( _sReplaceChar, 1, 1 )
    end

    local w, h = term.getSize()
    local sx, sy = term.getCursorPos()
    local function redraw()
        local nScroll = 0
        if sx + nPos >= w then
            nScroll = (sx + nPos) - w
        end

        term.setCursorPos( sx, sy )
        term.write( string.rep(" ", w - sx + 1) )
        term.setCursorPos( sx, sy )
        if _sReplaceChar then
            term.write( string.rep(_sReplaceChar, string.len(sLine) - nScroll) )
        else
            term.write( string.sub( sLine, nScroll + 1 ) )
        end
        term.setCursorPos( sx + nPos - nScroll, sy )
    end

    while true do
        local sEvent, param = os.pullEvent()
        if sEvent == "char" then
            sLine = string.sub( sLine, 1, nPos ) .. param .. string.sub( sLine, nPos + 1 )
            nPos = nPos + 1
            redraw()

        elseif sEvent == "key" then
            if param == 28 then
                -- Enter
                break

            elseif param == 203 then
                -- Left
                if nPos > 0 then
                    nPos = nPos - 1
                    redraw()
                end

            elseif param == 205 then
                -- Right
                if nPos < string.len(sLine) then
                    nPos = nPos + 1
                    redraw()
                end

            elseif param == 200 or param == 208 then
                -- Up or down
                if _tHistory then
                    if param == 200 then
                        -- Up
                        if nHistoryPos == nil then
                            if #_tHistory > 0 then
                                nHistoryPos = #_tHistory
                            end
                        elseif nHistoryPos > 1 then
                            nHistoryPos = nHistoryPos - 1
                        end
                    else
                        -- Down
                        if nHistoryPos == #_tHistory then
                            nHistoryPos = nil
                        elseif nHistoryPos ~= nil then
                            nHistoryPos = nHistoryPos + 1
                        end
                    end

                    if nHistoryPos then
                        sLine = _tHistory[nHistoryPos]
                        nPos = string.len( sLine )
                    else
                        sLine = ""
                        nPos = 0
                    end
                    redraw()
                end
            elseif param == 14 then
                -- Backspace
                if nPos > 0 then
                    sLine = string.sub( sLine, 1, nPos - 1 ) .. string.sub( sLine, nPos + 1 )
                    nPos = nPos - 1
                    redraw()
                end
            end
        else
            redraw()
        end
    end
    term.setCursorBlink( false )
    term.setCursorPos( w + 1, sy )
    return sLine
end

local function writer()
    while true do
        coroutine.yield()
        term.setCursorPos(1,1)
        term.clearLine()
        if stat == "to" then
            write("To  :")
        elseif stat == "mes" then
            write("Mes :")
        end
    end
end

function writer2()
    term.setCursorPos(1,1)
    term.clearLine()
    if stat == "to" then
        write("To  :")
    elseif stat == "mes" then
        write("Mes :")
    end
end

local function send()
    while true do
        local sizX,sizY = term.getSize()
        term.setCursorPos(6,1)
        stat = "to"
        writer2()
        local id = tonumber(readADV())
        term.setCursorPos(6,1)
        stat = "mes"
        writer2()
        local message = readADV()
        rednet.send(id,message)
    end
end

local function recive()
    local lastX,lastY = 1,2
    while true do
        term.setCursorBlink( true )
        local event = {coroutine.yield()}
        term.setCursorBlink( false )
        if event[1] == "rednet_message" then
            local sizX,sizY = term.getSize()
            term.setCursorPos(1,lastY)
            print("Frm: "..event[2].." Dist: "..event[4].."M Mes: "..event[3])
            lastX,lastY = term.getCursorPos()
        end
    end
end

local function openRednet()
    local listOfSides = rs.getSides()
    for i = 1,6 do
        if peripheral.isPresent(listOfSides[i]) and peripheral.getType(listOfSides[i]) == "modem" then
            rednet.open(listOfSides[i])
            return listOfSides[i]
        end
    end
end
modemOn = openRednet()
if modemOn == nil then
    print("No WIFI Modem")
    error()
else
    print("Opened wifi on "..modemOn.." side")
end

term.clear()
term.setCursorPos(1,1)
local stat = nil

local reciveHandel = coroutine.create(recive)
local writerHandel = coroutine.create(writer)
local sendHandel = coroutine.create(send)
while true do -- start a loop
    local e,e1,e2,e3,e4,e5 = os.pullEvent()
    coroutine.resume(reciveHandel,e,e1,e2,e3,e4,e5)
    coroutine.resume(writerHandel)
    coroutine.resume(sendHandel,e,e1,e2,e3,e4,e5)
end