Funny Speed Typing Test

[SierraKen]

I made this funny speed typing test only for fun today. As it says in the program, it is not exact because it calculates the time after each time you press Enter after each sentence. So the results are around that amount. It's too bad there's no way to make a program in BASIC that can stop a person typing a question from INPUT on a certain time, besides not using INPUT and using INKEY$. But using INKEY$ would have been a bit more difficult for me to figure out, especially when I have to make sure each sentence is typed correctly. I know there's a way, but like I said, I made this just for fun. :) It has enough sentences to type for even the world record holder of 212 words per minute. And there's a theme to it all, going to the zoo. lol Enjoy.

Code: QB64: [Select]

1. _TITLE "Speed Typing Test"
2. begin:
3. _LIMIT 200
4. CLS
5. COLOR 15
6. PRINT "                            Speed Typing Test"
7. PRINT: PRINT: PRINT
8. PRINT "                               by  Ken G."
9. PRINT: PRINT: PRINT
10. PRINT "     This program will calculate how many words a minute you can type."
11. PRINT "     This is not a professional test, only just for fun so do not use"
12. PRINT "     this outcome on any college, job form or professional application."
13. PRINT
14. PRINT "     I will put sentences on the screen and you will type them out the"
15. PRINT "     same way they are displayed. Press Enter after each sentence."
16. PRINT "     You must type them all correctly or you will have to type it again."
17. PRINT "     This program calculates time after you have pressed the Enter key for"
18. PRINT "     each sentence, so it will not stop at exactly 60 seconds, only after"
19. PRINT "     60 seconds have been calculated. Then it will display your results."
20. PRINT
21. PRINT
22. INPUT "     Press Enter to start.", st$
23. CLS
24. starttime = TIMER
25. start:
26. DO
27.     _LIMIT 200
28.     s = TIMER
29.     seconds = s - starttime
30.     IF seconds > 60 THEN GOTO done:
31.     PRINT: PRINT: PRINT
32.     READ a$, amount
33.     again:
34.     PRINT a$
35.     PRINT: PRINT: PRINT
36.     INPUT "->", you$
37.     IF a$ <> you$ THEN GOTO again:
38.     CLS
39. LOOP
40. done:
41. _LIMIT 200
42. CLS
43. PRINT: PRINT: PRINT
44. PRINT "Your score is around: "; amount; " words per minute!"
45. PRINT: PRINT: PRINT
46. PRINT "Thank you for playing."
47. PRINT: PRINT: PRINT
48. INPUT "Again (Y/N)"; ag$
49. IF LEFT$(ag$, 1) = "y" OR LEFT$(ag$, 1) = "Y" THEN RESTORE zoo: GOTO begin:
50. END
51. zoo:
52. DATA "The cat jumped off the tree.",6
53. DATA "The zookeeper cleaned the lion's cage.",12
54. DATA "The giraffe walked up to the tree and ate the leaves.",23
55. DATA "The horse quit running around the track.",30
56. DATA "We took a photograph of the yellow bird.",38
57. DATA "Violet and Sally fed the elephant.",44
58. DATA "The rhinoceros looked dangerous.",48
59. DATA "Fifteen dogs chased two cats around the park.",56
60. DATA "The popcorn cost $1.53 plus tax.",62
61. DATA "The #1 attraction was the giant gorilla.",69
62. DATA "10% of the money went to saving the dolphins.",78
63. DATA "The aquarium had 100's of different fish.",85
64. DATA "There was the goldfish and the guppy and the discus and the koi.",99
65. DATA "They also had a butterfly exhibit with a set temperature.",109
66. DATA "There was also the funny looking fake unicorn.",117
67. DATA "An employee walked around in a Tarzan outfit saying he was King of the Jungle.",132
68. DATA "We drank soda that day and even got ice cream cones.",143
69. DATA "There were sure a lot of people there and but it wasn't too crowded.",157
70. DATA "We heard about the zoo from an airplane overhead that carried a giant banner.",171
71. DATA "It was located fifty-five miles from my house in a different city.",184
72. DATA "Maybe someday we will go to Australia to see kangaroos and koala bears.",197
73. DATA "The weather that day felt fantastic and sunny outside.",206
74. DATA "If you typed all of this correctly then you beat the world record of 212 wpm!",222
75.  
76.