diff --git a/basic/appleiibot/Makefile b/basic/appleiibot/Makefile index 7791093b..9189f2b6 100644 --- a/basic/appleiibot/Makefile +++ b/basic/appleiibot/Makefile @@ -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 + #### diff --git a/basic/appleiibot/make_points.c b/basic/appleiibot/make_points.c index 4d8b877c..efbc0993 100644 --- a/basic/appleiibot/make_points.c +++ b/basic/appleiibot/make_points.c @@ -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; } } diff --git a/basic/appleiibot/twitter.bas b/basic/appleiibot/twitter.bas new file mode 100644 index 00000000..724517c1 --- /dev/null +++ b/basic/appleiibot/twitter.bas @@ -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 diff --git a/basic/appleiibot/twitter.points b/basic/appleiibot/twitter.points new file mode 100644 index 00000000..8149a7e6 --- /dev/null +++ b/basic/appleiibot/twitter.points @@ -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