CASE ELSE
              IF kd$ = "" THEN
                 SLEEP 1
              ELSEIF kd$ = CHR$(27) THEN
                 Times = Null
                 QuitSUB = True
              END IF
  END SELECT
LOOP UNTIL QuitSUB
IF kd$ = CHR$(0) + "?" THEN
   Welcome = True
ELSE
   Welcome = False
END IF
PALETTE
END FUNCTION

'
' 判断是否获胜, 并给获胜方加一面小红旗
'
FUNCTION Wing
DIM inc AS MAP
FOR Y = 1 TO TableSize
   FOR X = 1 TO TableSize
      boy = Table(X, Y)
      IF boy <> 0 THEN
         FOR Dir = 2 TO 5
            wpower = 0
            inc.X = X + DirForm(Dir).X
            inc.Y = Y + DirForm(Dir).Y
            WHILE boy = Table(inc.X, inc.Y)
               wpower = wpower + 1
               inc.X = inc.X + DirForm(Dir).X
               inc.Y = inc.Y + DirForm(Dir).Y
            WEND
            IF wpower > 3 THEN
               MoveHand 1
               FOR W = 0 TO 4
                  TX = Debug.X + (X + W * DirForm(Dir).X - 1) * FootStep.X
                  TY = Debug.Y + (Y + W * DirForm(Dir).Y - 1) * FootStep.Y
                  PutFullCircle TX, TY, Round, 0
               NEXT
               Wing = True
               IF boy = Black THEN
                  Level(0) = Level(0) + 1
                  DispWing Black
               ELSE
                  Level(1) = Level(1) + 1
                  DispWing White
               END IF
               EXIT FUNCTION
            END IF
         NEXT Dir
      END IF
   NEXT X
NEXT Y
END FUNCTION