I don't really know how to backup the buffer so that the sprite won't overwrite the platforms, so I tried Qwerty's method with Copy, but that just crashes my calc, so heres my code, Am I doing something wrong?

:.DOODLEJP
:.LEFT
:[1C2251D1C1417F2A→Pic1L
:.RIGHT
:[38448A8B8382FE54→Pic1R
:.PLAT
:[000000007ED5AB7E→Pic0B
:[0808080808080808→Pic0L
:[0000000000000000]
:[00000000000000FF→Pic2L
:[0000000000000000]
:[0000000000000000→Pic0C
:ClrDraw
:DiagnosticOff
:0→{L4+1}→{L4+2}
:Repeat {L4+1}=88
:Repeat {L4+2}=56
:Plot1{L4+1},{L4+2},Pic0L
:Plot1{L4+1},{L4+2},Pic2L
:{L4+2}+8→{L4+2}
:End
:{L4+1}+8→{L4+1}
:End
:0→{L4+1}
:Repeat {L4+1}=48
:Pt-On(rand^12*8,{L4+1},Pic0B
:Pt-On(rand^12*8,{L4+1},Pic0B
:{L4+1}+16→{L4+1}
:End
:43→{L4+3}
:55→{L4+4}
:Line(0,63,95,63
:0→{L4+7}→{L4+8}→{L4+9}→{L4+10}→{L4+11}
:Repeat getKey(15)
:conj(L1,L6,768
:{L4+3}+getKey(3)-getKey(2)→{L4+3}
:If {L4+3}=0
:87→{L4+3}
:End
:If {L4+3}=88
:1→{L4+3}
:End
:If getKey(3)
:8→{L4+6}
:End
:If getKey(2)
:0→{L4+6}
:End
:If pxl-Test({L4+3},{L4+4}+8)+pxl-Test({L4+3}+7,{L4+4}+8)
:1→{L4+7}
:0→{L4+8}
:{L4+4}→{L4+5}
:End
:If {L4+7}=1
:{L4+4}-1→{L4+4}
:End
:If {L4+4}=16
:0→{L4+7}
:Vertical +
:{L4+9}+1→{L4+9}
:End
:If {L4+9}=16
:0→{L4+9}+1→{L4+8}
:Pt-On(rand^12*8,0,Pic0B
:Pt-On(rand^12*8,0,Pic0B
:End
:If {L4+5}-24={L4+4}
:0→{L4+7}
:1→{L4+10}
:End
:If {L4+10}=1
:{L4+11}+1→{L4+11}
:End
:If {L4+11}=8 and ({L4+10}=1
:0→{L4+11}→{L4+10}
:1→{L4+8}
:End
:If {L4+8}=1
:{L4+4}→{L4+5}
:{L4+4}+1→{L4+4}
:End
:Pt-On({L4+3},{L4+4},Pic1L+{L4+6}
:conj(L6,L1,768
:DispGraph^r^
:End
Generated by SourceCoder, © 2005-2010 Cemetech

Oh yeah, since its L1 + 56 equals 768...

EDIT:  nope, still doesn't work.