From e91e12cad1142510f23f9c9c9b300a8395572ac7 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Fri, 16 Oct 2020 15:18:07 -0400 Subject: [PATCH] appleiibot: add a pumpkin --- appleiibot/Makefile | 8 ++++++-- appleiibot/pumpkin.bas | 2 ++ 2 files changed, 8 insertions(+), 2 deletions(-) create mode 100644 appleiibot/pumpkin.bas diff --git a/appleiibot/Makefile b/appleiibot/Makefile index 77f5f61a..50a6bb1f 100644 --- a/appleiibot/Makefile +++ b/appleiibot/Makefile @@ -8,7 +8,7 @@ all: appleiibot.dsk convert_to convert_back convert_qkumba appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.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 \ - RASTER4.BAS RASTER5.BAS + RASTER4.BAS RASTER5.BAS PUMPKIN.BAS cp empty.dsk appleiibot.dsk $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD $(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 RASTER5.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 $(TOKENIZE) < raster5.bas > RASTER5.BAS +#### + +PUMPKIN.BAS: pumpkin.bas + $(TOKENIZE) < pumpkin.bas > PUMPKIN.BAS #### LOTS.BAS: lots.bas $(TOKENIZE) < lots.bas > LOTS.BAS - #### clean: diff --git a/appleiibot/pumpkin.bas b/appleiibot/pumpkin.bas new file mode 100644 index 00000000..886da10b --- /dev/null +++ b/appleiibot/pumpkin.bas @@ -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