diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile
index 4f3788e3..a52efccd 100644
--- a/basic/appleiibot/Makefile
+++ b/basic/appleiibot/Makefile
@@ -17,7 +17,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	COMBO.BAS WIRES.BAS PATTERN.BAS BALL.BAS LINES.BAS MOD9.BAS \
 	XOR_ZOOM.BAS MOD9_HGR.BAS SIER_HGR.BAS MOVE.BAS SINE.BAS XDRAW128.BAS \
 	GATOR.BAS CURSOR.BAS STARGATE.BAS TUNNEL.BAS STARFIELD.BAS \
-	STAROOPS.BAS HGRSTARFIELD.BAS
+	STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS
 
 #	cp $(EMPTY_DISK)/empty.dsk  appleiibot.dsk
 	cp empty.dsk appleiibot.dsk
@@ -89,6 +89,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A STARFIELD.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A STAROOPS.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A HGRSTARFIELD.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A COOL_BOT.BAS
 
 ####
 
@@ -503,5 +504,10 @@ SIERPINSKI.BAS:	sierpinski.bas
 
 ####
 
+COOL_BOT.BAS:	cool_bot.bas
+	$(TOKENIZE) < cool_bot.bas > COOL_BOT.BAS
+
+####
+
 clean:
 	rm -f *~ *.o *.lst convert_to convert_from convert_qkumba convert_vmw make_boxes convert_back convert_tgreene LOAD *.BAS
diff --git a/basic/appleiibot/cool_bot.bas b/basic/appleiibot/cool_bot.bas
new file mode 100644
index 00000000..33d0eae2
--- /dev/null
+++ b/basic/appleiibot/cool_bot.bas
@@ -0,0 +1,2 @@
+1FORI=0TO140:POKE875+I,4*PEEK(2125+I)-192+(PEEK(2266+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&",clS0[C/Vc.kI0R`lYg1JF82BN:Ml:-Y_glQ[VlWlX,74hXlX0X08<cglaldela<00EC<G-RD50BRI-QFIG@JK<:0S?C4,\48JLS4=C0T'>2/X0>5DLC31LZ558@V924D!U?*A?WL64G0S7BF03;KD4>=[,37%#L%#&[S-5EJXA[3$3AQ.%_?.Z8_W._