From b3f57f2a2efd697926361f120fffd5dd34516c98 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Mon, 26 Apr 2021 13:40:59 -0400
Subject: [PATCH] text: messing with windows

---
 textmode/textscroll/Makefile   | 16 +++++++++++++++-
 textmode/textscroll/matrix.bas |  8 ++++++++
 textmode/textscroll/scroll.bas | 10 ++++++++++
 3 files changed, 33 insertions(+), 1 deletion(-)
 create mode 100644 textmode/textscroll/matrix.bas
 create mode 100644 textmode/textscroll/scroll.bas

diff --git a/textmode/textscroll/Makefile b/textmode/textscroll/Makefile
index 0420df00..ab14dd59 100644
--- a/textmode/textscroll/Makefile
+++ b/textmode/textscroll/Makefile
@@ -7,15 +7,19 @@ EMPTYDISK = ../../empty_disk/empty.dsk
 
 all:	textscroll.dsk
 
-textscroll.dsk:	HELLO MOVE COMET MOVE_BOT SINE SINE_BOT
+textscroll.dsk:	HELLO MOVE COMET MOVE_BOT SINE SINE_BOT SCROLL.BAS MATRIX.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 MATRIX.BAS
 	$(DOS33) -y textscroll.dsk BSAVE -a 0xC00 MOVE
 	$(DOS33) -y textscroll.dsk BSAVE -a 0x372 MOVE_BOT
 	$(DOS33) -y textscroll.dsk BSAVE -a 0xC00 COMET
 	$(DOS33) -y textscroll.dsk BSAVE -a 0xC00 SINE
 	$(DOS33) -y textscroll.dsk BSAVE -a 0x372 SINE_BOT
 
+
+
 ###
 
 HELLO:	hello.bas
@@ -23,6 +27,16 @@ HELLO:	hello.bas
 
 ###
 
+SCROLL.BAS:	scroll.bas
+	$(TOKENIZE) < scroll.bas > SCROLL.BAS
+
+###
+
+MATRIX.BAS:	matrix.bas
+	$(TOKENIZE) < matrix.bas > MATRIX.BAS
+
+###
+
 MOVE: move.o
 	ld65 -o MOVE move.o -C $(LINKERSCRIPTS)/apple2_c00.inc
 
diff --git a/textmode/textscroll/matrix.bas b/textmode/textscroll/matrix.bas
new file mode 100644
index 00000000..f5ac4ba0
--- /dev/null
+++ b/textmode/textscroll/matrix.bas
@@ -0,0 +1,8 @@
+0 T=INT(RND(1)*20)+1
+1 B=T+8: IF B>23 THEN B=23
+2 L=INT(RND(1)*35)
+3 POKE 32,L:POKE 33,1:POKE 34,T:POKE 35,B
+4 VTAB T
+5 LIST 7
+6 GOTO 0
+7 "-!/\*+^%
diff --git a/textmode/textscroll/scroll.bas b/textmode/textscroll/scroll.bas
new file mode 100644
index 00000000..c3a9f42e
--- /dev/null
+++ b/textmode/textscroll/scroll.bas
@@ -0,0 +1,10 @@
+10 T=INT(RND(1)*24)
+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>39 THEN W=38-L
+15 POKE 32,L:POKE 33,W:POKE 34,T:POKE 35,B
+17 Q=INT(RND(1)*2):X=PEEK(49232+Q) 
+19 HOME
+20 LIST
+30 GOTO 10
+