10  REM ** TESTS STUDENTS ONTHEIR ABILITY TO PLURALIZE WORDS **
20  REM ** M.MUELLER,MISSION HIGH SCHOOL  VERSION #1   2/3/75 **
30  REM:  REV. LINES 42, 44 FOR 2000/ACCESS  12/27/76  MIKE SCHEIZER
40  REM
50  REM REVISED 4/1/77 BY JOSEPH JACKSON 
60  REM FORMAT AND SCORE REVISIONS REQESTED BY JUDY SOKOL
70  REM
75  IF  ERROR  THEN 810
80  DIM A$[30],B$[30],C$[30],N$[30],A[106],X$[30]
90  FILES *
100  ASSIGN "*PLURLF",1,R9
110  IF R9<3 THEN 140
120  PRINT "FILE *PLURLF IS MISSING! CODE";R9
130  GOTO 810
140  A=TIM(1)
150  IF A >= 12 THEN 180
160  PRINT "GOOD MORNING, ";
170  GOTO 220
180  IF A >= 18 THEN 210
190  PRINT "GOOD AFTERNOON, ";
200  GOTO 220
210  PRINT "GOOD EVENING, ";
220  PRINT "MY NAME IS PLURAL DRILL, WHAT'S YOUR NAME";
230  INPUT N$
240  PRINT 
250  PRINT "DO YOU WANT INSTRUCTIONS, "N$;
260  INPUT A$
270  IF A$[1,1]="N" THEN 380
280  PRINT 
290  PRINT "I WILL DRILL YOU ON YOUR ABILLITY TO PLURALIZE WORDS."
300  PRINT 
310  PRINT "I WILL TYPE A WORD IN SINGULAR FORM AND THEN YOU WILL TYPE OUT THE"
320  PRINT "SAME WORD IN PLURAL FORM."
330  PRINT 
340  PRINT "I WILL GIVE YOU TEN (10) PROBLEMS."
350  PRINT "IF YOUR ANSWER IS CORRECT, I WILL TYPE 'C'."
360  PRINT "IF YOUR ANSWER IS WRONG,   I WILL TYPE 'X', AND PRINT THE RIGHT ANSWER."
370  PRINT "IF YOU TIME OUT,I'LL TYPE 'T' (YOU HAVE THIRTY SECONDS TO ANSWER)."
380  PRINT 
390  PRINT "OK, "N$" JUST PRESS RETURN WHEN YOU'RE READY TO START."
400  ENTER 255,T,A$
410  MAT A=ZER
420  E=T1=X=0
430  PRINT '10"HERE WE GO!"'10
440  IF  END #1 THEN 460
450  FOR D=1 TO 10
460  B=INT(104*RND(0))+1
470  IF A[B] THEN 460
480  READ #1,1
490  FOR C=1 TO B
500  READ #1;A$,B$
510  NEXT C
520  PRINT TAB(5);A$;TAB(25);"? ";
530  ENTER 30,T,A$
540  IF T=-256 THEN 640
550  T1=T1+T
560  IF A$#B$ THEN 610
570  PRINT "C"
580  E=E+1
590  A[B]=1
600  GOTO 650
610  PRINT LIN(0);"X"TAB(45);B$
620  X=X+1
630  GOTO 650
640  PRINT LIN(0);"T";TAB(45);B$
650  NEXT D
660  PRINT LIN(-2)
670  PRINT "DRILL TAKEN BY "N$", ";
680  PRINT  USING "#,DDD";E*10
690  PRINT " % CORRECT."'10'13"YOU GOT ";
700  PRINT  USING "#,DD";E
710  PRINT " CORRECT AND ";
720  PRINT  USING "#,DD";X
730  PRINT " WRONG."'13
740  PRINT "AVERAGING ";
750  PRINT  USING "#,DDD";T1/10
760  PRINT " SECONDS PER PROBLEM."'10'10
770  PRINT "WOULD YOU LIKE MORE, "N$;
780  INPUT C$
790  IF C$[1,1]="Y" THEN 380
800  PRINT LIN(4);"GOOD BYE, "N$"."
810  CHAIN R,"*HELP"
820  SYSTEM X,"BYE"
830  END 
