put 1
put 2
put 3
...
put 10

for i : 1 .. 10
    put i
end for

for day : 1 .. 10
    put "Day ", day
    for punch : 1 .. 5
        put "Attack!"
    end for
end for

% Turn is skipped when:
%     selecting cell already taken
%     selecting invalid coords

% unnecessary 3 lines
fcn calcIndex (x : string, y : string) : int
    result (strint (y) - 1) * 3 + (strint (x) - 1) + 1
end calcIndex

var board : array 1 .. 9 of int := init (43, 43, 43, 43, 43, 43, 43, 43, 43) % Spaces
var x, y, winner : string := " "
loop
    for player : 79 .. 88 by 9 % O, X
        for ind : 0 .. 8
            locate (ind div 3 + 1, ind mod 3 + 1) % output is 1,2,3 \n 4,5,6 ...
            put chr (board (ind + 1))
        end for
        put "Input [separated by space]: x[1..3] y[1..3] ",skip," > ".. % This line is unnecessary function wise (-1 line)
        get x, y
        if strintok (x) and strintok (y) and 0 <= strint (x) and strint (x) <= 3 and 0 <= strint (y) and strint (y) <= 3 and board (calcIndex (x, y)) = 43 then
            board (calcIndex (x, y)) := player
        end if
        if board(1) = 79 and board(2) = 79 and board(3) = 79 then %all end cases scenarios
            winner := chr(player)
        end if
        exit when winner not= " "
    end for
    exit when winner not= " "
end loop
put "The mighty victor is " + winner + "!"