frogger Hi
I decided to make a frogger clone.
I don't know how to allow people to download, so you'll have to type in the coding yourself.
Pretend <= is less than or equal to .
Sadly, I won't be able to contribute to this website during the summer, because my dad makes me work in my garden all day(hey, not every programmer has to be an adult).

:8→X
:0→Z
:8→Y
:{14,12,7,2,3,9,4,11,6,13,1,15}→⌊1
:{2,2,3,3,4,4,5,5,6,6,7,7}→⌊2
:0→W
:While Z=0
While not(W=16
:W+1→W
:If ⌊1(W)>16
:1→⌊1(W)
:randInt(2,7)→⌊2(W)
:If ⌊1(W)<1
:16→⌊1(W
:randInt(2,7)→⌊2(W
:End
:If ⌊1(W)<=1
:Then
:1→⌊1(W
:randInt(2,7)→⌊2(W
:End
:End
:0→W
:While not(W=12
:W+1→W
:If ⌊2(W)=2 or ⌊2(W)=4 or ⌊2(W)=6
:Then
:⌊1(W)+1→⌊1(W
:End
:If ⌊2(W)=3 or ⌊2(W)=5 or ⌊2(W)=7
:Then
:⌊1(W)-1→⌊1(W
:End
:End
:getKey→K
:If K=24
:Then
:X-1→X
:End
:If K=34
:Then
:Y=1→Y
:End
:If K=26
:Then
:X+1→X
:End
:If K=25
:Then
:Y-1→Y
:End
:0→W
:ClrHome
:While not(W=12
:W+1→W
:If ⌊1(W)>=1 and ⌊1(W)<=16
:Then
:Output(⌊2(W),⌊1(W),"====
:End
:End
:0→W
:Output(Y,X,".
:While not(W=12
:W+1→W
:If X=⌊1(W) or X=⌊1(W)+1 or X=⌊1(W)+2 or X=⌊1(W)+3
:Then
:If Y=⌊2(W
:Then
:If not(⌊2(W)=2 and ⌊2(W)=7
:Then
:While 1
:Disp C
:End
:End
:End
:End
:End
:0→W
:If Y=1
:Then
:If D=1
:Then
:C+1→C
:2→D
:End
:End
:If Y=8
:Then
:If D=2
:Then
:C+1→C
:1→D
:End
:End
:End

I know it is insanely slow, does anyone know how to make this program faster?