mousetext

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

textmode/mousetext/hello.bas

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

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
+

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