这是一个记忆测试的程序。你刚开始可以选择难度0-F，0最简单，F最难。选定后，系统会根据难度不同出不同长度的数字和大写英文字母（只有A-F）的组合，并且是不同的颜色。每一组测试数据可以记30秒的时间，30秒之后会问你，这个时候你输入的不是刚才的数字和字母，而是这些数字和字母的颜色号（按QB的颜色号，大于9的用16进制中的大写字母），按顺序。每答对一组得10分，总共10组，满分100分。

这也有一些游戏的成分，不过特别整人。先从最简单的练起，最后如果你在F难度里得到100分就可以参加全世界的记忆比赛了！！

源代码：
CLS
RANDOMIZE TIMER
COLOR 7
a$ = "": c$ = ""
PRINT "Choose difficulty:"
COLOR 4
FOR i = 0 TO 15
    IF i < 10 THEN PRINT CHR$(i + 48) ELSE PRINT CHR$(i + 55)
NEXT i
COLOR 7
DO
  n$ = INPUT$(1)
  f = INSTR("0123456789ABCDEFabcdef", n$)
LOOP UNTIL f
IF f <= 16 THEN f = f + 4 ELSE f = f - 2
FOR i = 1 TO 10
    CLS : a$ = "": c$ = ""
    FOR j = 1 TO f
        k1 = INT(RND * 15) + 1: k2 = INT(RND * 15) + 1
        IF k1 < 10 THEN s1$ = LTRIM$(STR$(k1)) ELSE s1$ = CHR$(k1 + 55)
        IF k2 < 10 THEN s2$ = LTRIM$(STR$(k2)) ELSE s2$ = CHR$(k2 + 55)
        a$ = a$ + s1$: c$ = c$ + s2$
    NEXT j
    FOR j = 1 TO f
        m$ = MID$(c$, j, 1)
        IF m$ < "9" THEN t = ASC(m$) - 48 ELSE t = ASC(m$) - 55
        COLOR t: PRINT MID$(a$, j, 1);
    NEXT j
    SLEEP 30
    CLS
    INPUT m$
    IF UCASE$(m$) = c$ THEN PRINT "Good!": sc = sc + 10
NEXT i
CLS : PRINT "score="; sc
END