diff --git a/etc/repl.tal b/etc/repl.tal
index 7433d2f..f8f904c 100644
--- a/etc/repl.tal
+++ b/etc/repl.tal
@@ -35,6 +35,7 @@
 	#01 ;draw-stack JSR2
 	#01 ;draw-program JSR2
 	#01 ;draw-labels JSR2
+	;draw-status JSR2
 
 	#010e DEO
 
@@ -189,6 +190,16 @@ JMP2r
 
 ( drawing )
 
+@draw-status ( -- )
+
+	.Screen/width DEI2 #0060 SUB2 .Screen/x DEO2
+	.Screen/height DEI2 #0010 SUB2 .Screen/y DEO2
+	.l/ptr LDZ2 #01 ;draw-short JSR2
+	LIT '/ #01 ;draw-char JSR2
+	#0000 ;labels SUB2 #01 ;draw-short JSR2
+
+JMP2r
+
 @draw-labels ( color -- )
 
 	POP
@@ -199,8 +210,6 @@ JMP2r
 
 	;labels
 	&while
-		LDA2k #03 ;draw-short JSR2
-		.Screen/x DEI2k #0008 ADD2 ROT DEO2
 		DUP2 INC2 INC2 #01 ;draw-str JSR2
 		.Screen/x DEI2k #0008 ADD2 ROT DEO2
 		;scap JSR2 INC2 LDA2k #0000 NEQ2 ,&while JCN
@@ -218,12 +227,14 @@ JMP2r
 	#81 .Screen/sprite DEO
 	#00 .Screen/sprite DEO
 	;prompt-txt #02 ;draw-str JSR2
-	;input #01 STHr MUL ;draw-str JSR2
+	;input #01 STHkr MUL ;draw-str JSR2
+	LIT '_ #03 STHr MUL ;draw-char JSR2
 
 JMP2r
 
 @draw-stack ( color -- )
 
+	( highlight last item )
 	STH
 	( position )
 	#0020 .Screen/x DEO2
@@ -448,7 +459,7 @@ JMP2r
 	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
+	0000 0004 0404 0808 0810 1010 2020 0000
 	( numbers )
 	0000 0038 4482 8292 9292 8282 4438 0000
 	0000 0010 3050 1010 1010 1010 1038 0000