Compucolor.org – Virtual Media

Listing of file='VOCAB2.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)IMPROMPTU:","A:CARELESS","B:UNINHIBITED","C:PREMEDITATED","D:SPONT-ANEOUS","D"
150 DATA "2)UNIQUE:","A:PROMISING","B:SYMMETRICAL","C:LIMITED","D:UNEQUALED","D"
160 DATA "3)HILARIOUS","A:VERY FUNNY","B:ABSURD"
161 DATA  "C:BOUNCY","D:ELEVATED","A"
170 DATA "4)FRAY","A:TO OPPOSE","B:UNRAVEL","C:GATHER","D:DENOUNCE","B"
180 DATA "5)BEFIT","A:TO EQUIP","B:PLACE BESIDE","C:BE SUITABLE FOR","D:UPSET","C"
190 DATA "6)STIPULATE","A:TO UNDERTAKE","B:AFFIX","C:SPECIFY","D:SUGGEST","C"
200 DATA "7)PROVIDENCE","A:ILL FATE","B:NEGLECT","C:ACT OF KINDNESS","D:DEVINE DIRECTION","D"
210 DATA  "8)OVATION","A:APPLAUSE","B:GAP","C:PRIZE","D:BANQUET","A"
220 DATA  "9)STOICAL","A:SILENT","B:WEAK"
221 DATA  "C:IMPERTURBABLE","D:STRONG","C"
230 DATA "10)COMPORT","A:TO TRANSFER","B:ANNOUNCE","C:REASSURE","D:BEHAVE","D"
240 DATA "11)ACRIMONIOUS","A:BITTER","B:PROVOCATIVE","C:COSTLY","D:VOLATILE","A"
250 DATA  "12)SUPPLANT","A:TO BOLSTER","B:DISPLACE","C:SUBSIDSIZE","D:CONCEAL","B"
260 DATA  "13)PROTRACT","A:TO WAIT","B DEAL","C:EXTEND","D:ABBREVIATE","C"
270 DATA  "14)CATATONIC - CHARACTERIZED BY","A:STUPOR","B:WIT","C:NOISE      ","D:ANGER","A"
280 DATA  "15)PALLID","A:GLOWING","B:PALE","C:DEPRESSING","D:SMOOTH","B"
290 DATA  "16)INTEMPERATE","A:EXTERNAL","B:FRIGID","C:RESTLESS","D:UNRESTRAINED","D"
300 DATA  "17)LABYRINTHINE","A:STUDIED","B:COMPLICATED","C:DARK","D:UNUSUAL","B"
310 DATA  "18)BALEFUL","A:ARROGANT","B:SARCASTIC","C:OMINOUS","D:HEFTY","C"
320 DATA  "19)PREPOTENT","A:TO THOUGHTFUL","B:SLIGHT","C:UNFAVORABLE","D:PRE-   EMINENT","D"
330 DATA  "20)STRAITS","A:RULES","B:SCORES","C:RIGIDITY","D:DIFFCULTY","D"
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