Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-12 15:30:55 +00:00
Code Issues Projects Releases Wiki Activity

mousetext

Browse Source
This commit is contained in:
Vince Weaver 2021-02-21 00:37:15 -05:00
parent 3be6fd4d05
commit f7a222268f
5 changed files with 50 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
textmode/mousetext/Makefile Normal file
View File

@ -0,0 +1,33 @@
include ../../Makefile.inc
DOS33 = ../../utils/dos33fs-utils/dos33
TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
LINKERSCRIPTS = ../../linker_scripts
all: mousetext.dsk
mousetext.dsk: HELLO MT.BAS SW.BAS
cp empty.dsk mousetext.dsk
$(DOS33) -y mousetext.dsk SAVE A HELLO
$(DOS33) -y mousetext.dsk SAVE A MT.BAS
$(DOS33) -y mousetext.dsk SAVE A SW.BAS
###
HELLO: hello.bas
$(TOKENIZE) < hello.bas > HELLO
###
MT.BAS: mt.bas
$(TOKENIZE) < mt.bas > MT.BAS
###
SW.BAS: sw.bas
$(TOKENIZE) < sw.bas > SW.BAS
###
clean:
rm -f *~ *.o *.lst HELLO MT.BAS SW.BAS

BIN
textmode/mousetext/empty.dsk Normal file
View File

Binary file not shown.

2
textmode/mousetext/hello.bas Normal file
View File

@ -0,0 +1,2 @@
5 HOME
10 PRINT CHR$(4);"CATALOG"

6
textmode/mousetext/mt.bas Normal file
View File

@ -0,0 +1,6 @@
5 HOME
10 POKE 49167,0
20 FOR A=0 TO 15:POKE 1024+A,64+A:NEXT A
30 FOR A=0 TO 15:POKE 1280+A,80+A:NEXT A
40 PRINT:PRINT

9
textmode/mousetext/sw.bas Normal file
View File

@ -0,0 +1,9 @@
1HOME:POKE49167,0
2FORX=0TO64:POKE1024+RND(1)*999,174:NEXT
3FORI=0TO1:COLOR=6-I:HLIN8,10AT6+I:HLIN7,11AT8+I:HLIN6,12AT10+I:HLIN8,10AT16+I:HLIN7,11AT14+I:HLIN6,12AT12+I:NEXT:VTAB6:HTAB11:?"()"
4FORX=12TO36:POKE1064+X,90:POKE1065+X,91:POKE1066+X,95
5FORI=1TO200:NEXT:VTAB9:HTABX+1:?" ":NEXT
6GOTO4