Advertisement
Guest User

GRROOT.BAS

a guest
Apr 17th, 2017
285
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 110 REM
  2. 120 REM DESCRIPTION--TESTS KNOWLEDGE OF ENGLISH TRANSLATION OF
  3. 130 REM   GREEK ROOTS
  4. 140 REM
  5. 150 REM SOURCE--UNKNOWN
  6. 160 REM
  7. 170 REM INSTRUCTIONS--TYPE #RUN# AND RESPOND TO TEST QUESTIONS
  8. 180 REM
  9. 1000 Z9 = RND(-1)
  10. 1010 DIM A$(40)
  11. 1011 FOR I=1 TO 40
  12. 1012 READ A$(I)
  13. 1020 NEXT I
  14. 1030 PRINT "WHAT IS YOUR NAME";
  15. 1040 INPUT N$
  16. 1050 PRINT "THESE GREEK ROOTS ARE FOUND IN MANY SCIENTIFIC TERMS."
  17. 1060 PRINT "YOU WILL BE ASKED TO GIVE A ONE WORD MEANING FOR EACH"
  18. 1070 PRINT "ROOT AND GET 10 POINTS FOR EACH CORRECT ANSWER. THE COMPUTER"
  19. 1080 PRINT "WILL KEEP SCORE. GOOD LUCK, " ;N$
  20. 1090 PRINT
  21. 1100 FOR Z = 1 TO 9 STEP 2
  22. 1110 FOR X = 0 TO 30 STEP 10
  23. 1120 PRINT A$(Z+X)
  24. 1130 NEXT X
  25. 1140 NEXT Z
  26. 1150 PRINT
  27. 1160 LET H=0
  28. 1170 LET Z= 20
  29. 1180 LET X = 2*INT(Z*RND(0)+1)
  30. 1190 PRINT "WHICH ROOT MEANS ";A$(X);
  31. 1200 INPUT W$
  32. 1210 IF W$ = A$(X-1) THEN 1250
  33. 1220 PRINT "YOU MISSED THAT ONE, ";N$;". THE RIGHT ANSWER IS ";A$(X-1);"."
  34. 1230 PRINT
  35. 1240 GOTO 1280
  36. 1250 PRINT "THAT IS RIGHT."
  37. 1260 PRINT
  38. 1270 LET H= H+10
  39. 1280 IF Z = 1 THEN 1390
  40. 1290 A$(X)=A$(2*Z)
  41. 1300 LET A$(X-1) = A$(2*Z-1)
  42. 1310 LET Z = Z-1
  43. 1320 GOTO 1180
  44. 1330 DATA ASTRON,STAR,AUTOS,SELF,BIOS,LIFE,CHRONOS,TIME
  45. 1340 DATA DECA,TEN,DEMOS,PEOPLE,GE,EARTH,GRAPHO,WRITE
  46. 1350 DATA LITHOS,STONE,METRON,MEASURE,MONOS,ONE,ORTHOS
  47. 1360 DATA RIGHT,PHILOS,LOVING,PHONE,SOUND,POLYS,MANY
  48. 1370 DATA SCOPOS,WATCHER,TELE,FAR,THERMO,HEAT
  49. 1380 DATA ZOON,ANIMAL,ANTHROPOS,MAN
  50. 1390 IF H=200 THEN 1420
  51. 1395 J$=STR$(H)
  52. 1400 PRINT "YOUR SCORE WAS ";J$;", ";N$;"."
  53. 1420 PRINT N$;", YOU DID THIS WITHOUT ONE MISTAKE. CONGRATULATIONS."
  54. 1430 END
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement