1 files changed, 17 insertions(+), 0 deletions(-)

M src/main.tal

@@ 1275,6 1275,23 @@ RTN
 
 @paste-snarf ( -- )
 
+	;snarf-txt .File/name DEO2
+	#1000 .File/length DEO2
+	DATA-CLIP .File/load DEO2
+
+	( stash x,y ) .selection LDZ2 STH2
+	.File/success DEI2 #0000
+	&loop
+		DUP2 
+			DATA-CLIP ++ 
+			STH2kr GET-ADDR
+			;copy-tile JSR2
+		( move-x ) SWPr LITr 01 ADDr SWPr
+		&resume
+		#0010 ++ GTH2k ,&loop JCN
+	POP2 POP2
+	( destroy x,y ) POP2r
+
 RTN
 
 ( generics )