diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile
index a8a67751..5610aa00 100644
--- a/basic/appleiibot/Makefile
+++ b/basic/appleiibot/Makefile
@@ -20,7 +20,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS \
 	FIREWORKS.BAS THINKING.BAS ARCS.BAS WIRE_HGR.BAS STATIC.BAS \
 	OVAL.BAS OVAL_HGR.BAS MOVING.BAS THICK_SINE.BAS TURKEY.BAS \
-	FLAME_HGR.BAS RECT.BAS
+	FLAME_HGR.BAS RECT.BAS SNOWY.BAS
 #	cp $(EMPTY_DISK)/empty.dsk  appleiibot.dsk
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@@ -106,6 +106,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A TURKEY.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A FLAME_HGR.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A RECT.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SNOWY.BAS
 
 ####
 
@@ -235,6 +236,11 @@ SNOW.BAS:	snow.bas
 
 ####
 
+SNOWY.BAS:	snowy.bas
+	$(TOKENIZE) < snowy.bas > SNOWY.BAS
+
+####
+
 THICK_SINE.BAS:	thick_sine.bas
 	$(TOKENIZE) < thick_sine.bas > THICK_SINE.BAS
 
diff --git a/basic/appleiibot/snowy.bas b/basic/appleiibot/snowy.bas
new file mode 100644
index 00000000..7288f4fd
--- /dev/null
+++ b/basic/appleiibot/snowy.bas
@@ -0,0 +1,3 @@
+0Q=38:GR:FORI=0TO9:X(I)=RND(1)*Q:Y(I)=I:COLOR=1:VLIN33,QAT16+I:COLOR=4:HLIN9-I/2,9+I/2AT28+I:COLOR=8:VLIN29,33AT16+I:NEXT:VLIN36,QAT20:HLIN0,QAT39:PLOT9,Q
+3FORI=0TO9:V=X(I):W=Y(I):COLOR=15:PLOTV,W:PLOTV,W+1:COLOR=0:IFSCRN(V,W+2)>0THENX(I)=RND(1)*Q:W=0
+6PLOTV,W:Y(I)=W+1:NEXT:GOTO3