home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / MISCBAS.ZIP / GREEKRTS.ASC < prev    next >
Encoding:
Text File  |  1987-01-11  |  1.6 KB  |  55 lines
  1. 100 REM  
  2. 110 REM DESCRIPTION--TESTS KNOWLEDGE OF ENGLISH TRANSLATION OF   
  3. 120 REM   GREEK ROOTS
  4. 130 REM  
  5. 140 REM SOURCE--UNKNOWN  
  6. 150 REM  
  7. 160 REM INSTRUCTIONS--TYPE "RUN" AND RESPOND TO TEST QUESTIONS   
  8. 170 REM  
  9. 180 DIM A$(40) 
  10. 190 FOR I=1TO40
  11. 200 READ A$(I) 
  12. 210 NEXT I 
  13. 220 PRINT "WHAT IS YOUR NAME"; 
  14. 230 INPUT N$   
  15. 240 PRINT "THESE GREEK ROOTS ARE FOUND IN MANY SCIENTIFIC TERMS."  
  16. 250 PRINT "YOU WILL BE ASKED TO GIVE A ONE WORD MEANING FOR EACH"  
  17. 260 PRINT "ROOT AND GET 10 POINTS FOR EACH CORRECT ANSWER. THE COMPUTER"   
  18. 270 PRINT "WILL KEEP SCORE. GOOD LUCK, " ;N$   
  19. 280 PRINT  
  20. 290 FOR Z = 1 TO 9 STEP 2  
  21. 300 FOR X = 0 TO 30 STEP 10
  22. 310 PRINT A$(Z+X)  
  23. 320 NEXT X 
  24. 330 NEXTZ  
  25. 340 PRINT  
  26. 350 H=0
  27. 360 Z= 20  
  28. 370 X = 2*INT(Z*RND(1)+1)  
  29. 380 PRINT "WHICH ROOT MEANS ";A$(X);   
  30. 390 INPUT W$   
  31. 400 IF W$ = A$(X-1) THEN 440  
  32. 410 PRINT "YOU MISSED THAT ONE, ";N$;". THE RIGHT ANSWER IS ";A$(X-1);"."  
  33. 420 PRINT  
  34. 430 GOTO 470  
  35. 440 PRINT "THAT IS RIGHT." 
  36. 450 PRINT  
  37. 460 H= H+10
  38. 470 IF Z = 1 THEN 580 
  39. 480 A$(X)=A$(2*Z)  
  40. 490 A$(X-1) = A$(2*Z-1)
  41. 500 Z = Z-1
  42. 510 GOTO 370 
  43. 520 DATA ASTRON,STAR,AUTOS,SELF,BIOS,LIFE,CHRONOS,TIME:
  44. 530 DATA DECA,TEN,DEMOS,PEOPLE,GE,EARTH,GRAPHO,WRITE:  
  45. 540 DATA LITHOS,STONE,METRON,MEASURE,MONOS,ONE,ORTHOS: 
  46. 550 DATA RIGHT,PHILOS,LOVING,PHONE,SOUND,POLYS,MANY:   
  47. 560 DATA SCOPOS,WATCHER,TELE,FAR,THERMO,HEAT:  
  48. 570 DATA ZOON,ANIMAL,ANTHROPOS,MAN:
  49. 580 IF H=200 THEN 620:
  50. 590 J$=STR$(H):
  51. 600 PRINT "YOUR SCORE WAS ";J$;", ";N$;".":
  52. 610 STOP:  
  53. 620 PRINT N$;", YOU DID THIS WITHOUT ONE MISTAKE. CONGRATULATIONS.":   
  54. 630 END:   
  55. CORE WAS ";J$;", ";N$;".":