From b3f57f2a2efd697926361f120fffd5dd34516c98 Mon Sep 17 00:00:00 2001 From: Vince Weaver 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 +