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

text: messing with windows

This commit is contained in:
Vince Weaver 2021-04-26 13:40:59 -04:00
parent f148cc2f46
commit b3f57f2a2e
3 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
textmode/textscroll/Makefile
View File

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

8
textmode/textscroll/matrix.bas Normal file
View File

@ -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 "-!/\*+^%

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

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