` ``ClrHome 1→X:Ans→Y 16→A:8→B Repeat K=45 or max({X=A}{Y=B Output(Y,X,"X Repeat Ans randInt(0,1 A+(Ans)-(not(Ans))+16(not(A))-16(A=16→A randInt(0,1 B+(Ans)-(not(Ans))+8(notB))-8(B=9→B Output(Ans,A,"* getKey End:Ans→K Output(Y,X," ;1 space max(1,min(16,X+(Ans=26)-(Ans=24→X max(1,min(8,Y+(K=34)-(K=25→Y End:ClrHome "You "+sub("LoseWin!"1+4((X=A)(Y=B)),4`

This Code has not been tested for errors/bugs. ]]>