diff --git a/tcc/day8.tal b/tcc/day8.tal
index 44c863d..b51e82d 100644
--- a/tcc/day8.tal
+++ b/tcc/day8.tal
@@ -31,7 +31,9 @@ JMP2r
 @on-frame ( -> )
 
 	;draw-bg JSR2
-	#0000 ;draw-circle JSR2
+
+	;draw-circles JSR2
+	
 	.f LDZ2k INC2 #007f AND2 ROT STZ2
 
 BRK
@@ -51,15 +53,27 @@ BRK
 
 JMP2r
 
+@draw-circles ( -- )
+
+	#1000
+	&l
+		#00 OVR #40 SFT2 ;draw-circle JSR2
+		INC GTHk ,&l JCN
+	POP2
+
+JMP2r
+
 @draw-circle ( offset* -- )
 
 	( x )
-	DUP2 .f LDZ2 ADD2 #001f ADD2 #007f AND2 #10 SFT2 ;cos ADD2 LDA2 #0a SFT2 .Screen/x DEO2
+	DUP2 .f LDZ2 ADD2 #001f ADD2 #007f AND2 #10 SFT2 ;cos ADD2 LDA2 #0a SFT2
+		.Screen/x DEO2
 	( y )
-	.f LDZ2 ADD2 #10 SFT2 ;cos ADD2 LDA2 #0a SFT2 #0018 ADD2 .Screen/y DEO2
-
+	.f LDZ2 ADD2 #007f AND2 #10 SFT2 ;cos ADD2 LDA2 #0a SFT2 #0018 ADD2
+		.Screen/y DEO2
 	#16 .Screen/auto DEO
 	;circle-icn .Screen/addr DEO2
+
 	#05 .Screen/sprite DEOk DEO
 
 JMP2r