--[[-----------------------------------------------

|               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 = 14

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")

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

    if address == "ke3kjplzsz" or address == "767fc628a4" or address == "e3b0c44298" then

      term.setCursorPos(1,1)

      term.setBackgroundColor(16384)

      term.setTextColor(16)

      term.clearLine()

      term.write("You are currently using a blank string password.")

    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)