crap:
PRINT "Error, line the error is on"
beginning:
winner = 0
here = GetLocation
gameString$ = gameString$ + "X" + S$(here)
PrintX (here)
winner = CheckTieOrWin
somewhereElse:
gameString$ = gameString$ + "O" + S$(here)
eachMove = eachMove + 1
winner = CheckTieOrWin
anotherSomewhereElse:
gameString$ = gameString$ + "O" + S$(here)
winner = CheckTieOrWin
here = GetLocation
gameString$ = gameString$ + "X" + S$(here)
PrintX (here)
winner = CheckTieOrWin
whoGoesFirst = 0
repeat:
a$ = "Player is X, Computer is O"
a$ = "Who goes first? [C]omputer or [P]layer "
IF answer$
<> "C" AND answer$
<> "P" AND answer$
<> "X" AND answer$
<> "O" THEN whoGoesFirst = computeR
whoGoesFirst = playeR
a$ = "Difficulty? [E]asy or [H]ard "
CALL EasyGame
(whoGoesFirst
) IF whoGoesFirst
= computeR
THEN
x = 19: y = 4
x = 19: y = 4
x = 36: y = 4
x = 53: y = 4
x = 19: y = 18
x = 36: y = 18
x = 53: y = 18
x = 19: y = 32
x = 36: y = 32
x = 53: y = 32
CALL PLOT
(x
+ count
, y
+ count
)
SUB HLIN
(xStart
, xEnd
, y
) FOR count
= xStart
TO xEnd
x = 20: y = 4
x = 38: y = 4
x = 55: y = 4
x = 20: y = 18
x = 38: y = 18
x = 55: y = 18
x = 20: y = 34
x = 38: y = 34
x = 55: y = 34
CALL PLOT
(x
- 1, y
+ 1):
CALL PLOT
(x
+ 5, y
+ 1) CALL VLIN
(y
+ 2, y
+ 6, x
- 2):
CALL VLIN
(y
+ 2, y
+ 6, x
+ 6) CALL PLOT
(x
- 1, y
+ 7):
CALL PLOT
(x
+ 5, y
+ 7) CALL HLIN
(x
, x
+ 4, y
+ 8)
gameString$ = "O1"
playersMove = GetLocation
gameString$ = gameString$ + "X" + S$(playersMove)
CASE "O1X2", "O1X3", "O1X6", "O1X8", "O1X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O9"
playersMove = GetLocation
gameString$ = gameString$ + "X" + S$(playersMove)
CASE "O1X2O7X3", "O1X2O7X5", "O1X2O7X6", "O1X2O7X8", "O1X2O7X9" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O9"
CASE "O1X3O7X2", "O1X3O7X5", "O1X3O7X6", "O1X3O7X8", "O1X3O7X9" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O9"
CASE "O1X4O3X5", "O1X4O3X6", "O1X4O3X7", "O1X4O3X8", "O1X4O3X9" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O5"
CASE "O1X5O3X4", "O1X5O3X6", "O1X5O3X7", "O1X5O3X8", "O1X5O3X9" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O8"
CASE "O1X6O7X2", "O1X6O7X3", "O1X6O7X5", "O1X6O7X8", "O1X6O7X9" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O5"
CASE "O1X7O9X2", "O1X7O9X3", "O1X7O9X4", "O1X7O9X6", "O1X7O9X8" gameString$ = gameString$ + "O5"
gameString$ = gameString$ + "O3"
CASE "O1X8O7X2", "O1X8O7X3", "O1X8O7X5", "O1X8O7X6", "O1X8O7X9" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O3"
CASE "O1X9O7X2", "O1X9O7X3", "O1X9O7X5", "O1X9O7X6", "O1X9O7X8" gameString$ = gamerstring$ + "O4"
gameString$ = gameString$ + "O3"
winner = CheckTieOrWin
playersMove = GetLocation
gameString$ = gameString$ + "X" + S$(playersMove)
winner = CheckTieOrWin
CASE "O1X2O7X4O9X3", "O1X2O7X4O9X5", "O1X2O7X4O9X6" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O5"
CASE "O1X3O7X4O9X2", "O1X3O7X4O9X5", "O1X3O7X4O9X6" gameString$ = gameString$ + "O8"
gamesring$ = gamestr4ing$ + "O5"
CASE "O1X4O3X2O5X6", "O1X4O3X2O5X7", "O1X4O3X2O5X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O6"
CASE "O1X5O3X2O8X6", "O1X5O3X2O8X9" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O9"
CASE "O1X6O7X4O5X2", "O1X6O7X4O5X3", "O1X6O7X4O5X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O3"
CASE "O1X7O9X5O3X2", "O1X7O9X5O3X4", "O1X7O9X5O3X8" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O2"
CASE "O1X8O7X4O3X2", "O1X8O7X4O3X6", "O1X8O7X4O3X9" gameString$ = gameString$ + "O5"
gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O5"
CASE "O1X9O7X4O3X5", "O1X9O7X4O3X6", "O1X9O7X4O3X8" gameString$ = gameString$ + "O2"
winner = CheckTieOrWin
playersMove = GetLocation
gameString$ = gameString$ + "X" + S$(playersMove)
winner = CheckTieOrWin
CASE "O1X5O3X2O8X4O6X7" ', "O1X5O3X2O8X6O4X7" gameString$ = gamesring$ + "O9"
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O7"
winner = CheckTieOrWin
repeat:
a$ = "Do you want to watch a replay? (Y / N) "
a$ = "Play again? (Y / N) "
tryAgain:
mover$
= MID$(gameString$
, countThroughString
, 1) play$
= MID$(gameString$
, countThroughString
+ 1, 1) winner = CheckTieOrWin
'allFilled = TRUE
rtn = 0
who$ = "X"
rtn = xWon
rtn = xWon
rtn = xWon
rtn = xWon
rtn = xWon
rtn = xWon
rtn = xWon
rtn = xWon
who$ = "O"
rtn = oWon
WinLine (acrossMid)
rtn = oWon
WinLine (acrossBot)
rtn = oWon
WinLine (vertL)
rtn = oWon
rtn = oWon
rtn = oWon
rtn = oWon
WinLine (diagBL)
rtn = oWon
rtn = tie
CheckTieOrWin = rtn
playerMove = GetLocation
gameString$ = "X" + S$(playerMove)
PrintX (playerMove)
gameString$ = gameString$ + "O5"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O2"
playerMove = GetLocation
' COLOR 15, 0: LOCATE 46, 10: PRINT gameString$: COLOR 11, 13: CALL P(TRUE)
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X1O5X2O3X4", "X1O5X2O3X6", "X1O5X2O3X8", "X1O5X2O3X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O4"
CASE "X1O5X3O2X4", "X1O5X3O2X6", "X1O5X3O2X7", "X1O5X3O2X9" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O4"
CASE "X1O5X4O7X2", "X1O5X4O7X6", "X1O5X4O7X8", "X1O5X4O7X9" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O2"
CASE "X1O5X6O3X2", "X1O5X6O3X4", "X1O5X6O3X8", "X1O5X6O3X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O4"
CASE "X1O5X7O4X2", "X1O5X7O4X3", "X1O5X7O4X8", "X1O5X7O4X9" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O2"
CASE "X1O5X8O4X2", "X1O5X8O4X3", "X1O5X8O4X7", "X1O5X8O4X9" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O3"
CASE "X1O5X9O2X3", "X1O5X9O2X4", "X1O5X9O2X6", "X1O5X9O2X7" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O7"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X1O5X2O3X7O4X8", "X1O5X2O3X7O4X9" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O8"
CASE "X1O5X3O2X8O4X7", "X1O5X3O2X8O4X9" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O9"
CASE "X1O5X4O7X3O2X6", "X1O5X4O7X3O2X9" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O6"
CASE "X1O5X6O3X7O4X2", "X1O5X6O3X7O4X9" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O9"
CASE "X1O5X7O4X6O2X3", "X1O5X7O4X6O2X9" gamest4ring$ = gameastring$ + "O8"
gameString$ = gameString$ + "O9"
CASE "X1O5X8O4X6O3X2", "X1O5X8O4X6O3X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O9"
CASE "X1O5X9O2X8O7X4", "X1O5X9O2X8O7X6" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O6"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CALL PLOT
(count
+ 21, count
+ 4) y = 42 '48
y = y - 1
gameString$ = gameString$ + "O5"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O3"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X2O5X1O3X4", "X2O5X1O3X6", "X2O5X1O3X8", "X2O5X1O3X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O4"
CASE "X2O5X3O1X4", "X2O5X3O1X6", "X2O5X3O1X7", "X2O5X3O1X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O6"
CASE "X2O5X4O1X3", "X2O5X4O1X6", "X2O5X4O1X7", "X2O5X4O1X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O3"
CASE "X2O5X6O3X1", "X2O5X6O3X4", "X2O5X6O3X8", "X2O5X6O3X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O1"
CASE "X2O5X7O1X3", "X2O5X7O1X4", "X2O5X7O1X6", "X2O5X7O1X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O8"
CASE "X2O5X8O1X3", "X2O5X8O1X4", "X2O5X8O1X6", "X2O5X8O1X7" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O7"
CASE "X2O5X9O3X1", "X2O5X9O3X4", "X2O5X9O3X6", "X2O5X9O3X8" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O8"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X2O5X1O3X7O4X8", "X2O5X1O3X7O4X9" gameString$ = gameString$ + "X6"
gameString$ = gameString$ + "O8"
CASE "X2O5X3O1X9O6X7", "X2O5X3O1X9O6X8" gameString$ = gameString$ + "4"
gameString$ = gameString$ + "O7"
CASE "X2O5X4O1X9O3X6", "X2O5X4O1X9O3X8" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O8"
CASE "X2O5X6O3X7O1X4", "X2O5X6O3X7O1X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O3"
gameString$ = gasmestring$ + "O3"
CASE "X2O5X8O1X9O7X4", "X2O5X8O1X9O7X6" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O1"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O5"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O6"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X3O5X1O2X4", "X3O5X1O2X6", "X3O5X1O2X7", "X3O5X1O2X9" gameString$ = gameString$ + "O8"
CASE "X3O5X1O2X8" '******** gameString$ = gameString$ + "O4"
CASE "X3O5X2O1X4", "X3O5X2O1X6", "X3O5X2O1X7", "X3O5X2O1X8" gameString$ = gameString$ + "O9"
CASE "X3O5X2O1X9" ' *************** gameString$ = gameString$ + "O6"
CASE "X3O5X4O1X2", "X3O5X4O1X6", "X3O5X4O1X7", "X3O5X4O1X8" gameString$ = gamestgring$ + "O9"
CASE "X3O5X4O1X9" '*********** gameString$ = gameString$ + "O6"
CASE "X3O5X6O9X2", "X3O5X6O9X4", "X3O5X6O9X7", "X3O5X6O9X8" gameString$ = gameString$ + "O1"
CASE "X3O5X6O9X1" '*********** gameString$ = gameString$ + "O2"
CASE "X3O5X7O2X1", "X3O5X7O2X4", "X3O5X7O2X6", "X3O5X7O2X9" gameString$ = gameString$ + "O8"
CASE "X3O5X7O2X8" '********* gameString$ = gameString$ + "O9"
CASE "X3O5X8O9X2", "X3O5X8O9X4", "X3O5X8O9X6", "X3O5X8O9X7" gameString$ = gameString$ + "O1"
CASE "X3O5X8O9X1" '************ gameString$ = gameString$ + "O2"
CASE "X3O5X9O6X1", "X3O5X9O6X2", "X3O5X9O6X7", "X3O5X9O6X8" gameString$ = gameString$ + "O4"
CASE "X3O5X9O6X4" '******* gameString$ = gameString$ + "O2"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X3O5X1O2X8O4X7", "X3O5X1O2X8O4X9" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O9"
CASE "X3O5X2O1X9O6X7", "X3O5X2O1X9O6X8" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O7"
CASE "X3O5X4O1X9O6X2", "X3O5X4O1X9O6X7" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O7"
CASE "X3O5X6O9X1O2X4", "X3O5X6O9X1O2X7" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O4"
CASE "X3O5X7O2X8O9X4", "X3O5X7O2X8O9X6" gameString$ = gamest5ring$ + "O1"
gameString$ = gameString$ + "O4"
CASE "X3O5X8O9X1O2X4", "X3O5X8O9X1O2X6" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O4"
CASE "X3O5X9O6X4O2X1", "X3O5X9O6X4O2X7" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O7"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O5"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O7"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X4O5X1O7X2", "X4O5X1O7X6", "X4O5X1O7X8", "X4O5X1O7X9" gameString$ = gameString$ + "O3"
CASE "X4O5X1O7X3" '*********** gameString$ = gameString$ + "O2"
CASE "X4O5X2O1X3", "X4O5X2O1X6", "X4O5X2O1X7", "X4O5X2O1X8" gameString$ = gameString$ + "O9"
CASE "X4O5X2O1X9" '************* gameString$ = gameString$ + "O3"
CASE "X4O5X3O1X2", "X4O5X3O1X6", "X4O5X3O1X7", "X4O5X3O1X8" gameString$ = gameString$ + "O9"
CASE "X4O5X3O1X9" '************** gameString$ = gameString$ + "O6"
CASE "X4O5X6O1X2", "X4O5X6O1X3", "X4O5X6O1X7", "X4O5X6O1X8" gameString$ = gameString$ + "O9"
CASE "X4O5X6O1X9" '**************** gameString$ = gameString$ + "O3"
CASE "X4O5X7O1X2", "X4O5X7O1X3", "X4O5X7O1X6", "X4O5X7O1X8" gameString$ = gameString$ + "O9"
CASE "X4O5X7O1X9" '******************** gameString$ = gameString$ + "O8"
CASE "X4O5X8O7X1", "X4O5X8O7X2", "X4O5X8O7X6", "X4O5X8O7X9" gameString$ = gameString$ + "O3"
CASE "X4O5X8O7X3" '******************** gameString$ = gameString$ + "O1"
CASE "X4O5X9O7X1", "X4O5X9O7X2", "X4O5X9O7X6", "X4O5X9O7X8" gameString$ = gameString$ + "O3"
CASE "X4O5X9O7X3" '**************** gameString$ = gameString$ + "O6"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X4O5X1O7X3O2X6", "X4O5X1O7X3O2X9" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O6"
CASE "X4O5X2O1X9O3X6", "X4O5X2O1X9O3X8" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O8"
CASE "X4O5X3O1X9O6X2", "X4O5X3O1X9O6X7" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O7"
CASE "X4O5X6O1X9O3X2", "X4O5X6O1X9O3X8" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O2"
CASE "X4O5X7O1X9O8X3", "X4O5X7O1X9O8X6" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O3"
CASE "X4O5X8O7X3O1X2", "X4O5X8O7X3O1X6" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O6"
CASE "X4O5X9O7X3O6X1", "X4O5X9O7X3O6X8" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O1"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O1"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O3"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
'X5O1X2O8X
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O4"
' X5O1X3O7X
CASE "X5O1X3O7X2", "X5O1X3O7X6", "X5O1X3O7X8", "X5O1X3O7X9" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O6"
'"X5O1X4O6X
CASE "X5O1X4O6X2", "X5O1X4O6X9" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O2"
CASE "X5O1X6O4X2", "X5O1X6O4X3", "X5O1X6O4X8", "X5O1X6O4X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O3"
CASE "X5O1X7O3X4", "X5O1X7O3X6", "X5O1X7O3X8", "X5O1X7O3X9" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O8"
CASE "X5O1X8O2X4", "X5O1X8O2X6", "X5O1X8O2X7", "X5O1X8O2X9" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O7"
CASE "X5O1X9O3X4", "X5O1X9O3X6", "X5O1X9O3X7", "X5O1X9O3X8" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O8"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X5O1X2O8X3O7X4", "X5O1X2O8X3O7X6" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O7"
CASE "X5O1X2O8X4O6X7", "X5O1X2O8X4O6X9" gameString$ = gameString$ + "O3"
CASE "X5O1X2O8X6O4X3", "X5O1X2O8X6O4X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O3"
CASE "X5O1X2O8X7O3X4", "X5O1X2O8X7O3X9" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O4"
CASE "X5O1X2O8X9O4X3", "X5O1X2O8X9O4X6" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O8"
CASE "X5O1X3O7X4O6X8", "X5O1X3O7X4O6X9" gameString$ = gamestgring$ + "O2"
CASE "X5O1X4O6X2O8X3", "X5O1X4O6X2O8X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O8"
CASE "X5O1X4O6X3O7X8", "X5O1X4O6X3O7X9" gameString$ = gameString$ + "O2"
CASE "X5O1X4O6X7O3X2", "X5O1X4O6X7O3X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O7"
CASE "X5O1X4O6X8O2X7", "X5O1X4O6X8O2X9" gameString$ = gameString$ + "O3"
CASE "X5O1X4O6X9O8X2", "X5O1X4O6X9O8X7" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O7"
CASE "X5O1X6O4X7O3X8", "X5O1X6O4X7O3X9" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O8"
CASE "X5O1X7O3X2O8X6", "X5O1X7O3X2O8X9" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O6"
CASE "X5O1X8O2X3O7X6", "X5O1X8O2X3O7X9" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O6"
CASE "X5O1X9O3X2O8X4", "X5O1X9O3X2O8X7" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O4"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O5"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O3"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X6O5X1O3X2", "X6O5X1O3X4", "X6O5X1O3X8", "X6O5X1O3X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O4"
CASE "X6O5X2O3X1", "X6O5X2O3X4", "X6O5X2O3X8", "X6O5X2O3X9" gameString$ = gameString$ + "O7"
CASE "X6O5X2O3X7" '*********** gameString$ = gameString$ + "O1"
CASE "X6O5X3O9X2", "X6O5X3O9X4", "X6O5X3O9X7", "X6O5X3O9X8" gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O2"
CASE "X6O5X4O3X1", "X6O5X4O3X2", "X6O5X4O3X8", "X6O5X4O3X9" gameString$ = gameString$ + "O7"
CASE "X6O5X4O3X7" '******************** gameString$ = gameString$ + "O1"
CASE "X6O5X7O9X2", "X6O5X7O9X3", "X6O5X7O9X4", "X6O5X7O9X8" gameString$ = gameString$ + "O1"
CASE "X6O5X7O9X1" '********************** gameString$ = gameString$ + "O4"
CASE "X6O5X8O9X2", "X6O5X8O9X3", "X6O5X8O9X4", "X6O5X8O9X7" gameString$ = gameString$ + "O1"
CASE "X6O5X8O9X1" '****************************** gameString$ = gameString$ + "O3"
CASE "X6O5X9O3X1", "X6O5X9O3X2", "X6O5X9O3X4", "X6O5X9O3X8" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O8"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X6O5X1O3X7O4X2", "X6O5X1O3X7O4X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O8"
CASE "X6O5X2O3X7O1X4", "X6O5X2O3X7O1X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "4"
CASE "X6O5X3O9X1O2X4", "X6O5X3O9X1O2X7" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O4"
CASE "X6O5X4O3X7O1X2", "X6O5X4O3X7O1X8" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O2"
CASE "X6O5X7O9X1O4X2", "X6O5X7O9X1O4X8" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O2"
CASE "X6O5X8O9X1O3X2", "X6O5X8O9X1O3X4" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O4"
CASE "X6O5X9O3X7O8X1", "X6O5X9O3X7O8X4" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O1"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O5"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O8"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X7O5X1O4X2", "X7O5X1O4X3", "X7O5X1O4X8", "X7O5X1O4X9" gameString$ = gameString$ + "O6"
CASE "X7O5X1O4X6" '********************** gameString$ = gameString$ + "O2"
CASE "X7O5X2O1X3", "X7O5X2O1X4", "X7O5X2O1X6", "X7O5X2O1X8" gameString$ = gameString$ + "O9"
CASE "X7O5X2O1X9" '**************************** gameString$ = gameString$ + "O8"
CASE "X7O5X3O2X1", "X7O5X3O2X4", "X7O5X3O2X6", "X7O5X3O2X9" gameString$ = gameString$ + "O8"
CASE "X7O5X3O2X8" '******************* gameString$ = gameString$ + "O9"
CASE "X7O5X4O1X2", "X7O5X4O1X3", "X7O5X4O1X6", "X7O5X4O1X8" gameString$ = gameString$ + "O9"
CASE "X7O5X4O1X9" '********************** gameString$ = gameString$ + "O8"
CASE "X7O5X6O9X2", "X7O5X6O9X3", "X7O5X6O9X4", "X7O5X6O9X8" gameString$ = gameString$ + "O1"
CASE "X7O5X6O9X1" '****************** gameString$ = gameString$ + "O4"
CASE "X7O5X8O9X2", "X7O5X8O9X3", "X7O5X8O9X4", "X7O5X8O9X6" gameString$ = gameString$ + "O1"
CASE "X7O5X8O9X1" '****************** gameString$ = gameString$ + "O4"
CASE "X7O5X9O8X1", "X7O5X9O8X3", "X7O5X9O8X4", "X7O5X9O8X6" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O4"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
' color 15,0:locate 45,10:?gamestring$:call p(true)
CASE "X7O5X1O4X6O2X3", "X7O5X1O4X6O2X9" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O9"
CASE "X7O5X2O1X9O8X3", "X7O5X2O1X9O8X4" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O3"
CASE "X7O5X3O2X8O9X4", "X7O5X3O2X8O9X6" gameString$ = gameString$ + "O1"
gameString$ = gameString$ + "O4"
CASE "X7O5X4O1X9O8X3", "X7O5X4O1X9O8X6" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O3"
CASE "X7O5X6O9X1O4X2", "X7O5X6O9X1O4X8" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O2"
CASE "X7O5X8O9X1O4X2", "X7O5X8O9X1O4X3" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O2"
CASE "X7O5X9O8X2O4X1", "X7O5X9O8X2O4X3" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O3"
CASE "X7O5X6O9X1O4X2", "X7O5X6O9X1O4X8" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O2"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O5"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O7"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X8O5X1O4X2", "X8O5X1O4X3", "X8O5X1O4X7", "X8O5X1O4X9" gameString$ = gameString$ + "O6"
CASE "X8O5X1O4X6" '********** gameString$ = gameString$ + "O3"
CASE "X8O5X2O7X1", "X8O5X2O7X4", "X8O5X2O7X6", "X8O5X2O7X9" gameString$ = gameString$ + "O3"
CASE "X8O5X2O7X3" '****************** gameString$ = gameString$ + "O1"
CASE "X8O5X3O6X1", "X8O5X3O6X2", "X8O5X3O6X7", "X8O5X3O6X9" gameString$ = gameString$ + "O4"
CASE "X8O5X3O6X4" '&&&&&&&&&T gameString$ = gameString$ + "O1"
CASE "X8O5X4O7X1", "X8O5X4O7X2", "X8O5X4O7X6", "X8O5X4O7X9" gameString$ = gameString$ + "O3"
CASE "X8O5X4O7X3" 'ERRRRRRRRRRRRRR gameString$ = gameString$ + "O1"
CASE "X8O5X6O9X2", "X8O5X6O9X3", "X8O5X6O9X4", "X8O5X6O9X7" gameString$ = gameString$ + "O1"
CASE "X8O5X6O9X1" ' *(******************* gameString$ = gameString$ + "O7"
CASE "X8O5X7O9X2", "X8O5X7O9X3", "X8O5X7O9X4", "X8O5X7O9X6" gameString$ = gamest4ring$ + "O1"
CASE "X8O5X7O9X1" '************* gameString$ = gameString$ + "O4"
CASE "X8O5X9O7X1", "X8O5X9O7X2", "X8O5X9O7X4", "X8O5X9O7X6" gameString$ = gameString$ + "O3"
CASE "X8O5X9O7X3" ''''''''''''''''' gameString$ = gameString$ + "O6"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X8O5X1O4X6O3X2", "X8O5X1O4X6O3X9" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O9"
CASE "X8O5X2O7X3O1X4", "X8O5X2O7X3O1X6" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O4"
CASE "X8O5X3O6X4O1X2", "X8O5X3O6X4O1X7" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O7"
CASE "X8O5X4O7X3O1X2", "X8O5X4O7X3O1X6" gameString$ = gameString$ + "O9"
gameString$ = gameString$ + "O2"
CASE "X8O5X6O9X1O7X2", "X8O5X6O9X1O7X4" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O2"
CASE "X8O5X7O9X1O4X3", "X8O5X7O9X1O4X2" gamestreing$ = gameString$ + "O6"
gameString$ = gameString$ + "O2"
CASE "X8O5X9O7X3O6X1", "X8O5X9O7X3O6X2" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O1"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O5"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O7"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X9O5X1O2X3", "X9O5X1O2X4", "X9O5X1O2X6", "X9O5X1O2X7" gameString$ = gameString$ + "O8"
CASE "X9O5X1O2X8" ''''''''''''''''''''''''' gameString$ = gameString$ + "O7"
CASE "X9O5X2O4X1", "X9O5X2O4X3", "X9O5X2O4X7", "X9O5X2O4X8" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O3" '''''''''''''''''''''''''
CASE "X9O5X3O6X1", "X9O5X3O6X2", "X9O5X3O6X7", "X9O5X3O6X8" gameString$ = gameString$ + "O4"
CASE "X9O5X3O6X4" ''''''''''''''''''' gameString$ = gameString$ + "O2"
CASE "X9O5X4O8X1", "X9O5X4O8X3", "X9O5X4O8X6", "X9O5X4O8X7" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O3"
CASE "X9O5X6O3X1", "X9O5X6O3X2", "X9O5X6O3X4", "X9O5X6O3X8" gameString$ = gameString$ + "O7"
CASE "X9O5X6O3X7" '''''''''''''''' gameString$ = gameString$ + "O8"
CASE "X9O5X7O8X1", "X9O5X7O8X3", "X9O5X7O8X4", "X9O5X7O8X6" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O4"
CASE "X9O5X8O7X1", "X9O5X8O7X2", "X9O5X8O7X4", "X9O5X8O7X6" gameString$ = gameString$ + "O3"
CASE "X9O5X8O7X3" '''''''''''''''''' gameString$ = gameString$ + "O6"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
CASE "X9O5X1O2X8O7X4", "X9O5X1O2X8O7X6" gameString$ = gameString$ + "O3"
gameString$ = gameString$ + "O6"
CASE "X9O5X2O4X6O3X1", "X9O5X2O4X6O3X8" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O8"
CASE "X9O5X3O6X4O2X1", "X9O5X3O6X4O2X7" gameString$ = gameString$ + "O8"
gameString$ = gameString$ + "O7"
CASE "X9O5X4O8X2O3X1", "X9O5X4O8X2O3X6" gameString$ = gameString$ + "O7"
gameString$ = gameString$ + "O1"
CASE "X9O5X6O3X7O8X1", "X9O5X6O3X7O8X4" gameString$ = gameString$ + "O2"
gameString$ = gameString$ + "O1"
CASE "X9O5X7O8X2O4X1", "X9O5X7O8X2O4X3" gameString$ = gameString$ + "O6"
gameString$ = gameString$ + "O3"
CASE "X9O5X8O7X3O6X1", "X9O5X8O7X3O6X2" gameString$ = gameString$ + "O4"
gameString$ = gameString$ + "O1"
playerMove = GetLocation
gameString$ = gameString$ + "X" + S$(playerMove)
nope:
GetLocation = here
Center
= INT((80 - LEN(this$
)) / 2)