diff --git a/appleiibot/Makefile b/appleiibot/Makefile
index 717e0240..e5ef742d 100644
--- a/appleiibot/Makefile
+++ b/appleiibot/Makefile
@@ -11,7 +11,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
 	A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
 	RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
-	FASTAR2.BAS FASTAR2 BIN.BAS
+	FASTAR2.BAS FASTAR2 BIN.BAS FALLING.BAS
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2
@@ -50,6 +50,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	$(DOS33) -y appleiibot.dsk SAVE A FASTAR.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A FASTAR2.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A BIN.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A FALLING.BAS
 
 ###
 
@@ -124,6 +125,12 @@ NYAN.BAS:	nyan.bas
 
 ####
 
+FALLING.BAS:	falling.bas
+	$(TOKENIZE) < falling.bas > FALLING.BAS
+
+
+####
+
 E2.BAS:	entropy_small.bas
 	$(TOKENIZE) < entropy_small.bas > E2.BAS
 
diff --git a/appleiibot/falling.bas b/appleiibot/falling.bas
new file mode 100644
index 00000000..00eb03e5
--- /dev/null
+++ b/appleiibot/falling.bas
@@ -0,0 +1,7 @@
+1GR:DIMR(16):FORI=6TO15:READR(I):NEXT
+2C(O)=RND(1)*15+1:X(O)=RND(1)*40:Y(O)=INT(RND(1)*40)
+3FORI=0TO7:N=C(I):IF(Y(I)>30ANDY(I)<36)ORY(I)=20ORY(I)=24ORY(I)=25THENN=R(N)
+6COLOR=N:IFY(I)<40THENPLOTX(I),Y(I)
+7Y(I)=Y(I)+1:NEXT
+8O=O+1:IFO=8THENO=0
+9GOTO2:DATA2,2,0,8,0,3,4,8,4,5