标题键盘练习程序

　　整个程序短小精悍，在PC XT，GWBASIC3.22下运行通过。
　　5 KEY OFF: DIM X(26)， Y(26): RANDOMIZE TIMER
　　10 FOR I = 1 TO 26: READ Y(I)， X(I): NEXT
　　20 CLS : LOCATE 15， 22: PRINT STRING$(39， "-")
　　30 LOCATE 16， 21: PRINT "| Q | W | E | R | T | Y | U | I | O | P |"
　　40 LOCATE 17， 22: PRINT STRING$(39， "-")
　　50 LOCATE 18， 23: PRINT "| A | S | D | F | G | H | J | K | L |"
　　60 LOCATE 19， 24: PRINT STRING$(35， "-")
　　70 LOCATE 20， 25: PRINT "| Z | X | C | V | B | N | M |"
　　80 LOCATE 21， 26: PRINT STRING$(27， "-")
　　90 LOCATE 7， 25: PRINT STRING$(29， "-")
　　95 LOCATE 8， 25: PRINT "|"; SPACE$(27); "|"
　　100 LOCATE 9， 25: PRINT STRING$(29， "-")
　　110 TIME$ = "00:00": FOR I = 1 TO 10: a$ = ""
　　120 FOR J = 1 TO 25: a = INT(RND * 26 + 65): a$ = a$ + CHR$(a): NEXT
　　130 LOCATE 8， 27: PRINT a$: FOR K = 1 TO 25
　　135 B$ = MID$(a$， K， 1): B = ASC(B$) - 64
　　140 COLOR 0， 7: LOCATE Y(B)， X(B): PRINT B$
　　150 C$ = INKEY$
　　155 IF C$ = "" THEN 150 ELSE IF ASC(C$) = 27 THEN COLOR 7: GOTO 180
　　160 IF C$ <> B$ THEN BEEP: GOTO 150
　　170 S = S + 1: LOCATE 8， 26 + K: PRINT B$
　　175 COLOR 7， 0: LOCATE Y(B)， X(B): PRINT B$: NEXT: NEXT
　　180 T = VAL(MID$(TIME$， 4， 2)) + VAL(MID$(TIME$， 7， 2)) / 60
　　190 COLOR 7， 0: CLS : LOCATE 12， 35: PRINT "SPEED:"; INT(S / T)
　　200 LOCATE 20， 35: PRINT "GO ON(Y/N)？"
　　210 K$ = INKEY$: IF K$ = "" THEN 210 ELSE IF K$ <> "N" THEN S = 0: GOTO　　 20
　　220 END
　　500 DATA 18，25，20，43，20，35，18，33，16，31，18，37，18，41，18，45
　　510 DATA　　 16，51，18，49，18，53，18，57，20，51，20，47，16，55，16，59，16，23，16，35，18，29
　　520 DATA 16，39，16，47，20，39，16，27，20，31，16，43，20，27