Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-04-28 08:38:09 +00:00
Code Issues Projects Releases Wiki Activity

planet_gr: lores version of planet

Browse Source 
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)
This commit is contained in:
Vince Weaver 2022-07-09 18:01:11 -04:00
parent f974330b0d
commit ba9d287fb2
2 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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