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(X)=X-M*INT(X/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