Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

text: boxes

This commit is contained in:
Vince Weaver 2021-04-26 14:21:19 -04:00
parent b3f57f2a2e
commit a61feb848f
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
textmode/textscroll/Makefile
View File

@ -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

10
textmode/textscroll/boxes.bas Normal file
View File

@ -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