home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug054.ark / TDRILL.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  4.9 KB  |  126 lines
  1. 10 REMark Typing drill program by J. Kennedy
  2. 20 REMark Rev. 1.1  July 14, 1981
  3. 30 PRINT "TO END DRILL, TYPE A 0. DRILLS ARE NUMBERED 1-12."
  4. 40 INPUT "WHAT TYPING DRILL DO YOU WANT";N
  5. 50 IF N=0 THEN 300
  6. 60 IF N=1 THEN 140
  7. 70 FOR I=1 TO 7*(N-1)
  8. 80 READ A$
  9. 90 NEXT I
  10. 100 PRINT "DRILL ";N
  11. 110 PRINT "INSTRUCTIONS: RETYPE EACH LINE EXACTLY"
  12. 120 PRINT "THEN HIT RETURN KEY."
  13. 130 T=0:R=0
  14. 140 READ A$
  15. 150 IF A$="END" THEN 260
  16. 160 C=0
  17. 170 PRINT "  ";A$
  18. 180 T=T+1
  19. 190 INPUT LINE B$
  20. 200 IF A$=B$ THEN PRINT "G O O D" ELSE 240
  21. 210 R=R+1
  22. 220 C=C+1
  23. 230 IF C=1 THEN 170 ELSE 140
  24. 240 PRINT "NO, try again"
  25. 250 GOTO 170
  26. 260 PRINT "END OF DRILL. ";R;" LINES RIGHT IN";T;"TRIES."
  27. 270 R1=R1+R
  28. 280 T1=T1+T
  29. 290 GOTO 30
  30. 300 PRINT "END OF LESSON TOTALS:";R1;" LINES RIGHT ON";T1;" TRIES."
  31. 310 PRINT "Practice your drills often and you will"
  32. 320 PRINT "soon become a fantastic typist."
  33. 330 DATA fff fff fff ff ff ff f f f f
  34. 340 DATA jjj jjj jjj jj jj jj j j j j
  35. 350 DATA fff jjj fff jj ff jj f j f j
  36. 360 DATA ddd ddd kkk kkk ddd kkk ddd kkk ddd kkk
  37. 370 DATA sss sss lll lll sss lll sss lll sss lll
  38. 380 DATA aaa aaa ;;; ;;; aaa ;;; aaa ;;; aaa ;;;
  39. 390 DATA END
  40. 400 DATA fff jjj ddd kkk sss lll aaa ;;; fff jjj
  41. 410 DATA aaa lll lll all all ddd aaa ddd dad dad
  42. 420 DATA fff aaa ddd fad fad aaa sss kkk ask ask
  43. 430 DATA jjj aaa lll jal jal aaa sss ;;; as; as;
  44. 440 DATA dad dad lad lad sad sad fad fad add add
  45. 450 DATA fall fall dads dads asks asks lass lass
  46. 460 DATA END
  47. 470 DATA lads lads fads fads adds adds sass sass
  48. 480 DATA a sad lass; ask a dad; as a salad falls
  49. 490 DATA a al ala alas alas; f fa fal fall falls
  50. 500 DATA a as ask asks asks; s sa sal sala salad
  51. 510 DATA a ad add adds adds; f fl fla flas flask
  52. 520 DATA a lass falls; ask a lad; a salad falls;
  53. 530 DATA END
  54. 540 DATA sad dad adds; ask a dad; a flask falls;
  55. 550 DATA alas a salad; lass asks; add a sad lad;
  56. 560 DATA a sad dad asks a sad lass; add a salad;
  57. 570 REMARK-- HERE WE START OFF HOME KEYS WITH E.
  58. 580 DATA ddd ded ded dea dea ddd ded ded dea dea
  59. 590 DATA fff eee ddd fed fed lll eee ddd led led
  60. 600 DATA fed seed; led sled; see elks; sea fall;
  61. 610 DATA END
  62. 620 REMARK-- HERE WE START THE LETTER U.
  63. 630 DATA jjj juj juj ju; ju; jjj juj juj ju; ju;
  64. 640 DATA uuu sss eee use use ddd uuu eee due due
  65. 650 DATA use dues; full fee; used fuse; sues us;
  66. 660 DATA aaa sss ddd ded fff jjj juj kkk lll ;;;
  67. 670 DATA led a sled; a dull elf; see us; ask us;
  68. 680 DATA see a used desk; a lad sees a sad duel;
  69. 690 DATA END
  70. 700 DATA a lad sells fuses as a lass sells sleds
  71. 710 DATA fff jjj juj ddd ded kkk sss lll aaa ;;;
  72. 720 DATA a sad lass fed us a salad as a lad fled
  73. 730 REMARK-- HERE WE START THE LETTER R.
  74. 740 DATA fff frf frf fra fra fff frf frf fra fra
  75. 750 DATA fff uuu rrr fur fur rrr eee ddd red red
  76. 760 DATA red deer; real red; read red; red jars;
  77. 770 DATA END
  78. 780 REMARK-- DRILL7.  START LETTER I.
  79. 790 DATA kkk kik kik ki; ki; kkk kik kik ki; ki;
  80. 800 DATA kkk iii ddd kid kid sss iii rrr sir sir
  81. 810 DATA kid skid; lid slid; fir fire; rise ride
  82. 820 DATA aaa sss ded frf rrr juj kik iii lll ;;;
  83. 830 DATA a jade jar; ask a kid; a full fir falls
  84. 840 DATA if a fire is red; see if a deer is red;
  85. 850 DATA END
  86. 860 REMARK-- DRILL8.  REVIEW AND START LETTER G.
  87. 870 DATA ask a lad if a deer is fed a leaf salad
  88. 880 DATA frf juj ded kik ddd kkk sss lll aaa ;;;
  89. 890 DATA ask a fair lad if a fire is fed a leaf;
  90. 900 DATA fff fgf ggg fga fga fff fgf ggg fga fga
  91. 910 DATA fff iii ggg fig fig ggg aaa ggg gag gag
  92. 920 DATA lug flag; keg gull; leg gall; fug glad;
  93. 930 DATA END
  94. 940 REMARK-- DRILL9. INTRODUCE LETTER O.
  95. 950 DATA lll lol lol loj loj lll lol lol loj loj
  96. 960 DATA lll ooo ggg log log ooo lll ddd old old
  97. 970 DATA odd rose; old gold; sold oil; rose for;
  98. 980 DATA a red flag; a glad gull; red roses fall
  99. 990 DATA see if a gull is glad; sells four roses
  100. 1000 DATA girls sold lads red jugs for salad oils
  101. 1010 DATA END
  102. 1020 REMARK-- DRILL 10.  REVIEW E,R,U,I,O AND HOME KEYS.
  103. 1030 DATA fgf frf juj ded kik lol sss lll aaa ;;;
  104. 1040 DATA lads seek four gold rugs for glad girls
  105. 1050 DATA jail glad rugs skid gold fire juke fair
  106. 1060 DATA dark joke flag lids four jugs deer oils
  107. 1070 DATA a lad seeks four red rugs for a sad lad
  108. 1080 DATA a lass sells salad oils for a glad girl
  109. 1090 DATA END
  110. 1100 REMARK-- DRILL11.  INTRODUCE V AND H.
  111. 1110 DATA fff fvf fvf fva fva fff fvf fvf fva fva
  112. 1120 DATA vvv iii aaa via via vvv iii eee vie vie
  113. 1130 DATA eve ever; vase gave; five veil; via vie
  114. 1140 DATA jjj jhj jhj jh; jh; jjj jhj jhj jh; jh;
  115. 1150 DATA hhh aaa ddd had had hhh eee rrr her her
  116. 1160 DATA has hash; hold hoe; had hall; has held;
  117. 1170 DATA END
  118. 1180 REMARK-- DRILL12.  REVIEW INCL. V AND H.
  119. 1190 DATA aaa sss ded frf fgf fvf jhj juj kik lol
  120. 1200 DATA have a hoe; has a vase; she held a veil
  121. 1210 DATA he has a valve; he has a villa for sale
  122. 1220 DATA she has saved five valves for his villa
  123. 1230 DATA fvf jhj fgf juj frf kik ded lol sss ;;;
  124. 1240 DATA see if five elves have held four valves
  125. 1250 DATA END
  126.