Sorry your browser is not supported!

diagstr$=str$(playfield(4,1)) + str$(playfield(3,2)) + str$(playfield(2,3)) + str$(playfield(1,4))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
		
	diagstr$=str$(playfield(5,1)) + str$(playfield(4,2)) + str$(playfield(3,3)) + str$(playfield(2,4)) + str$(playfield(1,5))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
		
	diagstr$=str$(playfield((6,1)) + str$(playfield(5,2)) + str$(playfield(4,3)) + str$(playfield(3,4)) + str$(playfield(2,5)) + str$(playfield(1,6))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
		
	diagstr$=str$(playfield((7,1)) + str$(playfield(6,2)) + str$(playfield(5,3)) + str$(playfield(4,4)) + str$(playfield(3,5)) + str$(playfield(2,6 ))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
		
	diagstr$=str$(playfield((7,2)) + str$(playfield(6,3)) + str$(playfield(5,4)) + str$(playfield(4,5)) + str$(playfield(3,6))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
		
	diagstr$=str$(playfield((7,3)) + str$(playfield(6,4)) + str$(playfield(5,5)) + str$(playfield(4,6))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
		
   diagstr$=str$(playfield((1,3)) + str$(playfield(2,4)) + str$(playfield(3,5)) + str$(playfield(4,6))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
	
	diagstr$=str$(playfield((1,2)) + str$(playfield(2,3)) + str$(playfield(3,4)) + str$(playfield(4,5)) + str$(playfield(5,6))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
	
	diagstr$=str$(playfield((1,1)) + str$(playfield(2,2)) + str$(playfield(3,3)) + str$(playfield(4,4)) + str$(playfield(5,5)) + str$(playfield(6,6))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
	
	diagstr$=str$(playfield((2,1)) + str$(playfield(3,2)) + str$(playfield(4,3)) + str$(playfield(5,4)) + str$(playfield(6,5)) + str$(playfield(7,6))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
	
	diagstr$=str$(playfield((3,1)) + str$(playfield(4,2)) + str$(playfield(5,3)) + str$(playfield(6,4)) + str$(playfield(7,5))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat
	
	diagstr$=str$(playfield((4,1)) + str$(playfield(5,2)) + str$(playfield(6,3)) + str$(playfield(7,4))
	if find sub string$(diagstr$, "1111") >0 then goto victory
	if find sub string$(diagstr$, "2222") >0 then goto defeat

Dim Grid(7,7)
Count = 0
Player = 1
Do
    `Randomly Populate Grid on Each Mouseclick (Demonstration)
    If MouseClick() and Count < 7*7
        Repeat Until MouseClick()=0
        Count = Count + 1
        Repeat
            X = RND(6)+1            
            Y = RND(6)+1
        Until Grid(X,Y) = 0      
        Grid(X,Y) = Player
        `Check Grid after every entry
        If Check_Grid() = Player then Center Text 9*6,9*12,"Player "+Mid$("XOZ",Player+2 )+" Won!":Wait key : End
        `Alternate Player
        Player = - Player        
    Endif
    `Refresh Grid
    Cls    
    For X=1 to 7
        For Y=1 to 7
            Text X*12,Y*12,Mid$("XOZ",Grid(X,Y)+2 )
        Next
    Next    
Loop
End

Function Check_Grid()
    Result = 0
    For X=1 to 4
        For Y=1 to 4
            Ch0 = Grid(X,Y)
            If Ch0 <> 0
                `Reset check values to 1
                Ch1 = 1 : Ch2 = 1 :  Ch3 = 1 :  Ch4 = 1
                For Z=1 to 3
                    `Check Horizontal
                    If Grid(X+Z,Y) = Ch0 then Ch1 = Ch1 +1 : If Ch1 = 4 then ExitFunction Ch0
                    `Check Vertical
                    If Grid(X,Y+Z) = Ch0 then Ch2 = Ch2 +1 : If Ch2 = 4 then ExitFunction Ch0
                    `Check Diagonal TL-BR
                    If Grid(X+Z,Y+Z) = Ch0 then Ch3 = Ch3 +1 : If Ch3 = 4 then ExitFunction Ch0
                    `Check Diagonal TR-BL    
                    If Grid((X+3)-Z,Y+Z) = Ch0 then Ch4 = Ch4 +1 : If Ch4 = 4 then ExitFunction Ch0
                Next
            Endif
        Next
    Next
EndFunction Result