Tim Swan's ZELDA in ti-Basic

Code for Zelda posted on May 7th 2014 after Episode 17 upon YouTube comment request.
see also ZELDAO: http://pastebin.com/8vkq4a9F
see also ZELDAP: http://pastebin.com/vM1bG9Ct
ZELDA
{8,16->dim([A]
Fill(0,[A]
{3,4->dim([B]
Fill(0,[B]
ClrHome
4->S
4->T
4->X
4->Y
0->N
0->O
10->[A](8,8
9->[A](7,7
prgmZELDAO
5->[B](2,2)
0->A
While 1
Output(Y,X,”θ
If (S≠X or T≠Y) and I=N and O=J
Then
“ ->Str1
If [A](T,S)=10
“F->Str1
Output(T,S,Str1
End
getkey->A
X->S
Y->T
N->I
O->J
If A=26
Then
X+1->X
If X=17
Then
1->X
N+1->N
prgmZELDAO
End
End
If A=24
Then
X-1->X
If X=0
Then
N-1->N
16->X
prgmZELDAO
End
End
If A=34
Then
Y+1->Y
If Y=9
Then
1->Y
O+1->O
prgmZELDAO
End
End
If A=25
Then
Y-1->Y
If Y=0
Then
8->Y
O-1->O
prgmZELDAO
End
End
prgmZELDAAP
If [A](Y,X)=9
Then
T->Y
S->X
If I≠N or J≠O
Then
I->N
J->O
prgmZELDAO
End
End
End
see also ZELDAO: http://pastebin.com/8vkq4a9F
see also ZELDAP: http://pastebin.com/vM1bG9Ct