Apple-2-SW
/
dos33fsprogs
mirror of https://github.com/deater/dos33fsprogs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

appleiibot: triangle christmas tree

This commit is contained in:
Vince Weaver 2023-01-02 02:22:58 -05:00
parent 6f534c297a
commit 99f0657237
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basic/appleiibot/Makefile
View File

@ -29,7 +29,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.BAS \
LARGE_XOR.BAS PAR_XOR.BAS PAR_HGR.BAS SIER_XOR.BAS PATTERN_LOGO.BAS \
GEARS.BAS DSR_LORES.BAS A2_LORES.BAS MAGIC_CUBE.BAS MOON.BAS \
PUMPKIN2.BAS TWITTER.BAS
PUMPKIN2.BAS TWITTER.BAS XTREE.BAS
cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
# cp empty.dsk appleiibot.dsk
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@ -156,6 +156,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A MOON.BAS
$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN2.BAS
$(DOS33) -y appleiibot.dsk SAVE A TWITTER.BAS
$(DOS33) -y appleiibot.dsk SAVE A XTREE.BAS
####
@ -863,6 +864,12 @@ PUMPKIN2.BAS: pumpkin2.bas
TWITTER.BAS: twitter.bas
$(TOKENIZE) < twitter.bas > TWITTER.BAS
####
XTREE.BAS: xtree.bas
$(TOKENIZE) < xtree.bas > XTREE.BAS
####

4
basic/appleiibot/xtree.bas Normal file
View File

@ -0,0 +1,4 @@
0HGR:C=140:HCOLOR=5:H=15:W=14:Y=0:GOSUB8:H=-15:Y=20:GOSUB8:H=100:W=10:Y=52:GOSUB8
2HCOLOR=1:H=50:W=50:Y=15:GOSUB8:W=70:Y=50:GOSUB8:W=85:Y=85:GOSUB8
3HCOLOR=2:H=10:W=10:Y=100:C=80:GOSUB8:C=200:GOSUB8:Y=66:C=95:GOSUB8:C=185:GOSUB8:END
8FORX=C-WTOC+W:HPLOTC,YTOX,Y+H:NEXT:RETURN