From a891b33bb9241fd91e491c266fdb544536b4f6a2 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Fri, 9 Feb 2024 21:23:46 -0500
Subject: [PATCH] lovebyte: update last bits

---
 .../ebox.s => box_entropy_64/box_entropy.s}   |  5 +++-
 demos/lovebyte2024/box_entropy_64/file_id.diz | 23 ++++++++++++++++++
 demos/lovebyte2024/box_entropy_64/hello.bas   | 11 +++++++++
 demos/lovebyte2024/box_entropy_64/shape.table | 24 +++++++++++++++++++
 4 files changed, 62 insertions(+), 1 deletion(-)
 rename demos/lovebyte2024/{en_16/ebox.s => box_entropy_64/box_entropy.s} (97%)
 create mode 100644 demos/lovebyte2024/box_entropy_64/file_id.diz
 create mode 100644 demos/lovebyte2024/box_entropy_64/hello.bas
 create mode 100644 demos/lovebyte2024/box_entropy_64/shape.table

diff --git a/demos/lovebyte2024/en_16/ebox.s b/demos/lovebyte2024/box_entropy_64/box_entropy.s
similarity index 97%
rename from demos/lovebyte2024/en_16/ebox.s
rename to demos/lovebyte2024/box_entropy_64/box_entropy.s
index 3245178a..082b795c 100644
--- a/demos/lovebyte2024/en_16/ebox.s
+++ b/demos/lovebyte2024/box_entropy_64/box_entropy.s
@@ -1,7 +1,7 @@
 ; Tiny Entropy Boxes
 ; by Vince `Deater` Weaver / dSr
 
-; based on:
+; roughly based on:
 
 ; Entropy
 ; by Dave McKellar of Toronto
@@ -117,6 +117,9 @@ shape_table:		;      C   B   A
 ;	.byte 54	; $36  00 110 110	DN  DN  nop
 ;	.byte 63	; $3F  00 111 111	LT  LT  nop
 ;	.byte 0
+
+; this is half the size but we have to scale *2
+
 	.byte 58
 	.byte 36
 	.byte 45
diff --git a/demos/lovebyte2024/box_entropy_64/file_id.diz b/demos/lovebyte2024/box_entropy_64/file_id.diz
new file mode 100644
index 00000000..9217798b
--- /dev/null
+++ b/demos/lovebyte2024/box_entropy_64/file_id.diz
@@ -0,0 +1,23 @@
+-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-
+box_entropy 64
+--------------------------------------
+Hi-res Xdraw Pattern
+by Deater / dSr
+
+I attempted this before as a 64-byter
+but managed to fit a more complete
+version this time.
+
+roughly based on:
+
+; Entropy
+; by Dave McKellar of Toronto
+; Two-line BASIC program
+; Found on Beagle Brother's Apple Mechanic Disk
+
+XORs a box pattern, but randomly doubles the
+size of the box.  It's hard to generate good
+random numbers on 6502 in 64 bytes.
+
+Lovebyte 2024
+--------------------------------------
diff --git a/demos/lovebyte2024/box_entropy_64/hello.bas b/demos/lovebyte2024/box_entropy_64/hello.bas
new file mode 100644
index 00000000..07b59004
--- /dev/null
+++ b/demos/lovebyte2024/box_entropy_64/hello.bas
@@ -0,0 +1,11 @@
+5 HOME
+10 PRINT "          -= BOX_ENTROPY 64 =-"
+11 PRINT "            ''''''''''''''''"
+12 PRINT "           FOR LOVEBYTE 2024"
+15 PRINT "            BY DEATER / DSR"
+17 PRINT "    BASED ON 2-LINER BY D. MCKELLAR"
+20 PRINT CHR$(4)"CATALOG"
+25 PRINT:PRINT "PRESS ANY KEY TO 'BRUN BOX_ENTROPY'"
+30 GET A$
+35 PRINT
+40 PRINT CHR$(4)"BRUN BOX_ENTROPY"
diff --git a/demos/lovebyte2024/box_entropy_64/shape.table b/demos/lovebyte2024/box_entropy_64/shape.table
new file mode 100644
index 00000000..07c81c07
--- /dev/null
+++ b/demos/lovebyte2024/box_entropy_64/shape.table
@@ -0,0 +1,24 @@
+# box
+2
+START
+NDN NDN
+LT  LT
+UP  UP 
+UP  UP 
+RT  RT 
+RT  RT 
+DN  DN 
+DN  DN 
+LT  LT
+STOP
+START
+NDN
+LT
+UP
+UP
+RT
+RT
+DN
+DN
+LT
+STOP