« previous next »
Pages: [1]   Go Down

Author Topic: Tic Tac Toe  (Read 3577 times)

0 Members and 1 Guest are viewing this topic.

Offline Jaze

  • Newbie
  • Posts: 86
    • View Profile
Tic Tac Toe
« on: August 18, 2021, 02:59:29 pm »
I have a Tic Tac Toe app on my phone. I often win. I had to make my own. . . . I swear my apartment has turned into one big SELECT CASE
Code: QB64: [Select]
  1. CONST TRUE = 1
  2. CONST FALSE = 0
  3. CONST xWon = 1
  4. CONST oWon = 2
  5. CONST tie = 3
  6. CONST acrossTop = 1
  7. CONST acrossMid = 2
  8. CONST acrossBot = 3
  9. CONST vertL = 4
  10. CONST vertM = 5
  11. CONST vertR = 6
  12. CONST diagTL = 7
  13. CONST diagBL = 8
  14. CONST delay = 0.02
  15. CONST computeR = 1
  16. CONST playeR = 2
  17.  
  18. DIM SHARED gameString$: gameString$ = ""
  19. DIM SHARED gameOver: gameOver = FALSE
  20.  
  22.  
  24. GOTO beginning
  25.  
  26. crap:
  27. PRINT "Error, line the error is on"
  29. CALL P(TRUE)
  30.  
  31. beginning:
  32. WIDTH 80, 50
  34.  
  35. CALL StartTheGame
  36. SUB EasyGame (firstMove)
  37.     CALL PrintGrid
  38.     FOR eachMove = 1 TO 9
  39.         winner = 0
  40.         IF firstMove = playeR THEN
  41.             here = GetLocation
  42.             gameString$ = gameString$ + "X" + S$(here)
  43.             PrintX (here)
  44.             winner = CheckTieOrWin
  45.             IF winner <> 0 THEN
  46.                 CALL EndOfGame
  47.                 EXIT FOR
  48.             END IF
  49.             somewhereElse:
  50.             here = INT(RND * 9) + 1
  51.             IF INSTR(gameString$, S$(here)) <> 0 THEN GOTO somewhereElse
  52.             gameString$ = gameString$ + "O" + S$(here)
  53.             CALL PrintO(here)
  54.             eachMove = eachMove + 1
  55.             winner = CheckTieOrWin
  56.             IF winner <> 0 THEN
  57.                 CALL EndOfGame
  58.                 EXIT FOR
  59.             END IF
  60.         ELSEIF firstMove = computeR THEN
  61.             anotherSomewhereElse:
  62.             here = INT(RND * 9) + 1
  63.             IF INSTR(gameString$, S$(here)) <> 0 THEN GOTO anotherSomewhereElse
  64.             gameString$ = gameString$ + "O" + S$(here)
  65.             CALL PrintO(here)
  66.             winner = CheckTieOrWin
  67.             IF winner <> 0 THEN
  68.                 CALL EndOfGame
  69.                 EXIT FOR
  70.             END IF
  71.             here = GetLocation
  72.             gameString$ = gameString$ + "X" + S$(here)
  73.             PrintX (here)
  74.             winner = CheckTieOrWin
  75.             IF winner <> 0 THEN
  76.                 CALL EndOfGame
  77.                 EXIT FOR
  78.             END IF
  79.         ELSE
  80.             PRINT "What": PRINT: PRINT "          the": PRINT: PRINT "                      FUCK!!!"
  81.         END IF
  82.     NEXT eachMove
  83.     END
  85.  
  86. SUB StartTheGame
  87.     whoGoesFirst = 0
  88.     repeat:
  89.     COLOR 11, 13
  90.     CLS
  91.     a$ = "Player is X, Computer is O"
  92.     LOCATE 15, Center(a$): PRINT a$
  93.     a$ = "Who goes first?  [C]omputer or [P]layer "
  94.     LOCATE 25, Center(a$): PRINT a$;
  95.     answer$ = UCASE$(INPUT$(1))
  96.     PRINT answer$
  97.     IF answer$ <> "C" AND answer$ <> "P" AND answer$ <> "X" AND answer$ <> "O" THEN
  98.         GOTO repeat
  99.     ELSEIF answer$ = "C" OR answer$ = "O" THEN
  100.         whoGoesFirst = computeR
  101.     ELSEIF answer$ = "P" OR answer$ = "X" THEN
  102.         whoGoesFirst = playeR
  103.     END IF
  104.  
  105.     a$ = "Difficulty? [E]asy or [H]ard "
  106.     LOCATE 30, Center(a$): PRINT a$;
  107.     difficulty$ = UCASE$(INPUT$(1))
  108.     PRINT difficulty$
  109.     IF difficulty$ = "E" THEN
  110.         CALL EasyGame(whoGoesFirst)
  111.     ELSEIF difficulty$ = "H" THEN
  112.         IF whoGoesFirst = computeR THEN
  113.             CALL ComputerFirst
  114.         ELSEIF whoGoesFirst = playeR THEN
  115.             CALL PlayerFirst
  116.         ELSE
  117.             GOTO repeat
  118.         END IF
  119.     ELSE
  120.         GOTO repeat
  121.     END IF
  122.  
  124.  
  125.  
  126. SUB PrintGrid
  127.     COLOR 11, 13
  128.     CLS
  129.     FOR y = 4 TO 45
  130.         LOCATE y, 30
  131.         PRINT CHR$(219)
  132.         LOCATE y, 50
  133.         PRINT CHR$(219)
  134.     NEXT y
  135.     FOR x = 17 TO 63
  136.         LOCATE 15, x
  137.         PRINT CHR$(219)
  138.         LOCATE 30, x
  139.         PRINT CHR$(219)
  140.     NEXT x
  141.     LOCATE 9, 22: PRINT "1"
  142.     LOCATE 9, 40: PRINT "2"
  143.     LOCATE 9, 58: PRINT "3"
  144.     LOCATE 23, 22: PRINT "4"
  145.     LOCATE 23, 40: PRINT "5"
  146.     LOCATE 23, 58: PRINT "6"
  147.     LOCATE 37, 22: PRINT "7"
  148.     LOCATE 37, 40: PRINT "8"
  149.     LOCATE 37, 58: PRINT "9"
  151.  
  152. SUB PrintX (location)
  153.     x = 19: y = 4
  154.     SELECT CASE location
  155.         CASE 1
  156.             LOCATE 9, 22: PRINT " "
  157.             x = 19: y = 4
  158.         CASE 2
  159.             LOCATE 9, 40: PRINT " "
  160.             x = 36: y = 4
  161.         CASE 3
  162.             LOCATE 9, 58: PRINT " "
  163.             x = 53: y = 4
  164.         CASE 4
  165.             LOCATE 23, 22: PRINT " "
  166.             x = 19: y = 18
  167.         CASE 5
  168.             LOCATE 23, 40: PRINT " "
  169.             x = 36: y = 18
  170.         CASE 6
  171.             LOCATE 23, 58: PRINT " "
  172.             x = 53: y = 18
  173.         CASE 7
  174.             LOCATE 37, 22: PRINT " "
  175.             x = 19: y = 32
  176.         CASE 8
  177.             LOCATE 37, 40: PRINT " "
  178.             x = 36: y = 32
  179.         CASE 9
  180.             x = 53: y = 32
  181.             LOCATE 37, 58: PRINT " "
  182.     END SELECT
  183.     FOR count = 0 TO 9
  184.         CALL PLOT(x + count, y + count)
  185.     NEXT count
  186.  
  187.     CALL PLOT(x + 9, y)
  188.     CALL PLOT(x + 8, y + 1)
  189.     CALL PLOT(x + 7, y + 2)
  190.     CALL PLOT(x + 6, y + 3)
  191.     CALL PLOT(x + 5, y + 4)
  192.     CALL PLOT(x + 4, y + 5)
  193.     CALL PLOT(x + 3, y + 6)
  194.     CALL PLOT(x + 2, y + 7)
  195.     CALL PLOT(x + 1, y + 8)
  196.     CALL PLOT(x, y + 9)
  198.  
  199. SUB HLIN (xStart, xEnd, y)
  200.     FOR count = xStart TO xEnd
  201.         LOCATE y, count
  202.         PRINT CHR$(219)
  203.         _DELAY (delay)
  204.     NEXT count
  206.  
  207. SUB VLIN (y1, y2, x)
  208.     FOR count = y1 TO y2
  209.         LOCATE count, x
  210.         PRINT CHR$(219)
  211.         _DELAY (delay)
  212.     NEXT count
  214.  
  215. SUB PLOT (x, y)
  216.     LOCATE y, x
  217.     PRINT CHR$(219)
  218.     _DELAY (delay)
  220.  
  221. SUB PrintO (location)
  222.     SELECT CASE location
  223.         CASE 1
  224.             x = 20: y = 4
  225.             LOCATE 9, 22: PRINT " "
  226.         CASE 2
  227.             LOCATE 9, 40: PRINT " "
  228.             x = 38: y = 4
  229.         CASE 3
  230.             LOCATE 9, 58: PRINT " "
  231.             x = 55: y = 4
  232.         CASE 4
  233.             LOCATE 23, 22: PRINT " "
  234.             x = 20: y = 18
  235.         CASE 5
  236.             LOCATE 23, 40: PRINT " "
  237.             x = 38: y = 18
  238.         CASE 6
  239.             LOCATE 23, 58: PRINT " "
  240.             x = 55: y = 18
  241.         CASE 7
  242.             LOCATE 37, 22: PRINT " "
  243.             x = 20: y = 34
  244.         CASE 8
  245.             LOCATE 37, 40: PRINT " "
  246.             x = 38: y = 34
  247.         CASE 9
  248.             LOCATE 37, 58: PRINT " "
  249.             x = 55: y = 34
  250.     END SELECT
  251.  
  252.     CALL HLIN(x, x + 4, y)
  253.     CALL PLOT(x - 1, y + 1): CALL PLOT(x + 5, y + 1)
  254.     CALL VLIN(y + 2, y + 6, x - 2): CALL VLIN(y + 2, y + 6, x + 6)
  255.     CALL PLOT(x - 1, y + 7): CALL PLOT(x + 5, y + 7)
  256.     CALL HLIN(x, x + 4, y + 8)
  258.  
  259. SUB ComputerFirst
  260.     CALL PrintGrid
  261.     gameString$ = "O1"
  262.     CALL PrintO(1)
  263.     playersMove = GetLocation
  264.     gameString$ = gameString$ + "X" + S$(playersMove)
  265.     CALL PrintX(playersMove)
  266.     SELECT CASE gameString$
  267.         CASE "O1X2", "O1X3", "O1X6", "O1X8", "O1X9"
  268.             gameString$ = gameString$ + "O7"
  269.             CALL PrintO(7)
  270.         CASE "O1X4", "O1X5"
  271.             gameString$ = gameString$ + "O3"
  272.             CALL PrintO(3)
  273.         CASE "O1X7"
  274.             gameString$ = gameString$ + "O9"
  275.             CALL PrintO(9)
  276.     END SELECT
  277.     playersMove = GetLocation
  278.     gameString$ = gameString$ + "X" + S$(playersMove)
  279.     CALL PrintX(playersMove)
  280.     SELECT CASE gameString$
  281.         CASE "O1X2O7X3", "O1X2O7X5", "O1X2O7X6", "O1X2O7X8", "O1X2O7X9"
  282.             gameString$ = gameString$ + "O4"
  283.             CALL PrintO(4)
  284.             CALL WinLine(vertL)
  285.         CASE "O1X2O7X4"
  286.             gameString$ = gameString$ + "O9"
  287.             CALL PrintO(9)
  288.         CASE "O1X3O7X2", "O1X3O7X5", "O1X3O7X6", "O1X3O7X8", "O1X3O7X9"
  289.             gameString$ = gameString$ + "O4"
  290.             CALL PrintO(4)
  291.             CALL WinLine(vertL)
  292.         CASE "O1X3O7X4"
  293.             gameString$ = gameString$ + "O9"
  294.             CALL PrintO(9)
  295.         CASE "O1X4O3X5", "O1X4O3X6", "O1X4O3X7", "O1X4O3X8", "O1X4O3X9"
  296.             gameString$ = gameString$ + "O2"
  297.             CALL PrintO(2)
  298.             CALL WinLine(acrossTop)
  299.         CASE "O1X4O3X2"
  300.             gameString$ = gameString$ + "O5"
  301.             CALL PrintO(5)
  302.         CASE "O1X5O3X4", "O1X5O3X6", "O1X5O3X7", "O1X5O3X8", "O1X5O3X9"
  303.             gameString$ = gameString$ + "O2"
  304.             CALL PrintO(2)
  305.             CALL WinLine(acrossTop)
  306.         CASE "O1X5O3X2"
  307.             gameString$ = gameString$ + "O8"
  308.             CALL PrintO(8)
  309.         CASE "O1X6O7X2", "O1X6O7X3", "O1X6O7X5", "O1X6O7X8", "O1X6O7X9"
  310.             gameString$ = gameString$ + "O4"
  311.             CALL PrintO(4)
  312.             CALL WinLine(vertL)
  313.         CASE "O1X6O7X4"
  314.             gameString$ = gameString$ + "O5"
  315.             CALL PrintO(5)
  316.         CASE "O1X7O9X2", "O1X7O9X3", "O1X7O9X4", "O1X7O9X6", "O1X7O9X8"
  317.             gameString$ = gameString$ + "O5"
  318.             CALL PrintO(5)
  319.             CALL WinLine(diagTL)
  320.         CASE "O1X7O9X5"
  321.             gameString$ = gameString$ + "O3"
  322.             CALL PrintO(3)
  323.         CASE "O1X8O7X2", "O1X8O7X3", "O1X8O7X5", "O1X8O7X6", "O1X8O7X9"
  324.             gameString$ = gameString$ + "O4"
  325.             CALL PrintO(4)
  326.             CALL WinLine(vertL)
  327.         CASE "O1X8O7X4"
  328.             gameString$ = gameString$ + "O3"
  329.             CALL PrintO(3)
  330.         CASE "O1X9O7X2", "O1X9O7X3", "O1X9O7X5", "O1X9O7X6", "O1X9O7X8"
  331.             gameString$ = gamerstring$ + "O4"
  332.             CALL PrintO(4)
  333.             CALL WinLine(vertL)
  334.         CASE "O1X9O7X4"
  335.             gameString$ = gameString$ + "O3"
  336.             CALL PrintO(3)
  337.     END SELECT
  338.     winner = CheckTieOrWin
  339.     IF winner <> 0 THEN CALL EndOfGame
  340.     playersMove = GetLocation
  341.     gameString$ = gameString$ + "X" + S$(playersMove)
  342.     CALL PrintX(playersMove)
  343.     winner = CheckTieOrWin
  344.     IF winner <> 0 THEN CALL EndOfGame
  345.     SELECT CASE gameString$
  346.         CASE "O1X2O7X4O9X3", "O1X2O7X4O9X5", "O1X2O7X4O9X6"
  347.             gameString$ = gameString$ + "O8"
  348.             CALL PrintO(8)
  349.             CALL WinLine(acrossBot)
  350.         CASE "O1X2O7X4O9X8"
  351.             gameString$ = gameString$ + "O5"
  352.             CALL PrintO(5)
  353.             CALL WinLine(diagTL)
  354.         CASE "O1X3O7X4O9X2", "O1X3O7X4O9X5", "O1X3O7X4O9X6"
  355.             gameString$ = gameString$ + "O8"
  356.             CALL PrintO(8)
  357.             CALL WinLine(acrossBot)
  358.         CASE "O1X3O7X4O9X8"
  359.             gamesring$ = gamestr4ing$ + "O5"
  360.             CALL PrintO(5)
  361.             CALL WinLine(diagTL)
  362.         CASE "O1X4O3X2O5X6", "O1X4O3X2O5X7", "O1X4O3X2O5X8"
  363.             gameString$ = gameString$ + "O9"
  364.             CALL PrintO(9)
  365.             CALL WinLine(diagTL)
  366.         CASE "O1X4O3X2O5X9"
  367.             CALL PrintO(7)
  368.             CALL WinLine(diagBL)
  369.         CASE "O1X5O3X2O8X4"
  370.             gameString$ = gameString$ + "O6"
  371.             CALL PrintO(6)
  372.         CASE "O1X5O3X2O8X6", "O1X5O3X2O8X9"
  373.             gameString$ = gameString$ + "O4"
  374.             CALL PrintO(4)
  375.         CASE "O1X5O3X2O8X7"
  376.             gameString$ = gameString$ + "O9"
  377.             CALL PrintO(9)
  378.         CASE "O1X6O7X4O5X2", "O1X6O7X4O5X3", "O1X6O7X4O5X8"
  379.             gameString$ = gameString$ + "O9"
  380.             CALL PrintO(9)
  381.             CALL WinLine(diagTL)
  382.         CASE "O1X6O7X4O5X9"
  383.             gameString$ = gameString$ + "O3"
  384.             CALL PrintO(3)
  385.             CALL WinLine(diagBL)
  386.         CASE "O1X7O9X5O3X2", "O1X7O9X5O3X4", "O1X7O9X5O3X8"
  387.             gameString$ = gameString$ + "O6"
  388.             CALL PrintO(6)
  389.             CALL WinLine(vertR)
  390.         CASE "O1X7O9X5O3X6"
  391.             gameString$ = gameString$ + "O2"
  392.             CALL PrintO(2)
  393.             CALL WinLine(acrossTop)
  394.         CASE "O1X8O7X4O3X2", "O1X8O7X4O3X6", "O1X8O7X4O3X9"
  395.             gameString$ = gameString$ + "O5"
  396.             CALL PrintO(5)
  397.             CALL WinLine(diagBL)
  398.         CASE "O1X8O7X4O3X5"
  399.             gameString$ = gameString$ + "O2"
  400.             CALL PrintO(2)
  401.             CALL WinLine(acrossTop)
  402.         CASE "O1X9O7X4O3X2"
  403.             gameString$ = gameString$ + "O5"
  404.             CALL PrintO(5)
  405.             CALL WinLine(diagBL)
  406.         CASE "O1X9O7X4O3X5", "O1X9O7X4O3X6", "O1X9O7X4O3X8"
  407.             gameString$ = gameString$ + "O2"
  408.             CALL PrintO(2)
  409.             CALL WinLine(acrossTop)
  410.     END SELECT
  411.     winner = CheckTieOrWin
  412.     IF winner <> 0 THEN CALL EndOfGame
  413.     playersMove = GetLocation
  414.     gameString$ = gameString$ + "X" + S$(playersMove)
  415.     winner = CheckTieOrWin
  416.     IF winner <> 0 THEN CALL EndOfGame
  417.     CALL PrintX(playersMove)
  418.     SELECT CASE gameString$
  419.         CASE "O1X5O3X2O8X4O6X7" ', "O1X5O3X2O8X6O4X7"
  420.             gameString$ = gamesring$ + "O9"
  421.             CALL PrintO(9)
  422.             CALL WinLine(vertR)
  423.         CASE "O1X5O3X2O8X4O6X9"
  424.             gameString$ = gameString$ + "O7"
  425.             CALL PrintO(8)
  426.         CASE "O1X5O3X2O8X6O4X7"
  427.             gameString$ = gameString$ + "O9"
  428.             CALL PrintO(9)
  429.         CASE "O1X5O3X2O8X6O4X9"
  430.             gameString$ = gameString$ + "O7"
  431.             CALL PrintO(7)
  432.             CALL WinLine(vertL)
  433.         CASE "O1X5O3X2O8X9O4X7"
  434.             gameString$ = gameString$ + "O6"
  435.             CALL PrintO(6)
  436.         CASE "O1X5O3X2O8X7O9X4"
  437.             gameString$ = gameString$ + "O6"
  438.             CALL PrintO(6)
  439.             CALL WinLine(vertR)
  440.         CASE "O1X5O3X2O8X7O9X6"
  441.             gameString$ = gameString$ + "O4"
  442.             CALL PrintO(4)
  443.         CASE "O1X5O3X2O8X9O4X6"
  444.             gameString$ = gameString$ + "O7"
  445.             CALL PrintO(7)
  446.             CALL WinLine(vertL)
  447.     END SELECT
  448.     winner = CheckTieOrWin
  449.     IF winner <> 0 THEN CALL EndOfGame
  451.  
  452. SUB EndOfGame
  453.     _DELAY (1)
  454.     repeat:
  455.     CLS
  456.     COLOR 0, 13
  457.     a$ = "Do you want to watch a replay? (Y / N) "
  458.     LOCATE 20, Center(a$)
  459.     PRINT a$;
  460.     replay$ = UCASE$(INPUT$(1))
  461.     PRINT replay$
  462.     IF replay$ <> "Y" AND replay$ <> "N" THEN GOTO repeat
  463.     IF replay$ = "Y" THEN CALL WatchReplay
  464.     a$ = "Play again? (Y / N) "
  465.     LOCATE 30, Center(a$)
  466.     COLOR 0, 13: PRINT a$;
  467.     tryAgain:
  468.     again$ = UCASE$(INPUT$(1))
  469.     PRINT again$
  470.     IF again$ <> "Y" AND again$ <> "N" THEN GOTO tryAgain
  471.     IF again$ = "Y" THEN CALL StartTheGame
  473.  
  474. SUB WatchReplay
  475.     CALL PrintGrid
  476.     FOR countThroughString = 1 TO LEN(gameString$) STEP 2
  477.         mover$ = MID$(gameString$, countThroughString, 1)
  478.         play$ = MID$(gameString$, countThroughString + 1, 1)
  479.         IF mover$ = "X" THEN
  480.             CALL PrintX(VAL(play$))
  481.         ELSEIF mover$ = "O" THEN
  482.             CALL PrintO(VAL(play$))
  483.         END IF
  484.         _DELAY (0.8)
  485.     NEXT countThroughString
  486.     winner = CheckTieOrWin
  487.     IF winner <> 0 THEN CALL EndOfGame
  489.  
  490. FUNCTION CheckTieOrWin
  491.     'allFilled = TRUE
  492.     rtn = 0
  493.     who$ = "X"
  494.     IF INSTR(gameString$, who$ + "1") <> 0 AND INSTR(gameString$, who$ + "2") <> 0 AND INSTR(gameString$, who$ + "3") <> 0 THEN
  495.         CALL WinLine(acrossTop)
  496.         rtn = xWon
  497.     ELSEIF INSTR(gameString$, who$ + "4") <> 0 AND INSTR(gameString$, who$ + "5") <> 0 AND INSTR(gameString$, who$ + "6") <> 0 THEN
  498.         CALL WinLine(acrossMid)
  499.         rtn = xWon
  500.     ELSEIF INSTR(gameString$, who$ + "7") <> 0 AND INSTR(gameString$, who$ + "8") <> 0 AND INSTR(gameString$, who$ + "9") <> 0 THEN
  501.         CALL WinLine(acrossBot)
  502.         rtn = xWon
  503.     ELSEIF INSTR(gameString$, who$ + "1") <> 0 AND INSTR(gameString$, who$ + "4") <> 0 AND INSTR(gameString$, who$ + "7") <> 0 THEN
  504.         CALL WinLine(vertL)
  505.         rtn = xWon
  506.     ELSEIF INSTR(gameString$, who$ + "2") <> 0 AND INSTR(gameString$, who$ + "5") <> 0 AND INSTR(gameString$, who$ + "8") <> 0 THEN
  507.         CALL WinLine(vertM)
  508.         rtn = xWon
  509.     ELSEIF INSTR(gameString$, who$ + "3") <> 0 AND INSTR(gameString$, who$ + "6") <> 0 AND INSTR(gameString$, who$ + "9") <> 0 THEN
  510.         CALL WinLine(vertR)
  511.         rtn = xWon
  512.     ELSEIF INSTR(gameString$, who$ + "1") <> 0 AND INSTR(gameString$, who$ + "5") <> 0 AND INSTR(gameString$, who$ + "9") <> 0 THEN
  513.         CALL WinLine(diagTL)
  514.         rtn = xWon
  515.     ELSEIF INSTR(gameString$, who$ + "3") <> 0 AND INSTR(gameString$, who$ + "5") <> 0 AND INSTR(gameString$, who$ + "7") <> 0 THEN
  516.         CALL WinLine(diagBL)
  517.         rtn = xWon
  518.     END IF
  519.     who$ = "O"
  520.     IF INSTR(gameString$, who$ + "1") <> 0 AND INSTR(gameString$, who$ + "2") <> 0 AND INSTR(gameString$, who$ + "3") <> 0 THEN
  521.         CALL WinLine(acrossTop)
  522.         rtn = oWon
  523.     ELSEIF INSTR(gameString$, who$ + "4") <> 0 AND INSTR(gameString$, who$ + "5") <> 0 AND INSTR(gameString$, who$ + "6") <> 0 THEN
  524.         WinLine (acrossMid)
  525.         rtn = oWon
  526.     ELSEIF INSTR(gameString$, who$ + "7") <> 0 AND INSTR(gameString$, who$ + "8") <> 0 AND INSTR(gameString$, who$ + "9") <> 0 THEN
  527.         WinLine (acrossBot)
  528.         rtn = oWon
  529.     ELSEIF INSTR(gameString$, who$ + "1") <> 0 AND INSTR(gameString$, who$ + "4") <> 0 AND INSTR(gameString$, who$ + "7") <> 0 THEN
  530.         WinLine (vertL)
  531.         rtn = oWon
  532.     ELSEIF INSTR(gameString$, who$ + "2") <> 0 AND INSTR(gameString$, who$ + "5") <> 0 AND INSTR(gameString$, who$ + "8") <> 0 THEN
  533.         CALL WinLine(vertM)
  534.         rtn = oWon
  535.     ELSEIF INSTR(gameString$, who$ + "3") <> 0 AND INSTR(gameString$, who$ + "6") <> 0 AND INSTR(gameString$, who$ + "9") <> 0 THEN
  536.         CALL WinLine(vertR)
  537.         rtn = oWon
  538.     ELSEIF INSTR(gameString$, who$ + "1") <> 0 AND INSTR(gameString$, who$ + "5") <> 0 AND INSTR(gameString$, who$ + "9") <> 0 THEN
  539.         CALL WinLine(diagTL)
  540.         rtn = oWon
  541.     ELSEIF INSTR(gameString$, who$ + "3") <> 0 AND INSTR(gameString$, who$ + "5") <> 0 AND INSTR(gameString$, who$ + "7") <> 0 THEN
  542.         WinLine (diagBL)
  543.         rtn = oWon
  544.     ELSEIF LEN(gameString$) = 18 THEN
  545.         rtn = tie
  546.     END IF
  547.     IF rtn <> 0 THEN
  548.         CALL EndOfGame
  549.     ELSE
  550.         CheckTieOrWin = rtn
  551.     END IF
  553.  
  554. SUB PlayerFirst
  555.     CALL PrintGrid
  556.     playerMove = GetLocation
  557.     gameString$ = "X" + S$(playerMove)
  558.     PrintX (playerMove)
  559.     SELECT CASE playerMove
  560.         CASE 1
  561.             CALL X1
  562.         CASE 2
  563.             CALL X2
  564.         CASE 3
  565.             CALL X3
  566.         CASE 4
  567.             CALL X4
  568.         CASE 5
  569.             CALL X5
  570.         CASE 6
  571.             CALL X6
  572.         CASE 7
  573.             CALL X7
  574.         CASE 8
  575.             CALL X8
  576.         CASE 9
  577.             CALL X9
  578.     END SELECT
  579.     CALL EndOfGame
  581.  
  582. SUB X1
  583.     gameString$ = gameString$ + "O5"
  584.     CALL PrintO(5)
  585.     playerMove = GetLocation
  586.     gameString$ = gameString$ + "X" + S$(playerMove)
  587.     CALL PrintX(playerMove)
  588.     SELECT CASE gameString$
  589.         CASE "X1O5X2"
  590.             gameString$ = gameString$ + "O3"
  591.             CALL PrintO(3)
  592.         CASE "X1O5X3"
  593.             gameString$ = gameString$ + "O2"
  594.             CALL PrintO(2)
  595.         CASE "X1O5X4"
  596.             gameString$ = gameString$ + "O7"
  597.             CALL PrintO(7)
  598.         CASE "X1O5X6"
  599.             gameString$ = gameString$ + "O3"
  600.             CALL PrintO(3)
  601.         CASE "X1O5X7"
  602.             gameString$ = gameString$ + "O4"
  603.             CALL PrintO(4)
  604.         CASE "X1O5X8"
  605.             gameString$ = gameString$ + "O4"
  606.             CALL PrintO(4)
  607.         CASE "X1O5X9"
  608.             gameString$ = gameString$ + "O2"
  609.             CALL PrintO(2)
  610.     END SELECT
  611.     playerMove = GetLocation
  612.     '    COLOR 15, 0: LOCATE 46, 10: PRINT gameString$: COLOR 11, 13: CALL P(TRUE)
  613.     gameString$ = gameString$ + "X" + S$(playerMove)
  614.     CALL PrintX(playerMove)
  615.     SELECT CASE gameString$
  616.         CASE "X1O5X2O3X4", "X1O5X2O3X6", "X1O5X2O3X8", "X1O5X2O3X9"
  617.             gameString$ = gameString$ + "O7"
  618.             CALL PrintO(7)
  619.             CALL WinLine(diagBL)
  620.         CASE "X1O5X2O3X7"
  621.             gameString$ = gameString$ + "O4"
  622.             CALL PrintO(4)
  623.         CASE "X1O5X3O2X4", "X1O5X3O2X6", "X1O5X3O2X7", "X1O5X3O2X9"
  624.             gameString$ = gameString$ + "O8"
  625.             CALL PrintO(8)
  626.             CALL WinLine(vertM)
  627.         CASE "X1O5X3O2X8"
  628.             gameString$ = gameString$ + "O4"
  629.             CALL PrintO(4)
  630.         CASE "X1O5X4O7X2", "X1O5X4O7X6", "X1O5X4O7X8", "X1O5X4O7X9"
  631.             gameString$ = gameString$ + "O3"
  632.             CALL PrintO(3)
  633.             CALL WinLine(diagBL)
  634.         CASE "X1O5X4O7X3"
  635.             gameString$ = gameString$ + "O2"
  636.             CALL PrintO(2)
  637.         CASE "X1O5X6O3X2", "X1O5X6O3X4", "X1O5X6O3X8", "X1O5X6O3X9"
  638.             gameString$ = gameString$ + "O7"
  639.             CALL PrintO(7)
  640.             CALL WinLine(diagBL)
  641.         CASE "X1O5X6O3X7"
  642.             gameString$ = gameString$ + "O4"
  643.             CALL PrintO(4)
  644.         CASE "X1O5X7O4X2", "X1O5X7O4X3", "X1O5X7O4X8", "X1O5X7O4X9"
  645.             gameString$ = gameString$ + "O6"
  646.             CALL PrintO(6)
  647.             CALL WinLine(acrossMid)
  648.         CASE "X1O5X7O4X6"
  649.             gameString$ = gameString$ + "O2"
  650.             CALL PrintO(2)
  651.         CASE "X1O5X8O4X2", "X1O5X8O4X3", "X1O5X8O4X7", "X1O5X8O4X9"
  652.             gameString$ = gameString$ + "O6"
  653.             CALL PrintO(6)
  654.             CALL WinLine(acrossMid)
  655.         CASE "X1O5X8O4X6"
  656.             gameString$ = gameString$ + "O3"
  657.             CALL PrintO(3)
  658.         CASE "X1O5X9O2X3", "X1O5X9O2X4", "X1O5X9O2X6", "X1O5X9O2X7"
  659.             gameString$ = gameString$ + "O8"
  660.             CALL PrintO(8)
  661.             CALL WinLine(vertM)
  662.         CASE "X1O5X9O2X8"
  663.             gameString$ = gameString$ + "O7"
  664.             CALL PrintO(7)
  665.     END SELECT
  666.     playerMove = GetLocation
  667.     gameString$ = gameString$ + "X" + S$(playerMove)
  668.     CALL PrintX(playerMove)
  669.     SELECT CASE gameString$
  670.         CASE "X1O5X2O3X7O4X8", "X1O5X2O3X7O4X9"
  671.             gameString$ = gameString$ + "O6"
  672.             CALL PrintO(6)
  673.             CALL WinLine(acrossMid)
  674.         CASE "X1O5X2O3X7O4X6"
  675.             gameString$ = gameString$ + "O8"
  676.             CALL PrintO(8)
  677.         CASE "X1O5X3O2X8O4X7", "X1O5X3O2X8O4X9"
  678.             gameString$ = gameString$ + "O6"
  679.             CALL PrintO(6)
  680.             CALL WinLine(acrossMid)
  681.         CASE "X1O5X3O2X8O4X6"
  682.             gameString$ = gameString$ + "O9"
  683.             CALL PrintO(9)
  684.         CASE "X1O5X4O7X3O2X6", "X1O5X4O7X3O2X9"
  685.             gameString$ = gameString$ + "O8"
  686.             CALL PrintO(8)
  687.             CALL WinLine(vertM)
  688.         CASE "X1O5X4O7X3O2X8"
  689.             gameString$ = gameString$ + "O6"
  690.             CALL PrintO(6)
  691.         CASE "X1O5X6O3X7O4X2", "X1O5X6O3X7O4X9"
  692.             gameString$ = gameString$ + "O8"
  693.             CALL PrintO(8)
  694.         CASE "X1O5X6O3X7O4X8"
  695.             gameString$ = gameString$ + "O9"
  696.             CALL PrintO(9)
  697.         CASE "X1O5X7O4X6O2X3", "X1O5X7O4X6O2X9"
  698.             gamest4ring$ = gameastring$ + "O8"
  699.             CALL PrintO(8)
  700.             CALL WinLine(vertM)
  701.         CASE "X1O5X7O4X6O2X8"
  702.             gameString$ = gameString$ + "O9"
  703.             CALL PrintO(9)
  704.         CASE "X1O5X8O4X6O3X2", "X1O5X8O4X6O3X9"
  705.             gameString$ = gameString$ + "O7"
  706.             CALL PrintO(7)
  707.             CALL WinLine(diagBL)
  708.         CASE "X1O5X8O4X6O3X7"
  709.             gameString$ = gameString$ + "O9"
  710.             CALL PrintO(9)
  711.         CASE "X1O5X9O2X8O7X4", "X1O5X9O2X8O7X6"
  712.             gameString$ = gameString$ + "O3"
  713.             CALL PrintO(3)
  714.             CALL WinLine(diagBL)
  715.         CASE "X1O5X9O2X8O7X3"
  716.             gameString$ = gameString$ + "O6"
  717.             CALL PrintO(6)
  718.     END SELECT
  719.     playerMove = GetLocation
  720.     gameString$ = gameString$ + "X" + S$(playerMove)
  721.     CALL PrintX(playerMove)
  723.  
  724. SUB WinLine (direction)
  725.     COLOR 10, 13
  726.     SELECT CASE direction
  727.         CASE acrossTop
  728.             CALL HLIN(16, 62, 9)
  729.         CASE acrossMid
  730.             CALL HLIN(16, 62, 23)
  731.         CASE acrossBot
  732.             CALL HLIN(16, 62, 37)
  733.         CASE vertL
  734.             CALL VLIN(2, 44, 22)
  735.         CASE vertM
  736.             CALL VLIN(2, 44, 40)
  737.         CASE vertR
  738.             CALL VLIN(2, 44, 57)
  739.         CASE diagTL
  740.             FOR count = 0 TO 40
  741.                 CALL PLOT(count + 21, count + 4)
  742.             NEXT count
  743.         CASE diagBL
  744.             y = 42 '48
  745.             FOR count = 0 TO 40
  746.                 CALL PLOT(count + 21, y)
  747.                 y = y - 1
  748.             NEXT count
  749.     END SELECT
  751.  
  752. SUB X2
  753.     gameString$ = gameString$ + "O5"
  754.     CALL PrintO(5)
  755.     playerMove = GetLocation
  756.     gameString$ = gameString$ + "X" + S$(playerMove)
  757.     CALL PrintX(playerMove)
  758.     SELECT CASE gameString$
  759.         CASE "X2O5X1"
  760.             gameString$ = gameString$ + "O3"
  761.             CALL PrintO(3)
  762.         CASE "X2O5X3"
  763.             gameString$ = gameString$ + "O1"
  764.             CALL PrintO(1)
  765.         CASE "X2O5X4"
  766.             gameString$ = gameString$ + "O1"
  767.             CALL PrintO(1)
  768.         CASE "X2O5X6"
  769.             gameString$ = gameString$ + "O3"
  770.             CALL PrintO(3)
  771.         CASE "X2O5X7"
  772.             gameString$ = gameString$ + "O1"
  773.             CALL PrintO(1)
  774.         CASE "X2O5X8"
  775.             gameString$ = gameString$ + "O1"
  776.             CALL PrintO(1)
  777.         CASE "X2O5X9"
  778.             gameString$ = gameString$ + "O3"
  779.             CALL PrintO(3)
  780.     END SELECT
  781.     playerMove = GetLocation
  782.     gameString$ = gameString$ + "X" + S$(playerMove)
  783.     CALL PrintX(playerMove)
  784.     SELECT CASE gameString$
  785.         CASE "X2O5X1O3X4", "X2O5X1O3X6", "X2O5X1O3X8", "X2O5X1O3X9"
  786.             gameString$ = gameString$ + "O7"
  787.             CALL PrintO(7)
  788.             CALL WinLine(diagBL)
  789.         CASE "X2O5X1O3X7"
  790.             gameString$ = gameString$ + "O4"
  791.             CALL PrintO(4)
  792.         CASE "X2O5X3O1X4", "X2O5X3O1X6", "X2O5X3O1X7", "X2O5X3O1X8"
  793.             gameString$ = gameString$ + "O9"
  794.             CALL PrintO(9)
  795.             CALL WinLine(diagTL)
  796.         CASE "X2O5X3O1X9"
  797.             gameString$ = gameString$ + "O6"
  798.             CALL PrintO(6)
  799.         CASE "X2O5X4O1X3", "X2O5X4O1X6", "X2O5X4O1X7", "X2O5X4O1X8"
  800.             gameString$ = gameString$ + "O9"
  801.             CALL PrintO(9)
  802.             CALL WinLine(diagTL)
  803.         CASE "X2O5X4O1X9"
  804.             gameString$ = gameString$ + "O3"
  805.             CALL PrintO(3)
  806.         CASE "X2O5X6O3X1", "X2O5X6O3X4", "X2O5X6O3X8", "X2O5X6O3X9"
  807.             gameString$ = gameString$ + "O7"
  808.             CALL PrintO(7)
  809.             CALL WinLine(diagBL)
  810.         CASE "X2O5X6O3X7"
  811.             gameString$ = gameString$ + "O1"
  812.             CALL PrintO(1)
  813.         CASE "X2O5X7O1X3", "X2O5X7O1X4", "X2O5X7O1X6", "X2O5X7O1X8"
  814.             gameString$ = gameString$ + "O9"
  815.             CALL PrintO(9)
  816.             CALL WinLine(diagTL)
  817.         CASE "X2O5X7O1X9"
  818.             gameString$ = gameString$ + "O8"
  819.             CALL PrintO(8)
  820.         CASE "X2O5X8O1X3", "X2O5X8O1X4", "X2O5X8O1X6", "X2O5X8O1X7"
  821.             gameString$ = gameString$ + "O9"
  822.             CALL PrintO(9)
  823.             CALL WinLine(diagTL)
  824.         CASE "X2O5X8O1X9"
  825.             gameString$ = gameString$ + "O7"
  826.             CALL PrintO(7)
  827.         CASE "X2O5X9O3X1", "X2O5X9O3X4", "X2O5X9O3X6", "X2O5X9O3X8"
  828.             gameString$ = gameString$ + "O7"
  829.             CALL PrintO(7)
  830.             CALL WinLine(diagBL)
  831.         CASE "X2O5X9O3X7"
  832.             gameString$ = gameString$ + "O8"
  833.             CALL PrintO(8)
  834.     END SELECT
  835.     playerMove = GetLocation
  836.     gameString$ = gameString$ + "X" + S$(playerMove)
  837.     CALL PrintX(playerMove)
  838.     SELECT CASE gameString$
  839.         CASE "X2O5X1O3X7O4X8", "X2O5X1O3X7O4X9"
  840.             gameString$ = gameString$ + "X6"
  841.             CALL PrintO(6)
  842.             CALL WinLine(acrossMid)
  843.         CASE "X2O5X1O3X7O4X6"
  844.             gameString$ = gameString$ + "O8"
  845.             CALL PrintO(8)
  846.         CASE "X2O5X3O1X9O6X7", "X2O5X3O1X9O6X8"
  847.             gameString$ = gameString$ + "4"
  848.             CALL PrintO(4)
  849.             CALL WinLine(acrossMid)
  850.         CASE "X2O5X3O1X9O6X4"
  851.             gameString$ = gameString$ + "O7"
  852.             CALL PrintO(7)
  853.         CASE "X2O5X4O1X9O3X6", "X2O5X4O1X9O3X8"
  854.             gameString$ = gameString$ + "O7"
  855.             CALL PrintO(7)
  856.             CALL WinLine(diagBL)
  857.         CASE "X2O5X4O1X9O3X7"
  858.             gameString$ = gameString$ + "O8"
  859.             CALL PrintO(8)
  860.         CASE "X2O5X6O3X7O1X4", "X2O5X6O3X7O1X8"
  861.             gameString$ = gameString$ + "O9"
  862.             CALL PrintO(9)
  863.             CALL WinLine(diagTL)
  864.         CASE "X2O5X6O3X7O1X9"
  865.             gameString$ = gameString$ + "O8"
  866.             CALL PrintO(8)
  867.         CASE "X2O5X7O1X9O8X3"
  868.             gameString$ = gameString$ + "O6"
  869.             CALL PrintO(6)
  870.         CASE "X2O5X7O1X9O8X6"
  871.             gameString$ = gameString$ + "O3"
  872.             CALL PrintO(3)
  873.         CASE "X2O5X7O1X9O8X4"
  874.             gameString$ = gasmestring$ + "O3"
  875.             CALL PrintO(3)
  876.         CASE "X2O5X8O1X9O7X4", "X2O5X8O1X9O7X6"
  877.             gameString$ = gameString$ + "O3"
  878.             CALL PrintO(3)
  879.             CALL WinLine(diagBL)
  880.         CASE "X2O5X8O1X9O7X3"
  881.             gameString$ = gameString$ + "O4"
  882.             CALL PrintO(4)
  883.             CALL WinLine(vertL)
  884.         CASE "X2O5X9O3X7O8X1"
  885.             gameString$ = gameString$ + "O4"
  886.             CALL PrintO(4)
  887.         CASE "X2O5X9O3X7O8X4"
  888.             gameString$ = gameString$ + "O1"
  889.             CALL PrintO(1)
  890.         CASE "X2O5X9O3X7O8X6"
  891.             gameString$ = gameString$ + "O1"
  892.             CALL PrintO(1)
  893.     END SELECT
  894.     playerMove = GetLocation
  895.     gameString$ = gameString$ + "X" + S$(playerMove)
  896.     CALL PrintX(playerMove)
  898.  
  899. SUB X3
  900.     gameString$ = gameString$ + "O5"
  901.     CALL PrintO(5)
  902.     playerMove = GetLocation
  903.     gameString$ = gameString$ + "X" + S$(playerMove)
  904.     SELECT CASE gameString$
  905.         CASE "X3O5X1"
  906.             gameString$ = gameString$ + "O2"
  907.             CALL PrintO(2)
  908.         CASE "X3O5X2"
  909.             gameString$ = gameString$ + "O1"
  910.             CALL PrintO(1)
  911.         CASE "X3O5X4"
  912.             gameString$ = gameString$ + "O1"
  913.             CALL PrintO(1)
  914.         CASE "X3O5X6"
  915.             gameString$ = gameString$ + "O9"
  916.             CALL PrintO(9)
  917.         CASE "X3O5X7"
  918.             gameString$ = gameString$ + "O2"
  919.             CALL PrintO(2)
  920.         CASE "X3O5X8"
  921.             gameString$ = gameString$ + "O9"
  922.             CALL PrintO(9)
  923.         CASE "X3O5X9"
  924.             gameString$ = gameString$ + "O6"
  925.             CALL PrintO(6)
  926.     END SELECT
  927.     playerMove = GetLocation
  928.     gameString$ = gameString$ + "X" + S$(playerMove)
  929.     SELECT CASE gameString$
  930.         CASE "X3O5X1O2X4", "X3O5X1O2X6", "X3O5X1O2X7", "X3O5X1O2X9"
  931.             gameString$ = gameString$ + "O8"
  932.             CALL PrintO(8)
  933.             CALL WinLine(vertM)
  934.         CASE "X3O5X1O2X8" '********
  935.             gameString$ = gameString$ + "O4"
  936.             CALL PrintO(4)
  937.         CASE "X3O5X2O1X4", "X3O5X2O1X6", "X3O5X2O1X7", "X3O5X2O1X8"
  938.             gameString$ = gameString$ + "O9"
  939.             CALL PrintO(9)
  940.             CALL WinLine(diagTL)
  941.         CASE "X3O5X2O1X9" ' ***************
  942.             gameString$ = gameString$ + "O6"
  943.             CALL PrintO(6)
  944.         CASE "X3O5X4O1X2", "X3O5X4O1X6", "X3O5X4O1X7", "X3O5X4O1X8"
  945.             gameString$ = gamestgring$ + "O9"
  946.             CALL PrintO(9)
  947.             CALL WinLine(diagTL)
  948.         CASE "X3O5X4O1X9" '***********
  949.             gameString$ = gameString$ + "O6"
  950.             CALL PrintO(6)
  951.         CASE "X3O5X6O9X2", "X3O5X6O9X4", "X3O5X6O9X7", "X3O5X6O9X8"
  952.             gameString$ = gameString$ + "O1"
  953.             CALL PrintO(1)
  954.             CALL WinLine(diagTL)
  955.         CASE "X3O5X6O9X1" '***********
  956.             gameString$ = gameString$ + "O2"
  957.             CALL PrintO(2)
  958.         CASE "X3O5X7O2X1", "X3O5X7O2X4", "X3O5X7O2X6", "X3O5X7O2X9"
  959.             gameString$ = gameString$ + "O8"
  960.             CALL PrintO(8)
  961.             CALL WinLine(vertM)
  962.         CASE "X3O5X7O2X8" '*********
  963.             gameString$ = gameString$ + "O9"
  964.             CALL PrintO(9)
  965.         CASE "X3O5X8O9X2", "X3O5X8O9X4", "X3O5X8O9X6", "X3O5X8O9X7"
  966.             gameString$ = gameString$ + "O1"
  967.             CALL PrintO(1)
  968.             CALL WinLine(diagTL)
  969.         CASE "X3O5X8O9X1" '************
  970.             gameString$ = gameString$ + "O2"
  971.             CALL PrintO(2)
  972.         CASE "X3O5X9O6X1", "X3O5X9O6X2", "X3O5X9O6X7", "X3O5X9O6X8"
  973.             gameString$ = gameString$ + "O4"
  974.             CALL PrintO(4)
  975.             CALL WinLine(acrossMid)
  976.         CASE "X3O5X9O6X4" '*******
  977.             gameString$ = gameString$ + "O2"
  978.             CALL PrintO(2)
  979.     END SELECT
  980.     playerMove = GetLocation
  981.     gameString$ = gameString$ + "X" + S$(playerMove)
  982.     SELECT CASE gameString$
  983.         CASE "X3O5X1O2X8O4X7", "X3O5X1O2X8O4X9"
  984.             gameString$ = gameString$ + "O6"
  985.             CALL PrintO(6)
  986.             CALL WinLine(acrossMid)
  987.         CASE "X3O5X1O2X8O4X6"
  988.             gameString$ = gameString$ + "O9"
  989.             CALL PrintO(9)
  990.         CASE "X3O5X2O1X9O6X7", "X3O5X2O1X9O6X8"
  991.             gameString$ = gameString$ + "O4"
  992.             CALL PrintO(4)
  993.             CALL WinLine(acrossMid)
  994.         CASE "X3O5X2O1X9O6X4"
  995.             gameString$ = gameString$ + "O7"
  996.             CALL PrintO(7)
  997.         CASE "X3O5X4O1X9O6X2", "X3O5X4O1X9O6X7"
  998.             gameString$ = gameString$ + "O8"
  999.             CALL PrintO(8)
  1000.         CASE "X3O5X4O1X9O6X8"
  1001.             gameString$ = gameString$ + "O7"
  1002.             CALL PrintO(7)
  1003.         CASE "X3O5X6O9X1O2X4", "X3O5X6O9X1O2X7"
  1004.             gameString$ = gameString$ + "O8"
  1005.             CALL PrintO(8)
  1006.             CALL WinLine(vertM)
  1007.         CASE "X3O5X6O9X1O2X8"
  1008.             gameString$ = gameString$ + "O4"
  1009.             CALL PrintO(4)
  1010.         CASE "X3O5X7O2X8O9X4", "X3O5X7O2X8O9X6"
  1011.             gameString$ = gamest5ring$ + "O1"
  1012.             CALL PrintO(1)
  1013.             CALL WinLine(diagTL)
  1014.         CASE "X3O5X7O2X8O9X1"
  1015.             gameString$ = gameString$ + "O4"
  1016.             CALL PrintO(4)
  1017.         CASE "X3O5X8O9X1O2X4", "X3O5X8O9X1O2X6"
  1018.             gameString$ = gameString$ + "O7"
  1019.             CALL PrintO(7)
  1020.         CASE "X3O5X8O9X1O2X7"
  1021.             gameString$ = gameString$ + "O4"
  1022.             CALL PrintO(4)
  1023.         CASE "X3O5X9O6X4O2X1", "X3O5X9O6X4O2X7"
  1024.             gameString$ = gameString$ + "O8"
  1025.             CALL PrintO(8)
  1026.             CALL WinLine(vertM)
  1027.         CASE "X3O5X9O6X4O2X8"
  1028.             gameString$ = gameString$ + "O7"
  1029.             CALL PrintO(7)
  1030.     END SELECT
  1031.     playerMove = GetLocation
  1032.     gameString$ = gameString$ + "X" + S$(playerMove)
  1033.  
  1035.  
  1036. SUB X4
  1037.     gameString$ = gameString$ + "O5"
  1038.     CALL PrintO(5)
  1039.     playerMove = GetLocation
  1040.     gameString$ = gameString$ + "X" + S$(playerMove)
  1041.     SELECT CASE gameString$
  1042.         CASE "X4O5X1"
  1043.             gameString$ = gameString$ + "O7"
  1044.             CALL PrintO(7)
  1045.         CASE "X4O5X2"
  1046.             gameString$ = gameString$ + "O1"
  1047.             CALL PrintO(1)
  1048.         CASE "X4O5X3"
  1049.             gameString$ = gameString$ + "O1"
  1050.             CALL PrintO(1)
  1051.         CASE "X4O5X6"
  1052.             gameString$ = gameString$ + "O1"
  1053.             CALL PrintO(1)
  1054.         CASE "X4O5X7"
  1055.             gameString$ = gameString$ + "O1"
  1056.             CALL PrintO(1)
  1057.         CASE "X4O5X8"
  1058.             gameString$ = gameString$ + "O7"
  1059.             CALL PrintO(7)
  1060.         CASE "X4O5X9"
  1061.             gameString$ = gameString$ + "O7"
  1062.             CALL PrintO(7)
  1063.     END SELECT
  1064.     playerMove = GetLocation
  1065.     gameString$ = gameString$ + "X" + S$(playerMove)
  1066.     SELECT CASE gameString$
  1067.         CASE "X4O5X1O7X2", "X4O5X1O7X6", "X4O5X1O7X8", "X4O5X1O7X9"
  1068.             gameString$ = gameString$ + "O3"
  1069.             CALL PrintO(3)
  1070.             CALL WinLine(diagBL)
  1071.         CASE "X4O5X1O7X3" '***********
  1072.             gameString$ = gameString$ + "O2"
  1073.             CALL PrintO(2)
  1074.         CASE "X4O5X2O1X3", "X4O5X2O1X6", "X4O5X2O1X7", "X4O5X2O1X8"
  1075.             gameString$ = gameString$ + "O9"
  1076.             CALL PrintO(9)
  1077.             CALL WinLine(diagTL)
  1078.         CASE "X4O5X2O1X9" '*************
  1079.             gameString$ = gameString$ + "O3"
  1080.             CALL PrintO(3)
  1081.         CASE "X4O5X3O1X2", "X4O5X3O1X6", "X4O5X3O1X7", "X4O5X3O1X8"
  1082.             gameString$ = gameString$ + "O9"
  1083.             CALL PrintO(9)
  1084.             CALL WinLine(diagTL)
  1085.         CASE "X4O5X3O1X9" '**************
  1086.             gameString$ = gameString$ + "O6"
  1087.             CALL PrintO(6)
  1088.         CASE "X4O5X6O1X2", "X4O5X6O1X3", "X4O5X6O1X7", "X4O5X6O1X8"
  1089.             gameString$ = gameString$ + "O9"
  1090.             CALL PrintO(9)
  1091.             CALL WinLine(diagTL)
  1092.         CASE "X4O5X6O1X9" '****************
  1093.             gameString$ = gameString$ + "O3"
  1094.             CALL PrintO(3)
  1095.         CASE "X4O5X7O1X2", "X4O5X7O1X3", "X4O5X7O1X6", "X4O5X7O1X8"
  1096.             gameString$ = gameString$ + "O9"
  1097.             CALL PrintO(9)
  1098.             CALL WinLine(diagTL)
  1099.         CASE "X4O5X7O1X9" '********************
  1100.             gameString$ = gameString$ + "O8"
  1101.             CALL PrintO(8)
  1102.         CASE "X4O5X8O7X1", "X4O5X8O7X2", "X4O5X8O7X6", "X4O5X8O7X9"
  1103.             gameString$ = gameString$ + "O3"
  1104.             CALL PrintO(3)
  1105.             CALL WinLine(diagBL)
  1106.         CASE "X4O5X8O7X3" '********************
  1107.             gameString$ = gameString$ + "O1"
  1108.             CALL PrintO(1)
  1109.         CASE "X4O5X9O7X1", "X4O5X9O7X2", "X4O5X9O7X6", "X4O5X9O7X8"
  1110.             gameString$ = gameString$ + "O3"
  1111.             CALL PrintO(3)
  1112.             CALL WinLine(diagBL)
  1113.         CASE "X4O5X9O7X3" '****************
  1114.             gameString$ = gameString$ + "O6"
  1115.             CALL PrintO(6)
  1116.     END SELECT
  1117.     playerMove = GetLocation
  1118.     gameString$ = gameString$ + "X" + S$(playerMove)
  1119.     SELECT CASE gameString$
  1120.         CASE "X4O5X1O7X3O2X6", "X4O5X1O7X3O2X9"
  1121.             gameString$ = gameString$ + "O8"
  1122.             CALL PrintO(8)
  1123.             CALL WinLine(vertM)
  1124.         CASE "X4O5X1O7X3O2X8"
  1125.             gameString$ = gameString$ + "O6"
  1126.             CALL PrintO(6)
  1127.         CASE "X4O5X2O1X9O3X6", "X4O5X2O1X9O3X8"
  1128.             gameString$ = gameString$ + "O7"
  1129.             CALL PrintO(7)
  1130.             CALL WinLine(diagBL)
  1131.         CASE "X4O5X2O1X9O3X7"
  1132.             gameString$ = gameString$ + "O8"
  1133.             CALL PrintO(8)
  1134.         CASE "X4O5X3O1X9O6X2", "X4O5X3O1X9O6X7"
  1135.             gameString$ = gameString$ + "O8"
  1136.             CALL PrintO(8)
  1137.         CASE "X4O5X3O1X9O6X8"
  1138.             gameString$ = gameString$ + "O7"
  1139.             CALL PrintO(7)
  1140.         CASE "X4O5X6O1X9O3X2", "X4O5X6O1X9O3X8"
  1141.             gameString$ = gameString$ + "O7"
  1142.             CALL PrintO(7)
  1143.             CALL WinLine(diagBL)
  1144.         CASE "X4O5X6O1X9O3X7"
  1145.             gameString$ = gameString$ + "O2"
  1146.             CALL PrintO(2)
  1147.             CALL WinLine(acrossTop)
  1148.         CASE "X4O5X7O1X9O8X3", "X4O5X7O1X9O8X6"
  1149.             gameString$ = gameString$ + "O2"
  1150.             CALL PrintO(2)
  1151.             CALL WinLine(vertM)
  1152.         CASE "X4O5X7O1X9O8X2"
  1153.             gameString$ = gameString$ + "O3"
  1154.             CALL PrintO(3)
  1155.         CASE "X4O5X8O7X3O1X2", "X4O5X8O7X3O1X6"
  1156.             gameString$ = gameString$ + "O9"
  1157.             CALL PrintO(9)
  1158.             CALL WinLine(diagTL)
  1159.         CASE "X4O5X8O7X3O1X9"
  1160.             gameString$ = gameString$ + "O6"
  1161.             CALL PrintO(6)
  1162.         CASE "X4O5X9O7X3O6X1", "X4O5X9O7X3O6X8"
  1163.             gameString$ = gameString$ + "O2"
  1164.             CALL PrintO(2)
  1165.         CASE "X4O5X9O7X3O6X2"
  1166.             gameString$ = gameString$ + "O1"
  1167.             CALL PrintO(1)
  1168.     END SELECT
  1169.     playerMove = GetLocation
  1170.     gameString$ = gameString$ + "X" + S$(playerMove)
  1172.  
  1173. SUB X5
  1174.     gameString$ = gameString$ + "O1"
  1175.     CALL PrintO(1)
  1176.     playerMove = GetLocation
  1177.     gameString$ = gameString$ + "X" + S$(playerMove)
  1178.     SELECT CASE gameString$
  1179.         CASE "X5O1X2"
  1180.             gameString$ = gameString$ + "O8"
  1181.             CALL PrintO(8)
  1182.         CASE "X5O1X3"
  1183.             gameString$ = gameString$ + "O7"
  1184.             CALL PrintO(7)
  1185.         CASE "X5O1X4"
  1186.             gameString$ = gameString$ + "O6"
  1187.             CALL PrintO(6)
  1188.         CASE "X5O1X6"
  1189.             gameString$ = gameString$ + "O4"
  1190.             CALL PrintO(4)
  1191.         CASE "X5O1X7"
  1192.             gameString$ = gameString$ + "O3"
  1193.             CALL PrintO(3)
  1194.         CASE "X5O1X8"
  1195.             gameString$ = gameString$ + "O2"
  1196.             CALL PrintO(2)
  1197.         CASE "X5O1X9"
  1198.             gameString$ = gameString$ + "O3"
  1199.             CALL PrintO(3)
  1200.     END SELECT
  1201.     playerMove = GetLocation
  1202.     gameString$ = gameString$ + "X" + S$(playerMove)
  1203.     SELECT CASE gameString$
  1204.         'X5O1X2O8X
  1205.         CASE "X5O1X2O8X3"
  1206.             gameString$ = gameString$ + "O7"
  1207.             CALL PrintO(7)
  1208.         CASE "X5O1X2O8X4"
  1209.             gameString$ = gameString$ + "O6"
  1210.             CALL PrintO(6)
  1211.         CASE "X5O1X2O8X6"
  1212.             gameString$ = gameString$ + "O4"
  1213.             CALL PrintO(4)
  1214.         CASE "X5O1X2O8X7"
  1215.             gameString$ = gameString$ + "O3"
  1216.             CALL PrintO(3)
  1217.         CASE "X5O1X2O8X9"
  1218.             gameString$ = gameString$ + "O4"
  1219.             CALL PrintO(4)
  1220.             ' X5O1X3O7X
  1221.         CASE "X5O1X3O7X2", "X5O1X3O7X6", "X5O1X3O7X8", "X5O1X3O7X9"
  1222.             gameString$ = gameString$ + "O4"
  1223.             CALL PrintO(4)
  1224.             CALL WinLine(vertL)
  1225.         CASE "X5O1X3O7X4"
  1226.             gameString$ = gameString$ + "O6"
  1227.             CALL PrintO(6)
  1228.             '"X5O1X4O6X
  1229.         CASE "X5O1X4O6X2", "X5O1X4O6X9"
  1230.             gameString$ = gameString$ + "O8"
  1231.             CALL PrintO(8)
  1232.         CASE "X5O1X4O6X3"
  1233.             gameString$ = gameString$ + "O7"
  1234.             CALL PrintO(7)
  1235.         CASE "X5O1X4O6X7"
  1236.             gameString$ = gameString$ + "O3"
  1237.             CALL PrintO(3)
  1238.         CASE "X5O1X4O6X8"
  1239.             gameString$ = gameString$ + "O2"
  1240.             CALL PrintO(2)
  1241.         CASE "X5O1X6O4X2", "X5O1X6O4X3", "X5O1X6O4X8", "X5O1X6O4X9"
  1242.             gameString$ = gameString$ + "O7"
  1243.             CALL PrintO(7)
  1244.             CALL WinLine(vertL)
  1245.         CASE "X5O1X6O4X7"
  1246.             gameString$ = gameString$ + "O3"
  1247.             CALL PrintO(3)
  1248.         CASE "X5O1X7O3X4", "X5O1X7O3X6", "X5O1X7O3X8", "X5O1X7O3X9"
  1249.             gameString$ = gameString$ + "O2"
  1250.             CALL PrintO(2)
  1251.             CALL WinLine(acrossTop)
  1252.         CASE "X5O1X7O3X2"
  1253.             gameString$ = gameString$ + "O8"
  1254.             CALL PrintO(8)
  1255.         CASE "X5O1X8O2X4", "X5O1X8O2X6", "X5O1X8O2X7", "X5O1X8O2X9"
  1256.             gameString$ = gameString$ + "O3"
  1257.             CALL PrintO(3)
  1258.             CALL WinLine(acrossTop)
  1259.         CASE "X5O1X8O2X3"
  1260.             gameString$ = gameString$ + "O7"
  1261.             CALL PrintO(7)
  1262.         CASE "X5O1X9O3X4", "X5O1X9O3X6", "X5O1X9O3X7", "X5O1X9O3X8"
  1263.             gameString$ = gameString$ + "O2"
  1264.             CALL PrintO(2)
  1265.             CALL WinLine(acrossTop)
  1266.         CASE "X5O1X9O3X2"
  1267.             gameString$ = gameString$ + "O8"
  1268.             CALL PrintO(8)
  1269.     END SELECT
  1270.     playerMove = GetLocation
  1271.     gameString$ = gameString$ + "X" + S$(playerMove)
  1272.     SELECT CASE gameString$
  1273.         CASE "X5O1X2O8X3O7X4", "X5O1X2O8X3O7X6"
  1274.             gameString$ = gameString$ + "O9"
  1275.             CALL PrintO(9)
  1276.             CALL WinLine(acrossBot)
  1277.         CASE "X5O1X2O8X3O7X9"
  1278.             gameString$ = gameString$ + "O4"
  1279.             CALL PrintO(4)
  1280.             CALL WinLine(vertL)
  1281.         CASE "X5O1X2O8X4O6X3"
  1282.             gameString$ = gameString$ + "O7"
  1283.             CALL PrintO(7)
  1284.         CASE "X5O1X2O8X4O6X7", "X5O1X2O8X4O6X9"
  1285.             gameString$ = gameString$ + "O3"
  1286.             CALL PrintO(3)
  1287.         CASE "X5O1X2O8X6O4X3", "X5O1X2O8X6O4X9"
  1288.             gameString$ = gameString$ + "O7"
  1289.             CALL PrintO(7)
  1290.             CALL WinLine(vertL)
  1291.         CASE "X5O1X2O8X6O4X7"
  1292.             gameString$ = gameString$ + "O3"
  1293.             CALL PrintO(3)
  1294.         CASE "X5O1X2O8X7O3X4", "X5O1X2O8X7O3X9"
  1295.             gameString$ = gameString$ + "O6"
  1296.             CALL PrintO(6)
  1297.         CASE "X5O1X2O8X7O3X6"
  1298.             gameString$ = gameString$ + "O4"
  1299.             CALL PrintO(4)
  1300.         CASE "X5O1X2O8X9O4X3", "X5O1X2O8X9O4X6"
  1301.             gameString$ = gameString$ + "O7"
  1302.             CALL PrintO(7)
  1303.             CALL WinLine(vertL)
  1304.         CASE "X5O1X2O8X9O4X7"
  1305.             gameString$ = gameString$ + "O3"
  1306.             CALL PrintO(3)
  1307.         CASE "X5O1X3O7X4O6X2"
  1308.             gameString$ = gameString$ + "O8"
  1309.             CALL PrintO(8)
  1310.         CASE "X5O1X3O7X4O6X8", "X5O1X3O7X4O6X9"
  1311.             gameString$ = gamestgring$ + "O2"
  1312.             CALL PrintO(2)
  1313.         CASE "X5O1X4O6X2O8X3", "X5O1X4O6X2O8X9"
  1314.             gameString$ = gameString$ + "O7"
  1315.             CALL PrintO(7)
  1316.         CASE "X5O1X4O6X2O8X7"
  1317.             gameString$ = gameString$ + "O3"
  1318.             CALL PrintO(3)
  1319.         CASE "X5O1X4O6X3O7X2"
  1320.             gameString$ = gameString$ + "O8"
  1321.             CALL PrintO(8)
  1322.         CASE "X5O1X4O6X3O7X8", "X5O1X4O6X3O7X9"
  1323.             gameString$ = gameString$ + "O2"
  1324.             CALL PrintO(2)
  1325.         CASE "X5O1X4O6X7O3X2", "X5O1X4O6X7O3X8"
  1326.             gameString$ = gameString$ + "O9"
  1327.             CALL PrintO(9)
  1328.             CALL WinLine(vertR)
  1329.         CASE "X5O1X4O6X7O3X9"
  1330.             gameString$ = gameString$ + "O2"
  1331.             CALL PrintO(2)
  1332.             CALL WinLine(acrossTop)
  1333.         CASE "X5O1X4O6X8O2X3"
  1334.             gameString$ = gameString$ + "O7"
  1335.             CALL PrintO(7)
  1336.         CASE "X5O1X4O6X8O2X7", "X5O1X4O6X8O2X9"
  1337.             gameString$ = gameString$ + "O3"
  1338.             CALL PrintO(3)
  1339.             CALL WinLine(acrossTop)
  1340.         CASE "X5O1X4O6X9O8X2", "X5O1X4O6X9O8X7"
  1341.             gameString$ = gameString$ + "O3"
  1342.             CALL PrintO(3)
  1343.         CASE "X5O1X4O6X9O8X3"
  1344.             gameString$ = gameString$ + "O7"
  1345.             CALL PrintO(7)
  1346.         CASE "X5O1X6O4X7O3X8", "X5O1X6O4X7O3X9"
  1347.             gameString$ = gameString$ + "O2"
  1348.             CALL PrintO(2)
  1349.             CALL WinLine(acrossTop)
  1350.         CASE "X5O1X6O4X7O3X2"
  1351.             gameString$ = gameString$ + "O8"
  1352.             CALL PrintO(8)
  1353.         CASE "X5O1X7O3X2O8X6", "X5O1X7O3X2O8X9"
  1354.             gameString$ = gameString$ + "O4"
  1355.             CALL PrintO(4)
  1356.         CASE "X5O1X7O3X2O8X4"
  1357.             gameString$ = gameString$ + "O6"
  1358.             CALL PrintO(6)
  1359.         CASE "X5O1X8O2X3O7X6", "X5O1X8O2X3O7X9"
  1360.             gameString$ = gameString$ + "O4"
  1361.             CALL PrintO(4)
  1362.             CALL WinLine(vertL)
  1363.         CASE "X5O1X8O2X3O7X4"
  1364.             gameString$ = gameString$ + "O6"
  1365.             CALL PrintO(6)
  1366.         CASE "X5O1X9O3X2O8X4", "X5O1X9O3X2O8X7"
  1367.             gameString$ = gameString$ + "O6"
  1368.             CALL PrintO(6)
  1369.         CASE "X5O1X9O3X2O8X6"
  1370.             gameString$ = gameString$ + "O4"
  1371.             CALL PrintO(4)
  1372.     END SELECT
  1373.     playerMove = GetLocation
  1374.     gameString$ = gameString$ + "X" + S$(playerMove)
  1375.  
  1377.  
  1378. SUB X6
  1379.     gameString$ = gameString$ + "O5"
  1380.     CALL PrintO(5)
  1381.     playerMove = GetLocation
  1382.     gameString$ = gameString$ + "X" + S$(playerMove)
  1383.     CALL PrintX(playerMove)
  1384.     SELECT CASE gameString$
  1385.         CASE "X6O5X1"
  1386.             gameString$ = gameString$ + "O3"
  1387.             CALL PrintO(3)
  1388.         CASE "X6O5X2"
  1389.             gameString$ = gameString$ + "O3"
  1390.             CALL PrintO(3)
  1391.         CASE "X6O5X3"
  1392.             gameString$ = gameString$ + "O9"
  1393.             CALL PrintO(9)
  1394.         CASE "X6O5X4"
  1395.             gameString$ = gameString$ + "O3"
  1396.             CALL PrintO(3)
  1397.         CASE "X6O5X7"
  1398.             gameString$ = gameString$ + "O9"
  1399.             CALL PrintO(9)
  1400.         CASE "X6O5X8"
  1401.             gameString$ = gameString$ + "O9"
  1402.             CALL PrintO(9)
  1403.         CASE "X6O5X9"
  1404.             gameString$ = gameString$ + "O3"
  1405.             CALL PrintO(3)
  1406.     END SELECT
  1407.     playerMove = GetLocation
  1408.     gameString$ = gameString$ + "X" + S$(playerMove)
  1409.     CALL PrintX(playerMove)
  1410.     SELECT CASE gameString$
  1411.         CASE "X6O5X1O3X2", "X6O5X1O3X4", "X6O5X1O3X8", "X6O5X1O3X9"
  1412.             gameString$ = gameString$ + "O7"
  1413.             CALL PrintO(7)
  1414.             CALL WinLine(diagBL)
  1415.         CASE "X6O5X1O3X7"
  1416.             gameString$ = gameString$ + "O4"
  1417.             CALL PrintO(4)
  1418.         CASE "X6O5X2O3X1", "X6O5X2O3X4", "X6O5X2O3X8", "X6O5X2O3X9"
  1419.             gameString$ = gameString$ + "O7"
  1420.             CALL PrintO(7)
  1421.             CALL WinLine(diagBL)
  1422.         CASE "X6O5X2O3X7" '***********
  1423.             gameString$ = gameString$ + "O1"
  1424.             CALL PrintO(1)
  1425.         CASE "X6O5X3O9X2", "X6O5X3O9X4", "X6O5X3O9X7", "X6O5X3O9X8"
  1426.             gameString$ = gameString$ + "O1"
  1427.             CALL PrintO(1)
  1428.             CALL WinLine(diagTL)
  1429.         CASE "X6O5X3O9X1"
  1430.             gameString$ = gameString$ + "O2"
  1431.             CALL PrintO(2)
  1432.         CASE "X6O5X4O3X1", "X6O5X4O3X2", "X6O5X4O3X8", "X6O5X4O3X9"
  1433.             gameString$ = gameString$ + "O7"
  1434.             CALL PrintO(7)
  1435.             CALL WinLine(diagBL)
  1436.         CASE "X6O5X4O3X7" '********************
  1437.             gameString$ = gameString$ + "O1"
  1438.             CALL PrintO(1)
  1439.         CASE "X6O5X7O9X2", "X6O5X7O9X3", "X6O5X7O9X4", "X6O5X7O9X8"
  1440.             gameString$ = gameString$ + "O1"
  1441.             CALL PrintO(1)
  1442.             CALL WinLine(diagTL)
  1443.         CASE "X6O5X7O9X1" '**********************
  1444.             gameString$ = gameString$ + "O4"
  1445.             CALL PrintO(4)
  1446.         CASE "X6O5X8O9X2", "X6O5X8O9X3", "X6O5X8O9X4", "X6O5X8O9X7"
  1447.             gameString$ = gameString$ + "O1"
  1448.             CALL PrintO(1)
  1449.             CALL WinLine(diagTL)
  1450.         CASE "X6O5X8O9X1" '******************************
  1451.             gameString$ = gameString$ + "O3"
  1452.             CALL PrintO(3)
  1453.         CASE "X6O5X9O3X1", "X6O5X9O3X2", "X6O5X9O3X4", "X6O5X9O3X8"
  1454.             gameString$ = gameString$ + "O7"
  1455.             CALL PrintO(7)
  1456.             CALL WinLine(diagBL)
  1457.         CASE "X6O5X9O3X7"
  1458.             gameString$ = gameString$ + "O8"
  1459.             CALL PrintO(8)
  1460.     END SELECT
  1461.     playerMove = GetLocation
  1462.     gameString$ = gameString$ + "X" + S$(playerMove)
  1463.     CALL PrintX(playerMove)
  1464.     SELECT CASE gameString$
  1465.         CASE "X6O5X1O3X7O4X2", "X6O5X1O3X7O4X8"
  1466.             gameString$ = gameString$ + "O9"
  1467.             CALL PrintO(9)
  1468.         CASE "X6O5X1O3X7O4X9"
  1469.             gameString$ = gameString$ + "O8"
  1470.             CALL PrintO(8)
  1471.         CASE "X6O5X2O3X7O1X4", "X6O5X2O3X7O1X8"
  1472.             gameString$ = gameString$ + "O9"
  1473.             CALL PrintO(9)
  1474.             CALL WinLine(diagTL)
  1475.         CASE "X6O5X2O3X7O1X9"
  1476.             gameString$ = gameString$ + "4"
  1477.             CALL PrintO(4)
  1478.         CASE "X6O5X3O9X1O2X4", "X6O5X3O9X1O2X7"
  1479.             gameString$ = gameString$ + "O8"
  1480.             CALL PrintO(8)
  1481.             CALL WinLine(vertM)
  1482.         CASE "X6O5X3O9X1O2X8"
  1483.             gameString$ = gameString$ + "O4"
  1484.             CALL PrintO(4)
  1485.         CASE "X6O5X4O3X7O1X2", "X6O5X4O3X7O1X8"
  1486.             gameString$ = gameString$ + "O9"
  1487.             CALL PrintO(9)
  1488.             CALL WinLine(diagTL)
  1489.         CASE "X6O5X4O3X7O1X9"
  1490.             gameString$ = gameString$ + "O2"
  1491.             CALL PrintO(2)
  1492.             CALL WinLine(acrossTop)
  1493.         CASE "X6O5X7O9X1O4X2", "X6O5X7O9X1O4X8"
  1494.             gameString$ = gameString$ + "O3"
  1495.             CALL PrintO(3)
  1496.         CASE "X6O5X7O9X1O4X3"
  1497.             gameString$ = gameString$ + "O2"
  1498.             CALL PrintO(2)
  1499.         CASE "X6O5X8O9X1O3X2", "X6O5X8O9X1O3X4"
  1500.             gameString$ = gameString$ + "O7"
  1501.             CALL PrintO(7)
  1502.             CALL WinLine(diagBL)
  1503.         CASE "X6O5X8O9X1O3X7"
  1504.             gameString$ = gameString$ + "O4"
  1505.             CALL PrintO(4)
  1506.         CASE "X6O5X9O3X7O8X1", "X6O5X9O3X7O8X4"
  1507.             gameString$ = gameString$ + "O2"
  1508.             CALL PrintO(2)
  1509.             CALL WinLine(vertM)
  1510.         CASE "X6O5X9O3X7O8X2"
  1511.             gameString$ = gameString$ + "O1"
  1512.             CALL PrintO(1)
  1513.     END SELECT
  1514.     playerMove = GetLocation
  1515.     gameString$ = gameString$ + "X" + S$(playerMove)
  1516.  
  1518.  
  1519. SUB X7
  1520.     gameString$ = gameString$ + "O5"
  1521.     CALL PrintO(5)
  1522.     playerMove = GetLocation
  1523.     gameString$ = gameString$ + "X" + S$(playerMove)
  1524.     CALL PrintX(playerMove)
  1525.     SELECT CASE gameString$
  1526.         CASE "X7O5X1"
  1527.             gameString$ = gameString$ + "O4"
  1528.             CALL PrintO(4)
  1529.         CASE "X7O5X2"
  1530.             gameString$ = gameString$ + "O1"
  1531.             CALL PrintO(1)
  1532.         CASE "X7O5X3"
  1533.             gameString$ = gameString$ + "O2"
  1534.             CALL PrintO(2)
  1535.         CASE "X7O5X4"
  1536.             gameString$ = gameString$ + "O1"
  1537.             CALL PrintO(1)
  1538.         CASE "X7O5X6"
  1539.             gameString$ = gameString$ + "O9"
  1540.             CALL PrintO(9)
  1541.         CASE "X7O5X8"
  1542.             gameString$ = gameString$ + "O9"
  1543.             CALL PrintO(9)
  1544.         CASE "X7O5X9"
  1545.             gameString$ = gameString$ + "O8"
  1546.             CALL PrintO(8)
  1547.     END SELECT
  1548.     playerMove = GetLocation
  1549.     gameString$ = gameString$ + "X" + S$(playerMove)
  1550.     CALL PrintX(playerMove)
  1551.     SELECT CASE gameString$
  1552.         CASE "X7O5X1O4X2", "X7O5X1O4X3", "X7O5X1O4X8", "X7O5X1O4X9"
  1553.             gameString$ = gameString$ + "O6"
  1554.             CALL PrintO(6)
  1555.             CALL WinLine(acrossMid)
  1556.         CASE "X7O5X1O4X6" '**********************
  1557.             gameString$ = gameString$ + "O2"
  1558.             CALL PrintO(2)
  1559.         CASE "X7O5X2O1X3", "X7O5X2O1X4", "X7O5X2O1X6", "X7O5X2O1X8"
  1560.             gameString$ = gameString$ + "O9"
  1561.             CALL PrintO(9)
  1562.             CALL WinLine(diagTL)
  1563.         CASE "X7O5X2O1X9" '****************************
  1564.             gameString$ = gameString$ + "O8"
  1565.             CALL PrintO(8)
  1566.         CASE "X7O5X3O2X1", "X7O5X3O2X4", "X7O5X3O2X6", "X7O5X3O2X9"
  1567.             gameString$ = gameString$ + "O8"
  1568.             CALL PrintO(8)
  1569.             CALL WinLine(vertM)
  1570.         CASE "X7O5X3O2X8" '*******************
  1571.             gameString$ = gameString$ + "O9"
  1572.             CALL PrintO(9)
  1573.         CASE "X7O5X4O1X2", "X7O5X4O1X3", "X7O5X4O1X6", "X7O5X4O1X8"
  1574.             gameString$ = gameString$ + "O9"
  1575.             CALL PrintO(9)
  1576.             CALL WinLine(diagTL)
  1577.         CASE "X7O5X4O1X9" '**********************
  1578.             gameString$ = gameString$ + "O8"
  1579.             CALL PrintO(8)
  1580.         CASE "X7O5X6O9X2", "X7O5X6O9X3", "X7O5X6O9X4", "X7O5X6O9X8"
  1581.             gameString$ = gameString$ + "O1"
  1582.             CALL PrintO(1)
  1583.             CALL WinLine(diagTL)
  1584.         CASE "X7O5X6O9X1" '******************
  1585.             gameString$ = gameString$ + "O4"
  1586.             CALL PrintO(4)
  1587.         CASE "X7O5X8O9X2", "X7O5X8O9X3", "X7O5X8O9X4", "X7O5X8O9X6"
  1588.             gameString$ = gameString$ + "O1"
  1589.             CALL PrintO(1)
  1590.             CALL WinLine(diagTL)
  1591.         CASE "X7O5X8O9X1" '******************
  1592.             gameString$ = gameString$ + "O4"
  1593.             CALL PrintO(4)
  1594.         CASE "X7O5X9O8X1", "X7O5X9O8X3", "X7O5X9O8X4", "X7O5X9O8X6"
  1595.             gameString$ = gameString$ + "O2"
  1596.             CALL PrintO(2)
  1597.             CALL WinLine(vertM)
  1598.         CASE "X7O5X9O8X2"
  1599.             gameString$ = gameString$ + "O4"
  1600.             CALL PrintO(4)
  1601.     END SELECT
  1602.     playerMove = GetLocation
  1603.     gameString$ = gameString$ + "X" + S$(playerMove)
  1604.     CALL PrintX(playerMove)
  1605.     '    color 15,0:locate 45,10:?gamestring$:call p(true)
  1606.     SELECT CASE gameString$
  1607.         CASE "X7O5X1O4X6O2X3", "X7O5X1O4X6O2X9"
  1608.             gameString$ = gameString$ + "O8"
  1609.             CALL PrintO(8)
  1610.             CALL WinLine(vertM)
  1611.         CASE "X7O5X1O4X6O2X8"
  1612.             gameString$ = gameString$ + "O9"
  1613.             CALL PrintO(9)
  1614.         CASE "X7O5X2O1X9O8X3", "X7O5X2O1X9O8X4"
  1615.             gameString$ = gameString$ + "O6"
  1616.             CALL PrintO(6)
  1617.         CASE "X7O5X2O1X9O8X6"
  1618.             gameString$ = gameString$ + "O3"
  1619.             CALL PrintO(3)
  1620.         CASE "X7O5X3O2X8O9X4", "X7O5X3O2X8O9X6"
  1621.             gameString$ = gameString$ + "O1"
  1622.             CALL PrintO(1)
  1623.             CALL WinLine(diagTL)
  1624.         CASE "X7O5X3O2X8O9X1"
  1625.             gameString$ = gameString$ + "O4"
  1626.             CALL PrintO(4)
  1627.         CASE "X7O5X4O1X9O8X3", "X7O5X4O1X9O8X6"
  1628.             gameString$ = gameString$ + "O2"
  1629.             CALL PrintO(2)
  1630.             CALL WinLine(vertM)
  1631.         CASE "X7O5X4O1X9O8X2"
  1632.             gameString$ = gameString$ + "O3"
  1633.             CALL PrintO(3)
  1634.         CASE "X7O5X6O9X1O4X2", "X7O5X6O9X1O4X8"
  1635.             gameString$ = gameString$ + "O3"
  1636.             CALL PrintO(3)
  1637.         CASE "X7O5X6O9X1O4X3"
  1638.             gameString$ = gameString$ + "O2"
  1639.             CALL PrintO(2)
  1640.         CASE "X7O5X8O9X1O4X2", "X7O5X8O9X1O4X3"
  1641.             gameString$ = gameString$ + "O6"
  1642.             CALL PrintO(6)
  1643.             CALL WinLine(acrossMid)
  1644.         CASE "X7O5X8O9X1O4X6"
  1645.             gameString$ = gameString$ + "O2"
  1646.             CALL PrintO(2)
  1647.         CASE "X7O5X9O8X2O4X1", "X7O5X9O8X2O4X3"
  1648.             gameString$ = gameString$ + "O6"
  1649.             CALL PrintO(6)
  1650.             CALL WinLine(acrossMid)
  1651.         CASE "X7O5X9O8X2O4X6"
  1652.             gameString$ = gameString$ + "O3"
  1653.             CALL PrintO(3)
  1654.         CASE "X7O5X6O9X1O4X2", "X7O5X6O9X1O4X8"
  1655.             gameString$ = gameString$ + "O3"
  1656.             CALL PrintO(3)
  1657.         CASE "X7O5X6O9X1O4X3"
  1658.             gameString$ = gameString$ + "O2"
  1659.             CALL PrintO(2)
  1660.     END SELECT
  1661.     playerMove = GetLocation
  1662.     gameString$ = gameString$ + "X" + S$(playerMove)
  1663.     CALL PrintX(playerMove)
  1665.  
  1666. SUB X8
  1667.     gameString$ = gameString$ + "O5"
  1668.     CALL PrintO(5)
  1669.     playerMove = GetLocation
  1670.     gameString$ = gameString$ + "X" + S$(playerMove)
  1671.     CALL PrintX(playerMove)
  1672.     SELECT CASE gameString$
  1673.         CASE "X8O5X1"
  1674.             gameString$ = gameString$ + "O4"
  1675.             CALL PrintO(4)
  1676.         CASE "X8O5X2"
  1677.             gameString$ = gameString$ + "O7"
  1678.             CALL PrintO(7)
  1679.         CASE "X8O5X3"
  1680.             gameString$ = gameString$ + "O6"
  1681.             CALL PrintO(6)
  1682.         CASE "X8O5X4"
  1683.             gameString$ = gameString$ + "O7"
  1684.             CALL PrintO(7)
  1685.         CASE "X8O5X6"
  1686.             gameString$ = gameString$ + "O9"
  1687.             CALL PrintO(9)
  1688.         CASE "X8O5X7"
  1689.             gameString$ = gameString$ + "O9"
  1690.             CALL PrintO(9)
  1691.         CASE "X8O5X9"
  1692.             gameString$ = gameString$ + "O7"
  1693.             CALL PrintO(7)
  1694.     END SELECT
  1695.     playerMove = GetLocation
  1696.     gameString$ = gameString$ + "X" + S$(playerMove)
  1697.     CALL PrintX(playerMove)
  1698.     SELECT CASE gameString$
  1699.         CASE "X8O5X1O4X2", "X8O5X1O4X3", "X8O5X1O4X7", "X8O5X1O4X9"
  1700.             gameString$ = gameString$ + "O6"
  1701.             CALL PrintO(6)
  1702.             CALL WinLine(acrossMid)
  1703.         CASE "X8O5X1O4X6" '**********
  1704.             gameString$ = gameString$ + "O3"
  1705.             CALL PrintO(3)
  1706.         CASE "X8O5X2O7X1", "X8O5X2O7X4", "X8O5X2O7X6", "X8O5X2O7X9"
  1707.             gameString$ = gameString$ + "O3"
  1708.             CALL PrintO(3)
  1709.             CALL WinLine(diagBL)
  1710.         CASE "X8O5X2O7X3" '******************
  1711.             gameString$ = gameString$ + "O1"
  1712.             CALL PrintO(1)
  1713.         CASE "X8O5X3O6X1", "X8O5X3O6X2", "X8O5X3O6X7", "X8O5X3O6X9"
  1714.             gameString$ = gameString$ + "O4"
  1715.             CALL PrintO(4)
  1716.             CALL WinLine(acrossMid)
  1717.         CASE "X8O5X3O6X4" '&&&&&&&&&T
  1718.             gameString$ = gameString$ + "O1"
  1719.             CALL PrintO(1)
  1720.         CASE "X8O5X4O7X1", "X8O5X4O7X2", "X8O5X4O7X6", "X8O5X4O7X9"
  1721.             gameString$ = gameString$ + "O3"
  1722.             CALL PrintO(3)
  1723.             CALL WinLine(diagBL)
  1724.         CASE "X8O5X4O7X3" 'ERRRRRRRRRRRRRR
  1725.             gameString$ = gameString$ + "O1"
  1726.             CALL PrintO(1)
  1727.         CASE "X8O5X6O9X2", "X8O5X6O9X3", "X8O5X6O9X4", "X8O5X6O9X7"
  1728.             gameString$ = gameString$ + "O1"
  1729.             CALL PrintO(1)
  1730.             CALL WinLine(diagTL)
  1731.         CASE "X8O5X6O9X1" ' *(*******************
  1732.             gameString$ = gameString$ + "O7"
  1733.             CALL PrintO(7)
  1734.         CASE "X8O5X7O9X2", "X8O5X7O9X3", "X8O5X7O9X4", "X8O5X7O9X6"
  1735.             gameString$ = gamest4ring$ + "O1"
  1736.             CALL PrintO(1)
  1737.             CALL WinLine(diagTL)
  1738.         CASE "X8O5X7O9X1" '*************
  1739.             gameString$ = gameString$ + "O4"
  1740.             CALL PrintO(4)
  1741.         CASE "X8O5X9O7X1", "X8O5X9O7X2", "X8O5X9O7X4", "X8O5X9O7X6"
  1742.             gameString$ = gameString$ + "O3"
  1743.             CALL PrintO(3)
  1744.             CALL WinLine(diagBL)
  1745.         CASE "X8O5X9O7X3" '''''''''''''''''
  1746.             gameString$ = gameString$ + "O6"
  1747.             CALL PrintO(6)
  1748.     END SELECT
  1749.     playerMove = GetLocation
  1750.     gameString$ = gameString$ + "X" + S$(playerMove)
  1751.     CALL PrintX(playerMove)
  1752.     SELECT CASE gameString$
  1753.         CASE "X8O5X1O4X6O3X2", "X8O5X1O4X6O3X9"
  1754.             gameString$ = gameString$ + "O7"
  1755.             CALL PrintO(7)
  1756.             CALL WinLine(diagBL)
  1757.         CASE "X8O5X1O4X6O3X7"
  1758.             gameString$ = gameString$ + "O9"
  1759.             CALL PrintO(9)
  1760.         CASE "X8O5X2O7X3O1X4", "X8O5X2O7X3O1X6"
  1761.             gameString$ = gameString$ + "O9"
  1762.             CALL PrintO(9)
  1763.             CALL WinLine(diagTL)
  1764.         CASE "X8O5X2O7X3O1X9"
  1765.             gameString$ = gameString$ + "O4"
  1766.             CALL PrintO(4)
  1767.             CALL WinLine(vertL)
  1768.         CASE "X8O5X3O6X4O1X2", "X8O5X3O6X4O1X7"
  1769.             gameString$ = gameString$ + "O9"
  1770.             CALL PrintO(9)
  1771.             CALL WinLine(diagTL)
  1772.         CASE "X8O5X3O6X4O1X9"
  1773.             gameString$ = gameString$ + "O7"
  1774.             CALL PrintO(7)
  1775.         CASE "X8O5X4O7X3O1X2", "X8O5X4O7X3O1X6"
  1776.             gameString$ = gameString$ + "O9"
  1777.             CALL PrintO(9)
  1778.             CALL WinLine(diagTL)
  1779.         CASE "X8O5X4O7X3O1X9"
  1780.             gameString$ = gameString$ + "O2"
  1781.             CALL PrintO(2)
  1782.         CASE "X8O5X6O9X1O7X2", "X8O5X6O9X1O7X4"
  1783.             gameString$ = gameString$ + "O3"
  1784.             CALL PrintO(3)
  1785.             CALL WinLine(diagBL)
  1786.         CASE "X8O5X6O9X1O7X3"
  1787.             gameString$ = gameString$ + "O2"
  1788.             CALL PrintO(2)
  1789.         CASE "X8O5X7O9X1O4X3", "X8O5X7O9X1O4X2"
  1790.             gamestreing$ = gameString$ + "O6"
  1791.             CALL PrintO(6)
  1792.             CALL WinLine(acrossMid)
  1793.         CASE "X8O5X7O9X1O4X6"
  1794.             gameString$ = gameString$ + "O2"
  1795.             CALL PrintO(2)
  1796.         CASE "X8O5X9O7X3O6X1", "X8O5X9O7X3O6X2"
  1797.             gameString$ = gameString$ + "O4"
  1798.             CALL PrintO(4)
  1799.             CALL WinLine(acrossMid)
  1800.         CASE "X8O5X9O7X3O6X4"
  1801.             gameString$ = gameString$ + "O1"
  1802.             CALL PrintO(1)
  1803.     END SELECT
  1804.     playerMove = GetLocation
  1805.     gameString$ = gameString$ + "X" + S$(playerMove)
  1806.     CALL PrintX(playerMove)
  1808.  
  1809. SUB X9
  1810.     gameString$ = gameString$ + "O5"
  1811.     CALL PrintO(5)
  1812.     playerMove = GetLocation
  1813.     gameString$ = gameString$ + "X" + S$(playerMove)
  1814.     CALL PrintX(playerMove)
  1815.     SELECT CASE gameString$
  1816.         CASE "X9O5X1"
  1817.             gameString$ = gameString$ + "O2"
  1818.             CALL PrintO(2)
  1819.         CASE "X9O5X2"
  1820.             gameString$ = gameString$ + "O4"
  1821.             CALL PrintO(4)
  1822.         CASE "X9O5X3"
  1823.             gameString$ = gameString$ + "O6"
  1824.             CALL PrintO(6)
  1825.         CASE "X9O5X4"
  1826.             gameString$ = gameString$ + "O8"
  1827.             CALL PrintO(8)
  1828.         CASE "X9O5X6"
  1829.             gameString$ = gameString$ + "O3"
  1830.             CALL PrintO(3)
  1831.         CASE "X9O5X7"
  1832.             gameString$ = gameString$ + "O8"
  1833.             CALL PrintO(8)
  1834.         CASE "X9O5X8"
  1835.             gameString$ = gameString$ + "O7"
  1836.             CALL PrintO(7)
  1837.     END SELECT
  1838.     playerMove = GetLocation
  1839.     gameString$ = gameString$ + "X" + S$(playerMove)
  1840.     CALL PrintX(playerMove)
  1841.     SELECT CASE gameString$
  1842.         CASE "X9O5X1O2X3", "X9O5X1O2X4", "X9O5X1O2X6", "X9O5X1O2X7"
  1843.             gameString$ = gameString$ + "O8"
  1844.             CALL PrintO(8)
  1845.             CALL WinLine(vertM)
  1846.         CASE "X9O5X1O2X8" '''''''''''''''''''''''''
  1847.             gameString$ = gameString$ + "O7"
  1848.             CALL PrintO(7)
  1849.         CASE "X9O5X2O4X1", "X9O5X2O4X3", "X9O5X2O4X7", "X9O5X2O4X8"
  1850.             gameString$ = gameString$ + "O6"
  1851.             CALL PrintO(6)
  1852.             CALL WinLine(acrossMid)
  1853.         CASE "X9O5X2O4X6"
  1854.             gameString$ = gameString$ + "O3" '''''''''''''''''''''''''
  1855.             CALL PrintO(3)
  1856.         CASE "X9O5X3O6X1", "X9O5X3O6X2", "X9O5X3O6X7", "X9O5X3O6X8"
  1857.             gameString$ = gameString$ + "O4"
  1858.             CALL PrintO(4)
  1859.             CALL WinLine(acrossMid)
  1860.         CASE "X9O5X3O6X4" '''''''''''''''''''
  1861.             gameString$ = gameString$ + "O2"
  1862.             CALL PrintO(2)
  1863.         CASE "X9O5X4O8X1", "X9O5X4O8X3", "X9O5X4O8X6", "X9O5X4O8X7"
  1864.             gameString$ = gameString$ + "O2"
  1865.             CALL PrintO(2)
  1866.             CALL WinLine(vertM)
  1867.         CASE "X9O5X4O8X2"
  1868.             gameString$ = gameString$ + "O3"
  1869.             CALL PrintO(3)
  1870.         CASE "X9O5X6O3X1", "X9O5X6O3X2", "X9O5X6O3X4", "X9O5X6O3X8"
  1871.             gameString$ = gameString$ + "O7"
  1872.             CALL PrintO(7)
  1873.             CALL WinLine(diagBL)
  1874.         CASE "X9O5X6O3X7" ''''''''''''''''
  1875.             gameString$ = gameString$ + "O8"
  1876.             CALL PrintO(8)
  1877.         CASE "X9O5X7O8X1", "X9O5X7O8X3", "X9O5X7O8X4", "X9O5X7O8X6"
  1878.             gameString$ = gameString$ + "O2"
  1879.             CALL PrintO(2)
  1880.             CALL WinLine(vertM)
  1881.         CASE "X9O5X7O8X2"
  1882.             gameString$ = gameString$ + "O4"
  1883.             CALL PrintO(4)
  1884.         CASE "X9O5X8O7X1", "X9O5X8O7X2", "X9O5X8O7X4", "X9O5X8O7X6"
  1885.             gameString$ = gameString$ + "O3"
  1886.             CALL PrintO(3)
  1887.             CALL WinLine(diagBL)
  1888.         CASE "X9O5X8O7X3" ''''''''''''''''''
  1889.             gameString$ = gameString$ + "O6"
  1890.             CALL PrintO(6)
  1891.     END SELECT
  1892.     playerMove = GetLocation
  1893.     gameString$ = gameString$ + "X" + S$(playerMove)
  1894.     CALL PrintX(playerMove)
  1895.     SELECT CASE gameString$
  1896.         CASE "X9O5X1O2X8O7X4", "X9O5X1O2X8O7X6"
  1897.             gameString$ = gameString$ + "O3"
  1898.             CALL PrintO(3)
  1899.             CALL WinLine(diagBL)
  1900.         CASE "X9O5X1O2X8O7X3"
  1901.             gameString$ = gameString$ + "O6"
  1902.             CALL PrintO(6)
  1903.         CASE "X9O5X2O4X6O3X1", "X9O5X2O4X6O3X8"
  1904.             gameString$ = gameString$ + "O7"
  1905.             CALL PrintO(7)
  1906.             CALL WinLine(diagBL)
  1907.         CASE "X9O5X2O4X6O3X7"
  1908.             gameString$ = gameString$ + "O8"
  1909.             CALL PrintO(8)
  1910.         CASE "X9O5X3O6X4O2X1", "X9O5X3O6X4O2X7"
  1911.             gameString$ = gameString$ + "O8"
  1912.             CALL PrintO(8)
  1913.             CALL WinLine(vertM)
  1914.         CASE "X9O5X3O6X4O2X8"
  1915.             gameString$ = gameString$ + "O7"
  1916.             CALL PrintO(7)
  1917.         CASE "X9O5X4O8X2O3X1", "X9O5X4O8X2O3X6"
  1918.             gameString$ = gameString$ + "O7"
  1919.             CALL PrintO(7)
  1920.             CALL WinLine(diagBL)
  1921.         CASE "X9O5X4O8X2O3X7"
  1922.             gameString$ = gameString$ + "O1"
  1923.             CALL PrintO(1)
  1924.         CASE "X9O5X6O3X7O8X1", "X9O5X6O3X7O8X4"
  1925.             gameString$ = gameString$ + "O2"
  1926.             CALL PrintO(2)
  1927.             CALL WinLine(vertM)
  1928.         CASE "X9O5X6O3X7O8X2"
  1929.             gameString$ = gameString$ + "O1"
  1930.             CALL PrintO(1)
  1931.         CASE "X9O5X7O8X2O4X1", "X9O5X7O8X2O4X3"
  1932.             gameString$ = gameString$ + "O6"
  1933.             CALL PrintO(6)
  1934.             CALL WinLine(acrossMid)
  1935.         CASE "X9O5X7O8X2O4X6"
  1936.             gameString$ = gameString$ + "O3"
  1937.             CALL PrintO(3)
  1938.         CASE "X9O5X8O7X3O6X1", "X9O5X8O7X3O6X2"
  1939.             gameString$ = gameString$ + "O4"
  1940.             CALL PrintO(4)
  1941.             CALL WinLine(acrossMid)
  1942.         CASE "X9O5X8O7X3O6X4"
  1943.             gameString$ = gameString$ + "O1"
  1944.             CALL PrintO(1)
  1945.     END SELECT
  1946.     playerMove = GetLocation
  1947.     gameString$ = gameString$ + "X" + S$(playerMove)
  1948.     CALL PrintX(playerMove)
  1950.  
  1951. FUNCTION GetLocation
  1952.     nope:
  1953.     where$ = INPUT$(1)
  1954.     here = VAL(where$)
  1955.     IF here < 1 OR here > 9 OR INSTR(gameString$, where$) <> 0 THEN
  1956.         GOTO nope
  1957.     ELSE
  1958.         IF MID$(gameString$, LEN(gameString$) - 1, 1) = "X" THEN
  1959.             CALL PrintO(here)
  1960.         ELSE
  1961.             CALL PrintX(here)
  1962.         END IF
  1963.     END IF
  1964.     GetLocation = here
  1966.  
  1967.  
  1968. FUNCTION Center (this$)
  1969.     Center = INT((80 - LEN(this$)) / 2)
  1971.  
  1972. SUB P (onOff)
  1973.     pause$ = INPUT$(1)
  1974.     IF onOff = TRUE AND pause$ = CHR$(27) THEN END
  1976.  
  1977. FUNCTION S$ (number)
  1978.     S$ = LTRIM$(STR$(number))
Logged

Offline euklides

  • Forum Regular
  • Posts: 128
    • View Profile
Re: Tic Tac Toe
« Reply #1 on: August 19, 2021, 11:23:34 am »
Classic of classic !

If you can take the center "5" case, you have the best chances of null or perhaps to win !

But let's imagine now that the checkerboard is more than 3 squares in size ...  :)
Logged
Why not yes ?

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Tic Tac Toe
« Reply #2 on: August 19, 2021, 01:31:56 pm »
Quote from: euklides on August 19, 2021, 11:23:34 am
Classic of classic !

If you can take the center "5" case, you have the best chances of null or perhaps to win !

But let's imagine now that the checkerboard is more than 3 squares in size ...  :)

There is a way to win from corner start and opponent then picks the middle.
Logged

Offline Jaze

  • Newbie
  • Posts: 86
    • View Profile
Re: Tic Tac Toe
« Reply #3 on: August 19, 2021, 05:57:49 pm »
Starting with a corner gives you more ways to force a win, by occupying three corners or two adjacent corners and the center or one corner and two adjacent squares filled. Starting at the center is definitely best for defense though
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Tic Tac Toe
« Reply #4 on: August 19, 2021, 07:20:02 pm »
I had to refresh my memory of the TTT lesson I got here at this forum from a vid link.

First guy plays corner
2nd must play center for any hope.
First plays opposite (diagonal).
2nd must not play corner! or will loose. That was the lesson where my earlier AI player had failed, always thinking corner is preferred to side if no win or spoiler was available.
Logged
Pages: [1]   Go Up
« previous next »