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

applebot: add solaris

This commit is contained in:
Vince Weaver 2022-07-26 17:11:40 -04:00
parent 046342a81c
commit 7f02cdbe3b
3 changed files with 30 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
basic/appleiibot/Makefile
View File

@ -4,7 +4,7 @@ DOS33 = ../../utils/dos33fs-utils/dos33
TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
EMPTY_DISK = ../../empty_disk
all: appleiibot.dsk appleiibot2.dsk \
all: appleiibot.dsk \
convert_to convert_back convert_qkumba make_boxes convert_vmw convert_tgreene make_hgr_boxes
appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
@ -25,10 +25,10 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
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 PLANET_GR.BAS \
BOXES.BAS
# cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS
cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
# cp empty.dsk appleiibot.dsk
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y appleiibot.dsk SAVE A HELLO
$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
$(DOS33) -y appleiibot.dsk SAVE A FLAME.BAS
@ -130,11 +130,14 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(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
$(DOS33) -y appleiibot.dsk SAVE A BOXES.BAS
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS.BAS
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS2.BAS
appleiibot2.dsk: BOXES.BAS HELLO
cp empty.dsk appleiibot2.dsk
$(DOS33) -y appleiibot2.dsk SAVE A HELLO
$(DOS33) -y appleiibot2.dsk SAVE A BOXES.BAS
#appleiibot2.dsk: BOXES.BAS HELLO
# cp empty.dsk appleiibot2.dsk
# $(DOS33) -y appleiibot2.dsk SAVE A HELLO
# $(DOS33) -y appleiibot2.dsk SAVE A BOXES.BAS
####
@ -732,6 +735,16 @@ PLANET_GR.BAS: planet_gr.bas
BOXES.BAS: boxes.bas
$(TOKENIZE) < boxes.bas > BOXES.BAS
####
SOLARIS.BAS: solaris.bas
$(TOKENIZE) < solaris.bas > SOLARIS.BAS
####
SOLARIS2.BAS: solaris2.bas
$(TOKENIZE) < solaris2.bas > SOLARIS2.BAS
####

4
basic/appleiibot/solaris.bas Normal file
View File

@ -0,0 +1,4 @@
0HGR2:HCOLOR=5:FORX=0TO278:HPLOTX,83TOX,73+RND(1)*5:POKE16384+RND(1)*4096,1:NEXT
2A$="*-4:DXz":FORY=83TO191:HCOLOR=6:IFY=2*ASC(MID$(A$,Z+1,1))THENZ=Z+1:HCOLOR=0
6HPLOT0,YTOX,Y:NEXT
7Q=Q+0.75:Y=SQR(400-Q*Q):HCOLOR=RND(1)*7:FORT=99-QTO99+Q:HPLOTT,20-YTOT,18+Y:NEXT:GOTO7

4
basic/appleiibot/solaris2.bas Normal file
View File

@ -0,0 +1,4 @@
0HGR:HCOLOR=5:FORX=0TO278:HPLOTX,83TOX,73+RND(1)*5:POKE8192+RND(1)*4096,1:NEXT
2A$="*-4:Dz":FORY=83TO160:HCOLOR=0:IFY=2*ASC(MID$(A$,Z+1,1))THENZ=Z+1:HCOLOR=6
3HPLOT0,YTOX,Y:NEXT
5VTAB21:?,"/\":FORQ=1TO20:Y=SQR(400-Q*Q):HCOLOR=RND(1)*7:FORT=99-QTO99+Q:HPLOTT,20-YTOT,18+Y:NEXTT,Q