`L i=L\Ʃx ? N'i  ͭЅ?0ȱ Ѕ?iȱi lԠԠ͠ԠϠŠͮŠ SYSTEM.APPLE   L$J {MF > toPA ete,PT SC t}MA SI R nsertES xt {A >p@!<<2<(0N.F(D'"$#&'*,,0 3Z468=# >?@/+n .. ?>??L>8@@@y@…@Q@@(@ c@(@R@w@GA@@A@Qx@33WAp5A= AAffAAAA{AAAxA2B@AL ng Z(F [1.1K HS D !,0BEUry{#%NQSY]^b%J EAEP $E MEEEE3ThEXK]E EWK:f0#2 ( (Z(P(-NT:= 1; $GOTOXY(0,MEXTM{E ADMIN.CODE FECONSTRUCT.TEXTgECONSTRUCT.TEXTgEADMIN.TEXTM{EFECONSTRUCT.TEXTgECONSTRUCT.TEXTgECONSTRUCT.TEXTgECONSTRUCT.TEXTgECONSTRUCT.TEXTgECONSTRUCT.TEXTgECONSTRUCT.TEXTgECONSTRUCT.TEXTgECONSTRUCT.TEXTgECONSTRU蠍MMPISCORE.CODET蠛 MMPISCAL.CODETMMPISCAL.CODETMMPISCAL.CODETMMPISCAL.CODETMMPISCAL.CODETMMPISCOR.CODETMMPISCOR.TEXTTEMG1.CODEr=vg{CONSTRUCT.TMMPI1D2 INTPARAM^<vg{ INTPARFE^<vg{ , MMPI.TEST^<vgTĤ,s MMPI.QUESr=vgsu NVALUES.DATAvg,4uw FVALUES.DATAvgwy MVALUES.DATAvgy CMENU.CODE*TINTERPMMPI.CODE&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xH&x'8*7Ixix&&  ') + &п x) ++`FG8`0($ p,&") (jJJ>L+ "?I>  N `  ` x V Nx .x- z `V0^*^*>` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&BDHEG ILSMN,O!NPT S T > V> X]ii8jkZ[\^` aMPILERc6z!,0BEUry{#%NQSY]^b%J EkAmEqbPtEuMEzzE|JEEzTEPE EK:30n(w({(~({.e .[FERR8Q WMW8AA0A[FERR8Q XMW8AA0A[2ERR8Q +YMW8AA0A[K23MWQ YZMW8AA0A[L23MWQ [MW8AA0A[403MWQ \MW8AA0A[403MWQ ]MW8AA0A[363MWQ 0^47AAA0A[E63MWQNMW8AA0A[LF3R8QOMW8AA0A[MW3R8QPMW8AA0A[2MWR8QQMW8AA0A[MWRR8Q R0W8AA0A[4ERR8Q \S0W8AA0A[FERR8Q T4W8AA0A[FERR8Q UFCC6[W8CCQ 'V278AA0A[W8CCQFMW70A0A[W83R8QGMW70A0A[K33R8QH1W70A0A[K33R8QI9W70A0A[K33R8QJMWC6[W8CCQKMW70A0A[LF3R8Q_L378AA0A[LF3R8Q{MMW8AA0A[LF3R8Qo=483A80A[LE3R8Q>183A80A[EE3R8Q?183A80A[1E3R8QC@983A80A[2E3R8QA983A80A[F83R8QBFCC6[E8CCQC2470A0A[F83R8Q=D2470A0A[183R8QsEMCC6A80A[123R8Q5F83A80A[123R8Q6F83A80A[F23R8Q7F83A80A[133R8Q8F83A80A[133R8Q[9F83A80A[203R8Q:F83A80A[2E3R8Q;983A80A[2E3R8Q<983A80A[LE3R8QQ,,3CC6[48CCQS-323A80A[L2R38Q.323A80A[22R38Q/383A80A[22R38Q0FCC6[E8CCQ.1F83A80A[E2R38Qu2F83A80A[E2R38Q3E83A80A[123R8Q428346880A[EE238Q$E46880A[27238Q$%48C6[48CCQI&486880A[48238Q'K2R880A[K2R38Q(F8R880A[K2R38Q)278A80A[K2R38QN*F48A80A[K2R38Q+123A80A[E2R38R8QF6C6[F48CQ$F683[MWWR8QK1683[MWWR8Q1683[LK238QF683[LK238Q 234780A[EK238Q@!48C6[0E8CQv"F84780A[EE238Q#F4686[123R8Q14686[MW3R8Qa2916[F48CQ4896[F48R8Q6789[E48R8QF123[E48R8QV4683[E48R8QMW83[048R8QMW83[3MW23R8Q^ 3716[123R8Q 9716[123R8Q 9716[3R3R8Q( 2916[3R3R8QSF916[ER3R8Q~6786[LR3R8Q4686[LR3R8Q4686[F83R8Q2916[MWR6QE916[1236Q#E916[1376Q?MW16[3R76Qm2916[1376Q2916[3R76QMW16[1376QMW16[23478Q! MW16[10l HP"^ ~  q  b9D  7 q ^HY ,.PD MF vPA BCPT DSC zFMA `SI [R ES A @!<<2<(0N.F(D'T.Q :  9Xa.8- ?>??L>Q(@QH@q=@(@¥@@̌@]zT@@@@GAQ@@GAף@)\_@GAAq=RA{AffAGA= B)\@A33AAAA BpAL ^F K HS D a_E7AAA0A[263MWQ `K7AAA0A[463MWQ a89AAA0A[463MWQ +b89AAA0A[263MWQ tc89AAA0A[MW0MWQ d99AAA0A[EW0MWQ e99AAA0A[9W0MWQ _f47AAA0A[9W0MWQ g47AAA0A[138MWQ h28AAA0A[138MWQ i28AAA0A[L98MWQ Dj47AAA0A[L98MWQ {k234AA0A[2346WQ l134AA0A[2346WQ m9E4AA0A[3646WQ 1n464AA0A[3646WQ o064AA0A[6946WQ O9W77[MWW9Q4W77[MWW9Q4W77[LWW9QMW97[LWW9QAFW97[LWW9Q9W97[LWW9Q9W97[MW09Q9W97[1309QBME97[[MWW9QF4CC[EWR6Q4487[MWW9Q MW77[KEW9QiFW77[KEW9QFW77[RMW9QFW77[F8W9Q EW77[RMW9Q99W77[RMW9QFW87[3489QFW87[2489QOEW87[20R9QFC8C[EWR6QF887[E0R9QF887[E0R9Q8987[E0R9Q 8987[3MW9Q\8987[F889Q3F937[MW89Q\F937[FW89Q{FC8C[WWR6Q0937[3489QF68C[WWR6QMW87[3489QFMW87[3489QFC8C[WWR6Q1237[E349Q;1237[1349Qh1237[2R49QE237[1389Q2237[0389Q8937[0389QQ8937[L389Q8937[F889QF9376[K349QD9E86[K349Q278C[WWR6Q2786[K449QFC8C[WWR6Q F786[F449QN3786[F449QMWE6[8449QMWE6[1349QQ0886[3496Q0886[4496Q?E886[3496QUE886[1396Q~E886[MW96QE886[F896QE886[2786Q3M8C[WWR6Q0M8786[1336Q1786[F736Q1786[L736Q1786[9736Qn9786[9736QF8CC[RWR6QF886[F736Q/F886[K346QV0886[K4966QE616[1246QF89C[RWR6Q6896[R246Qb2696[R246Q2786[R246Q2786[K236Q1786[K236Q(1786[3236QY1FC16[MWR6Qm0A16[3RR6Q0A16[K9R6QMW16[K9R6QMW16[L9R6QF6C6[MWR6QF616[27R6QE616[1236Q\E616[2R3469WQI20AAA0A[K469WQFCCC[MCCCQMWAAA0A[RE69WQMWAAA0A[3469WQ*27AAA0A[K469WQt97AAA0A[0469WQ97AAA0A[MW69WQ 2916[2RR6Q/469AA0A[K369WQ269AA0A[1369WQ[269AA0A[2R69WQMW9AA0A[ER69WQW6CC[MCCCQMW9AA0A[K469WQ2MW9AA0A[L469WQMW9AA0A[3469WQMW9AA0A[3LMW9WQ yF68C[W8CCQSzF68AA0A[27W9WQ{F6CC[W8CCQ|068AA0A[K369WQ}168AA0A[K369WQV~MW8AA0A[0R69WQ469AA0A[0R69WQ469AA0A[3R69WQp064AA0A[FMWRWQ q064AA0A[FMWRWQ \r13C6[W8CCQ s134AA0A[FMWRWQ t134AA0A[MWWRWQ u034AA0A[MW6RWQ v434AA0A[MW6RWQ ^w434AA0A[890RWQ x434AA0A[40W9Q9E97[40W9Q9E97[20W9QEE97[K3W9QEE97[43W9Q20A7[E3W9Q'20A7[43W9QC3789[43W9Qz4MW9[43W9Q9MW9[43W9Q8MW9[2EW9Q8MW9[2EW9Q_8MW9[13W9Q4MW9[E3W9QF4W9[E3W9QF4W9[E3W9Q@F4W9[E3W9QdF4W9[0E478Q*h78A880[0E478Q+i7916[MWR6Q+Hj6716[MWR6Q+qk8916[MWR6Q+l6816[MWR6Q+m6816[MWR6Q+n6786[MWR6Q+5oE786[MWR6Q+)_788880[ER478Q)5`788880[ER478Q)a788880[70478Q)b8CCC[EWR6Q*Cc8E8880[70478Q*d78A880[70478Q*e70A880[70478Q*f70A880[70478Q*\g7AA880[[ER478Q(W7A8880[ER478Q(X7A8880[ER478Q(fY8ACC[EWR6Q(Z7A8880[ER478Q([7A8880[6R478Q)H\7A8880[6R478Q)|]78CC[EWR6Q)^8CCC[EWR6Q'N8CCC[EWR6Q'5O8E8880[8R478Q'_P708880[8R478Q'Q7ACC[EWR6Q'R6A8880[8R478Q'S8CCC[EWR6Q(DT7A8880[8R478Q(oU688880[ER478Q(V708880[08478Q&F6789[08478Q&%G6789[6R478Q&oH234780[6R478Q&I234780[7R478Q'J234780[8R478Q'KF46880[8R478Q'sL806880[8R478Q'M468880[8R478Q%=678A[K680RQ%@>678A[23478Q%r?678A[63478Q%@878A[63478Q&A70AA[63478Q&2B70AA[K8478Q&QC48AA[08478Q&xD88AA[08478Q&E88AAA[8840RQ$5489A[8040RQ$%6489A[F480RQ$c7489A[F480RQ$8889A[F480RQ$9889A[6480RQ$:678A[L480RQ%;468A[L480RQ%<068A[K680RQQ#,MW63[MW40RQ#-78A3[MW40RQ#N.78A3[4840RQ#~/88A3[4840RQ#070A3[4840RQ$1678A[4840RQ$C2678A[8840RQ$3878A[8840RQ$448968C[EWR6Q"w$0683[3490RQ"%F6CC[EWR6Q" &F683[4690RQ"T'MW83[4690RQ"(MW83[K240RQ")M883[W240RQ#*9883[W240RQ#G+MW63[W240R0RQ!QMW8A[MW80RQ!468A[MW80RQ!468A[L280RQ!F68A[L280RQ!IF68A[4280RQ!s F123[4280RQ!!F123[3490RQ!"2923[3490RQ"K#F1896[132RQ [F6CC[EWR6Q F696[F82RQ 9696[F82RQ MW0A[F82RQ E9W0A[382RQ MW0A[MW2RQ MW0A[1680RQ!MW8A[R68W06Q 7896[3W06Q 0A96[K349Q3 9A96[6349Q FA96[6349QEA96[2349Q=9A96[2R49Q9A96[FK2RQ1896[FK2RQ "FE16[FW06QoFE16[FW06Q28A6[FW06Q28A6[MW06QMWA6[EW06QMWA6[MW06QQ9WA6[2W06Q9WA6[MW06Q 9WA6[324W9QF4W9[MWW9Q)9916[MWR6Qa89CC[EWR6QF916[EWR6Q,3E16[EWR6QY3E16[MW06Q3E16[LW06QFE16[LW06Q/xpE786[MWR6Q+qE786[MWR6Q,rE786[MWR6Q,=sE786[0WR6Q,htE786[0WR6Q,uE786[0WR6Q,vA786[KWR6Q,:wA786[KWR6Q,zxA786[KWR6Q,y0786[KWR6Q,z0786[EWR6Q-n{0786[AWR6Q-|E786[AWR6Q-}E786[AWR6Q-,~A786[AWR6Q-S0A86[KWR6Q-AA86[EWR6Q-%0916[ERR6Q<0916[ERR6Q=0916[ERR6Q=BA916[ERR6Q=oA916[ERR6Q=A916[ERR6Q=!A916[KRR6Q=uA916[KRR6Q=A916[ERR6Q;0916[ERR6Q;O0916[ERR6Q;v0916[ERR6Q;0916[ERR6Q<0916[ERR6Q<T0916[ERR6Q<0916[ERR6Q<0916[ERR6Q<:z0916[0RR6Q:0916[0RR6Q:0916[0RR6Q:50916[0RR6Q:s0916[ERR6Q:0916[ERR6Q:0916[ERR6Q;0916[ERR6Q;0916[[0RR6Q9A916[0RR6Q9A916[RRR6Q90916[RRR6Q90916[RRR6Q9@0916[RRR6Q9s0916[RRR6Q90916[RRR6Q90916[RRR6Q82916[0RR6Q8x2916[0RR6Q82916[0RR6Q8A916[0RR6Q8A916[0RR6Q8>A916[0RR6Q8A916[RRR6Q8A916[0RR6Q9 A916[0RR6Q6AA86[0RR6Q60A86[0RR6Q70A86[0RR6Q7j0A86[0RR6Q7EA86[0RR6Q7 EA86[0RR6Q72916[MWR6Q72916[KWR6Q5FAA86[RRR6Q5AA86[0RR6Q5AA86[RRR6Q5AA86[RRR6Q6WAA86[0RR6Q6AA86[0RR6Q6AA86[0RR6Q6 AA86[0RR6Q6\AA866[RRR6Q40A86[RRR6Q410A86[RRR6Q4~0A86[RRR6Q5 0A86[0RR6Q540A86[0RR6Q5{0A86[0RR6Q5AA86[0RR6Q5AA86[0RR6QQ3%0A86[ERR6Q3N0A86[RRR6Q3yEA86[RRR6Q3AA86[RRR6Q3AA86[RRR6Q4AA86[RRR6Q4@AA86[RRR6Q4kAA86[RRR6Q40A8A86[0RR6Q2OAA86[ERR6Q2EA86[ERR6Q2EA86[ERR6Q2EA86[ERR6Q3fEA86[ERR6Q3EA86[ERR6Q3EA86[ERR6Q30A86[ERR66Q10A86[KRR6Q10A86[KRR6Q1H0A86[KRR6Q1AA86[KRR6Q1AA86[0RR6Q2AA86[0RR6Q2RAA86[0RR6Q2AA86[0RR6Q2#A0A86[0WR6Q0P0A86[0WR6Q00A86[0WR6Q00A86[0WR6Q0G0A86[KRR6Q0k0A86[KRR6Q00A86[KRR6Q00A86[KRR6Q1mEA86[KRRWR6Q/ AA86[0WR6Q/DAA86[0WR6Q/nAA86[0WR6Q/AA86[KWR6Q/0A86[KWR6Q/0A86[KWR6Q/0A86[0WR6Q/0A86[0WR6Q01AA86[EWR6Q.AA86[EWR6Q.>AA86[EWR6Q.AA86[EWR6Q.AA86[EWR6Q.AA86[EWR6Q.`AA86[0WR6Q.AA86[0WR6Q.AA86[0KRR6Q>A916[0RR6Q>tA916[0RR6Q>A916[0RR6Q>A916[0RR6Q>A916[0RR6Q>A916[ERR6Q?BA916[ERR6Q?gA916[ERR6Q?E916[ERR6Q?E916[ERR6Q?E916[ERR6Q?E916[RRR6Q?~E916[RRR6Q?A916[RRR6Q?A916[RRR6Q@:A916[RRR6Q@m A916[0I FEEL LIKE SWEARING.* 31.I HAVE NIGHTMARES EVERY FEW NIGHTS.* 32.I FIND IT HARD TO KEEP MY MIND ON A TASK OR JOB.* 33.I HAVE HAD VERY PECULIAR AND STRANGE EXPERIENCES.* 34.I HAVE A COUGH MOST OF THE TIME.* 35.IF PEOPLE HAD NOT HAD IT IN FOR ME I WOULY MOUTH SHUT WHEN I'M IN TROUBLE.* 27.EVIL SPIRITS POSSESS ME AT TIMES.* 28.WHEN SOMEONE DOES ME A WRONG I FEEL I SHOULD PAY HIM BACK IF I CAN, JUST FOR THE PRINCIPLE OF THE THING.* 29.I AM BOTHERED BY ACID STOMACH SEVERAL TIMES A WEEK.* 30.AT TIMES LEAVE HOME.* 22.AT TIMES I HAVE FITS OF LAUGHING AND CRYING THAT I CANNOT CONTROL.* 23.I AM TROUBLED BY ATTACKS OF NAUSEA AND VOMITING.* 24.NO ONE SEEMS TO UNDERSTAND ME.* 25.I WOULD LIKE TO BE A SINGER.* 26.I FEEL THAT IT IS CERTAINLY BEST TO KEEP M DEAL FROM LIFE.* 17.MY FATHER WAS A GOOD MAN.* 18.I AM VERY SELDOM TROUBLED BY CONSTIPATION.* 19.WHEN I TAKE A NEW JOB, I LIKE TO BE TIPPED OFF ON WHO SHOULD BE GOTTEN NEXT TO.* 20.MY SEX LIFE IS SATISFACTORY.* 21.AT TIMES I HAVE VERY MUCH WANTED TOE GUIDED BY OR TAKE WARNING FROM THEM.* 12.I ENJOY DETECTIVE OR MYSTERY STORIES.* 13.I WORK UNDER A GREAT DEAL OF TENSION.* 14.I HAVE DIARRHEA ONCE A MONTH OR MORE.* 15.ONCE IN A WHILE I THINK OF THINGS TOO BAD TO TALK ABOUT.* 16.I AM SURE I GET A RAWD FEET ARE USUALLY WARM ENOUGH.* 8.MY DAILY LIFE IS FULL OF THINGS THAT KEEP ME INTERESTED.* 9.I AM ABOUT AS ABLE TO WORK AS I EVER WAS.* 10.THERE SEEMS TO BE A LUMP IN MY THROAT MUCH OF THE TIME.* 11.A PERSON SHOULD TRY TO UNDERSTAND HIS DREAMS AND B * 1.I LIKE MECHANICS MAGAZINES.* 2.I HAVE A GOOD APPETITE.* 3.I WAKE UP FRESH AND RESTED MOST MORNINGS.* 4.I THINK I WOULD LIKE THE WORK OF A LIBRARIAN.* 5.I AM EASILY AWAKENED BY NOISE.* 6.I LIKE TO READ NEWSPAPER ARTICLES ON CRIME.* 7.MY HANDS AN6[ERR6QEA50916[ERR6QE60916[ERR6QEQC,A916[RRR6QD8-A916[RRR6QDj.A916[RRR6QD/A916[ERR6QD0A916[ERR6QD1A916[ERR6QDY2A916[ERR6QD3A916[ERR6QE4091916[0RR6QCs$A916[ERR6QC%0916[ERR6QC&0916[RRR6QC'0916[RRR6QC!(0916[RRR6QCk)0916[RRR6QC*0916[ERR6QC+A916[ERR66QBA916[RRR6QBA916[RRR6QBA916[ERR6QB"A916[ERR6QB[A916[ERR6QB A916[ERR6QB!A916[ERR6QC"A916[ERR6QCO#AA916[RRR6QAA916[RRR6QAA916[RRR6QAUA916[RRR6QAA916[RRR6QAA916[RRR6QBA916[RRR6QBIA916[RRR6QBzA916[RRRRR6Q@ A916[0RR6Q@0 A916[0RR6Q@Q A916[0RR6Q@r A916[ERR6Q@A916[ERR6Q@A916[ERR6QAA916[ERR6QA\A916[RRR6QAD HAVE BEEN MUCH MORE SUCCESSFUL.* 36.I SELDOM WORRY ABOUT MY HEALTH.* 37.I HAVE NEVER BEEN IN TROUBLE BECAUSE OF MY SEX BEHAVIOR.* 38.DURING ONE PERIOD WHEN I WAS A YOUNGSTER I ENGAGED IN PETTY THIEVERY.* 39.AT TIMES I FEEL LIKE SMASHING THINGS.* 40.MOST ANY TIME I WOULD RATHER SIT AND DAYDREAM THAN TO DO ANYTHING ELSE.* 41.I HAVE HAD PERIODS OF DAYS, WEEKS, OR MONTHS WHEN I COULDN'T TAKE CARE OF THINGS BECAUSE I COULDN'T "GET GOING".* 42.MY FAMILY DOES NOT LIKE THE WORK I HAVE CHOSEN(OR THE WY FEW QUARRELS WITH MEMBERS OF MY FAMILY.* 97.AT TIMES I HAVE A STRONG URGE TO DO SOMETHING HARMFUL OR SHOCKING.* 98.I BELIEVE IN THE SECOND COMING OF CHRIST.* 99.I LIKE TO GO TO PARTIES AND OTHER AFFAIRS WHERE THERE IS LOTS OF LOUD FUN.* 100.I HAVE MADE FUN OF.* 92.I WOULD LIKE TO BE A NURSE.* 93.I THINK MOST PEOPLE WOULD LIE TO GET AHEAD.* 94.I DO MANY THINGS WHICH I REGRET AFTERWARDS(I REGRET THINGS MORE OR MORE OFTEN THAN OTHERS SEEM TO).* 95.I GO TO CHURCH ALMOST EVERY WEEK.* 96.I HAVE VERDENCE.* 87.I WOULD LIKE TO BE A FLORIST.* 88.I USUALLY FEEL THAT LIFE IS WORTH WHILE.* 89.IT TAKES A LOT OF ARGUMENT TO CONVINCE MOST PEOPLE OF THE TRUTH.* 90.ONCE IN A WHILE I PUT OFF UNTIL TOMORROW WHAT I OUGHT TO DO TODAY.* 91.I DO NOT MIND BEINGE UP HOPE OF AMOUNTING TO SOMETHING.* 85.SOMETIMES I AM STRONGLY ATTRACTED BY THE PERSONAL ARTICLES OF OTHERS SUCH AS SHOES, GLOVES, ETC., SO THAT I WANT TO HANDLE OR STEAL THEM THOUGH I HAVE NO USE FOR THEM.* 86.I AM CERTAINLY LACKING IN SELF-CONDFI SOMETIMES TEASE ANIMALS.* 81.I THINK I WOULD LIKE THE KIND OF WORK A FOREST RANGER DOES.* 82.I AM EASILY DOWNED IN AN ARGUMENT.* 83.ANY MAN WHO IS ABLE AND WILLING TO WORK HARD HAS A GOOD CHANCE OF SUCCEEDING.* 84.THESE DAYS I FIND IT HARD NOT TO GIV OFTEN WISHED I WERE A GIRL.(OR IF YOU ARE A GIRL) I HAVE NEVER BEEN SORRY THAT I AM A GIRL.* 75.I GET ANGRY SOMETIMES.* 76.MOST OF THE TIME I FEEL BLUE.* 77.I ENJOY READING LOVE STORIES.* 78.I LIKE POETRY.* 79.MY FEELINGS ARE NOT EASILY HURT.* 80.I-HANDKERCHIEF.* 71.I THINK A GREAT MANY PEOPLE EXAGGERATE THEIR MISFORTUNES IN ORDER TO GAIN THE SYMPATHY AND HELP OF OTHERS.* 72.I AM TROUBLED BY DISCOMFORT IN THE PIT OF MY STOMACH EVERY FEW DAYS OR OFTENER.* 73.I AM AN IMPORTANT PERSON.* 74.I HAVENGS OR ANIMALS OR PEOPLE AROUND ME THAT OTHERS DO NOT SEE.* 67.I WISH I COULD BE AS HAPPY AS OTHERS SEEM TO BE.* 68.I HARDLY EVER FEEL PAIN IN THE BACK OF THE NECK.* 69.I AM VERY STRONGLY ATTRACTED BY MEMBERS OF MY OWN SEX.* 70.I USED TO LIKE DROP-THEINGS LIKE BURNING, TINGLING, CRAWLING, OR LIKE "GOING TO SLEEP".* 63.I HAVE HAD NO DIFFICULTY IN STARTING OR HOLDING MY BOWEL MOVEMENT.* 64.I SOMETIMES KEEP ON AT A THING UNTIL OTHERS LOSE THEIR PATIENCE WITH ME.* 65.I LOVED MY FATHER.* 66.I SEE THIE BIBLE SAID IT WOULD.* 59.I HAVE OFTEN HAD TO TAKE ORDERS FROM SOMEONE WHO DID NOT KNOW AS MUCH AS I DID.* 60.I DO NOT READ EVERY EDITORIAL IN THE NEWSPAPER EVERY DAY.* 61.I HAVE NOT LIVED THE RIGHT KIND OF LIFE.* 62.PARTS OF MY BODY OFTEN HAVE FEELOPLE WHO KNOW ME.* 55.I AM ALMOST NEVER BOTHERED BY PAINS OVER THE HEART OR IN MY CHEST.* 56.AS A YOUNGSTER I WAS SUSPENDED FROM SCHOOL ONE OR MORE TIMES FOR CUTTING UP.* 57.I AM A GOOD MIXER.* 58.EVERYTHING IS TURNING OUT JUST LIKE THE PROPHETS OF THH AS MOST OF MY FRIENDS.* 52.I PREFER TO PASS BY SCHOOL FRIENDS, OR PEOPLE I KNOW BUT HAVE NOT SEEN FOR A LONG TIME, UNLESS THEY SPEAK TO ME FIRST.* 53.A MINISTER CAN CURE DISEASE BY PRAYING AND PUTTING HIS HAND ON YOUR HEAD.* 54.I AM LIKED BY MOST PEDENLY HOT ALL OVER, WITHOUT APPARENT CAUSE.* 48.WHEN I AM WITH PEOPLE I AM BOTHERED BY HEARING VERY QUEER THINGS.* 49.IT WOULD BE BETTER IF ALMOST ALL LAWS WERE THROWN AWAY.* 50.MY SOUL SOMETIMES LEAVES MY BODY.* 51.I AM IN JUST AS GOOD PHYSICAL HEALTORK I INTEND TO CHOOSE FOR MY LIFE WORK).* 43.MY SLEEP IS FITFUL AND DISTURBED.* 44.MUCH OF THE TIME MY HEAD SEEMS TO HURT ALL OVER.* 45.I DO NOT ALWAYS TELL THE TRUTH.* 46.MY JUDGMENT IS BETTER THAN IT EVER WAS.* 47.ONCE A WEEK OR OFTENER I FEEL SUDMET PROBLEMS SO FULL OF POSSIBILITIES THAT I HAVE BEEN UNABLE TO MAKE UP MY MIND ABOUT THEM.* 101.I BELIEVE WOMEN OUGHT TO HAVE AS MUCH SEXUAL FREEDOM AS MEN.* 102.MY HARDEST BATTLES ARE WITH MYSELF.* 103.I HAVE LITTLE OR NO TROUBLE WITH MY MUSCLES TWITCHING OR JUMPING.* 104.I DON'T SEEM TO CARE WHAT HAPPENS TO ME.* 105.SOMETIMES WHEN I AM NOT FEELING WELL I AM CROSS.* 106.MUCH OF THE TIME I FEEL AS IF I HAVE DONE SOMETHING WRONG OR EVIL.* 107.I AM HAPPY MOST OF THE TIME.* 108.THERE SEEMS TO BE A FELT BETTER IN MY LIFE THAN I DO NOW.* 161.THE TOP OF MY HEAD SOMETIMES FEELS TENDER.* 162.I RESENT HAVING ANYONE TAKE ME IN SO CLEVERLY THAT I HAVE HAD TO ADMIT THAT IT WAS ONE ON ME.* 163.I DO NOT TIRE QUICKLY.* 164.I LIKE TO STUDY AND READ ABOUT HAVE HAD PERIODS IN WHICH I CARRIED ON ACTIVITIES WITHOUT KNOWING LATER WHAT I HAD BEEN DOING.* 157.I FEEL THAT I HAVE OFTEN BEEN PUNISHED WITHOUT CAUSE.* 158.I CRY EASILY.* 159.I CANNOT UNDERSTAND WHAT I READ AS WELL AS I USED TO.* 160.I HAVE NEVERING TO POISON ME.* 152.MOST NIGHTS I GO TO SLEEP WITHOUT THOUGHTS OR IDEAS BOTHERING ME.* 153.DURING THE PAST FEW YEARS I HAVE BEEN WELL MOST OF THE TIME.* 154.I HAVE NEVER HAD A FIT OR CONVULSION.* 155.I AM NEITHER GAINING NOR LOSING WEIGHT.* 156.IKE UP MY MIND SOON ENOUGH.* 148.IT MAKES ME IMPATIENT TO HAVE PEOPLE ASK MY ADVICE OR OTHERWISE INTERRUPT ME WHEN I AM WORKING ON SOMETHING IMPORTANT.* 149.I USED TO KEEP A DIARY.* 150.I WOULD RATHER WIN THAN LOSE IN A GAME.* 151.SOMEONE HAS BEEN TRYAND THIN.* 144.I WOULD LIKE TO BE A SOLDIER.* 145.AT TIMES I FEEL LIKE PICKING A FIST FIGHT WITH SOMEONE.* 146.I HAVE THE WANDERLUST AND AM NEVER HAPPY UNLESS I AM ROAMING OR TRAVELING ABOUT.* 147.I HAVE OFTEN LOST OUT ON THINGS BECAUSE I COULDN'T MA OR SOMEONE ELSE.* 140.I LIKE TO COOK.* 141.MY CONDUCT IS LARGELY CONTROLLED BY THE CUSTOMS OF THOSE ABOUT ME.* 142.I CERTAINLY FEEL USELESS AT TIMES.* 143.WHEN I WAS A CHILD, I BELONGED TO A CROWD OR GANG THAT TRIED TO STICK TOGETHER THROUGH THICK HIDDEN REASON ANOTHER PERSON MAY HAVE FOR DOING SOMETHING NICE FOR ME.* 137.I BELIEVE THAT MY HOME LIFE IS AS PLEASANT AS THAT OF MOST PEOPLE I KNOW.* 138.CRITICISM OR SCOLDING HURTS ME TERRIBLY.* 139.SOMETIMES I FEEL AS IF I MUST INJURE EITHER MYSELFAVE NEVER INDULGED IN ANY UNUSUAL SEX PRACTICES.* 134.AT TIMES MY THOUGHTS HAVE RACED AHEAD FASTER THAN I COULD SPEAK THEM.* 135.IF I COULD GET INTO A MOVIE WITHOUT PAYING AND BE SURE I WAS NOT SEEN I WOULD PROBABLY DO IT.* 136.I COMMONLY WONDER WHAT E NOR MAKES ME SICK.* 129.OFTEN I CAN'T UNDERSTAND WHY I HAVE BEEN SO CROSS AND GROUCHY.* 130.I HAVE NEVER VOMITED BLOOD OR COUGHED UP BLOOD.* 131.I DO NOT WORRY ABOUT CATCHING DISEASES.* 132.I LIKE COLLECTING FLOWERS OR GROWING HOUSE PLANTS.* 133.I HLL USE SOMEWHAT UNFAIR MEANS TO GAIN PROFIT OR AN ADVANTAGE RATHER THAN TO LOSE IT.* 125.I HAVE A GREAT DEAL OF STOMACH TROUBLE.* 126.I LIKE DRAMATICS.* 127.I KNOW WHO IS RESPONSIBLE FOR MOST OF MY TROUBLES.* 128.THE SIGHT OF BLOOD NEITHER FRIGHTENS M 120.MY TABLE MANNERS ARE NOT QUITE AS GOOD AT HOME AS WHEN I AM OUT IN COMPANY.* 121.I BELIEVE I AM BEING PLOTTED AGAINST.* 122.I SEEM TO BE ABOUT AS CAPABLE AND SMART AS MOST OTHERS AROUND ME.* 123.I BELIEVE I AM BEING FOLLOWED.* 124.MOST PEOPLE WI BETTER WHEN I BET ON IT.* 117.MOST PEOPLE ARE HONEST CHIEFLY THROUGH FEAR OF BEING CAUGHT.* 118.IN SCHOOL I WAS SOMETIMES SENT TO THE PRINCIPAL FOR CUTTING UP.* 119.MY SPEECH IS THE SAME AS ALWAYS (NOT FASTER OR SLOWER, OR SLURRING; NO HOARSENESS).* THRILL OF IT.* 112.I FREQUENTLY FIND IT NECESSARY TO STAND UP FOR WHAT I THINK IS RIGHT.* 113.I BELIEVE IN LAW ENFORCEMENT.* 114.OFTEN I FEEL AS IF THERE WERE A TIGHT BAND ABOUT MY HEAD.* 115.I BELIEVE IN A LIFE HEREAFTER.* 116.I ENJOY A RACE OR GAME FULLNESS IN MY HEAD OR NOSE MOST OF THE TIME.* 109.SOME PEOPLE ARE SO BOSSY THAT I FEEL LIKE DOING THE OPPOSITE OF WHAT THEY REQUEST, EVEN THOUGH I KNOW THEY ARE RIGHT.* 110.SOMEONE HAS IT IN FOR ME.* 111.I HAVE NEVER DONE ANYTHING DANGEROUS FOR THE THINGS THAT I AM WORKING AT.* 165.I LIKE TO KNOW SOME IMPORTANT PEOPLE BECAUSE IT MAKES ME FEEL IMPORTANT.* 166.I AM AFRAID WHEN I LOOK DOWN FROM A HIGH PLACE.* 167.IT WOULDN'T MAKE ME NERVOUS IF ANY MEMBERS OF MY FAMILY GOT INTO TROUBLE WITH THE LAW.* 168.THERE IS SOMETHING WRONG WITH MY MIND.* 169.I AM NOT AFRAID TO HANDLE MONEY.* 170.WHAT OTHERS THINK OF ME DOES NOT BOTHER ME.* 171.IT MAKES ME UNCOMFORTABLE TO PUT ON A STUNT AT A PARTY EVEN WHEN OTHERS ARE DOING THE SAME SORT OF THINGS.* 172.IE CAREFULLY FOLLOWED.* 233.I HAVE AT TIMES STOOD IN THE WAY OF PEOPLE WHO WERE TRYING TO DO SOMETHING, NOT BECAUSE IT AMOUNTED TO MUCH BUT BECAUSE OF THE PRINCIPLE OF THE THING.* 234.I GET MAD EASILY AND THEN GET OVER IT SOON.* 235.I HAVE BEEN QUITE I EASE.* 229.I SHOULD LIKE TO BELONG TO SEVERAL CLUBS OR LODGES.* 230.I HARDLY EVER NOTICE MY HEART POUNDING AND I AM SELDOM SHORT OF BREATH.* 231.I LIKE TO TALK ABOUT SEX.* 232.I HAVE BEEN INSPIRED TO A PROGRAM OF LIFE BASED ON DUTY WHICH I HAVE SINCF PEOPLE I WENT AROUND WITH.* 225.I GOSSIP A LITTLE AT TIMES.* 226.SOME OF MY FAMILY HAVE HABITS THAT BOTHER AND ANNOY ME VERY MUCH.* 227.I HAVE BEEN TOLD THAT I WALK DURING SLEEP.* 228.AT TIMES I FEEL THAT I CAN MAKE UP MY MIND WITH UNUSUALLY GREATWORK OF A BUILDING CONTRACTOR.* 220.I LOVED MY MOTHER.* 221.I LIKE SCIENCE.* 222.IT IS NOT HARD FOR ME TO ASK HELP FROM MY FRIENDS EVEN THOUGH I CANNOT RETURN THE FAVOR.* 223.I VERY MUCH LIKE HUNTING.* 224.MY PARENTS HAVE OFTEN OBJECTED TO THE KIND OXCESSIVELY.* 216.THERE IS VERY LITTLE LOVE AND COMPANIONSHIP IN MY FAMILY AS COMPARED TO OTHER HOMES.* 217.I FREQUENTLY FIND MYSELF WORRYING ABOUT SOMETHING.* 218.IT DOES NOT BOTHER ME PARTICULARLY TO SEE ANIMALS SUFFER.* 219.I THINK I WOULD LIKE THE RING THE DAY BUT NOT AT NIGHT.* 212.MY PEOPLE TREAT ME MORE LIKE A CHILD THAN A GROWN-UP.* 213.IN WALKING I AM VERY CAREFUL TO STEP OVER SIDEWALK CRACKS.* 214.I HAVE NEVER HAD ANY BREAKING OUT ON MY SKIN THAT HAS WORRIED ME.* 215.I HAVE USED ALCOHOL EG OR SHOPLIFTING SOMETHING.* 206.I AM VERY RELIGIOUS(MORE THAN MOST PEOPLE).* 207.I ENJOY MANY DIFFERENT KINDS OF PLAY AND RECREATION.* 208.I LIKE TO FLIRT.* 209.I BELIEVE MY SINS ARE UNPARDONABLE.* 210.EVERYTHING TASTES THE SAME.* 211.I CAN SLEEP DU1.I WISH I WERE NOT SO SHY.* 202.I BELIEVE I AM A CONDEMNED PERSON.* 203.IF I WERE A REPORTER I WOULD VERY MUCH LIKE TO REPORT NEWS OF THE THEATER.* 204.I WOULD LIKE TO BE A JOURNALIST.* 205.AT TIMES IT HAS BEEN IMPOSSIBLE FOR ME TO KEEP FROM STEALINE TO VISIT PLACES WHERE I HAVE NEVER BEEN BEFORE.* 197.SOMEONE HAS BEEN TRYING TO ROB ME.* 198.I DAY DREAM VERY LITTLE.* 199.CHILDREN SHOULD BE TAUGHT ALL THE MAIN FACTS OF SEX.* 200.THER ARE PERSONS WHO ARE TRYING TO STEAL MY THOUGHTS AND IDEAS.* 20EPING MY BALANCE IN WALKING.* 193.I DO NOT HAVE SPELLS OF HAY FEVER OR ASTHMA.* 194.I HAVE HAD ATTACKS IN WHICH I COULD NOT CONTROL MY MOVEMENTS OR SPEECH BUT IN WHICH I KNEW WHAT WAS GOING ON AROUND ME.* 195.I DO NOT LIKE EVERYONE I KNOW.* 196.I LIKRD.* 188.I CAN READ A LONG WHILE WITHOUT TIRING MY EYES.* 189.I FEEL WEAK ALL OVER MUCH OF THE TIME.* 190.I HAVE VERY FEW HEADACHES.* 191.SOMETIMES, WHEN EMBARRASSED, I BREAK OUT IN A SWEAT WHICH ANNOYS ME GREATLY.* 192.I HAVE HAD NO DIFFICULTY IN KEBEGGARS.* 184.I COMMONLY HEAR VOICES WITHOUT KNOWING WHERE THEY COME FROM.* 185.MY HEARING IS APPARENTLY AS GOOD AS THAT OF MOST PEOPLE.* 186.I FREQUENTLY NOTICE MY HAND SHAKES WHEN I TRY TO DO SOMETHING.* 187.MY HANDS HAVE NOT BECOME CLUMSY OR AWKWAEMORY SEEMS TO BE ALL RIGHT.* 179.I AM WORRIED ABOUT SEX MATTERS.* 180.I FIND IT HARD TO MAKE TALK WHEN I MEET NEW PEOPLE.* 181.WHEN I GET BORED I LIKE TO STIR UP SOME EXCITEMENT.* 182.I AM AFRAID OF LOSING MY MIND.* 183.I AM AGAINST GIVING MONEY TO FREQUENTLY HAVE TO FIGHT AGAINST SHOWING THAT I AM BASHFUL.* 173.I LIKED SCHOOL.* 174.I HAVE NEVER HAD A FAINTING SPELL.* 175.I SELDOM OR NEVER HAVE DIZZY SPELLS.* 176.I DO NOT HAVE A GREAT FEAR OF SNAKES.* 177.MY MOTHER WAS A GOOD WOMAN.* 178.MY MNDEPENDENT AND FREE FROM FAMILY RULE.* 236.I BROOD A GREAT DEAL.* 237.MY RELATIVES ARE NEARLY ALL IN SYMPATHY WITH ME.* 238.I HAVE PERIODS OF SUCH GREAT RESTLESSNESS THAT I CANNOT SIT LONG IN A CHAIR.* 239.I HAVE BEEN DISAPPOINTED IN LOVE.* 240.I NEVER WORRY ABOUT MY LOOKS.* 241.I DREAM FREQUENTLY ABOUT THINGS THAT ARE BEST KEPT TO MYSELF.* 242.I BELIEVE I AM NO MORE NERVOUS THAN MOST OTHERS.* 243.I HAVE FEW OR NO PAINS.* 244.MY WAY OF DOING THINGS IS APT TO BE MISUNDERSTOOOD BY OTHERS.* 245.MYECIAL REASON.* 297.I WISH I WERE NOT BOTHERED BY THOUGHTS ABOUT SEX.* 298.IF SEVERAL PEOPLE FIND THEMSELVES IN TROUBLE, THE BEST THING FOR THEM TO DO IS TO AGREE UPON A STORY AND STICK TO IT.* 299.I THINK THAT I FEEL MORE INTENSELY THAN MOST PEOPLE DOPLE UNTIL THEY SPEAK TO ME.* 293.SOMEONE HAS BEEN TRYING TO INFLUENCE MY MIND.* 294.I HAVE NEVER BEEN IN TROUBLE WITH THE LAW.* 295.I LIKED "ALICE IN WONDERLAND" BY LEWIS CAROLL.* 296.I HAVE PERIODS IN WHICH I FEEL UNUSUALLY CHEERFUL WITHOUT ANY SPE LAW WHEN A CRIMINAL IS FREED THROUGH THE ARGUMENTS OF A SMART LAWYER.* 290.I WORK UNDER A GREAT DEAL OF TENSION.* 291.AT ONE OR MORE TIMES IN MY LIFE I FELT THAT SOMEONE WAS MAKING ME DO THINGS BY HYPNOTIZING ME.* 292.I AM LIKELY NOT TO SPEAK TO PEI AM BEING TALKED ABOUT.* 285.ONCE IN A WHILE I LAUGH AT A DIRTY JOKE.* 286.I AM NEVER HAPPIER THAN WHEN ALONE.* 287.I HAVE VERY FEW FEARS COMPARED TO MY FRIENDS.* 288.I AM TROUBLED BY ATTACKS OF NAUSEA AND VOMITING.* 289.I AM ALWAYS DISGUSTED WITH THY TO BE USEFUL TO THEM.* 281.I DO NOT OFTEN NOTICE MY EARS RINGING OR BUZZING.* 282.ONCE IN A WHILE I FEEL HATE TOWARD MEMBERS OF MY FAMILY WHOM I USUALLY LOVE.* 283.IF I WERE A REPORTER I WOULD VERY MUCH LIKE TO REPORT SPORTING NEWS.* 284.I AM SURE E CLEVERNESS OF A CROOK THAT I HAVE HOPED HE WOULD GET BY WITH IT.* 278.I HAVE OFTEN FELT THAT STRANGERS WERE LOOKING AT ME CRITICALLY.* 279.I DRINK AN UNUSUALLY LARGE AMOUNT OF WATER EVERY DAY.* 280.MOST PEOPLE MAKE FRIENDS BECAUSE FRIENDS ARE LIKELT TIMES I AM ALL FULL OF ENERGY.* 273.I HAVE NUMBNESS IN ONE OR MORE REGIONS OF MY SKIN.* 274.MY EYESIGHT IS AS GOOD AS IT HAS BEEN FOR YEARS.* 275.SOMEONE HAS CONTROL OVER MY MIND.* 276.I ENJOY CHILDREN.* 277.AT TIMES I HAVE BEEN SO ENTERTAINED BY THR PEOPLE AFRAID OF ME, AND SOMETIMES DO FOR THE FUN OF IT.* 270.WHEN I LEAVE HOME I DO NOT WORRY ABOUT WHETHER THE DOOR IS LOCKED AND THE WINDOWS CLOSED.* 271.I DO NOT BLAME A PERSON FOR TAKING ADVANTAGE OF SOMEONE WHO LAYS HIMSELF OPEN TO IT.* 272.A266.ONCE A WEEK OF OFTENER I BECOME VERY EXCITED.* 267.WHEN IN A GROUP OF PEOPLE I HAVE TROUBLE THINKING OF THE RIGHT THINGS TO TALK ABOUT.* 268.SOMETHING EXCITING WILL ALMOST ALWAYS PULL ME OUT OF IT WHEN I AM FEELING LOW.* 269.I CAN EASILY MAKE OTHESLOW LEARNER IN SCHOOL.* 261.IF I WERE AN ARTIST I WOULD LIKE TO DRAW FLOWERS.* 262.IT DOES NOT BOTHER ME THAT I AM NOT BETTER LOOKING.* 263.I SWEAT VERY EASILY EVEN ON COOL DAYS.* 264.I AM ENTIRELY SELF-CONFIDENT.* 265.IT IS SAFER TO TRUST NOBODY.* VOTE FOR MEN ABOUT WHOM I KNOW VERY LITTLE.* 256.THE ONLY INTERESTING PART OF NEWSPAPERS IS THE "FUNNIES".* 257.I USUALLY EXPECT TO SUCCEED IN THINGS I DO.* 258.I BELIEVE THERE IS A GOD.* 259.I HAVE DIFFICULTY IN STARTING TO DO THINGS.* 260.I WAS A DID NOT KNOW WHAT WAS GOING ON AROUND ME.* 252.NO ONE CARES MUCH WHAT HAPPENS TO YOU.* 253.I CAN BE FRIENDLY WITH PEOPLE WHO DO THINGS WHICH I CONSIDER WRONG.* 254.I LIKE TO BE WITH A CROWD WHO PLAY JOKES ON ONE ANOTHER.* 255.SOMETIMES AT ELECTIONS IEXCITEDLY HAPPY,"ON TOP OF THE WORLD".* 249.I BELIEVE THERE IS A DEVIL AND HELL IN AFTERLIFE.* 250.I DON'T BLAME ANYONE FOR TRYING TO GRAB EVERYTHING HE CAN GET IN THIS WORLD.* 251.I HAVE HAD BLANK SPELLS IN WHICH MY ACTIVITIES WERE INTERRUPTED AND I PARENTS AND FAMILY FIND MORE FAULT WITH ME THAN THEY SHOULD.* 246.MY NECK SPOTS WITH RED OFTEN.* 247.I HAVE REASON FOR FEELING JEALOUS OF ONE OR MORE MEMBERS OF MY FAMILY.* 248.SOMETIMES WITHOUT ANY REASON OR EVEN WHEN THINGS ARE GOING WRONG I FEEL O.* 300.THERE NEVER WAS A TIME IN MY LIFE WHEN I LIKED TO PLAY WITH DOLLS.* 301.LIFE IS A STRAIN FOR ME MUCH OF THE TIME.* 302.I HAVE NEVER BEEN IN TROUBLE BECAUSE OF MY SEX BEHAVIOR.* 303.I AM SO TOUCHY ON SOME SUBJECTS THAT I CAN'T TALK ABOUT THEM.* 304.IN SCHOOL I FOUND IT VERY HARD TO TALK BEFORE THE CLASS.* 305.EVEN WHEN I AM WITH PEOPLE I FEEL LONELY MUCH OF THE TIME.* 306.I GET ALL THE SYMPATHY I SHOULD.* 307.I REFUSE TO PLAY SOME GAMES BECAUSE I AM NOT GOOD AT THEM.* 308.AT TIMES I H ME FOR DAYS.* 360.ALMOST EVERY DAY SOMETHING HAPPENS TO FRIGHTEN ME.* 361.I AM INCLINED TO TAKE THINGS HARD.* 362.I AM MORE SENSITIVE THAN MOST OTHER PEOPLE.* 363.AT TIMES I HAVE ENJOYED BEING HURT BY SOMEONE I LOVED.* 364.PEOPLE SAY INSULTING AND V7.I HAVE SEVERAL TIMES GIVEN UP DOING A THING BECAUSE I THOUGHT TOO LITTLE OF MY ABILITY.* 358.BAD WORDS, OFTEN TERRIBLE WORDS, COME INTO MY MIND AND I CANNOT GET RID OF THEM.* 359.SOMETIMES SOME UNIMPORTANT THOUGHT WILL RUN THROUGH MY MIND AND BOTHERYSELF WHERE OTHER PEOPLE HAVE ALREADY GATHERED AND ARE TALKING.* 354.I AM AFRAID OF USING A KNIFE OR ANYTHING VERY SHARP OR POINTED.* 355.SOMETIMES I ENJOY HURTING PERSONS I LOVE.* 356.I HAVE MORE TROUBLE CONCENTRATING THAN OTHERS SEEM TO HAVE.* 35UGHTS.* 350.I HEAR STRANGE THINGS WHEN I AM ALONE.* 351.I GET ANXIOUS AND UPSET WHEN I HAVE TO MAKE A SHORT TRIP AWAY FROM HOME.* 352.I HAVE BEEN AFRAID OF THINGS OR PEOPLE THAT I KNEW COULD NOT HURT ME.* 353.I HAVE NO DREAD OF GOING INTO A ROOM BY MTHAT ARE NOT IMPORTANT SUCH AS BULBS ON ELECTRIC SIGNS, AND SO FORTH.* 347.I HAVE NO ENEMIES WHO REALLY WISH TO HARM ME.* 348.I TEND TO BE ON MY GUARD WITH PEOPLE WHO ARE SOMEWHAT MORE FRIENDLY THAN I HAD EXPECTED.* 349.I HAVE STRANGE AND PECULIAR THOHAT PEOPLE SAY TO ME.* 343.I USUALLY HAVE TO STOP AND THINK BEFORE I ACT EVEN IN TRIFLING MATTERS.* 344.OFTEN I CROSS THE STREET IN ORDER NOT TO MEET SOMEONE I SEE.* 345.I OFTEN FEEL AS IF THINGS WERE NOT REAL.* 346.I HAVE A HABIT OF COUNTING THINGS I HAVE CERTAINLY HAD MORE THAN MY SHARE OF THINGS TO WORRY ABOUT.* 339.MOST OF THE TIME I WISH I WERE DEAD.* 340.SOMETIMES I BECOME SO EXCITED THAT I FIND IT HARD TO GET TO SLEEP.* 341.AT TIMES I HEAR SO WELL IT BOTHERS ME.* 342.I FORGET RIGHT AWAY W HAVE NO COLD.* 333.NO ONE SEEMS TO UNDERSTAND ME.* 334.PECULIAR ODORS COME TO ME AT TIMES.* 335.I CANNOT KEEP MY MIND ON ONE THING.* 336.I EASILY BECOME IMPATIENT WITH PEOPLE.* 337.I FEEL ANXIETY ABOUT SOMETHING OR SOMEONE ALMOST ALL THE TIME.* 338.* 329.I ALMOST NEVER DREAM.* 330.I HAVE NEVER BEEN PARALYZED OR HAD ANY UNUSUAL WEAKNESS OR ANY OF MY MUSCLES.* 331.IF PEOPLE HAD NOT HAD IT IN FOR ME I WOULD HAVE BEEN MUCH MORE SUCCESSFUL.* 332.SOMETIMES MY VOICE LEAVES ME OR CHANGES EVEN THOUGH IILY HAVE DONE HAVE FRIGHTENED ME.* 326.AT TIMES I HAVE FITS OF LAUGHING AND CRYING THAT I CANNOT CONTROL.* 327.MY MOTHER OR FATHER OFTEN MADE ME OBEY EVEN WHEN I THOUGHT THAT IT WAS UNREASONABLE.* 328.I FIND IT HARD TO KEEP MY MIND ON A TASK OR JOB..* 320.MANY OF MY DREAMS ARE ABOUT SEX MATTERS.* 321.I AM EASILY EMBARRASSED.* 322.I WORRY OVER MONEY AND BUSINESS.* 323.I HAVE HAD VERY PECULIAR AND STRANGE EXPERIENCES.* 324.I HAVE NEVER BEEN IN LOVE WITH ANYONE.* 325.THE THINGS THAT SOME OF MY FAM THINK NEARLY ANYONE WOULD TELL A LIE TO KEEP OUT OF TROUBLE.* 317.I AM MORE SENSITIVE THAN MOST OTHER PEOPLE.* 318.MY DAILY LIFE IS FULL OF THINGS THAT KEEP ME INTERESTED.* 319.MOST PEOPLE INWARDLY DISLIKE PUTTING THEMSELVES OUT TO HELP OTHER PEOPLETHE MAN WHO PROVIDES TEMPTATION BY LEAVING VALUABLE PROPERTY UNPROTECTED IS ABOUT AS MUCH TO BLAME FOR ITS THEFT AS THE ONE WHO STEALS IT.* 314.ONCE IN A WHILE I THINK OF THINGS TOO BAD TO TALK ABOUT.* 315.I AM SURE I GET A RAW DEAL FROM LIFE.* 316.IAVE VERY MUCH WANTED TO LEAVE HOME.* 309.I SEEM TO MAKE FRIENDS ABOUT AS QUICKLY AS OTHERS DO.* 310.MY SEX LIFE IS SATISFACTORY.* 311.DURING ONE PERIOD WHEN I WAS A YOUNGSTER I ENGAGED IN PETTY THIEVERY.* 312.I DISLIKE HAVING PEOPLE ABOUT ME.* 313.ULGAR THINGS ABOUT ME.* 365.I FEEL UNEASY INDOORS.* 366.EVEN WHEN I AM WITH PEOPLE I FEEL LONELY MUCH OF THE TIME.* 367.I AM NOT AFRAID OF FIRE.* 368.I HAVE SOMETIMES STAYED AWAY FROM ANOTHER PERSON BECAUSE I FEARED DOING OR SAYING SOMETHING THAT I MIGHT REGRET AFTERWARDS.* 369.RELIGION GIVES ME NO WORRY.* 370.I HATE TĬİĶijijʭĥĪıķɧʭİİĦĭĭķĠĬİİO STICK TO ONE OF THEM FOR A LONG TIME. 422.I HAVE FELT EMBARRASSED OVER THE TYPE OF WORK THAT ONE OR MORE MEMBERS OF MY FAMILY HAVE DONE.* 423.I LIKE OR HAVE LIKED FISHING VERY MUCH.* 424.I FEEL HUNGRY ALMOST ALL THE TIME.* 425.I DREAM FREQUENTLY.* 426.I HAVE AT TIMES HAD TO BE ROUGH WITHLE THAT I SPEAK TO HIM ABOUT IT.* 418.AT TIMES I THINK I AM NO GOOD AT ALL.* 419.I PLAYED HOOKY FROM SCHOOL QUITE OFTEN AS A YOUNGSTER.* 420.I HAVE HAD SOME VERY UNUSUAL RELIGIOUS EXPERIENCES.* 421.ONE OR MORE MEMBERS OF MY FAMILY IS VERY NERVOUS.* OUT OF MY MIND.* 415.IF GIVEN THE CHANCE I WOULD MAKE A GOOD LEADER OF PEOPLE.* 416.IT BOTHERS ME TO HAVE SOMEONE WATCH ME AT WORK EVEN THOUGH I KNOW I CAN DO IT WELL.* 417.I AM OFTEN SO ANNOYED WHEN SOMEONE TRIES TO GET AHEAD OF ME IN A LINE OF PEOPEL LIKE A FAILURE WHEN I HEAR OF THE SUCCESS OF SOMEONE I KNOW WELL.* 412.I DO NOT DREAD SEEING A DOCTOR ABOUT A SICKNESS OR INJURY.* 413.I DESERVE SEVERE PUNISHMENT FOR MY SINS.* 414.I AM APT TO TAKE DISAPPOINTMENTS SO KEENLY THAT I CAN'T PUT THEM TO HIDE MY FEELINGS IN SOME THINGS, TO THE POINT THAT PEOPLE MAY HURT ME WITHOUT THEIR KNOWING ABOUT IT.* 409.AT TIMES I HAVE WORN MYSELF OUT BY UNDERTAKING TOO MUCH.* 410.I WOULD CERTAINLY ENJOY BEATING A CROOK AT HIS OWN GAME.* 411.IT MAKES ME FEOD MY INTENTIONS WHEN I WAS TRYING TO PUT THEM RIGHT AND BE HELPFUL.* 405.I HAVE NO TROUBLE SWALLOWING.* 406.I HAVE OFTEN MET PEOPLE WHO WERE SUPPOSED TO BE EXPERTS WHO WERE NO BETTER THAN I.* 407.I AM USUALLY CALM AND NOT EASILY UPSET.* 408.I AM APTS THAT WOULD BE OF GREAT BENEFIT TO THE WORLD.* 401.I HAVE NO FEAR OF WATER.* 402.I OFTEN MUST SLEEP OVER A MATTER BEFORE I DECIDE WHAT TO DO.* 403.IT IS GREAT TO BE LIVING IN THESE TIMES WHEN SO MUCH IS GOING ON.* 404.PEOPLE HAVE OFTEN MISUNDERSTO'T CARE ABOUT ANYTHING.* 397.I HAVE SOMETIMES FELT THAT DIFFICULTIES WERE PILING UP SO HIGH THAT I COULD NOT OVERCOME THEM.* 398.I OFTEN THINK, "I WISH I WERE A CHILD AGAIN."* 399.I AM NOT EASILY ANGERED.* 400.IF GIVEN THE CHANCE I COULD DO SOME THINGFIES ME.* 393.HORSES THAT DON'T PULL SHOULD BE BEATEN OR KICKED.* 394.I FREQUENTLY ASK PEOPLE FOR ADVICE.* 395.THE FUTURE IS TOO UNCERTAIN FOR A PERSON TO MAKE SERIOUS PLANS.* 396.OFTEN, EVEN THOUGH EVERYTHING IS GOING FINE FOR ME, I FEEL THAT I DON 389.MY PLANS HAVE FREQUENTLY SEEMED SO FULL OF DIFFICULTIES THAT I HAVE HAD TO GIVE THEM UP.* 390.I HAVE OFTEN FELT BADLY OVER BEING MISUNDERSTOOD WHEN TRYING TO KEEP SOMEONE FROM MAKING A MISTAKE.* 391.I LOVE TO GO TO DANCES.* 392.A WINDSTORM TERRIANYONE ALL ABOUT MYSELF.* 385.LIGHTNING IS ONE OF MY FEARS.* 386.I LIKE TO KEEP PEOPLE GUESSING WHAT I'M GOING TO DO NEXT.* 387.THE ONLY MIRACLES I KNOW OF ARE SIMPLY TRICKS THAT PEOPLE PLAY ON ONE ANOTHER.* 388.I AM AFRAID TO BE ALONE IN THE DARK.* HING I KNOW ABOUT, I TRY TO SET HIM RIGHT.* 381.I AM OFTEN SAID TO BE HOTHEADED.* 382.I WISH I COULD GET OVER WORRYING ABOUT THINGS I HAVE SAID THAT MAY HAVE INJURED OTHER PEOPLE'S FEELINGS.* 383.PEOPLE OFTEN DISAPPOINT ME.* 384.I FEEL UNABLE TO TELL AT PARTIES I AM MORE LIKELY TO SIT BY MYSELF OR WITH JUST ONE OTHER PERSON THAN TO JOIN IN WITH THE CROWD.* 378.I DO NOT LIKE TO SEE WOMEN SMOKE.* 379.I VERY SELDOM HAVE SPELLS OF THE BLUES.* 380.WHEN SOMEONE SAYS SILLY OR IGNORANT THINGS ABOUT SOMET* 373.I FEEL SURE THAT THERE IS ONLY ONE TRUE RELIGION.* 374.AT PERIODS MY MIND SEEMS TO WORK MORE SLOWLY THAN USUAL.* 375.WHEN I AM FEELING VERY HAPPY AND ACTIVE, SOMEONE WHO IS BLUE OR LOW WILL SPOIL IT ALL.* 376.POLICEMEN ARE USUALLY HONEST.* 377. PEOPLE WHO WERE RUDE OR ANNOYING.* 427.I AM EMBARRASSED BY DIRTY STORIES.* 428.I LIKE TO READ NEWSPAPER EDITORIALS.* 429.I LIKE TO ATTEND LECTURES ON SERIOUS SUBJECTS.* 430.I AM ATTRACTED BY MEMBERS OF THE OPPOSITE SEX.* 431.I WORRY QUITE A BIT OVER POSSIBLE MISFORTUNES.* 432.I HAVE STRONG POLITICAL OPINIONS.* 433.I USED TO HAVE IMAGINARY COMPANIONS.* 434.I WOULD LIKE TO BE AN AUTO RACER.* 435.USUALLY I WOULD PREFER TO WORK WITH WOMEN.* 436.PEOPLE GENERALLY DEMAND MORE RESPECT FOR THEIR OWN RIGVE ONE OR MORE FAULTS WHICH ARE SO BIG THAT IT SEEMS BETTER TO ACCEPT THEM AND TRY TO CONTROL THEM RATHER THAN TO TRY TO GET RID OF THEM.* 485.WHEN A MAN IS WITH A WOMAN HE IS USUALLY THINKING ABOUT THINGS RELATED TO SEX.* 486.I HAVE NEVER NOTICED ANYING STRANGERS.* 480.I AM OFTEN AFRAID OF THE DARK.* 481.I CAN REMEMBER "PLAYING SICK" TO GET OUT OF SOMETHING.* 482.WHILE IN TRAINS, BUSSES, ETC., I OFTEN TALK TO STRANGERS.* 483.CHRIST PERFORMED MIRACLES SUCH AS CHANGING WATER INTO WINE.* 484.I HAIN TROUBLE WITH SEVERAL FRIENDS WHO WERE EQUALLY TO BLAME, I WOULD RATHER TAKE THE WHOLE BLAME THAN TO GIVE THEM AWAY.* 478.I HAVE NEVER BEEN MADE ESPECIALLY NERVOUS OVER TROUBLE THAT ANY MEMBERS OF MY FAMILY HAVE GOTTEN INTO.* 479.I DO NOT MIND MEETTED BY FIRE.* 473.WHENEVER POSSIBLE I AVOID BEING IN A CROWD.* 474.I HAVE TO URINATE NO MORE OFTEN THAN OTHERS.* 475.WHEN I AM CORNERED I TELL THAT PORTION OF THE TRUTH WHICH IS NOT LIKELY TO HURT ME.* 476.I AM A SPECIAL AGENT OF GOD.* 477.IF I WERE E I AM SO CROSS AND GROUCHY.* 469.I HAVE OFTEN FOUND PEOPLE JEALOUS OF MY GOOD IDEAS, JUST BECAUSE THEY HAD NOT THOUGHT OF THEM FIRST.* 470.SEXUAL THINGS DISGUST ME.* 471.IN SCHOOL MY MARKS IN DEPORTMENT WERE QUITE REGULARLY BAD.* 472.I AM FASCINAAVE SEVERAL TIMES HAD A CHANGE OF HEART ABOUT MY LIFE WORK.* 466.EXCEPT BY A DOCTOR'S ORDERS I NEVER TAKE DRUGS OR SLEEPING POWDERS.* 467.I OFTEN MEMORIZE NUMBERS THAT ARE NOT IMPORTANT (SUCH AS AUTOMOBILE LICENSES,ETC.).* 468.I AM OFTEN SORRY BECAUSOL MODERATELY(OR NOT AT ALL).* 461.I FIND IT HARD TO SET ASIDE A TASK THAT I HAVE UNDERTAKED, EVEN FOR A SHORT TIME.* 462.I HAVE HAD NO DIFFICULTY STARTING OR HOLDING MY URINE.* 463.I USED TO LIKE HOPSCOTCH.* 464.I HAVE NEVER SEEN A VISION.* 465.I H DRINK.* 458.THE MAN WHO HAD MOST TO DO WITH ME WHEN I WAS A CHILD (SUCH AS MY FATHER,STEPFATHER,ETC.) WAS VERY STRICT WITH ME.* 459.I HAVE ONE OR MORE BAD HABITS WHICH ARE SO STRONG THAT IT IS NO USE IN FIGHTING AGAINST THEM.* 460.I HAVE USED ALCOH THE WOODS OR MOUNTAINS.* 455.I AM QUITE OFTEN NOT IN ON THE GOSSIP AND TALK OF THE GROUP I BELONG TO.* 456.A PERSON SHOULDN'T BE PUNISHED FOR BREAKING A LAW THAT HE THINKS IS UNREASONABLE.* 457.I BELIEVE THAT A PERSON SHOULD NEVER TASTE AN ALCOHOLICF A CROWD.* 451.MY WORRIES SEEM TO DISAPPEAR WHEN I GET INTO A CROWD OF LIVELY FRIENDS.* 452.I LIKE TO POKE FUN AT PEOPLE.* 453.WHEN I WAS A CHILD I DIDN'T CARE TO BE A MEMBER OF A CROWD OR GANG.* 454.I COULD BE HAPPY LIVING ALL ALONE IN A CABIN IN M OFTEN INCLINED TO GO OUT OF MY WAY TO WIN A POINT WITH SOMEONE WHO HAS OPPOSED ME.* 448.I AM BOTHERED BY PEOPLE OUTSIDE, ON STREETCARS, IN STORES, ECT.,WATCHING ME.* 449.I ENJOY SOCIAL GATHERINGS JUST TO BE WITH PEOPLE.* 450.I ENJOY THE EXCITEMENT O BECAUSE OTHERS FEEL THAT I AM NOT GOING ABOUT IT IN THE RIGHT WAY.* 444.I DO NOT TRY TO CORRECT PEOPLE WHO EXPRESS AN IGNORANT BELIEF.* 445.I WAS FOND OF EXCITEMENT WHEN I WAS YOUNG(OR IN CHILDHOOD).* 446.I ENJOY GAMBLING FOR SMALL STAKES.* 447.I AE DONE.* 439.IT MAKES ME NERVOUS TO HAVE TO WAIT.* 440.I TRY TO REMEMBER GOOD STORIES TO PASS THEM ON TO OTHER PEOPLE.* 441.I LIKE TALL WOMEN.* 442.I HAVE HAD PERIODS IN WHICH I LOST SLEEP OVER WORRY.* 443.I AM APT TO PASS UP SOMETHING I WANT TO DO HTS THAN THEY ARE WILLING TO ALLOW FOR OTHERS.* 437.IT IS ALL RIGHT TO GET AROUND THE LAW IF YOU DON'T ACTUALLY BREAK IT.* 438.THERE ARE CERTAIN PEOPLE WHOM I DISLIKE SO MUCH THAT I AM INWARDLY PLEASED WHEN THEY ARE CATCHING IT FOR SOMETHING THEY HAV BLOOD IN MY URINE.* 487.I FEEL LIKE GIVING UP QUICKLY WHEN THINGS GO WRONG.* 488.I PRAY SEVERAL TIMES EVERY WEEK.* 489.I FEEL SYMPATHETIC TOWARDS PEOPLE WHO TEND TO HANG ON TO THEIR GRIEFS AND TROUBLES.* 490.I READ IN THE BIBLE SEVERAL TIMES A WEEK.* 491.I HAVE NO PATIENCE WITH PEOPLE WHO BELIEVE THERE IS ONLY ONE TRUE RELIGION.* 492.I DREAD THE THOUGHT OF AN EARTHQUAKE.* 493.I PREFER WORK WHICH REQUIRES CLOSE ATTENTION, TO WORK WHICH ALLOWS ME TO BE CARELESS.* 494.I AM AFRAID OF FINDING MYSELF GOOD DEAL OF THE TIME.* 545.SOMETIMES I HAVE THE SAME DREAM OVER AND OVER.* 546.I LIKE TO READ ABOUT HISTORY.* 547.I LIKE PARTIES AND SOCIALS.* 548.I NEVER ATTEND A SEXY SHOW IF I CAN AVOID IT.* 549.I SHRINK FROM FACING A CRISIS OR DIFFICULTY.* 550Y FACE HAS NEVER BEEN PARALYZED.* 541.MY SKIN SEEMS TO BE UNUSUALLY SENSITIVE TO TOUCH.* 542.I HAVE NEVER HAD ANY BLACK, TARRY-LOOKING BOWEL MOVEMENTS.* 543.SEVERAL TIMES A WEEK I FEEL AS IF SOMETHING DREADFUL IS ABOUT TO HAPPEN.* 544.I FEEL TIRED AUP TRYING TO DO A THING.* 535.MY MOUTH FEELS DRY ALMOST ALL THE TIME.* 536.IT MAKES ME ANGRY TO HAVE PEOPLE HURRY ME.* 537.I WOULD LIKE TO HUNT LIONS IN AFRICA.* 538.I THINK I WOULD LIKE THE WORK OF A DRESSMAKER.* 539.I AM NOT AFRAID OF MICE.* 540.MLY CHANGE ME EVEN THOUGH I THOUGHT THAT MY MIND WAS ALREADY MADE UP ON A SUBJECT.* 532.I CAN STAND AS MUCH PAIN AS OTHERS CAN.* 533.I AM NOT BOTHERED BY A GREAT DEAL OF BELCHING OF GAS FROM MY STOMACH.* 534.SEVERAL TIMES I HAVE BEEN THE LAST TO GIVE ELESS TO ME.* 527.THE MEMBERS OF MY FAMILY AND MY CLOSE RELATIVES GET ALONG QUITE WELL.* 528.I BLUSH NO MORE OFTEN THAN OTHERS.* 529.I WOULD LIKE TO WEAR EXPENSIVE CLOTHES.* 530.I AM OFTEN AFRAID THAT I AM GOING TO BLUSH.* 531.PEOPLE CAN PRETTY EASI GIVE AN OPINION ABOUT SOMETHING I KNOW WELL.* 522.I HAVE NO FEAR OF SPIDERS.* 523.I PRACTICALLY NEVER BLUSH.* 524.I AM NOT AFRAID OF PICKING UP A DISEASE OR GERMS FROM DOOR KNOBS.* 525.I AM MADE NERVOUS BY CERTAIN ANIMALS.* 526.THE FUTURE SEEMS HOPD TO FEEL MORE SORRY ABOUT SOMETHING THAN I REALLY WAS.* 519.THERE IS SOMETHING WRONG WITH MY SEX ORGANS.* 520.I STRONGLY DEFEND MY OWN OPINIONS AS A RULE.* 521.IN A GROUP OF PEOPLE I WOULD NOT BE EMBARRASSED TO BE CALLED UPON TO START A DISCUSSION OR 514.I LIKE MANNISH WOMEN.* 515.IN MY HOME WE HAVE ALWAYS HAD THE ORDINARY NECESSITIES(SUCH AS ENOUGH FOOD,CLOTHING,ETC.).* 516.SOME OF MY FAMILY HAVE QUICK TEMPERS.* 517.I CANNOT DO ANYTHING WELL.* 518.I HAVE OFTEN FELT GUILTY BECAUSE I HAVE PRETENDEIND IT HARD TO STICK UP FOR MY RIGHTS BECAUSE I AM SO RESERVED.* 510.DIRT FRIGHTENS OR DISGUSTS ME.* 511.I HAVE A DAYDREAM LIFE ABOUT WHICH I DO NOT TELL OTHER PEOPLE.* 512.I DISLIKE TO TAKE A BATH.* 513.I THINK LINCOLN WAS GREATER THAN WASHINGTON.* 507.I HAVE FREQUENTLY WORKED UNDER PEOPLE WHO SEEM TO HAVE THINGS ARRANGED SO THAT THEY GET CREDIT FOR GOOD WORK BUT ARE ABLE TO PASS OFF MISTAKES ONTO THOSE UNDER THEM.* 508.I BELIEVE MY SENSE OF SMELL IS AS GOOD AS OTHER PEOPLE'S.* 509.I SOMETIMES FS OF OTHERS.* 504.I DO NOT TRY TO COVER UP MY POOR OPINION OR PITY OF A PERSON SO THAT HE WON'T KNOW HOW I FEEL.* 505.I HAVE HAD PERIODS WHEN I FELT SO FULL OF PEP THAT SLEEP DID NOT SEEM NECESSARY FOR DAYS AT A TIME.* 506.I AM A HIGH-STRUNG PERSON.* PER CENT SOLD ON A GOOD IDEA.* 501.I USUALLY WORK THINGS OUT FOR MYSELF RATHER THAN GET SOMEONE TO SHOW ME HOW.* 502.I LIKE TO LET PEOPLE KNOW WHERE I STAND ON THINGS.* 503.IT IS UNUSUAL FOR ME TO EXPRESS STRONG APPROVAL OR DISAPPROVAL OF THE ACTIONKE IT LOOK LIKE ONE OBJECT).* 497.I ENJOY STORIES OF ADVENTURE.* 498.IT IS ALWAYS A GOOD THING TO BE FRANK.* 499.I MUST ADMIT THAT I HAVE AT TIMES BEEN WORRIED BEYOND REASON OVER SOMETHING THAT REALLY DID NOT MATTER.* 500.I READILY BECOME ONE HUNDREDIN A CLOSET OR SMALL CLOSED PLACE.* 495.I USUALLY "LAY MY CARDS ON THE TABLE" WITH PEOPLE THAT I AM TRYING TO CORRECT OR IMPROVE.* 496.I HAVE NEVER SEEN THINGS DOUBLED (THAT IS, AN OBJECT NEVER LOOKS LIKE TWO OBJECTS TO ME WITHOUT MY BEING ABLE TO MA.I LIKE REPAIRING A DOOR LATCH.* 551.SOMETIMES I AM SURE THAT OTHER PEOPLE CAN TELL WHAT I AM THINKING.* 552.I LIKE TO READ ABOUT SCIENCE.* 553.I AM AFRAID OF BEING ALONE IN A WIDE-OPEN PLACE.* 554.IF I WERE AN ARTIST I WOULD LIKE TO DRAW CHILDREN.* 555.I SOMETIMES FEEL THAT I AM ABOUT TO GO TO PIECES.* 556.I AM VERY CAREFUL ABOUT MY MANNER OF DRESS.* 557.I WOULD LIKE TO BE A PRIVATE SECRETARY.* 558.A LARGE NUMBER OF PEOPLE ARE GUILTY OF BAD SEXUAL CONDUCT.* 559.I HAVE OFTEN BEEN FRIGHTENED IN TJ J JJ    JJJ J JJ J             JJ                       JJJ JJJJJJ JJJ     JJJJJJJJJ    NPQ%ST+VW4:@"G$%M'(S*֫٭\0b2sh5vo8u  ).7 !E$K&N)T+׬[!#%ӨԪ,/1۸:=?I%K&M'D#H%LP+-/15JJJ O $S(U,âǤK&N(RVZ^0bsuw9uR JMP"&148?B"F$%'P)T+,^b2sump߯//////\X+T)P'LH#Dد֫"     ʖ #&U-W0Y7\:^_AabdJ&giTk,.^1e3hk KM    " JJJJJJJJJ            JO         JJJe     JJJJ            ʔ           У',048<@            JJJ J JJ     SYSTEM.WR JJ J              JJ                        JJJ JJJJJJ JJJ57:=?A!CE#G$I%KM'OQS*U+WY-[]/_0      $T,W8?ƤLS,0:>B$LP)T+X-\/`1d3h5l7N#&*.ٵ=@!D#H˦(J "+W0[9> bG%)V0d57r:wѦ C#I&O)U,[/a247:ʔ  ϡ&ԫ0:޿ D#ɥ(S-]02g5̚͜!#%')+V-W/X1Y3JJ           J       J  J J J                                     JJJJ       ^C^C ^3.I LIKE ADVENTURE STORIES BETTER THAN ROMANTIC STORIES.* 564.I AM APT TO PASS UP SOMETHING I WANT TO DO WHEN OTHERS FEEL THAT IT ISN'T WORTH DOING.* 565.I FEEL LIKE JUMPING OFF WHEN I AM ON A HIGH PLACE.* 566.I LIKE MOVIE LOVE SCENES.* ^)* 563.I LIKE ADVENTURE STORIES BETTER THAN ROMANTIC STORIES.* 564.I AM APT TO PASS UP SOMETHING I WANT TO DO WHEN OTHERS FEEL THAT IT ISN'T WORTH DOING.* 565.I FEEL LIKE JUMPING OFF WHEN I AM ON A HIGH PLACE.* 566.I LIKE MOVIE LOVE SCENES.* HE MIDDLE OF THE NIGHT.* 560.I AM GREATLY BOTHERED BY FORGETTING WHERE I PUT THINGS.* 561.I VERY MUCH LIKE HORSEBACK RIDING.* 562.THE ONE TO WHOM I WAS MOST ATTACHED AND WHOM I MOST ADMIRED AS A CHILD WAS A WOMAN. (MOTHER,SISTER,AUNT,OR OTHER WOMAN.        J J          JJJJ     hJJJ                      JJ    ʕKQ)VX4C#%MҪX/b2gqvJJJ"R,WY5:^ D%M(R*,.`j68t;x   #&*VW8< $K&N(R*-/`1dh58s  ۹ţI%LPiTkXm\/`qdshulwJJ JJM $(,048<@acegikmoq35n::  "&*.[_!ţIL'P)T+X-\/0*INTERPMMINITIALIMAKETSCO -\צ!PLACE THE CORRECT PATIENT DISK IN!DRIVE #1 AND PRESS THE "CTRL" ANDצRESET KEYS AT THE SAME TIME.צ*******************************************7צ #5:MMPISCAL1 #5:MMPISCORE#4:MMENU >-ONE MOMENT PLEASE ... )צ(****************************************צ!PLACE THE CORRECT PATIENT DISK IN!DRIVE #1 AND PRESS THE "CTRL" ANDצRESET KEYS AT THE SAME TIME.צ********************ELONGSצTO: آ צ$IS THIS THE CORRECT PATIENT? [Y/N]: צ'***************************************$ NáECORD#DISK IN DRIVE #1 AND HIT THE RETURNצKEY.צ "áצ'***************************************#THE RECORD DISK IN DRIVE #1 B to make a selection.(-(#ER +ء" Ɓ- #4:IDRECORD"ˡצ%A PATIENT DISK IS NEEDED IN DRIVE #1.$PLACE THE APPROPRIATE PATIENT R%Press one of the highlighted letters צabove to make your selection.(p pצ#Please try again. Press one of the "letters above E ENTER RAW SCALE SCORESצ Rצ RESULTSצ Mצ MASTER MENUc screening purposesצ(and to obtain information on personalityצ%style that may be useful in treatment planning.צSELECT AN OPTION: צ" MMPI - PERSONALITY QUESTIONNAIRE ' The Minnesota Multiphasic Personalityצ(Inventory (MMPI) is an objective person-צ'ality questionnaire that is frequently 'used for psychiatri: MMPISTAR 24w"&TVXZܻ?!DH%LPT-ݯ1ehJJJ        ̛%.ر58>!E#H%&N(UW#%Ө*-ׯ47ܹݼ^>Aaâ#H%K&'ШRLPƃƄ*ƁVNƃצ #4:IDRECORD"ˡ* #4:MMPI.SCOREʃ P*JP b̄ƄPƄצ/QƄ*KTƄP*MP b̄ƄbPƄ/QƄǡƄPʃ9P *̄ʄ7<ȡ/&ة/&šI/&/& ݓ ȡ/f ة/f ɡI/f#ǁ 앫ɡ# š#Ǖ <ť>ń#  Eť2Ʉ#Ǒ !c 앫ɡdp š!d( Eť2Ʉ!h  -ɡOȡEš    ȡȡ"O"  -ɡMȡEšצ    PXNbYXYȡ#ZZPZ QZPXX/YYPYǠYbYP/X  9XXYXYȡXX  ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀ8  Ƃ 3 Ƃ 9 Ƃ¥ :Ƃी(ƂDƃ'ƅA?슐+ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀo6 Ƃ 3 Ƃ 9 Ƃ¥ :Ƃी(ƂDƃ'ƅA?슐+)>슐0 B   S L>슐(hFݡƂC?슐&ƂW.Ɔ6Ƈbƃ,ƄXƀƁNjƀ#5:NVALUES.DATAƀʀƀƃ,צ#5:MVALUES.DATAƃ,ƂCʃ,ƃ,Ɔ6צ#5:FVALUES.DATAƆ6ƅAʆ6Ɔ6 ƃ*O| "ʄ7ʄ7ʄ7ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7ʄ7 ʄ7 ʄ7 *7 *7*IMáݹݩݓ/ #5:INTPARFE/ #5:INTPARAM"ˡ/̄̄ʄȡ"ʄ *ƃʄ7 ʄ7ʄ7ʄ7ʄ7ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ /f  <J ȡɡݡ/ȡgۢáGۢۢ n   ȡš  ȡ"ń /%ȡܢ>%ܢ>%ÄGܢ>%ܢ>%ʄ7ʄ7ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7ʄ7 ʄ7 ƃƃʃ P*JP `̄ƄPƄ/QƄ*KTƄP*MP `̄Ƅ`PƄצ/QƄǡƄPʃ7P *̄ʄ7ʄ7 ʄ7ʄ7ƃƄ*ƁVNƃצ #4:IDRECORD"ˡ* #4:MMPI.SCORE"ˡצ&A MMPI data file has not been saved onצthis Patient Record Disk.צ Please press  SPACE BARצ:   MMPISCORINITIALIMAKETSCOCHECKPRI KZN Nz/[3 צ #4:MMENU.CODEצONE MOMENT PLEASE ... N/ B& D > &  צ SPACE BAR when completed: &צINTERPPšj צPress צ SPACE BAR to move on.(צPRINTER:  KZN Nz/[3 צ #4:MMENU.CODEצONE MOMENT PLEASE ... N/ B&ress צ SPACE BAR when completed: &צINTERPPšj צPress צ SPACE BAR to move on.(צPRINTER:  ......ݡ DISK PROMPT:&Remove the MMPI SCORING Disk from Disk$Drive #2 and insert the MMPI INTERP-RETIVE TEXT Disk.צP2́3///!ʁ2 ʁ2!ɍ/ʁ2*+Í+áH,,+ئINTERPׯ0,.ئQUESׯ0,.ʁ2*áצINTERPwyj Ɓ- SCORING+0,.צQUES,+0,./Ɓ0צ  ́30+́2Ɓ0ʁ2++ʁ2#ʁ2Ɓ4˄ʁ2*˄ Ɓ0ʁ2 ʁ2ǍÍʁ3 Ó ́2ʁ2ʁ2Ʉʁ2*ʁ2Ɓ4ÍAʁ2#á/%ʁ2 /Äʁ2ʁg   Ɓ.ئINTERPׯצ #5:DFILE.DATA"-"ˡ]צPUT MMPI INTERPRETATION DISK INDRIVE 2 AND HIT RETURN. -áƁ4 Ɓ4 ́6ʁ6ȡצINTERP., ݡȡnܢFɄGܢܢ ÄEńEńIݡ#e !ʄ7 *IMá۹۩ۓ-צ #5:INTPARFE-צ #5:INTPARAM"ˡ-̄̄ʄȡ"ʄ *ƃƃ*P| ʄ7ʄ7Ɔ6Ƈbƃ,ƄXƀƁNjƀ#5:NVALUES.DATAƀʀƀƃ,צ#5:MVALUES.DATAƃ,ƂCʃ,ƃ,Ɔ6צ#5:FVALUES.DATAƆ6ƅAʆ6Ɔ6 ǴX ÍpǷצT SCORES&3dXLPRINTER: ȡLLLD THE INTERPRETIVE TEXT THAT FOLLOWS REPRESENTS A "BLIND" ASSESSMENT,,ȡ ",,ȡ ?LP_FPXKPQP C0P<RP5EP.AP' FA<79;=?ACEG;61,,,ȡ_?"ɡ"Ǵš Lܡ LPress  SPACE BARצ to move on.( wXd,,ȡ/?P  ǿ3 áٳL>ꊐ    ܡLLLL LL L LLצ L תPצMMPI SCALE SCORES צ(----------------------------------------צ SCORES: RAW K ADJ T SCORE,,ȡáٳ?ꊐáٳ>ꊐ á á--------------------LLLۡ%LLMALEL%LLצFEMALELLLL$SCORES: RAW K ADJ. T SCORESLL ܡ LPRINTER: תPȡLLL#MMPI RESULTS LצADMINISTRATION DATE: L`LLLLLNAME: LLLצ# ----------ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀ צ&DO YOU WANT A COPY OF THE RESULTS SENTצTO THE PRINTER? [Y/N]: (Yáܹ+ Dƃ'ƅA?ꊐ+ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀ8  Ƃ 3 Ƃ 9 Ƃ¥ :Ƃी(ƂDƃ'ƅA?ꊐ+ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀo6 Ƃ 3 Ƃ 9 Ƃ¥ :Ƃी(ƂDƃ'ƅA?ꊐ+)>ꊐ0 B   S L>ꊐ(hFۡƂC?ꊐ&ƂW.ƞLLLצCOF AN MMPI PROFILE AND EMPHASIZES ONLY ITS MOST PROMINENT FEATURES.LLLצ>IT IS BASED ON MODAL CHARACTERISTICS OF GROUPS OF PSYCHIATRIC LLL>PATIENTS AND SHOULD BE APPLIED CONSERVATIVELY WITH MEDICAL ANDLLLצCOUTPATIENT GROUPS. WHEN APPLIED TO AN INDIVIDUAL, IT SHOULD BE USEDLLLצCONLY AS A MEANS OF SUGGESTING POSSIBLE PERSONALITY CHARACTERISTICS,LLLצCTO SUlow and pressצthe RETURN key.MONTH {ex. JAN}: P ́LʁLȡƁ3 ءڢ %Please enter the date below and pressצthe RETURN key. and press the RETURN key.צYEAR {ex. 85}: ṔKʁKʁKdɄءڢʁKc Was the month ڢ ? [Y/N]: Náצ&Please enter the month be3  צOCT3  צNOV3  צDECƁ/ DATE.DATAADMINISTRATION DATE:צ Was the year  צ ? [Y/N]: Ná&Please enter the year below THIS DATA FILE? [Y/N]: YˡW3 צJAN3 צFEB3 צMAR3 צAPR3 צMAY3 צJUN3 צJUL3 צAUG3  צSEPESCצ to exit.á Wצ #4:MMPI.SCORE"á צ'A MMPI data file has already been savedon the Patient Record Disk.צ#DO YOU WISH TO WRITE OVERre calculated and the data is saved on(the Patient Record Disk. An MMPI profileis then ploted.Press  SPACE BARצ to begin or צ #5:CMENU.CODEצONE MOMENT PLEASE... Jצ MMPI SCALE SCORE ENTRY ' This program allows the user to enterצ(raw scale scores from the MMPI. T-scoresצ'a MMPISCAL #4:MMENU צONE MOMENT PLEASE ... L-&+ l*R( "generated and sent to the printer.DO YOU WISH TO DO THIS? [Y/N]: &Yá #5:INTERPMMPIGܡBLצPRINTER:L LL LL Lx-Y1STS TEXT REFLECTING SINGLE SCALELLLצ:ELEVATIONS AND FINISHES WITH TEXT BASED ON A 2 POINT CODE.LL $An extended interpretive text can be"generated and sent to the printerLLLEFINAL INTERPRETATION OF THIS INFORMATION SHOULD ALWAYS BE CARRIED OUTLLL&BY AN APPROPRIATELY TRAINED CLINICIAN.LL+NLLצE THE INTERPRETATION ROUTINE FIRST LIPPLEMENT AND/OR VERIFY OTHER MEANS OF DIAGNOSIS, OR AS A BRIEFLLLצCSCREENING DEVICE. UNDER NO CIRCUMSTANCES SHOULD IT PROVIDE THE SOLELLLצ>SOURCE OF DIAGNOSIS OR GUIDE TO TREATMENT. THE INTIGRATION ANDDAY {ex. 31}: ṔKʁKʁK ɄءʁK ڢ  צ 19 צ!IS THIS THE CORRECT DATE? [Y/N]: YáWJWKڢWMcT[!.6) 3   0 : 'F(D*INTERPMMINITIALIMAKETSCO END. CLOSE(P);  END;  {*********************************************}  BEGIN "ERASE(0,23,0); " "MIN:=0; "XOFF:=14; " "INITIALIZE; " "MAKETSCORES; " "OUTGO; " "SETCHAIN('#4:MMENU.CODE'); "ERASE(0,23,23); "WRITE('ONE MOMENT PLEASE ... ');  " "IF POINTER>0 THEN $BEGIN %INTEXTOUT(FILENAME); %ERASE(0,23,23); %WRITE('Press ',CHR(15),'SPACE BAR',CHR(14),' to move on.'); %GOTOXY(40,0); %REPEAT UNTIL KEYPRESS; $END; $ "REWRITE(P,'PRINTER:'); "WRITELN(P,CHR(12)); "WRITELN(P,CHR(12)); "I SCORING Disk from Disk'); "WRITELN('Drive #2 and insert the MMPI INTERP-'); "WRITELN('RETIVE TEXT Disk.'); "WRITELN; "WRITE('Press ',CHR(15),'SPACE BAR',CHR(14),' when completed: '); "UNITCLEAR(1); "REPEAT UNTIL KEYPRESS; " "FILENAME:='INTERP'; ....'); # "CONVT; " "{IF (SCOREFILE^.ABORT=700) OR (SCOREFILE^.ABORT<566) THEN CALLCRIT;} $ "FORM; " "IF MALE THEN MISCMALE ELSE MISCFEMALE; # "GTLT; "LOWEST; "HIGHS; " "WRITELN; "WRITELN('DISK PROMPT:'); "WRITELN; "WRITELN('Remove the MMP WORD='*'; "WRITELN; !END; {FOR I:=1 TO POINTER} ! !IF PHILE ='INTERP' THEN CLOSE(DATA,LOCK)  END;  {********************************************} 1  PROCEDURE OUTGO;  "VAR P: TEXT; { PRINTER }  BEGIN "WRITELN; "WRITELN; "WRITELN ('SCORING..#UNTIL (WORD='*') OR (BUFINDEX=513); % #IF BUFINDEX=513 THEN $BEGIN &BUFNUM:=BUFNUM+1; &BUFINDEX:=1; &IF PHILE='INTERP' THEN BLOCK:=BLOCKREAD(DATA,BUFFER,1,BUFNUM); &IF PHILE='QUES' THEN BLOCK:=BLOCKREAD(QUESFILE,BUFFER,1,BUFNUM); $END; $ "UNTILWI#5:MMPISCORE.CODE.ONE MOMENT PLEASE ... W&r+ h  "7 6##ȡ"6"HXWW0xqFѥWNWצ #4:MMPI.SCOREצ #5:INTPARAM צ#Please enter sex of patient [M/F]: FÝMÍ"7"7"7 "7 "7 "7 "7  "7"7 "7 "7  ]: Pȡ!!Entry complete... W""7"7 "7"7"7'WIFá6+RAW SCALE SCORE ENTRY:%Enter each scale score as prmpted andצ press RETURN.""ȡ! Ѣ [max=LPƃƄ*ƁVNƃצ #4:IDRECORD"ˡ* #4:MMPI.SCOREʃ P*JP b̄ƄPƄצ/QƄ*KTƄP*MP b̄ƄbPƄ/QƄǡƄPʃ9P *̄ʄ7<ȡ/&ة/&šI/&/& ݓ ȡ/f ة/f ɡI/f#ǁ 앫ɡ# š#Ǖ <ť>ń#  Eť2Ʉ#Ǒ !c 앫ɡdp š!d( Eť2Ʉ!h  -ɡOȡEš    ȡȡ"O"  -ɡMȡEšצ    PXNbYXYȡ#ZZPZ QZPXX/YYPYǠYbYP/X  9XXYXYȡXX  ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀ8  Ƃ 3 Ƃ 9 Ƃ¥ :Ƃी(ƂDƃ'ƅA?슐+ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀo6 Ƃ 3 Ƃ 9 Ƃ¥ :Ƃी(ƂDƃ'ƅA?슐+)>슐0 B   S L>슐(hFݡƂC?슐&ƂW.Ɔ6Ƈbƃ,ƄXƀƁNjƀ#5:NVALUES.DATAƀʀƀƃ,צ#5:MVALUES.DATAƃ,ƂCʃ,ƃ,Ɔ6צ#5:FVALUES.DATAƆ6ƅAʆ6Ɔ6 ƃ*O| "ʄ7ʄ7ʄ7ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7ʄ7 ʄ7 ʄ7 *7 *7*IMáݹݩݓ/ #5:INTPARFE/ #5:INTPARAM"ˡ/̄̄ʄȡ"ʄ *ƃʄ7 ʄ7ʄ7ʄ7ʄ7ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ /f  <J ȡɡݡ/ȡgۢáGۢۢ n   ȡš  ȡ"ń /%ȡܢ>%ܢ>%ÄGܢ>%ܢ>%ʄ7ʄ7ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7 ʄ7ʄ7 ʄ7 ƃƃʃ P*JP `̄ƄPƄ/QƄ*KTƄP*MP `̄Ƅ`PƄצ/QƄǡƄPʃ7P *̄ʄ7ʄ7 ʄ7ʄ7ƃƄ*ƁVNƃצ #4:IDRECORD"ˡ* #4:MMPI.SCORE"ˡצ&A MMPI data file has not been saved onצthis Patient Record Disk.צ Please press  SPACE BARצ:   MMPISCORINITIALIMAKETSCOCHECKPRI KZN Nz/[3 צ #4:MMENU.CODEצONE MOMENT PLEASE ... N/ B& D > &  צ SPACE BAR when completed: &צINTERPPšj צPress צ SPACE BAR to move on.(צPRINTER:  KZN Nz/[3 צ #4:MMENU.CODEצONE MOMENT PLEASE ... N/ B&ress צ SPACE BAR when completed: &צINTERPPšj צPress צ SPACE BAR to move on.(צPRINTER:  ......ݡ DISK PROMPT:&Remove the MMPI SCORING Disk from Disk$Drive #2 and insert the MMPI INTERP-RETIVE TEXT Disk.צP2́3///!ʁ2 ʁ2!ɍ/ʁ2*+Í+áH,,+ئINTERPׯ0,.ئQUESׯ0,.ʁ2*áצINTERPwyj Ɓ- SCORING+0,.צQUES,+0,./Ɓ0צ  ́30+́2Ɓ0ʁ2++ʁ2#ʁ2Ɓ4˄ʁ2*˄ Ɓ0ʁ2 ʁ2ǍÍʁ3 Ó ́2ʁ2ʁ2Ʉʁ2*ʁ2Ɓ4ÍAʁ2#á/%ʁ2 /Äʁ2ʁg   Ɓ.ئINTERPׯצ #5:DFILE.DATA"-"ˡ]צPUT MMPI INTERPRETATION DISK INDRIVE 2 AND HIT RETURN. -áƁ4 Ɓ4 ́6ʁ6ȡצINTERP., ݡȡnܢFɄGܢܢ ÄEńEńIݡ#e !ʄ7 *IMá۹۩ۓ-צ #5:INTPARFE-צ #5:INTPARAM"ˡ-̄̄ʄȡ"ʄ *ƃƃ*P| ʄ7ʄ7Ɔ6Ƈbƃ,ƄXƀƁNjƀ#5:NVALUES.DATAƀʀƀƃ,צ#5:MVALUES.DATAƃ,ƂCʃ,ƃ,Ɔ6צ#5:FVALUES.DATAƆ6ƅAʆ6Ɔ6 ǴX ÍpǷצT SCORES&3dXLPRINTER: ȡLLLD THE INTERPRETIVE TEXT THAT FOLLOWS REPRESENTS A "BLIND" ASSESSMENT,,ȡ ",,ȡ ?LP_FPXKPQP C0P<RP5EP.AP' FA<79;=?ACEG;61,,,ȡ_?"ɡ"Ǵš Lܡ LPress  SPACE BARצ to move on.( wXd,,ȡ/?P  ǿ3 áٳL>ꊐ    ܡLLLL LL L LLצ L תPצMMPI SCALE SCORES צ(----------------------------------------צ SCORES: RAW K ADJ T SCORE,,ȡáٳ?ꊐáٳ>ꊐ á á--------------------LLLۡ%LLMALEL%LLצFEMALELLLL$SCORES: RAW K ADJ. T SCORESLL ܡ LPRINTER: תPȡLLL#MMPI RESULTS LצADMINISTRATION DATE: L`LLLLLNAME: LLLצ# ----------ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀ צ&DO YOU WANT A COPY OF THE RESULTS SENTצTO THE PRINTER? [Y/N]: (Yáܹ+ Dƃ'ƅA?ꊐ+ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀ8  Ƃ 3 Ƃ 9 Ƃ¥ :Ƃी(ƂDƃ'ƅA?ꊐ+ƅW6ƅs6 ƅ 3 ƅ < ƅȥ Cƅꥀ(ƅDƆ"'Ɔ6ƃ,ƀo6 Ƃ 3 Ƃ 9 Ƃ¥ :Ƃी(ƂDƃ'ƅA?ꊐ+)>ꊐ0 B   S L>ꊐ(hFۡƂC?ꊐ&ƂW.ƞLLLצCOF AN MMPI PROFILE AND EMPHASIZES ONLY ITS MOST PROMINENT FEATURES.LLLצ>IT IS BASED ON MODAL CHARACTERISTICS OF GROUPS OF PSYCHIATRIC LLL>PATIENTS AND SHOULD BE APPLIED CONSERVATIVELY WITH MEDICAL ANDLLLצCOUTPATIENT GROUPS. WHEN APPLIED TO AN INDIVIDUAL, IT SHOULD BE USEDLLLצCONLY AS A MEANS OF SUGGESTING POSSIBLE PERSONALITY CHARACTERISTICS,LLLצCTO SU%BUFBUF,INDEXBUF:PACKED ARRAY[1..30] OF INTEGER; % %QUESFILE: FILE; % %CRITFILE: FILE OF PARA; % %P: TEXT; { PRINTER }  {***********************************************}   SEGMENT PROCEDURE INITIALIZE;   TYPE CORE=PACKED RE REAL; % %FILENAME,NAMES,DATES,SSNAME,X:STRING; % %PRINT,MALE: BOOLEAN; % %TSCORE,RSCORE: ARRAY[0..17] OF INTEGER; ! %NAME: STRINGARRAY; % %CRBUFT,CRINDT:PACKED ARRAY[1..35] OF INTEGER; %CRBUFF,CRINDF:PACKED ARRAY[1..5] OF INTEGER; 7]; ,FMAX:PACKED ARRAY[2..17] OF INTEGER; ,H:PACKED ARRAY[1..37,1..4] OF INTEGER; ,L:PACKED ARRAY[1..7,1..3] OF INTEGER; ,LOW:PACKED ARRAY [1..4,1..3] OF INTEGER; ,END; & !VAR MAXIM,MAXSEC,CRITBUF,CRITIND, %POINTER,J,I,XOFF,RAWK: INTEGER; ! %MIN: ,MONTH:STRING[3]; ,YEAR:0..99; +END; & &PARA=RECORD ,DATA:PACKED ARRAY [1..38] OF INTEGER; ,MG:ARRAY [1..16,1..4] OF INTEGER; ,ML:ARRAY [1..10,1..4] OF INTEGER; ,FMEAN,FSIG,FKOFF:PACKED ARRAY[2..17] OF REAL; ,FNAME:PACKED ARRAY[2..17] OF STRING[!{$S++} { SERIES 9 }  !PROGRAM MMPISCORE; { NO INTERP VERSION } # #{ UPDATED 12/21/85 BLM } $ !USES APPLESTUFF,MINSTUFF,CHAINSTUFF,SHORTGRAPHICS,ADDRESS,CODECHECK; ! !TYPE STRINGARRAY = ARRAY[1..20] OF STRING[10]; & &DATE=RECORD ,DAY:0..31;N^4#4:MMENU צONE MOMENT PLEASE ... L-&+ l*R( "generated and sent to the printer.DO YOU WISH TO DO THIS? [Y/N]: &Yá #5:INTERPMMPIGܡBLצPRINTER:L LL LL Lx-Y1STS TEXT REFLECTING SINGLE SCALELLLצ:ELEVATIONS AND FINISHES WITH TEXT BASED ON A 2 POINT CODE.LL $An extended interpretive text can be"generated and sent to the printerLLLEFINAL INTERPRETATION OF THIS INFORMATION SHOULD ALWAYS BE CARRIED OUTLLL&BY AN APPROPRIATELY TRAINED CLINICIAN.LL+NLLצE THE INTERPRETATION ROUTINE FIRST LIPPLEMENT AND/OR VERIFY OTHER MEANS OF DIAGNOSIS, OR AS A BRIEFLLLצCSCREENING DEVICE. UNDER NO CIRCUMSTANCES SHOULD IT PROVIDE THE SOLELLLצ>SOURCE OF DIAGNOSIS OR GUIDE TO TREATMENT. THE INTIGRATION ANDCORD ,RAW:ARRAY[0..566] OF BOOLEAN; ,SCALE:ARRAY[0..16] OF INTEGER; ,ABORT:INTEGER; ,SEX:CHAR; ,DATEID:DATE; ,END; , %IDINFO=RECORD -NAME,THERAPIST:STRING[20]; -BIRTH:DATE; -SSNUMBER:INTEGER[9]; ,END; ,  VAR TEMP: STRING; $SCOREFILE: FILE OF CORE; $IDFILE: FILE OF IDINFO;   BEGIN "{$I-} "RESET (IDFILE,'#4:IDRECORD'); "IF IORESULT<>0 THEN EXIT(PROGRAM); "RESET (SCOREFILE,'#4:MMPI.SCORE'); "IF IORESULT<>0 THEN $BEGIN $ GOTOXY(0,3); %WRITELN('A MMPI data file has not been s"TSCORE[14]:=NSCALES.SI[(RSCORE[14])]; " "IF MALE THEN #BEGIN $TSCORE[5]:= MSCALES.HS[(RSCORE[5]) +ROUND(0.5*RAWK)]; $TSCORE[6]:= MSCALES.D [(RSCORE[6])]; $TSCORE[7]:= MSCALES.HY[(RSCORE[7])]; $TSCORE[9]:= MSCALES.MF[(RSCORE[9])]; $TSCORE[11]:=MSCORE[3]:= NSCALES.F [(RSCORE[3])]; "TSCORE[4]:= NSCALES.K [(RSCORE[4])]; TSCORE[8]:= NSCALES.PD[(RSCORE[8] + ROUND(0.4*RAWK))]; "TSCORE[10]:=NSCALES.PA[(RSCORE[10])]; "TSCORE[13]:=NSCALES.MA[(RSCORE[13] + ROUND(0.2*RAWK))]; CALEFILE,'#5:MVALUES.DATA'); "GET(MSCALEFILE); "MSCALES:= MSCALEFILE^; "CLOSE(MSCALEFILE,LOCK); "RESET(FSCALEFILE,'#5:FVALUES.DATA'); "GET(FSCALEFILE); "FSCALES:= FSCALEFILE^; "CLOSE(FSCALEFILE,LOCK); " "TSCORE[2]:= NSCALES.L [(RSCORE[2])]; "TSCES; & &MSCALES: MVALUES; &MSCALEFILE: FILE OF MVALUES; - &FSCALES: FVALUES; &FSCALEFILE: FILE OF FVALUES;  BEGIN "RESET(NSCALEFILE,'#5:NVALUES.DATA'); "GET(NSCALEFILE); "NSCALES:= NSCALEFILE^; "CLOSE(NSCALEFILE,LOCK); " "RESET(MS-K: PACKED ARRAY[0..30] OF TRANGE; ,PD: PACKED ARRAY[0..48] OF TRANGE; ,PA: PACKED ARRAY[0..32] OF TRANGE; ,MA: PACKED ARRAY[0..40] OF TRANGE; ,SI: PACKED ARRAY[0..70] OF TRANGE; +END; + "VAR NSCALES: NVALUES; &NSCALEFILE: FILE OF NVALU ARRAY[0..58] OF TRANGE; -R: PACKED ARRAY[0..40] OF TRANGE; ,ES: PACKED ARRAY[0..68] OF TRANGE; -A: PACKED ARRAY[0..39] OF TRANGE; +END; + $NVALUES= PACKED RECORD -L: PACKED ARRAY[0..15] OF TRANGE; -F: PACKED ARRAY[0..31] OF TRANGE; .39] OF TRANGE; +END; + #MVALUES= PACKED RECORD # HS: PACKED ARRAY[0..38] OF TRANGE; -D: PACKED ARRAY[0..46] OF TRANGE; ,HY: PACKED ARRAY[0..54] OF TRANGE; ,MF: PACKED ARRAY[0..51] OF TRANGE; ,PT: PACKED ARRAY[0..57] OF TRANGE; ,SC: PACKED4] OF TRANGE; ,HY: PACKED ARRAY[0..54] OF TRANGE; ,MF: PACKED ARRAY[0..51] OF TRANGE; ,PT: PACKED ARRAY[0..60] OF TRANGE; ,SC: PACKED ARRAY[0..67] OF TRANGE; -R: PACKED ARRAY[0..40] OF 11..102; ,ES: PACKED ARRAY[0..68] OF 12..94; -A: PACKED ARRAY[0."CLOSE(IDFILE,LOCK); " "ERASE(0,23,0);  END;  {*********************************************}   SEGMENT PROCEDURE MAKETSCORES;  "TYPE TRANGE= 20..120; #FVALUES= PACKED RECORD # HS: PACKED ARRAY[0..43] OF TRANGE; -D: PACKED ARRAY[0..5# "{$I-} "IF NOT MALE THEN RESET (CRITFILE,'#5:INTPARFE') #ELSE RESET (CRITFILE,'#5:INTPARAM'); # "IF IORESULT<>0 THEN EXIT(PROGRAM); "{$I+} " "WITH CRITFILE^ DO FOR J:=2 TO 17 DO NAME[J]:=FNAME[J]; $ "CLOSE(SCOREFILE,LOCK); 0]:=SCALE[6]; $RSCORE[11]:=SCALE[7]; $RSCORE[12]:=SCALE[8]; $RSCORE[13]:=SCALE[9]; $RSCORE[14]:=SCALE[0]; $RSCORE[15]:=SCALE[11]; $RSCORE[16]:=SCALE[10]; $RSCORE[17]:=SCALE[12]; #END; # "IF SCOREFILE^.SEX='M' THEN MALE:= TRUE ELSE MALE:= FALSE; WAS ',SCOREFILE^.ABORT); } " "WITH SCOREFILE^ DO #BEGIN $RSCORE[2]:=SCALE[14]; $RSCORE[3]:=SCALE[13]; $RSCORE[4]:=SCALE[15]; $RSCORE[5]:=SCALE[1]; $RSCORE[6]:=SCALE[2]; $RSCORE[7]:=SCALE[3]; $RSCORE[8]:=SCALE[4]; $RSCORE[9]:=SCALE[5]; $RSCORE[1"STR (SCOREFILE^.DATEID.DAY,TEMP); "DATES:=CONCAT(TEMP,'/',SCOREFILE^.DATEID.MONTH); "STR(SCOREFILE^.DATEID.YEAR,TEMP); "DATES:=CONCAT(DATES,'/',TEMP); "STR(IDFILE^.SSNUMBER,SSNAME); " "{ IF SCOREFILE^.ABORT<565 THEN $WRITELN ('LAST ITEM COMPLETED aved on'); %WRITELN('this Patient Record Disk.'); %GOTOXY(0,23); %WRITE('Please press ',CHR(15),'SPACE BAR',CHR(14),': '); %REPEAT UNTIL KEYPRESS; %EXIT(PROGRAM); #END; "SEEK (IDFILE,0); "GET (IDFILE); " "{$I+} "NAMES:=IDFILE^.NAME; ALES.PT[(RSCORE[11] + RAWK)]; $TSCORE[12]:=MSCALES.SC[(RSCORE[12] + RAWK)]; $TSCORE[15]:=MSCALES.R [(RSCORE[15])]; $TSCORE[16]:=MSCALES.ES[(RSCORE[16])]; $TSCORE[17]:=MSCALES.A [(RSCORE[17])]; #END  ELSE #BEGIN $TSCORE[5]:= FSCALES.HS[(RSCORE[5] + ROUND(0.5*RAWK))]; $TSCORE[6]:= FSCALES.D [(RSCORE[6])]; $TSCORE[7]:= FSCALES.HY[(RSCORE[7])]; $TSCORE[9]:= FSCALES.MF[(RSCORE[9])]; $TSCORE[11]:=FSCALES.PT[(RSCORE[11] + RAWK)]; $TSCORE[12]:=FSCALES.SC[(RSCORE[12] + RAWK)]; $TSCORE[15]:=FSCALES.R TEXTMODE;  END;  {********************************************************} !  PROCEDURE PRINTMESSAGE; !  BEGIN  REWRITE(P,'PRINTER:'); " "FOR I:= 1 TO 10 DO WRITELN(P); " "WRITELN(P,X, "' THE INTERPRETIVE TEXT THAT FOLLOWS REPRESENTS A "B14) THEN $PENCOLOR (NONE) #ELSE PENCOLOR (WHITE); "X:=X+15;  END;  PENCOLOR (NONE);  MOVETO(112,183);  WSTRING('T SCORES');   UNITCLEAR(1);  REPEAT UNTIL KEYPRESS;  { CRIT } {LOCATES CRITICAL ITEMS}   INITTURTLE;  ERASE(0,23,0); WSTRING (GRSTRG); #X:=X + 15 !END;  PENCOLOR(NONE);  X:=31;  FOR J:= 2 TO 17 DO  BEGIN "I:= TSCORE[J]; "I:= TRUNC (I*1.7); "I:= I-4; "IF (I<34) THEN I:=34; "IF I>180 THEN I:=180; "MOVETO (X,I); "WCHAR('X'); "PENCOLOR(WHITE); "IF (J=4) OR (J="END;  X:=31;  FOR J:=2 TO 17 DO !BEGIN #MOVETO (X,10); #T:=J-4; #CASE J OF %2:GRSTRG:='L'; %3:GRSTRG:='F'; %4:GRSTRG:='K'; %5,6,7,8,9,10,11,12,13:STR(T,GRSTRG); %14:GRSTRG:='0'; %15:GRSTRG:='R'; %16:GRSTRG:='E'; %17:GRSTRG:='A'; #END; #%WSTRING(GRSTRG); %J:=J+9 $END;{FOR} !MOVETO (20,191); !PENCOLOR (WHITE); !MOVETO (20,20); !MOVETO (279,20); !PENCOLOR (NONE); !X:=51; !FOR J:=1 TO 3 DO "BEGIN $MOVETO (20,X); $PENCOLOR (WHITE); $MOVETO (279,X); $X:=X+34; $PENCOLOR (NONE) AT UNTIL KEYPRESS;  END;  {*********************************************}   PROCEDURE GRAPHIT;  "VAR T,X:INTEGER; &GRSTRG:STRING; &  BEGIN "INITTURTLE; "FOR J:=30 TO 100 DO $BEGIN %X:= TRUNC(J*1.7); %STR(J,GRSTRG); %MOVETO (00,X); RAWPLUSK:2,S,TSCORE[J]:3); $ $IF PRINT THEN $WRITELN(P,X,NAME[J]:2,X,RAW:2,X,' ',RAWPLUSK:2,X,' ',TSCORE[J]:3); #END; " "IF PRINT THEN CLOSE(P); " "GOTOXY(0,23); "WRITE('Press ',CHR(15),'SPACE BAR',CHR(14),' to move on.'); "GOTOXY(40,0); "REPE THEN RAWPLUSK:= RAW + ROUND (0.5*RAWK); $IF J=8 THEN RAWPLUSK:= RAW + ROUND (0.4*RAWK); $IF J=11 THEN RAWPLUSK:= RAW + RAWK; $IF J=12 THEN RAWPLUSK:= RAW + RAWK; $IF J=13 THEN RAWPLUSK:= RAW + ROUND (0.2*RAWK); $ $WRITELN(' ',NAME[J]:2,S,RAW:2,S,"S:= ' ';  "WRITELN('MMPI SCALE SCORES '); "WRITELN('----------------------------------------'); "WRITELN; "WRITELN(' SCORES: RAW K ADJ T SCORE'); "WRITELN; # "FOR J:= 2 TO 17 DO #BEGIN $RAW:= RSCORE[J]; $RAWPLUSK:= RAW; $ $IF J=5 SCORES'); "WRITELN(P);  END;  {********************************************}   PROCEDURE TABLE;  "VAR RAW,RAWPLUSK:INTEGER; " S: STRING;  BEGIN "RAWK:= RSCORE[4]; " "MAKETSCORES; " "CHECKPRINT; "IF PRINT THEN PRINTTABLE; " "WRITELN(P); "WRITELN(P); "WRITELN(P,X,'NAME: '); "WRITELN(P,X,' ------------------------------'); "WRITELN(P); "WRITELN(P); "IF MALE THEN WRITELN(P,X,'MALE') ELSE WRITELN(P,X,'FEMALE'); "WRITELN(P); "WRITELN(P,X,'SCORES: RAW K ADJ. T***********************************}   PROCEDURE PRINTTABLE;  BEGIN  REWRITE(P,'PRINTER:'); " "X:= ' '; " "FOR I:= 1 TO 3 DO WRITELN(P); " "WRITELN(P,X,'MMPI RESULTS ', " 'ADMINISTRATION DATE: ',DATES); "WRITELN('DO YOU WANT A COPY OF THE RESULTS SENT'); "WRITE('TO THE PRINTER? [Y/N]: '); "UNITCLEAR(1); "GOTOXY(40,0); "REPEAT UNTIL KEYPRESS; "READ(KEYBOARD,KEY); "IF KEY='Y' THEN PRINT:= TRUE ELSE PRINT:= FALSE; "ERASE(0,23,0);  END;  {********** [(RSCORE[15])]; $TSCORE[16]:=FSCALES.ES[(RSCORE[16])]; $TSCORE[17]:=FSCALES.A [(RSCORE[17])]; #END;  END;  {********************************************}   SEGMENT PROCEDURE CHECKPRINT;   BEGIN "GOTOXY(0,10); LIND" ASSESSMENT'); "WRITELN(P,X, "'OF AN MMPI PROFILE AND EMPHASIZES ONLY ITS MOST PROMINENT FEATURES.'); "WRITELN(P,X, "'IT IS BASED ON MODAL CHARACTERISTICS OF GROUPS OF PSYCHIATRIC '); "WRITELN(P,X, "'PATIENTS AND SHOULD BE APPLIED CONSERVATIVELY WITH MEDICAL AND'); "WRITELN(P,X, "'OUTPATIENT GROUPS. WHEN APPLIED TO AN INDIVIDUAL, IT SHOULD BE USED'); "WRITELN(P,X, "'ONLY AS A MEANS OF SUGGESTING POSSIBLE PERSONALITY CHARACTERISTICS,'); "WRITELN(P,X, "'TO SUPPLEMENT AND/OR VERIFY OTHER MEANS  {$S+} { SERIES 9 }   PROGRAM MMPISCAL; { ENTER MMPI SCALE SCORES }{ UPDATED 1/9/86 }   { NOT CODE CHECK PROTECTED }   USES APPLESTUFF,MINSTUFF,CHAINSTUFF,SHORTGRAPHICS,ADDRESS,CODECHECK,EXSTUFF;   TYPE DATE= RECORD -DAY: 0..31; -MONTH: STRN^դ;  END.  {**************************************************}  BEGIN "PROTECT; "ERASE(0,23,0); " "SETCHAIN ('#4:MMENU'); "MIN:=0; "XOFF:=14; " "INITIALIZE; "TABLE; "GRAPHIT; " "INTERPPROMPT; " "ERASE(0,23,23); "WRITE('ONE MOMENT PLEASE ... ')HEN $BEGIN %PRINTMESSAGE; %MOREMESSAGE; %SETCHAIN('#5:INTERPMMPI'); $END #ELSE IF PRINT THEN $BEGIN %REWRITE(P,'PRINTER:'); %WRITELN(P,CHR(12)); %WRITELN(P,CHR(12)); %CLOSE(P); $END;  END; NTERPPROMPT;   BEGIN "ERASE(0,23,10); "WRITELN('An extended interpretive text can be'); "WRITELN('generated and sent to the printer.'); "WRITELN; "WRITE('DO YOU WISH TO DO THIS? [Y/N]: '); "UNITCLEAR(1); "WAITFOR(RESPONSE); " "IF RESPONSE='Y' TTELN(P,X, "' THE INTERPRETATION ROUTINE FIRST LISTS TEXT REFLECTING SINGLE SCALE'); "WRITELN(P,X, "'ELEVATIONS AND FINISHES WITH TEXT BASED ON A 2 POINT CODE.'); " "CLOSE(P);  END;  {***********************************************} !  PROCEDURE I"'FINAL INTERPRETATION OF THIS INFORMATION SHOULD ALWAYS BE CARRIED OUT'); "WRITELN(P,X, "'BY AN APPROPRIATELY TRAINED CLINICIAN.'); "WRITELN(P);  END;  {**************************************************}   PROCEDURE MOREMESSAGE;   BEGIN "WRI OF DIAGNOSIS, OR AS A BRIEF'); "WRITELN(P,X, "'SCREENING DEVICE. UNDER NO CIRCUMSTANCES SHOULD IT PROVIDE THE SOLE'); "WRITELN(P,X, "'SOURCE OF DIAGNOSIS OR GUIDE TO TREATMENT. THE INTIGRATION AND'); "WRITELN(P,X, ING[3]; -YEAR: 0..99; ,END; , %CORE=PACKED RECORD ,RAW:ARRAY[0..566] OF BOOLEAN; ,SCALE:ARRAY[0..16] OF INTEGER; ,ABORT:INTEGER; ,SEX:CHAR; ,DATEID:DATE; *END; * $PARA=RECORD *DATA:PACKED ARRAY[1..38] OF INTEGER; *MG:ARRAY[1..16,1..4] OF INTEGER; *ML:ARRAY[1..10,1..4] OF INTEGER; *FMEAN,FSIG,FKOFF:PACKED ARRAY[2..17] OF REAL; *FNAME:PACKED ARRAY[2..17] OF STRING[7]; *FMAX:PACKED ARRAY[2..17] OF INTEGER; *H:PACKED ARRAY[1..37,1..4] OF INTEGER; *L:PACKED ARRAY[1..4,1..3] OF INTEGER; *LOW:#WRITELN(DATEFILE^.MONTH,' ',DATEFILE^.DAY,' 19',DATEFILE^.YEAR); #WRITE(CHR(14)); #WRITELN; #WRITELN; #WRITE('IS THIS THE CORRECT DATE? [Y/N]: '); #WAITFOR(RESPONSE); "UNTIL RESPONSE='Y';  "SCOREFILE^.DATEID.DAY:= DATEFILE^.DAY; "SCOREFILE^.D31}: '); $READLN(NEWVAR); $TEMPINT:= MAKEINT(NEWVAR); $IF (TEMPINT>0) AND (TEMPINT<32) THEN OK:= TRUE; #UNTIL OK; #DATEFILE^.DAY:= TEMPINT; % #WRITELN; #WRITELN; #WRITE(' ',CHR(15)); N; &FOR I:= 1 TO 12 DO IF NEWVAR=M[I] THEN OK:= TRUE; %UNTIL OK; %DATEFILE^.MONTH:= NEWVAR; $END; $ #REPEAT $OK:= FALSE; $ERASE(3,10,5); $WRITELN('Please enter the date below and press'); $WRITELN('the RETURN key.'); $WRITELN; $WRITE('DAY {ex. '? [Y/N]: '); #WAITFOR(RESPONSE); #IF RESPONSE='N' THEN $BEGIN %REPEAT &OK:= FALSE; &ERASE(7,14,7); &WRITELN('Please enter the month below and press'); &WRITELN('the RETURN key.'); &WRITELN; &WRITE('MONTH {ex. JAN}: '); &READLN(NEWVAR); &WRITEL&WRITELN; &WRITE('YEAR {ex. 85}: '); &READLN(NEWVAR); &WRITELN; &TEMPINT:= MAKEINT(NEWVAR); &IF (TEMPINT>0) AND (TEMPINT<100) THEN OK:= TRUE; %UNTIL OK; $DATEFILE^.YEAR:= TEMPINT; #END; # #ERASE(3,10,5); #WRITE('Was the month ',DATEFILE^.MONTH,);  GOTOXY(0,5); # #WRITE('Was the year ',DATEFILE^.YEAR,'? [Y/N]: ');  WAITFOR(RESPONSE); #IF RESPONSE='N' THEN $BEGIN %REPEAT &OK:= FALSE; &ERASE(7,14,7); &WRITELN('Please enter the year below and press '); &WRITELN('the RETURN key.'); = 'JUN'; 'M[7]:= 'JUL'; 'M[8]:= 'AUG'; 'M[9]:= 'SEP'; 'M[10]:='OCT'; 'M[11]:='NOV'; 'M[12]:='DEC'; &END; &{--------------------}  BEGIN "RESET(DATEFILE,'DATE.DATA');  "DEFINE_M; "  REPEAT #ERASE(0,23,2); #WRITELN('ADMINISTRATION DATE:'% !VAR DATEOK,OK: BOOLEAN; & &DATEFILE: FILE OF DATE; " &M: ARRAY[1..12] OF STRING[3]; &TEMPINT: INTEGER; &{--------------------} &PROCEDURE DEFINE_M; &BEGIN 'M[1]:= 'JAN'; 'M[2]:= 'FEB'; 'M[3]:= 'MAR'; 'M[4]:= 'APR'; 'M[5]:= 'MAY'; 'M[6]:&WRITELN; &WRITELN('DO YOU WISH TO WRITE OVER THIS DATA'); &WRITE('FILE? [Y/N]: '); & &WAITFOR(RESPONSE); &IF RESPONSE<>'Y' THEN ESCAPE; %END; % "CLOSE(SCOREFILE);  END;  {**********************************************}   PROCEDURE GET_DATE; *********************} "  PROCEDURE OPENFILE; "  BEGIN "{$I-} "RESET(SCOREFILE,'#4:MMPI.SCORE'); "IF IORESULT=0 THEN $BEGIN &ERASE(1,23,10); &WRITELN('A MMPI data file has already been saved'); &WRITELN('on the Patient Record Disk.'); loted.'); "WRITELN; "GOTOXY(0,23); "WRITE('Press ',CHR(15),'SPACE BAR',CHR(14),' to begin or ', (CHR(15),'ESC',CHR(14),' to exit.'); "REPEAT UNTIL KEYPRESS; "READ(KEYBOARD,KEY); "IF KEY=CHR(27) THEN ESCAPE;  END;  {********************************ITELN; "WRITELN; "WRITELN(' This program allows the user to enter'); "WRITELN('raw scale scores from the MMPI. T-scores'); "WRITELN('are calculated and the data is saved on'); "WRITELN('the Patient Record Disk. An MMPI profile'); "WRITELN('is then p"SETCHAIN('#5:CMENU.CODE'); "ERASE(0,23,23); "WRITE('ONE MOMENT PLEASE... '); "EXIT(PROGRAM);  END;  {**********************************************}  PROCEDURE INTROTEXT;   BEGIN "ERASE(0,23,2); "CENTERINV(' MMPI SCALE SCORE ENTRY '); "WRPACKED ARRAY [1..4,1..3] OF INTEGER; )END; *  VAR I,J:INTEGER; $ $OPTION,NEWVAR: STRING; $ $SCOREFILE:FILE OF CORE; $ $PARAM: FILE OF PARA;  {*********************************************}  PROCEDURE ESCAPE;  BEGIN ATEID.MONTH:= DATEFILE^.MONTH; "SCOREFILE^.DATEID.YEAR:= DATEFILE^.YEAR;  END;  {**********************************************}   PROCEDURE ENTERSCORES;   VAR SCORE,MAX: ARRAY[2..17] OF INTEGER;  $OK: BOOLEAN; ${------------------------------------------} $PROCEDURE DEFINEMAX; $BEGIN &MAX[2]:= 15; &MAX[3]:= 31; &MAX[4]:= 30; &MAX[5]:= 33; &MAX[6]:= 46; &MAX[7]:= 54; &MAX[8]:= 41; &MAX[9]:= 51; &MAX[10]:=32; &MAX[11]:=48; &MAX[12]:=58; &MAX[13]:=39; &MAX[14]:=70; &MAX[15]:=40; ESCצ to exit.á Wצ #4:MMPI.SCORE"á צ'A MMPI data file has already been savedon the Patient Record Disk.צ#DO YOU WISH TO WRITE OVERre calculated and the data is saved on(the Patient Record Disk. An MMPI profileis then ploted.Press  SPACE BARצ to begin or צ #5:CMENU.CODEצONE MOMENT PLEASE... Jצ MMPI SCALE SCORE ENTRY ' This program allows the user to enterצ(raw scale scores from the MMPI. T-scoresצ'a MMPISCAL "GET_DATE; " "ENTERSCORES; " "CLOSE(PARAM,LOCK); " "SETCHAIN('#5:MMPISCORE.CODE'); "ERASE(0,23,23); "WRITE('ONE MOMENT PLEASE ... '); !END.  "REWRITE(SCOREFILE,'#4:MMPI.SCORE'); "RESET(PARAM,'#5:INTPARAM'); ' "REPEAT #ERASE(1,23,10); #WRITE('Please enter sex of patient [M/F]: '); #REPEAT UNTIL KEYPRESS; #READ(KEYBOARD,KEY); "UNTIL (KEY='F') OR (KEY='M'); " "SCOREFILE^.SEX:= KEY; " ]; %SCALE[12]:=SCORE[17]; % %FOR J:=0 TO 566 DO RAW[J]:=FALSE; %ABORT:=600; $END; $ #PUT(SCOREFILE); #CLOSE (SCOREFILE,LOCK);  END;  {*********************************************}  BEGIN "{ PROTECT; } "INTROTEXT; "OPENFILE; " %SCALE[2] :=SCORE[6]; %SCALE[3] :=SCORE[7]; %SCALE[4] :=SCORE[8]; %SCALE[5] :=SCORE[9]; %SCALE[6] :=SCORE[10]; %SCALE[7] :=SCORE[11]; %SCALE[8] :=SCORE[12]; %SCALE[9] :=SCORE[13]; %SCALE[0] :=SCORE[14]; %SCALE[11]:=SCORE[15]; %SCALE[10]:=SCORE[16 MAKEINT(NEWVAR); &IF SCORE[J]<=MAX[J] THEN OK:= TRUE; $UNTIL OK; #END; # "GOTOXY(0,23); "WRITE('Entry complete... '); " "WITH SCOREFILE^ DO $BEGIN %SCALE[14]:=SCORE[2]; %SCALE[13]:=SCORE[3]; %SCALE[15]:=SCORE[4]; %SCALE[1] :=SCORE[5]; "WRITELN('Enter each scale score as prmpted and'); "WRITELN('press RETURN.'); " "DEFINEMAX; " "FOR J:=2 TO 17 DO #BEGIN $OK:= FALSE; $REPEAT &ERASE(8,11,8); &WRITELN; &WRITE(PARAM^.FNAME[J],' [max=',MAX[J],']: '); &READLN(NEWVAR); &SCORE[J]:=&MAX[16]:=68; &MAX[17]:=39; & &IF SCOREFILE^.SEX='F' THEN 'BEGIN (MAX[6]:= 54; (MAX[8]:= 43; 'END; %END; %{----------------------------------------}  BEGIN "ERASE(1,23,3); "WRITELN('RAW SCALE SCORE ENTRY:'); "WRITELN; THIS DATA FILE? [Y/N]: YˡW3 צJAN3 צFEB3 צMAR3 צAPR3 צMAY3 צJUN3 צJUL3 צAUG3  צSEP3  צOCT3  צNOV3  צDECƁ/ DATE.DATAADMINISTRATION DATE:צ Was the year  צ ? [Y/N]: Ná&Please enter the year below  {$S+} { SERIES 9 }   PROGRAM MMPISCAL; { ENTER MMPI SCALE SCORES }{ UPDATED 1/9/86 }   { NOT CODE CHECK PROTECTED }   USES APPLESTUFF,MINSTUFF,CHAINSTUFF,SHORTGRAPHICS,ADDRESS,CODECHECK,EXSTUFF;   TYPE DATE= RECORD -DAY: 0..31; -MONTH: STRN^դWI#5:MMPISCORE.CODE.ONE MOMENT PLEASE ... W&r+ h  "7 6##ȡ"6"HXWW0xqFѥWNWצ #4:MMPI.SCOREצ #5:INTPARAM צ#Please enter sex of patient [M/F]: FÝMÍ"7"7"7 "7 "7 "7 "7  "7"7 "7 "7  ]: Pȡ!!Entry complete... W""7"7 "7"7"7'WIFá6+RAW SCALE SCORE ENTRY:%Enter each scale score as prmpted andצ press RETURN.""ȡ! Ѣ [max=ׂJWKڢWMcT[!.6) 3   0 : 'F(DDAY {ex. 31}: ṔKʁKʁK ɄءʁK ڢ  צ 19 צ!IS THIS THE CORRECT DATE? [Y/N]: YáWlow and pressצthe RETURN key.MONTH {ex. JAN}: P ́LʁLȡƁ3 ءڢ %Please enter the date below and pressצthe RETURN key. and press the RETURN key.צYEAR {ex. 85}: ṔKʁKʁKdɄءڢʁKc Was the month ڢ ? [Y/N]: Náצ&Please enter the month beING[3]; -YEAR: 0..99; ,END; , %CORE=PACKED RECORD ,RAW:ARRAY[0..566] OF BOOLEAN; ,SCALE:ARRAY[0..16] OF INTEGER; ,ABORT:INTEGER; ,SEX:CHAR; ,DATEID:DATE; *END; * $PARA=RECORD *DATA:PACKED ARRAY[1..38] OF INTEGER; *MG:ARRAY[1..16,1..4] OF INTEGER; *ML:ARRAY[1..10,1..4] OF INTEGER; *FMEAN,FSIG,FKOFF:PACKED ARRAY[2..17] OF REAL; *FNAME:PACKED ARRAY[2..17] OF STRING[7]; *FMAX:PACKED ARRAY[2..17] OF INTEGER; *H:PACKED ARRAY[1..37,1..4] OF INTEGER; *L:PACKED ARRAY[1..4,1..3] OF INTEGER; *LOW:#WRITELN(DATEFILE^.MONTH,' ',DATEFILE^.DAY,' 19',DATEFILE^.YEAR); #WRITE(CHR(14)); #WRITELN; #WRITELN; #WRITE('IS THIS THE CORRECT DATE? [Y/N]: '); #WAITFOR(RESPONSE); "UNTIL RESPONSE='Y';  "SCOREFILE^.DATEID.DAY:= DATEFILE^.DAY; "SCOREFILE^.D31}: '); $READLN(NEWVAR); $TEMPINT:= MAKEINT(NEWVAR); $IF (TEMPINT>0) AND (TEMPINT<32) THEN OK:= TRUE; #UNTIL OK; #DATEFILE^.DAY:= TEMPINT; % #WRITELN; #WRITELN; #WRITE(' ',CHR(15)); N; &FOR I:= 1 TO 12 DO IF NEWVAR=M[I] THEN OK:= TRUE; %UNTIL OK; %DATEFILE^.MONTH:= NEWVAR; $END; $ #REPEAT $OK:= FALSE; $ERASE(3,10,5); $WRITELN('Please enter the date below and press'); $WRITELN('the RETURN key.'); $WRITELN; $WRITE('DAY {ex. '? [Y/N]: '); #WAITFOR(RESPONSE); #IF RESPONSE='N' THEN $BEGIN %REPEAT &OK:= FALSE; &ERASE(7,14,7); &WRITELN('Please enter the month below and press'); &WRITELN('the RETURN key.'); &WRITELN; &WRITE('MONTH {ex. JAN}: '); &READLN(NEWVAR); &WRITEL&WRITELN; &WRITE('YEAR {ex. 85}: '); &READLN(NEWVAR); &WRITELN; &TEMPINT:= MAKEINT(NEWVAR); &IF (TEMPINT>0) AND (TEMPINT<100) THEN OK:= TRUE; %UNTIL OK; $DATEFILE^.YEAR:= TEMPINT; #END; # #ERASE(3,10,5); #WRITE('Was the month ',DATEFILE^.MONTH,);  GOTOXY(0,5); # #WRITE('Was the year ',DATEFILE^.YEAR,'? [Y/N]: ');  WAITFOR(RESPONSE); #IF RESPONSE='N' THEN $BEGIN %REPEAT &OK:= FALSE; &ERASE(7,14,7); &WRITELN('Please enter the year below and press '); &WRITELN('the RETURN key.'); = 'JUN'; 'M[7]:= 'JUL'; 'M[8]:= 'AUG'; 'M[9]:= 'SEP'; 'M[10]:='OCT'; 'M[11]:='NOV'; 'M[12]:='DEC'; &END; &{--------------------}  BEGIN "RESET(DATEFILE,'DATE.DATA');  "DEFINE_M; "  REPEAT #ERASE(0,23,2); #WRITELN('ADMINISTRATION DATE:'% !VAR DATEOK,OK: BOOLEAN; & &DATEFILE: FILE OF DATE; " &M: ARRAY[1..12] OF STRING[3]; &TEMPINT: INTEGER; &{--------------------} &PROCEDURE DEFINE_M; &BEGIN 'M[1]:= 'JAN'; 'M[2]:= 'FEB'; 'M[3]:= 'MAR'; 'M[4]:= 'APR'; 'M[5]:= 'MAY'; 'M[6]:&WRITELN; &WRITELN('DO YOU WISH TO WRITE OVER THIS DATA'); &WRITE('FILE? [Y/N]: '); & &WAITFOR(RESPONSE); &IF RESPONSE<>'Y' THEN ESCAPE; %END; % "CLOSE(SCOREFILE);  END;  {**********************************************}   PROCEDURE GET_DATE; *********************} "  PROCEDURE OPENFILE; "  BEGIN "{$I-} "RESET(SCOREFILE,'#4:MMPI.SCORE'); "IF IORESULT=0 THEN $BEGIN &ERASE(1,23,10); &WRITELN('A MMPI data file has already been saved'); &WRITELN('on the Patient Record Disk.'); loted.'); "WRITELN; "GOTOXY(0,23); "WRITE('Press ',CHR(15),'SPACE BAR',CHR(14),' to begin or ', (CHR(15),'ESC',CHR(14),' to exit.'); "REPEAT UNTIL KEYPRESS; "READ(KEYBOARD,KEY); "IF KEY=CHR(27) THEN ESCAPE;  END;  {********************************ITELN; "WRITELN; "WRITELN(' This program allows the user to enter'); "WRITELN('raw scale scores from the MMPI. T-scores'); "WRITELN('are calculated and the data is saved on'); "WRITELN('the Patient Record Disk. An MMPI profile'); "WRITELN('is then p"SETCHAIN('#5:CMENU.CODE'); "ERASE(0,23,23); "WRITE('ONE MOMENT PLEASE... '); "EXIT(PROGRAM);  END;  {**********************************************}  PROCEDURE INTROTEXT;   BEGIN "ERASE(0,23,2); "CENTERINV(' MMPI SCALE SCORE ENTRY '); "WRPACKED ARRAY [1..4,1..3] OF INTEGER; )END; *  VAR I,J:INTEGER; $ $OPTION,NEWVAR: STRING; $ $SCOREFILE:FILE OF CORE; $ $PARAM: FILE OF PARA;  {*********************************************}  PROCEDURE ESCAPE;  BEGIN ATEID.MONTH:= DATEFILE^.MONTH; "SCOREFILE^.DATEID.YEAR:= DATEFILE^.YEAR;  END;  {**********************************************}   PROCEDURE ENTERSCORES;   VAR SCORE,MAX: ARRAY[2..17] OF INTEGER;  $OK: BOOLEAN; ${------------------------------------------} $PROCEDURE DEFINEMAX; $BEGIN &MAX[2]:= 15; &MAX[3]:= 31; &MAX[4]:= 30; &MAX[5]:= 33; &MAX[6]:= 46; &MAX[7]:= 54; &MAX[8]:= 41; &MAX[9]:= 51; &MAX[10]:=32; &MAX[11]:=48; &MAX[12]:=58; &MAX[13]:=39; &MAX[14]:=70; &MAX[15]:=40; ESCצ to exit.á Wצ #4:MMPI.SCORE"á צ'A MMPI data file has already been savedon the Patient Record Disk.צ#DO YOU WISH TO WRITE OVERre calculated and the data is saved on(the Patient Record Disk. An MMPI profileis then ploted.Press  SPACE BARצ to begin or צ #5:CMENU.CODEצONE MOMENT PLEASE... Jצ MMPI SCALE SCORE ENTRY ' This program allows the user to enterצ(raw scale scores from the MMPI. T-scoresצ'a MMPISCAL "GET_DATE; " "ENTERSCORES; " "CLOSE(PARAM,LOCK); " "SETCHAIN('#5:MMPISCORE.CODE'); "ERASE(0,23,23); "WRITE('ONE MOMENT PLEASE ... '); !END.  "REWRITE(SCOREFILE,'#4:MMPI.SCORE'); "RESET(PARAM,'#5:INTPARAM'); ' "REPEAT #ERASE(1,23,10); #WRITE('Please enter sex of patient [M/F]: '); #REPEAT UNTIL KEYPRESS; #READ(KEYBOARD,KEY); "UNTIL (KEY='F') OR (KEY='M'); " "SCOREFILE^.SEX:= KEY; " ]; %SCALE[12]:=SCORE[17]; % %FOR J:=0 TO 566 DO RAW[J]:=FALSE; %ABORT:=600; $END; $ #PUT(SCOREFILE); #CLOSE (SCOREFILE,LOCK);  END;  {*********************************************}  BEGIN "{ PROTECT; } "INTROTEXT; "OPENFILE; " %SCALE[2] :=SCORE[6]; %SCALE[3] :=SCORE[7]; %SCALE[4] :=SCORE[8]; %SCALE[5] :=SCORE[9]; %SCALE[6] :=SCORE[10]; %SCALE[7] :=SCORE[11]; %SCALE[8] :=SCORE[12]; %SCALE[9] :=SCORE[13]; %SCALE[0] :=SCORE[14]; %SCALE[11]:=SCORE[15]; %SCALE[10]:=SCORE[16 MAKEINT(NEWVAR); &IF SCORE[J]<=MAX[J] THEN OK:= TRUE; $UNTIL OK; #END; # "GOTOXY(0,23); "WRITE('Entry complete... '); " "WITH SCOREFILE^ DO $BEGIN %SCALE[14]:=SCORE[2]; %SCALE[13]:=SCORE[3]; %SCALE[15]:=SCORE[4]; %SCALE[1] :=SCORE[5]; "WRITELN('Enter each scale score as prmpted and'); "WRITELN('press RETURN.'); " "DEFINEMAX; " "FOR J:=2 TO 17 DO #BEGIN $OK:= FALSE; $REPEAT &ERASE(8,11,8); &WRITELN; &WRITE(PARAM^.FNAME[J],' [max=',MAX[J],']: '); &READLN(NEWVAR); &SCORE[J]:=&MAX[16]:=68; &MAX[17]:=39; & &IF SCOREFILE^.SEX='F' THEN 'BEGIN (MAX[6]:= 54; (MAX[8]:= 43; 'END; %END; %{----------------------------------------}  BEGIN "ERASE(1,23,3); "WRITELN('RAW SCALE SCORE ENTRY:'); "WRITELN; THIS DATA FILE? [Y/N]: YˡW3 צJAN3 צFEB3 צMAR3 צAPR3 צMAY3 צJUN3 צJUL3 צAUG3  צSEP3  צOCT3  צNOV3  צDECƁ/ DATE.DATAADMINISTRATION DATE:צ Was the year  צ ? [Y/N]: Ná&Please enter the year below#IF BUFINDEX=513 THEN $BEGIN &BUFNUM:=BUFNUM+1; &BUFINDEX:=1; &IF PHILE='INTERP' THEN BLOCK:=BLOCKREAD(DATA,BUFFER,1,BUFNUM); &IF PHILE='QUES' THEN BLOCK:=BLOCKREAD(QUESFILE,BUFFER,1,BUFNUM); $END; $ "UNTIL WORD='*'; "WRITELN; !END; {FOR I:=1 TO;  END.  {**************************************************}  BEGIN "PROTECT; "ERASE(0,23,0); " "SETCHAIN ('#4:MMENU'); "MIN:=0; "XOFF:=14; " "INITIALIZE; "TABLE; "GRAPHIT; " "INTERPPROMPT; " "ERASE(0,23,23); "WRITE('ONE MOMENT PLEASE ... ')WI#5:MMPISCORE.CODE.ONE MOMENT PLEASE ... W&r+ h  "7 6##ȡ"6"HXWW0xqFѥWNWצ #4:MMPI.SCOREצ #5:INTPARAM צ#Please enter sex of patient [M/F]: FÝMÍ"7"7"7 "7 "7 "7 "7  "7"7 "7 "7  ]: Pȡ!!Entry complete... W""7"7 "7"7"7'WIFá6+RAW SCALE SCORE ENTRY:%Enter each scale score as prmpted andצ press RETURN.""ȡ! Ѣ [max=ׂJWKڢWMcT[!.6) 3   0 : 'F(DDAY {ex. 31}: ṔKʁKʁK ɄءʁK ڢ  צ 19 צ!IS THIS THE CORRECT DATE? [Y/N]: YáWlow and pressצthe RETURN key.MONTH {ex. JAN}: P ́LʁLȡƁ3 ءڢ %Please enter the date below and pressצthe RETURN key. and press the RETURN key.צYEAR {ex. 85}: ṔKʁKʁKdɄءڢʁKc Was the month ڢ ? [Y/N]: Náצ&Please enter the month be POINTER} ! !IF PHILE ='INTERP' THEN CLOSE(DATA,LOCK)  END;  {********************************************} 1  PROCEDURE OUTGO;  "VAR P: TEXT; { PRINTER }  BEGIN "WRITELN; "WRITELN; "WRITELN ('SCORING......'); # "CONVT; " "{IF (SCOREFILE^.ABORT=700) OR (SCOREFILE^.ABORT<566) THEN CALLCRIT;} $ "FORM; " "IF MALE THEN MISCMALE ELSE MISCFEMALE; # "GTLT; "LOWEST; "HIGHS; " "WRITELN; "WRITELN('DISK PROMPT:'); "WRITELN; "WRITELN('Remove the MMPI SCORING Disk from Disk'); "WRITELN('Dr'K'; %5,6,7,8,9,10,11,12,13:STR(T,GRSTRG); %14:GRSTRG:='0'; %15:GRSTRG:='R'; %16:GRSTRG:='E'; %17:GRSTRG:='A'; #END; #WSTRING (GRSTRG); #X:=X + 15 !END;  PENCOLOR(NONE);  X:=31;  FOR J:= 2 TO 17 DO  BEGIN "I:= TSCORE[J]; "I:= TRUNC (I*1.7);ONE); !X:=51; !FOR J:=1 TO 3 DO "BEGIN $MOVETO (20,X); $PENCOLOR (WHITE); $MOVETO (279,X); $X:=X+34; $PENCOLOR (NONE) "END;  X:=31;  FOR J:=2 TO 17 DO !BEGIN #MOVETO (X,10); #T:=J-4; #CASE J OF %2:GRSTRG:='L'; %3:GRSTRG:='F'; %4:GRSTRG:=&GRSTRG:STRING; &  BEGIN "INITTURTLE; "FOR J:=30 TO 100 DO $BEGIN %X:= TRUNC(J*1.7); %STR(J,GRSTRG); %MOVETO (00,X); %WSTRING(GRSTRG); %J:=J+9 $END;{FOR} !MOVETO (20,191); !PENCOLOR (WHITE); !MOVETO (20,20); !MOVETO (279,20); !PENCOLOR (NNT THEN CLOSE(P); " "GOTOXY(0,23); "WRITE('Press ',CHR(15),'SPACE BAR',CHR(14),' to move on.'); "GOTOXY(40,0); "REPEAT UNTIL KEYPRESS;  END;  {*********************************************}   PROCEDURE GRAPHIT;  "VAR T,X:INTEGER; RAWPLUSK:= RAW + RAWK; $IF J=13 THEN RAWPLUSK:= RAW + ROUND (0.2*RAWK); $ $WRITELN( $' ',NAME[J]:2,S,RAW:2,S,RAWPLUSK:2,S,TSCORE[J]:3); $ $IF PRINT THEN $WRITELN(P,X $ ,NAME[J]:2,X,RAW:2,X,' ',RAWPLUSK:2,X,' ',TSCORE[J]:3); #END; " "IF PRIDJ T SCORE'); "WRITELN; # "FOR J:= 2 TO 17 DO #BEGIN $RAW:= RSCORE[J]; $RAWPLUSK:= RAW; $ $IF J=5 THEN RAWPLUSK:= RAW + ROUND (0.5*RAWK); $IF J=8 THEN RAWPLUSK:= RAW + ROUND (0.4*RAWK); $IF J=11 THEN RAWPLUSK:= RAW + RAWK; $IF J=12 THEN " S: STRING;  BEGIN "RAWK:= RSCORE[4]; " "MAKETSCORES; " "CHECKPRINT; "IF PRINT THEN PRINTTABLE; " "S:= ' ';  "WRITELN('MMPI SCALE SCORES '); "WRITELN('----------------------------------------'); "WRITELN; "WRITELN(' SCORES: RAW K A WRITELN(P,X,'MALE') ELSE WRITELN(P,X,'FEMALE'); "WRITELN(P); "WRITELN(P,X,'SCORES: RAW K ADJ. T SCORES'); "WRITELN(P);  END;  {********************************************}   PROCEDURE TABLE;  "VAR RAW,RAWPLUSK:INTEGER; (P); " "WRITELN(P,X,'MMPI RESULTS ', " 'ADMINISTRATION DATE: ',DATES); "WRITELN(P); "WRITELN(P); "WRITELN(P,X,'NAME: '); "WRITELN(P,X,' ------------------------------'); "WRITELN(P); "WRITELN(P); "IF MALE THEN**********************************}  BEGIN "ERASE(0,23,0); " "MIN:=0; "XOFF:=14; " "INITIALIZE; " "MAKETSCORES; " "OUTGO; " "SETCHAIN('#5:CMENU.CODE'); "ERASE(0,23,23); "WRITE('ONE MOMENT PLEASE ... ');  END. %INTEXTOUT(FILENAME); %ERASE(0,23,23); %WRITE('Press ',CHR(15),'SPACE BAR',CHR(14),' to move on.'); %GOTOXY(40,0); %REPEAT UNTIL KEYPRESS; $END; $ "REWRITE(P,'PRINTER:'); "WRITELN(P,CHR(12)); "WRITELN(P,CHR(12)); "CLOSE(P);  END;  {***********ive #2 and insert the MMPI INTERP-'); "WRITELN('RETIVE TEXT Disk.'); "WRITELN; "WRITE('Press ',CHR(15),'SPACE BAR',CHR(14),' when completed: '); "UNITCLEAR(1); "REPEAT UNTIL KEYPRESS; " "FILENAME:='INTERP'; " "IF POINTER>0 THEN $BEGIN "I:= I-4; "IF (I<34) THEN I:=34; "IF I>180 THEN I:=180; "MOVETO (X,I); "WCHAR('X'); "PENCOLOR(WHITE); "IF (J=4) OR (J=14) THEN $PENCOLOR (NONE) #ELSE PENCOLOR (WHITE); "X:=X+15;  END;  PENCOLOR (NONE);  MOVETO(112,183);