记忆训练程序 哈尔滨 翟光 1994-02-25 10 SCREEN 0: WIDTH 40: CLS : L = 13: A$ = CHR$(24): RANDOMIZE TIMER 20 FOR Z = 1 TO 2: FOR V = 3 TO 6: COLOR V - 6 + Z * 4: LOCATE 12， (V - 3) * 2 + 5 + Z * 8: PRINT CHR$(V): NEXT V， Z 30 I = I + 1: O = 1: J = INT(RND * 8): J$ = J$ + RIGHT$(STR$(J)， 1): COLOR 2: LOCATE 9， 19: PRINT I 40 q$ = CHR$(SCREEN(12， 13 + J * 2)): LOCATE 12， 13 + J * 2: COLOR 31: PRINT q$: FOR H = 1 TO 20000: NEXT: LOCATE 12， 13 + J * 2: COLOR J + 1: PRINT q$ 50 K$ = INKEY$: IF K$ <> "" THEN K = ASC(RIGHT$(K$， 1)) ELSE K = 0 60 COLOR 15: LOCATE 13， L: PRINT " ": L = L + (K = 75 AND L > 13) * 2 - (K = 77 AND L < 27) * 2: LOCATE 13， L: PRINT A$ 70 IF K = 13 AND L = 13 + VAL(MID$(J$， O， 1)) * 2 THEN F = 0: O = O + 1: BEEP ELSE IF K = 13 THEN PLAY "O0BAGFEDC": F = F + 1: IF F > 2 THEN END 80 IF O - 1 = I THEN FOR P = 1 TO I + 5: SOUND RND * 1000 + 500， 3: NEXT: GOTO 30 100 GOTO 50 本程序在286、386微机，GWBASIC3.23通过。