TurtleDigitServer.lua

local font = require("font")
local mod = peripheral.wrap("bottom")

local function send(digit, char, tp)
  tp = tp or 2
  if type(char) == "string" then char = string.upper(char) end
  local toSend = font[char]
  if toSend == nil then
    error("Invalid character: " .. tostring(char), 2)
  end

  local isIn = {}
  for i = 1, 13 do
    if not toSend[i] then break end
    isIn[toSend[i]] = true
  end

  for i = 1, 13 do
    mod.transmit(1, 1, {
        pos = i,
        tp = isIn[i] and tp or 1,
        digit = digit
      })
  end
end

local function sendWord(word, tpOverride)
  send(1, string.sub(word, 1, 1), tpOverride or 2)
  send(2, string.sub(word, 2, 2), tpOverride or 2)
  send(3, string.sub(word, 3, 3), tpOverride or 2)
end

os.sleep(3)
for i = 1, 3 do
  sendWord("19 ")
  os.sleep(1)
  sendWord(".  ")
  os.sleep(1)
  send(2, '.', 2)
  os.sleep(1)
  send(3, '.', 2)
  os.sleep(1)
end
sendWord("OLD", 3)
os.sleep(1)
sendWord("888", 4)