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

boxes: add boxes-on-plain

This commit is contained in:
Vince Weaver 2022-07-09 19:50:06 -04:00
parent ba9d287fb2
commit d0c491b6b7
3 changed files with 42 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basic/appleiibot/Makefile
View File

@ -4,7 +4,8 @@ DOS33 = ../../utils/dos33fs-utils/dos33
TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
EMPTY_DISK = ../../empty_disk
all: appleiibot.dsk convert_to convert_back convert_qkumba make_boxes convert_vmw convert_tgreene make_hgr_boxes
all: appleiibot.dsk appleiibot2.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 \
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \
@ -23,7 +24,8 @@ 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 PLANET_GR.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
@ -129,6 +131,12 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A PLANET.BAS
$(DOS33) -y appleiibot.dsk SAVE A PLANET_GR.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
####
HELLO: hello.bas
@ -719,6 +727,10 @@ PLANET.BAS: planet.bas
PLANET_GR.BAS: planet_gr.bas
$(TOKENIZE) < planet_gr.bas > PLANET_GR.BAS
####
BOXES.BAS: boxes.bas
$(TOKENIZE) < boxes.bas > BOXES.BAS

3
basic/appleiibot/boxes.bas Normal file
View File

@ -0,0 +1,3 @@
0REM' G 4 G55- G6O CD9;/CD88%AB;; *+;=/*+::%()== 89<>/89;;%67>> /1@D//1??%-.DD EGBF/EGAA%CDFF :=CI/:=BB%79II $'EK/$'DD%!#KK%!#KK
1DEFFNP(X)=PEEK(2054+I*5+X)-32:GR:POKE49234,0:FORI=0TO24:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I:GETA

25
basic/appleiibot/boxes.boxes Normal file
View File

@ -0,0 +1,25 @@
7 0 39 0 20 ; 0 sky x1 x2 y1 y2
0 0 39 21 21 ; 1 horizon
13 0 39 22 47 ; 2 sand
0 35 36 25 27 ; 3 box1 body
15 35 36 24 24 ; 4 box1 top
5 33 34 27 27 ; 5 box1 shadow
0 10 11 27 29 ; 6 box2 body
15 10 11 26 26 ; 7 box2 top
5 8 9 29 29 ; 8 box2 shadow
0 24 25 28 30 ; 9 box3 body
15 24 25 27 27 ; 10 box3 top
5 22 23 30 30 ; 11 box3 shadow
0 15 17 32 36 ; 12 box4 body
15 15 17 31 31 ; 13 box4 top
5 13 14 36 36 ; 14 box4 shadow
0 37 39 34 38 ; 15 box5 body
15 37 39 33 33 ; 16 box5 top
5 35 36 38 38 ; 17 box5 shadow
0 26 29 35 41 ; 18 box6 body
15 26 29 34 34 ; 19 box6 top
5 23 25 41 41 ; 20 box6 shadow
0 4 7 37 43 ; 21 box7 body
15 4 7 36 36 ; 22 box7 top
5 1 3 43 43 ; 23 box7 shadow