10  REM  VOCAB (FORMALLY 'BINET'), VOCABULARY TEST, BY GENE KIMBALL.
20  REM
25  IF  ERROR  THEN 595
30  K2=T1=0
40  DIM A$[20],B$[72],C$[72],D$[72]
50  M=84
60  DEF FNM()=-M*INT(/M)
70  PRINT "PLEASE TYPE IN YOUR FIRST NAME";
80  INPUT A$
90  W=C=0
100  PRINT "O.K. "A$" DO YOU WANT DIRECTIONS (Y/N)";
110  INPUT B$
120  PRINT "NUMBER OF SECONDS";
130  INPUT T
140  IF T<1 OR T>60 OR T <> INT(T) THEN 120
150  PRINT "WHICH GROUP DO YOU WANT  1  2  3   4   ";
160  INPUT T9
170  GOTO T9 OF 180,210,240,270
180  RESTORE 600
190  K=25
200  GOTO 290
210  RESTORE 1440
220  K=25
230  GOTO 290
240  RESTORE 2110
250  K=35
260  GOTO 290
270  K=25
280  K2=1
290  PRINT 
300  FOR I=1 TO K
310  IF K2=1 THEN 520
320  READ B$,C$,D$
330  PRINT 
340  PRINT  USING 350;I,B$
350  IMAGE 2D,") ",60A
360  PRINT TAB(4);C$
370  PRINT 
380  PRINT "YOUR ANSWER "A$"?";
390  ENTER T,Z,E$
400  PRINT 
410  IF T>0 THEN 420
415  Z=T
420  T1=T1+Z
430  IF LEN(E$)=0 THEN 460
450  IF D$=E$ THEN 490
460  W=W+1
470  PRINT "WRONG, THE CORRECT ANSWER IS "D$"."
480  GOTO 580
490  C=C+1
500  PRINT "CORRECT"
510  GOTO 580
520  L=FNM(INT(RND(0)*100000.))+1
530  RESTORE 
540  FOR Y=1 TO L
550  READ B$,C$,D$
560  NEXT Y
570  GOTO 340
580  NEXT I
590  PRINT A$" YOU GOT"C"CORRECT AND"W"WRONG IN"T1"SECONDS."
595  CHAIN R,"*HELP"
597  SYSTEM X,"BYE"
600  DATA "PROLONG             A) INSPECT          B) EXTEND"
610  DATA "                    C) ESTABLISH        D) MANAGE"
620  DATA "B"
630  DATA "GRATIFYING          A) SURPRISING       B) PLEASING"
640  DATA "                    C) PUZZLING         D) INSPIRING"
650  DATA "B"
660  DATA "ECCENTRIC           A) WICKED           B) WARY"
670  DATA "                    C) ODD              D) IGNORANT"
680  DATA "C"
690  DATA "MALICIOUS           A) JEALOUS          B) FRANTIC"
700  DATA "                    C) BRAZEN           D) SPITEFUL"
710  DATA "D"
720  DATA "IMPROMPTU           A) OFFHAND          B) OCCASIONAL"
730  DATA "                    C) EASYGOING        D) UNINTERESTING"
740  DATA "A"
750  DATA "NUCLEUS             A) FILM             B) BOND"
760  DATA "                    C) CORE             D) CIRCUIT"
770  DATA "C"
780  DATA "LARCENY             A) ARSON            B) THEFT"
790  DATA "                    C) TREASON          D) BIGAMY"
800  DATA "B"
810  DATA "STATUS              A) TENDENCY         B) QUALIFICATION"
820  DATA "                    C) PREFERENCE       D) POSITION"
830  DATA "D"
840  DATA "IMMATERIAL          A) UNINTELLIGIBLE   B) UNOFFICIAL"
850  DATA "                    C) UNFINISHED       D) UNIMPORTANT"
860  DATA "D"
870  DATA "ENLIGHTEN           A) INFORM           B) SUPPORT"
880  DATA "                    C) COMPLIMENT       D) WELCOME"
890  DATA "A"
900  DATA "FILTER              A) DISSOLVE         B) DRY"
910  DATA "                    C) STRAIN           D) FLUSH"
920  DATA "C"
930  DATA "ENGROSSED           A) ABSORBED         B) IMAGINATIVE"
940  DATA "                    C) EXPECTANT        D) ELATED"
950  DATA "A"
960  DATA "EXPLICIT            A) FAIR             B) PERTINENT"
970  DATA "                    C) LOGICAL          D) PRECISE"
980  DATA "D"
990  DATA "INADVERTENT         A) INDECENT         B) UNUSUAL"
1000  DATA "                    C) UNINTENTIONAL    D) INAUDIBLE"
1010  DATA "C"
1020  DATA "VALOR               A) HONESTY          B) VIGOR"
1030  DATA "                    C) COURAGE          D) PRIDE"
1040  DATA "C"
1050  DATA "FALSEHOOD           A) TRIFLE           B) PRANK"
1060  DATA "                    C) DEBT             D) LIE"
1070  DATA "D"
1080  DATA "DISCLOSE            A) REVEAL           B) EMPHASIZE"
1090  DATA "                    C) ANALYZE          D) PROVE"
1100  DATA "A"
1110  DATA "SAUNTER             A) SLIDE            B) STROLL"
1120  DATA "                    C) HOP              D) MARCH"
1130  DATA "B"
1140  DATA "INKLING             A) REASON           B) IDEAL"
1150  DATA "                    C) HINT             D) CUSTOM"
1160  DATA "C"
1170  DATA "EMANCIPATE          A) FREE             B) BLESS"
1180  DATA "                    C) WORSHIP          D) TEACH"
1190  DATA "A"
1200  DATA "DRAB                A) DECAYED          B) AWKWARD"
1210  DATA "                    C) DULL             D) TATTERED"
1220  DATA "C"
1230  DATA "CURTAIL             A) WEAKEN           B) TIGHTEN"
1240  DATA "                    C) DARKEN           D) SHORTEN"
1250  DATA "D"
1260  DATA "DIFFUSE             A) OBSCURE          B) SCATTER"
1270  DATA "                    C) FLATTEN          D) TOPPLE"
1280  DATA "B"
1290  DATA "INCITE              A) DISAPPOINT       B) OVERCOME"
1300  DATA "                    C) PROVOKE          D) DISHONOR"
1310  DATA "C"
1320  DATA "AUDACITY            A) BOLDNESS         B) CRAFTINESS"
1330  DATA "                    C) LUNACY           D) PERSISTENCE"
1340  DATA "A"
1350  DATA "COMMENCE            A) REACH            B) BEGIN"
1360  DATA "                    C) DESCRIBE         D) SEARCH"
1370  DATA "B"
1380  DATA "CREDIBLE            A) SUITABLE         B) BELIEVABLE"
1390  DATA "                    C) PROFITABLE       D) COMPARABLE"
1400  DATA "B"
1410  DATA "ABDUCT              A) KIDNAP           B) EXPEL"
1420  DATA "                    C) CONVICT          D) SWINDLE"
1430  DATA "A"
1440  DATA "LABORIOUS           A) TOILSOME         B) PERILOUS"
1450  DATA "                    B) URGENT           D) MYSTIFYING"
1460  DATA "A"
1470  DATA "METICULOUS          A) ORIGINAL         B) DIPLOMATIC"
1480  DATA "                    C) PAINSTAKING      D) DETERMINED"
1490  DATA "C"
1500  DATA "CAPSIZE             A) UPROOT           B) OVERTURN"
1510  DATA "                    C) AMBUSH           D) BOMBARD"
1520  DATA "B"
1530  DATA "CULPRIT             A) BLUFFER          B) WRONGDOER"
1540  DATA "                    C) DRIFTER          D) BUSYBODY"
1550  DATA "B"
1560  DATA "MAUSOLEUM           A) HEARSE           B) CEMETERY"
1570  DATA "                    C) DEATHBED         D) TOMB"
1580  DATA "D"
1590  DATA "IMPULSIVE           A) EVIL             B) GRUFF"
1600  DATA "                    C) RASH             D) HOSTILE"
1610  DATA "C"
1620  DATA "FRIVOLOUS           A) SILLY            B) SNOBBISH"
1630  DATA "                    C) SHIFTLESS        D) SPOILED"
1640  DATA "A"
1650  DATA "PILLAR              A) BANISTER         B) CHUTE"
1660  DATA "                    C) LEDGE            D) COLUMN"
1670  DATA "D"
1680  DATA "EMIT                A) IDENTIFY         B) ITEMIZE"
1690  DATA "                    C) DISCHARGE        D) MINIMIZE"
1700  DATA "C"
1710  DATA "SEVER               A) CUT              B) TWIST"
1720  DATA "                    C) HAMMER           D) PRY"
1730  DATA "A"
1740  DATA "TUMULT              A) SLANDER          B) PLAGUE"
1750  DATA "                    C) OPPRESSION       D) UPROAR"
1760  DATA "D"
1770  DATA "NONCHALANT          A) FORLORN          B) INDIFFERENT"
1780  DATA "                    C) UNMERCIFUL       D) AMATEURISH"
1790  DATA "B"
1800  DATA "DESIGNATE           A) LICENSE          B) GOVERN"
1810  DATA "                    C) PUBLICIZE        D) APPOINT"
1820  DATA "D"
1830  DATA "SKEPTICAL           A) SCORNFUL         B) RESENTFUL"
1840  DATA "                    C) FRETFUL          D) DOUBTFUL"
1850  DATA "D"
1860  DATA "CONVEY              A) ORGANIZE         B) REPAIR"
1870  DATA "                    C) TRANSPORT        D) ERECT"
1880  DATA "C"
1890  DATA "REGAL               A) SACRED           B) STATELY"
1900  DATA "                    C) DELICATE         D) ENCHANTING"
1910  DATA "B"
1920  DATA "ADHERE              A) SETTLE           B) STICK"
1930  DATA "                    C) SPREAD           D) BLEND"
1940  DATA "B"
1950  DATA "COMPILE             A) WITHHOLD         B) GATHER"
1960  DATA "                    C) SECTION          D) DESIGN"
1970  DATA "B"
1980  DATA "JUDICIOUS           A) FLUENT           B) MAGNETIC"
1990  DATA "                    C) PUNCTUAL         D) WISE"
2000  DATA "D"
2010  DATA "INSENSATE           A) UNFEELING        B) STAGNANT"
2020  DATA "                    C) LONESOME         D) DISMAYED"
2030  DATA "A"
2040  DATA "DIVERSE             A) EXACT            B) SCARCE"
2050  DATA "                    C) COMPACT          D) VARIED"
2060  DATA "D"
2070  DATA "COADJUTOR           A) ANCESTOR         B) CONSTABLE"
2080  DATA "                    C) ASSISTANT        D) CONDUCTOR"
2090  DATA "C"
2100  REM************THIS STARTS THE SECOND SHEET**********************
2110  DATA "FLEXIBLE            A) SAFE             B) EASILY BENT"
2120  DATA "        C) WORTHLESS              D) FULL OF HOLES     E) BRITTLE"
2130  DATA "B"
2140  DATA "MOURN               A) ARISE            B) ADORN"
2150  DATA "         C) DRIFT                D) GRIEVE            E) PRAISE"
2160  DATA "D"
2170  DATA " FORECAST           A) PREDICTION       B) WEATHER"
2180  DATA "         C) OVERCAST               D) DESTROY        E) FACILITATE"
2190  DATA "A"
2200  DATA "TRAIT               A) QUALITY           B) DEFECT"
2210  DATA "       C) PACE                   D) TURN           E) LAG"
2220  DATA "A"
2230  DATA "PROBE               A) INVITE            B) ACTIVATE"
2240  DATA "         C) FLASH                  D) HALT           E) INVESTIGATE"
2250  DATA "E"
2260  DATA "DEADLOCK            A) SOCKET            B) PROTECTION"
2270  DATA "         C) STANDSTILL             D) WALL           E) PATENT"
2280  DATA "C"
2290  DATA "RELUCTANCE          A) GLIMMER           B) UNWILLINGNESS"
2300  DATA "        C) DEPENDABILILY        D) PASSAGE      E) SPEECH"
2310  DATA "B"
2320  DATA "ORDINANCE           A) NEATNESS           B) COST"
2330  DATA "        C) FORCE                  D) ACCEPTANCE     E) LAW"
2340  DATA "E"
2350  DATA " INTERROGATE        A) BURY               B) INSULT"
2360  DATA "        C) EXPLAIN              D) QUESTION       E) BOUNDARY"
2370  DATA "D"
2380  DATA "PREPOSTEROUS        A) ELEPHANTINE        B) SENSELESS"
2390  DATA "        C) UPRIGHT                D) JOCULAR        E) DOWNTRODDEN"
2400  DATA "B"
2410  DATA " ARMISTICE        A) TRUCE              B) INSECT"
2420  DATA "        C) ECLIPSE                D) CROSS          E) SPLINT"
2430  DATA "A"
2440  DATA "FRUITLESS           A) PRODUCTIVE         B) RARE"
2450  DATA "      C) UNSUCCESSFUL         D) WEARY          E) IMPOSSIBLE"
2460  DATA "C"
2470  DATA "FLUENT              A) STICKY             B) SPREADING"
2480  DATA "        C) WEALTHY                D) FLOWING        E) ALOFT"
2490  DATA "D"
2500  DATA "MISDEMEANOR         A) MISSION            B) DISTORTION"
2510  DATA "        C) ACHIEVEMENT            D) DISGUISE       E) CRIME"
2520  DATA "E"
2530  DATA "RADICAL             A) ROUND              B) OUTLAW"
2540  DATA "        C) VERTICAL               D) CODE           E) EXTREME"
2550  DATA "E"
2560  DATA "GRUELING            A) CRAWLING           B) INFANT"
2570  DATA "        C) CEREAL                 D) TIRING         E) WARMING"
2580  DATA "D"
2590  DATA "CHAFE               A) INCITE             B) CUT"
2600  DATA "        C) SAIL                   D) CHILL          E) IRRITATE"
2610  DATA "E"
2620  DATA "INDUCE              A) PERSUADE           B) DRAFT"
2630  DATA "      C) GREET                  D) ENTER          E) PAMPER"
2640  DATA "A"
2650  DATA "PREMONITION          A) INTERFERENCE       B) RESTLESSNESS"
2660  DATA "        C) FOREWARNING            D) CURSE          E) ADVANCEMENT"
2670  DATA "C"
2680  DATA "CONSOLE              A) TOWER              B) COMFORT"
2690  DATA "        C) CARPET                 D) JOIN          E) RECOMMEND"
2700  DATA "B"
2710  DATA "RESIDUE              A) DEADLINE           B) RENUNCIATION"
2720  DATA "        C) CONVERSION             D) REMAINDER      E) POPULACE"
2730  DATA "D"
2740  DATA "POLLUTE              A) RUFFLE             B) DIMINISH"
2750  DATA "        C) FOUL                 D) POLICE         E) SIGNAL"
2760  DATA "C"
2770  DATA "VERBIAGE             A) WORDINESS        B) UNDERGROWTH"
2780  DATA "        C) TRUST                  D) BANTER         E) TRUTHFULNESS"
2790  DATA "A"
2800  DATA "INDICT               A) OVERTHROW          B) CHARGE"
2810  DATA "        C) FIGURE                 D) MINE            E) OPEN"
2820  DATA "B"
2830  DATA "MERGE                A) UPSET              B) SQUANDER"
2840  DATA "        C) COMBINE                D) EDGE           E) ENCOURAGE"
2850  DATA "C"
2860  DATA "COMPLIANCE          A) DENIAL             B) CLIMAX"
2870  DATA "         C) STIGMA                 D) OBEDIENCE       E) PROMISE"
2880  DATA " D"
2890  DATA "CONSECRATE            A) CONTAIN          B) SANCTIFY"
2900  DATA "         C) DEMOLISH               D)ARRANGE          E) PACK"
2910  DATA "B"
2920  DATA "WILY                  A) HASTY            B) BRILLIANT"
2930  DATA "         C) ELASTIC                D) BRASH           E) CRAFTY"
2940  DATA "E"
2950  DATA "DUBIOUS               A) BIGOTED            B) APPARENT"
2960  DATA "         C) TITLED                 D) CONCISE         E) DOUBTFUL"
2970  DATA "E"
2980  DATA "DECREPIT              A) FEEBLE             B) RIDICULOUS"
2990  DATA "         C) INFESTED               D) AMBULATORY      E) LADDER"
3000  DATA "A"
3010  DATA "OFFENSIVE             A) TACKLE               B) SUDDEN"
3020  DATA "         C) CUSTOMARY              D) ANNOYING        E) IRREGULAR"
3030  DATA "C"
3040  DATA "RAVENOUS              A) SPINDLY              B) HUNGRY"
3050  DATA "         C) WINDING                D) LOUD            E) ERODED"
3060  DATA "B"
3070  DATA "ACCENTUATE            A) CORRUPT              B) DECIDE"
3080  DATA "         C) HIGHLIGHT              D) INVOLVE         E) COMPUTE"
3090  DATA "C"
3100  DATA "CISTERN               A)CHURCH                B) SCROLL"
3110  DATA "         C) FORTUNE                D) TANK            E) SWELLING"
3120  DATA "D"
3130  DATA "PANDEMONIUM           A) CHAOS                B) HALLUCINATION"
3140  DATA "         C) ORGANIZATION           D) LYCEUM          E) FESTIVAL"
3150  DATA "A"
3160  END 
