Code: [Select]

:[3844828282443800->Pic1
:[0038444444380000
:[0000382838000000     //Store sprites to Pic1, Pic1+8, and Pic1+16
:0->A->B->C->D->{L1}   //Make A,B,C,D, and the byte at the address of L1 0  (Yes, there is no need for the r there.)
:Fill(L1,23  //Copy those zeros so the first 23 bytes are zero.
:Repeat getKey(15)  //Loop until clear is pressed
:ClrDraw     //I forgot.  Something about the buffer...
:Pt-On({L1+22},{L1+23},Pic1     // Draw the first sprite wherever L1+22 and L1+23 are
:Pt-On({L1+12},{L1+13},Pic1+8  // Draw the second sprite wherever L1+12 and L1+13 are
:Pt-On({L1},{L1+1},Pic1+16 // Draw the third sprite wherever L1 and L1+1 are
:DispGraph  // Draw this on the screen
:Copy(L1+2,L1,22  // Shift all the bytes that were at L1+2 to L1+24 back 2 bytes.  Ex: 1,2,3,4,5,6... becomes 3,4,5,6,?,?...
:C-getKey(2)+getKey(3)->C //C and D control momentum  C is X momentum
+A->A  // A and B control position  A is X position
/32->{L1+22}  // Divide by 32 and store to L1+22.  These fill in at the end of the sequence.
:D-getKey(4)+getKey(1)->D //Pretty much the same as above, but for Y
+B->B
/32->{L1+23}
:End  // End the loop

both stored in hex form (0 through 255).