Keyboard Tutor

   10 LET O0=NOT PI: INK O0: PAPER 6: CLS : DIM O$(32): GO SUB 190
   20 CLS : PRINT P$'" ";P$'"  ";P$
   30 PRINT "\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\d \e\d \e\d \e\d \e\d \e\d \e\d \e\d \e\d \e\d \e\d \f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g"
   40 PRINT OVER SGN PI;AT SGN PI,O0;" 1  2  3  4  5  6  7  8  9  0";AT 4,2;"Q  W  E  R  T  Y  U  I  O  P"
   50 PRINT OVER SGN PI;AT 7,INT PI;"A  S  D  F  G  H  J  K  L  E";AT 10,1;"C  Z  X  C  V  B  N  M  S  B  C"
   60 PRINT AT 12,6;"\a\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\b\c           \d    SPACE  BAR     \e           \f\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\g\h"
   70 LET TOT=O0: LET RI=O0
   80 READ A$: IF A$="STOP" THEN RESTORE 260: READ A$
   90 PRINT INK SGN PI;AT 16,O0;O$;O$;AT 16,O0;A$;TAB O0;
  100 FOR I=SGN PI TO LEN A$
  110 LET T$=INKEY$: IF T$<>"" THEN GO TO 130
  120 GO TO 110
  130 LET TOT=TOT+1: BEEP .15,30: IF T$<>A$(I) THEN PRINT PAPER 5;T$;CHR$ 8;: GO TO 110
  140 LET RI=RI+1
  150 PRINT BRIGHT 1;T$;
  160 NEXT I: PRINT AT 21,25;INT (RI/TOT*100);"%  "
  170 INPUT "MORE? (Y/N) ";Q$: IF Q$<>"N" THEN PAUSE 25: GO TO 80
  180 STOP 
  190 REM USR charactors
  200 RESTORE : FOR i=O0 TO 63: READ byte: POKE USR "a"+i,byte: NEXT i: LET P$="\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c\a\b\c  \d \e\d \e\d \e\d \e\d \e\d \e\d \e\d \e\d \e\d \e  \f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h\f\g\h": RETURN 
  210 DATA O0,O0,O0,O0,O0,7,4,4,O0,O0,O0,O0,O0,255,O0,O0
  220 DATA O0,O0,O0,O0,O0,224,32,32,4,4,4,4,4,4,4,4
  230 DATA 32,32,32,32,32,32,32,32,4,4,7,O0,O0,O0,O0,O0
  240 DATA O0,O0,255,O0,O0,O0,O0,O0,32,32,224,O0,O0,O0,O0,O0
  250 RETURN 
  260 DATA "THIS IS A TS2068 TYPING TEST.","THE QUICK BROWN FOX JUMPED OVER"
  270 DATA "THE LAZY DOG.","JUST TYPE WHAT YOU SEE;"
  280 DATA "DO NOT LOOK AT THE KEYBOARD","STOP"
  290 SAVE "TUTOR" LINE 9