home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / WWIV2.ZIP / IQ.C < prev    next >
Text File  |  1993-06-12  |  18KB  |  691 lines
  1. #include "vars.h"
  2.  
  3. void calciq(right)
  4. {
  5.   int iq;
  6.  
  7.     if (right<6)                       iq=1;
  8.     if ((right>5) && (right<10))       iq=2;
  9.     if ((right>9) && (right<14))       iq=3;
  10.     if ((right>13) && (right<18))      iq=4;
  11.     if ((right>17) && (right<22))      iq=5;
  12.     if ((right>21) && (right<26))      iq=6;
  13.     if ((right>25) && (right<30))      iq=7;
  14.     if ((right>29) && (right<34))      iq=8;
  15.     if ((right>33) && (right<38))      iq=9;
  16.     if ((right>37) && (right<42))      iq=10;
  17.     if (right>41)                      iq=11;
  18.     nl();
  19.     pl("1On The Devil's Doorknob 1-11 scale of intelligence:");
  20.     npr("         3You rate 1%d\r\n",iq);
  21.     nl();
  22.     if ((iq>0) && (iq<5))     pl("1You will have limited access.");
  23.     if ((iq>4) && (iq<8))     pl("2You will have moderate access.");
  24.     if ((iq>7) && (iq<11))    pl("3You will have access to most areas.");
  25.     if (iq>10)                pl("5You will have access to every public area.");
  26. }
  27.  
  28. void iqqst()
  29. {
  30.   int right, wrong;
  31.   char ch;
  32.  
  33.   right=0;
  34.   wrong=0;
  35.  
  36.   nl();nl();
  37.   pl("117. 1Which of the following makes the best comparison7?");
  38.   pl("   1YYZZZYZZY is to 221112112 as YYZZYZZY is to7:");
  39.   pl("   1A7> 1221221122  B7> 122112122  C7> 122112112  D7> 1112212211  E7> 1212211212");
  40.   outstr("7(>");
  41.   ch=onek("ABCDE");
  42.     switch(ch) {
  43.       case 'C':
  44.     right++;
  45.     break;
  46.       case 'A':
  47.       case 'B':
  48.       case 'D':
  49.       case 'E':
  50.     wrong++;
  51.     break;
  52.     }
  53.   nl();nl();
  54.   pl("127. 1Which of the five is least like the other four7?");
  55.   pl("   1A7> 1NICKEL  B7> 1TIN  C7> 1STEEL  D7> 1IRON  E7> 1COPPER");
  56.   outstr("7(>");
  57.   ch=onek("ABCDE");
  58.     switch(ch) {
  59.       case 'C':
  60.     right++;
  61.     break;
  62.       case 'A':
  63.       case 'B':
  64.       case 'D':
  65.       case 'E':
  66.     wrong++;
  67.     break;
  68.     }
  69.   nl();nl();
  70.   pl("137. 1Which of the five is least like the other four7?");
  71.   pl("   1>  =  <  +  //");
  72.   pl("   1A  B  C  D  E");
  73.   outstr("7(>");
  74.   ch=onek("ABCDE");
  75.     switch(ch) {
  76.       case 'D':
  77.     right++;
  78.     break;
  79.       case 'A':
  80.       case 'B':
  81.       case 'C':
  82.       case 'E':
  83.     wrong++;
  84.     break;
  85.     }
  86.   nl();nl();
  87.   pl("147. 1Jerry recieved both the 15th highest and the 15th lowest mark in the class");
  88.   pl("   1How many students are in the class7?");
  89.   pl("   1A7> 115  B7> 129  C7> 125  D7> 130  E7> 132");
  90.   outstr("7(>");
  91.   ch=onek("ABCDE");
  92.     switch(ch) {
  93.       case 'B':
  94.     right++;
  95.     break;
  96.       case 'A':
  97.       case 'D':
  98.       case 'C':
  99.       case 'E':
  100.     wrong++;
  101.     break;
  102.     }
  103.   nl();nl();
  104.   pl("157. 1Which of the five is least like the other four7?");
  105.   pl("   1A7> 1DICTIONARY  B7> 1BIOGRAPHY  C7> 1ATLAS  D7> 1ALMANAC  E7> 1DIRECTORY");
  106.   outstr("7(>");
  107.   ch=onek("ABCDE");
  108.     switch(ch) {
  109.       case 'B':
  110.     right++;
  111.     break;
  112.       case 'A':
  113.       case 'D':
  114.       case 'C':
  115.       case 'E':
  116.     wrong++;
  117.     break;
  118.     }
  119.   nl();nl();
  120.   pl("167. 1Which of the five is least like the other four7?");
  121.   pl("   1A  Z  F  N  H");
  122.   outstr("7(>");
  123.   ch=onek("AZFNH");
  124.     switch(ch) {
  125.       case 'A':
  126.     right++;
  127.     break;
  128.       case 'Z':
  129.       case 'F':
  130.       case 'N':
  131.       case 'H':
  132.     wrong++;
  133.     break;
  134.     }
  135.   nl();nl();
  136.   pl("177. 1Which of the five makes the best comparison7?");
  137.   pl("   1Foot is to hand as leg is to7:");
  138.   pl("   1A7> 1ELBOW  B7> 1PIANO  C7> 1TOE  D7> 1FINGER  E7> 1ARM");
  139.   outstr("7(>");
  140.   ch=onek("ABCDE");
  141.     switch(ch) {
  142.       case 'E':
  143.     right++;
  144.     break;
  145.       case 'A':
  146.       case 'B':
  147.       case 'C':
  148.       case 'D':
  149.     wrong++;
  150.     break;
  151.     }
  152.   nl();nl();
  153.   pl("187. 1If all Ferpies are Worgs and no Worgs are Sprikles, then no Sprikles");
  154.   pl("    1are definately Ferpies7.");
  155.   pl("    1This statement is7:");
  156.   pl("1A7> 1TRUE  B7> 1FALSE  C7> 1NEITHER");
  157.   outstr("7(>");
  158.   ch=onek("ABC");
  159.     switch(ch) {
  160.       case 'A':
  161.     right++;
  162.     break;
  163.       case 'B':
  164.       case 'C':
  165.     wrong++;
  166.     break;
  167.     }
  168.   nl();nl();
  169.   pl("197. 1Of the following numbers, which one is least like the others7?");
  170.   pl("    11  3  5  7  11  13  15  17  19");
  171.   pl("    1A  B  C  D  E   F   G   H   I");
  172.   outstr("7(>");
  173.   ch=onek("ABCDEFGHI");
  174.     switch(ch) {
  175.       case 'G':
  176.     right++;
  177.     break;
  178.       case 'A':
  179.       case 'B':
  180.       case 'C':
  181.       case 'D':
  182.       case 'E':
  183.       case 'F':
  184.       case 'H':
  185.       case 'I':
  186.     wrong++;
  187.     break;
  188.     }
  189.   nl();nl();
  190.   pl("1107. 1Which of the five designs is least like the other four7?");
  191.   pl("    1D  G  C  P  R");
  192.   outstr("7(>");
  193.   ch=onek("DGCPR");
  194.     switch(ch) {
  195.       case 'C':
  196.     right++;
  197.     break;
  198.       case 'D':
  199.       case 'G':
  200.       case 'P':
  201.       case 'R':
  202.     wrong++;
  203.     break;
  204.     }
  205.   nl();nl();
  206.   pl("1117. 1Terry is older than Mark and Sam is younger than Terry7.");
  207.   pl("    1Which of the following statements is most accurate7?");
  208.   pl("1A7> 1Sam is older than Mark.");
  209.   pl("1B7> 1Sam is younger than Mark.");
  210.   pl("1C7> 1Sam is as old as Mark.");
  211.   pl("1D7> 1It is impossible to tell whether Sam or Mark is older.");
  212.   outstr("7(>");
  213.   ch=onek("ABCD");
  214.     switch(ch) {
  215.       case 'D':
  216.     right++;
  217.     break;
  218.       case 'A':
  219.       case 'B':
  220.       case 'C':
  221.     wrong++;
  222.     break;
  223.     }
  224.   nl();nl();
  225.   pl("1127. 1Which of the five makes the best comparison7?");
  226.   pl("    1Leap is to peal as 8326 is to7:");
  227.   pl("    1A7> 12368  B7> 16283  C7> 12683  D7> 16328  E7> 13628");
  228.   outstr("7(>");
  229.   ch=onek("ABCDE");
  230.     switch(ch) {
  231.       case 'D':
  232.     right++;
  233.     break;
  234.       case 'A':
  235.       case 'B':
  236.       case 'C':
  237.       case 'E':
  238.     wrong++;
  239.     break;
  240.     }
  241.   nl();nl();
  242.   pl("1137. 1Which of the five is least like the other four7?");
  243.   pl("    1A7> 1PECK  B7> 1OUNCE  C7> 1PINT  D7> 1CUP  E7> 1QUART");
  244.   outstr("7(>");
  245.   ch=onek("ABCDE");
  246.     switch(ch) {
  247.       case 'A':
  248.     right++;
  249.     break;
  250.       case 'D':
  251.       case 'B':
  252.       case 'C':
  253.       case 'E':
  254.     wrong++;
  255.     break;
  256.     }
  257.   nl();nl();
  258.   pl("14. Three enemy messages were intercepted at communications headquarters.");
  259.   pl("    The code was broken and it was found that `Berok tenlis krux' means");
  260.   pl("    `Secret attack Wednesday' and `Baroom zax Tenlis' means `Secret plans");
  261.   pl("    included' and `Gradnor berok plil elan' means `Wednesday victory is ours.'");
  262.   pl("    What does `krux' mean?");
  263.   pl("    1A7> 1SECRET  B7> 1WEDNESDAY  C7> 1NOTHING  D7> 1ATTACK  E7> 1PLANS");
  264.   outstr("7(>");
  265.   ch=onek("ABCDE");
  266.     switch(ch) {
  267.       case 'D':
  268.     right++;
  269.     break;
  270.       case 'A':
  271.       case 'B':
  272.       case 'C':
  273.       case 'E':
  274.     wrong++;
  275.     break;
  276.     }
  277.   nl();nl();
  278.   pl("15. Which of the five makes the best comparison?");
  279.   pl("    Love is to hate as valor is to:");
  280.   pl("    1A7> 1COURAGE  B7> 1SECURITY  C7> 1COWARDICE  D7> 1ANGER  E7> 1TERROR");
  281.   outstr("7(>");
  282.   ch=onek("ABCDE");
  283.     switch(ch) {
  284.       case 'C':
  285.     right++;
  286.     break;
  287.       case 'A':
  288.       case 'B':
  289.       case 'D':
  290.       case 'E':
  291.     wrong++;
  292.     break;
  293.     }
  294.   nl();nl();
  295.   pl("16. The price of an article was cut 50%% for a sale. By what percent");
  296.   pl("    must the item be increased to again sell at the original price?");
  297.   pl("    1A7> 125   B7> 150   C7> 175   D7> 1100   E7> 1200");
  298.   outstr("7(>");
  299.   ch=onek("ABCDE");
  300.     switch(ch) {
  301.       case 'D':
  302.     right++;
  303.     break;
  304.       case 'A':
  305.       case 'B':
  306.       case 'C':
  307.       case 'E':
  308.     wrong++;
  309.     break;
  310.     }
  311.   nl();nl();
  312.   pl("17. Which of the five is least like the other four?");
  313.   pl("    1A7> 1SQUASH  B7> 1PUMPKIN  C7> 1TOMATO  D7> 1CUCUMBER  E7> 1CORN");
  314.   outstr("7(>");
  315.   ch=getche();
  316.     if ((ch=='e') || (ch=='E'))
  317.       right=right+1;
  318.     else
  319.       wrong++;
  320.   nl();nl();
  321.   pl("18. Which of the five makes the best comparison?");
  322.   pl("    Hole is to doughnut as pages are to:");
  323.   pl("    1A7> 1STORY  B7> 1WORDS  C7> 1CONTENTS  D7> 1INDEX  E7> 1COVER");
  324.   outstr("7(>");
  325.   ch=getche();
  326.     if ((ch=='e') || (ch=='E'))
  327.       right=right+1;
  328.     else
  329.       wrong++;
  330.   nl();nl();
  331.   pl("19. Kim was sent to the store to get eleven large cans of fruit.");
  332.   pl("    Kim could carry only 2 cans at a time. How many trips to the");
  333.   pl("    store did Kim have to make?");
  334.   pl("    1A7> 15  B7> 15½  C7> 16  D7> 16½  E7> 17");
  335.   outstr("7(>");
  336.   ch=getche();
  337.     if ((ch=='c') || (ch=='C'))
  338.       right=right+1;
  339.     else
  340.       wrong++;
  341.   nl();nl();
  342.   pl("20. If all Pleeps are Floops and all Floops are Leepies, then all");
  343.   pl("    Pleeps are Definately Leepies.");
  344.   pl("    This statement is definately:");
  345.   pl("    1A7> 1TRUE  B7> 1FALSE  C7> 1NEITHER");
  346.   ch=getche();
  347.     if ((ch=='a') || (ch=='A'))
  348.       right=right+1;
  349.     else
  350.       wrong++;
  351.   nl();nl();
  352.   pl("21. Which of the five designs is least like the other four?");
  353.   pl("  X  T  P  V  L");
  354.   pl("  A  B  C  D  E");
  355.   outstr("7(>");
  356.   ch=getche();
  357.     if ((ch=='c') || (ch=='C'))
  358.       right=right+1;
  359.     else
  360.       wrong++;
  361.   nl();nl();
  362.   pl("22. Which of the five is least like the other four?");
  363.   pl("    1A7> 1TOUCH  B7> 1SEE  C7> 1HEAR  D7> 1EAT  E7> 1SMELL");
  364.   outstr("7(>");
  365.   ch=getche();
  366.     if ((ch=='d') || (ch=='D'))
  367.       right=right+1;
  368.     else
  369.       wrong++;
  370.   nl();nl();
  371.   pl("23. Which of the five makes the best comparison?");
  372.   pl("    Daughter is to father as niece is to:");
  373.   pl("    1A7> 1NEPHEW  B7> 1COUSIN  C7> 1UNCLE  D7> 1MOTHER  E7> 1BROTHER");
  374.   outstr("7(>");
  375.   ch=getche();
  376.     if ((ch=='c') || (ch=='C'))
  377.       right=right+1;
  378.     else
  379.       wrong++;
  380.   nl();nl();
  381.   pl("24. Which number does not belong in the following series?");
  382.   pl("    4  5  8  10  11  16  19  32  36");
  383.   pl("    A  B  C  D   E   F   G   H   I");
  384.   outstr("7(>");
  385.   ch=getche();
  386.     if ((ch=='e') || (ch=='E'))
  387.       right=right+1;
  388.     else
  389.       wrong++;
  390.   nl();nl();
  391.   pl("25. Which of the five makes the best comparison?");
  392.   pl("    Bark is to tree as scales are to:");
  393.   pl("    1A7> 1GILLS  B7> 1ELEPHANT  C7> 1BUTCHER  D7> 1FISH  E7> 1SKIN");
  394.   outstr("7(>");
  395.   ch=getche();
  396.     if ((ch=='d') || (ch=='D'))
  397.       right=right+1;
  398.     else
  399.       wrong++;
  400.   nl();nl();
  401.   pl("26. Which of the five is least like the other four?");
  402.   pl("    1A7> 1TURKEY  B>DUCK  C7> 1CHICKEN  D7> 1PHEASANT  E7> 1GOOSE");
  403.   outstr("7(>");
  404.   ch=getche();
  405.     if ((ch=='d') || (ch=='D'))
  406.       right=right+1;
  407.     else
  408.       wrong++;
  409.   nl();nl();
  410.   pl("27. The secher vlooped quaply berak the kriggly lool. Then the secher");
  411.   pl("    _____________ flaxly down the kleek.");
  412.   pl("    Which word belongs in the space?");
  413.   pl("    1A7> 1VLOOPED  B7> 1QUAPLY  C7> 1BERAK  D7> 1LOOL  E7> 1KRIGGLY");
  414.   outstr("7(>");
  415.   ch=getche();
  416.     if ((ch=='a') || (ch=='A'))
  417.       right=right+1;
  418.     else
  419.       wrong++;
  420.   nl();nl();
  421.   pl("28. If you rearrange the letters in `NAICH' you would have the");
  422.   pl("    name of a(n):");
  423.   pl("    1A7> 1COUNTRY  B7> 1OCEAN  C7> 1STATE  D7> 1CITY  E7> 1ANIMAL");
  424.   outstr("7(>");
  425.   ch=getche();
  426.     if ((ch=='a') || (ch=='A'))
  427.       right=right+1;
  428.     else
  429.       wrong++;
  430.   nl();nl();
  431.   pl("29. Jack is 15 years old, three times as old as his sister. How old");
  432.   pl("    will Jack be when he is twice as old as his sister?");
  433.   pl("    1A7> 118  B7> 120  C7> 124  D7> 126  E7> 130");
  434.   outstr("7(>");
  435.   ch=getche();
  436.     if ((ch=='b') || (ch=='B'))
  437.       right=right+1;
  438.     else
  439.       wrong++;
  440.   nl();nl();
  441.   pl("30. Slok are more zotful than mulk, but pringling flez are");
  442.   pl("    most ___________ of all.");
  443.   pl("    Which word belongs in the blank space?");
  444.   pl("    1A7> 1SLOCK  B7> 1ZOTFUL  C7> 1MULK  D7> 1PRINGLING  E7> 1FLEZ");
  445.   outstr("7(>");
  446.   ch=getche();
  447.     if ((ch=='b') || (ch=='B'))
  448.       right=right+1;
  449.     else
  450.       wrong++;
  451.   nl();nl();
  452.   pl("31. Which of the five makes the best comparison?");
  453.   pl("    Pencil is to paper as eye is to:");
  454.   pl("    1A7> 1GLASSES  B7> 1EAR  C7> 1BOOK  D7> 1HAT  E7> 1PAINTBRUSH");
  455.   outstr("7(>");
  456.   ch=getche();
  457.     if ((ch=='c') || (ch=='C'))
  458.       right=right+1;
  459.     else
  460.       wrong++;
  461.   nl();nl();
  462.   pl("32. If you rearrange the letters in `SHORE' you would have");
  463.   pl("    the name of a(n):");
  464.   pl("    1A7> 1COUNTRY  B7> 1OCEAN  C7> 1STATE  D7> 1CITY  E7> 1ANIMAL");
  465.   outstr("7(>");
  466.   ch=onek("ABCDE");
  467.     switch(ch) {
  468.       case 'E':
  469.     right++;
  470.     break;
  471.       case 'A':
  472.       case 'B':
  473.       case 'C':
  474.       case 'D':
  475.     wrong++;
  476.     break;
  477.     }
  478.   nl();nl();
  479.   pl("33. Which number does not belong in the following series?");
  480.   pl("    1  3  5  7  9  11  12  13  15");
  481.   pl("    A  B  C  D  E  F   G   H   I");
  482.   outstr("7(>");
  483.   ch=onek("ABCDEFGHI");
  484.     switch(ch) {
  485.       case 'G':
  486.     right++;
  487.     break;
  488.       case 'A':
  489.       case 'B':
  490.       case 'C':
  491.       case 'D':
  492.       case 'E':
  493.       case 'F':
  494.       case 'H':
  495.       case 'I':
  496.     wrong++;
  497.     break;
  498.     }
  499.   nl();nl();
  500.   pl("34. Which of the five makes the best comparison?");
  501.   pl("    Gas is to car as food is to:");
  502.   pl("    1A7> 1MOUTH  B7> 1STOMACH  C7> 1ENERGY  D7> 1BODY  E7> 1TEETH");
  503.   outstr("7(>");
  504.   ch=onek("ABCDE");
  505.     switch(ch) {
  506.       case 'D':
  507.     right++;
  508.     break;
  509.       case 'A':
  510.       case 'B':
  511.       case 'C':
  512.       case 'E':
  513.     wrong++;
  514.     break;
  515.     }
  516.   nl();nl();
  517.   pl("35. Which of the five is least like the other four?");
  518.   pl("    1A7> 1CHICAGO  B7> 1TOLEDO  C7> 1DALLAS  D7> 1BOSTON  E7> 1CANTON");
  519.   outstr("7(>");
  520.   ch=onek("ABCDE");
  521.     switch(ch) {
  522.       case 'A':
  523.     right++;
  524.     break;
  525.       case 'D':
  526.       case 'B':
  527.       case 'C':
  528.       case 'E':
  529.     wrong++;
  530.     break;
  531.     }
  532.   nl();nl();
  533.   pl("36. If some Tripples are Tropples and all Bolars are Tropples,");
  534.   pl("    then some Tripples are definately Bolars.");
  535.   pl("    This statement is:");
  536.   pl("    1A7> 1TRUE  B7> 1FALSE  C7> 1NEITHER");
  537.   outstr("7(>");
  538.   ch=onek("ABC");
  539.     switch(ch) {
  540.       case 'B':
  541.     right++;
  542.     break;
  543.       case 'A':
  544.       case 'C':
  545.     wrong++;
  546.     break;
  547.     }
  548.   nl();nl();
  549.   pl("37. Which of the five makes the best comparison?");
  550.   pl("    Sack is to sad as turn is to:");
  551.   pl("    1A7> 1TACK  B7> 1UP  C7> 1TURF  D7> 1BURN  E7> 1TOY");
  552.   outstr("7(>");
  553.   ch=onek("ABCDE");
  554.     switch(ch) {
  555.       case 'B':
  556.     right++;
  557.     break;
  558.       case 'A':
  559.       case 'D':
  560.       case 'C':
  561.       case 'E':
  562.     wrong++;
  563.     break;
  564.     }
  565.   nl();nl();
  566.   pl("1387. 1Which letter does not belong in the following series7?");
  567.   pl("    1B  E  H  K  M  N  Q  T");
  568.   outstr("7(>");
  569.   ch=onek("BEHKMNQT");
  570.     switch(ch) {
  571.       case 'M':
  572.     right++;
  573.     break;
  574.       case 'B':
  575.       case 'E':
  576.       case 'H':
  577.       case 'K':
  578.       case 'N':
  579.       case 'Q':
  580.       case 'T':
  581.     wrong++;
  582.     break;
  583.     }
  584.   nl();nl();
  585.   pl("1397. 1Which of the five makes the best comparison7?");
  586.   pl("    1Pillow is to pillowcase as arm is to7:");
  587.   pl("    1A7> 1BODY  B7> 1SLEEVE  C7> 1HAND  D7> 1GLOVE  E7> 1RING");
  588.   outstr("7(>");
  589.   ch=onek("ABCDE");
  590.     switch(ch) {
  591.       case 'B':
  592.     right++;
  593.     break;
  594.       case 'A':
  595.       case 'D':
  596.       case 'C':
  597.       case 'E':
  598.     wrong++;
  599.     break;
  600.     }
  601.   nl();nl();
  602.   pl("1407. 1Which of the five is least like the other four7?");
  603.   pl("    1A7> 1CUP  B7> 1HAT  C7> 1PAPER BAG  D7> 1DRINKING GLASS  E7> 1WATER PITCHER");
  604.   outstr("7(>");
  605.   ch=onek("ABCDE");
  606.     switch(ch) {
  607.       case 'B':
  608.     right++;
  609.     break;
  610.       case 'A':
  611.       case 'D':
  612.       case 'C':
  613.       case 'E':
  614.     wrong++;
  615.     break;
  616.     }
  617.   nl();nl();
  618.   pl("1417. 1If all Truples are Glogs and some Glogs are Glips, then");
  619.   pl("    1some Truples are definately Glips7.");
  620.   pl("    1This statement is7:");
  621.   pl("    1A7> 1TRUE  B7> 1FALSE  C7> 1NEITHER");
  622.   outstr("7(>");
  623.   ch=onek("ABCDE");
  624.     switch(ch) {
  625.       case 'B':
  626.     right++;
  627.     break;
  628.       case 'A':
  629.       case 'D':
  630.       case 'C':
  631.       case 'E':
  632.     wrong++;
  633.     break;
  634.     }
  635.   nl();nl();
  636.   pl("1427. 1If you rearrange the letters 'TALCATIN' you would have");
  637.   pl("    1the name of a(n)7:");
  638.   pl("    1A7> 1COUNTRY  B7> 1OCEAN  C7> 1STATE  D7> 1CITY  E7> 1ANIMAL");
  639.   outstr("7(>");
  640.   ch=onek("ABCDE");
  641.     switch(ch) {
  642.       case 'B':
  643.     right++;
  644.     break;
  645.       case 'A':
  646.       case 'D':
  647.       case 'C':
  648.       case 'E':
  649.     wrong++;
  650.     break;
  651.     }
  652.   nl();nl();
  653.   pl("1437. 1Which of the five is least like the other four7?");
  654.   pl("    1A7> 1ARTIST  B7> 1GOLFER  C7> 1NEWSCASTER  D7> 1DANCER  E7> 1MECHANIC");
  655.   outstr("7(>");
  656.   ch=onek("ABCDE");
  657.     switch(ch) {
  658.       case 'C':
  659.     right++;
  660.     break;
  661.       case 'A':
  662.       case 'B':
  663.       case 'D':
  664.       case 'E':
  665.     wrong++;
  666.     break;
  667.     }
  668.   nl();nl();
  669.   pl("1447. 1Which of the five is least like the other four7?");
  670.   pl("    1A7> 1WATER  B7> 1SUN  C7> 1GASOLINE  D7> 1WIND  E7> 1CEMENT");
  671.   outstr("7(>");
  672.   ch=onek("ABCDE");
  673.     switch(ch) {
  674.       case 'E':
  675.     right++;
  676.     break;
  677.       case 'A':
  678.       case 'B':
  679.       case 'C':
  680.       case 'D':
  681.     wrong++;
  682.     break;
  683.     }
  684.   nl();nl();
  685.   npr("2%d 1right\r\n",right);
  686.   npr("2%d 1wrong\r\n",wrong);
  687.   calciq(right);
  688.   nl();
  689.   npr("5Press and key3....");
  690.   getche();
  691. }