: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