Tim Swan's ZELDAO 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 ZELDAP: http://pastebin.com/vM1bG9Ct
ZELDAO:
ClrHome
Output(4,4,”LOADING…
Fill(0,[A]
If N=0
Then
If O=0
Then
For(C,-2,0
If C=-2
Goto A
If C=-1
Goto A1
End
10->[A](8,8
9->[A](7,7
End
End
If N=-1
Then
If O=0
Then
For(C,-3,0
If C=-3
Goto A
If C=-2
Goto R1
If C=-1
Goto L1
End
End
End
ClrHome
For(A,1,8
For(B,1,16
“ ->Str1
If [A](A,B)=10
“F->Str1
If [A](A,B)=9
“O->Str1
Output(A,B,Str1
End
End
Return
Lbl A
For(A,-4,0
If A=-4
Goto T
If A=-3
Goto B
If A=-2
Goto L
If A=-1
Goto R
End
End
Lbl T
For(B,1,16
9->[A](1,B
End
End
Lbl B
For(B,1,16
9->[A](8,B
End
End
Lbl L
For(B,1,8
9->[A](B,1
End
End
Lbl R
For(B,1,8
9->[A](B,16
End
End
Lbl A1
For(A,-4,0
If A=-4
Goto T1
If A=-3
Goto B1
If A=-2
Goto L1
If A=-1
Goto R1
End
End
Lbl T1
For(B,7,10
0->[A](1,B
End
End
Lbl B1
For(B,7,10
0->[A](8,B
End
End
Lbl L1
For(B,4,5
0->[A](B,1
End
End
Lbl R1
For(B,4,5
0->[A](B,16
End
End
see also ZELDA:  http://pastebin.com/rxKbWnY0
see also ZELDAP: http://pastebin.com/vM1bG9Ct