Digmake (Minecraft clone) I've finished!
2-dimensional Minecraft on a calculator!
Press arrow keys to move, press 4,2,6, and 8 to move your selector thing around (the thing you use to place and destroy blocks), Mode to switch between place and destroy modes.
There is gravity, but you have infinite blocks. This program is not slow like most of my other ones.
This program doesn't include blocks that have any function, but I will add it as soon as I remove the letter graphics.
Can someone show me how to convert this program from the Home Screen to the graph? I know a way, but it takes over 5 minutes for the program to redraw the screen.
If you have played this, please comment, I want to see how many people have used this.

``````:[[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]]→[A]
:5→X
:1→Y
:5→L
:1→M
:5→A
:5→B
:5→N
:5→O
:1→P
:1→H
:1→R
:While 1
:getKey→K
:X-(K=24 and [A](Y,X-1)=0)+(K=26 and [A](Y,X+1)=0)→X
:If K=25 and not([A](Y+1,X) = 0)
:Then
:For(W,1,3
:If Y>1
:Then
:If [A](Y,X)=0
:Y-1→Y
:End
:End
:End
:If Y<8 and [A](Y+1,X)=0
:Y+1→Y
:If K=22
:Then
:If P=1
:Then
:0→P
:Else
:1→P
:End
:End
:If K=83
:Then
:If P=0
:Then
:0→[A](B,A
:Output(B,A," "
:End
:If P=1
:Then
:H→[A](B,A //Sorry for the earlier mistake, fixed now
:Output(B,A,H
:End
:End
:If R=1
:Then
:0→R
:ClrHome
:For(V,1,16
:For(W,1,8
:If not([A](W,V)=0)
:Output(W,V,[A](W,V
:End
:End
:End
:If [A](M,L)=0
:Then
:Output(M,L," "
:Else
:Output(M,L,[A](M,L
:End
:X→L
:Y→M
:If [A](O,N)=0
:Then
:Output(O,N," "
:Else
:Output(O,N,[A](M,L
:End
:X→N
:Y→O
:If (K=82 and A>1) or (K=84 and A<16) or (K=73 and B>1) or (K=93 and B<8)
:Then
:If [A](B,A)=0
:Then
:Output(B,A," "
:Else
:Output(B,A,[A](B,A
:End
:If K=82
:A-1→A
:If K=84
:A+1→A
:If K=73
:B-1→B
:If K=93
:B+1→B
:Output(B,A,"O
:End
:Output(Y,X,"*
:End```
```