From 2842065836f8bb9e01414436c6e5a9e6f786e09f Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sat, 9 Dec 2023 12:50:51 -0500
Subject: [PATCH] basicbot: add twister

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

diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile
index f3e8d053..c1c66e6a 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 XTREE.BAS CHEAT.BAS
+	PUMPKIN2.BAS TWITTER.BAS XTREE.BAS CHEAT.BAS TWISTER.BAS
 	cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk  appleiibot.dsk
 #	cp empty.dsk appleiibot.dsk
 #	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@@ -158,6 +158,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A TWITTER.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A XTREE.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A CHEAT.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A TWISTER.BAS
 
 
 ####
@@ -670,6 +671,11 @@ CHEAT.BAS:	cheat.bas
 
 ####
 
+TWISTER.BAS:	twister.bas
+	$(TOKENIZE) < twister.bas > TWISTER.BAS
+
+####
+
 OOPS4.BAS:	oops4.bas
 	$(TOKENIZE) < oops4.bas > OOPS4.BAS
 
diff --git a/basic/appleiibot/twister.bas b/basic/appleiibot/twister.bas
new file mode 100644
index 00000000..f7655536
--- /dev/null
+++ b/basic/appleiibot/twister.bas
@@ -0,0 +1,5 @@
+0DIMA(2E3),B(2E3):GR:P=3.14:W=20
+1FORJ=0TO1280:E=E+.1:FORY=0TOW:IFE<6THENF=Y/(15+COS(E)*12)-P+SIN(E)*P:A(J)=8*COS(F):B(J)=8*SIN(F)
+5Q=A(J):R=B(J):COLOR=0:HLIN9,27ATY:COLOR=1:M=-Q:N=-R:IFQ<RTHENM=Q:N=R
+7HLINW+M,W+NATY:COLOR=2:IFR<-QTHENR=-R:Q=-Q
+8HLINW-R,W+QATY:J=J+1:NEXTY,J:GOTO1