这是我为了庆祝我得到第4000分而设计的。
这个游戏和我以前编的“会变色的图形”比较相似，都是考眼力的，不过这次我加进去了纸牌基本的特征。

游戏的规则：

游戏共有5关，刚开始可以选关（1-5），然后进入该关游戏。

界面上会显示3张黄色的纸牌，其中纸牌的左上角是它的点数，其中有两张点数相同，另一张是A。之后这些纸牌会换来换去，如果有两张牌同时用红色显示就表明它们交换了。交换若干次后会让你输入那张A在从左到右第几张（1-3），看你能不能输对。

源代码：
CLS
RANDOMIZE TIMER
SCREEN 12
1 INPUT "Input level:"; level
IF level < 1 OR level > 5 OR level <> INT(level) THEN LOCATE 1, 1: GOTO 1
CLS
COLOR 4: LOCATE 4, 35: PRINT "level"; level
SLEEP 5
CLS
LINE (100, 100)-(200, 250), 14, BF
LINE (275, 100)-(375, 250), 14, BF
LINE (450, 100)-(550, 250), 14, BF
s1 = INT(RND * 9) + 2: s2 = INT(RND * 3) + 1
COLOR 7: DIM s(3)
FOR i = 1 TO 3
    LOCATE 8, 13 + (i - 1) * 22
    IF i = s2 THEN PRINT " A ": s(i) = 1 ELSE PRINT s1: s(i) = s1
NEXT i
SLEEP 3
m = 0
CLS
DO
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  k1 = INT(RND * 3) + 1
2 k2 = INT(RND * 3) + 1
  IF k2 = k1 THEN 2
  FOR i = 1 TO 3
      IF i = k1 OR i = k2 THEN
         LINE (100 + (i - 1) * 175, 100)-(200 + (i - 1) * 175, 250), 4, BF
      END IF
  NEXT i
  SLEEP 1
  CLS
  LINE (100, 100)-(200, 250), 14, BF
  LINE (275, 100)-(375, 250), 14, BF
  LINE (450, 100)-(550, 250), 14, BF
  FOR i = 1 TO (6 - level) * 75000: NEXT i
  SWAP s(k1), s(k2)
  m = m + 1
LOOP UNTIL m = 5 + level * 2
CLS
INPUT "Input 'A' situation:"; s
f = 1
FOR i = 1 TO 3
    IF s(i) = 1 AND i = s THEN PRINT "Right!": f = 0: EXIT FOR
NEXT i
IF f THEN
   PRINT "Wrong!Right is";
   FOR i = 1 TO 3
       IF s(i) = 1 THEN PRINT i
   NEXT i
END IF
END
                                                         *****************
                                                        |Matodied     游戏|
                                                        |[size=6][color=FF0000][b]Matodied[/b][/color][/size] |
                                                        |版权所有 严禁抄袭|
                                                         *****************