diff --git a/graphics/hgr/circles/Makefile b/graphics/hgr/circles/Makefile
index 40501628..7d467693 100644
--- a/graphics/hgr/circles/Makefile
+++ b/graphics/hgr/circles/Makefile
@@ -7,10 +7,11 @@ EMPTY_DISK = ../../../empty_disk
 
 all:	circles.dsk
 
-circles.dsk:	HELLO CIRCLES BRES.BAS
+circles.dsk:	HELLO CIRCLES BRES.BAS BRESBOT.BAS
 	cp $(EMPTY_DISK)/empty.dsk circles.dsk
 	$(DOS33) -y circles.dsk SAVE A HELLO
 	$(DOS33) -y circles.dsk SAVE A BRES.BAS
+	$(DOS33) -y circles.dsk SAVE A BRESBOT.BAS
 	$(DOS33) -y circles.dsk BSAVE -a 0x0C00 CIRCLES
 
 ###
@@ -25,6 +26,12 @@ BRES.BAS:	bres.bas
 
 ###
 
+BRESBOT.BAS:	bresbot.bas
+	$(TOKENIZE) < bresbot.bas > BRESBOT.BAS
+
+
+###
+
 CIRCLES:	circles.o
 	ld65 -o CIRCLES circles.o -C $(LINKER_SCRIPTS)/apple2_c00.inc
 
@@ -34,4 +41,4 @@ circles.o:	circles.s
 ###
 
 clean:	
-	rm -f *~ *.o *.lst CIRCLES
+	rm -f *~ *.o *.lst CIRCLES BRES.BAS BRESBOT.BAS
diff --git a/graphics/hgr/circles/bresbot.bas b/graphics/hgr/circles/bresbot.bas
new file mode 100644
index 00000000..d4886858
--- /dev/null
+++ b/graphics/hgr/circles/bresbot.bas
@@ -0,0 +1,9 @@
+0HGR2
+1HCOLOR=1+RND(1)*7:A=40+RND(1)*200:B=40+RND(1)*100:Y=RND(1)*40
+3X=0:D=3-2*Y:GOTO6
+4X=X+1:IFD>0THENY=Y-1:D=D+4*(X-Y)+10:GOTO6
+5D=D+4*X+6
+6HPLOTA+X,B+Y:HPLOTA-X,B+Y:HPLOTA+X,B-Y:HPLOTA-X,B-Y
+7HPLOTA+Y,B+X:HPLOTA-Y,B+X:HPLOTA+Y,B-X:HPLOTA-Y,B-X
+8IFY>=XTHEN4
+9GOTO1