Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-03 14:05:58 +00:00
Code Issues Projects Releases Wiki Activity

appleiibot: faster star

Browse Source
This commit is contained in:
Vince Weaver 2020-11-09 00:33:20 -05:00
parent 8ca7b3f3fd
commit 1614d35d1e
2 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
appleiibot/Makefile
View File

@ -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
####

8
appleiibot/fastar2.bas Normal file
View File

@ -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