Tim Swan's ZELDAP in ti-Basic

Code for Zelda posted on May 7th 2014 after Episode 17 upon YouTube comment request.
see also ZELDA:  http://pastebin.com/rxKbWnY0
see also ZELDAO: http://pastebin.com/8vkq4a9F
ZELDAP:
If A=21
Then
0->A
ClrHome
Output(1,4,”INVENTORY”
1->J
1->I
For(B,1,3
For(C,1,4
Output(3+2(B-1),4+3(C-1),[B](B,C)
End
End
While A≠21
Output(3+2(J-1),3+3(I-1),”(
Output(3+2(J-1),5+3(I-1),”(
0->A
Repeat A
getkey->A
End
Output(3+2(J-1),3+3(I-1),” “
Output(3+2(J-1),5+3(I-1),” “
If A=26
Then
I+1->I
If I=5
1->I
End
If A=24
Then
I-1->I
If I=0
4->I
End
If A=25
Then
J-1->J
If J=0
3->J
End
If A=34
Then
J+1->J
If J=4
1->J
End
End
ClrHome
prgmZELDAO
End
see also ZELDA:  http://pastebin.com/rxKbWnY0
see also ZELDAO: http://pastebin.com/8vkq4a9F