Back to Main page. Back to Main tapes page. 100 DIM A$[255],Q$[255],A0$[255],Q[15],I$[10] 110 FILES TCHSHW.B915 120 PRINT '7 130 ENTER 2,A9,A$ 140 IF A$='2'14 THEN 880 150 PRINT " In this program, you will learn many of the punctuation rules" 160 PRINT "of English. There will be five levels of complexity, each level " 170 PRINT "covering a set of punctuation rules."'10'13 180 PRINT "First, the computer will print out the rule. Then, the computer" 190 PRINT "will print out a sentence for you to type correctly using that rule." 200 PRINT "You will then retype the sentence correctly." 210 FOR X=1 TO 5 220 Z=REC(1) 230 IF END #1 THEN 710 240 Q1=Q=T=R9=R8=0 250 MAT Q=ZER 260 PRINT LIN(-5)"Level ";X;"Description:"'10 270 READ #1;A$ 280 IF R8 THEN 300 290 PRINT A$; 300 IF A$[LEN(A$)]#'27 THEN 270 310 Q=Q+1 320 IF NOT (Q1 OR R9) AND X=5 THEN 950 330 IF Q[Q] THEN 380 340 READ #1;A$ 350 IF A$[1,1]='27 THEN 420 360 PRINT '13'10'10"RULE:" 370 GOTO 390 380 READ #1;A$ 390 IF Q[Q] THEN 410 400 PRINT A$ 410 IF LEN(A$)=0 THEN 380 420 IF A$[LEN(A$)]#'27 THEN 380 430 IF Q[Q] THEN 450 440 PRINT '13'10'10"CORRECT THE SENTENCE:" 450 READ #1;Q$,A$ 460 IF Q[Q] THEN 660 470 PRINT Q$'13'10"--"'13" > "; 480 Q$=A$ 490 LINPUT A0$ 500 A0$=UPS$(A0$) 510 A$=UPS$(A$) 520 FOR I=LEN(A0$) TO 1 STEP -1 530 IF A0$[I,I]#" " THEN 550 540 A0$[I]=A0$[I+1] 550 NEXT I 560 FOR I=LEN(A$) TO 1 STEP -1 570 IF A$[I,I]#" " THEN 590 580 A$[I]=A$[I+1] 590 NEXT I 600 IF A0$=A$ THEN 630 610 PRINT "Wrong. It should be:"'13'10;Q$;'13'10 620 GOTO 660 630 PRINT "Right." 640 T=T+1 650 Q[Q]=1 660 READ #1;A$ 670 IF Q[Q] THEN 690 680 PRINT A$; 690 IF A$[LEN(A$)]#'27 THEN 660 700 GOTO 310 710 Q=Q-1 720 PRINT LIN(2)"You got"INT((T/Q)*100+.5);"% right on level";X 730 Q1=1 740 FOR Y=1 TO Q 750 IF NOT Q[Y] THEN 840 760 NEXT Y 770 READ #1,REC(1)+1 780 NEXT X 790 PRINT LIN(-5)"You have finished this program with flying colors!" 800 PRINT "(Of course, you'd have to to get this far)." 810 PRINT '13'10"This program was written for the Tech Show 1978" 820 PRINT "By Douglas Lee, Bill McFadden, and Lane Rollins." 830 STOP 840 PRINT "Lets review the sentences you missed on level";X 850 Q=0 855 R8=1 860 READ #1,Z 870 GOTO 270 880 I$="0105141924" 890 PRINT "LEVEL"; 900 INPUT X 910 IF X<1 OR X>5 THEN 890 920 CONVERT I$[X*2-1,X*2] TO Z 930 READ #1,Z 940 GOTO 230 950 PRINT LIN(2) 960 R9=1 970 READ #1;A$ 980 IF A$[LEN(A$)]='27 THEN 430 990 PRINT A$ 1000 GOTO 970 1010 END