diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile index 52ef7433..3a906372 100644 --- a/basic/appleiibot/Makefile +++ b/basic/appleiibot/Makefile @@ -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 + + #### diff --git a/basic/appleiibot/planet.bas b/basic/appleiibot/planet.bas new file mode 100644 index 00000000..63da74da --- /dev/null +++ b/basic/appleiibot/planet.bas @@ -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