diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile index be8ea0e6..e772a1a8 100644 --- a/basic/appleiibot/Makefile +++ b/basic/appleiibot/Makefile @@ -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 diff --git a/basic/appleiibot/boxes.bas b/basic/appleiibot/boxes.bas new file mode 100644 index 00000000..2430875e --- /dev/null +++ b/basic/appleiibot/boxes.bas @@ -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 + diff --git a/basic/appleiibot/boxes.boxes b/basic/appleiibot/boxes.boxes new file mode 100644 index 00000000..06b2ed14 --- /dev/null +++ b/basic/appleiibot/boxes.boxes @@ -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 +