diff --git a/term.tal b/term.tal
index 09bd561..3620fb0 100644
--- a/term.tal
+++ b/term.tal
@@ -316,21 +316,19 @@
 @paste-snarf ( -> )
     .paste LDZ #00 EQU ?&start LIT "0 ;bracket-paste JSR2 &start
     ;snarf .File2/name DEO2      ( )
-    #0100 .File2/len DEO2        ( )
+    #0780 .File2/len DEO2        ( )
     &loop                        ( )
         ;paste-buf .File2/r DEO2 ( )
         .File2/ok DEI2           ( size* )
         DUP2 #0000 EQU2 ?&failed ( size* )
         DUP2 paste-from-buf      ( size* )
-        #0100 LTH2 ?&done        ( )
+        #0780 LTH2 ?&done        ( )
         !&loop                   ( )
     &failed POP2
     &done
     .paste LDZ #00 EQU ?&end LIT "1 ;bracket-paste JSR2 &end
     JMP2r
 
-@snarf ".snarf 00
-
 @lit-first-y
     .is-lit-flip LDZ ?&flip .lit-click-y LDZ2 JMP2r &flip .lit-drag-y LDZ2 JMP2r
 @lit-first-x
@@ -631,7 +629,7 @@
 
 @end-arg ( c^ -> )
     ;on-read .Console/vect DEO2
-    ( DUP debug-csi )
+    DUP debug-csi
     DUP LIT "d EQU ?exec-move-row     ( move cursor to row )
     DUP LIT "h EQU ?exec-set-mode     ( enable line wrap )
     DUP LIT "l EQU ?exec-reset-mode   ( disable line wrap )
@@ -793,6 +791,7 @@
 
 @on-read-esc ( -> )
     .Console/r DEI
+    DUP debug-esc
     DUP LIT "[ EQU ?start-csi
     DUP LIT "] EQU ?start-osc
     DUP LIT "( EQU ?start-charset
@@ -823,6 +822,7 @@
 
 @on-read ( -> )
     .Console/r DEI
+    DUP debug-read
     DUP ?&ok POP BRK
     &ok ( #42 .tint STZ )
     !read
@@ -1113,6 +1113,8 @@
 @cp437
     ~cp437.tal
 
+@snarf ".snarf 00
+
 @meta 00
     &name "determ 0a
     &details "ansi 20 "terminal 20 "emulator 0a
@@ -1122,7 +1124,7 @@
     ( device mask ) 41 0d07
 
 ( paste buffer )
-@paste-buf $1000
+@paste-buf $0780 ( max 80 x 24 characters )
 @paste-pos $2
 
 ( store tint+char for each screen position )