0 DATA VERBS  A - B
1 DATA ABDICATE ,RENOUNCE; ,GIVE UP
2 DATA ABASH ,EMBARRAS; ,TO SHAME
3 DATA ABJURE ,RENOUNCE ,UPON OATH 
4 DATA ABRADE ,WEAR AWAY; ,ERODE 
5 DATA ABROGATE ,ABOLISH; ,END 
6 DATA ACCLIMATE ,ADJUST ,TO CLIMATE 
7 DATA ABSCOND ,DEPART SECRETLY ,AND HIDE 
8 DATA ABUT ,BORDER UPON; ,ADJOIN 
9 DATA ACCURE ,COME ABOUT ,BY ADDITION 
10 DATA ACTUATE ,MOTIVATE; ,CAUSE 
11 DATA ADHERE ,STICK ,FAST TO 
12 DATA ADVERT ,REFER TO; ,MENTION 
13 DATA ADJURE ,REQUEST ,SOLEMNLY 
14 DATA AGGRANDIZE ,INCREASE OR ,INTENSIFY 
15 DATA ALLEGE ,STATE ,WITHOUT PROOF 
16 DATA ALLEVIATE ,RELIEVE; ,STOP 
17 DATA ALLUDE ,REFER ,INDIRECTLY 
18 DATA AMALGAMATE ,COMBINE; ,UNITE 
19 DATA ANNEAL ,REDUCE ,BRITTLENESS 
20 DATA ARRAIGN ,CHARGE; ,INDICT 
21 DATA ASSUAGE ,EASE; ,LESSEN 
22 DATA ASSAY ,ANALYZE; ,EVALUATE 
23 DATA ATTENUATE ,MAKE THIN; ,WEAKEN 
24 DATA AUGMENT ,INCREASE; ,ADD
25 DATA AVOW ,DECLARE ,OPENLY 
26 DATA BADGER ,PESTER; ,ANNOY 
27 DATA BALK ,FOIL; ,HINDER 
28 DATA BELABOR ,ASSAIL ,VERBALLY
29 DATA BERATE ,SCOLD ,STRONGLY 
30 DATA BLANCH ,WHITEN; ,BLEACH 
50 'Vocabulary tester by Russ Hall
60 'Name extra data file "vocab1.do" and    "vocab.do" to merge into lines 0-30
70 DIMT$(29,2),F(5),Y(30)
80 FORF=1TOVAL(RIGHT$(TIME$,2)):R=RND(1):NEXT
90 READY$:CLS:PRINT"Club 100 Library - 415/939-1246 BBS":PRINT"937-5039 NEWSLETTER, 932-8856 VOICE":PRINT:PRINT" VOCAB ASSORTMENT IS:":PRINTY$:PRINT" DO YOU WANT TO CHANGE IT?"
105 A$=INKEY$:IFA$=""THEN105
107 IFA$="Y"ORA$="y"THENMERGE"VOCAB.DO":RUN
108 PRINT:PRINT"  Press <Q> anytime to quit.":FORF=1TO200:NEXT:O=1
110 FORA=0TO29:FORB=0TO2
120 READT$(A,B):NEXT:NEXT
130 G=INT(RND(1)*4)+1:X=X+1
135 IFO/5=INT(O/5)THENPRINT:PRINT"Your percentage correct is:"INT((RO/O)*100)"%":FORF=1TO1000:NEXT
140 E=INT(RND(1)*30):Y(X)=E:IFX=1THEN150
142 FORZ=1TOX-1
144 IFE=Y(Z)THEN140:'check for duplicates
146 NEXT
150 FORT=0TO3
155 F(T)=INT(RND(1)*30):'wrong answers
160 IFF(T)=ETHEN155
165 NEXT
170 R=0:O=O+1:CLS:PRINT:PRINTTAB(10)T$(E,0)
180 FORT=0TOG-1
190 R=R+1
200 PRINTR;". ";T$(F(T),1);T$(F(T),2)
210 NEXT
220 R=R+1:V=R:PRINTV;". ";T$(E,1);T$(E,2):'right answer
230 IFV>4THEN300
240 FORT=G+1TO4:R=R+1
250 PRINTR;". ";T$(F(T),1);T$(F(T),2)
260 NEXT
300 INPUT"WHICH IS THE CORRECT DEFINITION";S$:IFS$="Q"ORS$="q"THENMENU
305 S=VAL(S$)
310 IFS=VTHEN400
320 PRINT" SORRY, THAT'S WRONG. TRY AGAIN...":FORT=1TO500:NEXT:GOTO170
400 PRINT" THAT'S RIGHT! TRY ANOTHER...":FORT=1TO500:NEXT:RO=RO+1:GOTO130