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

appleiibot: sad demise

This commit is contained in:
Vince Weaver 2022-11-04 21:23:18 -04:00
parent 19c5448839
commit 971f7c197a
4 changed files with 62 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basic/appleiibot/Makefile
View File

@ -29,7 +29,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
TARGET.BAS ELITE.BAS MYSTERY.BAS OFFICE.BAS GR_XOR.BAS \
LARGE_XOR.BAS PAR_XOR.BAS PAR_HGR.BAS SIER_XOR.BAS PATTERN_LOGO.BAS \
GEARS.BAS DSR_LORES.BAS A2_LORES.BAS MAGIC_CUBE.BAS MOON.BAS \
PUMPKIN2.BAS
PUMPKIN2.BAS TWITTER.BAS
cp $(EMPTY_DISK)/empty_lots_of_dirents.dsk appleiibot.dsk
# cp empty.dsk appleiibot.dsk
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@ -155,6 +155,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A MAGIC_CUBE.BAS
$(DOS33) -y appleiibot.dsk SAVE A MOON.BAS
$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN2.BAS
$(DOS33) -y appleiibot.dsk SAVE A TWITTER.BAS
####
@ -857,6 +858,11 @@ MOON.BAS: moon.bas
PUMPKIN2.BAS: pumpkin2.bas
$(TOKENIZE) < pumpkin2.bas > PUMPKIN2.BAS
####
TWITTER.BAS: twitter.bas
$(TOKENIZE) < twitter.bas > TWITTER.BAS
####

8
basic/appleiibot/make_points.c
View File

@ -37,6 +37,8 @@ int main(int argc, char **argv) {
int out_ptr=0;
int add=33;
int xadjust=0;
// int xadjust=-3;
int yadjust=0;
int div=3;
if (argc>1) {
@ -63,9 +65,9 @@ int main(int argc, char **argv) {
if (a1==LINE_VALUE) {
output[out_ptr]=((a1-xadjust)/div)+add;
output[out_ptr+1]=((a2-xadjust)/div)+add;
output[out_ptr+2]=((a3-xadjust)/div)+add;
output[out_ptr+2]=((a3-yadjust)/div)+add;
output[out_ptr+3]=((a4-xadjust)/div)+add;
output[out_ptr+4]=((a5-xadjust)/div)+add;
output[out_ptr+4]=((a5-yadjust)/div)+add;
out_ptr+=5;
}
else if (a1==MODE_VALUE) {
@ -79,7 +81,7 @@ int main(int argc, char **argv) {
}
else {
output[out_ptr]=((a1-xadjust)/div)+add;
output[out_ptr+1]=((a2-xadjust)/div)+add;
output[out_ptr+1]=((a2-yadjust)/div)+add;
out_ptr+=2;
}
}

5
basic/appleiibot/twitter.bas Normal file
View File

@ -0,0 +1,5 @@
0REM~/$5*>0E3O4P-R(V$["d"h$k&t$o+w)o1o:lChKdQ_V[YS]H`=`4^*Y2Y;V@S;Q7O4K3H9H4E0A-;-70939/4-.-*/$!
1HGR2:HCOLOR=6:DEFFNP(X)=3*PEEK(2054+I+X)-99
2IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
4HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2
5HCOLOR=5:HPLOTRND(1)*279,RND(1)*192TO140,96:GOTO5

45
basic/appleiibot/twitter.points Normal file
View File

@ -0,0 +1,45 @@
279 39 9 57 27 # 0
84 45 # 1
105 54 # 2
135 57 # 3
138 36 # 4
144 21 # 5
156 9 # 6
171 3 # 7
198 3 # 8
210 9 # 9
219 15 # 10
246 9 # 11
231 30 # 12
255 24 # 13
231 48 # 14
231 75
222 102
210 126
198 144
183 159
171 168
147 180
114 189
81 189
54 183
24 168
48 168
75 159
90 150
75 144
63 138
55 126
51 117
69 117
54 108
42 96
33 78
33 66
42 72
51 72
39 57
33 39
33 27
39 9
0