:Lbl A:ClLCD
:Disp "cranwell@yahoo.com"
:{4,4}üdim T:1üC
:For(E,1,4)
:For(K,1,4)
:CüT(E,K):C+1üC
:End:End
:0üT(4,4):4üE:4üK
:For(Q,1,50)
:Lbl B
:E+int 4rand-1üA
:K+int 4rand-1üP
:If (A<1)+(A>4)+(P<1)+(P>4)
:Goto B
:T(A,P)üT(E,K)
:If T(A,P)
:AüE:PüK
:Outpt(2E-1,3K,T(E,K))
:AüE:PüK:End
:ClLCD
:For(Y,1,7,2)
:Outpt(Y,2,"|  |  |  |  |")
:End
:For(Y,2,8,2)
:Outpt(Y,2,"+--+--+--+--+")
:End
:0üT(E,K)
:For(X,1,4)
:For(Y,1,4)
:T(X,Y)üP
:If P
:Outpt(2X-1,3Y,P)
:End:End
:Lbl ONE:getKyüG
:If G==22:Goto A
:E+(G==25)-(G==34)üA
:K+(G==24)-(G==26)üP
:If (A<1)+(A>4)+(P<1)+(P>4)+(A==E)(P==K)
:Goto ONE
:T(A,P)üT(E,K)
:Outpt(2E-1,3K,T(E,K))
:AüE:PüK:0üT(E,K)
:Outpt(2E-1,3K,"  ")
:Goto ONE

    Source: geocities.com/xulfrepus/ti85

               ( geocities.com/xulfrepus)