browser.lua

rednet.open("top")
while true do
  term.setBackgroundColor(colors.black)
  term.setTextColor(colors.white)
  term.setCursorPos(1,1 )
  term.clear()
  print("\nDomain (or write dns):")
  local domain = read()
  if domain == "dns" then
    print("Write id of new DNS: ")
    local id = read()
    local file = fs.open("/disk/id", "w")
    file.writeLine(id)
    print("ID written at "..id)
    file.close()
  end
  local file = fs.open("/disk/id","r")
  local id = tonumber(file.read())
  file.close()
  rednet.send(id, domain, "jnet")
  print("Waiting for response!")
  local senderId, message, protocol = rednet.receive()
  local site = fs.open("/disk/tmp"..domain, "w")
  site.write(message)
  site.close()
  if string.find(message, "printer`") then
    local command,contents = string.match(message , "(%w+)`(%w+)")
    print("Printing file 'File-printed-from: '"..domain)
    shell.run("/disk/print", contents, "File-printed-from:"..domain)
  elseif string.find(message, "error`") then
    local command,contens = string.match(message , "(%w+)`(%w+)")
    term.setTextColor(colors.red)
    print(contens)
  else
    shell.run("/disk/tmp"..domain)
  end
  repeat
    local event,key = os.pullEvent("key")
  until key == keys.e
function newLine()
  xPos, yPos = term.getCursorPos()
  term.setCursorPos(1,(yPos + 1))
end
end