home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / TYPING.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  477 b   |  22 lines
  1. 5 CLEAR 500
  2. 10 PRINT "                        TYPING EXERCISE
  3. 15 L$=""
  4. 18 E=0
  5. 20 FOR I=1 TO RND*70+1
  6. 30 C=INT(65+RND*26)
  7. 40 L$=L$+CHR$(C)
  8. 50 NEXT I
  9. 60 PRINT L$
  10. 70 FOR I=1 TO LEN(L$)
  11. 80 WAIT &72,255,2
  12. 90 A=INP(&73)-128
  13. 100 A$=CHR$(A)
  14. 110 IF A$=MID$(L$,I,1) THEN PRINT A$; ELSE GOTO 500
  15. 120 NEXT
  16. 150 ?:?:?"YOU MADE"E"ERRORS OUT OF"I-1"CHARACTERS. ERROR RATE IS"E/(I-1)*100"%":GOTO 15
  17. 500 E=E+1
  18. 505 PRINT CHR$(7);
  19. 510 PRINT A$;
  20. 540 PRINT CHR$(8);
  21. 550 GOTO 80
  22.