From a61feb848ff4a6000460093f44ae5cb8e39b86ed Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Mon, 26 Apr 2021 14:21:19 -0400
Subject: [PATCH] text: boxes

---
 textmode/textscroll/Makefile  |  9 ++++++++-
 textmode/textscroll/boxes.bas | 10 ++++++++++
 2 files changed, 18 insertions(+), 1 deletion(-)
 create mode 100644 textmode/textscroll/boxes.bas

diff --git a/textmode/textscroll/Makefile b/textmode/textscroll/Makefile
index ab14dd59..7e37e835 100644
--- a/textmode/textscroll/Makefile
+++ b/textmode/textscroll/Makefile
@@ -7,10 +7,11 @@ EMPTYDISK = ../../empty_disk/empty.dsk
 
 all:	textscroll.dsk
 
-textscroll.dsk:	HELLO MOVE COMET MOVE_BOT SINE SINE_BOT SCROLL.BAS MATRIX.BAS
+textscroll.dsk:	HELLO MOVE COMET MOVE_BOT SINE SINE_BOT SCROLL.BAS MATRIX.BAS BOXES.BAS
 	cp $(EMPTYDISK) textscroll.dsk
 	$(DOS33) -y textscroll.dsk SAVE A HELLO
 	$(DOS33) -y textscroll.dsk SAVE A SCROLL.BAS
+	$(DOS33) -y textscroll.dsk SAVE A BOXES.BAS
 	$(DOS33) -y textscroll.dsk SAVE A MATRIX.BAS
 	$(DOS33) -y textscroll.dsk BSAVE -a 0xC00 MOVE
 	$(DOS33) -y textscroll.dsk BSAVE -a 0x372 MOVE_BOT
@@ -32,6 +33,12 @@ SCROLL.BAS:	scroll.bas
 
 ###
 
+BOXES.BAS:	boxes.bas
+	$(TOKENIZE) < boxes.bas > BOXES.BAS
+
+
+###
+
 MATRIX.BAS:	matrix.bas
 	$(TOKENIZE) < matrix.bas > MATRIX.BAS
 
diff --git a/textmode/textscroll/boxes.bas b/textmode/textscroll/boxes.bas
new file mode 100644
index 00000000..6ddc253a
--- /dev/null
+++ b/textmode/textscroll/boxes.bas
@@ -0,0 +1,10 @@
+5 GR:POKE 49234,0
+10 T=INT(RND(1)*20)
+11 B=T+INT(RND(1)*15)+1: IF B>23 THEN B=23
+12 L=INT(RND(1)*35)
+13 W=INT(RND(1)*30)+1:IF W+L>38 THEN W=39-L
+15 POKE 32,L:POKE 33,W:POKE 34,T:POKE 35,B
+17 C=INT(RND(1)*96)+32
+18 HOME
+20 FOR I=1 TO ((B-T+1)*W)-1:?CHR$(C);:NEXT
+30 GOTO 10