10  REM**GROOT**C.A.I.**TESTS KNOWLEDGE OF GREEK ROOTS**MAY 8,1972
15  REM VOCAB, HP 36880A, 6/74
20  DIM A$[72],B[500],N$[72],W$[72],B$[72]
30  H=0
40  PRINT "HI, I'M GLAD YOU LIKE THIS WAY OF LEARNING, TOO"
50  PRINT "WHAT IS YOUR NAME ?";
60  INPUT N$
70  PRINT "THESE GREEK ROOTS ARE FOUND IN MANY SCIENTIFIC TERMS."
80  PRINT "YOU WILL BE ASKED TO GIVE A ONE WORD MEANING FOR EACH"
90  PRINT "ROOT. 10 POINTS FOR EACH CORRECT ANSWER. THE COMPUTER"
100  PRINT "WILL KEEP SCORE. GOOD LUCK, "N$
110  PRINT 
120  I=0
130  IF TYP(0)=3 THEN 170
140  I=I+1
150  READ A$
160  GOTO 130
170  RESTORE 
180  J=INT(I/2)
190  PRINT '10'10
200  FOR M=1 TO J
210  READ A$,B$
220  PRINT "                      "A$
230  NEXT M
240  RESTORE 
250  FOR L=1 TO J
260  B[L]=INT(J*RND(0)+1)
270  FOR K=1 TO L-1
280  IF B[L]=B[K] THEN 260
290  NEXT K
300  NEXT L
310  FOR L=1 TO J
320  FOR K=1 TO B[L]
330  READ A$,B$
340  NEXT K
350  RESTORE 
360  PRINT "WHICH PREFIX MEANS ";
370  PRINT B$
380  INPUT W$
390  IF W$=A$ THEN 430
400  PRINT "SORRY, YOU MISSED THAT ONE, "N$", THE RIGHT ANSWER IS, "A$
410  PRINT 
420  GOTO 450
430  PRINT "VERY GOOD, YOUR ANSWER IS CORRECT, "N$
440  H=H+1
450  NEXT L
460  DATA "ASTRON","STAR","AUTOS","SELF","BIOS","LIFE","CHRONOS","TIME"
470  DATA "DECA","TEN","DEMOS","PEOPLE","GE","EARTH","GRAPHO","WRITE"
480  DATA "LITHOS","STONE","METRON","MEASURE","MONOS","ONE","ORTHOS"
490  DATA "RIGHT","PHILOS","LOVING","PHONE","SOUND","POLYS","MANY"
500  DATA "SCOPOS","WATCHER","TELE","FAR","THERMA","HEAT"
510  DATA "ZOON","ANIMAL","ANTHROPOS","MAN"
9000  PRINT "YOUR SCORE IS "H" OUT OF "J" CORRECT OR "H/J*100"%."
9010  IF H=J THEN 9030
9020  GOTO 9040
9030  PRINT N$", YOU DID THIS WITHOUT ONE MISTAKE.  CONGRATULATIONS."
9040  END 
