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

floppy: more mousetext

Browse Source
This commit is contained in:
Vince Weaver 2021-03-01 22:45:46 -05:00
parent 20222ea913
commit 568348087c
4 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
textmode/mousetext/Makefile
View File

@ -3,14 +3,16 @@ include ../../Makefile.inc
DOS33 = ../../utils/dos33fs-utils/dos33
TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
LINKERSCRIPTS = ../../linker_scripts
EMPTYDISK = ../../empty_disk/empty.dsk
all: mousetext.dsk
mousetext.dsk: HELLO MT.BAS SW.BAS
cp empty.dsk mousetext.dsk
mousetext.dsk: HELLO MT.BAS SW.BAS FLOPPY.BAS
cp $(EMPTYDISK) 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
$(DOS33) -y mousetext.dsk SAVE A FLOPPY.BAS
###
@ -29,5 +31,10 @@ SW.BAS: sw.bas
###
FLOPPY.BAS: floppy.bas
$(TOKENIZE) < floppy.bas > FLOPPY.BAS
###
clean:
rm -f *~ *.o *.lst HELLO MT.BAS SW.BAS
rm -f *~ *.o *.lst HELLO MT.BAS SW.BAS FLOPPY.BAS

BIN
textmode/mousetext/empty.dsk
View File

Binary file not shown.

7
textmode/mousetext/floppy.bas Normal file
View File

@ -0,0 +1,7 @@
1?CHR$(4)"PR#3"
2?CHR$(27)
3N$=CHR$(14):I$=CHR$(15):B$=CHR$(8):F$=CHR$(10)+B$+B$+B$+B$+B$+B$
4GOSUB8:?"_____ "F$B$I$"ZA----_"F$B$I$"Z"N$" o "I$"S_"F$B$I$"Z"N$"__|__"I$"_"N$
6GOSUB8:?N$"____ "F$I$"Z"N$" =='"I$"_"F$I$"Z"N$"_"I$" \T_"N$
7GOTO4
8VTAB1+RND(1)*20:HTABRND(1)*70:RETURN

10
textmode/mousetext/floppy40.bas Normal file
View File

@ -0,0 +1,10 @@
5 PRINT CHR$(4)"PR#3"
10 PRINT CHR$(27);CHR$(17)
20 PRINT " ___"
30 INVERSE:?"ZA--_"
40 INVERSE:?"Z";:NORMAL:?" o ";:INVERSE:?"_"
50 ?"Z";:NORMAL:?"_|_";:INVERSE:?"_":NORMAL
100 ?" ___"
110 INVERSE:?"Z";:NORMAL:?" '";:INVERSE:?"_"
120 INVERSE:?"ZN\T_":NORMAL