home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk116 / reading.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-11-02  |  1.5 KB  |  40 lines
  1. 5  REM This program is Reading
  2. 10  KEY OFF:WIDTH 80:CLS:DEFSTR C,R,S,Z:DEFINT I,L,T
  3. 20  LOCATE 1,27:COLOR 0,7:PRINT " ***** TACHISTOSCOPE *****";
  4. 30  LOCATE 3,10:COLOR 7,0:PRINT "This program is designed to improve your reading speed.";
  5. 40  LOCATE 5,10:PRINT "I will briefly display a short phase and you try and read it.";
  6. 50  LOCATE 7,10:PRINT "Type what you see, and I will tell you if you were right.";
  7. 70  COLOR 15: LOCATE 25,25:PRINT "press any key when you're ready";
  8. 74  CHAIN MERGE "words", 75, ALL
  9. 75  GOSUB 1000:T1=1000:T4=100:T$=TIME$:XX=VAL(LEFT$(T$,2))*120+VAL(MID$(T$,4,2))*60+VAL(RIGHT$(T$,2)):RANDOMIZE XX
  10. 78  C(1)="Right":C(2)="Correct":C(3)="Absolutely":C(4)="You're doing OK!":C(5)="I knew you'd get that one"
  11. 80  IF INKEY$ = "" THEN GOTO 80
  12. 100  RESTORE:FOR I=1 TO INT(RND*L+1):READ S:NEXT I
  13. 110  COLOR 10:CLS:LOCATE 12,1,0:PRINT STRING$(80,"-");:LOCATE 14,1,0:PRINT STRING$(80,"-");
  14. 120  T=5:GOSUB 2000
  15. 130  X=40-INT(LEN(S)/2):COLOR 15:LOCATE 13,X:PRINT S
  16. 140  FOR I=1 TO T1:NEXT I:CLS
  17. 150  COLOR 7:LOCATE 1,1:PRINT "Enter what you read ":INPUT R
  18. 160  IF R=S THEN GOSUB 500 ELSE GOSUB 600
  19. 170  COLOR 15:LOCATE 24,22:PRINT "Do you want another phrase (Y or N)?";
  20. 180  I$=INKEY$:IF I$="" THEN GOTO 180
  21. 190  IF INSTR("ynYN",I$)=0 THEN GOTO 180
  22. 200  IF INSTR("yY",I$)<>0 THEN GOTO 100
  23. 210  RUN "menu"
  24. 500  COLOR 0,7:I=RND(6)*6+1:X=40-LEN(C(I))/2:LOCATE 12,X:PRINT C(I):COLOR 7,0
  25. 510  PLAY "mbc16c16c16ge8g"
  26. 520  T1=T1-T4:RETURN
  27. 600  PLAY "n50n25":T4=10
  28. 610  COLOR 7:LOCATE 3,1:PRINT "Sorry - Try again!":INPUT R
  29. 620  IF R=S THEN GOTO 500
  30. 630  PLAY "n50n25":COLOR 7:LOCATE 12,27:PRINT "Sorry, what I gave you was"
  31. 640  COLOR 0,7:LOCATE 13,27:PRINT S:COLOR 7,0
  32. 650  T1=T1+T4:RETURN
  33. 1000  ON ERROR GOTO 1050
  34. 1010  RESTORE:L=0
  35. 1020  READ X$:L=L+1:GOTO 1020
  36. 1050  RETURN
  37. 2000  T$=TIME$:T3=VAL(LEFT$(T$,2))*120+VAL(MID$(T$,4,2))*60+VAL(RIGHT$(T$,2))
  38. 2010  T$=TIME$:T2=VAL(LEFT$(T$,2))*120+VAL(MID$(T$,4,2))*60+VAL(RIGHT$(T$,2))
  39. 2020  IF T>T2-T3 THEN GOTO 2010 ELSE RETURN
  40.