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

basic: planet in 280 bytes 

this is a stripped down implementation of a much cooler BBC Basic
program by Kweepa
This commit is contained in:
Vince Weaver 2022-07-09 01:21:22 -04:00
parent 1099a50b13
commit f974330b0d
2 changed files with 20 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
basic/appleiibot/Makefile
View File

@ -23,7 +23,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
FLAME_HGR.BAS RECT.BAS SNOWY.BAS EDGAR.BAS OOPS4.BAS OOPS3.BAS \
HORROR.BAS DIAMOND.BAS LEMM.BAS OOPS.BAS SPLIT.BAS PARTICLE.BAS \
PARTICLE_HGR.BAS DIAMOND_SCROLL.BAS RANDOM_SCROLL.BAS STAR_BOUNCE.BAS\
OOZE.BAS HORIZ_STAR.BAS
OOZE.BAS HORIZ_STAR.BAS SECRET_COLLECT.BAS PLANET.BAS
# cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@ -125,6 +125,8 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A STAR_BOUNCE.BAS
$(DOS33) -y appleiibot.dsk SAVE A OOZE.BAS
$(DOS33) -y appleiibot.dsk SAVE A HORIZ_STAR.BAS
$(DOS33) -y appleiibot.dsk SAVE A SECRET_COLLECT.BAS
$(DOS33) -y appleiibot.dsk SAVE A PLANET.BAS
####
@ -701,6 +703,17 @@ OOZE.BAS: ooze.bas
HORIZ_STAR.BAS: horiz_star.bas
$(TOKENIZE) < horiz_star.bas > HORIZ_STAR.BAS
####
SECRET_COLLECT.BAS: secret_collect.bas
$(TOKENIZE) < secret_collect.bas > SECRET_COLLECT.BAS
####
PLANET.BAS: planet.bas
$(TOKENIZE) < planet.bas > PLANET.BAS
####

6
basic/appleiibot/planet.bas Normal file
View File

@ -0,0 +1,6 @@
0HGR2:FORR=0TO49:HPLOTRND(1)*280,RND(1)*99:NEXT
1X=X+1-(X*X/2600):Y=99-SQR(R*R-X*X):A=99+X/2-RND(1)*X:HCOLOR=3:HPLOT99-X,YTOA,Y:HCOLOR=1:HPLOTA,YTO99+X,Y
3IFX<49.9THEN1
4FORI=1TO7:X=0:T=I*I*I/4:Y=97+T
5HCOLOR=5*C:C=NOTC:Q=5+RND(1)*T:IFX+Q>279THENNEXT
6HPLOTX,YTOX+Q,Y:X=X+Q:GOTO5