Update SNAKE.BAS