mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-02 04:41:31 +00:00
text: messing with windows
This commit is contained in:
parent
f148cc2f46
commit
b3f57f2a2e
|
@ -7,15 +7,19 @@ EMPTYDISK = ../../empty_disk/empty.dsk
|
||||||
|
|
||||||
all: textscroll.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
|
cp $(EMPTYDISK) textscroll.dsk
|
||||||
$(DOS33) -y textscroll.dsk SAVE A HELLO
|
$(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 0xC00 MOVE
|
||||||
$(DOS33) -y textscroll.dsk BSAVE -a 0x372 MOVE_BOT
|
$(DOS33) -y textscroll.dsk BSAVE -a 0x372 MOVE_BOT
|
||||||
$(DOS33) -y textscroll.dsk BSAVE -a 0xC00 COMET
|
$(DOS33) -y textscroll.dsk BSAVE -a 0xC00 COMET
|
||||||
$(DOS33) -y textscroll.dsk BSAVE -a 0xC00 SINE
|
$(DOS33) -y textscroll.dsk BSAVE -a 0xC00 SINE
|
||||||
$(DOS33) -y textscroll.dsk BSAVE -a 0x372 SINE_BOT
|
$(DOS33) -y textscroll.dsk BSAVE -a 0x372 SINE_BOT
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
||||||
HELLO: hello.bas
|
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
|
MOVE: move.o
|
||||||
ld65 -o MOVE move.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
ld65 -o MOVE move.o -C $(LINKERSCRIPTS)/apple2_c00.inc
|
||||||
|
|
||||||
|
|
8
textmode/textscroll/matrix.bas
Normal file
8
textmode/textscroll/matrix.bas
Normal 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
10
textmode/textscroll/scroll.bas
Normal 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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user