diff --git a/JSON.red b/JSON.red
deleted file mode 100644
index 4e5180e..0000000
--- a/JSON.red
+++ /dev/null
@@ -1,141 +0,0 @@
-Red [
-    Title: "JSON parser"
-    File: %json.red
-    Author: "Nenad Rakocevic, Qingtian Xie, Boleslav Březovský"
-    License: "BSD-3 - https://github.com/red/red/blob/master/BSD-3-License.txt"
-]
-
-json: context [
-	quoted-char: charset {"\/bfnrt}
-	exponent:	 charset "eE"
-	sign:		 charset "+-"
-	digit-nz:	 charset "123456789"
-	digit:		 charset [#"0" - #"9"]
-	hexa:		 union digit charset "ABCDEFabcdef"
-	blank:		 charset " ^(09)^(0A)^(0D)"
-	ws:			 [any blank]
-	dbl-quote:	 #"^""
-	s: e:		 none
-
-	load-str: func [
-		"Return word if possible, leave untouched when not" 
-		str
-		/local out 
-	] [
-		if block? try [out: load str] [out: str]
-		out
-	]
-
-	decode-str: func [start end /local new rule s][
-		new: copy/part start back end					;-- exclude ending quote
-		rule: [
-			any [
-				s: remove #"\" [
-					#"b" 	(s/1: #"^H")
-					| #"f"  (s/1: #"^(0C)")
-					| #"n"  (s/1: #"^/")
-					| #"r"  (s/1: #"^M")
-					| #"t"	(s/1: #"^-")
-					| #"u" 4 hexa
-				]
-				| skip
-			]
-		]
-		parse new rule
-		new
-	]
-
-	encode-str: func [str [string!] buffer [string!] /local start rule s][
-		append buffer #"^""
-		start: tail buffer
-		append buffer str
-		rule: [
-			any [
-				change #"^H"		"\b"
-				| change #"^(0C)"	"\f"
-				| change #"^/"		"\n"
-				| change #"^M"		"\r"
-				| change #"\"		"\\"
-				| change #"^-"		"\t"
-				| change #"^""		{\"}
-				| skip
-			]
-		]
-		parse start rule
-		append buffer #"^""
-	]
-		
-	value: [
-		string	  keep (decode-str s e)
-		| number  keep (load copy/part s e)
-		| "true"  keep (true)
-		| "false" keep (false)
-		| "null"  keep (none)
-		| object-rule
-		| array
-	]
-
-	number: [s: opt #"-" some digit opt [dot some digit opt [exponent sign 1 3 digit]] e:]
-	
-	string: [dbl-quote s: any [#"\" [quoted-char | #"u" 4 hexa] | dbl-quote break | skip] e:]
-	
-	couple: [ws string keep (load-str decode-str s e) ws #":" ws value]
-	
-	object-rule: [
-		#"{" collect set list opt [any [couple #","] couple] ws #"}"
-		keep (make map! list)
-	]
-	
-	array: [#"[" collect opt [ws value any [ws #"," ws value]] ws #"]"]
-	
-	decode: function [data [string!] return: [block! object!]][
-		output: parse data [collect any [blank | object-rule | array | value]]
-		either equal? 1 length? output [first output] [output]
-	]
-
-	encode-into: function [data [any-type!] buffer [string!]][
-		case [
-			any [map? data object? data] [
-				append buffer #"{"
-				either zero? length? words-of data [
-					append buffer #"}"
-				][
-					foreach word words-of data [
-						encode-into word buffer
-						append buffer #":"
-						encode-into data/:word buffer
-						append buffer #","
-					]
-					change back tail buffer #"}"
-				]
-			]
-			block? data [
-				append buffer #"["
-				either empty? data [
-					append buffer #"]"
-				][
-					foreach v data [
-						encode-into v buffer
-						append buffer #","
-					]
-					change back tail buffer #"]"
-				]
-			]
-			string? data [
-				encode-str data buffer
-			]
-			any [logic? data number? data][
-				append buffer mold data
-			]
-			true [
-				encode-into mold data buffer
-			]
-		]
-	]
-
-	encode: function [data return: [string!]][
-		buffer: make string! 1000
-		encode-into data buffer
-		buffer
-	]
-]
diff --git a/Lines.red b/Lines.red
index 0e94755..6bd1880 100644
--- a/Lines.red
+++ b/Lines.red
@@ -5,9 +5,6 @@ Red [
 	needs: 'View
 ]
 
-; JSON
-#include %JSON.red
-
 ; Font Name
 ; Should be Johnston or NJFont, I know. But if you want Johnston, 
 ; Install NJFont and change this name.
@@ -51,7 +48,7 @@ do [
 		]
 	]
 	
-	data: json/decode fetch-data
+	data: load-json fetch-data
 	data: data/lines
 	
 	append win [across]