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

appleiibot: add a pumpkin

Browse Source
This commit is contained in:
Vince Weaver 2020-10-16 15:18:07 -04:00
parent 6542992fa9
commit e91e12cad1
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
appleiibot/Makefile
View File

@ -8,7 +8,7 @@ all: appleiibot.dsk convert_to convert_back convert_qkumba
appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \ CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \
CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \ CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \
RASTER4.BAS RASTER5.BAS RASTER4.BAS RASTER5.BAS PUMPKIN.BAS
cp empty.dsk appleiibot.dsk cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y appleiibot.dsk SAVE A E2.BAS $(DOS33) -y appleiibot.dsk SAVE A E2.BAS
@ -28,6 +28,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y appleiibot.dsk SAVE A RASTER4.BAS $(DOS33) -y appleiibot.dsk SAVE A RASTER4.BAS
$(DOS33) -y appleiibot.dsk SAVE A RASTER5.BAS $(DOS33) -y appleiibot.dsk SAVE A RASTER5.BAS
$(DOS33) -y appleiibot.dsk SAVE A LOTS.BAS $(DOS33) -y appleiibot.dsk SAVE A LOTS.BAS
$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN.BAS
### ###
@ -150,13 +151,16 @@ RASTER4.BAS: raster4.bas
RASTER5.BAS: raster5.bas RASTER5.BAS: raster5.bas
$(TOKENIZE) < raster5.bas > RASTER5.BAS $(TOKENIZE) < raster5.bas > RASTER5.BAS
####
PUMPKIN.BAS: pumpkin.bas
$(TOKENIZE) < pumpkin.bas > PUMPKIN.BAS
#### ####
LOTS.BAS: lots.bas LOTS.BAS: lots.bas
$(TOKENIZE) < lots.bas > LOTS.BAS $(TOKENIZE) < lots.bas > LOTS.BAS
#### ####
clean: clean:

2
appleiibot/pumpkin.bas Normal file
View File

@ -0,0 +1,2 @@
0GR:POKE49234,0:FORI=0TO13:READC,A,B,Q,Z:COLOR=C:FORY=QTOZ:HLINA,BATY:NEXTY,I
9DATA 1,0,39,31,47,9,11,27,10,44,9,8,30,13,42,9,6,32,16,37,9,5,33,20,30,4,17,21,4,9,13,11,15,18,22,13,24,28,18,22,13,10,28,31,34,13,12,26,35,36,9,14,15,31,33,9,22,23,34,36,13,19,20,22,27,13,17,22,26,27