Dec 212017
 
This is the full Keirsey personality index test. It asks the complete 70 questions. Options are provided for a printout of the test results. Includes Turbo Pascal 3.0 source code.
File FULLKEIR.ZIP from The Programmer’s Corner in
Category Games and Entertainment
This is the full Keirsey personality index test. It asks the complete 70 questions. Options are provided for a printout of the test results. Includes Turbo Pascal 3.0 source code.
File Name File Size Zip Size Zip Type
DISPLAY1.PAS 15525 4120 deflated
DISPLAY2.PAS 15707 4383 deflated
DISPLAY3.PAS 37232 3800 deflated
DISPLAY4.PAS 33742 3888 deflated
KEIRSEY.000 96256 24372 deflated
KEIRSEY.COM 29313 18187 deflated
KEIRSEY.PAS 12452 3279 deflated
QUESTION.TXT 14088 2817 deflated
STD_UTIL.INC 5840 1421 deflated

Download File FULLKEIR.ZIP Here

Contents of the QUESTION.TXT file


procedure DisplayText (pointer :byte);

begin

ClearFrame1;

case pointer of

1 : begin
GoToXY (10,6); Write (' 1. At a party, do you:');
GoToXY (1,8); Write (' (a) interact with many, including strangers?');
GoToXY (1,10); Write (' (b) interact with a few, known to you?');
end;

2 : begin
GoToXY (10,6); Write (' 2. Are you more:');
GoToXY (1,8); Write (' (a) realistic than speculative?');
GoToXY (1,10); Write (' (b) speculative than realistic?');
end;

3 : begin
GoToXY (10,6); Write (' 3. Is it worse to:');
GoToXY (1,8); Write (' (a) "have your head in the clouds"?');
GoToXY (1,10); Write (' (b) "be in a rut"?');
end;

4 : begin
GoToXY (10,6); Write (' 4. Are you more impressed by:');
GoToXY (1,8); Write (' (a) principles?');
GoToXY (1,10); Write (' (b) emotions?');
end;

5 : begin
GoToXY (10,6); Write (' 5. Are you more drawn toward the:');
GoToXY (1,8); Write (' (a) convincing?');
GoToXY (1,10); Write (' (b) touching?');
end;

6 : begin
GoToXY (10,6); Write (' 6. Do you prefer to work:');
GoToXY (1,8); Write (' (a) to deadlines?');
GoToXY (1,10); Write (' (b) just "whenever"?');
end;

7 : begin
GoToXY (10,6); Write (' 7. Do you tend to choose:');
GoToXY (1,8); Write (' (a) rather carefully?');
GoToXY (1,10); Write (' (b) somewhat impulsively?');
end;

8 : begin
GoToXY (10,6); Write (' 8. At parties, do you:');
GoToXY (1,8); Write (' (a) stay late, with increasing energy?');
GoToXY (1,10); Write (' (b) leave early, with decreasing energy?');
end;

9 : begin
GoToXY (10,6); Write (' 9. Are you more attracted to:');
GoToXY (1,8); Write (' (a) sensible people?');
GoToXY (1,10); Write (' (b) imaginative people?');
end;

10 : begin
GoToXY (10,6); Write ('10. Are you more interested in:');
GoToXY (1,8); Write (' (a) what is actual?');
GoToXY (1,10); Write (' (b) what is possible?');
end;

11 : begin
GoToXY (10,6); Write ('11. In judging others are you more swayed by:');
GoToXY (1,8); Write (' (a) laws rather than circumstances?');
GoToXY (1,10); Write (' (b) circumstances rather than laws?');
end;

12 : begin
GoToXY (10,6); Write ('12. In approaching others is it your inclination to be somewhat:');
GoToXY (1,8); Write (' (a) objective?');
GoToXY (1,10); Write (' (b) personal?');
end;

13 : begin
GoToXY (10,6); Write ('13. Are you more:');
GoToXY (1,8); Write (' (a) punctual?');
GoToXY (1,10); Write (' (b) leisurely?');
end;

14 : begin
GoToXY (10,6); Write ('14. Does it bother you more having things:');
GoToXY (1,8); Write (' (a) incomplete?');
GoToXY (1,10); Write (' (b) completed?');
end;

15 : begin
GoToXY (10,6); Write ('15. In your social groups, do you:');
GoToXY (1,8); Write (' (a) keep abreast of other''s happenings?');
GoToXY (1,10); Write (' (b) get behind in the news?');
end;

16 : begin
GoToXY (10,6); Write ('16. In doing ordinary things, are you more likely to:');
GoToXY (1,8); Write (' (a) do it the usual way?');
GoToXY (1,10); Write (' (b) do it your own way?');
end;

17 : begin
GoToXY (10,6); Write ('17. Writers should:');
GoToXY (1,8); Write (' (a) "say what they mean and mean what they say"?');
GoToXY (1,10); Write (' (b) express thing more by use of analogy?');
end;

18 : begin
GoToXY (10,6); Write ('18. Which appeals to you more:');
GoToXY (1,8); Write (' (a) consistency of thought?');
GoToXY (1,10); Write (' (b) harmonious human relationships?');
end;

19 : begin
GoToXY (10,6); Write ('19. Are you more comfortable in making:');
GoToXY (1,8); Write (' (a) logical judgments?');
GoToXY (1,10); Write (' (b) value judgments?');
end;

20 : begin
GoToXY (10,6); Write ('20. Do you want things:');
GoToXY (1,8); Write (' (a) settled and decided?');
GoToXY (1,10); Write (' (b) unsettled and undecided?');
end;

21 : begin
GoToXY (10,6); Write ('21. Would you say you are more:');
GoToXY (1,8); Write (' (a) serious and determined?');
GoToXY (1,10); Write (' (b) easy-going?');
end;

22 : begin
GoToXY (10,6); Write ('22. In phoning, do you:');
GoToXY (1,8); Write (' (a) rarely question that it will be all said?');
GoToXY (1,10); Write (' (b) rehearse what you will say?');
end;

23 : begin
GoToXY (10,6); Write ('23. Facts:');
GoToXY (1,8); Write (' (a) "speak for themselves"?');
GoToXY (1,10); Write (' (b) illustrate principles?');
end;

24 : begin
GoToXY (10,6); Write ('24. Are visionaries:');
GoToXY (1,8); Write (' (a) somewhat annoying?');
GoToXY (1,10); Write (' (b) rather fascinating?');
end;

25 : begin
GoToXY (10,6); Write ('25. Are you more often:');
GoToXY (1,8); Write (' (a) a cool-headed person?');
GoToXY (1,10); Write (' (b) a warm-hearted person?');
end;

26 : begin
GoToXY (10,6); Write ('26. Is it worse to be:');
GoToXY (1,8); Write (' (a) unjust?');
GoToXY (1,10); Write (' (b) merciless?');
end;

27 : begin
GoToXY (10,6); Write ('27. Should one usually let events occur:');
GoToXY (1,8); Write (' (a) by careful selection and choice?');
GoToXY (1,10); Write (' (b) randomly and by chance?');
end;

28 : begin
GoToXY (10,6); Write ('28. Do you feel better about:');
GoToXY (1,8); Write (' (a) having purchased?');
GoToXY (1,10); Write (' (b) having the option to buy?');
end;

29 : begin
GoToXY (10,6); Write ('29. In company, do you:');
GoToXY (1,8); Write (' (a) initiate conversation?');
GoToXY (1,10); Write (' (b) wait to be approached?');
end;

30 : begin
GoToXY (10,6); Write ('30. Common sense is:');
GoToXY (1,8); Write (' (a) rarely questionable?');
GoToXY (1,10); Write (' (b) frequently questionable?');
end;

31 : begin
GoToXY (10,6); Write ('31. Children often do not:');
GoToXY (1,8); Write (' (a) make themselves useful enough?');
GoToXY (1,10); Write (' (b) exercise their fantasy enough?');
end;

32 : begin
GoToXY (10,6); Write ('32. In making decisions, do you feel more comfortable with:');
GoToXY (1,8); Write (' (a) standards?');
GoToXY (1,10); Write (' (b) feelings?');
end;

33 : begin
GoToXY (10,6); Write ('33. Are you more:');
GoToXY (1,8); Write (' (a) firm than gentle?');
GoToXY (1,10); Write (' (b) gentle than firm?');
end;

34 : begin
GoToXY (10,6); Write ('34. Which is more admirable:');
GoToXY (1,8); Write (' (a) the ability to organize and be methodical?');
GoToXY (1,10); Write (' (b) the ability to adapt and make do?');
end;

35 : begin
GoToXY (10,6); Write ('35. Do you put more value on the:');
GoToXY (1,8); Write (' (a) definite?');
GoToXY (1,10); Write (' (b) open-ended?');
end;

36 : begin
GoToXY (10,6); Write ('36. Does new and non-routine interaction with others:');
GoToXY (1,8); Write (' (a) stimulate and energize you?');
GoToXY (1,10); Write (' (b) tax your reserves?');
end;

37 : begin
GoToXY (10,6); Write ('37. Are you more frequently:');
GoToXY (1,8); Write (' (a) a practical sort of person?');
GoToXY (1,10); Write (' (b) a fanciful sort of person?');
end;

38 : begin
GoToXY (10,6); Write ('38. Are you more likely to:');
GoToXY (1,8); Write (' (a) see how others are useful?');
GoToXY (1,10); Write (' (b) see how others see?');
end;

39 : begin
GoToXY (10,6); Write ('39. Which is more satisfying:');
GoToXY (1,8); Write (' (a) to discuss an issue thoroughly?');
GoToXY (1,10); Write (' (b) to arrive at an agreement on an issue?');
end;

40 : begin
GoToXY (10,6); Write ('40. Which rules you more:');
GoToXY (1,8); Write (' (a) your head?');
GoToXY (1,10); Write (' (b) your heart?');
end;

41 : begin
GoToXY (10,6); Write ('41. Are you more comfortable with work that is:');
GoToXY (1,8); Write (' (a) contracted?');
GoToXY (1,10); Write (' (b) done on a casual basis?');
end;


42 : begin
GoToXY (10,6); Write ('42. Do you tend to look for:');
GoToXY (1,8); Write (' (a) the orderly?');
GoToXY (1,10); Write (' (b) whatever turns up?');
end;

43 : begin
GoToXY (10,6); Write ('43. Do you prefer:');
GoToXY (1,8); Write (' (a) many friends with brief contact?');
GoToXY (1,10); Write (' (b) a few friends with more lengthy contact?');
end;

44 : begin
GoToXY (10,6); Write ('44. Do you go more by:');
GoToXY (1,8); Write (' (a) facts?');
GoToXY (1,10); Write (' (b) principles?');
end;

45 : begin
GoToXY (10,6); Write ('45. Are you more interested in:');
GoToXY (1,8); Write (' (a) production and distribution?');
GoToXY (1,10); Write (' (b) design and research?');
end;

46 : begin
GoToXY (10,6); Write ('46. Which is more of a compliment:');
GoToXY (1,8); Write (' (a) "There is a very logical person"?');
GoToXY (1,10); Write (' (b) "There is a very sentimental person"?');
end;

47 : begin
GoToXY (10,6); Write ('47. Do you value in yourself more that you are:');
GoToXY (1,8); Write (' (a) unwavering?');
GoToXY (1,10); Write (' (b) devoted?');
end;

48 : begin
GoToXY (10,6); Write ('48. Do you more often prefer the:');
GoToXY (1,8); Write (' (a) final and unalterable statement?');
GoToXY (1,10); Write (' (b) tentative and preliminary statement?');
end;

49 : begin
GoToXY (10,6); Write ('49. Are you more comfortable:');
GoToXY (1,8); Write (' (a) after a decision?');
GoToXY (1,10); Write (' (b) before a decision?');
end;

50 : begin
GoToXY (10,6); Write ('50. Do you:');
GoToXY (1,8); Write (' (a) speak easily and at length to strangers?');
GoToXY (1,10); Write (' (b) find little to say to strangers?');
end;

51 : begin
GoToXY (10,6); Write ('51. Are you more likely to trust your:');
GoToXY (1,8); Write (' (a) experience?');
GoToXY (1,10); Write (' (b) hunch?');
end;

52 : begin
GoToXY (10,6); Write ('52. Do you feel:');
GoToXY (1,8); Write (' (a) more practical than ingenious?');
GoToXY (1,10); Write (' (b) more ingenious than practical?');
end;

53 : begin
GoToXY (10,6); Write ('53. Which person is more to be complimented:');
GoToXY (1,8); Write (' (a) one of clear reason?');
GoToXY (1,10); Write (' (b) one of strong feeling?');
end;

54 : begin
GoToXY (10,6); Write ('54. Are you inclined more to be:');
GoToXY (1,8); Write (' (a) fair-minded?');
GoToXY (1,10); Write (' (b) sympathetic?');
end;

55 : begin
GoToXY (10,6); Write ('55. Is it preferable mostly to:');
GoToXY (1,8); Write (' (a) make sure things are arranged?');
GoToXY (1,10); Write (' (b) just let things happen?');
end;

56 : begin
GoToXY (10,6); Write ('56. In relationships, should most things be:');
GoToXY (1,8); Write (' (a) renegotiable?');
GoToXY (1,10); Write (' (b) random and circumstantial?');
end;

57 : begin
GoToXY (10,6); Write ('57. When the phone rings, do you:');
GoToXY (1,8); Write (' (a) hasten to get to it first?');
GoToXY (1,10); Write (' (b) hope someone else will answer?');
end;

58 : begin
GoToXY (10,6); Write ('58. Do you prize more in yourself:');
GoToXY (1,8); Write (' (a) a strong sense of reality?');
GoToXY (1,10); Write (' (b) a vivid imagination?');
end;

59 : begin
GoToXY (10,6); Write ('59. Are you drawn more to:');
GoToXY (1,8); Write (' (a) fundamentals?');
GoToXY (1,10); Write (' (b) overtones?');
end;

60 : begin
GoToXY (10,6); Write ('60. Which seems more the greater error:');
GoToXY (1,8); Write (' (a) to be too passionate?');
GoToXY (1,10); Write (' (b) to be too objective?');
end;

61 : begin
GoToXY (10,6); Write ('61. Do you see yourself as basically:');
GoToXY (1,8); Write (' (a) hard-headed?');
GoToXY (1,10); Write (' (b) soft-hearted?');
end;

62 : begin
GoToXY (10,6); Write ('62. Which situation appeals to you more:');
GoToXY (1,8); Write (' (a) the structured and scheduled?');
GoToXY (1,10); Write (' (b) the unstructured and unscheduled?');
end;

63 : begin
GoToXY (10,6); Write ('63. Are you a person that is more:');
GoToXY (1,8); Write (' (a) routinized than whimsical?');
GoToXY (1,10); Write (' (b) whimsical than routinized?');
end;

64 : begin
GoToXY (10,6); Write ('64. Are you more inclined to be:');
GoToXY (1,8); Write (' (a) easy to approach?');
GoToXY (1,10); Write (' (b) somewhat reserved?');
end;

65 : begin
GoToXY (10,6); Write ('65. In writings, do you prefer:');
GoToXY (1,8); Write (' (a) the more literal?');
GoToXY (1,10); Write (' (b) the more figurative?');
end;

66 : begin
GoToXY (10,6); Write ('66. Is it harder for you to:');
GoToXY (1,8); Write (' (a) identify with others?');
GoToXY (1,10); Write (' (b) utilize others?');
end;

67 : begin
GoToXY (10,6); Write ('67. Which do you wish more for yourself:');
GoToXY (1,8); Write (' (a) clarity of reason?');
GoToXY (1,10); Write (' (b) strength of compassion?');
end;

68 : begin
GoToXY (10,6); Write ('68. Which is the greater fault:');
GoToXY (1,8); Write (' (a) being indiscriminate?');
GoToXY (1,10); Write (' (b) being critical?');
end;

69 : begin
GoToXY (10,6); Write ('69. Do you prefer the:');
GoToXY (1,8); Write (' (a) planned event?');
GoToXY (1,10); Write (' (b) unplanned event?');
end;

70 : begin
GoToXY (10,6); Write ('70. Do you tend to be more:');
GoToXY (1,8); Write (' (a) deliberate than spontaneous?');
GoToXY (1,10); Write (' (b) spontaneous than deliberate?');
end;

end;

GoToXY (1,13); Write ('====> ');

end;

(***********************************************************)


 December 21, 2017  Add comments

Leave a Reply