home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib20a.dsk / JULY.1984 / TYPING.COACH.bas < prev    next >
BASIC Source File  |  2023-02-26  |  826b  |  24 lines
  1. 190  TEXT : HOME : POKE 34,1: PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **": HOME : CLEAR 
  2. 200 R =  INT(26 * RND(1)) +1
  3. 210  VTAB 10: HTAB 20: CALL  -958: PRINT  CHR$(R +64)
  4. 220  IF R = RR  THEN 200
  5. 230 D =  PEEK( -16384)
  6. 240  IF D = 27  THEN  TEXT : END 
  7. 250  IF D = R +64  THEN 290
  8. 260 NZ =  PEEK( -16336)
  9. 270 T = T +1: POKE  -16368,0
  10. 280  GOTO 230
  11. 290  VTAB 20
  12. 300  IF T <25  THEN  PRINT "FANTASTIC": GOTO 370
  13. 310  IF T <50  THEN  PRINT "EXCELLENT": GOTO 370
  14. 320  IF T <75  THEN  PRINT "GOOD": GOTO 370
  15. 330  IF T <100  THEN  PRINT "AVERAGE": GOTO 370
  16. 340  IF T <200  THEN  PRINT "FAIR": GOTO 370
  17. 350  IF T <300  THEN  PRINT "NEED PRACTICE": GOTO 370
  18. 360  PRINT "LOTS OF WORK NEEDED!"
  19. 370  POKE  -16368,0
  20. 380  FOR BZ = 1 TO 10:NZ =  PEEK( -16336): NEXT BZ
  21. 390  FOR Z = 1 TO 1000: NEXT Z
  22. 400 T = 0
  23. 410 RR = R
  24. 420  GOTO 200