View difference between Paste ID: hFKwYGBv and MCjPAhyz

-local p = peripheral.wrap("back")
+local p = peripheral.wrap("right")
 p.clear()
 local mon = {}
 
 mon.minY = 8 * 9
 mon.maxY = 24 * 9 + 4
 mon.minX = 0 * 6
 mon.maxX = 68 * 6 + 4
 mon.rows = math.floor((mon.maxY - mon.minY) / 9)
 mon.cols = math.floor((mon.maxX - mon.minX) / 6)
 mon.lines = {}
 mon.mtrx = {}
 for i = 1, mon.rows do
  mon.mtrx[i] = {}
 end
 mon.scale = 1
 mon.curr = 1
 mon.curc = 1
 mon.cur = p.addText(math.floor((mon.curc - 1) * 6 * mon.scale) + mon.minX + 2, math.floor(((mon.curr - 1) * 9 + 1) * mon.scale) + mon.minY + 2, " ", 0)
 mon.colors = {[1] = 0xffffff, [2] = 0xffc125, [4] = 0xff3e96, [8] = 0x836fff, [16] = 0xffff00, [32] = 0x00ff00, [64] = 0xff82ab, [128] = 0x444444, [256] = 0x999999, [512] = 0x009acd, [1024] = 0x9400d3, [2048] = 0x0000ff, [4096] = 0x8b5a2b, [8192] = 0x458b00, [16384] = 0xff0000, [32768] = 0}
 
 mon.bgColor = 0
 mon.color = 0xffffff
 mon.box = p.addBox(mon.minX, mon.minY, mon.maxX - mon.minX + 1, mon.maxY - mon.minY + 1, mon.bgColor, 0)
 mon.box.setZIndex(-1)
 
 mon.write = function(s)
  for i = 1, #s do
   local x = math.floor((mon.curc - 1) * 6 * mon.scale) + mon.minX + 2
   local y = math.floor((mon.curr - 1) * 9 * mon.scale) + mon.minY + 2
   local j = 1
   local t = mon.mtrx[mon.curr][mon.curc]
   if t then
    t.delete()
   end
   t = p.addText(x, y, s:sub(i,i), mon.color)
   mon.mtrx[mon.curr][mon.curc] = t
   mon.lines[#mon.lines + 1] = t
   mon.curc = mon.curc + 1
   if mon.curc > mon.cols then
    mon.curc = 1
    if mon.curr == mon.rows then
     return
    else
     mon.curr = mon.curr + 1
    end
   end
  end
  mon.cur.setX(math.floor((mon.curc - 1) * 6 * mon.scale) + mon.minX + 2)
  mon.cur.setY(math.floor(((mon.curr - 1) * 9 + 1) * mon.scale) + mon.minY + 2)
 end
 
 mon.clear = function()
  for i = 1, #mon.lines do
   mon.lines[i].delete()
   mon.lines[i] = nil
  end
 end
 
 mon.clearLine = function(n)
  local y = math.floor(((n or mon.curr) - 1) * 9 * mon.scale) + mon.minY + 2
  local i = 1
  while i <= #mon.lines do
   if not mon.lines[i].getY() or mon.lines[i].getY() == y then
    mon.lines[i].delete()
    mon.lines[i] = mon.lines[#mon.lines]
    mon.lines[#mon.lines] = nil
   else
    i = i + 1
   end
  end
 end
 
 mon.scroll = function()
  mon.clearLine(1)
  local i = 1
  while i <= #mon.lines do
   if not mon.lines[i].getY() then
    mon.lines[i].delete()
    mon.lines[i] = mon.lines[#mon.lines]
    mon.lines[#mon.lines] = nil
   else
    mon.lines[i].setY(mon.lines[i].getY() - (9 * mon.scale))
    i = i + 1
   end
  end
  for i = 1, mon.rows - 1 do
   mon.mtrx[i] = mon.mtrx[i + 1]
  end
  mon.mtrx[mon.rows] = {}
 end
 
 mon.setBackgroundColor = function(n)
  if mon.colors[n] then
   n = mon.colors[n]
  end
  mon.bgColor = n
  mon.box.setColor(n)
  mon.box.setOpacity(n == 0 and 0 or 0.40)
 end
 
 mon.setBackgroundColour = mon.setBackgroundColor
 
 mon.setTextColor = function(n)
  if mon.colors[n] then
   n = mon.colors[n]
  end
  mon.color = n
  mon.cur.setColor(n)
 end
 
 mon.setTextColour = mon.setTextColor
 
 mon.setTextScale = function(n)
  mon.rows = math.floor((mon.maxY - mon.minY - 4)/(9 * n))
  mon.cols = math.floor((mon.maxX - mon.minX - 4)/(6 * n))
  local y = nil
  local x = nil
  if n > mon.scale then
   y = math.floor((mon.rows + 1) * 9 * mon.scale) + mon.minY + 2
   x = math.floor((mon.cols + 1) * 6 * mon.scale) + mon.minX + 2
  end
  local i = 1
  while i < #mon.lines do
   if not mon.lines.getY() or y and (mon.lines[i].getY() >= y or mon.lines[i].getX() >= x) then
    mon.lines[i].delete()
    mon.lines[i] = mon.lines[#mon.lines]
    mon.lines[#mon.lines] = nil
   else
    local ny = (mon.lines[i].getY() - mon.minY - 2) / mon.scale * n
    local nx = (mon.lines[i].getX() - mon.minX - 2) / mon.scale * n
    mon.lines[i].setY(ny)
    mon.lines[i].setX(nx)
    mon.lines[i].setScale(n)
    i = i + 1
   end
  end
  for i = 1, mon.rows do
   if not mon.mtrx[i] then
    mon.mtrx[i] = {}
   end
  end
  mon.scale = n
  mon.cur.setX(math.floor((mon.curc - 1) * 6 * mon.scale) + mon.minX + 2)
  mon.cur.setY(math.floor(((mon.curr - 1) * 9 + 1) * mon.scale) + mon.minY + 2)
 end
 
 mon.setCursorPos = function(x,y)
  mon.curc = x
  mon.curr = y
  mon.cur.setX(math.floor((mon.curc - 1) * 6 * mon.scale) + mon.minX + 2)
  mon.cur.setY(math.floor(((mon.curr - 1) * 9 + 1) * mon.scale) + mon.minY + 2)
 end
 
 mon.getCursorPos = function()
  return mon.curc, mon.curr
 end
 
 mon.getSize = function()
  return mon.cols, mon.rows
 end
 
 local blink = true
 local blinkstate = false
 local nextBlink = os.startTimer(0.3)
 mon.setCursorBlink = function(b)
  blink = b
 end
 
 local function doBlink()
  blinkstate = not blinkstate
  mon.cur.setText(blinkstate and blink and "_" or " ")
  nextBlink = os.startTimer(0.3)
 end
 
 mon.isColor = function() return true end
 mon.isColour = function() return true end
 
 local pullEvent = os.pullEvent
 local charQueue = ""
 os.pullEvent = function(...)
  while true do
   if charQueue ~= "" then
    local c = charQueue:sub(1,1)
    charQueue = charQueue:sub(2)
    if c == "\\" then
     c = charQueue:sub(1,1)
     charQueue = charQueue:sub(2)
     if c == "\\" then
      return "char",c
     elseif c == "n" then
      return "key",28
     elseif c == "b" then
      return "key",14
     elseif c == "t" then
      error("Terminated")
     elseif c == "r" then
      os.reboot()
     elseif c == "s" then
      os.shutdown()
     end
    end
    return "char",c
   end
   local t = {pullEvent(...)}
   if t[1] == "chat_command" then
    charQueue = charQueue..t[2]
    local c = charQueue:sub(1,1)
    charQueue = charQueue:sub(2)
    if c == "\\" then
     charQueue = c..charQueue
    else
     return "char",c
    end
   elseif t[1] == "timer" and t[2] == nextBlink then
    doBlink()
   else
    return unpack(t)
   end
  end
 end
 
 local reboot = os.reboot
 os.reboot = function()
  p.clear()
  mon.box.delete()
  mon.cur.delete()
  reboot()
 end
 
 local shutdown = os.shutdown
 os.shutdown = function()
  p.clear()
  shutdown()
 end
 
 term.redirect(mon)
 
 print("Welcome to CcGlasses!")