From 4a609c71b9537d3857e840f107c3c37a87a108e3 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Sat, 17 Oct 2020 15:21:25 -0400
Subject: [PATCH] appleiibot: add another boxes example

---
 appleiibot/Makefile         |  8 +++++++-
 appleiibot/convert_qkumba.c |  3 +++
 appleiibot/lady.bas         |  3 +++
 appleiibot/lady.data        | 30 ++++++++++++++++++++++++++++++
 4 files changed, 43 insertions(+), 1 deletion(-)
 create mode 100644 appleiibot/lady.bas
 create mode 100644 appleiibot/lady.data

diff --git a/appleiibot/Makefile b/appleiibot/Makefile
index 8ca1f7e5..4ca09464 100644
--- a/appleiibot/Makefile
+++ b/appleiibot/Makefile
@@ -8,7 +8,7 @@ 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
+	RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS
 	cp empty.dsk appleiibot.dsk
 	$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
 	$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
@@ -30,6 +30,7 @@ appleiibot.dsk:	E2.BAS FLAME.BAS FLAME2.BAS \
 	$(DOS33) -y appleiibot.dsk SAVE A LOTS.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
 
 ###
 
@@ -168,6 +169,11 @@ PUMPKIN.BAS:	pumpkin.bas
 
 ####
 
+LADY.BAS:	lady.bas
+	$(TOKENIZE) < lady.bas > LADY.BAS
+
+####
+
 PUMPKIN_SMALL.BAS:	pumpkin_small.bas
 	$(TOKENIZE) < pumpkin_small.bas > PUMPKIN_SMALL.BAS
 
diff --git a/appleiibot/convert_qkumba.c b/appleiibot/convert_qkumba.c
index b46daca1..605d4b12 100644
--- a/appleiibot/convert_qkumba.c
+++ b/appleiibot/convert_qkumba.c
@@ -25,5 +25,8 @@ int main(int argc, char **argv) {
 	printf("2FORI=0TO%d:C%%=(PEEK(%d+I/3)-32)/4^(I-INT(I/3)*3):POKE768+I,C%%+4*(PEEK(2054+I)-32-INT(C%%/4)):NEXT:CALL768\n",
 		filesize,2054+filesize);
 
+// note, peek/poke truncate?
+//2FORI=1013TO1141:C=(PEEK(1843+I/3)-32)/4^(I-INT(I/3)*3):POKEI,C+4*(PEEK(1041+I)-32-INT(C/4)):NEXT:&
+
 	return 0;
 }
diff --git a/appleiibot/lady.bas b/appleiibot/lady.bas
new file mode 100644
index 00000000..d0ebedac
--- /dev/null
+++ b/appleiibot/lady.bas
@@ -0,0 +1,3 @@
+0REM/ G O))>(O),;$')18"# ,<@G -909/-927$/727,6627,0027+,9:?+.7*/+06()+24(C+35@I+-8@A+/6BC),1FG)7<FG)8<CE$35HI,19JK,.:LM/-;NO#,-:;#89:;#24@A#46>?(>>BO(((.L
+1DEFFNP(X)=PEEK(2054+I+X)-32:GR:POKE49234,0:FORI=0TO145STEP5:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I
+
diff --git a/appleiibot/lady.data b/appleiibot/lady.data
new file mode 100644
index 00000000..050ed5be
--- /dev/null
+++ b/appleiibot/lady.data
@@ -0,0 +1,30 @@
+15	0	39	0	47	; background
+9	9	30	8	47	; hair
+9	12	27	4	7	; hair
+9	17	24	2	3	; hair
+0	12	28	32	39	; neck outline
+0	13	25	16	25	; eyebrow
+15	13	25	18	23	; eye white
+4	15	23	18	23	; eye green
+12	22	22	18	23	; right eye
+12	16	16	18	23	; left eye
+11	12	25	26	31	; cheeks
+11	14	23	10	15	; forehead
+11	16	22	8	9	; forehead
+11	18	20	8	35	; long nose
+11	19	21	32	41	; neck
+11	13	24	32	33	; face
+11	15	22	34	35	; lower face
+9	12	17	38	39	; left hair
+9	23	28	38	39	; right hair
+9	24	28	35	37	; right hair
+4	19	21	40	41	; neckline
+12	17	25	42	43	; shirt
+12	14	26	44	45	; shirt
+15	13	27	46	47	; shirt stripe
+3	12	13	26	27	; left cheek
+3	24	25	26	27	; right cheek
+3	18	20	32	33	; mouth bottom
+3	20	22	30	31	; mouth top
+8	30	30	34	47	; hair
+8	8	8	14	44	; hair