10 CLV:CLS:CLT 20 FOR C=65 TO 90 30 X=C-65 35 Y=0 40 K=INKEY() 50 LC X,Y 60 ?" " 70 Y=Y+1 100 LC X,Y 110 ?CHR$(C) 112 WAIT 6 113 IF Y=23 BEEP 30,30:END 115 IF K!=C GOTO 40 117 BEEP 120 NEXT 130 LC 27,0:?TICK()/60