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