0 'TYPNG2.BA - BY PHIL WHEELER CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 'This is a Typing Driller taken from 2 'the Olympia,WA RCP/M and modified 3 'for use on the Model 100. Different 4 'drills can be installed by replacing 5 'the data statements. 6 '>>>DON'T USE PACKER ON THIS<< 7 'In its present form it compresses 8 'all the data statements 9 ' Phil Wheeler 10 RV$=CHR$(27)+"p":NO$=CHR$(27)+"q" 20 PRINT RV$+" TYPING DRILL "+NO$ 30 PRINT "Drills are numbered 1 to 12" 31 RESTORE 35 PRINT "(to end drill enter a 0 )" 40 INPUT "WHAT TYPING DRILL DO YOU WANT";N:PRINT 50 IF N=0 THEN 300 60 IF N=1 THEN 100 70 FOR I=1 TO 7*(N-1) 80 READ A$ 90 NEXT I 100 PRINT RV$:PRINT "DRILL ";N 110 PRINT "INSTRUCTIONS: RETYPE EACH LINE EXACTLY" 120 PRINT "THEN HIT RETURN KEY.":PRINT NO$ 130 T=0:R=0 140 READ A$ 150 IF A$="END" THEN 260 160 C=0 170 PRINTA$ 180 T=T+1 190 LINE INPUT B$ 195 IF B$="Menu" THEN 1300 200 IF A$=B$ THEN PRINT RV$+"G O O D"+NO$ ELSE 240 210 R=R+1 220 C=C+1 230 IF C=1 THEN 170 ELSE 140 240 PRINT RV$+"NO, try again"+NO$ 250 GOTO 170 260 PRINT "END OF DRILL. ";R;" LINES RIGHT IN";T;"TRIES." 270 R1=R1+R 280 T1=T1+T 290 GOTO 30 300 PRINT "END OF LESSON" 305 PRINT RV$+" TOTALS:";R1;" LINES RIGHT ON";T1;" TRIES."+NO$ 310 PRINT "Practice your drills often and you will" 320 PRINT "soon become a fantastic typist." 330 DATA fff fff fff ff ff ff f f f f 340 DATA jjj jjj jjj jj jj jj j j j j 350 DATA fff jjj fff jj ff jj f j f j 360 DATA ddd ddd kkk kkk ddd kkk ddd kkk ddd kkk 370 DATA sss sss lll lll sss lll sss lll sss lll 380 DATA aaa aaa ;;; ;;; aaa ;;; aaa ;;; aaa ;;; 390 DATA END 400 DATA fff jjj ddd kkk sss lll aaa ;;; fff jjj 410 DATA aaa lll lll all all ddd aaa ddd dad dad 420 DATA fff aaa ddd fad fad aaa sss kkk ask ask 430 DATA jjj aaa lll jal jal aaa sss ;;; as; as; 440 DATA dad dad lad lad sad sad fad fad add add 450 DATA fall fall dads dads asks asks lass lass 460 DATA END 470 DATA lads lads fads fads adds adds sass sass 480 DATA a sad lass; ask a dad; as a salad falls 490 DATA a al ala alas alas; f fa fal fall falls 500 DATA a as ask asks asks; s sa sal sala salad 510 DATA a ad add adds adds; f fl fla flas flask 520 DATA a lass falls; ask a lad; a salad falls; 530 DATA END 540 DATA sad dad adds; ask a dad; a flask falls; 550 DATA alas a salad; lass asks; add a sad lad; 560 DATA a sad dad asks a sad lass; add a salad; 580 DATA ddd ded ded dea dea ddd ded ded dea dea 590 DATA fff eee ddd fed fed lll eee ddd led led 600 DATA fed seed; led sled; see elks; sea fall; 610 DATA END 630 DATA jjj juj juj ju; ju; jjj juj juj ju; ju; 640 DATA uuu sss eee use use ddd uuu eee due due 650 DATA use dues; full fee; used fuse; sues us; 660 DATA aaa sss ddd ded fff jjj juj kkk lll ;;; 670 DATA led a sled; a dull elf; see us; ask us; 680 DATA see a used desk; a lad sees a sad duel; 690 DATA END 700 DATA a lad sells fuses as a lass sells sleds 710 DATA fff jjj juj ddd ded kkk sss lll aaa ;;; 720 DATA a sad lass fed us a salad as a lad fled 740 DATA fff frf frf fra fra fff frf frf fra fra 750 DATA fff uuu rrr fur fur rrr eee ddd red red 760 DATA red deer; real red; read red; red jars; 770 DATA END 790 DATA kkk kik kik ki; ki; kkk kik kik ki; ki; 800 DATA kkk iii ddd kid kid sss iii rrr sir sir 810 DATA kid skid; lid slid; fir fire; rise ride 820 DATA aaa sss ded frf rrr juj kik iii lll ;;; 830 DATA a jade jar; ask a kid; a full fir falls 840 DATA if a fire is red; see if a deer is red; 850 DATA END 870 DATA ask a lad if a deer is fed a leaf salad 880 DATA frf juj ded kik ddd kkk sss lll aaa ;;; 890 DATA ask a fair lad if a fire is fed a leaf; 900 DATA fff fgf ggg fga fga fff fgf ggg fga fga 910 DATA fff iii ggg fig fig ggg aaa ggg gag gag 920 DATA lug flag; keg gull; leg gall; fug glad; 930 DATA END 950 DATA lll lol lol loj loj lll lol lol loj loj 960 DATA lll ooo ggg log log ooo lll ddd old old 970 DATA odd rose; old gold; sold oil; rose for; 980 DATA a red flag; a glad gull; red roses fall 990 DATA see if a gull is glad; sells four roses 1000 DATA girls sold lads red jugs for salad oils 1010 DATA END 1030 DATA fgf frf juj ded kik lol sss lll aaa ;;; 1040 DATA lads seek four gold rugs for glad girls 1050 DATA jail glad rugs skid gold fire juke fair 1060 DATA dark joke flag lids four jugs deer oils 1070 DATA a lad seeks four red rugs for a sad lad 1080 DATA a lass sells salad oils for a glad girl 1090 DATA END 1110 DATA fff fvf fvf fva fva fff fvf fvf fva fva 1120 DATA vvv iii aaa via via vvv iii eee vie vie 1130 DATA eve ever; vase gave; five veil; via vie 1140 DATA jjj jhj jhj jh; jh; jjj jhj jhj jh; jh; 1150 DATA hhh aaa ddd had had hhh eee rrr her her 1160 DATA has hash; hold hoe; had hall; has held; 1170 DATA END 1190 DATA aaa sss ded frf fgf fvf jhj juj kik lol 1200 DATA have a hoe; has a vase; she held a veil 1210 DATA he has a valve; he has a villa for sale 1220 DATA she has saved five valves for his villa 1230 DATA fvf jhj fgf juj frf kik ded lol sss ;;; 1240 DATA see if five elves have held four valves 1250 DATA END 1290 END 1300 MENU