appleiibot: add xmas demo

This commit is contained in:
Vince Weaver 2020-12-17 21:48:30 -05:00
parent b3403c67e0
commit be761cd810
3 changed files with 37 additions and 1 deletions

View File

@ -11,7 +11,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
FASTAR2.BAS FASTAR2 BIN.BAS FALLING.BAS SNOW.BAS
FASTAR2.BAS FASTAR2 BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2
@ -52,6 +52,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y appleiibot.dsk SAVE A BIN.BAS
$(DOS33) -y appleiibot.dsk SAVE A FALLING.BAS
$(DOS33) -y appleiibot.dsk SAVE A SNOW.BAS
$(DOS33) -y appleiibot.dsk SAVE A XMAS.BAS
###
@ -134,6 +135,11 @@ FALLING.BAS: falling.bas
SNOW.BAS: snow.bas
$(TOKENIZE) < snow.bas > SNOW.BAS
####
XMAS.BAS: xmas.bas
$(TOKENIZE) < xmas.bas > XMAS.BAS
####

2
appleiibot/xmas.bas Normal file
View File

@ -0,0 +1,2 @@
0REM- G =( G>G(!) 4 "( )/"(,2!;G,> >G1>(@F;=/:G*+$/1 G$-3%G$,4/G$*67G'-0+,'13-.',/78'039:'46;<'*.DE'/2FG!./')!2313!+,?A!45BD-BD6:)CC8: BC66-BC66
1GR:?"MERRY XMAS":DEFFNP(X)=PEEK(2054+I*5+X)-32:FORI=0TO28:I=I-2*(I>27):COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I

28
appleiibot/xmas.data Normal file
View File

@ -0,0 +1,28 @@
13 0 39 0 29 ; wall
8 0 39 30 39 ; monitor back
8 1 9 0 20 ; window
0 2 8 0 9 ; upper
15 2 8 12 18 ; bottom snow
1 27 39 12 30 ; fireplace
0 30 39 17 30 ; hearth
8 32 38 27 29 ; wood
15 26 39 10 11 ; mantle
4 15 17 0 39 ; tree center
4 13 19 5 39 ; tree middle
4 12 20 15 39 ; tree wider
4 10 22 23 39 ; tree wide
7 13 16 11 12 ; garland top
7 17 19 13 14 ; garland top
7 12 15 23 24 ; garland middle
7 16 19 25 26 ; garland middle
7 20 22 27 28 ; garland middle
7 10 14 36 37 ; garland bottom
7 15 18 38 39 ; garland bottom
1 14 15 7 9 ; ball1
1 18 19 17 19 ; ball2
1 11 12 31 33 ; ball3
1 20 21 34 36 ; ball4
13 34 36 22 26 ; fire
9 35 35 24 26 ; fire
0 34 35 22 22 ; flicker
13 34 35 22 22 ; flicker