diff --git a/etc/repl.tal b/etc/repl.tal
index 8c46d8a..48917e7 100644
--- a/etc/repl.tal
+++ b/etc/repl.tal
@@ -16,13 +16,15 @@
 |0100 ( -> )
 
 	( theme )
-	#f0f7 .System/r DEO2
-	#50f7 .System/g DEO2
-	#60f7 .System/b DEO2
+	#0f5f .System/r DEO2
+	#0fcd .System/g DEO2
+	#0fa3 .System/b DEO2
+	#15 .Screen/auto DEO
 	( vectors )
 	;on-button .Controller/vector DEO2
 	( draw )
-	#fe00 ;draw-stack JSR2
+	#01 ;draw-input JSR2
+	#01 ;draw-stack JSR2
 
 BRK
 
@@ -44,8 +46,10 @@ BRK
 
 @parse ( addr* -- )
 
+	#00 ;draw-stack JSR2
+
 	&while
-		LDAk #20 GTH ,&no-space JCN 
+		LDAk #20 GTH ,&no-space JCN
 			;do-token JSR2
 			,&continue JMP
 			&no-space
@@ -53,15 +57,16 @@ BRK
 		&continue
 		INC2 LDAk ,&while JCN
 	POP2
+	#01 ;draw-program JSR2
 
 	( set return )
 	;&end ;write-litshort JSR2 #2c ;write-byte JSR2
 	( time to evaluate program )
-	( borrow wst ) #fe .System/wst DEO
+	( borrow wst ) #ff .System/wst DEO
 	;dst JMP2
 	&end
 	( released wst ) #00 .System/wst DEO
-	#fe00 ;draw-stack JSR2
+	#01 ;draw-stack JSR2
 	
 	;dst .p/len LDZ2 #0004 ADD2 ;mclr JSR2
 	#0000 .p/len STZ2
@@ -79,11 +84,8 @@ JMP2r
 		&no-opcode
 	&end
 	POP2
-
 	;token #0040 ;mclr JSR2
 
-	;draw-program JSR2
-
 JMP2r
 
 @is-opcode ( string* -- flag )
@@ -163,64 +165,54 @@ JMP2r
 @draw-input ( color -- )
 
 	STH
-	#0020 .Screen/x DEO2
-	#0010 .Screen/y DEO2
-	#3e #02 STHkr MUL ;draw-char JSR2
+	( flower )
+	#0010 .Screen/x DEO2
+	#0020 .Screen/y DEO2
+	;flowers-icn #00 ;input ;slen JSR2 ADD #06 DIVk MUL SUB #50 SFT2 ADD2 .Screen/addr DEO2
+	#81 .Screen/sprite DEO
+	#00 .Screen/sprite DEO
+	;prompt-txt #02 ;draw-str JSR2
 	;input #01 STHr MUL ;draw-str JSR2
 
 JMP2r
 
-@draw-stack ( addr* -- )
+@draw-stack ( color -- )
 
+	STH
 	( position )
 	#0020 .Screen/x DEO2
-	#0020 .Screen/y DEO2
-	STH2k
-	#00ff ADD2 LDA ,&length STR
-	#01 .Screen/auto DEO
-	.Screen/x DEI2 ,&anchor STR2
-	#00
-	&loop
-		( linebreak )
-		DUP #0f AND ,&skip JCN
-			[ LIT2 &anchor $2 ] .Screen/x DEO2
-			.Screen/y DEI2k #000a ADD2 ROT DEO2
-			&skip
-		( byte ) #00 OVR STH2kr ADD2 LDA
-		( color ) OVR [ LIT &length $1 ] STH2k LTH INC STH2r EQU #02 MUL ADD
-			;draw-byte JSR2
-		.Screen/x DEI2k #0002 ADD2 ROT DEO2
-		INC DUP ,&loop JCN
-	POP
-	POP2r
+	#0050 .Screen/y DEO2
+	;stack-txt #02 ;draw-str JSR2
+	#ffff LDA #ff00 STHr ,draw-memory JSR
 
 JMP2r
 
-@draw-program ( -- )
+@draw-program ( color -- )
 
+	STH
 	#0020 .Screen/x DEO2
-	.Screen/height DEI2 #0020 SUB2 .Screen/y DEO2
-	#10 ;dst ;draw-memory JSR2
+	#0090 .Screen/y DEO2
+	;program-txt #02 ;draw-str JSR2
+	#10 ;dst STHr ,draw-memory JSR
 
 JMP2r
 
-@draw-memory ( length addr* -- )
-
-	STH2
-	#01 .Screen/auto DEO
+@draw-memory ( length addr* color -- )
+	
+	STH
+	,&addr STR2
 	.Screen/x DEI2 ,&anchor STR2
 	#00
 	&loop
-		( linebreak )
-		DUP #0f AND ,&skip JCN
+		DUP #07 AND ,&no-lb JCN
 			[ LIT2 &anchor $2 ] .Screen/x DEO2
-			.Screen/y DEI2k #000a ADD2 ROT DEO2
-			&skip
-		( byte ) #00 OVR STH2kr ADD2 LDA #01 ;draw-byte JSR2
-		.Screen/x DEI2k #0002 ADD2 ROT DEO2
+			.Screen/y DEI2k #0010 ADD2 ROT DEO2
+			&no-lb
+		#00 OVR [ LIT2 &addr $2 ] ADD2 LDA #01 STHkr MUL ,draw-byte JSR
+		.Screen/x DEI2k #0008 ADD2 ROT DEO2
 		INC GTHk ,&loop JCN
 	POP2
-	POP2r
+	POPr
 
 JMP2r
 
@@ -238,7 +230,7 @@ JMP2r
 
 @draw-char ( char color -- )
 
-	SWP #20 SUB #00 SWP #30 SFT2 ;font ADD2 .Screen/addr DEO2
+	SWP #20 SUB #00 SWP #40 SFT2 ;font ADD2 .Screen/addr DEO2
 	.Screen/sprite DEO
 
 JMP2r
@@ -256,21 +248,6 @@ JMP2r
 
 ( utils )
 
-@scat ( src* dst* -- )
-
-	DUP2 ,slen JSR ADD2
-
-@scpy ( src* dst* -- )
-	
-	STH2
-	&while
-		LDAk STH2kr STA INC2r
-		INC2 LDAk ,&while JCN
-	POP2
-	#00 STH2r STA
-
-JMP2r
-
 @slen ( str* -- len* )
 
 	DUP2 ,scap JSR SWP2 SUB2
@@ -298,18 +275,6 @@ JMP2r
 
 JMP2r
 
-@shex ( str* -- short* )
-
-	LIT2r 0000
-	&while
-		LITr 40 SFT2r
-		LITr 00
-		LDAk ,chex JSR STH ADD2r
-		INC2 LDAk ,&while JCN
-	POP2 STH2r
-
-JMP2r
-
 @chex ( char -- value )
 
 	DUP #2f GTH OVR #3a LTH AND ,&number JCN
@@ -330,18 +295,6 @@ JMP2r
 
 JMP2r
 
-@mcpy ( src* dst* len* -- )
-
-	SWP2 STH2
-	OVR2 ADD2 SWP2
-	&loop
-		LDAk STH2kr STA INC2r
-		INC2 GTH2k ,&loop JCN
-	POP2 POP2
-	POP2r
-
-JMP2r
-
 @print ( short* -- )
 
 	&short ( short* -- ) SWP ,&byte JSR
@@ -381,6 +334,10 @@ JMP2r
 
 ( assets )
 
+@prompt-txt "Do 20 $1
+@stack-txt "Stack 20 $1
+@program-txt "Program 20 $1
+
 @opcodes
 	"LIT "INC "POP "DUP "NIP "SWP "OVR "ROT
 	"EQU "NEQ "GTH "LTH "JMP "JCN "JSR "STH
@@ -391,70 +348,116 @@ JMP2r
 @err
 	&lithx "LITHX $1 &label "LABEL $1 &token "TOKEN $1 &reslv "RESLV $1
 
-@font ( acorn8 )
-	0000 0000 0000 0000 1818 1818 1800 1800
-	3636 3600 0000 0000 3636 7f36 7f36 3600
-	0c3f 683e 0b7e 1800 0063 660c 1833 6300
-	386c 6c38 6d66 3b00 0c0c 0c00 0000 0000
-	060c 1818 180c 0600 3018 0c0c 0c18 3000
-	0066 3cff 3c66 0000 000c 0c3f 0c0c 0000
-	0000 0000 0018 1830 0000 007f 0000 0000
-	0000 0000 0018 1800 0003 060c 1830 6000
-	3e63 676b 7363 3e00 0c1c 0c0c 0c0c 3f00
-	3e63 031e 3060 7f00 3e63 030e 0363 3e00
-	0e1e 3666 7f06 0600 7f60 7e03 0363 3e00
-	1e30 607e 6363 3e00 7f03 060c 1818 1800
-	3e63 633e 6363 3e00 3e63 633f 0306 3c00
-	0000 1818 0018 1800 0000 1818 0018 1830
-	060c 1830 180c 0600 0000 7f00 7f00 0000
-	3018 0c06 0c18 3000 3e63 030e 1800 1800
-	3c66 6e6a 6e60 3c00 3e63 637f 6363 6300
-	7e63 637e 6363 7e00 1e33 6060 6033 1e00
-	7c66 6363 6366 7c00 7f60 607c 6060 7f00
-	7f60 607c 6060 6000 1e33 6067 6333 1e00
-	6363 637f 6363 6300 3f0c 0c0c 0c0c 3f00
-	7f0c 0c0c 0c6c 3800 6366 6c78 6c66 6300
-	6060 6060 6060 7f00 6377 7f6b 6b63 6300
-	6373 7b6f 6763 6300 3e63 6363 6363 3e00
-	7e63 637e 6060 6000 3e63 6363 6566 3b00
-	7e63 637e 6663 6300 3e63 603e 0363 3e00
-	3f0c 0c0c 0c0c 0c00 6363 6363 6363 3e00
-	6363 6363 6336 1c00 6363 6b6b 7f77 6300
-	6336 1c1c 3663 6300 6363 633e 0c0c 0c00
-	7f06 0c18 3060 7f00 3e30 3030 3030 3e00
-	0060 3018 0c06 0300 7c0c 0c0c 0c0c 7c00
-	1c36 6300 0000 0000 0000 0000 0000 00ff
-	3018 0c00 0000 0000 0000 3e03 3f63 3f00
-	6060 7e63 6363 7e00 0000 3e63 6063 3e00
-	0303 3f63 6363 3f00 0000 3e63 7f60 3e00
-	0f18 183e 1818 1800 0000 3f63 633f 033e
-	6060 7e63 6363 6300 0c00 1c0c 0c0c 3f00
-	0600 1e06 0606 063c 6060 6366 7c66 6300
-	1c0c 0c0c 0c0c 1e00 0000 367f 6b6b 6300
-	0000 7e63 6363 6300 0000 3e63 6363 3e00
-	0000 7e63 637e 6060 0000 3f63 633f 0302
-	0000 6e7b 6060 6000 0000 3f60 3e03 7e00
-	1818 3f18 1818 0f00 0000 6363 6363 3f00
-	0000 6363 6336 1c00 0000 636b 6b7f 3600
-	0000 6336 1c36 6300 0000 6363 633f 033e
-	0000 7f06 1c30 7f00 060c 0c38 0c0c 0600
-	0c0c 0c0c 0c0c 0c00 3018 180e 1818 3000
-	316b 4600 0000 0000 0303 0606 761c 0c00
-	f090 f01f 1f1f 1f00 e0e0 e01f 1111 1f00
-	fe92 92f2 8282 fe00 6699 8142 8199 6600
-	fcfc ffe1 e121 3f00 0000 3c66 6066 3cff
-	6060 7c66 6666 66ff 1828 4f81 4f28 1800
-	1814 f281 f214 1800 3c24 24e7 4224 1800
-	1824 42e7 2424 3c00 3030 7c30 3030 1cff
-	0000 3c66 7e60 3cff 0000 6c76 6060 60ff
-	0000 3e60 3c06 7cff 0000 0018 1800 00ff
-	0000 3c06 3e66 3eff 0000 6c76 6060 60ff
-	0000 3c66 7e60 3cff 0000 0018 1800 00ff
-	0000 7c66 6666 66ff 0000 3c66 6666 3cff
-	3030 7c30 3030 1cff 0000 0018 1800 00ff
-	0606 3e66 6666 3eff 0000 3c66 7e60 3cff
-	1c30 307c 3030 30ff 1800 3818 1818 3cff
-	0000 7c66 6666 66ff 0000 3c66 7e60 3cff
-	0606 3e66 6666 3eff 0000 0000 0000 0000
+@flowers-icn ( by elioat )
+	0000 0020 1408 0810 40a0 4205 0200 40a0
+	0810 103c 7e7e 3c18 4205 0234 7e7e 3c18
+	0000 0020 100c 0818 0040 a042 0522 5024
+	0008 083c 7e7e 3c18 0a04 002c 7e7e 3c18
+	0000 0000 0000 000c 0000 0000 0000 0000
+	1c10 083c 7e7e 3c18 0000 002c 7e7e 3c18
+	0000 0000 0000 0004 0000 0000 0002 0502
+	0810 103c 7e7e 3c18 0000 0034 7e7e 3c18
+	0000 0000 0000 0010 0000 0000 0020 5225
+	080c 083c 7e7e 3c18 0200 002c 7e7e 3c18
+	0000 0000 0800 1800 0000 040a 2450 240a
+	1010 103c 7e7e 3c18 0400 0034 7e7e 3c18
+
+@font ( msx816 )
+	0000 0000 0000 0000 0000 0000 0000 0000
+	0000 0020 2020 2020 2020 0000 2020 0000
+	0000 006c 6c24 4800 0000 0000 0000 0000
+	0000 0044 44fe 4444 4444 44fe 4444 0000
+	0000 1010 7c92 9290 7c12 9292 7c10 1000
+	0000 0040 a0a2 4408 1020 448a 0a04 0000
+	0000 0070 8888 8850 2050 8a84 8c72 0000
+	0000 0030 3010 2000 0000 0000 0000 0000
+	0000 0004 0808 1010 1010 1008 0804 0000
+	0000 0040 2020 1010 1010 1020 2040 0000
+	0000 0000 0000 1054 3854 1000 0000 0000
+	0000 0000 0010 1010 fe10 1010 0000 0000
+	0000 0000 0000 0000 0000 0030 3010 2000
+	0000 0000 0000 0000 fe00 0000 0000 0000
+	0000 0000 0000 0000 0000 0000 3030 0000
+	0000 0000 0002 0408 1020 4080 0000 0000
+	( numbers )
+	0000 0038 4482 8292 9292 8282 4438 0000
+	0000 0010 3050 1010 1010 1010 1038 0000
+	0000 0038 4482 8202 0c30 4080 80fe 0000
+	0000 0038 4482 0204 3804 0282 4438 0000
+	0000 0004 0c14 1424 2444 44fe 0404 0000
+	0000 00fc 8080 80b8 c402 0282 4438 0000
+	0000 0038 4482 80b8 c482 8282 4438 0000
+	0000 00fe 8284 0808 1010 1010 1010 0000
+	0000 0038 4482 8244 3844 8282 4438 0000
+	0000 0038 4482 8282 463a 0282 4438 0000
+	0000 0000 0000 3030 0000 0030 3000 0000
+	0000 0000 0000 3030 0000 0030 3010 2000
+	0000 0000 0408 1020 4020 1008 0400 0000
+	0000 0000 0000 00fe 0000 fe00 0000 0000
+	0000 0000 4020 1008 0408 1020 4000 0000
+	0000 0038 4482 8202 0c10 1000 1010 0000
+	0000 0038 4482 0262 9292 9292 926c 0000
+	0000 0010 2844 8282 8282 fe82 8282 0000
+	0000 00f8 8482 8284 f884 8282 84f8 0000
+	0000 0038 4482 8080 8080 8082 4438 0000
+	0000 00f8 4442 4242 4242 4242 44f8 0000
+	0000 00fe 8080 8080 fc80 8080 80fe 0000
+	0000 00fe 8080 8080 fc80 8080 8080 0000
+	0000 0038 4482 8080 8e82 8282 463a 0000
+	0000 0082 8282 8282 fe82 8282 8282 0000
+	0000 0038 1010 1010 1010 1010 1038 0000
+	0000 000e 0404 0404 0404 0484 8870 0000
+	0000 0082 8488 90a0 c0a0 9088 8482 0000
+	0000 0040 4040 4040 4040 4040 407e 0000
+	0000 0082 c6aa 9292 8282 8282 8282 0000
+	0000 0082 c2a2 a292 928a 8a86 8282 0000
+	0000 0038 4482 8282 8282 8282 4438 0000
+	0000 00f8 8482 8282 84f8 8080 8080 0000
+	0000 0038 4482 8282 8282 bac6 443a 0000
+	0000 00f8 8482 8284 f890 8884 8482 0000
+	0000 0038 4482 8040 3804 0282 4438 0000
+	0000 00fe 1010 1010 1010 1010 1010 0000
+	0000 0082 8282 8282 8282 8282 827c 0000
+	0000 0082 8282 8282 8282 8244 2810 0000
+	0000 0082 8282 8282 9292 aaaa 4444 0000
+	0000 0082 8282 4428 1028 4482 8282 0000
+	0000 0082 8282 4428 1010 1010 1010 0000
+	0000 00fe 0202 0408 1020 4080 80fe 0000
+	0000 001c 1010 1010 1010 1010 101c 0000
+	0000 0082 4428 10fe 1010 fe10 1010 0000
+	0000 0070 1010 1010 1010 1010 1070 0000
+	0000 0010 2844 8200 0000 0000 0000 0000
+	0000 0000 0000 0000 0000 0000 00fe 0000
+	0000 0060 6020 1000 0000 0000 0000 0000
+	0000 0000 0000 7884 047c 8484 8c74 0000
+	0000 0040 4040 5864 4242 4242 6458 0000
+	0000 0000 0000 3844 8280 8082 4438 0000
+	0000 0004 0404 344c 8484 8484 4c34 0000
+	0000 0000 0000 3844 82fe 8082 4438 0000
+	0000 0018 2420 7820 2020 2020 2020 0000
+	0000 0000 0000 3a46 8282 8246 3a82 4438
+	0000 0040 4040 5864 4242 4242 4242 0000
+	0000 0010 1000 0010 1010 1010 1010 0000
+	0000 0008 0800 0008 0808 0808 0808 4830
+	0000 0040 4040 4244 4850 7048 4442 0000
+	0000 0030 1010 1010 1010 1010 1010 0000
+	0000 0000 0000 ec92 9292 9292 9292 0000
+	0000 0000 0000 5c62 4242 4242 4242 0000
+	0000 0000 0000 3844 8282 8282 4438 0000
+	0000 0000 0000 5864 4242 4242 6458 4040
+	0000 0000 0000 344c 8484 8484 4c34 0404
+	0000 0000 0000 5864 4040 4040 4040 0000
+	0000 0000 0000 7c82 807c 0202 827c 0000
+	0000 0020 2020 f820 2020 2020 2418 0000
+	0000 0000 0000 8484 8484 8484 8c74 0000
+	0000 0000 0000 8282 4444 2828 1010 0000
+	0000 0000 0000 8282 8292 92aa 4444 0000
+	0000 0000 0000 8244 2810 1028 4482 0000
+	0000 0000 0000 4242 4242 4222 1408 1060
+	0000 0000 0000 fe04 0810 2040 80fe 0000
+	0000 000c 1010 1010 2010 1010 100c 0000
+	0000 1010 1010 0000 0000 1010 1010 0000
+	0000 0060 1010 1010 0810 1010 1060 0000
+	0000 0060 920c 0000 0000 0000 0000 0000
 
 @dst