diff --git a/appleiibot/Makefile b/appleiibot/Makefile
index 787cd130..c820183f 100644
--- a/appleiibot/Makefile
+++ b/appleiibot/Makefile
@@ -10,7 +10,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \
 	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
+	RLEASM.BAS HORIZON.BAS
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
 	$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
@@ -41,6 +41,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	$(DOS33) -y appleiibot.dsk SAVE A RLE.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A RLE2.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A RLEASM.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A HORIZON.BAS
 
 ###
 
@@ -236,5 +237,10 @@ RLEASM.BAS:	rleasm.bas
 
 ####
 
+HORIZON.BAS:	horizon.bas
+	$(TOKENIZE) < horizon.bas > HORIZON.BAS
+
+####
+
 clean:
 	rm -f *~ *.o *.lst convert_to convert_from convert_qkumba make_boxes convert_back LOAD *.BAS
diff --git a/appleiibot/horizon.bas b/appleiibot/horizon.bas
new file mode 100644
index 00000000..f71c94dc
--- /dev/null
+++ b/appleiibot/horizon.bas
@@ -0,0 +1,12 @@
+10 HGR:HGR2:C=2
+12 FOR I=0 TO 8
+14 X=0:Y=96+I*11:V=279:W=Y:GOSUB200
+16 NEXT
+22 A=-220:W=96:FORI=1TO8
+24 READ B:Y=B
+26 X=A*(A>0):V=I*16:GOSUB200
+30 X=279-X:V=(17-I)*16:GOSUB200
+32 A=A+48:NEXT
+70 GOTO 22
+138 DATA 101,112,123,139,166,191,191,191
+200HCOLOR=C:HPLOTX,YTOV,W:RETURN