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

appleiibot: add another

This commit is contained in:
Vince Weaver 2020-11-24 21:50:43 -05:00
parent 778031cb8d
commit 01bec0b06f
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
appleiibot/Makefile
View File

@ -11,7 +11,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
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 \
FASTAR2.BAS FASTAR2 BIN.BAS
FASTAR2.BAS FASTAR2 BIN.BAS FALLING.BAS
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2
@ -50,6 +50,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y appleiibot.dsk SAVE A FASTAR.BAS
$(DOS33) -y appleiibot.dsk SAVE A FASTAR2.BAS
$(DOS33) -y appleiibot.dsk SAVE A BIN.BAS
$(DOS33) -y appleiibot.dsk SAVE A FALLING.BAS
###
@ -124,6 +125,12 @@ NYAN.BAS: nyan.bas
####
FALLING.BAS: falling.bas
$(TOKENIZE) < falling.bas > FALLING.BAS
####
E2.BAS: entropy_small.bas
$(TOKENIZE) < entropy_small.bas > E2.BAS

7
appleiibot/falling.bas Normal file
View File

@ -0,0 +1,7 @@
1GR:DIMR(16):FORI=6TO15:READR(I):NEXT
2C(O)=RND(1)*15+1:X(O)=RND(1)*40:Y(O)=INT(RND(1)*40)
3FORI=0TO7:N=C(I):IF(Y(I)>30ANDY(I)<36)ORY(I)=20ORY(I)=24ORY(I)=25THENN=R(N)
6COLOR=N:IFY(I)<40THENPLOTX(I),Y(I)
7Y(I)=Y(I)+1:NEXT
8O=O+1:IFO=8THENO=0
9GOTO2:DATA2,2,0,8,0,3,4,8,4,5