2019-01-23 14:22:35

GW-BASIC source code:110 REM120 REM DESCRIPTION--TESTS KNOWLEDGE OF ENGLISH TRANSLATION OF130 REM GREEK ROOTS140 REM150 REM SOURCE--UNKNOWN160 REM170 REM INSTRUCTIONS--TYPE #RUN# AND RESPOND TO TEST QUESTIONS180 REM1000 Z9 = RND(-1)1010 DIM A$(40)1011 FOR I=1 TO 401012 READ A$(I)1020 NEXT I1030 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 PRINT1100 FOR Z = 1 TO 9 STEP 21110 FOR X = 0 TO 30 STEP 101120 PRINT A$(Z+X)1130 NEXT X1140 NEXT Z1150 PRINT1160 LET H=01170 LET Z= 201180 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 12501220 PRINT "YOU MISSED THAT ONE, ";N$;". THE RIGHT ANSWER IS ";A$(X-1);"."1230 PRINT1240 GOTO 12801250 PRINT "THAT IS RIGHT."1260 PRINT1270 LET H= H+101280 IF Z = 1 THEN 13901290 A$(X)=A$(2*Z)1300 LET A$(X-1) = A$(2*Z-1)1310 LET Z = Z-11320 GOTO 11801330 DATA ASTRON,STAR,AUTOS,SELF,BIOS,LIFE,CHRONOS,TIME1340 DATA DECA,TEN,DEMOS,PEOPLE,GE,EARTH,GRAPHO,WRITE1350 DATA LITHOS,STONE,METRON,MEASURE,MONOS,ONE,ORTHOS1360 DATA RIGHT,PHILOS,LOVING,PHONE,SOUND,POLYS,MANY1370 DATA SCOPOS,WATCHER,TELE,FAR,THERMO,HEAT1380 DATA ZOON,ANIMAL,ANTHROPOS,MAN1390 IF H=200 THEN 14201395 J$=STR$(H)1400 PRINT "YOUR SCORE WAS ";J$;", ";N$;"."1420 PRINT N$;", YOU DID THIS WITHOUT ONE MISTAKE. CONGRATULATIONS."1430 END