Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2026-04-21 16:16:47 +00:00
Code Issues Projects Releases Wiki Activity

basic: add target

Browse Source
This commit is contained in:
Vince Weaver
2022-09-01 21:03:24 -04:00
parent 021d88784f
commit 3e93b60331
4 changed files with 204 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
basic/appleiibot/Makefile
+17 -3
View File
@@ -25,7 +25,8 @@ 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 SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS
BOXES.BAS SOLARIS.BAS SOLARIS2.BAS ASPLODE.BAS SOLARIS3.BAS \
TARGET.BAS
cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
# cp empty.dsk appleiibot.dsk
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@@ -131,9 +132,11 @@ 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
$(DOS33) -y appleiibot.dsk SAVE A BOXES.BAS
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS.BAS
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS2.BAS
# $(DOS33) -y appleiibot.dsk SAVE A SOLARIS.BAS
# $(DOS33) -y appleiibot.dsk SAVE A SOLARIS2.BAS
$(DOS33) -y appleiibot.dsk SAVE A ASPLODE.BAS
$(DOS33) -y appleiibot.dsk SAVE A SOLARIS3.BAS
$(DOS33) -y appleiibot.dsk SAVE A TARGET.BAS
#appleiibot2.dsk: BOXES.BAS HELLO
# cp empty.dsk appleiibot2.dsk
@@ -756,9 +759,20 @@ SOLARIS2.BAS: solaris2.bas
####
SOLARIS3.BAS: solaris3.bas
$(TOKENIZE) < solaris3.bas > SOLARIS3.BAS
####
ASPLODE.BAS: asplode.bas
$(TOKENIZE) < asplode.bas > ASPLODE.BAS
####
TARGET.BAS: target.bas
$(TOKENIZE) < target.bas > TARGET.BAS
####
basic/appleiibot/target.bas
+6
View File
@@ -0,0 +1,6 @@
0REM~8)g)gX8X8)gX~82gN~8<gE~8Eg<~8Ng2~8Xg)~B3BN]N]3~I:IGVGV:~L=LDSDS=~N?NBQBQ?~D+D,N/N.O-Q.Q/[,Z+~D4D3N/N0O1Q0Q/[3Z4~M-N.~Q.R-~M1N0~Q0R1!
1HGR2:DEFFNP(X)=3*PEEK(2054+I+X)-99
2IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
3HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2
basic/appleiibot/target.points
+45
View File
@@ -0,0 +1,45 @@
# Roughly based on https://dribbble.com/shots/7503971-Target
# 25+28= 25 53 81 109 137 165
279 70 25 210 25 # 0 Upper left Right
210 165 # 1 Down
70 165 # 2 Left
70 25 # 3 Up
210 165 # 4 Diagonal
279 70 53 210 137 # 5 Diagonal2
279 70 81 210 109 # 6 Diagonal3
279 70 109 210 81 # 7 Diagonal4
279 70 137 210 53 # 8 Diagonal5
279 70 165 210 25 # 9 Diagonal6
279 99 54 99 136 # 10 U#1
180 136
180 54
279 120 75 120 116 # 11 U#2
160 116
160 75
279 130 86 130 105 # 12 U#3
150 105
150 86
279 136 90 136 101 # 13 U#4
146 101
146 90
279 107 31 105 33 # X-WingTop tip
135 43 # wing to body
136 39 # +1,-4
140 37 # +4,-2 top
144 39 # +4,+2
146 43 # +1,+4
175 33 # body to tip
173 31 # tip
279 107 58 105 54 # X-wing bottom
135 43 # wing to body
136 47 # +1,+4
140 49 # +4,+2
144 47 # +4,-2
146 43 # +1,-4
175 54
173 58
279 133 36 135 40
279 144 40 148 36
279 133 50 135 47
279 144 47 148 50
0