diff --git a/appleiibot/Makefile b/appleiibot/Makefile index 2374c96b..a8e510d3 100644 --- a/appleiibot/Makefile +++ b/appleiibot/Makefile @@ -10,7 +10,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \ CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \ 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 + RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \ + FASTAR2.BAS cp empty.dsk appleiibot.dsk $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD $(DOS33) -y appleiibot.dsk SAVE A E2.BAS @@ -46,6 +47,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \ $(DOS33) -y appleiibot.dsk SAVE A STAR.BAS $(DOS33) -y appleiibot.dsk SAVE A HYPER.BAS $(DOS33) -y appleiibot.dsk SAVE A FASTAR.BAS + $(DOS33) -y appleiibot.dsk SAVE A FASTAR2.BAS ### @@ -259,6 +261,11 @@ STAR.BAS: star.bas FASTAR.BAS: fastar.bas $(TOKENIZE) < fastar.bas > FASTAR.BAS +#### + +FASTAR2.BAS: fastar2.bas + $(TOKENIZE) < fastar2.bas > FASTAR2.BAS + #### diff --git a/appleiibot/fastar2.bas b/appleiibot/fastar2.bas new file mode 100644 index 00000000..fcc6ac90 --- /dev/null +++ b/appleiibot/fastar2.bas @@ -0,0 +1,8 @@ +0 DIMX(8,20),Y(8,20) +1FORJ=1TO20:FORI=1TO8:A=X(I,J-1):B=Y(I,J-1):C=Z(I)*.1:X(I,J)=A+(A-140)*C:Y(I,J)=B+(B-96)*C:Z(I)=Z(I)+.1 +2IFX(I,J)<1ORX(I,J)>279ORY(I,J)<1ORY(I,J)>191THENX(I,J)=RND(1)*280:Y(I,J)=RND(1)*192:Z(I)=0 +3NEXTI,J +4HGR:HGR2:HCOLOR=3 +5FORJ=1TO20:POKE230,32+32*P:P=NOTP:POKE49236+P,0:CALL-3086 +6FORI=1TO8:HPLOTX(I,J-1),Y(I,J-1)TOX(I,J),Y(I,J) +8NEXTI,J:GOTO5