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

boxes: turkey 

thanksgiving entry
This commit is contained in:
Vince Weaver 2021-11-25 12:52:53 -05:00
parent 19b2aac527
commit 4b3beb6017
4 changed files with 37 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basic/appleiibot/Makefile
View File

@ -19,8 +19,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
GATOR.BAS CURSOR.BAS STARGATE.BAS TUNNEL.BAS STARFIELD.BAS \
STAROOPS.BAS HGRSTARFIELD.BAS COOL_BOT.BAS WEB.BAS ORB.BAS \
FIREWORKS.BAS THINKING.BAS ARCS.BAS WIRE_HGR.BAS STATIC.BAS \
OVAL.BAS OVAL_HGR.BAS MOVING.BAS THICK_SINE.BAS
OVAL.BAS OVAL_HGR.BAS MOVING.BAS THICK_SINE.BAS TURKEY.BAS
# cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@ -103,6 +102,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A OVAL_HGR.BAS
$(DOS33) -y appleiibot.dsk SAVE A MOVING.BAS
$(DOS33) -y appleiibot.dsk SAVE A THICK_SINE.BAS
$(DOS33) -y appleiibot.dsk SAVE A TURKEY.BAS
####
@ -247,6 +247,11 @@ SINE.BAS: sine.bas
####
TURKEY.BAS: turkey.bas
$(TOKENIZE) < turkey.bas > TURKEY.BAS
####
XMAS.BAS: xmas.bas
$(TOKENIZE) < xmas.bas > XMAS.BAS

2
basic/appleiibot/turkey.bas Normal file
View File

@ -0,0 +1,2 @@
0REM/ G O-(>-?!$C<@)%B5:)*-'.),/-4):=&.)8;-4!07%,(16*0(3414(,;5G(*=7D(()EG(>?EG)//GL)88GL).0LL)79LL 25!' 07()/25*, 25,,(34*,)34.0)25..(25&'-45&'
1DEFFNP(X)=PEEK(2054+I*5+X)-32:GR:POKE49234,0:FORI=0TO27:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I:GETA

28
basic/appleiibot/turkey.data Normal file
View File

@ -0,0 +1,28 @@
15 0 39 0 47 ; background ; C x1 x2 y1 y2
13 8 30 13 31 ; yellow feathers
1 4 35 28 32 ; red feathers
9 5 34 21 26 ; orange feathers
9 10 13 7 14 ; orange upper left
9 12 15 13 20 ; orange lower left
9 26 29 6 14 ; orange upper right
9 24 27 13 20 ; orange lower right
1 16 23 5 12 ; upper red
8 17 22 10 16 ; head
8 19 20 17 20 ; neck
8 12 27 21 39 ; body 1
8 10 29 23 36 ; body 2
8 8 9 37 39 ; left wing
8 30 31 37 39 ; right wing
9 15 15 39 44 ; left leg
9 24 24 39 44 ; right leg
9 14 16 44 44 ; left foot
9 23 25 44 44 ; right foot
0 18 21 1 7 ; hat
0 16 23 8 9 ; brim
15 18 21 10 12 ; eyes
0 18 21 12 12 ; eyes
8 19 20 10 12 ; eye break
9 19 20 14 16 ; beak
9 18 21 14 14 ; beak
8 18 21 6 7 ; hat brim
13 20 21 6 7 ; hat buckle

BIN
graphics/gr/boxes/empty.dsk
View File

Binary file not shown.