From cbc2c264885d905a0717ccc965f3be10c1453b9d Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sun, 7 Feb 2021 22:08:43 -0500
Subject: [PATCH] combo: both Apple II and GWBASIC

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

diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile
index f51cba15..e1abcb20 100644
--- a/basic/appleiibot/Makefile
+++ b/basic/appleiibot/Makefile
@@ -12,7 +12,8 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
 	RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
 	FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \
-	C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS
+	C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS \
+	COMBO.BAS
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
 	$(DOS33) -y appleiibot.dsk SAVE A HELLO
@@ -63,6 +64,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS HELLO \
 	$(DOS33) -y appleiibot.dsk SAVE A DROPS.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A RR.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A RR_HGR.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A COMBO.BAS
 
 
 ####
@@ -373,6 +375,11 @@ RR.BAS:	rr.bas
 RR_HGR.BAS:	rr_hgr.bas
 	$(TOKENIZE) < rr_hgr.bas > RR_HGR.BAS
 
+####
+
+COMBO.BAS:	combo.bas
+	$(TOKENIZE) < combo.bas > COMBO.BAS
+
 
 ####
 
diff --git a/basic/appleiibot/combo.bas b/basic/appleiibot/combo.bas
new file mode 100644
index 00000000..f5af07c9
--- /dev/null
+++ b/basic/appleiibot/combo.bas
@@ -0,0 +1,3 @@
+0 A$="'2aBW'271A'8?8A&.1DU&RaBS&bkHW$2ORS% -FS":DEF FNP(X)=ASC(MID$(A$,I*5+X))
+2 IF PEEK(0)=76 THEN HGR:FORI=0TO7:HCOLOR=FNP(1)-32:FORY=FNP(4)TOFNP(5):HPLOTFNP(2),YTOFNP(3),Y:NEXTY,I:END
+5 SCREEN 1:FOR I=0 TO 7:LINE (FNP(2),FNP(4))-(FNP(3),FNP(5)),3 AND(216\4^(FNP(1)-36)),BF:NEXT