From ba9d287fb275a4c39af20437d3ee5d14d63497d5 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Sat, 9 Jul 2022 18:01:11 -0400 Subject: [PATCH] planet_gr: lores version of planet apparently this all came from the Acorn User's January 1989 issue, an article by Peter Voke, called 'A World Of Your Own' (page 85) --- basic/appleiibot/Makefile | 8 +++++++- basic/appleiibot/planet_gr.bas | 6 ++++++ 2 files changed, 13 insertions(+), 1 deletion(-) create mode 100644 basic/appleiibot/planet_gr.bas diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile index 3a906372..be8ea0e6 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 SECRET_COLLECT.BAS PLANET.BAS + OOZE.BAS HORIZ_STAR.BAS SECRET_COLLECT.BAS PLANET.BAS PLANET_GR.BAS # cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk cp empty.dsk appleiibot.dsk $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD @@ -127,6 +127,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \ $(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 + $(DOS33) -y appleiibot.dsk SAVE A PLANET_GR.BAS #### @@ -713,6 +714,11 @@ SECRET_COLLECT.BAS: secret_collect.bas PLANET.BAS: planet.bas $(TOKENIZE) < planet.bas > PLANET.BAS +#### + +PLANET_GR.BAS: planet_gr.bas + $(TOKENIZE) < planet_gr.bas > PLANET_GR.BAS + diff --git a/basic/appleiibot/planet_gr.bas b/basic/appleiibot/planet_gr.bas new file mode 100644 index 00000000..bf83bd4e --- /dev/null +++ b/basic/appleiibot/planet_gr.bas @@ -0,0 +1,6 @@ +0GR:COLOR=7:FORR=0TO24:PLOTRND(1)*40,RND(1)*24:NEXT +1FORX=0TO10STEP.1:Y=R-1.75*SQR(100-X*X):A=12+X/2-RND(1)*X:COLOR=13:HLIN12-X,AATY:COLOR=12:HLINA,12+XATY:NEXT +4COLOR=9:FORI=1TO7:X=0:T=I*I*I/24:Y=23+T +5C=NOTC:Q=2+RND(1)*T:IFX+Q>39THENNEXT:END +6IFCTHENHLINX,X+QATY +7X=X+Q:GOTO5