diff --git a/term.tal b/term.tal
index 51cbeaf..6653352 100644
--- a/term.tal
+++ b/term.tal
@@ -146,7 +146,6 @@
     #07bf .System/r DEO2
     #07bf .System/g DEO2
     #07bf .System/b DEO2
-(    load-theme-old )
     load-theme
 
     update-dimensions
@@ -213,22 +212,10 @@
     #0002 .File1/len DEO2
     ;&x .File1/r DEO2
     .File1/ok DEI2 ORA #01 JCN JMP2r
-    #00 ,&x LDR INC2 ( hack ) .cols STZ2
+    #00 ,&x LDR INC2 ( HACK ) .cols STZ2
     #00 ,&y LDR .rows STZ2
     JMP2r [ &path ".theme $1 &r $2 &g $2 &b $2 &x $1 &y $1 ]
 
-@load-theme-old ( -> )
-    ;&path .File1/name DEO2
-    #0002 .File1/len DEO2
-    ;&r .File1/r DEO2
-    ;&g .File1/r DEO2
-    ;&b .File1/r DEO2
-    .File1/ok DEI2 ORA #01 JCN JMP2r
-    LIT2 &r $2 .System/r DEO2
-    LIT2 &g $2 .System/g DEO2
-    LIT2 &b $2 .System/b DEO2
-    JMP2r [ &path ".theme $1 ]
-
 @first-addr ( -> )
     ;cells JMP2r