2 files changed, 15 insertions(+), 8 deletions(-)

M src/apps.tal
M src/potato.tal

@@ 466,14 466,8 @@ JMP2r
 	.Screen/y DEI2k #003a SUB2 ROT DEO2
 	;&icon LDA2 #0100 SUB2 ;seek JSR2
 	#0200 .Disk/length DEO2
-	;mem-ptr JSR2
-		DUP2 .Disk/read DEO2
-		.Screen/addr DEO2
-	#76 .Screen/auto DEO
-	#02 .Screen/sprite 
-		DEOk DEOk DEOk DEOk
-		DEOk DEOk DEOk DEO
-	#01 .Screen/auto DEO
+	;mem-ptr JSR2 STH2k .Disk/read DEO2
+	#0802 #76 STH2r ;draw-pict-small JSR2
 
 JMP2r
 	&header $1 &start $2 &end $2 &icon $2

@@ 1039,6 1039,19 @@ JMP2r
 JMP2r
 	&buf $10
 
+@draw-pict-small ( h color auto addr* -- )
+
+	.Screen/addr DEO2
+	.Screen/auto DEO
+	,&c STR
+	#00
+	&l
+		[ LIT &c $1 ] .Screen/sprite DEO
+		INC GTHk ,&l JCN
+	POP2
+
+JMP2r
+
 @draw-dec ( short* -- )
 
 	#01 .Screen/auto DEO