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