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