function tty(gA,sA,sI,fg,bg)
 local gP,cx,cy,bg,fg = component.proxy(gA),1,1,bg or 0x000000, fg or 0xffffff
 gP.bind(sA)
 local sx, sy = gP.getResolution()
 gP.setResolution(sx,sy)
 gP.setForeground(fg)
 gP.setBackground(bg)
 gP.fill(1,1,sx,sy," ")
 local function cv()
  if cx > sx then cx,cy=1,cy+1 end
  if cx < 1 then cx,cy=sx,cy-1 end
  if cy < 1 then cx,cy=1,1 end
  if cy > sy then gP.copy(1,2,sx,sy-1,0,-1) gP.fill(1,sy,sx,1," ") cx,cy=1,sy end
 end
 local function ic(s)
  local cc,fg,bg=gP.get(cx,cy)
  if s then fG,bG = bg,fg else fG,bG = fg,bg end
  gP.setForeground(bG)
  gP.setBackground(fG)
  gP.set(cx,cy,cc)
  gP.setForeground(fG)
  gP.setBackground(bG)
 end
 local function wl(str)
  local cm = 0
  for c in str:gmatch(".") do
   if cm == 1 then
    cm = 0
    ic(true) 
    if c == "A" then  cy=cy-1
    elseif c == "B" then cy=cy+1
    elseif c == "C" then cx=cx+1
    elseif c == "D" then cx=cx-1
    elseif c == "H" then cx,cy=1,1
    elseif c == "Y" then cm=2
--    elseif c == "b" then cm=4
--    elseif c == "c" then cm=5
    end
   elseif cm == 2 then
    cx,cm=string.byte(c)-31,3
   elseif cm == 3 then
    cy,cm=string.byte(c)-31,0
--   elseif cm == 4 then
--    fg,cm = string.byte(c),0
--    gP.setForeground(fg)
--   elseif cm == 5 then
--    bg,cm = string.byte(c),0
--    gP.setBackground(bg)
   else
    if c == "\n" then cx,cy=1,cy+1
    elseif c == "\27" then cm=1
    elseif c == "\r" then cx=1
    elseif c == "\f" then cx=1 cy=1 gP.fill(1, 1, sx, sy, " ")
    elseif c == "\t" then cx=(cx+4-((cx+4)%4))+1
    elseif c == "\127" then cx=cx-1 gP.set(cx,cy,"  ")
    else gP.set(cx,cy,c) cx=cx+1
   end
   end cv()
  end
 end
 s("tty["..TS(sI).."]: "..gA:sub(1,8)..","..sA:sub(1,8),function()
 while true do
  eT = ev
  if eT[1] == "display" and eT[3] == sI then
   wl(tostring(eT[2]))
   ic()
  end
  C.yield()
 end
 end)
end