From ba0111987c5ccd981104d91c47f794b90b8d8f7f Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sun, 18 Oct 2020 00:07:23 -0400
Subject: [PATCH] appleiibot: add selfie code

---
 appleiibot/Makefile |  9 ++++++++-
 appleiibot/a2.bas   |  4 ++++
 appleiibot/a2.data  | 30 ++++++++++++++++++++++++++++++
 3 files changed, 42 insertions(+), 1 deletion(-)
 create mode 100644 appleiibot/a2.bas
 create mode 100644 appleiibot/a2.data

diff --git a/appleiibot/Makefile b/appleiibot/Makefile
index 4ca09464..613dd644 100644
--- a/appleiibot/Makefile
+++ b/appleiibot/Makefile
@@ -8,7 +8,8 @@ all:	appleiibot.dsk convert_to convert_back convert_qkumba make_boxes
 appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \
 	CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \
-	RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS
+	RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
+	A2.BAS
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
 	$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
@@ -31,6 +32,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN_SMALL.BAS
 	$(DOS33) -y appleiibot.dsk SAVE A LADY.BAS
+	$(DOS33) -y appleiibot.dsk SAVE A A2.BAS
 
 ###
 
@@ -184,5 +186,10 @@ LOTS.BAS:	lots.bas
 
 ####
 
+A2.BAS:	a2.bas
+	$(TOKENIZE) < a2.bas > A2.BAS
+
+####
+
 clean:
 	rm -f *~ *.o *.lst convert_to convert_from convert_qkumba make_boxes convert_back LOAD *.BAS
diff --git a/appleiibot/a2.bas b/appleiibot/a2.bas
new file mode 100644
index 00000000..c33af45c
--- /dev/null
+++ b/appleiibot/a2.bas
@@ -0,0 +1,4 @@
+0REM/ G O(*;!K-#4HI-#6DG-%7@C-(8<?('.CF((2DG(-2??%#4JK%&3LM(47LM(<<(6-)8":(*5$8 +4&7(BD3H(BB5I%<C34%;A56-9A7K :@8@ :@BJ%;@<<%;@FF#???@#??IJ%=>9>%=>CH,77"#
+1DEFFNP(X)=PEEK(2054+I*5+X)-32:GR:POKE49234,0:FORI=0TO29:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I:GETA
+
+
diff --git a/appleiibot/a2.data b/appleiibot/a2.data
new file mode 100644
index 00000000..f4ed4d89
--- /dev/null
+++ b/appleiibot/a2.data
@@ -0,0 +1,30 @@
+15	0	39	0	47	; background
+8	10	27	1	43	; monitor back	
+13	3	20	40	41	; base bottom
+13	3	22	36	39	; base middle
+13	5	23	32	35	; base top
+13	8	24	28	31	; base tip
+8	7	14	35	38	; keyboard
+8	8	18	36	39	; keyboard
+8	13	18	31	31	; logo
+5	3	20	42	43	; base
+5	6	19	44	45	; base
+8	20	23	44	45	; base brown
+8	28	28	8	22	; monitor back
+13	9	24	2	26	; monitor
+8	10	21	4	24	; bezel
+0	11	20	6	23	; screen
+8	34	36	19	40	; drive side
+8	34	34	21	41	; drive side
+5	28	35	19	20	; drive top
+5	27	33	21	22	; drive top
+13	25	33	23	43	; drive outline
+0	26	32	24	32	; drive 1
+0	26	32	34	42	; drive 2
+5	27	32	28	28	; drive 1 slot
+5	27	32	38	38	; drive 2 slot
+3	31	31	31	32	; drive 1 logo
+3	31	31	41	42	; drive 2 logo
+5	29	30	25	30	; drive 1 door
+5	29	30	35	40	; drive 2 door
+12	23	23	2	3	; monitor power