New program system; Capitalized folders

1 files changed, 1750 insertions, 0 deletions

diff --git a/Programs/Krist Wallet.bup/Contents/bits-UI/kristwallet.lua b/Programs/Krist Wallet.bup/Contents/bits-UI/kristwallet.lua
new file mode 100644
index 0000000..cafd59a
--- /dev/null
+++ b/Programs/Krist Wallet.bup/Contents/bits-UI/kristwallet.lua
@@ -0,0 +1,1750 @@
+--[[-----------------------------------------------
+|               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://krist.ceriat.net/")
+    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()
\ No newline at end of file