Create four-in-a-row.bas