View difference between Paste ID: FithBYJi and CChWjRx6

 --[[-----------------------------------------------
 |               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
+                   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("syncnode","http://unequaled-metal-guanaco.glitch.me/")
     checkfile("whitelist","")
     checkfile("blacklist","")
   else
     fs.makeDir("kst")
   end
 end
 function openwallet()
   term.setBackgroundColor(8)
   term.clear()
   local krists = 0
   repeat
     term.setCursorPos(3+(3*krists),3)
     drawKrist()
     krists = krists + 1
   until krists == 16
   krists = 0
   repeat
     term.setCursorPos(3+(3*krists),16)
     drawKrist()
     krists = krists + 1
   until krists == 16
   term.setBackgroundColor(8)
   term.setTextColor(32768)
   term.setCursorPos(6,6)
   term.write("Password:")
   term.setCursorPos(6,8)
          -----|---+---------+---------+---------+-----|---+-
   term.write("Please enter your secret password to")
   term.setCursorPos(6,9)
   term.write("use Krist. If this is your first time")
   term.setCursorPos(6,10)
   term.write("using Krist, type your desired password.")
   term.setCursorPos(6,11)
   term.write("You will be able to access your Krist")
   term.setCursorPos(6,12)
   term.write("on any computer on any server as long")
   term.setCursorPos(6,13)
   term.write("as you type in the same password! It will")
   term.setCursorPos(6,14)
   term.write("not be saved or shared with anyone.")
   term.setCursorPos(16,6)
   local password = ""
   if readconfig("autologin") then
     password = readconfig("keyAL")
   else
     password = read("*")
 	if password == "" then term.setCursorPos(16,6) password = read("*") end
     if readconfig("appendhashes") then password = sha256("KRISTWALLET"..password) end
   end
   term.clear()
   term.setCursorPos(1,1)
   page = 1+gui*(10*(gui-1))
   if readconfig("appendhashes") then masterkey = password.."-000" else masterkey = password end
   log("Read password")
   addressv1 = string.sub(sha256(masterkey),0,10)
   log("Derived address: "..addressv1)
   address = makev2address(masterkey)
   log("Derived address: "..address)
   balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..addressv1))
   if balance > 0 and readconfig("sweepv1") then local transaction = readURL(readconfig("syncnode").."?pushtx&q="..address.."&pkey="..masterkey.."&amt="..balance); log("Swept hex address") end
   balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
 	if balance >= 100000 then log("Woah! There's a small fortune here!") elseif balance > 0 then log("There is some krist here!") end
   if readconfig("whitelisted") then
     local whitelist = readconfig("whitelist")
     if string.find(whitelist, address) == nil then
       log(address.." is not on the whitelist!")
       print("Sorry, this wallet is not on the whitelist for this computer!")
       page = 0
       os.sleep(3)
     end
   else
     local blacklist = readconfig("blacklist")
     if string.find(blacklist, addressv1) ~= nil then
       log(addressv1.." is on the blacklist!")
       print("Your wallet is blocked from this computer!")
       page = 0
       os.sleep(3)
     elseif string.find(blacklist, address) ~= nil then
       log(address.." is on the blacklist!")
       print("Your wallet is blocked from this computer!")
       page = 0
       os.sleep(3)
     end
   end
   addresslv = makev2address(readconfig("keyLV"))
   log("Loaded local vault")
   os.sleep()
   http.post(readconfig("syncnode") .. "/login", "privatekey=" .. textutils.urlEncode(masterkey) .. "&v=2")
   log("Sent pkey hash to auth server")
 end
 function makev2address(key)
   local protein = {}
   local stick = sha256(sha256(key))
   local n = 0
   local link = 0
   local v2 = "k"
   repeat
     if n < 9 then protein[n] = string.sub(stick,0,2)
     stick = sha256(sha256(stick)) end
     n = n + 1
   until n == 9
   n = 0
   repeat
     link = tonumber(string.sub(stick,1+(2*n),2+(2*n)),16) % 9
     if string.len(protein[link]) ~= 0 then
       v2 = v2 .. makeaddressbyte(tonumber(protein[link],16))
       protein[link] = ''
       n = n + 1
     else
       stick = sha256(stick)
     end
   until n == 9
   return v2
 end
 local function postgraphic(px,py,id)
   term.setCursorPos(px,py)
   if id == 0 then drawKrist()
   elseif id == 1 then
     --Mined Krist
     term.setCursorPos(px+1,py)
     term.setBackgroundColor(256)
     term.setTextColor(128)
     term.write("/T\\")
     term.setCursorPos(px,py+1)
     term.write("/")
     term.setCursorPos(px+2,py+1)
     term.write("|")
     term.setCursorPos(px+4,py+1)
     term.write("\\")
     term.setCursorPos(px+2,py+2)
     term.write("|")
     term.setCursorPos(px+2,py+3)
     term.write("|")
     term.setCursorPos(px+4,py+2)
     drawKrist()
   elseif id == 2 then
     --Sent Krist
     term.setCursorPos(px,py+2)
     term.setBackgroundColor(256)
     term.setTextColor(16384)
     term.write(" ")
     term.setCursorPos(px+1,py+3)
     term.write("    ")
     term.setCursorPos(px+5,py+2)
     term.write(" ")
     term.setBackgroundColor(1)
     term.setCursorPos(px+2,py)
     term.write("/\\")
     term.setCursorPos(px+2,py+1)
     term.write("||")
   elseif id == 3 then
     --Received Krist
     term.setCursorPos(px,py+2)
     term.setBackgroundColor(256)
     term.setTextColor(8192)
     term.write(" ")
     term.setCursorPos(px+1,py+3)
     term.write("    ")
     term.setCursorPos(px+5,py+2)
     term.write(" ")
     term.setBackgroundColor(1)
     term.setCursorPos(px+2,py)
     term.write("||")
     term.setCursorPos(px+2,py+1)
     term.write("\\/")
   elseif id == 4 then
     --Sent to yourself
     term.setCursorPos(px,py+2)
     term.setBackgroundColor(256)
     term.setTextColor(16)
     term.write(" ")
     term.setCursorPos(px+1,py+3)
     term.write("    ")
     term.setCursorPos(px+5,py+2)
     term.write(" ")
     term.setBackgroundColor(1)
     term.setCursorPos(px+1,py)
     term.write("/\\||")
     term.setCursorPos(px+1,py+1)
     term.write("||\\/")
   elseif id == 5 then
     --Swept from v1 address
     term.setCursorPos(px+1,py)
     term.setBackgroundColor(256)
     term.setTextColor(128)
     term.write(" v1 ")
     term.setCursorPos(px+2,py+1)
     term.setBackgroundColor(1)
     term.setTextColor(2048)
     term.write("||")
     term.setCursorPos(px+2,py+2)
     term.write("\\/")
     term.setCursorPos(px+1,py+3)
     term.setBackgroundColor(16)
     term.setTextColor(32768)
     term.write(" v2 ")
   elseif id == 6 then
     --Name registered
     term.setBackgroundColor(32)
     term.setTextColor(8192)
     term.setCursorPos(px+4,py)
     term.write("/")
     term.setCursorPos(px+1,py+1)
     term.write("\\")
     term.setCursorPos(px+3,py+1)
     term.write("/")
     term.setCursorPos(px+2,py+2)
     term.write("V")
     term.setCursorPos(px+1,py+3)
     term.setBackgroundColor(16384)
     term.setTextColor(4)
     term.write(".kst")
   elseif id == 7 then
     --Name operation
     term.setBackgroundColor(8)
     term.setTextColor(512)
     term.setCursorPos(px+1,py)
     term.write(" a ")
     term.setBackgroundColor(1)
     term.write("\\")
     term.setBackgroundColor(8)
     term.setCursorPos(px+1,py+1)
     term.write("====")
     term.setCursorPos(px+1,py+2)
     term.write("====")
     term.setCursorPos(px+1,py+3)
     term.setBackgroundColor(16384)
     term.setTextColor(4)
     term.write(".kst")
   elseif id == 8 then
     --Name sent
     term.setCursorPos(px+1,py+3)
     term.setBackgroundColor(16384)
     term.setTextColor(4)
     term.write(".kst")
     term.setTextColor(16384)
     term.setBackgroundColor(1)
     term.setCursorPos(px+2,py)
     term.write("/\\")
     term.setCursorPos(px+2,py+1)
     term.write("||")
   elseif id == 9 then
     --Name received
     term.setCursorPos(px+1,py+3)
     term.setBackgroundColor(16384)
     term.setTextColor(4)
     term.write(".kst")
     term.setTextColor(8192)
     term.setBackgroundColor(1)
     term.setCursorPos(px+1,py)
     term.write("||")
     term.setCursorPos(px+1,py+1)
     term.write("\\/")
     term.setTextColor(16384)
     term.setCursorPos(px+3,py)
     term.write("/\\")
     term.setCursorPos(px+3,py+1)
     term.write("||")
   end
 end
 function wallet()
   hud()
   local pagebefore = page
   local event, button, xPos, yPos = os.pullEvent("mouse_click")
   if gui == 1 and xPos >= 3 and xPos <= 14 then
     if yPos == 5 then
       page = 1
       balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
     end
     if yPos == 7 then
       page = 2
       subject = address
       scroll = 0
     end
     if yPos == 9 then
       page = 3
       balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
     end
     if yPos == 11 then
       page = 8
     end
     if yPos == 13 then
       page = 4
     end
     if yPos == 15 then
       page = 15
     end
     if yPos == 17 then
       page = 0
     end
   elseif gui == 2 then
     if yPos == 2 and xPos >= 19 and xPos <= 24 then
       page = 0
     end
   end
   local lexm = http.get(readconfig("syncnode").."?listnames="..address)
   local lem = false
   local lexmm
   if lexm.readAll then
 	lem = true
 	lexmm = lexm.readAll():gsub("\n+$", "")
   end
 
   if page == 1 then
     balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
     if (yPos-7)%5 == 0 and yPos >= 7 and xPos >= 26 and xPos <= 35 then
       subject = string.sub(readURL(readconfig("syncnode").."?listtx="..address.."&overview"),13+(31*((yPos-7)/5)),22+(31*((yPos-7)/5)))
       if string.len(subject) == 10 and subject ~= "N/A(Mined)" and subject ~= "N/A(Names)" then
         page = 2
       end
     end
   elseif page == 2 then
     if yPos > 2 and yPos <= 2+ar-(16*(scroll)) and xPos >= 31 and xPos < 41 then
       if stpeer[(yPos-2)+(16*(scroll))] == "N/A(Mined)" then
         --possibly link to a block later?
       elseif stpeer[(yPos-2)+(16*(scroll))] == "N/A(Names)" then
         --possibly link to a name later??
       else
         subject = stpeer[(yPos-2)+(16*(scroll))]
         scroll = 0
       end
     end
     if yPos == 19 and xPos >= 32 and xPos <= 36 then
       scroll = 0
     end
     if yPos == 19 and xPos >= 38 and xPos <= 41 then
       scroll = math.max(0,scroll-1)
     end
     if yPos == 19 and xPos >= 43 and xPos <= 46 then
       scroll = math.min(lastpage,scroll+1)
     end
     if yPos == 19 and xPos >= 48 then
       scroll = lastpage
     end
     if yPos == 1 and xPos >= 17 then
       page = 6
     end
     log("Page index is "..scroll)
   elseif page == 3 then
     if xPos >= 17 then
       term.setCursorPos(33,5)
       local recipient = read()
       term.setCursorPos(33,6)
       log("Read recipient for transfer")
       local amount = read()
       log("Read amount for transfer")
       local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..recipient.."&pkey="..masterkey.."&amt="..amount)
       balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
       log("Attempting to send "..amount.." KST to "..recipient)
       term.setCursorPos(19,8)
       if transaction == "Success" then
         term.setTextColor(8192)
         term.write("Transfer successful")
         log("Transfer successful")
         term.setTextColor(32768)
       elseif string.sub(transaction,0,5) == "Error" then
         local problem = "An unknown error happened"
         local code = tonumber(string.sub(transaction,6,10))
         if code == 1 then problem = "Insufficient funds available" end
         if code == 2 then problem = "Not enough KST in transaction" end
         if code == 3 then problem = "Can't comprehend amount to send" end
         if code == 4 then problem = "Invalid recipient address" end
         term.setTextColor(16384)
         term.write(problem)
         log(problem)
         term.setTextColor(32768)
       else
         term.setTextColor(16384)
         term.write(transaction)
         term.setTextColor(32768)
       end
       os.sleep(2.5) --lower this if you do tons of transfers
       log("Unfroze display")
     end
   elseif page == 4 then
     if yPos == 3 and xPos >= 19 and xPos <= 31 then
       page = 5
       scroll = 0
     end
     if yPos == 4 and xPos >= 19 and xPos <= 31 then
       page = 10
     end
     if yPos == 3 and xPos >= 35 and xPos <= 48 then
       page = 6
     end
     if yPos == 4 and xPos >= 35 and xPos <= 46 then
       page = 7
     end
   elseif page == 5 then
     if yPos > 2 and xPos >= 27 and xPos <= 36 then
       page = 2
       subject = blkpeer[(yPos-2)]
       scroll = 0
     end
   elseif page == 6 then
     term.setCursorPos(18,1)
     term.write("                       ")
     term.setCursorPos(18,1)
     term.write("ADDRESS ")
     subject = read()
     if string.len(subject) == 10 then
       page = 2
       scroll = 0
     else
       page = 6
     end
   elseif page == 7 then
     if yPos > 2 and yPos <= 18 and xPos >= 20 and xPos < 30 then
       if blkpeer[(yPos-2)] ~= "N/A(Burnt)" then
         page = 2
         subject = blkpeer[(yPos-2)]
         scroll = 0
       end
     end
   elseif page == 15 then
 
 	local function isEdit(xpo)
 		return xpo >= 39 and xpo <= 42
 	end
 	local function isSend(xpo)
 		return xpo >= 44 and xpo <= 47
 	end
 
 	if xPos and yPos then
 		local listofnames = split(lexmm, ";")
 		if yPos == 1 and xPos >= 46 then
 			page = 16
 		elseif lem and yPos >= 3 and isEdit(xPos) then
 			if listofnames[yPos - 3] then
 				page = 17
 				local nameclicked = yPos - 3
 				subject = listofnames[nameclicked]
 			end
 		elseif lem and yPos >= 3 and isSend(xPos) then
 			if listofnames[yPos - 3] then
 				page = 18
 				local nameclicked = yPos - 3
 				subject = listofnames[nameclicked]
 			end
 		end
 	end
   elseif page == 8 then
     if yPos == 3 and xPos >= 19 and xPos <= 30 then
       page = 9
     end
     if yPos == 3 and xPos >= 35 and xPos <= 47 then
       page = 16
     end
     if yPos == 4 and xPos >= 35 and xPos <= 47 then
       --page = 18
     end
     if yPos == 4 and xPos >= 19 and xPos <= 29 then
       page = 13
     end
   elseif page == 18 then
 		if yPos == 5 and xPos >= 30 then
       term.setCursorPos(30,5)
       term.write("                           ")
       term.setCursorPos(30,5)
       maxspace = read():lower()
       term.setCursorPos(19,7)
       pagespace = readURL(readconfig("syncnode").."?name_transfer&pkey="..masterkey.."&name="..subject.."&q="..maxspace)
 			if pagespace == "Success" then
 			end
 				term.write("Name transferred")
 				log("Tried sending a name to "..maxspace)
 				os.sleep(3)
 				page = 15
 		end
   elseif page == 16 then
     if yPos == 4 and xPos >= 25 then
       term.setCursorPos(25,4)
       term.write("                           ")
       term.setCursorPos(25,4)
       name = read():lower():gsub(".kst",""):gsub(" ","")
       term.setCursorPos(25,4)
       term.write("Please wait...             ")
       if string.len(name) > 0 then
         if name == "a" or name == "name" or name == "id" or name == "owner" or name == "registered" or name == "updated" or name == "expires" or name == "unpaid" then
           availability = 0
         else
           availability = tonumber(readURL(readconfig("syncnode").."?name_check="..name))
           log("Checked "..name..".kst for availability ("..availability..")")
           term.setCursorPos(19,7)
           if availability then
             term.setTextColor(colors.green)
             term.write("Available!")
           else
             term.setTextColor(colors.red)
             term.write("Not available!")
           end
         end
       else
         name = ""
       end
     elseif yPos == 7 and xPos >= 30 and xPos <= 39 and availability == 1 and balance >= 500 then
       availability = 2
       local k = readURL(readconfig("syncnode").."?name_new&pkey="..masterkey.."&name="..name)
     end
   elseif page == 17 then
     if yPos == 5 and xPos >= 25 then
       term.setCursorPos(25,5)
       term.write("                           ")
       term.setCursorPos(25,5)
       zone = read():gsub("http://","")
       term.setCursorPos(25,5)
       term.write("Please wait...             ")
       local sevenminutesleftuntilmaystartsfuckihavetoreleasethisnow = readURL(readconfig("syncnode").."?name_update&pkey="..masterkey.."&name="..subject.."&ar="..zone)
     elseif yPos == 7 and xPos >= 30 and xPos <= 39 and availability == 1 and balance >= 500 then
       availability = 2
       local k = readURL(readconfig("syncnode").."?name_new&pkey="..masterkey.."&name="..name)
     end
   elseif page == 9 then
     if yPos == 4 and xPos >= 30 then
       term.setCursorPos(30,4)
       term.write("                      ")
       term.setCursorPos(30,4)
       doublekey = read("*")
       term.setCursorPos(30,4)
       term.write("Please wait...        ")
       if string.len(doublekey) > 0 then
         doublekey = sha256(masterkey.."-"..sha256(doublekey))
         addressdv = makev2address(doublekey)
         balance2 = tonumber(readURL(readconfig("syncnode").."?getbalance="..addressdv))
         log("Derived double vault "..addressdv)
       else
         addressdv = ""
         balance2 = 0
       end
     end
     if yPos == 5 and xPos >= 33 then
       term.setCursorPos(33,5)
       term.write("                      ")
       term.setCursorPos(33,5)
       amt = read()
       if tonumber(amt) == nil then
         amt = 0
       elseif tonumber(amt) % 1 ~= 0 then
         amt = 0
       elseif tonumber(amt) <= 0 then
         amt = 0
       end
     end
     if yPos == 6 and xPos >= 25 and xPos <= 33 then
       if tonumber(amt) > 0 and string.len(doublekey) > 0 then
         if tonumber(amt) <= balance then
           local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..addressdv.."&pkey="..masterkey.."&amt="..tonumber(amt))
           balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
           balance2 = tonumber(readURL(readconfig("syncnode").."?getbalance="..addressdv))
           log("Put "..amt.." KST in a double vault")
         end
       end
     end
     if yPos == 6 and xPos >= 35 and xPos <= 44 then
       if tonumber(amt) > 0 and string.len(doublekey) > 0 then
         if tonumber(amt) <= balance2 then
           local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..address.."&pkey="..doublekey.."&amt="..tonumber(amt))
           balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
           balance2 = tonumber(readURL(readconfig("syncnode").."?getbalance="..addressdv))
           log("Took "..amt.." KST from a double vault")
         end
       end
     end
   elseif page == 13 then
     if yPos == 5 and xPos >= 33 then
       term.setCursorPos(33,5)
       term.write("                      ")
       term.setCursorPos(33,5)
       term.setTextColor(32768)
       amt = read()
       if tonumber(amt) == nil then
         amt = 0
       elseif tonumber(amt) % 1 ~= 0 then
         amt = 0
       elseif tonumber(amt) <= 0 then
         amt = 0
       end
     end
     if yPos == 6 and xPos >= 25 and xPos <= 33 then
       if tonumber(amt) > 0 then
         if tonumber(amt) <= balance then
           local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..addresslv.."&pkey="..masterkey.."&amt="..tonumber(amt))
           balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
           log("Put "..amt.." KST in a local vault")
         end
       end
     end
     if yPos == 6 and xPos >= 35 and xPos <= 44 then
       if tonumber(amt) > 0 then
         if tonumber(amt) <= balance3 then
           local transaction = readURL(readconfig("syncnode").."?pushtx2&q="..address.."&pkey="..readconfig("keyLV").."&amt="..tonumber(amt))
           balance = tonumber(readURL(readconfig("syncnode").."?getbalance="..address))
           log("Took "..amt.." KST from a local vault")
         end
       end
     end
   end
   if pagebefore ~= page then log("Switched to page "..page) end
 end
 local function drawTab(text)
   term.setBackgroundColor(512)
   term.write(text)
 end
 local function drawBtn(text)
   term.setBackgroundColor(32)
   term.write(text)
 end
 function hud()
   term.setBackgroundColor(1)
   term.setTextColor(32768)
   term.clear()
   if gui == 1 then
     local sidebar = 1
     while sidebar < 51 do
       term.setCursorPos(1,sidebar)
       term.setBackgroundColor(8)
       term.write("                ")
       sidebar = sidebar + 1
     end
     term.setCursorPos(2,2)
     drawKrist()
     term.setBackgroundColor(8)
     term.setTextColor(32768)
     term.write(" KristWallet")
     term.setCursorPos(5,3)
     term.setTextColor(2048)
     term.write("release "..version.."")
     term.setCursorPos(2,19)
     term.write("    by 3d6")
     term.setTextColor(32768)
     term.setCursorPos(3,5)
     drawTab("  Overview  ")
     term.setCursorPos(3,7)
     drawTab("Transactions")
     term.setCursorPos(3,9)
     drawTab(" Send Krist ")
     term.setCursorPos(3,11)
     drawTab(" Special TX ")
     term.setCursorPos(3,13)
     drawTab(" Economicon ")
     term.setCursorPos(3,15)
     drawTab("Name Manager")
     term.setCursorPos(3,17)
     drawTab("    Exit    ")
     term.setBackgroundColor(1)
   elseif gui == 2 then
     term.setCursorPos(1,1)
     term.setBackgroundColor(8)
     term.write("                          ")
     term.setCursorPos(1,2)
     term.write("                          ")
     term.setCursorPos(1,3)
     term.write("                          ")
     term.setCursorPos(1,4)
     term.write("                          ")
     term.setCursorPos(2,2)
     drawKrist()
     term.setBackgroundColor(8)
     term.setTextColor(32768)
     term.write(" KristWallet")
     term.setCursorPos(5,3)
     term.setTextColor(2048)
     term.write("release "..version.."")
     term.setCursorPos(19,2)
     term.setBackgroundColor(16384)
     term.setTextColor(32768)
     term.write(" Exit ")
   end
   if page == 1 then
     term.setCursorPos(19,2)
     term.write("Your address: ")
     term.setTextColor(16384)
     term.write(address)
     term.setTextColor(32768)
     term.setCursorPos(19,5)
     local recenttransactions = ""
     if tostring(balance) ~= 'nil' then recenttransactions = readURL(readconfig("syncnode").."?listtx="..address.."&overview") end
     local txtype = 0
     local graphics = 0
     if string.len(recenttransactions) > 25 then
       repeat
         if string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == "N/A(Mined)" then txtype = 1
         elseif string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == "N/A(Names)" and tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) == 0 then txtype = 7
         elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) == 0 then txtype = 9
         elseif string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == "N/A(Names)" then txtype = 6
         elseif string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == address then txtype = 4
         elseif string.sub(recenttransactions,13+(31*graphics),22+(31*graphics)) == addressv1 then txtype = 5
         elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) < 0 then txtype = 2
         elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) > 0 then txtype = 3
 		else txtype = 8
         end
         postgraphic(19,5+(5*graphics),txtype)
         term.setCursorPos(26,5+(5*graphics))
         term.setBackgroundColor(1)
         term.setTextColor(32768)
         if txtype == 1 then term.write("Mined")
         elseif txtype == 2 then term.write("Sent")
         elseif txtype == 3 then term.write("Received")
         elseif txtype == 4 then term.write("Sent to yourself")
         elseif txtype == 5 then term.write("Imported")
         elseif txtype == 6 then term.write("Name registered")
         elseif txtype == 7 then term.write("Name operation")
         elseif txtype == 8 then term.write("Unknown")
         elseif txtype == 9 then term.write("Name transfer")
         end
         term.setCursorPos(26,6+(5*graphics))
         if txtype == 4 then
           term.setTextColor(32768)
         elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) > 0 then
           term.setTextColor(8192)
           term.write("+")
         elseif tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics))) == 0 then
           term.setTextColor(16)
         else
           term.setTextColor(16384)
         end
         if txtype < 7 then term.write(tostring(tonumber(string.sub(recenttransactions,23+(31*graphics),31+(31*graphics)))).." KST") end
         term.setCursorPos(26,7+(5*graphics))
         term.setTextColor(32768)
         if txtype ~= 6 then term.setTextColor(512) end
         if txtype == 9 or (txtype > 1 and txtype < 6) then term.write(string.sub(recenttransactions,13+(31*graphics),22+(31*graphics))) end
         --if txtype == 6 then term.write(".kst") end
         term.setCursorPos(26,8+(5*graphics))
         term.setTextColor(128)
         term.write(string.sub(recenttransactions,1+(31*graphics),12+(31*graphics)))
         graphics = graphics + 1
       until graphics >= math.floor(string.len(recenttransactions)/32)
     end
     term.setTextColor(32768)
     term.setCursorPos(19,3)
     term.write("Your balance: ")
     term.setTextColor(1024)
     if tostring(balance) == 'nil' then balance = 0 end
     term.write(tostring(balance).." KST ")
-    if address == "ke3kjplzsz" or address == "767fc628a4" or address == "e3b0c44298" then
+
     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.write("You are currently using a blank string password.")
+
       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()