setscreen ("graphics:vga")
var brd : array 1 .. 8, 1 .. 8 of string (25)
var name : array 1 .. 2 of string (15)
var matt : array 1 .. 2 of string (5)
var n : array 1 .. 8 of int
var pl, r, c, ct, mc, d1, d2, ht, k, blah : int
var p : array 1 .. 8 of int
var gameover, ok : boolean

procedure setup
    for j : 1 .. 8
        for k : 1 .. 8
            brd (j, k) := "     "
        end for
    end for
    for j : 1 .. 8
        n (j) := 8
    end for
    pl := 1
    color (red)
    matt (1) := "  X  "
    color (black)
    matt (2) := "  O  "
end setup
procedure intro
    for j : 1 .. 2
        put "please input name ", j
        get name (j)
    end for
end intro
procedure display
    cls
    for j : 1 .. 8
        for k : 1 .. 8
            if k < 8 then
                put brd (j, k), "|" ..
            else
                put brd (j, k)
            end if
        end for
        if j < 8 then
            put "-----------------------------------------------"
        end if
    end for
end display
procedure switch
    if pl = 1 then
        pl := 2
    else
        pl := 1
    end if
end switch
procedure check
    ok := true
    if c > 8 or c < 1 then
        ok := false
        put name (pl), "please input numbers between 1->8 ONLY"
    end if
    if ok and n (c) > 0 then
        brd (n (c), c) := matt (pl)
        n (c) := n (c) - 1
    else
        ok := false
        put "pick a column that has room"
    end if
end check
procedure gamedone
    for j : 1 .. 8
        ht := 0
        for k : 1 .. 8
            if brd (j, k) = matt (pl) then
                ht := ht + 1
                if ht = 4 then
                    gameover := true
                end if
            else
                ht := 0
            end if
        end for
    end for
    for j : 1 .. 8
        ht := 0
        for k : 1 .. 8
            if brd (k, j) = matt (pl) then
                ht := ht + 1
                if ht = 4 then
                    gameover := true
                end if
            else
                ht := 0
            end if
        end for
    end for
    ct := 0
    ht := 0
    for d : 1 .. 5
        ct := ct + 1
        k := 0
        for j : ct .. 8
            k := k + 1
            if brd (j, k) = matt (pl) then
                ht := ht + 1
                if ht = 4 then
                    gameover := true
                end if
            else
                ht := 0
            end if
        end for
    end for
    ht := 0
    ct := 9
    for d : 1 .. 5
        ct := ct - 1
        k := 9
        for decreasing j : ct .. 1
            k := k - 1
            if brd (j, k) = matt (pl) then
                ht := ht + 1
                if ht = 4 then
                    gameover := true
                end if
            else
                ht := 0
            end if
        end for
    end for
    ct := 0
    ht := 0
    for d : 1 .. 5
        ct := ct + 1
        k := 9
        for j : ct .. 8
            k := k - 1
            if brd (k, j) = matt (pl) then
                ht := ht + 1
                if ht = 4 then
                    gameover := true
                end if
            else
                ht := 0
            end if
        end for
    end for
    ht := 0
    ct := 9
    for d : 1 .. 5
        ct := ct - 1
        k := 0
        for decreasing j : ct .. 1
            k := k + 1
            if brd (j, k) = matt (pl) then
                ht := ht + 1
                if ht = 4 then
                    gameover := true
                end if
            else
                ht := 0
            end if
        end for
    end for
end gamedone
gameover := false
setup
intro
display
loop
    loop
        put "  1     2     3     4     5     6     7     8"
        put name (pl), " input a col number"
        get c
        check
        exit when ok
    end loop
    display
    gamedone
    exit when gameover
    switch
end loop