@@ -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