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;

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