From d7c1dd826dc80191820e19c1cea4080cde3a2f48 Mon Sep 17 00:00:00 2001
From: neauoire <aliceffekt@gmail.com>
Date: Sun, 4 Jul 2021 11:44:19 -0700
Subject: [PATCH] Removed debug from font

---
 projects/examples/demos/font.tal | 21 +++------------------
 1 file changed, 3 insertions(+), 18 deletions(-)

diff --git a/projects/examples/demos/font.tal b/projects/examples/demos/font.tal
index eff467a..0563388 100644
--- a/projects/examples/demos/font.tal
+++ b/projects/examples/demos/font.tal
@@ -9,13 +9,9 @@
 %TOS { #00 SWP }
 %INCR { SWP #01 ADD SWP }
 
-%DEBUG  { ;print-hex JSR2 #0a .Console/write DEO }
-%DEBUG2 { SWP ;print-hex JSR2 ;print-hex JSR2 #0a .Console/write DEO }
-
 ( devices )
 
 |00 @System  &vector $2 &pad     $6 &r      $2 &g     $2 &b      $2
-|10 @Console &vector $2 &read    $1 &pad    $5 &write $1 
 |20 @Screen  &vector $2 &width   $2 &height $2 &pad   $2 &x      $2 &y      $2 &addr $2 &color $1
 |a0 @File    &vector $2 &success $2 &offset $2 &pad   $2 &name   $2 &length $2 &load $2 &save  $2
 
@@ -28,9 +24,9 @@
 |0100 ( -> )
 
 	( theme ) 
-	#0fca .System/r DEO2 
-	#0eba .System/g DEO2 
-	#0ec9 .System/b DEO2
+	#0fa7 .System/r DEO2 
+	#0fa7 .System/g DEO2 
+	#0fa7 .System/b DEO2
 
 	( load font )
 	#4000 .File/length DEO2
@@ -140,17 +136,6 @@ RTN
 
 RTN
 
-
-@print-hex ( value -- )
-	
-	STHk #04 SFT ,&parse JSR .Console/write DEO
-	STHr #0f AND ,&parse JSR .Console/write DEO
-	RTN
-	&parse ( value -- char )
-		DUP #09 GTH ,&above JCN #30 ADD RTN &above #09 SUB #60 ADD RTN
-
-RTN
-
 @title
 	5468 6520 466f 6720 486f 726e $1