Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- :0→A:0identity(3→[A]
- :1-2int(2rand→B
- :"+++
- :ClrHome
- :Disp Ans,Ans,Ans
- :Repeat 0
- :Repeat Ans
- :.1getKey→K
- :End
- :If 2Ans=9:Goto Q
- :iPart(Ans)-6→C
- :10fPart(K)-1
- :If max(2≤abs({C,Ans}-2:End
- :If [A](C,Ans:End
- :Output(C,Ans,sub("X O",B+2,1
- :B→[A](C,Ans
- :For(C,0,1
- :[A]T→[A]
- :For(D,1,3
- :Matr►list([A],D,T
- :If min(∟T=B:Goto Q
- :End
- :If min(B=seq([A](abs(4C-X),X),X,1,3
- :Goto Q
- :End
- :-B→B:IS>(A,9
- :End
- :Lbl Q
- :"TIE!
- :If A≠9
- :sub("X O",B+2,1)+" WINS!
- :If 2K≠9
- :Pause Ans
- :ClrHome:"
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement