Greek Roots

display: text

GW-BASIC source code:
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

AndreaD # 2019-01-23 14:22:35