Listing of file='VOCAB1.BAS;01' on disk='vmedia/ncc_18-sector.ccvf'
1 GOSUB 1000
2 REM -------READER'S DIGEST "IT PAYS TO INCREASE YOUR -------
3 REM ---------WORD POWER. " BY HARLAN HOWARD 1979
4 PLOT 6,2:PLOT 12,14:PLOT 6,2
5 DIM M$(20),N$(20),V$(20)
6 DIM S$(20):DIM T$(20):DIM A$(20)
20 FOR I= 1TO 20
30 READ M$(I),N$(I),V$(I),S$(I),T$(I),A$(I)
40 NEXT I
50 FOR I = 1 TO 20
90 PLOT 6,7:PRINT M$(I);" ";
95 PLOT 6,3:PRINT N$(I);" ";V$(I);" ";S$(I);" ";T$(I)
100 PRINT
102 INPUT Z$
103 IF Z$= A$(I)THEN GOTO 510
104 IF Z$< > A$(I)THEN GOTO 540
105 REM
110 NEXT I
140 DATA "1)MUTANT -HAVING TO DO WITH:","A:SILENCE","B:SOUND","C:CHANGE","D:DISORDER","C"
150 DATA "2)TENSILE","A:BRITTLE","B:SLENDER","C:UNDER TENSION","D:GLITTERING","C"
160 DATA "3)SIMULATION","A:SIMULTANEOUS OCCURRANCE","B:ABSORPTION"
161 DATA "C:IMITA - TION","D:PATTERN","C"
170 DATA "4)CORROBORATE","A:TO JOIN","B:INVESTIGATE","C:INTEGRATE","D:CONFIRM","D"
180 DATA "5)TEMPERATE","A:CONDITIONAL","B:MILD","C:TIMELY","D:SOFT","B"
190 DATA "6)DEMOGRAPHY-STUDY OF","A:POPULATION","B:CROWD CONTROL","C:ILLUSTRA- TIONS","D:EQUALITY","A"
200 DATA "7)SUBTLE","A:QUIET","B:INCISIVE","C:ELUSIVE","D:RARE","C"
210 DATA "8)DOGMATIC","A:TENACIOUS","B:STYLISH","C:UNFAIR","D:DICTATORIAL","D"
220 DATA "9)PHENOMENON","A:A COMMONPLACE","B:SOMETHING EXTRAORDINARY"
221 DATA "C:CATA- STROPHE","D:SURPRISE","B"
230 DATA "10)SURREAL-BASED ON","A:REALITY","B:EMPTINESS","C:IMAGINATION","D:MAG- IC","C"
240 DATA "11)CLEAVE","A:TO REPAIR","B:SPLIT","C:HASTEN","D:SHARPEN","B"
250 DATA "12)PRAGMATIC","A:TEMPORARY","B:THEORETICAL","C:STUBBORN","D:PRACTICAL","D"
260 DATA "13)EPIGRAM","A:CABLE","B TERSE SAYING","C:MESSAGE","D:PLATITUDE","B"
270 DATA "14)ZEALOT","A:RELIGOUS RECLUSE","B:ENERGETIC PERSON","C:DERANGED INDIVIDUAL","D:FANATICAL SUPPORTER","D"
280 DATA "15)RAVAGE","A:DEVASTATION","B:ANGER","C:PULLING APART","D:ROARING CONFUSION","A"
290 DATA "16)BRAVADO","A:BLUSTER","B:BRILLIANCE","C:HEROISM","D:FLAIR","A"
300 DATA "17)IMPERTURBABL","A:NERVOUS","B:UNCARING","C:STUBBORN","D:CALM","D"
310 DATA "18)PERUSE","A:TO SEEK","B:IGNORE","C:SCRUTINIZE","D:SKIM","C"
320 DATA "19)INFER","A:TO DEDUCE","B:FEEL","C:PROBE","D:PRESUPPOSE","A"
330 DATA "20)EXPONENT","A:COUNTERPART","B:FORMULA","C:REPRESENTATIVE","D:ADVER- SARY","C"
480 PRINT "YOUR SCORE IS ";G* 5;"%"
490 LOAD "MENU":RUN
500 G= 0
510 G= G+ 1
530 GOTO 105
540 PLOT 17:PLOT 31
545 PRINT "THE ANSWER IS...(";A$(I);")"
550 PLOT 18:PLOT 15,14
555 GOTO 105
999 END
1000 PLOT 6,48:PLOT 12:PLOT 6,48
1008 PLOT 6,19:PLOT 6,17:PLOT 12,14
1010 PLOT 3,16,10:PRINT " THE READER'S DIGEST FEATURE....."
1020 PRINT " IT PAYS TO INCREASE YOUR WORD POWER"
1021 PLOT 15:PRINT :PRINT :PRINT
1022 PRINT :PRINT :PRINT " PICK THE LETTER (A,B,C OR D) WHICH
1023 PRINT " BEST DEFINES THE WORD"
1024 PRINT " THEN HIT RETURN. YOUR SCORE WILL BE AT THE END"
1025 PRINT " -THERE ARE 20 QUESTIONS"
1030 FOR T= 1TO 8000:NEXT
1040 RETURN