From 7f02cdbe3b197da5a1ca31e1689f4806d32998d1 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Tue, 26 Jul 2022 17:11:40 -0400
Subject: [PATCH] applebot: add solaris

---
 basic/appleiibot/Makefile     | 31 ++++++++++++++++++++++---------
 basic/appleiibot/solaris.bas  |  4 ++++
 basic/appleiibot/solaris2.bas |  4 ++++
 3 files changed, 30 insertions(+), 9 deletions(-)
 create mode 100644 basic/appleiibot/solaris.bas
 create mode 100644 basic/appleiibot/solaris2.bas

diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile
index e772a1a8..d263be46 100644
--- a/basic/appleiibot/Makefile
+++ b/basic/appleiibot/Makefile
@@ -4,7 +4,7 @@ DOS33 = ../../utils/dos33fs-utils/dos33
 TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
 EMPTY_DISK = ../../empty_disk
 
-all:	appleiibot.dsk appleiibot2.dsk \
+all:	appleiibot.dsk \
 	convert_to convert_back convert_qkumba make_boxes convert_vmw convert_tgreene make_hgr_boxes
 
 appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
@@ -25,10 +25,10 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	HORROR.BAS DIAMOND.BAS LEMM.BAS OOPS.BAS SPLIT.BAS PARTICLE.BAS \
 	PARTICLE_HGR.BAS DIAMOND_SCROLL.BAS RANDOM_SCROLL.BAS STAR_BOUNCE.BAS\
 	OOZE.BAS HORIZ_STAR.BAS SECRET_COLLECT.BAS PLANET.BAS PLANET_GR.BAS \
-	BOXES.BAS
-#	cp $(EMPTY_DISK)/empty.dsk  appleiibot.dsk
-	cp empty.dsk appleiibot.dsk
-	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
+	BOXES.BAS SOLARIS.BAS SOLARIS2.BAS
+	cp $(EMPTY_DISK)/empty.dsk  appleiibot.dsk
+#	cp empty.dsk appleiibot.dsk
+#	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
 	$(DOS33) -y appleiibot.dsk SAVE A HELLO
 	$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A FLAME.BAS
@@ -130,11 +130,14 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A SECRET_COLLECT.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A PLANET.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A PLANET_GR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A BOXES.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SOLARIS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SOLARIS2.BAS
 
-appleiibot2.dsk:	BOXES.BAS HELLO
-	cp empty.dsk appleiibot2.dsk
-	$(DOS33) -y appleiibot2.dsk SAVE A HELLO
-	$(DOS33) -y appleiibot2.dsk SAVE A BOXES.BAS
+#appleiibot2.dsk:	BOXES.BAS HELLO
+#	cp empty.dsk appleiibot2.dsk
+#	$(DOS33) -y appleiibot2.dsk SAVE A HELLO
+#	$(DOS33) -y appleiibot2.dsk SAVE A BOXES.BAS
 
 
 ####
@@ -732,6 +735,16 @@ PLANET_GR.BAS:	planet_gr.bas
 BOXES.BAS:	boxes.bas
 	$(TOKENIZE) < boxes.bas > BOXES.BAS
 
+####
+
+SOLARIS.BAS:	solaris.bas
+	$(TOKENIZE) < solaris.bas > SOLARIS.BAS
+
+####
+
+SOLARIS2.BAS:	solaris2.bas
+	$(TOKENIZE) < solaris2.bas > SOLARIS2.BAS
+
 
 
 ####
diff --git a/basic/appleiibot/solaris.bas b/basic/appleiibot/solaris.bas
new file mode 100644
index 00000000..ee1d2a99
--- /dev/null
+++ b/basic/appleiibot/solaris.bas
@@ -0,0 +1,4 @@
+0HGR2:HCOLOR=5:FORX=0TO278:HPLOTX,83TOX,73+RND(1)*5:POKE16384+RND(1)*4096,1:NEXT
+2A$="*-4:DXz":FORY=83TO191:HCOLOR=6:IFY=2*ASC(MID$(A$,Z+1,1))THENZ=Z+1:HCOLOR=0
+6HPLOT0,YTOX,Y:NEXT
+7Q=Q+0.75:Y=SQR(400-Q*Q):HCOLOR=RND(1)*7:FORT=99-QTO99+Q:HPLOTT,20-YTOT,18+Y:NEXT:GOTO7
diff --git a/basic/appleiibot/solaris2.bas b/basic/appleiibot/solaris2.bas
new file mode 100644
index 00000000..c8968819
--- /dev/null
+++ b/basic/appleiibot/solaris2.bas
@@ -0,0 +1,4 @@
+0HGR:HCOLOR=5:FORX=0TO278:HPLOTX,83TOX,73+RND(1)*5:POKE8192+RND(1)*4096,1:NEXT
+2A$="*-4:Dz":FORY=83TO160:HCOLOR=0:IFY=2*ASC(MID$(A$,Z+1,1))THENZ=Z+1:HCOLOR=6
+3HPLOT0,YTOX,Y:NEXT
+5VTAB21:?,"/\":FORQ=1TO20:Y=SQR(400-Q*Q):HCOLOR=RND(1)*7:FORT=99-QTO99+Q:HPLOTT,20-YTOT,18+Y:NEXTT,Q