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