AppleIIbot 280 char Applesoft Demos -- Part 7

Multi Scroll

link
Multiple scrolling directions in lo-res. 114 bytes or so.

1FORI=0TO113:POKE902+I,4*PEEK(2125+I)-204+(PEEK(2239+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"/@q<GcY2ThjmRkE;CE8:3Xao2TrUj3Jc3Uk3Id3[rECE]aHcLE4Kp[6U;@p\88LeQ<X<APJmIoUFlDp=4k3\je3Y2W<U7je7\<\Fllgll`I98EZ8Q3S+4LLMY9*XTXX(-$'H.66X/GP<*3C4%-U<=Y5[

Link to machine code source: large_bot.s

Lo-res Parallax

link
Was attempting parallax scrolling. First in lo-res. If I recall this is taking advantage of the fact that the lo-res memory map is split up in thirds. Fits in 128 bytes.

1FORI=0TO124:POKE891+I,4*PEEK(2125+I)-204+(PEEK(2250+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"/@q<GcY2ThjmRkEIkEPm\jCEA\aHcMA3TdX8I8DdY<4KrQ<[;]3TrAXlnIoU=p=3o4YETrAYelToU9H2Dp=4k3];Tr=Xl`QqQ8M&Aq=5o'Z9Pq\iU<U7be7^?WFN3S+4LLP4D5#4\UW70*$'P@%4#@.8*3)3Y5Y$W4G#%#2

Link to machine code source: par_bot.s

Hi-res Parallax

link
Tried to get hi-res parallax scrolling going. Incredible difficult to get this going and trying to have it be fast. That's why it's in a small window and it has chunky colors and even then the frame rate is really low.

1FORI=0TO137:POKE1013+I,4*PEEK(2126+I)-204+(PEEK(2264+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"-ho/foP`UA:7hK]V;Z.6\/::Z37Yhr_kln\o8SH.DVH3\kEKJj5/<E/\a@a[Kb3*SO3b3.2lVP4Z:Y/4TkTlbAq=Co'Zr]8U@m3=p=;o4\Hg5UAi2Dp=7k3]Ue3Y2Y3;Ua5gce7X=X[SQ3C<7Z$UC'Y;4)L=4C'X'G$'=>W$WK'@#(+4*3E4#++D

Link to machine code source: par_bot.s

Sierpinski Parallax

link
Figured things would be faster if I could use the old standby xor/and sierpinski/blocks. Got some speed too by not calculating values behind the blocks.

1FORI=0TO119:POKE1013+I,4*PEEK(2126+I)-204+(PEEK(2246+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"-ho/foP`UA:7hK]V;Z.6\/::Z37Yhr_k[2S54XWe7qnE4mG4VkEBRl+3=<1]bHcTYa.6VG3a/64cTK&X<TljDV=7d6TLj@Wg/\Ha3]+m3VQZ+9e7kUc;g]m_[SQ3C<7Z$UCN)%%)<GMH$?743I[74S7$7;C@C##F

Link to machine code source: sier.s

Shapetable Message

link
Was working on animated gears and a bug in the code led to the cool pattern, which I had enough bytes left over to overlay the apple II logo.

1FORI=0TO124:POKE1013+I,4*PEEK(2126+I)-204+(PEEK(2251+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"/foW4TdRmW];/n[G[4\3;Do\adoVQTc[5Mk]2TrkC4mD4;C4drgn]3Pk]2Tr;C4kC4mD4drggmrS1[B[X:7p[H[3]@=1p(0<5>V8=@a5<5>b5;<P6>7>>5<<=?@>3S<F+D%(<U@G@*1)#%*4*#1)%FCG'%'GSG3)G$;O(J%

Link to machine code source: pattern_logo.s

Gears

link
Did get hi-res animated gears going. Slow to draw but using page flipping creates a nice effect (even have to slow it down in that case).

1FORI=0TO137:POKE1013+I,4*PEEK(2126+I)-204+(PEEK(2264+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"-hoY4T`QqUM]1:7p[;:I4S1[l]L:7piq[3:I&aq/foY4Tl[3UM]1:7o]RVN4[;;I4[%Xm]L;/nlq[7:I4>HcZr;]r>Db]r;]jDD,RqnO4nO4Yqo2nO2nO.ZQW3]/:JfbqdkK;@3<>3[4V=5#'C*'13[S4&=5'$#$[$D&'#0#4&CC%%0-+;34M/(+

Link to machine code source: gear.s

Lo-res Shapetable Logo

link
Messing around with a new effect where I use shape tables to draw offscreen a small hi-res animation, but then copy from hi-res to lo-res screen so we can use more colors.

1FORI=0TO132:POKE883+I,4*PEEK(2125+I)-204+(PEEK(2258+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"-ho<GcS2T^X>Q:7fZkV;XBY<PAe4n>Hc[%X6]8;/n[`X3Zq;Hp[:SrWq`FTb2`CG_3[3[*[4JpJ/:]+]3[r;Hp\r;3qec1l4br7lmgdcr,clgjq7T30=r>;^;<X7=FL@@'CO3[+E^5K<WD/%[$DT,,69G*`%GL3C(3$#S-%>OM_\6%4PS&

Link to machine code source: dsr_bot.s

Lo-res Shapetable ][

link
Changed to a simpler shape, this time just ][. Had enough room to animate/switch up the background lines.

1FORI=0TO139:POKE876+I,4*PEEK(2125+I)-204+(PEEK(2265+I/3)-35)/4^(I-INT(I/3)*3):NEXT
2&"-ho<Gc<HcP<U:7pVj\;XOU;XAe7n[3W7]5:7n[mT2\o5;Hp[:SrWq`FTa2`CG^3U[3;3qW2]+RrIjJ/:]3_4WqLq;Li96qec1l4br7lmgdcr.blhZq=;9IVV_3gMd9><<MD58>@>3FK3[++Q'=)@+&53+?-,69G*`%#5IP3#8%C#S-%<GI$41[$:N$/

Link to machine code source: a2_bot.s

Hires Pumpkin (BASIC)

link
Nothing that exciting, just the hi-res line drawing code making a pumpkin for Halloween. The original image is from a worksheet one of my kids did in school.

0REM~$?.(<$L+P+Z(g+n2qEnSd]T`B`2Z'K$?~8??5F?8?~S?Z5`?S?~L?PIIIL?~5IBPBSISIPPPPSVSVP]LdF]SSZFZ;S5I"~E(I$Q"S&P(P+!
1HGR2:HCOLOR=5:DEFFNP(X)=3*PEEK(2054+I+X)-99
2IFFNP(0)=3THENHCOLOR=1:I=I+1
3IFFNP(0)=279THENHPLOTFNP(1),FNP(2):I=I+3
4HPLOTTOFNP(0),FNP(1):I=I+2:IFFNP(0)GOTO2

End of Twitter (BASIC)

link
I was hoping it wouldn't come to this but with everyone fleeing twitter it was inevitable that the Apple II Basic Bot would be leaving too. I had at least one other effect I was working on, but threw this one together instead as a fitting tribute to all the nonsense going on.

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

On to Part 8

Back to Part 6

Back to main Apple II bot page