From 430f5dad3ab80f1d921f423878dc1b254bdfd396 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Mon, 28 Feb 2022 16:29:40 -0500
Subject: [PATCH] appleiibot: add split

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

diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile
index 7d7fb753..2ea9636a 100644
--- a/basic/appleiibot/Makefile
+++ b/basic/appleiibot/Makefile
@@ -21,7 +21,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	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 SNOWY.BAS EDGAR.BAS OOPS4.BAS OOPS3.BAS \
-	HORROR.BAS DIAMOND.BAS LEMM.BAS OOPS.BAS
+	HORROR.BAS DIAMOND.BAS LEMM.BAS OOPS.BAS SPLIT.BAS
 #	cp $(EMPTY_DISK)/empty.dsk  appleiibot.dsk
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@@ -115,6 +115,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A DIAMOND.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A LEMM.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A OOPS.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A SPLIT.BAS
 
 ####
 
@@ -654,5 +655,10 @@ LEMM.BAS:	lemm.bas
 
 ####
 
+SPLIT.BAS:	split.bas
+	$(TOKENIZE) < split.bas > SPLIT.BAS
+
+####
+
 clean:
 	rm -f *~ *.o *.lst convert_to convert_from convert_qkumba convert_vmw make_boxes convert_back convert_tgreene LOAD *.BAS make_hgr_boxes
diff --git a/basic/appleiibot/split.bas b/basic/appleiibot/split.bas
new file mode 100644
index 00000000..be1e1411
--- /dev/null
+++ b/basic/appleiibot/split.bas
@@ -0,0 +1,2 @@
+1FORI=0TO115:POKE900+I,4*PEEK(2125+I)-204+(PEEK(2241+I/3)-35)/4^(I-INT(I/3)*3):NEXT
+2&"/@qP:U];LdZ>O=]3;=oe7f9kg<Ga[3W2]?8Hn[3]V[Z9AjZ3Z8[C9Ak]9W<q]9c4q>Hc>Gc;j3>Hc>Gc;j3>@amP>[:egrUgmEd2\3QF[2egrUgqKFQ3SQ#W8#+FF+3S+$F<0C8S(/%$/%#/FO-$3*K-$#/