diff --git a/textmode/mousetext/Makefile b/textmode/mousetext/Makefile new file mode 100644 index 00000000..f44c1fb2 --- /dev/null +++ b/textmode/mousetext/Makefile @@ -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 diff --git a/textmode/mousetext/empty.dsk b/textmode/mousetext/empty.dsk new file mode 100644 index 00000000..b34eb519 Binary files /dev/null and b/textmode/mousetext/empty.dsk differ diff --git a/textmode/mousetext/hello.bas b/textmode/mousetext/hello.bas new file mode 100644 index 00000000..133a44bb --- /dev/null +++ b/textmode/mousetext/hello.bas @@ -0,0 +1,2 @@ +5 HOME +10 PRINT CHR$(4);"CATALOG" diff --git a/textmode/mousetext/mt.bas b/textmode/mousetext/mt.bas new file mode 100644 index 00000000..ad97b6a1 --- /dev/null +++ b/textmode/mousetext/mt.bas @@ -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 + diff --git a/textmode/mousetext/sw.bas b/textmode/mousetext/sw.bas new file mode 100644 index 00000000..b309ff34 --- /dev/null +++ b/textmode/mousetext/sw.bas @@ -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 + + +