100 REM  
110 REM DESCRIPTION--TESTS KNOWLEDGE OF ENGLISH TRANSLATION OF   
120 REM   GREEK ROOTS
130 REM  
140 REM SOURCE--UNKNOWN  
150 REM  
160 REM INSTRUCTIONS--TYPE "RUN" AND RESPOND TO TEST QUESTIONS   
170 REM  
180 DIM A$(40) 
190 FOR I=1TO40
200 READ A$(I) 
210 NEXT I 
220 PRINT "WHAT IS YOUR NAME"; 
230 INPUT N$   
240 PRINT "THESE GREEK ROOTS ARE FOUND IN MANY SCIENTIFIC TERMS."  
250 PRINT "YOU WILL BE ASKED TO GIVE A ONE WORD MEANING FOR EACH"  
260 PRINT "ROOT AND GET 10 POINTS FOR EACH CORRECT ANSWER. THE COMPUTER"   
270 PRINT "WILL KEEP SCORE. GOOD LUCK, " ;N$   
280 PRINT  
290 FOR Z = 1 TO 9 STEP 2  
300 FOR X = 0 TO 30 STEP 10
310 PRINT A$(Z+X)  
320 NEXT X 
330 NEXTZ  
340 PRINT  
350 H=0
360 Z= 20  
370 X = 2*INT(Z*RND(1)+1)  
380 PRINT "WHICH ROOT MEANS ";A$(X);   
390 INPUT W$   
400 IF W$ = A$(X-1) THEN 440  
410 PRINT "YOU MISSED THAT ONE, ";N$;". THE RIGHT ANSWER IS ";A$(X-1);"."  
420 PRINT  
430 GOTO 470  
440 PRINT "THAT IS RIGHT." 
450 PRINT  
460 H= H+10
470 IF Z = 1 THEN 580 
480 A$(X)=A$(2*Z)  
490 A$(X-1) = A$(2*Z-1)
500 Z = Z-1
510 GOTO 370 
520 DATA ASTRON,STAR,AUTOS,SELF,BIOS,LIFE,CHRONOS,TIME:
530 DATA DECA,TEN,DEMOS,PEOPLE,GE,EARTH,GRAPHO,WRITE:  
540 DATA LITHOS,STONE,METRON,MEASURE,MONOS,ONE,ORTHOS: 
550 DATA RIGHT,PHILOS,LOVING,PHONE,SOUND,POLYS,MANY:   
560 DATA SCOPOS,WATCHER,TELE,FAR,THERMO,HEAT:  
570 DATA ZOON,ANIMAL,ANTHROPOS,MAN:
580 IF H=200 THEN 620:
590 J$=STR$(H):
600 PRINT "YOUR SCORE WAS ";J$;", ";N$;".":
610 STOP:  
620 PRINT N$;", YOU DID THIS WITHOUT ONE MISTAKE. CONGRATULATIONS.":   
630 END:   
CORE WAS ";J$;", ";N$;".":