I'm not sure why I'm posting this, because people will laugh at me, but here's it is anyway. I plan to make a better less sloppy version someday, but not anytime soon. I plan on starting another project. It's very sloppy:
CLS
DIM grid$(9)
X = 1
grid$(1) = "1"
grid$(2) = "2"
grid$(3) = "3"
grid$(4) = "4"
grid$(5) = "5"
grid$(6) = "6"
grid$(7) = "7"
grid$(8) = "8"
grid$(9) = "9"
turn = 1
number = 10
WHILE number <> 0
CLS
LOCATE 1, 1
PRINT "-----"
PRINT grid$(1);
PRINT "|";
PRINT grid$(2);
PRINT "|";
PRINT grid$(3)
PRINT "-----"
PRINT grid$(4);
PRINT "|";
PRINT grid$(5);
PRINT "|";
PRINT grid$(6)
PRINT "-----"
PRINT grid$(7);
PRINT "|";
PRINT grid$(8);
PRINT "|";
PRINT grid$(9)
PRINT "-----"
IF turn = 1 THEN X$ = "X"
IF turn = 1 THEN prompt$ = "Player No. One(X)"
IF turn = 2 THEN X$ = "O"
IF turn = 2 THEN prompt$ = "Player No. Two(O)"
Redo:
PRINT prompt$;
INPUT number
IF grid$(number) = "X" OR grid$(number) = "O" THEN GOTO Redo
grid$(number) = X$
IF turn = 1 THEN turn = 2 ELSE turn = 1
IF grid$(1) = "X" AND grid$(2) = "X" AND grid$(3) = "X" THEN number = 0
IF grid$(1) = "X" AND grid$(2) = "X" AND grid$(3) = "X" THEN winner$ = "Player 1"
IF grid$(4) = "X" AND grid$(5) = "X" AND grid$(6) = "X" THEN number = 0
IF grid$(4) = "X" AND grid$(5) = "X" AND grid$(6) = "X" THEN winner$ = "Player 1"
IF grid$(7) = "X" AND grid$(8) = "X" AND grid$(9) = "X" THEN number = 0
IF grid$(7) = "X" AND grid$(8) = "X" AND grid$(9) = "X" THEN winner$ = "Player 1"
IF grid$(1) = "X" AND grid$(4) = "X" AND grid$(7) = "X" THEN number = 0
IF grid$(1) = "X" AND grid$(4) = "X" AND grid$(7) = "X" THEN winner$ = "Player 1"
IF grid$(2) = "X" AND grid$(5) = "X" AND grid$(8) = "X" THEN number = 0
IF grid$(2) = "X" AND grid$(5) = "X" AND grid$(8) = "X" THEN winner$ = "Player 1"
IF grid$(3) = "X" AND grid$(6) = "X" AND grid$(9) = "X" THEN number = 0
IF grid$(3) = "X" AND grid$(6) = "X" AND grid$(9) = "X" THEN winner$ = "Player 1"
IF grid$(1) = "X" AND grid$(5) = "X" AND grid$(9) = "X" THEN number = 0
IF grid$(1) = "X" AND grid$(5) = "X" AND grid$(9) = "X" THEN winner$ = "Player 1"
IF grid$(3) = "X" AND grid$(5) = "X" AND grid$(7) = "X" THEN number = 0
IF grid$(3) = "X" AND grid$(5) = "X" AND grid$(7) = "X" THEN winner$ = "Player 1"
IF grid$(1) = "O" AND grid$(2) = "O" AND grid$(3) = "O" THEN number = 0
IF grid$(1) = "O" AND grid$(2) = "O" AND grid$(3) = "O" THEN winner$ = "Player 2"
IF grid$(4) = "O" AND grid$(5) = "O" AND grid$(6) = "O" THEN number = 0
IF grid$(4) = "O" AND grid$(5) = "O" AND grid$(6) = "O" THEN winner$ = "Player 2"
IF grid$(7) = "O" AND grid$(8) = "O" AND grid$(9) = "O" THEN number = 0
IF grid$(7) = "O" AND grid$(8) = "O" AND grid$(9) = "O" THEN winner$ = "Player 2"
IF grid$(1) = "O" AND grid$(4) = "O" AND grid$(7) = "O" THEN number = 0
IF grid$(1) = "O" AND grid$(4) = "O" AND grid$(7) = "O" THEN winner$ = "Player 2"
IF grid$(2) = "O" AND grid$(5) = "O" AND grid$(8) = "O" THEN number = 0
IF grid$(2) = "O" AND grid$(5) = "O" AND grid$(8) = "O" THEN winner$ = "Player 2"
IF grid$(3) = "O" AND grid$(6) = "O" AND grid$(9) = "O" THEN number = 0
IF grid$(3) = "O" AND grid$(6) = "O" AND grid$(9) = "O" THEN winner$ = "Player 2"
IF grid$(1) = "O" AND grid$(5) = "O" AND grid$(9) = "O" THEN number = 0
IF grid$(1) = "O" AND grid$(5) = "O" AND grid$(9) = "O" THEN winner$ = "Player 2"
IF grid$(3) = "O" AND grid$(5) = "O" AND grid$(7) = "O" THEN number = 0
IF grid$(3) = "O" AND grid$(5) = "O" AND grid$(7) = "O" THEN winner$ = "Player 2"
IF grid$(1) <> "1" AND grid$(2) <> "2" AND grid$(3) <> "3" AND grid$(4) <> "4" AND grid$(5) <> "5" AND grid$(6) <> "6" AND grid$(7) <> "7" AND grid$(8) <> "8" AND grid$(9) <> "9" THEN number = 0
WEND
IF winner$ = "" THEN PRINT "Draw!" ELSE PRINT winner$;
IF winner$ <> "" THEN PRINT " Wins!"
PRINT "Press any key to continue..."
WHILE INKEY$ = ""
WEND
You can also download the compiled version at http://peltkore.net/~newk/tictac4.exe