From 99f0657237ee3a704f618726d2c2e3e7ce08c2aa Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Mon, 2 Jan 2023 02:22:58 -0500
Subject: [PATCH] appleiibot: triangle christmas tree

---
 basic/appleiibot/Makefile  | 9 ++++++++-
 basic/appleiibot/xtree.bas | 4 ++++
 2 files changed, 12 insertions(+), 1 deletion(-)
 create mode 100644 basic/appleiibot/xtree.bas

diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile
index 9189f2b6..5a512d6c 100644
--- a/basic/appleiibot/Makefile
+++ b/basic/appleiibot/Makefile
@@ -29,7 +29,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.BAS \
 	LARGE_XOR.BAS PAR_XOR.BAS PAR_HGR.BAS SIER_XOR.BAS PATTERN_LOGO.BAS \
 	GEARS.BAS DSR_LORES.BAS A2_LORES.BAS MAGIC_CUBE.BAS MOON.BAS \
-	PUMPKIN2.BAS TWITTER.BAS
+	PUMPKIN2.BAS TWITTER.BAS XTREE.BAS
 	cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk  appleiibot.dsk
 #	cp empty.dsk appleiibot.dsk
 #	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@@ -156,6 +156,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A MOON.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN2.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A TWITTER.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A XTREE.BAS
 
 
 ####
@@ -863,6 +864,12 @@ PUMPKIN2.BAS:	pumpkin2.bas
 TWITTER.BAS:	twitter.bas
 	$(TOKENIZE) < twitter.bas > TWITTER.BAS
 
+####
+
+XTREE.BAS:	xtree.bas
+	$(TOKENIZE) < xtree.bas > XTREE.BAS
+
+
 
 ####
 
diff --git a/basic/appleiibot/xtree.bas b/basic/appleiibot/xtree.bas
new file mode 100644
index 00000000..605226d6
--- /dev/null
+++ b/basic/appleiibot/xtree.bas
@@ -0,0 +1,4 @@
+0HGR:C=140:HCOLOR=5:H=15:W=14:Y=0:GOSUB8:H=-15:Y=20:GOSUB8:H=100:W=10:Y=52:GOSUB8
+2HCOLOR=1:H=50:W=50:Y=15:GOSUB8:W=70:Y=50:GOSUB8:W=85:Y=85:GOSUB8
+3HCOLOR=2:H=10:W=10:Y=100:C=80:GOSUB8:C=200:GOSUB8:Y=66:C=95:GOSUB8:C=185:GOSUB8:END
+8FORX=C-WTOC+W:HPLOTC,YTOX,Y+H:NEXT:RETURN