KristWallet

--[[-----------------------------------------------
|               KristWallet by 3d6                |
---------------------------------------------------
| This is the reference wallet for Krist.         |
| It is the basic definition of a functional      |
| Krist program, although it is not as old as the |
| network (we used to just use raw API calls).    |
---------------------------------------------------
 /\  /\  /\  /\  /\  /\  /\  /\  /\  /\  /\  /\  /\
/  \/  \/  \/  \/  \/  \/  \/  \/  \/  \/  \/  \/
---------------------------------------------------
| Do whatever you want with this, but if you make |
| it interact with a currency or network other    |
| than Krist, please give me credit. Thanks <3    |
---------------------------------------------------
| This wallet will NEVER save passwords anywhere. |]]local
-----------------------------------------------]]--
                   version = 16
local latest = 0
local balance = 0
local balance2 = 0
local balance3 = 0
local MOD = 2^32
local MODM = MOD-1
local gui = 0
local page = 0
local lastpage = 0
local scroll = 0
local masterkey = ""
local doublekey = ""
local address = ""
local addressv1 = ""
local addressdv = ""
local addresslv = ""
local subject = ""
local name = ""
local subbal = 0
local subtxs = ""
local stdate = {}
local stpeer = {}
local stval = {}
local blkpeer = {}
local pagespace = ""
local maxspace = ""
local ar = 0
local amt = 0
local availability = 0
local wallet, hud, update, settle, log, readconfig, checkdir, openwallet, makev2address

local function split(inputstr, sep)
        if sep == nil then
                sep = "%s"
        end
        local t={} ; i=1
        for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
                t[i] = str
                i = i + 1
        end
        return t
end

local function readURL(url)
  local resp = http.get(url)
  if not resp then
    log("Could not reach "..url)
    error("Error connecting to server")
    panic()
  end
  local content = resp.readAll():gsub("\n+$", "")
  resp.close()
  return content
end

local function boot()
  for i=1,2 do checkdir() end
  print("Starting KristWallet v"..tostring(version))
  log("Started KristWallet v"..tostring(version))
  update()
  if readconfig("enabled") and latest <= version then
    settle()
    openwallet()
    while page ~= 0 do
      wallet()
    end
    term.setBackgroundColor(32768)
    term.setTextColor(16)
    term.clear()
    term.setCursorPos(1,1)
    log("KristWallet closed safely")
  else
    if not readconfig("enabled") then print("KristWallet is disabled on this computer.") log("Disabled, shutting down") end
  end
  if readconfig("rebootonexit") then
    log("Rebooted computer")
    os.reboot()
  end
end
function update()
  latest = tonumber(readURL(readconfig("versionserver")))
  if latest > version then
    print("An update is available!")
    log("Discovered update")
    if readconfig("autoupdate") and not bench then
      local me = fs.open(fs.getName(shell.getRunningProgram()),"w")
      local nextversion = readURL(readconfig("updateserver"))
      print("Installed update. Run this program again to start v"..latest..".")
      me.write(nextversion)
      me.close()
      log("Installed update")
    else
      log("Ignored update")
      latest = -2
    end
  else
    log("No updates found")
  end
end
function log(text)
  local logfile = fs.open("kst/log_wallet","a")
  logfile.writeLine(tostring(os.day()).."-"..tostring(os.time()).."/"..text)
  logfile.close()
end
local function checkfile(path,default)
  if not fs.exists("kst/"..path) or path == "syncnode" then
    local file = fs.open("kst/"..path,"w")
    file.writeLine(default)
    file.close()
    log("Created file "..path)
    return false
  else
    return true
  end
end
function readconfig(path)
  if fs.exists("kst/"..path) then
    local file = fs.open("kst/"..path,"r")
    local context = file.readAll():gsub("\n+$", "")
    file.close()
    if context == "true" then return true end
    if context == "false" then return false end
    return context
  else
    print("An unknown error happened")
  end
end
function settle()
  if term.isColor() then gui = 1 end
  if term.isColor() and pocket then gui = 2 end
end
local function drawKrist()
  local posx, posy = term.getCursorPos()
  term.setBackgroundColor(1)
  term.setTextColor(32)
  term.write("/")
  term.setBackgroundColor(32)
  term.setTextColor(8192)
  term.write("\\")
  term.setCursorPos(posx,posy+1)
  term.setBackgroundColor(32)
  term.setTextColor(8192)
  term.write("\\")
  term.setBackgroundColor(8192)
  term.setTextColor(32)
  term.write("/")
  term.setCursorPos(posx+2,posy)
end
local function memoize(f)
  local mt = {}
  local t = setmetatable({}, mt)
  function mt:__index(k)
    local v = f(k)
    t[k] = v
    return v
  end
  return t
end
local function make_bitop_uncached(t, m)
  local function bitop(a, b)
    local res,p = 0,1
    while a ~= 0 and b ~= 0 do
      local am, bm = a % m, b % m
      res = res + t[am][bm] * p
      a = (a - am) / m
      b = (b - bm) / m
      p = p*m
    end
    res = res + (a + b) * p
    return res
  end
  return bitop
end
local function make_bitop(t)
  local op1 = make_bitop_uncached(t,2^1)
  local op2 = memoize(function(a) return memoize(function(b) return op1(a, b) end) end)
  return make_bitop_uncached(op2, 2 ^ (t.n or 1))
end
local bxor1 = make_bitop({[0] = {[0] = 0,[1] = 1}, [1] = {[0] = 1, [1] = 0}, n = 4})
local function bxor(a, b, c, ...)
  local z = nil
  if b then
    a = a % MOD
    b = b % MOD
    z = bxor1(a, b)
    if c then z = bxor(z, c, ...) end
    return z
  elseif a then return a % MOD
  else return 0 end
end
local function band(a, b, c, ...)
  local z
  if b then
    a = a % MOD
    b = b % MOD
    z = ((a + b) - bxor1(a,b)) / 2
    if c then z = bit32_band(z, c, ...) end
    return z
  elseif a then return a % MOD
  else return MODM end
end
local function bnot(x) return (-1 - x) % MOD end
local function rshift1(a, disp)
  if disp < 0 then return lshift(a,-disp) end
  return math.floor(a % 2 ^ 32 / 2 ^ disp)
end
local function rshift(x, disp)
  if disp > 31 or disp < -31 then return 0 end
  return rshift1(x % MOD, disp)
end
local function lshift(a, disp)
  if disp < 0 then return rshift(a,-disp) end
  return (a * 2 ^ disp) % 2 ^ 32
end
local function rrotate(x, disp)
  x = x % MOD
  disp = disp % 32
  local low = band(x, 2 ^ disp - 1)
  return rshift(x, disp) + lshift(low, 32 - disp)
end
local k = {
  0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5,
  0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5,
  0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3,
  0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174,
  0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc,
  0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da,
  0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7,
  0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967,
  0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13,
  0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85,
  0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3,
  0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070,
  0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5,
  0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3,
  0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208,
  0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2,
}
local function str2hexa(s)
  return (string.gsub(s, ".", function(c) return string.format("%02x", string.byte(c)) end))
end
local function num2s(l, n)
  local s = ""
  for i = 1, n do
    local rem = l % 256
    s = string.char(rem) .. s
    l = (l - rem) / 256
  end
  return s
end
local function s232num(s, i)
  local n = 0
  for i = i, i + 3 do n = n*256 + string.byte(s, i) end
  return n
end
local function preproc(msg, len)
  local extra = 64 - ((len + 9) % 64)
  len = num2s(8 * len, 8)
  msg = msg .. "\128" .. string.rep("\0", extra) .. len
  assert(#msg % 64 == 0)
  return msg
end
local function initH256(H)
  H[1] = 0x6a09e667
  H[2] = 0xbb67ae85
  H[3] = 0x3c6ef372
  H[4] = 0xa54ff53a
  H[5] = 0x510e527f
  H[6] = 0x9b05688c
  H[7] = 0x1f83d9ab
  H[8] = 0x5be0cd19
  return H
end
local function digestblock(msg, i, H)
  local w = {}
  for j = 1, 16 do w[j] = s232num(msg, i + (j - 1)*4) end
  for j = 17, 64 do
    local v = w[j - 15]
    local s0 = bxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3))
    v = w[j - 2]
    w[j] = w[j - 16] + s0 + w[j - 7] + bxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10))
  end

  local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8]
  for i = 1, 64 do
    local s0 = bxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22))
    local maj = bxor(band(a, b), band(a, c), band(b, c))
    local t2 = s0 + maj
    local s1 = bxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25))
    local ch = bxor (band(e, f), band(bnot(e), g))
    local t1 = h + s1 + ch + k[i] + w[i]
    h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2
  end

  H[1] = band(H[1] + a)
  H[2] = band(H[2] + b)
  H[3] = band(H[3] + c)
  H[4] = band(H[4] + d)
  H[5] = band(H[5] + e)
  H[6] = band(H[6] + f)
  H[7] = band(H[7] + g)
  H[8] = band(H[8] + h)
end
local function sha256(msg)
  msg = preproc(msg, #msg)
  local H = initH256({})
  for i = 1, #msg, 64 do digestblock(msg, i, H) end
  return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) ..
          num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4))
end
local function panic()
  page = 0
  log("Panicking! Shutting down KristWallet.")
end
local function makeaddressbyte(j)
  if j <= 6 then return "0"
  elseif j <= 13 then return "1"
  elseif j <= 20 then return "2"
  elseif j <= 27 then return "3"
  elseif j <= 34 then return "4"
  elseif j <= 41 then return "5"
  elseif j <= 48 then return "6"
  elseif j <= 55 then return "7"
  elseif j <= 62 then return "8"
  elseif j <= 69 then return "9"
  elseif j <= 76 then return "a"
  elseif j <= 83 then return "b"
  elseif j <= 90 then return "c"
  elseif j <= 97 then return "d"
  elseif j <= 104 then return "e"
  elseif j <= 111 then return "f"
  elseif j <= 118 then return "g"
  elseif j <= 125 then return "h"
  elseif j <= 132 then return "i"
  elseif j <= 139 then return "j"
  elseif j <= 146 then return "k"
  elseif j <= 153 then return "l"
  elseif j <= 160 then return "m"
  elseif j <= 167 then return "n"
  elseif j <= 174 then return "o"
  elseif j <= 181 then return "p"
  elseif j <= 188 then return "q"
  elseif j <= 195 then return "r"
  elseif j <= 202 then return "s"
  elseif j <= 209 then return "t"
  elseif j <= 216 then return "u"
  elseif j <= 223 then return "v"
  elseif j <= 230 then return "w"
  elseif j <= 237 then return "x"
  elseif j <= 244 then return "y"
  elseif j <= 251 then return "z"
  else return "e"
  end
end
function checkdir()
  if fs.isDir("kst") then
    math.randomseed(os.time())
    checkfile("log_wallet","-----KRISTWALLET LOG FILE-----")
    checkfile("enabled","true") --Disabling this just makes KristWallet refuse to start.
    checkfile("sweepv1","true")
    checkfile("appendhashes","true") --Disabling this makes it possible to use KristWallet with extremely old addresses.
    checkfile("autoupdate","true")
    checkfile("whitelisted","false")
    checkfile("rebootonexit","false")
    checkfile("autologin","false")
    checkfile("keyAL",sha256(""))
    checkfile("keyLV",sha256(math.random(1000000)..os.time())) --This is where the local vault's krist is stored. DO NOT DESTROY!
    checkfile("versionserver","https://raw.githubusercontent.com/BTCTaras/kristwallet/master/staticapi/version")
    checkfile("updateserver","https://raw.githubusercontent.com/BTCTaras/kristwallet/master/kristwallet")
    checkfile("syncnode","http://unequaled-metal-guanaco.glitch.me/")
    checkfile("whitelist","")
    checkfile("blacklist","")
  else
    fs.makeDir("kst")
  end
end
function openwallet()
  term.setBackgroundColor(8)
  term.clear()
  local krists = 0
  repeat
    term.setCursorPos(3+(3*krists),3)
    drawKrist()
    krists = krists + 1
  until krists == 16
  krists = 0
  repeat
    term.setCursorPos(3+(3*krists),16)
    drawKrist()
    krists = krists + 1
  until krists == 16
  term.setBackgroundColor(8)
  term.setTextColor(32768)
  term.setCursorPos(6,6)
  term.write("Password:")
  term.setCursorPos(6,8)
         -----|---+---------+---------+---------+-----|---+-
  term.write("Please enter your secret password to")
  term.setCursorPos(6,9)
  term.write("use Krist. If this is your first time")
  term.setCursorPos(6,10)
  term.write("using Krist, type your desired password.")
  term.setCursorPos(6,11)
  term.write("You will be able to access your Krist")
  term.setCursorPos(6,12)
  term.write("on any computer on any server as long")
  term.setCursorPos(6,13)
  term.write("as you type in the same password! It will")
  term.setCursorPos(6,14)
  term.write("not be saved or shared with anyone.")
  term.setCursorPos(16,6)
  local password = ""
  if readconfig("autologin") then
    password = readconfig("keyAL")
  else
    password = read("*")
    if password == "" then term.setCursorPos(16,6) password = read("*") end
    if readconfig("appendhashes") then password = sha256("KRISTWALLET"..password) end
  end
  term.clear()
  term.setCursorPos(1,1)
  page = 1+gui*(10*(gui-1))
  if readconfig("appendhashes") then masterkey = password.."-000" else masterkey = password end
  log("Read password")
  addressv1 = string.sub(sha256(masterkey),0,10)
  log("Derived address: "..addressv1)
  address = makev2address(masterkey)
  log("Derived address: "..address)
  balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..addressv1))
  if balance > 0 and readconfig("sweepv1") then local transaction = readURL(readconfig("syncnode").."?pushtx&q="..address.."&pkey="..masterkey.."&amt="..balance); log("Swept hex address") end
  balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
    if balance >= 100000 then log("Woah! There's a small fortune here!") elseif balance > 0 then log("There is some krist here!") end
  if readconfig("whitelisted") then
    local whitelist = readconfig("whitelist")
    if string.find(whitelist, address) == nil then
      log(address.." is not on the whitelist!")
      print("Sorry, this wallet is not on the whitelist for this computer!")
      page = 0
      os.sleep(3)
    end
  else
    local blacklist = readconfig("blacklist")
    if string.find(blacklist, addressv1) ~= nil then
      log(addressv1.." is on the blacklist!")
      print("Your wallet is blocked from this computer!")
      page = 0
      os.sleep(3)
    elseif string.find(blacklist, address) ~= nil then
      log(address.." is on the blacklist!")
      print("Your wallet is blocked from this computer!")
      page = 0
      os.sleep(3)
    end
  end
  addresslv = makev2address(readconfig("keyLV"))
  log("Loaded local vault")
  os.sleep()
  http.post(readconfig("syncnode") .. "/login", "privatekey=" .. textutils.urlEncode(masterkey) .. "&v=2")
  log("Sent pkey hash to auth server")
end
function makev2address(key)
  local protein = {}
  local stick = sha256(sha256(key))
  local n = 0
  local link = 0
  local v2 = "k"
  repeat
    if n < 9 then protein[n] = string.sub(stick,0,2)
    stick = sha256(sha256(stick)) end
    n = n + 1
  until n == 9
  n = 0
  repeat
    link = tonumber(string.sub(stick,1+(2*n),2+(2*n)),16) % 9
    if string.len(protein[link]) ~= 0 then
      v2 = v2 .. makeaddressbyte(tonumber(protein[link],16))
      protein[link] = ''
      n = n + 1
    else
      stick = sha256(stick)
    end
  until n == 9
  return v2
end
local function postgraphic(px,py,id)
  term.setCursorPos(px,py)
  if id == 0 then drawKrist()
  elseif id == 1 then
    --Mined Krist
    term.setCursorPos(px+1,py)
    term.setBackgroundColor(256)
    term.setTextColor(128)
    term.write("/T\\")
    term.setCursorPos(px,py+1)
    term.write("/")
    term.setCursorPos(px+2,py+1)
    term.write("|")
    term.setCursorPos(px+4,py+1)
    term.write("\\")
    term.setCursorPos(px+2,py+2)
    term.write("|")
    term.setCursorPos(px+2,py+3)
    term.write("|")
    term.setCursorPos(px+4,py+2)
    drawKrist()
  elseif id == 2 then
    --Sent Krist
    term.setCursorPos(px,py+2)
    term.setBackgroundColor(256)
    term.setTextColor(16384)
    term.write(" ")
    term.setCursorPos(px+1,py+3)
    term.write("    ")
    term.setCursorPos(px+5,py+2)
    term.write(" ")
    term.setBackgroundColor(1)
    term.setCursorPos(px+2,py)
    term.write("/\\")
    term.setCursorPos(px+2,py+1)
    term.write("||")
  elseif id == 3 then
    --Received Krist
    term.setCursorPos(px,py+2)
    term.setBackgroundColor(256)
    term.setTextColor(8192)
    term.write(" ")
    term.setCursorPos(px+1,py+3)
    term.write("    ")
    term.setCursorPos(px+5,py+2)
    term.write(" ")
    term.setBackgroundColor(1)
    term.setCursorPos(px+2,py)
    term.write("||")
    term.setCursorPos(px+2,py+1)
    term.write("\\/")
  elseif id == 4 then
    --Sent to yourself
    term.setCursorPos(px,py+2)
    term.setBackgroundColor(256)
    term.setTextColor(16)
    term.write(" ")
    term.setCursorPos(px+1,py+3)
    term.write("    ")
    term.setCursorPos(px+5,py+2)
    term.write(" ")
    term.setBackgroundColor(1)
    term.setCursorPos(px+1,py)
    term.write("/\\||")
    term.setCursorPos(px+1,py+1)
    term.write("||\\/")
  elseif id == 5 then
    --Swept from v1 address
    term.setCursorPos(px+1,py)
    term.setBackgroundColor(256)
    term.setTextColor(128)
    term.write(" v1 ")
    term.setCursorPos(px+2,py+1)
    term.setBackgroundColor(1)
    term.setTextColor(2048)
    term.write("||")
    term.setCursorPos(px+2,py+2)
    term.write("\\/")
    term.setCursorPos(px+1,py+3)
    term.setBackgroundColor(16)
    term.setTextColor(32768)
    term.write(" v2 ")
  elseif id == 6 then
    --Name registered
    term.setBackgroundColor(32)
    term.setTextColor(8192)
    term.setCursorPos(px+4,py)
    term.write("/")
    term.setCursorPos(px+1,py+1)
    term.write("\\")
    term.setCursorPos(px+3,py+1)
    term.write("/")
    term.setCursorPos(px+2,py+2)
    term.write("V")
    term.setCursorPos(px+1,py+3)
    term.setBackgroundColor(16384)
    term.setTextColor(4)
    term.write(".kst")
  elseif id == 7 then
    --Name operation
    term.setBackgroundColor(8)
    term.setTextColor(512)
    term.setCursorPos(px+1,py)
    term.write(" a ")
    term.setBackgroundColor(1)
    term.write("\\")
    term.setBackgroundColor(8)
    term.setCursorPos(px+1,py+1)
    term.write("====")
    term.setCursorPos(px+1,py+2)
    term.write("====")
    term.setCursorPos(px+1,py+3)
    term.setBackgroundColor(16384)
    term.setTextColor(4)
    term.write(".kst")
  elseif id == 8 then
    --Name sent
    term.setCursorPos(px+1,py+3)
    term.setBackgroundColor(16384)
    term.setTextColor(4)
    term.write(".kst")
    term.setTextColor(16384)
    term.setBackgroundColor(1)
    term.setCursorPos(px+2,py)
    term.write("/\\")
    term.setCursorPos(px+2,py+1)
    term.write("||")
  elseif id == 9 then
    --Name received
    term.setCursorPos(px+1,py+3)
    term.setBackgroundColor(16384)
    term.setTextColor(4)
    term.write(".kst")
    term.setTextColor(8192)
    term.setBackgroundColor(1)
    term.setCursorPos(px+1,py)
    term.write("||")
    term.setCursorPos(px+1,py+1)
    term.write("\\/")
    term.setTextColor(16384)
    term.setCursorPos(px+3,py)
    term.write("/\\")
    term.setCursorPos(px+3,py+1)
    term.write("||")
  end
end
function wallet()
  hud()
  local pagebefore = page
  local event, button, xPos, yPos = os.pullEvent("mouse_click")
  if gui == 1 and xPos >= 3 and xPos <= 14 then
    if yPos == 5 then
      page = 1
      balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
    end
    if yPos == 7 then
      page = 2
      subject = address
      scroll = 0
    end
    if yPos == 9 then
      page = 3
      balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
    end
    if yPos == 11 then
      page = 8
    end
    if yPos == 13 then
      page = 4
    end
    if yPos == 15 then
      page = 15
    end
    if yPos == 17 then
      page = 0
    end
  elseif gui == 2 then
    if yPos == 2 and xPos >= 19 and xPos <= 24 then
      page = 0
    end
  end
  local lexm = http.get(readconfig("syncnode").."?listnames="..address)
  local lem = false
  local lexmm
  if lexm.readAll then
    lem = true
    lexmm = lexm.readAll():gsub("\n+$", "")
  end

  if page == 1 then
    balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
    if (yPos-7)%5 == 0 and yPos >= 7 and xPos >= 26 and xPos <= 35 then
      subject = string.sub(readURL(readconfig("syncnode").."?listtx="..address.."&overview"),13+(31*((yPos-7)/5)),22+(31*((yPos-7)/5)))
      if string.len(subject) == 10 and subject ~= "N/A(Mined)" and subject ~= "N/A(Names)" then
        page = 2
      end
    end
  elseif page == 2 then
    if yPos > 2 and yPos <= 2+ar-(16*(scroll)) and xPos >= 31 and xPos < 41 then
      if stpeer[(yPos-2)+(16*(scroll))] == "N/A(Mined)" then
        --possibly link to a block later?
      elseif stpeer[(yPos-2)+(16*(scroll))] == "N/A(Names)" then
        --possibly link to a name later??
      else
        subject = stpeer[(yPos-2)+(16*(scroll))]
        scroll = 0
      end
    end
    if yPos == 19 and xPos >= 32 and xPos <= 36 then
      scroll = 0
    end
    if yPos == 19 and xPos >= 38 and xPos <= 41 then
      scroll = math.max(0,scroll-1)
    end
    if yPos == 19 and xPos >= 43 and xPos <= 46 then
      scroll = math.min(lastpage,scroll+1)
    end
    if yPos == 19 and xPos >= 48 then
      scroll = lastpage
    end
    if yPos == 1 and xPos >= 17 then
      page = 6
    end
    log("Page index is "..scroll)
  elseif page == 3 then
    if xPos >= 17 then
      term.setCursorPos(33,5)
      local recipient = read()
      term.setCursorPos(33,6)
      log("Read recipient for transfer")
      local amount = read()
      log("Read amount for transfer")
      local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..recipient.."&pkey="..masterkey.."&amt="..amount)
      balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
      log("Attempting to send "..amount.." KST to "..recipient)
      term.setCursorPos(19,8)
      if transaction == "Success" then
        term.setTextColor(8192)
        term.write("Transfer successful")
        log("Transfer successful")
        term.setTextColor(32768)
      elseif string.sub(transaction,0,5) == "Error" then
        local problem = "An unknown error happened"
        local code = tonumber(string.sub(transaction,6,10))
        if code == 1 then problem = "Insufficient funds available" end
        if code == 2 then problem = "Not enough KST in transaction" end
        if code == 3 then problem = "Can't comprehend amount to send" end
        if code == 4 then problem = "Invalid recipient address" end
        term.setTextColor(16384)
        term.write(problem)
        log(problem)
        term.setTextColor(32768)
      else
        term.setTextColor(16384)
        term.write(transaction)
        term.setTextColor(32768)
      end
      os.sleep(2.5) --lower this if you do tons of transfers
      log("Unfroze display")
    end
  elseif page == 4 then
    if yPos == 3 and xPos >= 19 and xPos <= 31 then
      page = 5
      scroll = 0
    end
    if yPos == 4 and xPos >= 19 and xPos <= 31 then
      page = 10
    end
    if yPos == 3 and xPos >= 35 and xPos <= 48 then
      page = 6
    end
    if yPos == 4 and xPos >= 35 and xPos <= 46 then
      page = 7
    end
  elseif page == 5 then
    if yPos > 2 and xPos >= 27 and xPos <= 36 then
      page = 2
      subject = blkpeer[(yPos-2)]
      scroll = 0
    end
  elseif page == 6 then
    term.setCursorPos(18,1)
    term.write("                       ")
    term.setCursorPos(18,1)
    term.write("ADDRESS ")
    subject = read()
    if string.len(subject) == 10 then
      page = 2
      scroll = 0
    else
      page = 6
    end
  elseif page == 7 then
    if yPos > 2 and yPos <= 18 and xPos >= 20 and xPos < 30 then
      if blkpeer[(yPos-2)] ~= "N/A(Burnt)" then
        page = 2
        subject = blkpeer[(yPos-2)]
        scroll = 0
      end
    end
  elseif page == 15 then

    local function isEdit(xpo)
        return xpo >= 39 and xpo <= 42
    end
    local function isSend(xpo)
        return xpo >= 44 and xpo <= 47
    end

    if xPos and yPos then
        local listofnames = split(lexmm, ";")
        if yPos == 1 and xPos >= 46 then
            page = 16
        elseif lem and yPos >= 3 and isEdit(xPos) then
            if listofnames[yPos - 3] then
                page = 17
                local nameclicked = yPos - 3
                subject = listofnames[nameclicked]
            end
        elseif lem and yPos >= 3 and isSend(xPos) then
            if listofnames[yPos - 3] then
                page = 18
                local nameclicked = yPos - 3
                subject = listofnames[nameclicked]
            end
        end
    end
  elseif page == 8 then
    if yPos == 3 and xPos >= 19 and xPos <= 30 then
      page = 9
    end
    if yPos == 3 and xPos >= 35 and xPos <= 47 then
      page = 16
    end
    if yPos == 4 and xPos >= 35 and xPos <= 47 then
      --page = 18
    end
    if yPos == 4 and xPos >= 19 and xPos <= 29 then
      page = 13
    end
  elseif page == 18 then
        if yPos == 5 and xPos >= 30 then
      term.setCursorPos(30,5)
      term.write("                           ")
      term.setCursorPos(30,5)
      maxspace = read():lower()
      term.setCursorPos(19,7)
      pagespace = readURL(readconfig("syncnode").."?name_transfer&pkey="..masterkey.."&name="..subject.."&q="..maxspace)
            if pagespace == "Success" then
            end
                term.write("Name transferred")
                log("Tried sending a name to "..maxspace)
                os.sleep(3)
                page = 15
        end
  elseif page == 16 then
    if yPos == 4 and xPos >= 25 then
      term.setCursorPos(25,4)
      term.write("                           ")
      term.setCursorPos(25,4)
      name = read():lower():gsub(".kst",""):gsub(" ","")
      term.setCursorPos(25,4)
      term.write("Please wait...             ")
      if string.len(name) > 0 then
        if name == "a" or name == "name" or name == "id" or name == "owner" or name == "registered" or name == "updated" or name == "expires" or name == "unpaid" then
          availability = 0
        else
          availability = tonumber(readURL(readconfig("syncnode").."?name_check="..name))
          log("Checked "..name..".kst for availability ("..availability..")")
          term.setCursorPos(19,7)
          if availability then
            term.setTextColor(colors.green)
            term.write("Available!")
          else
            term.setTextColor(colors.red)
            term.write("Not available!")
          end
        end
      else
        name = ""
      end
    elseif yPos == 7 and xPos >= 30 and xPos <= 39 and availability == 1 and balance >= 500 then
      availability = 2
      local k = readURL(readconfig("syncnode").."?name_new&pkey="..masterkey.."&name="..name)
    end
  elseif page == 17 then
    if yPos == 5 and xPos >= 25 then
      term.setCursorPos(25,5)
      term.write("                           ")
      term.setCursorPos(25,5)
      zone = read():gsub("http://","")
      term.setCursorPos(25,5)
      term.write("Please wait...             ")
      local sevenminutesleftuntilmaystartsfuckihavetoreleasethisnow = readURL(readconfig("syncnode").."?name_update&pkey="..masterkey.."&name="..subject.."&ar="..zone)
    elseif yPos == 7 and xPos >= 30 and xPos <= 39 and availability == 1 and balance >= 500 then
      availability = 2
      local k = readURL(readconfig("syncnode").."?name_new&pkey="..masterkey.."&name="..name)
    end
  elseif page == 9 then
    if yPos == 4 and xPos >= 30 then
      term.setCursorPos(30,4)
      term.write("                      ")
      term.setCursorPos(30,4)
      doublekey = read("*")
      term.setCursorPos(30,4)
      term.write("Please wait...        ")
      if string.len(doublekey) > 0 then
        doublekey = sha256(masterkey.."-"..sha256(doublekey))
        addressdv = makev2address(doublekey)
        balance2 = tonumber(readURL(readconfig("syncnode").."?getbalance="..addressdv))
        log("Derived double vault "..addressdv)
      else
        addressdv = ""
        balance2 = 0
      end
    end
    if yPos == 5 and xPos >= 33 then
      term.setCursorPos(33,5)
      term.write("                      ")
      term.setCursorPos(33,5)
      amt = read()
      if tonumber(amt) == nil then
        amt = 0
      elseif tonumber(amt) % 1 ~= 0 then
        amt = 0
      elseif tonumber(amt) <= 0 then
        amt = 0
      end
    end
    if yPos == 6 and xPos >= 25 and xPos <= 33 then
      if tonumber(amt) > 0 and string.len(doublekey) > 0 then
        if tonumber(amt) <= balance then
          local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..addressdv.."&pkey="..masterkey.."&amt="..tonumber(amt))
          balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
          balance2 = tonumber(readURL(readconfig("syncnode").."?getbalance="..addressdv))
          log("Put "..amt.." KST in a double vault")
        end
      end
    end
    if yPos == 6 and xPos >= 35 and xPos <= 44 then
      if tonumber(amt) > 0 and string.len(doublekey) > 0 then
        if tonumber(amt) <= balance2 then
          local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..address.."&pkey="..doublekey.."&amt="..tonumber(amt))
          balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
          balance2 = tonumber(readURL(readconfig("syncnode").."?getbalance="..addressdv))
          log("Took "..amt.." KST from a double vault")
        end
      end
    end
  elseif page == 13 then
    if yPos == 5 and xPos >= 33 then
      term.setCursorPos(33,5)
      term.write("                      ")
      term.setCursorPos(33,5)
      term.setTextColor(32768)
      amt = read()
      if tonumber(amt) == nil then
        amt = 0
      elseif tonumber(amt) % 1 ~= 0 then
        amt = 0
      elseif tonumber(amt) <= 0 then
        amt = 0
      end
    end
    if yPos == 6 and xPos >= 25 and xPos <= 33 then
      if tonumber(amt) > 0 then
        if tonumber(amt) <= balance then
          local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..addresslv.."&pkey="..masterkey.."&amt="..tonumber(amt))
          balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
          log("Put "..amt.." KST in a local vault")
        end
      end
    end
    if yPos == 6 and xPos >= 35 and xPos <= 44 then
      if tonumber(amt) > 0 then
        if tonumber(amt) <= balance3 then
          local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..address.."&pkey="..readconfig("keyLV").."&amt="..tonumber(amt))
          balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
          log("Took "..amt.." KST from a local vault")
        end
      end
    end
  end
  if pagebefore ~= page then log("Switched to page "..page) end
end
local function drawTab(text)
  term.setBackgroundColor(512)
  term.write(text)
end
local function drawBtn(text)
  term.setBackgroundColor(32)
  term.write(text)
end
function hud()
  term.setBackgroundColor(1)
  term.setTextColor(32768)
  term.clear()
  if gui == 1 then
    local sidebar = 1
    while sidebar < 51 do
      term.setCursorPos(1,sidebar)
      term.setBackgroundColor(8)
      term.write("                ")
      sidebar = sidebar + 1
    end
    term.setCursorPos(2,2)
    drawKrist()
    term.setBackgroundColor(8)
    term.setTextColor(32768)
    term.write(" KristWallet")
    term.setCursorPos(5,3)
    term.setTextColor(2048)
    term.write("release "..version.."")
    term.setCursorPos(2,19)
    term.write("    by 3d6")
    term.setTextColor(32768)
    term.setCursorPos(3,5)
    drawTab("  Overview  ")
    term.setCursorPos(3,7)
    drawTab("Transactions")
    term.setCursorPos(3,9)
    drawTab(" Send Krist ")
    term.setCursorPos(3,11)
    drawTab(" Special TX ")
    term.setCursorPos(3,13)
    drawTab(" Economicon ")
    term.setCursorPos(3,15)
    drawTab("Name Manager")
    term.setCursorPos(3,17)
    drawTab("    Exit    ")
    term.setBackgroundColor(1)
  elseif gui == 2 then
    term.setCursorPos(1,1)
    term.setBackgroundColor(8)
    term.write("                          ")
    term.setCursorPos(1,2)
    term.write("                          ")
    term.setCursorPos(1,3)
    term.write("                          ")
    term.setCursorPos(1,4)
    term.write("                          ")
    term.setCursorPos(2,2)
    drawKrist()
    term.setBackgroundColor(8)
    term.setTextColor(32768)
    term.write(" KristWallet")
    term.setCursorPos(5,3)
    term.setTextColor(2048)
    term.write("release "..version.."")
    term.setCursorPos(19,2)
    term.setBackgroundColor(16384)
    term.setTextColor(32768)
    term.write(" Exit ")
  end
  if page == 1 then
    term.setCursorPos(19,2)
    term.write("Your address: ")
    term.setTextColor(16384)
    term.write(address)
    term.setTextColor(32768)
    term.setCursorPos(19,5)
    local recenttransactions = ""
    if tostring(balance) ~= 'nil' then recenttransactions = readURL(readconfig("syncnode").."?listtx="..address.."&overview") end
    local txtype = 0
    local graphics = 0
    if string.len(recenttransactions) > 25 then
      repeat
        if string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == "N/A(Mined)" then txtype = 1
        elseif string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == "N/A(Names)" and tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) == 0 then txtype = 7
        elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) == 0 then txtype = 9
        elseif string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == "N/A(Names)" then txtype = 6
        elseif string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == address then txtype = 4
        elseif string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == addressv1 then txtype = 5
        elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) < 0 then txtype = 2
        elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) > 0 then txtype = 3
        else txtype = 8
        end
        postgraphic(19,5+(5*graphics),txtype)
        term.setCursorPos(26,5+(5*graphics))
        term.setBackgroundColor(1)
        term.setTextColor(32768)
        if txtype == 1 then term.write("Mined")
        elseif txtype == 2 then term.write("Sent")
        elseif txtype == 3 then term.write("Received")
        elseif txtype == 4 then term.write("Sent to yourself")
        elseif txtype == 5 then term.write("Imported")
        elseif txtype == 6 then term.write("Name registered")
        elseif txtype == 7 then term.write("Name operation")
        elseif txtype == 8 then term.write("Unknown")
        elseif txtype == 9 then term.write("Name transfer")
        end
        term.setCursorPos(26,6+(5*graphics))
        if txtype == 4 then
          term.setTextColor(32768)
        elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) > 0 then
          term.setTextColor(8192)
          term.write("+")
        elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) == 0 then
          term.setTextColor(16)
        else
          term.setTextColor(16384)
        end
        if txtype < 7 then term.write(tostring(tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics)))).." KST") end
        term.setCursorPos(26,7+(5*graphics))
        term.setTextColor(32768)
        if txtype ~= 6 then term.setTextColor(512) end
        if txtype == 9 or (txtype > 1 and txtype < 6) then term.write(string.sub(recenttransactions,13+(31*graphics),22+(31*graphics))) end
        --if txtype == 6 then term.write(".kst") end
        term.setCursorPos(26,8+(5*graphics))
        term.setTextColor(128)
        term.write(string.sub(recenttransactions,1+(31*graphics),12+(31*graphics)))
        graphics = graphics + 1
      until graphics >= math.floor(string.len(recenttransactions)/32)
    end
    term.setTextColor(32768)
    term.setCursorPos(19,3)
    term.write("Your balance: ")
    term.setTextColor(1024)
    if tostring(balance) == 'nil' then balance = 0 end
    term.write(tostring(balance).." KST ")
    term.setTextColor(512)
    local names = tonumber(readURL(readconfig("syncnode").."?getnames="..address))
    if names > 0 then term.write("["..tostring(names).."]") end
    local alert = http.get(readconfig("syncnode").."?alert="..masterkey).readAll()
    if #(alert:gsub("^%s*(.-)%s*$", "%1")) > 0 then
      term.setCursorPos(1,1)
      term.setBackgroundColor(16384)
      term.setTextColor(16)
      term.clearLine()
      term.write(alert)
    end
  elseif page == 2 then
    term.setCursorPos(18,1)
    term.write("Please wait...")
    os.sleep(0)
    subbal = readURL(readconfig("syncnode").."?getbalance="..subject)
    subtxs = readURL(readconfig("syncnode").."?listtx="..subject)
    log("Loaded transactions for address "..subject)
    log("Page index is "..scroll)
    term.setCursorPos(18,1)
    if subtxs == "end" then subbal = 0 end
    term.write("ADDRESS "..subject.." - "..subbal.." KST")
    term.setCursorPos(17,2)
    term.setBackgroundColor(256)
    term.write(" Time         Peer           Value ")
    term.setBackgroundColor(1)
    if subtxs ~= "end" then
      local tx = 0
      local s = 0
      ar = 16*scroll
      repeat
        tx = tx + 1
        stdate[tx] = string.sub(subtxs,1,12)
        subtxs = string.sub(subtxs,13)
        stpeer[tx] = string.sub(subtxs,1,10)
        subtxs = string.sub(subtxs,11)
        stval[tx] = tonumber(string.sub(subtxs,1,9))
        subtxs = string.sub(subtxs,10)
        if stpeer[tx] == subject then stval[tx] = 0 end
      until string.len(subtxs) == 3
      repeat
        ar = ar + 1
        term.setTextColor(32768)
        term.setCursorPos(18,2+ar-(16*(scroll)))
        term.write(stdate[ar])
        if stpeer[ar] ~= "N/A(Mined)" then term.setTextColor(512) end
        if stpeer[ar] == subject then term.setTextColor(32768) end
        if stpeer[ar] == "N/A(Names)" then term.setTextColor(32768) end
        term.setCursorPos(31,2+ar-(16*(scroll)))
        term.write(stpeer[ar])
        term.setCursorPos(50-string.len(tostring(math.abs(stval[ar]))),2+ar-(16*(scroll)))
        if stval[ar] > 0 then
          term.setTextColor(8192)
          term.write("+")
        elseif stval[ar] < 0 then
          term.setTextColor(16384)
        else
          term.setTextColor(32768)
          term.write(" ")
        end
        term.write(tostring(stval[ar]))
      until ar == math.min(tx,16*(scroll+1))
      term.setBackgroundColor(256)
      term.setCursorPos(17,19)
      term.write("                                   ")
      term.setCursorPos(17,19)
      term.setTextColor(32768)
      lastpage = math.floor((tx-1)/16)
      if (1+lastpage) < 100 then maxspace = maxspace.." " end
      if (1+lastpage) < 10 then maxspace = maxspace.." " end
      if (1+scroll) < 100 then pagespace = pagespace.." " end
      if (1+scroll) < 10 then pagespace = pagespace.." " end
      term.write(" Page "..pagespace..(1+scroll).."/"..maxspace..(1+lastpage))
      pagespace = ""
      maxspace = ""
      term.setCursorPos(32,19)
      term.setTextColor(128)
      term.write("First Prev Next Last")
      if (scroll > 0) then
        term.setCursorPos(32,19)
        term.setTextColor(2048)
        term.write("First Prev")
      end
      if (scroll < lastpage and tx > 16) then
        term.setCursorPos(43,19)
        term.setTextColor(2048)
        term.write("Next Last")
      end
    else
      term.write("No transactions to display!")
      term.setBackgroundColor(256)
      term.setCursorPos(17,19)
      term.write("                                   ")
      term.setCursorPos(17,19)
      term.setTextColor(32768)
      term.write(" Page   1/  1")
      term.setCursorPos(32,19)
      term.setTextColor(128)
      term.write("First Prev Next Last")
    end
  elseif page == 3 then
    term.setCursorPos(19,2)
    term.write("Your address: ")
    term.setTextColor(16384)
    term.write(address)
    term.setTextColor(32768)
    term.setCursorPos(19,3)
    term.write("Your balance: ")
    term.setTextColor(1024)
    if tostring(balance) == 'nil' then balance = 0 end
    term.write(tostring(balance).." KST")
    term.setTextColor(32768)
    term.setCursorPos(19,5)
    term.write("Recipient:    ")
    term.write("                   ")
    term.setCursorPos(19,6)
    term.write("Amount (KST): ")
    term.write("                   ")
  elseif page == 4 then
    term.setCursorPos(19,2)
    term.write("Mining          Addresses")
    term.setTextColor(512)
    term.setCursorPos(19,3)
    term.write("Latest blocks   Address lookup")
    term.setCursorPos(19,4)
    term.write("Lowest hashes   Top balances")
    term.setCursorPos(19,5)
    --term.write("Lowest nonces   ")
    term.setTextColor(32768)
    term.setCursorPos(19,7)
    --term.write("Economy         Transactions")
    term.setTextColor(512)
    term.setCursorPos(19,8)
    --term.write("KST issuance    Latest transfers")
    term.setCursorPos(19,9)
    --term.write("KST distrib.    Largest transfers")
  elseif page == 5 then
    local blocks = readURL(readconfig("syncnode").."?blocks")
    local tx = 0
    ar = 0
    local height = string.sub(blocks,1,8)
    local blktime = {}
    blkpeer = {}
    local blkhash = {}
    height = tonumber(string.sub(blocks,1,8))
    blocks = string.sub(blocks,9)
    local today = string.sub(blocks,1,10)
    blocks = string.sub(blocks,11)
    repeat
      tx = tx + 1
      blktime[tx] = string.sub(blocks,1,8)
      blocks = string.sub(blocks,9)
      blkpeer[tx] = string.sub(blocks,1,10)
      blocks = string.sub(blocks,11)
      blkhash[tx] = string.sub(blocks,1,12)
      blocks = string.sub(blocks,13)
      if stpeer[tx] == subject then stval[tx] = 0 end
    until string.len(blocks) == 0
    term.setCursorPos(18,1)
    term.write("Height: "..tostring(height))
    term.setCursorPos(36,1)
    term.write("Date: "..today)
    term.setCursorPos(17,2)
    term.setBackgroundColor(256)
    term.write(" Time     Miner      Hash          ")
    ----------(" 00:00:00 0000000000 000000000000 ")
    term.setBackgroundColor(1)
    repeat
      ar = ar + 1
      term.setCursorPos(18,2+ar)
      term.write(blktime[ar])
      if blkpeer[ar] ~= "N/A(Burnt)" then term.setTextColor(512) end
      term.setCursorPos(27,2+ar)
      term.write(blkpeer[ar])
      term.setTextColor(32768)
      term.setCursorPos(38,2+ar)
      term.write(blkhash[ar])
    until ar == math.min(tx,17*(scroll+1))
  elseif page == 6 then
    term.setCursorPos(17,2)
    term.setBackgroundColor(256)
    term.write(" Time         Peer           Value ")
    term.setBackgroundColor(256)
    term.setCursorPos(17,19)
    term.write("                                   ")
    term.setCursorPos(17,19)
    term.setTextColor(32768)
    term.write(" Page    /")
    term.setCursorPos(32,19)
    term.setTextColor(128)
    term.write("First Prev Next Last")
    term.setBackgroundColor(1)
    term.setCursorPos(18,1)
    term.write("ADDRESS (click to edit)")
  elseif page == 7 then
    local blocks = readURL(readconfig("syncnode").."?richapi")
    local tx = 0
    ar = 0
    local height = string.sub(blocks,1,8)
    local blktime = {}
    blkpeer = {}
    local blkhash = {}
    repeat
      tx = tx + 1
      blkpeer[tx] = string.sub(blocks,1,10)
      blocks = string.sub(blocks,11)
      blktime[tx] = tonumber(string.sub(blocks,1,8))
      blocks = string.sub(blocks,9)
      blkhash[tx] = string.sub(blocks,1,11)
      blocks = string.sub(blocks,12)
    until string.len(blocks) == 0
    term.setCursorPos(18,1)
    term.write("Krist address rich list")
    term.setCursorPos(17,2)
    term.setBackgroundColor(256)
    term.write("R# Address     Balance First seen  ")
    term.setBackgroundColor(1)
    repeat
      ar = ar + 1
      term.setCursorPos(17,2+ar)
      if ar < 10 then term.write(" ") end
      term.write(ar)
      term.setCursorPos(20,2+ar)
      if blkpeer[ar] ~= "N/A(Burnt)" then term.setTextColor(512) end
      term.write(blkpeer[ar])
      term.setTextColor(32768)
      term.setCursorPos(39-string.len(tostring(math.abs(blktime[ar]))),2+ar)
      term.write(blktime[ar])
      term.setCursorPos(40,2+ar)
      term.write(blkhash[ar])
    until ar == 16
  elseif page == 8 then
    term.setCursorPos(19,2)
    term.write("Storage         Names")
    term.setTextColor(512)
    term.setCursorPos(19,3)
    term.write("Double vault    Register name")
    term.setCursorPos(19,4)
    term.write("Local vault")
    term.setCursorPos(19,5)
    --term.write("Disk vault      v1 SHA vault")
    term.setCursorPos(19,6)
    --term.write("SHA vault       v1 wallet")
  elseif page == 9 then
    term.setCursorPos(25,2)
    term.write("Double vault manager")
    term.setCursorPos(19,8)
    term.write("Using double vaults is a way to")
    term.setCursorPos(19,9)
    term.write("store your Krist under an extra")
    term.setCursorPos(19,10)
    term.write("layer of security. You can only")
    term.setCursorPos(19,11)
    term.write("access a double vault from your")
    term.setCursorPos(19,12)
    term.write("wallet (on any server) and then")
    term.setCursorPos(19,13)
    term.write("only after typing an extra pass")
    term.setCursorPos(19,14)
    term.write("code. Double wallets are wholly")
    term.setCursorPos(19,15)
    term.write("invisible to unauthorized users")
    term.setCursorPos(19,16)
    term.write("of your wallet; they can not be")
    term.setCursorPos(19,17)
    term.write("seen or opened without the pass")
    term.setCursorPos(19,18)
    term.write("code set by you.")
    term.setCursorPos(19,4)
    term.write("Pass code: ")
    term.setCursorPos(19,5)
    term.write("Amount (KST): ")
    term.setCursorPos(30,4)
    if string.len(doublekey) == 0 then
      term.setTextColor(256)
      term.write("(click to set)")
    else
      term.setTextColor(8192)
      term.write("Ready: "..balance2.." KST")
      if tonumber(amt) > 0 then
        term.setCursorPos(25,6)
        term.setTextColor(32768)
        term.setBackgroundColor(128)
        if tonumber(amt) <= balance then
          term.setBackgroundColor(2)
        end
        term.write(" Deposit ")
        term.setBackgroundColor(1)
        term.write(" ")
        term.setBackgroundColor(128)
        if tonumber(amt) <= balance2 then
          term.setBackgroundColor(2)
        end
        term.write(" Withdraw ")
        term.setBackgroundColor(1)
      end
    end
    term.setCursorPos(33,5)
    if amt == 0 then
      term.setTextColor(256)
      term.write("(click to set)")
    else
      term.setTextColor(32768)
      term.write(amt)
    end
    term.setTextColor(32768)
  elseif page == 10 then
    local blocks = readURL(readconfig("syncnode").."?blocks&low")
    local tx = 0
    ar = 0
    local blktime = {}
    blkpeer = {}
    local blkhash = {}
    repeat
      tx = tx + 1
      blktime[tx] = string.sub(blocks,1,6)
      blocks = string.sub(blocks,7)
      blkpeer[tx] = string.sub(blocks,1,6)
      blocks = string.sub(blocks,7)
      blkhash[tx] = string.sub(blocks,1,20)
      blocks = string.sub(blocks,21)
    until string.len(blocks) == 0
    term.setCursorPos(17,1)
    term.setBackgroundColor(256)
    term.write(" Date   Block# Hash                ")
    ----------(" Feb 28 000000 000000000000oooooooo")
    term.setBackgroundColor(1)
    repeat
      ar = ar + 1
      term.setCursorPos(18,1+ar)
      term.write(blktime[ar])
      term.setCursorPos(31-string.len(tostring(math.abs(tonumber(blkpeer[ar])))),1+ar)
      term.write(tonumber(blkpeer[ar]))
      term.setTextColor(256)
      term.setCursorPos(32,1+ar)
      term.write(blkhash[ar])
      term.setTextColor(32768)
      term.setCursorPos(32,1+ar)
      term.write(string.sub(blkhash[ar],1,12))
    until ar == math.min(tx,18)
  elseif page == 11 then
    local blocks = readURL(readconfig("syncnode").."?blocks&low&lownonce")
    local tx = 0
    ar = 0
    local blktime = {}
    blkpeer = {}
    local blkhash = {}
    repeat
      tx = tx + 1
      blktime[tx] = string.sub(blocks,1,6)
      blocks = string.sub(blocks,7)
      blkpeer[tx] = string.sub(blocks,1,6)
      blocks = string.sub(blocks,7)
      blkhash[tx] = string.sub(blocks,1,12)
      blocks = string.sub(blocks,13)
    until string.len(blocks) == 0
    term.setCursorPos(17,1)
    term.setBackgroundColor(256)
    term.write(" Date   Block# Nonce               ")
    ----------(" Feb 28 000000 000000000000")
    term.setBackgroundColor(1)
    repeat
      ar = ar + 1
      term.setCursorPos(18,1+ar)
      term.write(blktime[ar])
      term.setCursorPos(31-string.len(tostring(math.abs(tonumber(blkpeer[ar])))),1+ar)
      term.write(tonumber(blkpeer[ar]))
      term.setTextColor(32768)
      term.setCursorPos(32,1+ar)
      term.write(tonumber(blkhash[ar]))
    until ar == math.min(tx,18)
  elseif page == 12 then
    local blocks = readURL(readconfig("syncnode").."?blocks&low&highnonce")
    local tx = 0
    ar = 0
    local blktime = {}
    blkpeer = {}
    local blkhash = {}
    repeat
      tx = tx + 1
      blktime[tx] = string.sub(blocks,1,6)
      blocks = string.sub(blocks,7)
      blkpeer[tx] = string.sub(blocks,1,6)
      blocks = string.sub(blocks,7)
      blkhash[tx] = string.sub(blocks,1,12)
      blocks = string.sub(blocks,13)
    until string.len(blocks) == 0
    term.setCursorPos(17,1)
    term.setBackgroundColor(256)
    term.write(" Date   Block# Nonce               ")
    ----------(" Feb 28 000000 000000000000")
    term.setBackgroundColor(1)
    repeat
      ar = ar + 1
      term.setCursorPos(18,1+ar)
      term.write(blktime[ar])
      term.setCursorPos(31-string.len(tostring(math.abs(tonumber(blkpeer[ar])))),1+ar)
      term.write(tonumber(blkpeer[ar]))
      term.setTextColor(32768)
      term.setCursorPos(32,1+ar)
      term.write(tonumber(blkhash[ar]))
    until ar == math.min(tx,18)
  elseif page == 13 then
    balance3 = tonumber(readURL(readconfig("syncnode").."?getbalance="..addresslv))
    term.setCursorPos(25,2)
    term.write("Local vault manager")
    term.setCursorPos(19,8)
    term.write("Local vaults are a place to put")
    term.setCursorPos(19,9)
    term.write("Krist in the form of a file on")
    term.setCursorPos(19,10)
    term.write("a computer. Unlike traditional")
    term.setCursorPos(19,11)
    term.write("wallets, local vaults can only")
    term.setCursorPos(19,12)
    term.write("be accessed on the computer")
    term.setCursorPos(19,13)
    term.write("they were initially created on.")
    term.setCursorPos(19,14)
    term.write("If you do this, please ensure")
    term.setCursorPos(19,15)
    term.write("that this computer is never")
    term.setCursorPos(19,16)
    term.write("stolen or broken, as your money")
    term.setCursorPos(19,17)
    term.write("may be lost if you don't have a")
    term.setCursorPos(19,18)
    term.write("backup.")
    term.setCursorPos(19,4)
    term.write("KST put here: "..balance3)
    term.setCursorPos(19,5)
    term.write("Amount (KST): ")
    term.setCursorPos(33,5)
    if amt == 0 then
      term.setTextColor(256)
      term.write("(click to set)")
    else
      term.setTextColor(32768)
      term.write(amt)
    end
    if tonumber(amt) > 0 then
      term.setCursorPos(25,6)
      term.setTextColor(32768)
      term.setBackgroundColor(128)
      if tonumber(amt) <= balance then
        term.setBackgroundColor(2)
      end
      term.write(" Deposit ")
      term.setBackgroundColor(1)
      term.write(" ")
      term.setBackgroundColor(128)
      if tonumber(amt) <= balance3 then
        term.setBackgroundColor(2)
      end
      term.write(" Withdraw ")
      term.setBackgroundColor(1)
    end
  elseif page == 14 then
    term.setBackgroundColor(1)
    term.setCursorPos(19,2)
    term.write("Local settings")
    --deprecated for now
  elseif page == 15 then
    term.setBackgroundColor(1)
    term.setCursorPos(18,1)
    term.write(".KST domain name manager     [New]")
    term.setCursorPos(46,1)
    term.setBackgroundColor(32)
    term.setTextColor(1)
    term.write(" + NEW")
    term.setCursorPos(17,2)
    term.setBackgroundColor(256)
    term.setTextColor(32768)
    term.write(" Name                 Actions      ")
    term.setBackgroundColor(1)
    term.setCursorPos(18,3)
    local namelist = readURL(readconfig("syncnode").."?listnames="..address)
    local splitname = split(namelist, ";")


    if #splitname == 0 then
      term.setTextColor(256)
      term.write("No names to display!")
    else
      local namecount = 1
      repeat
                local thisname = splitname[namecount]
                --namelist:sub(0,namelist:find(";")-1)
        term.setTextColor(32768)
        term.setCursorPos(18,3+namecount)
        term.write(splitname[namecount]..".kst")
        term.setCursorPos(39,3+namecount)
        term.setTextColor(512)
        if thisname == "a" or thisname == "name" or thisname == "owner" or thisname == "updated" or thisname == "registered" or thisname == "expires" or thisname == "id" or thisname == "unpaid" then term.setTextColor(256) end
        term.write("Edit Send ")
        term.setTextColor(256)
        term.write("Go")
        namecount = namecount + 1
      until namecount == #splitname+1
    end
    --term.write("a.kst                Edit Send Go")
    term.setBackgroundColor(1)
  elseif page == 16 then
    term.setBackgroundColor(1)
    term.setCursorPos(20,2)
    term.write(".KST domain name registration")
    term.setCursorPos(19,4)
    term.write("Name: ")
    if name == "" then
      term.setTextColor(colors.lightGray)
      term.write("(click to set)")
    else
      term.write(name)
      term.setTextColor(colors.lightGray)
      term.write(".kst")
    end
    term.setTextColor(colors.black)
    term.setCursorPos(19,5)
    term.write("Cost: 500 KST")
    term.setCursorPos(19,7)
    --term.write("Available! [Register]")
    if name == "" then
      term.setTextColor(colors.blue)
      term.write("Please select a name!")
    elseif availability == 1 then
      term.setTextColor(colors.green)
      term.write("Available! ")
      --if balance >= 500 then
        term.setBackgroundColor(colors.green)
        term.setTextColor(colors.lime)
        term.write(" Register ")
        term.setBackgroundColor(colors.white)
      --end
    elseif availability == 2 then
      term.setTextColor(colors.yellow)
      term.write("Name registered!")
    else
      term.setTextColor(colors.red)
      term.write("Not available!")
    end
    term.setTextColor(colors.black)
    term.setCursorPos(19,9)
    term.write(".KST domain names are used on")
    term.setCursorPos(19,10)
    term.write("the KristScape browser. For")
    term.setCursorPos(19,11)
    term.write("more information, please see")
    term.setCursorPos(19,12)
    term.write("the Krist thread.")
    term.setCursorPos(19,14)
    term.write("All Krist spent on names will")
    term.setCursorPos(19,15)
    term.write("be added to the value of")
    term.setCursorPos(19,16)
    term.write("future blocks; essentially")
    term.setCursorPos(19,17)
    term.write("being \"re-mined.\"")
  elseif page == 17 then
    term.setBackgroundColor(1)
    term.setCursorPos(28,2)
    term.write(".KST zone file")
    term.setCursorPos(19,4)
    term.write("Name: "..subject)
    term.setTextColor(colors.lightGray)
    term.write(".kst")
    term.setTextColor(colors.black)
    term.setCursorPos(19,7)
    term.write("Your name's zone file is the")
    term.setCursorPos(19,8)
    term.write("URL of the site it is pointing")
    term.setCursorPos(19,9)
    term.write("to. When KristScape navigates")
    term.setCursorPos(19,10)
    term.write("to a name, it will make an HTTP")
    term.setCursorPos(19,11)
    term.write("get request to the above URL.")
    term.setCursorPos(19,12)
    term.write("The zone record should not")
    term.setCursorPos(19,13)
    term.write("include a protocol (http://)")
    term.setCursorPos(19,14)
    term.write("and shouldn't end with a")
    term.setCursorPos(19,15)
    term.write("slash. You can redirect a name")
    term.setCursorPos(19,16)
    term.write("to another name by making the")
    term.setCursorPos(19,17)
    term.write("first character of the record")
    term.setCursorPos(19,18)
    term.write("a dollar sign; e.g. $krist.kst")
    term.setTextColor(colors.black)
    term.setCursorPos(19,5)
    term.write("Zone: ")
    zone = readURL(readconfig("syncnode").."?a="..subject)
    if zone == "" then
      term.setTextColor(colors.lightGray)
      term.write("(click to set)")
    else
      term.write(zone)
    end
  elseif page == 18 then
    term.setBackgroundColor(1)
    term.setCursorPos(28,2)
    term.write("Name transfer")
    term.setCursorPos(19,4)
    term.write("Name: "..subject)
    term.setTextColor(colors.lightGray)
    term.write(".kst")
    term.setTextColor(colors.black)
    term.setCursorPos(19,5)
    term.write("Recipient: ")
  elseif page == 21 then
    term.setBackgroundColor(1)
    term.setCursorPos(4,6)
    term.write("Address - ")
    term.setTextColor(16384)
    term.write(address)
    term.setTextColor(32768)
    term.setCursorPos(4,7)
    term.write("Balance - ")
    term.setTextColor(1024)
    if tostring(balance) == 'nil' then balance = 0 end
    term.write(tostring(balance).." KST")
    term.setTextColor(32768)
    term.setCursorPos(3,9)
  end
end
boot()