'Your Values Profile 'By, Richard Copeland 1993 'Subs (4) total DECLARE SUB Interpretation () DECLARE SUB profile () DECLARE SUB Scoring () DECLARE SUB Instructions () Instructions 'Questions PRINT " DT MT U MF DF" PRINT PRINT " 1. I have a checkup by my doctor every year. 10 7 5 3 0" INPUT " ", a$ IF a$ = "0" THEN a$ = "00" IF a$ = "3" THEN a$ = "03" IF a$ = "5" THEN a$ = "05" IF a$ = "7" THEN a$ = "07" PRINT " 2. I will take my children to religious services often. " INPUT " ", aa$ IF aa$ = "0" THEN aa$ = "00" IF aa$ = "3" THEN aa$ = "03" IF aa$ = "5" THEN aa$ = "05" IF aa$ = "7" THEN aa$ = "07" PRINT " 3. I like to go to concerts. " INPUT " ", b$ IF b$ = "0" THEN b$ = "00" IF b$ = "3" THEN b$ = "03" IF b$ = "5" THEN b$ = "05" IF b$ = "7" THEN b$ = "07" PRINT " 4. I give to charities." INPUT " ", bb$ IF bb$ = "0" THEN bb$ = "00" IF bb$ = "3" THEN bb$ = "03" IF bb$ = "5" THEN bb$ = "05" IF bb$ = "7" THEN bb$ = "07" PRINT " 5. I envy the way movie stars are recongnized wherever" PRINT " they go." INPUT " ", c$ IF c$ = "0" THEN c$ = "00" IF c$ = "3" THEN c$ = "03" IF c$ = "5" THEN c$ = "05" IF c$ = "7" THEN c$ = "07" PRINT " 6. I like to have a lot of friends." INPUT " ", cc$ IF cc$ = "0" THEN cc$ = "00" IF cc$ = "3" THEN cc$ = "03" IF cc$ = "5" THEN cc$ = "05" IF cc$ = "7" THEN cc$ = "07" PRINT " 7. I would like to have enough money to retire by the" PRINT " time I am 50 years old." INPUT " ", d$ IF d$ = "0" THEN d$ = "00" IF d$ = "3" THEN d$ = "03" IF d$ = "5" THEN d$ = "05" IF d$ = "7" THEN d$ = "07" PRINT " 8. I would rather spend time at home with my family" PRINT " than go out with friends." INPUT " ", dd$ IF dd$ = "0" THEN dd$ = "00" IF dd$ = "3" THEN dd$ = "03" IF dd$ = "5" THEN dd$ = "05" IF dd$ = "7" THEN dd$ = "07" PRINT " 9. I like deciding things for people" INPUT " ", e$ IF e$ = "0" THEN e$ = "00" IF e$ = "3" THEN e$ = "03" IF e$ = "5" THEN e$ = "05" IF e$ = "7" THEN e$ = "07" PRINT " 10. If I had the talent, I would like to write songs." INPUT " ", ee$ IF ee$ = "0" THEN ee$ = "00" IF ee$ = "3" THEN ee$ = "03" IF ee$ = "5" THEN ee$ = "05" IF ee$ = "7" THEN ee$ = "07" CLS PRINT " DT MT U MF DF" PRINT " 11. I have a close relationship with my mother or father 10 7 5 3 0" INPUT " ", f$ IF f$ = "0" THEN f$ = "00" IF f$ = "3" THEN f$ = "03" IF f$ = "5" THEN f$ = "05" IF f$ = "7" THEN f$ = "07" PRINT " 12. I have taught a religious class or been active in my" PRINT " religion." INPUT " ", ff$ IF ff$ = "0" THEN ff$ = "00" IF ff$ = "3" THEN ff$ = "03" IF ff$ = "5" THEN ff$ = "05" IF ff$ = "7" THEN ff$ = "07" PRINT " 13. I like to help students who need help with their" PRINT " studies." INPUT " ", g$ IF g$ = "0" THEN g$ = "00" IF g$ = "3" THEN g$ = "03" IF g$ = "5" THEN g$ = "05" IF g$ = "7" THEN g$ = "07" PRINT " 14. For the same pay, I would rather be boss than just" PRINT " another worker." INPUT " ", gg$ IF gg$ = "0" THEN gg$ = "00" IF gg$ = "3" THEN gg$ = "03" IF gg$ = "5" THEN gg$ = "05" IF gg$ = "7" THEN gg$ = "07" PRINT " 15. I love beautiful things." INPUT " ", h$ IF h$ = "0" THEN h$ = "00" IF h$ = "3" THEN h$ = "03" IF h$ = "5" THEN h$ = "05" IF h$ = "7" THEN h$ = "07" PRINT " 16. If I had the talent, I would like to appear regularly" PRINT " on TV." INPUT " ", hh$ IF hh$ = "0" THEN hh$ = "00" IF hh$ = "3" THEN hh$ = "03" IF hh$ = "5" THEN hh$ = "05" IF hh$ = "7" THEN hh$ = "07" PRINT " 17. I would like to have friends who are movie stars or" PRINT " other famous people." INPUT " ", i$ IF i$ = "0" THEN i$ = "00" IF i$ = "3" THEN i$ = "03" IF i$ = "5" THEN i$ = "05" IF i$ = "7" THEN i$ = "07" PRINT " 18. I have a dental checkup at least once a year." INPUT " ", ii$ IF ii$ = "0" THEN ii$ = "00" IF ii$ = "3" THEN ii$ = "03" IF ii$ = "5" THEN ii$ = "05" IF ii$ = "7" THEN ii$ = "07" PRINT " 19. I like to write short stories." INPUT " ", j$ IF j$ = "0" THEN j$ = "00" IF j$ = "3" THEN j$ = "03" IF j$ = "5" THEN j$ = "05" IF j$ = "7" THEN j$ = "07" PRINT " 20. I would rather work to earn money than go on a" PRINT " vacation." INPUT " ", jj$ IF jj$ = "0" THEN jj$ = "00" IF jj$ = "3" THEN jj$ = "03" IF jj$ = "5" THEN jj$ = "05" IF jj$ = "7" THEN jj$ = "07" CLS PRINT " DT MT U MF DF" PRINT " 21. I like to go to parties. 10 7 5 3 0" INPUT " ", k$ IF k$ = "0" THEN k$ = "00" IF k$ = "3" THEN k$ = "03" IF k$ = "5" THEN k$ = "05" IF k$ = "7" THEN k$ = "07" PRINT " 22. It would be fun to write a play for TV." INPUT " ", kk$ IF kk$ = "0" THEN kk$ = "00" IF kk$ = "3" THEN kk$ = "03" IF kk$ = "5" THEN kk$ = "05" IF kk$ = "7" THEN kk$ = "07" PRINT " 23. I believe in a god who answers prayers." INPUT " ", l$ IF l$ = "0" THEN l$ = "00" IF l$ = "3" THEN l$ = "03" IF l$ = "5" THEN l$ = "05" IF l$ = "7" THEN l$ = "07" PRINT " 24. I would rather be an officer than just a club member" INPUT " ", ll$ IF ll$ = "0" THEN ll$ = "00" IF ll$ = "3" THEN ll$ = "03" IF ll$ = "5" THEN ll$ = "05" IF ll$ = "7" THEN ll$ = "07" PRINT " 25. I would spend my last $100 for needed dental work" PRINT " rather than for a vacation." INPUT " ", m$ IF m$ = "0" THEN m$ = "00" IF m$ = "3" THEN m$ = "03" IF m$ = "5" THEN m$ = "05" IF m$ = "7" THEN m$ = "07" PRINT " 26. I like to give presents to my family." INPUT " ", mm$ IF mm$ = "0" THEN mm$ = "00" IF mm$ = "3" THEN mm$ = "03" IF mm$ = "5" THEN mm$ = "05" IF mm$ = "7" THEN mm$ = "07" PRINT " 27. I would rather teach poetry than math." INPUT " ", n$ IF n$ = "0" THEN n$ = "00" IF n$ = "3" THEN n$ = "03" IF n$ = "5" THEN n$ = "05" IF n$ = "7" THEN n$ = "07" PRINT " 28. I would like to counsel people and help then with" PRINT " their problems." INPUT " ", nn$ IF nn$ = "0" THEN nn$ = "00" IF nn$ = "3" THEN nn$ = "03" IF nn$ = "5" THEN nn$ = "05" IF nn$ = "7" THEN nn$ = "07" PRINT " 29. I often daydream about things I would like to have if" PRINT " I had the money." INPUT " ", o$ IF o$ = "0" THEN o$ = "00" IF o$ = "3" THEN o$ = "03" IF o$ = "5" THEN o$ = "05" IF o$ = "7" THEN o$ = "07" PRINT " 30. I like to give parties." INPUT " ", oo$ IF oo$ = "0" THEN oo$ = "00" IF oo$ = "3" THEN oo$ = "03" IF oo$ = "5" THEN oo$ = "05" IF oo$ = "7" THEN oo$ = "07" CLS PRINT " DT MT U MF DF" PRINT " 31. I am willing to write letters for old sick people 10 7 5 3 0" INPUT " ", p$ IF p$ = "0" THEN p$ = "00" IF p$ = "3" THEN p$ = "03" IF p$ = "5" THEN p$ = "05" IF p$ = "7" THEN p$ = "07" PRINT " 32. It would be fun to act in movies or TV." INPUT " ", pp$ IF pp$ = "0" THEN pp$ = "00" IF pp$ = "3" THEN pp$ = "03" IF pp$ = "5" THEN pp$ = "05" IF pp$ = "7" THEN pp$ = "07" PRINT " 33. When I am ill, I see or call a doctor." INPUT " ", q$ IF q$ = "0" THEN q$ = "00" IF q$ = "3" THEN q$ = "03" IF q$ = "5" THEN q$ = "05" IF q$ = "7" THEN q$ = "07" PRINT " 34. I give time or money to my religion." INPUT " ", qq$ IF qq$ = "0" THEN qq$ = "00" IF qq$ = "3" THEN qq$ = "03" IF qq$ = "5" THEN qq$ = "05" IF qq$ = "7" THEN qq$ = "07" PRINT " 35. I like to discuss things at the family dinner table." INPUT " ", r$ IF r$ = "0" THEN r$ = "00" IF r$ = "3" THEN r$ = "03" IF r$ = "5" THEN r$ = "05" IF r$ = "7" THEN r$ = "07" PRINT " 36. I like to go to art museums." INPUT " ", rr$ IF rr$ = "0" THEN rr$ = "00" IF rr$ = "3" THEN rr$ = "03" IF rr$ = "5" THEN rr$ = "05" IF rr$ = "7" THEN rr$ = "07" PRINT " 37. I like to write poems." INPUT " ", s$ IF s$ = "0" THEN s$ = "00" IF s$ = "3" THEN s$ = "03" IF s$ = "5" THEN s$ = "05" IF s$ = "7" THEN s$ = "07" PRINT " 38. I like to be with other people most of the time." INPUT " ", ss$ IF ss$ = "0" THEN ss$ = "00" IF ss$ = "3" THEN ss$ = "03" IF ss$ = "5" THEN ss$ = "05" IF ss$ = "7" THEN ss$ = "07" PRINT " 39. When with a friend, I like to decide what we will do." INPUT " ", t$ IF t$ = "0" THEN t$ = "00" IF t$ = "3" THEN t$ = "03" IF t$ = "5" THEN t$ = "05" IF t$ = "7" THEN t$ = "07" PRINT " 40. Someday I would like to live in a big, expensive" PRINT " house" INPUT " ", tt$ IF tt$ = "0" THEN tt$ = "00" IF tt$ = "3" THEN tt$ = "03" IF tt$ = "5" THEN tt$ = "05" IF tt$ = "7" THEN tt$ = "07" CLS PRINT " DT MT U MF DF" PRINT " 41. I pray about my problems. 10 7 5 3 0" INPUT " ", u$ IF u$ = "0" THEN u$ = "00" IF u$ = "3" THEN u$ = "03" IF u$ = "5" THEN u$ = "05" IF u$ = "7" THEN u$ = "07" PRINT " 42. If I knew a family that had no food for dinner, I would" PRINT " help them get it." INPUT " ", uu$ IF uu$ = "0" THEN uu$ = "00" IF uu$ = "3" THEN uu$ = "03" IF uu$ = "5" THEN uu$ = "05" IF uu$ = "7" THEN uu$ = "07" PRINT " 43. I like to spend holidays with my family." INPUT " ", v$ IF v$ = "0" THEN v$ = "00" IF v$ = "3" THEN v$ = "03" IF v$ = "5" THEN v$ = "05" IF v$ = "7" THEN v$ = "07" PRINT " 44. I like to see my name in print (newspapers)." INPUT " ", vv$ IF vv$ = "0" THEN vv$ = "00" IF vv$ = "3" THEN vv$ = "03" IF vv$ = "5" THEN vv$ = "05" IF vv$ = "7" THEN vv$ = "07" PRINT " 45. I would rather take a class in art than a class in" PRINT " math." INPUT " ", w$ IF w$ = "0" THEN w$ = "00" IF w$ = "3" THEN w$ = "03" IF w$ = "5" THEN w$ = "05" IF w$ = "7" THEN w$ = "07" PRINT " 46. I do not like to spend evenings alone." INPUT " ", ww$ IF ww$ = "0" THEN ww$ = "00" IF ww$ = "3" THEN ww$ = "03" IF ww$ = "5" THEN ww$ = "05" IF ww$ = "7" THEN ww$ = "07" PRINT " 47. For the same pay, I would rather be a school principal" PRINT " than a teacher." INPUT " ", x$ IF x$ = "0" THEN x$ = "00" IF x$ = "3" THEN x$ = "03" IF x$ = "5" THEN x$ = "05" IF x$ = "7" THEN x$ = "07" PRINT " 48. I like expensive things." INPUT " ", xx$ IF xx$ = "0" THEN xx$ = "00" IF xx$ = "3" THEN xx$ = "03" IF xx$ = "5" THEN xx$ = "05" IF xx$ = "7" THEN xx$ = "07" PRINT " 49. I can tell the difference between a good painting and" PRINT " a bad one." INPUT " ", y$ IF y$ = "0" THEN y$ = "00" IF y$ = "3" THEN y$ = "03" IF y$ = "5" THEN y$ = "05" IF y$ = "7" THEN y$ = "07" PRINT " 50. If I often had bad headaches, I would see a doctor" PRINT " even if aspirin seemed to help." INPUT " ", yy$ IF yy$ = "0" THEN yy$ = "00" IF yy$ = "3" THEN yy$ = "03" IF yy$ = "5" THEN yy$ = "05" IF yy$ = "7" THEN yy$ = "07" CLS PRINT " DT MT U MF DF" PRINT " 51. I have some very close friends. 10 7 5 3 0" INPUT " ", z$ IF z$ = "0" THEN z$ = "00" IF z$ = "3" THEN z$ = "03" IF z$ = "5" THEN z$ = "05" IF z$ = "7" THEN z$ = "07" PRINT " 52. I will have my children take music lessons." INPUT " ", zz$ IF zz$ = "0" THEN zz$ = "00" IF zz$ = "3" THEN zz$ = "03" IF zz$ = "5" THEN zz$ = "05" IF zz$ = "7" THEN zz$ = "07" PRINT " 53. I believe that grace should be said before meals." INPUT " ", ab$ IF ab$ = "0" THEN ab$ = "00" IF ab$ = "3" THEN ab$ = "03" IF ab$ = "5" THEN ab$ = "05" IF ab$ = "7" THEN ab$ = "07" PRINT " 54. I sometimes miss sleep to visit late with company." INPUT " ", ac$ IF ac$ = "0" THEN ac$ = "00" IF ac$ = "3" THEN ac$ = "03" IF ac$ = "5" THEN ac$ = "05" IF ac$ = "7" THEN ac$ = "07" PRINT " 55. I usually sleep at least eight hours each night." INPUT " ", ad$ IF ad$ = "0" THEN ad$ = "00" IF ad$ = "3" THEN ad$ = "03" IF ad$ = "5" THEN ad$ = "05" IF ad$ = "7" THEN ad$ = "07" PRINT " 56. I like to make things" INPUT " ", ae$ IF ae$ = "0" THEN ae$ = "00" IF ae$ = "3" THEN ae$ = "03" IF ae$ = "5" THEN ae$ = "05" IF ae$ = "7" THEN ae$ = "07" PRINT " 57. I would like to be looked up to for my achievements." INPUT " ", af$ IF af$ = "0" THEN af$ = "00" IF af$ = "3" THEN af$ = "03" IF af$ = "5" THEN af$ = "05" IF af$ = "7" THEN af$ = "07" PRINT " 58. I would feel satisfaction from nursing a sick person" PRINT " back to health." INPUT " ", ag$ IF ag$ = "0" THEN ag$ = "00" IF ag$ = "3" THEN ag$ = "03" IF ag$ = "5" THEN ag$ = "05" IF ag$ = "7" THEN ag$ = "07" PRINT " 59. I care what my family thinks of the things I do." INPUT " ", ah$ IF ah$ = "0" THEN ah$ = "00" IF ah$ = "3" THEN ah$ = "03" IF ah$ = "5" THEN ah$ = "05" IF ah$ = "7" THEN ah$ = "07" PRINT " 60. I daydream about making a lot of money." INPUT " ", ai$ IF ai$ = "0" THEN ai$ = "00" IF ai$ = "3" THEN ai$ = "03" IF ai$ = "5" THEN ai$ = "05" IF ai$ = "7" THEN ai$ = "07" CLS PRINT " DT MT U MF DF" PRINT " 61. I like to be in charge at meetings. 10 7 5 3 0" INPUT " ", aj$ IF aj$ = "0" THEN aj$ = "00" IF aj$ = "3" THEN aj$ = "03" IF aj$ = "5" THEN aj$ = "05" IF aj$ = "7" THEN aj$ = "07" PRINT " 62. I like to come up with new ideas." INPUT " ", ak$ IF ak$ = "0" THEN ak$ = "00" IF ak$ = "3" THEN ak$ = "03" IF ak$ = "5" THEN ak$ = "05" IF ak$ = "7" THEN ak$ = "07" PRINT " 63. I believe there is life after death." INPUT " ", al$ IF al$ = "0" THEN al$ = "00" IF al$ = "3" THEN al$ = "03" IF al$ = "5" THEN al$ = "05" IF al$ = "7" THEN al$ = "07" PRINT " 64. I would accept a person of another race as a" PRINT " neighbor." INPUT " ", am$ IF am$ = "0" THEN am$ = "00" IF am$ = "3" THEN am$ = "03" IF am$ = "5" THEN am$ = "05" IF am$ = "7" THEN am$ = "07" PRINT " 65. If I worked in TV, I would rather act than write the" PRINT " lines." INPUT " ", an$ IF an$ = "0" THEN an$ = "00" IF an$ = "3" THEN an$ = "03" IF an$ = "5" THEN an$ = "05" IF an$ = "7" THEN an$ = "07" PRINT " 66. I like decorating my room at home." INPUT " ", ao$ IF ao$ = "0" THEN ao$ = "00" IF ao$ = "3" THEN ao$ = "03" IF ao$ = "5" THEN ao$ = "05" IF ao$ = "7" THEN ao$ = "07" PRINT " 67. I like a picnic with my family." INPUT " ", ap$ IF ap$ = "0" THEN ap$ = "00" IF ap$ = "3" THEN ap$ = "03" IF ap$ = "5" THEN ap$ = "05" IF ap$ = "7" THEN ap$ = "07" PRINT " 68. As an adult, I want to earn more money than the" PRINT " average worker." INPUT " ", aq$ IF aq$ = "0" THEN aq$ = "00" IF aq$ = "3" THEN aq$ = "03" IF aq$ = "5" THEN aq$ = "05" IF aq$ = "7" THEN aq$ = "07" PRINT " 69. I eat a balanced diet each day." INPUT " ", ar$ IF ar$ = "0" THEN ar$ = "00" IF ar$ = "3" THEN ar$ = "03" IF ar$ = "5" THEN ar$ = "05" IF ar$ = "7" THEN ar$ = "07" PRINT " 70. I help other students decide which classes to take." INPUT " ", as$ IF as$ = "0" THEN as$ = "00" IF as$ = "3" THEN as$ = "03" IF as$ = "5" THEN as$ = "05" IF as$ = "7" THEN as$ = "07" CLS PRINT " DT MT U MF DF" PRINT " 71. I would like to be famous. 10 7 5 3 0" INPUT " ", at$ IF at$ = "0" THEN at$ = "00" IF at$ = "3" THEN at$ = "03" IF at$ = "5" THEN at$ = "05" IF at$ = "7" THEN at$ = "07" PRINT " 72. I read religous writings often." INPUT " ", au$ IF au$ = "0" THEN au$ = "00" IF au$ = "3" THEN au$ = "03" IF au$ = "5" THEN au$ = "05" IF au$ = "7" THEN au$ = "07" PRINT " 73. If I were in the clothing business, I would like to" PRINT " design new styles." INPUT " ", av$ IF av$ = "0" THEN av$ = "00" IF av$ = "3" THEN av$ = "03" IF av$ = "5" THEN av$ = "05" IF av$ = "7" THEN av$ = "07" PRINT " 74. I like to go out in the evening with a group of" PRINT " friends." INPUT " ", aw$ IF aw$ = "0" THEN aw$ = "00" IF aw$ = "3" THEN aw$ = "03" IF aw$ = "5" THEN aw$ = "05" IF aw$ = "7" THEN aw$ = "07" PRINT " 75. When I am with a group of people, I like to be the" PRINT " one in charge." INPUT " ", ax$ IF ax$ = "0" THEN ax$ = "00" IF ax$ = "3" THEN ax$ = "03" IF ax$ = "5" THEN ax$ = "05" IF ax$ = "7" THEN ax$ = "07" PRINT " 76. I do not like to depend on others for food, clothes," PRINT " and money." INPUT " ", ay$ IF ay$ = "0" THEN ay$ = "00" IF ay$ = "3" THEN ay$ = "03" IF ay$ = "5" THEN ay$ = "05" IF ay$ = "7" THEN ay$ = "07" PRINT " 77. When a friend is in trouble, I feel I must help." INPUT " ", az$ IF az$ = "0" THEN az$ = "00" IF az$ = "3" THEN az$ = "03" IF az$ = "5" THEN az$ = "05" IF az$ = "7" THEN az$ = "07" PRINT " 78. I love my family." INPUT " ", aab$ IF aab$ = "0" THEN aab$ = "00" IF aab$ = "3" THEN aab$ = "03" IF aab$ = "5" THEN aab$ = "05" IF aab$ = "7" THEN aab$ = "07" PRINT " 79. I eat three melas a day." INPUT " ", aac$ IF aac$ = "0" THEN aac$ = "00" IF aac$ = "3" THEN aac$ = "03" IF aac$ = "5" THEN aac$ = "05" IF aac$ = "7" THEN aac$ = "07" PRINT " 80. I have some good records." INPUT " ", aad$ IF aad$ = "0" THEN aad$ = "00" IF aad$ = "3" THEN aad$ = "03" IF aad$ = "5" THEN aad$ = "05" IF aad$ = "7" THEN aad$ = "07" CLS PRINT " DT MT U MF DF" PRINT " 81. I have a friend I talk with about personal things. 10 7 5 3 0" INPUT " ", aae$ IF aae$ = "0" THEN aae$ = "00" IF aae$ = "3" THEN aae$ = "03" IF aae$ = "5" THEN aae$ = "05" IF aae$ = "7" THEN aae$ = "07" PRINT " 82. I believe that people were created to look like the" PRINT " creator." INPUT " ", aaf$ IF aaf$ = "0" THEN aaf$ = "00" IF aaf$ = "3" THEN aaf$ = "03" IF aaf$ = "5" THEN aaf$ = "05" IF aaf$ = "7" THEN aaf$ = "07" PRINT " 83. I like to buy clothes for my family." INPUT " ", aag$ IF aag$ = "0" THEN aag$ = "00" IF aag$ = "3" THEN aag$ = "03" IF aag$ = "5" THEN aag$ = "05" IF aag$ = "7" THEN aag$ = "07" PRINT " 84. I like to have people recongnize me wherever I go." INPUT " ", aah$ IF aah$ = "0" THEN aah$ = "00" IF aah$ = "3" THEN aah$ = "03" IF aah$ = "5" THEN aah$ = "05" IF aah$ = "7" THEN aah$ = "07" PRINT " 85. I like to plan things for others." INPUT " ", aai$ IF aai$ = "0" THEN aai$ = "00" IF aai$ = "3" THEN aai$ = "03" IF aai$ = "5" THEN aai$ = "05" IF aai$ = "7" THEN aai$ = "07" PRINT " 86. I do not smoke." INPUT " ", aaj$ IF aaj$ = "0" THEN aaj$ = "00" IF aaj$ = "3" THEN aaj$ = "03" IF aaj$ = "5" THEN aaj$ = "05" IF aaj$ = "7" THEN aaj$ = "07" PRINT " 87. I feel good when I do things that help others." INPUT " ", aak$ IF aak$ = "0" THEN aak$ = "00" IF aak$ = "3" THEN aak$ = "03" IF aak$ = "5" THEN aak$ = "05" IF aak$ = "7" THEN aak$ = "07" PRINT " 88. Someday I would like to write a book." INPUT " ", aal$ IF aal$ = "0" THEN aal$ = "00" IF aal$ = "3" THEN aal$ = "03" IF aal$ = "5" THEN aal$ = "05" IF aal$ = "7" THEN aal$ = "07" PRINT " 89. To work at a job with high pay, I would put up with" PRINT " bad living conditions." INPUT " ", aam$ IF aam$ = "0" THEN aam$ = "00" IF aam$ = "3" THEN aam$ = "03" IF aam$ = "5" THEN aam$ = "05" IF aam$ = "7" THEN aam$ = "07" PRINT " 90. I belong to a club or social group." INPUT " ", aan$ IF aan$ = "0" THEN aan$ = "00" IF aan$ = "3" THEN aan$ = "03" IF aan$ = "5" THEN aan$ = "05" IF aan$ = "7" THEN aan$ = "07" CLS PRINT " DT MT U MF DF" PRINT " 91. If I ask, my sins will be forigven. 10 7 5 3 0" INPUT " ", aao$ IF aao$ = "0" THEN aao$ = "00" IF aao$ = "3" THEN aao$ = "03" IF aao$ = "5" THEN aao$ = "05" IF aao$ = "7" THEN aao$ = "07" PRINT " 92. I would like to have my picture in the school" PRINT " yearbook in more than one place." INPUT " ", aap$ IF aap$ = "0" THEN aap$ = "00" IF aap$ = "3" THEN aap$ = "03" IF aap$ = "5" THEN aap$ = "05" IF aap$ = "7" THEN aap$ = "07" PRINT " 93. I often plan group activities." INPUT " ", aaq$ IF aaq$ = "0" THEN aaq$ = "00" IF aaq$ = "3" THEN aaq$ = "03" IF aaq$ = "5" THEN aaq$ = "05" IF aaq$ = "7" THEN aaq$ = "07" PRINT " 94. When I see a new building, I think about its beauty as" PRINT " much as its use." INPUT " ", aar$ IF aar$ = "0" THEN aar$ = "00" IF aar$ = "3" THEN aar$ = "03" IF aar$ = "5" THEN aar$ = "05" IF aar$ = "7" THEN aar$ = "07" PRINT " 95. I respect my family." INPUT " ", aas$ IF aas$ = "0" THEN aas$ = "00" IF aas$ = "3" THEN aas$ = "03" IF aas$ = "5" THEN aas$ = "05" IF aas$ = "7" THEN aas$ = "07" PRINT " 96. I like to design or make things that have not been" PRINT " made before." INPUT " ", aat$ IF aat$ = "0" THEN aat$ = "00" IF aat$ = "3" THEN aat$ = "03" IF aat$ = "5" THEN aat$ = "05" IF aat$ = "7" THEN aat$ = "07" PRINT " 97. Some of the hobbies I would like are quite expensive." INPUT " ", aau$ IF aau$ = "0" THEN aau$ = "00" IF aau$ = "3" THEN aau$ = "03" IF aau$ = "5" THEN aau$ = "05" IF aau$ = "7" THEN aau$ = "07" PRINT " 98. I like classical music." INPUT " ", aav$ IF aav$ = "0" THEN aav$ = "00" IF aav$ = "3" THEN aav$ = "03" IF aav$ = "5" THEN aav$ = "05" IF aav$ = "7" THEN aav$ = "07" PRINT " 99. I do not use harmful drugs because of what they" PRINT " might do to my body." INPUT " ", aaw$ IF aaw$ = "0" THEN aaw$ = "00" IF aaw$ = "3" THEN aaw$ = "03" IF aaw$ = "5" THEN aaw$ = "05" IF aaw$ = "7" THEN aaw$ = "07" PRINT " 100. I am kind to animals." INPUT " ", aax$ IF aax$ = "0" THEN aax$ = "00" IF aax$ = "3" THEN aax$ = "03" IF aax$ = "5" THEN aax$ = "05" IF aax$ = "7" THEN aax$ = "07" CLS 'Scoring Your Values Profile 'Will Print Scoring Sheet ON ERROR GOTO 1000 Begin: LPRINT LPRINT " SCORING YOUR VALUES PROFILE" LPRINT " Ten values are shown. Write the number (no.) you circled" LPRINT " next to the number (no.) of the statement. Total the numbers in" LPRINT " each column." LPRINT LPRINT " Fame Money Power Religion Humanism" LPRINT "Statement No. Statement No. Statement No. Statement No. Statement No." LPRINT " No. No. No. No. No." LPRINT "--------- --- --------- --- --------- --- --------- --- --------- ---" LPRINT " 6 "; cc$; " 7 "; d$; " 9 "; e$; " 2 "; aa$; " 5 "; c$ LPRINT " 16 "; hh$; " 21 "; k$; " 14 "; gg$; " 12 "; ff$; " 13 "; g$ LPRINT " 18 "; ii$; " 29 "; o$; " 25 "; m$; " 24 "; ll$; " 17 "; i$ LPRINT " 32 "; pp$; " 40 "; tt$; " 39 "; t$; " 34 "; qq$; " 31 "; p$ LPRINT " 44 "; vv$; " 48 "; xx$; " 47 "; x$; " 41 "; u$; " 42 "; uu$ LPRINT " 57 "; af$; " 60 "; ai$; " 61 "; aj$; " 53 "; ab$; " 58 "; ag$ LPRINT " 65 "; an$; " 68 "; aq$; " 70 "; as$; " 63 "; al$; " 64 "; am$ LPRINT " 71 "; at$; " 76 "; ay$; " 75 "; ax$; " 72 "; au$; " 77 "; az$ LPRINT " 84 "; aah$; " 89 "; aam$; " 85 "; aai$; " 82 "; aaf$; " 87 "; aak$ LPRINT " 92 "; aap$; " 97 "; aau$; " 93 "; aaq$; " 91 "; aao$; " 100 "; aax$ LPRINT "Total____"; " Total____"; " Total____"; " Total____"; " Total____" LPRINT LPRINT LPRINT LPRINT " Family Health Aesthetic Creative Social" LPRINT "Statement No. Statement No. Statement No. Statement No. Statement No." LPRINT " No. No. No. No. No." LPRINT "--------- --- --------- --- --------- --- --------- --- --------- ---" LPRINT " 8 "; dd$; " 1 "; a$; " 3 "; b$; " 10 "; ee$; " 4 "; bb$ LPRINT " 11 "; f$; " 19 "; j$; " 15 "; h$; " 20 "; jj$; " 22 "; kk$ LPRINT " 27 "; n$; " 26 "; mm$; " 28 "; nn$; " 23 "; l$; " 30 "; oo$ LPRINT " 35 "; r$; " 33 "; g$; " 36 "; rr$; " 37 "; s$; " 38 "; ss$ LPRINT " 43 "; v$; " 50 "; yya$; " 49 "; y$; " 45 "; w$; " 46 "; ww$ LPRINT " 59 "; ah$; " 55 "; ad$; " 52 "; zz$; " 56 "; ae$; " 51 "; z$ LPRINT " 67 "; ap$; " 69 "; ar$; " 66 "; ao$; " 62 "; ak$; " 54 "; ac$ LPRINT " 78 "; aab$; " 79 "; aac$; " 80 "; aad$; " 73 "; av$; " 74 "; aw$ LPRINT " 83 "; aag$; " 86 "; aaj$; " 94 "; aar$; " 88 "; aal$; " 81 "; aae$ LPRINT " 95 "; aas$; " 99 "; aaw$; " 98 "; aav$; " 96 "; aat$; " 90 "; aan$ LPRINT "Total____"; " Total____"; " Total____"; " Total____"; " Total____" profile 1000 CLS : PRINT "Your Printer is not ready Continue... (Y/N)" INPUT a$ IF a$ = "y" OR a$ = "Y" THEN GOTO Begin IF a$ = "n" OR a$ = "n" THEN profile SUB Instructions CLS Instructions: PRINT " YOUR VALUES PROFILE" PRINT " This profile is a simple way to see and understand" PRINT " your values. You will read 100 statements about" PRINT " things that may be important to you." PRINT PRINT PRINT " If a statment is definltely true, type 10 " PRINT PRINT " If a statment is mostly true, type 7 " PRINT PRINT " If you are undecided whether a statement is" PRINT " true or false, type 5 " PRINT PRINT " If a statement is mostly false, type 3 " PRINT PRINT " If a statement is definltely false, type 0 " PRINT INPUT "Make Sure Your Printer is Ready.", b$ END SUB SUB Interpretation 'Your Values Profile Interpretation 'Instructions ON ERROR GOTO 1000 LPRINT "----------------------------------------------------------------------" LPRINT LPRINT " YOUR VALUES PROFILE INTERPRETATION" LPRINT LPRINT " High and Low Scores. A score may be high or low if it falls" LPRINT "above or below these ranges. (Fifty percent or half of all scores" LPRINT "fall within these ranges.)" LPRINT LPRINT " Fame 52-76 Family 66-84" LPRINT " Money 61-79 Health 57-78" LPRINT " Power 39-57 Aesthetics 52-72" LPRINT " Religion 49-80 Creative 47-71" LPRINT " Humanism 65-81 Socal 68-86" LPRINT LPRINT " Very High and Low Scores. A score may be ver high or low" LPRINT " if it falls above or below these ranges. (Eighty percent of all" LPRINT " scores fall within these ranges.)" LPRINT LPRINT " Fame 41-89 Family 57-90" LPRINT " Money 50-86 Health 42-85" LPRINT " Power 28-67 Aesthetics 45-80" LPRINT " Religion 33-92 Creative 36-82" LPRINT " Humanism 59-89 Social 59-93" LPRINT "----------------------------------------------------------------------" ON ERROR GOTO 0 INPUT "Press (0) to exit (1) to Start over ", d$ IF d$ = "0" THEN CLS : PRINT "Pleas Wait...": CHAIN "moneycga" IF d$ = "1" THEN CLS : EXIT SUB END SUB SUB profile 'Profile of Values 'Instructions INPUT "Print Graph (Y/N)"; Graph$ IF Graph$ = "Y" OR Graph$ = "y" THEN GOSUB profile IF Graph$ = "N" OR Graph$ = "n" THEN Interpretation profile: CLS PRINT " PROFILE OF VALUES" PRINT " You now know how you value certain" PRINT " things. You can make a profile of your" PRINT " values. A profile is a graph. You can" PRINT " compare your profile to the average profile" PRINT " shown in the example of this page. Plot" PRINT " your profile by using the total for each of" PRINT " your values on the Scoring. The person in the" PRINT " example had a toal of 62 for 'Fame.' What" PRINT " was your total number, on the 'Fame' line." PRINT " Then put a dot from each of your other" PRINT " numbers. Be sure to make on the correct" PRINT " lines. Then connect the dots." PRINT INPUT "Make Sure Your Printer is Ready to Print.", b$ 'Will Skip # of lines to next page ON ERROR GOTO 1000 'Will Start Printing Graph LPRINT " F M P R H F H A C S" LPRINT "00____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "95____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "90____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "85____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "80____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "75____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "70____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "65____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "60____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "55____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "50____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "45____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "40____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "35____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "30____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "25____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "20____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "15____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "10____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "5_____*____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT " __ *____*_____*____*_____*____*_____*____*_____*____*" LPRINT "0_____*____*_____*____*_____*____*_____*____*_____*____*" ON ERROR GOTO 0 Interpretation END SUB