Listing of file='PSY.BAS;01' on disk='vmedia/ncc_1_5-sector.ccvf'
90 PLOT 12 95 PLOT 14 100 PRINT " PSYCHOGRAPH" 102 PLOT 15 103 FOR D= 1TO 1000 104 NEXT D 105 PLOT 12 120 PRINT "":PRINT "THIS PSYCHOGRAPH MEASURES YOUR PERSONALITY VARIABLE , WITH" 130 PRINT "":PRINT "RESPECT TO THE '( MACHIAVELLIANISM VARIABLE )'" 132 FOR F= 1TO 2500 133 NEXT F 134 PLOT 12 135 PRINT "THIS IS NOT A GAME !,.... IT CONTAINS 25 QUESTIONS," 136 PRINT "":PRINT "THE ANSWERES YOU GIVE WILL BE BETWEEN YOU AND ' I ' ONLY" 137 PRINT "":PRINT "NO HUMAN BEING WILL EVER SEE THEM !, PLEASE BE SQUIRE WHITH" 138 PRINT "":PRINT "ME, AND I CAN HELP YOU !" 139 FOR G= 1TO 7000 140 NEXT G 142 PLOT 12 144 PLOT 12:INPUT "I AM YOUR FREIND 'COMPUCOLOR', WHAT IS YOUR FIRST NAME ? ";N$(1) 145 PLOT 12 150 PRINT N$(1)" DO YOU AGREE OR DISAGREE WITH THIS STATEMENT," 160 PRINT "":PRINT "MOST PEOPLE WILL TAKE ADVANTAGE OF YOU, GIVEN THE CHANCE" 165 PRINT "":INPUT "YES OR NO?...";A$ 167 IF A$= "Y"THEN S= 4 168 IF A$= "N"THEN S= 1 170 PLOT 12 200 PRINT "":PRINT "P.T. BARNUM SAID THERE'S A SUCKER BORN EVERY MINUTE..." 210 PRINT "":INPUT "DO YOU AGREE WITH HIM , YES OR NO...";B$ 212 IF B$= "Y"THEN S= S+ 4 213 IF B$= "N"THEN S= S+ 1 215 PLOT 12 220 PRINT "":PRINT " ARE YOU ..." 230 PRINT "":PRINT "( A ) THE OLDEST OR ONLY CHILD IN YOUR FAMILY?...OR" 240 PRINT "":PRINT "( B ) DO YOU HAVE AT LEAST ONE OLDER SIBLING?" 250 PRINT "":INPUT " A OR B ";C$ 252 IF C$= "A"THEN S= S+ 2 253 IF C$= "B"THEN S= S+ 4 255 PLOT 12 300 PRINT "DID YOUR FATHER OFTEN PLAY WITH YOU WHEN YOU WERE A KID ?" 310 PRINT "":PRINT "( A ) QUITE OFTEN." 320 PRINT "":PRINT "( B ) NO MORE AND NO LESS THAN MOST FATHERS." 330 PRINT "":PRINT "( C ) NO HE DIDN'T PAY MUCH ATTENTION TO ME AT ALL" 340 PRINT "":INPUT " ENTER EATHER ( A ) ( B ) OR ( C )";D$ 350 IF D$= "A"THEN S= S+ 2 360 IF D$= "B"THEN S= S+ 3 370 IF D$= "C"THEN S= S+ 4 399 PLOT 12 400 PRINT "WHICH OF THE FOLLOWING BEST REFLECTS YOUR HOLIDAY GIFT-GIVING PHILOSOPHY ?" 405 PRINT "":PRINT "":PRINT "":PRINT "" 410 PRINT "":PRINT "( A ) I GIVE GIFTS ONLY TO PEOPLE WHO ARE CLOSE TO ME" 420 PRINT "":PRINT "":PRINT "( B ) I SOMETIMES GIVE GIFTS TO PEOPLE I DON'T LIKE " 423 PRINT "":PRINT " ( SUCH AS A BOSS OR CUSTOMER )" 430 PRINT "":PRINT "BUT I WOULD'NT IF NO ONE ELSE WERE DOING IT" 440 PRINT "":PRINT "":PRINT "( C ) IT MAKES GOOD SENSE TO GIVE GIFTS TO PEOPLE YOU" 450 PRINT "":PRINT " DON'T LIKE, IF THEY ARE IN A POSITION TO HELP YOU." 455 PRINT "":PRINT "":PRINT "":PRINT "" 460 INPUT "SELECT EATHER A B OR C";E$ 463 IF E$= "A"THEN S= S+ 1 464 IF E$= "B"THEN S= S+ 3 465 IF E$= "C"THEN S= S+ 4 470 PLOT 12 500 PRINT "DO YOU LIKE YOUR JOB ? ..." 505 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 510 PRINT "( A ) YES VERY MUCH ..." 515 PRINT "":PRINT "" 520 PRINT "( B ) IT'S OK" 525 PRINT "":PRINT "" 530 PRINT "( C ) NO" 535 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 540 INPUT "EATHER A, B, OR C, ";F$ 550 IF F$= "A"THEN S= S+ 1 560 IF F$= "B"THEN S= S+ 3 570 IF F$= "C"THEN S= S+ 4 599 PLOT 12 600 PRINT "DO YOU FIND IT EASY TO LOOK PEOPLE STRIGHT IN THE EYE WHEN" 605 PRINT "" 610 PRINT "WHEN YOU LIE TO THEM ?..." 615 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 620 INPUT "YES OR NO ";G$ 630 IF G$= "Y"THEN S= S+ 4 640 IF G$= "N"THEN S= S+ 1 699 PLOT 12 700 PRINT "WHICH OF THESE STATMENTS BEST REFLECTS YOUR FEELINGS ?" 705 PRINT "":PRINT "":PRINT "":PRINT "" 710 PRINT "( A ) IT'S EASY TO TELL RIGHT FROM WRONG, ALTHOUGH I MAY" 715 PRINT "" 720 PRINT " NOT ALWAYS MAKE THE FORMER OVER THE LATTER" 725 PRINT "":PRINT "" 730 PRINT "( B ) LIFE IS FULL OF MORALLY AMBIGUOUS SITUATIONS, IT IS NOT" 735 PRINT "" 740 PRINT " ALWAYS POSSIBLE TO DISTINGUISH RIGHT FROM WRONG." 745 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 750 INPUT "SELECT EATHER A OR B ";H$ 760 IF H$= "A"THEN S= S+ 2 770 IF H$= "B"THEN S= S+ 4 799 PLOT 12 800 PRINT "DO YOU AGREE OR DISAGREE WITH THIS STATEMENT, " 805 PRINT "":PRINT "":PRINT "" 810 PRINT "THE AVERAGE MAN WILL FIGHT FOR HIS RIGHTS EVEN IF HE" 815 PRINT "" 820 PRINT "ENDS UP GETTING SCREWED FOR IT" 825 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 830 INPUT "YES OR NO ";I$ 840 IF I$= "Y"THEN S= S+ 1 850 IF I$= "N"THEN S= S+ 4 890 PLOT 12 900 PRINT "HOW CLOSELY DOES THIS STATEMENT PARALLEL YOUR OWN BEHAVIOR ?" 905 PRINT "":PRINT "":PRINT "":PRINT "" 910 PRINT "WHEN I MEET PEOPLE I DON'T REVEAL MUCH INFORMATION ABOUT" 915 PRINT "" 920 PRINT "MY BACKGROUND, FINANCES AND FEELINGS. IT'S BEST TO KEEP" 925 PRINT "" 930 PRINT "THEM GUESSING ?" 935 PRINT "":PRINT "":PRINT "" 940 PRINT "( A ) VERY CLOSELY, THAT'S HOW I USUALLY ACT" 945 PRINT "":PRINT "" 950 PRINT "( B ) SOMETIMES I ACT THAT WAY, SOMETIMES I DON'T ..." 955 PRINT "" 960 PRINT " IT DEPENDS ON HOW I FEEL ABOUT THE PERSON I'M TALKING TO" 965 PRINT "":PRINT "" 970 PRINT "( C ) I RARELY ACT THAT WAY" 975 PRINT "":PRINT "":PRINT "" 980 INPUT " A B OR C ";J$ 990 IF J$= "A"THEN S= S+ 4 995 IF J$= "B"THEN S= S+ 2 997 IF J$= "C"THEN S= S+ 1 999 PLOT 12 1000 PRINT "WICH OF THE FOLLOWING STATEMENTS BEST REFLECTS YOUR" 1005 PRINT "" 1010 PRINT "FEELINGS ABOUT COMPROMISE ?" 1020 PRINT "":PRINT "":PRINT "" 1030 PRINT "( A ) IF I KNOW I AN RIGHT, I WON'T COMPROMISE" 1040 PRINT "":PRINT "" 1050 PRINT "( B ) EVEN WHEN I KNOW I AM IN THE WRONG, I RARELY COMPROMISE" 1060 PRINT "" 1070 PRINT " OR GIVE IN, IT'S BEST TO STICK TO YOUR GUNS." 1080 PRINT "":PRINT "" 1090 PRINT "( C ) I'LL USUALY LOOK FOR A COMPROMISE, EVEN WHEN I KNOW I'M" 1100 PRINT "" 1110 PRINT " COMPLETELY IN THE RIGHT, IT'S THE MOST SENSIBLE WAY" 1120 PRINT "" 1130 PRINT " OF RESOLVING A PROBLEM" 1140 PRINT "":PRINT "":PRINT "" 1150 INPUT "SELECT A B OR C ";K$ 1160 IF K$= "A"THEN S= S+ 1 1170 IF K$= "B"THEN S= S+ 1 1180 IF K$= "C"THEN S= S+ 4 1200 PLOT 12 1210 PRINT "WHICH OF THE FOLLOWING STATEMENTS BEST DESCRIBES THE WAY YOUR" 1220 PRINT "" 1230 PRINT "PARENTS TREATED YOU AS A KID ?" 1240 PRINT "":PRINT "" 1250 PRINT "( A ) THEY PUNISHED ME A LOT, USING PHYSICAL PUNISHMENT, OR" 1260 PRINT "" 1270 PRINT " FORBIDDING ME TO DO THINGS THAT I WAS NORMALLY ALLOWED" 1280 PRINT "" 1290 PRINT " TO DO, ( STAYING UP LATE, WATCHING T.V. ETC )" 1300 PRINT "":PRINT "" 1310 PRINT "( B ) WHEN I DID SOMETHING WRONG, MY PARENTS USUALLY TRIED" 1315 PRINT "" 1320 PRINT " TO EXPLAIN TO ME WHY WHAT I WAS DOING WAS WRONG, WHEN" 1330 PRINT "" 1340 PRINT " THEY PUNISHED ME, IT WAS AS A LAST RESORT." 1350 PRINT "":PRINT "":PRINT "" 1360 INPUT "SELECT A B OR C ";L$ 1362 IF L$= "A"THEN S= S+ 4 1365 IF L$= "B"THEN S= S+ 2 1370 PLOT 12 1400 PRINT "DO YOU AGREE OR DISAGREE WITH THIS STATEMENT ?":PRINT "":PRINT "":PRINT "" 1410 PRINT "IT'S BEST TO TELL PEOPLE WHAT THEY WANT TO HEAR, TELLING THEM" 1420 PRINT "" 1430 PRINT "THE TRUTH ONLY GETS YOU IN TROUBLE !" 1440 PRINT "":PRINT "":PRINT "":PRINT "" 1450 INPUT "AGREE OR DISAGREE ? ";M$ 1452 IF M$= "A"THEN S= S+ 4 1455 IF M$= "D"THEN S= S+ 1 1460 PLOT 12 1470 PRINT "DO YOU FEEL IT'S IMPORTANT TO CHANGE WITH THE TIMES ?" 1480 PRINT "":PRINT "":PRINT "" 1490 PRINT "( A ) YES, IF YOU DON'T YOU WILL BE LEFT BEHIND." 1500 PRINT "":PRINT "" 1510 PRINT "( B ) NO, THERE'S IS NOTHING WRONG WITH BEING OUT OF STEEP" 1520 PRINT "" 1530 PRINT " OR OLD FASHIONED." 1540 PRINT "":PRINT "":PRINT "" 1550 INPUT "SELECT EATHER A OR B ";N$ 1552 IF N$= "A"THEN S= S+ 4 1555 IF N$= "B"THEN S= S+ 1 1560 PLOT 12 1570 PRINT "DO YOU HAVE A POKER FACE ?" 1580 PRINT "":PRINT "":PRINT "" 1590 PRINT "( A ) YES, AND I LOVE USING IT TO BLUFF PEOPLE" 1600 PRINT "":PRINT "" 1610 PRINT "( B ) I CAN BLUFF IF I HAVE TO, BUT IT DOESN'T COME EASILY" 1620 PRINT "" 1630 PRINT " AND I DON'T ENJOY IT." 1640 PRINT "":PRINT "" 1645 PRINT "( C ) NO, PEOPLE ALWAYS SEE THROUGH ME" 1650 PRINT "":PRINT "":PRINT "":PRINT "" 1660 INPUT "SELECT A B OR C ";O$ 1670 IF O$= "A"THEN S= S+ 4 1680 IF O$= "B"THEN S= S+ 2 1690 IF O$= "C"THEN S= S+ 1 1700 PLOT 12 1710 PRINT "HOW CLOSELY DOES THE FOLLOWING STATEMENT REFLECT YOUR OWN" 1720 PRINT "" 1730 PRINT "WAY OF ACTING ?" 1740 PRINT "":PRINT "" 1750 PRINT "I BELIEVE IN THE OLD SAYING, ' DON'T GET MAD JUST GET EVEN'" 1760 PRINT "" 1770 PRINT "TRADING INSULTS WITH SOME ONE DOESN'T GIVE ME ANY ADVANTAGE" 1780 PRINT "" 1790 PRINT "OVER HIM. WHEN I AM ANGRY WITH SOMEONE, I BIDE MY TIME UNTIL" 1800 PRINT "" 1810 PRINT "I CAN GET MY REVENGE." 1820 PRINT "":PRINT "" 1830 PRINT "( A ) YES, THAT'S HOW I OPERATE." 1840 PRINT "":PRINT "" 1850 PRINT "( B ) THAT'S HOW I'D LIKE TO OPERATE, BUT I'M NOT ALWAYS" 1860 PRINT "" 1870 PRINT " SUCCESSFUL, WHEN I GET REALLY ANGRY, I'M LIKELY TO" 1880 PRINT "" 1890 PRINT " BLOW UP INSTEAD OF WAITING FOR THE PROPER MOMENT." 1900 PRINT "":PRINT "" 1910 PRINT "( C ) I NEVER SEEM TO BE ABLE TO CONTAIN MY ANGER THAT WAY." 1920 PRINT "":PRINT "" 1930 PRINT "( D ) I RARELY GET MAD AT ANYONE." 1940 PRINT "":PRINT "" 1950 INPUT " SELECT EATHER A, B, C, OR D ";P$ 1960 IF P$= "A"THEN S= S+ 4 1970 IF P$= "B"THEN S= S+ 2 1980 IF P$= "C"OR P$= "D"THEN S= S+ 1 2000 PLOT 12 2010 PRINT "DO YOU AGREE OR DISAGREE WITH THIS STATEMENT ?" 2020 PRINT "":PRINT "" 2030 PRINT "YOU'VE GOT TO CUT CORNERS FROM TIME TO TIME, IF YOU PLAN" 2035 PRINT "" 2040 PRINT "TO SUCCEED." 2050 PRINT "":PRINT "":PRINT "" 2060 PRINT "":PRINT "":PRINT "" 2070 INPUT "AGREE OR DISAGREE ";Q$ 2073 IF Q$= "A"THEN S= S+ 4 2075 IF Q$= "D"THEN S= S+ 1 2080 PLOT 12 2090 PRINT "DID YOU ENJOY YOUR YEARS IN HIGH SCHOOL, AND DID YOU" 3000 PRINT "" 3010 PRINT "GET ALONG ALONG WELL WITH YOUR TAECHERS ?" 3020 PRINT "":PRINT "":PRINT "":PRINT "" 3030 INPUT " YES OR NO ? ";R$ 3035 IF R$= "Y"THEN S= S+ 2 3037 IF R$= "N"THEN S= S+ 4 3040 PLOT 12 3050 PRINT "HOW CLOSE ARE YOU TO YOUR RELATIVES ?" 3060 PRINT "":PRINT "":PRINT "":PRINT "" 3070 PRINT "( A ) VERY CLOSE." 3080 PRINT "":PRINT "" 3090 PRINT "( B ) FAIRLY CLOSE." 4000 PRINT "":PRINT "" 4010 PRINT "( C ) WE ALL GET ALONG, BUT WE ARE NOT VERY CLOSE." 4020 PRINT "":PRINT "" 4030 PRINT "( D ) NOT CLOSE AT ALL." 4040 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 4050 INPUT "SELECT EATHER A, B, C, OR D ";S$ 4052 IF S$= "A"THEN S= S+ 4 4054 IF S$= "B"THEN S= S+ 3 4056 IF S$= "C"THEN S= S+ 2 4058 IF S$= "D"THEN S= S+ 1 4060 PLOT 12 4070 PRINT "DO YOU AGREE OR DISAGREE WITH THIS STATEMENT ?" 4080 PRINT "":PRINT "":PRINT "" 4090 PRINT "DEEP DOWN WE'RE ARE ALL CROOKS, A CRIMINAL IS JUST SOMEONE" 5000 PRINT "" 5010 PRINT "WHO GOT CAUGHT ?." 5020 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 5030 INPUT "DO YOU AGREE OR DISAGREE ? ";T$ 5033 IF T$= "A"THEN S= S+ 4 5035 IF T$= "D"THEN S= S+ 1 5040 PLOT 12 5050 PRINT "DO YOU THINK YOUR FATHER WAS DEVIOUS ?" 5060 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 5070 INPUT "YES OR NO ? ";U$ 5072 IF U$= "Y"THEN S= S+ 4 5075 IF U$= "N"THEN S= S+ 1 5080 PLOT 12 5090 PRINT "DO YOU THINK THE END JUSTIFIES THE MEANS ?" 6000 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 6010 INPUT "YES OR NO ? ";V$ 6013 IF V$= "Y"THEN S= S+ 4 6015 IF V$= "N"THEN S= S+ 1 6020 PLOT 12 6030 PRINT "WICH OF THESE STATEMENTS BEST REFLECTS YOUR ATTITUDES ?" 6040 PRINT "":PRINT "":PRINT "":PRINT "" 6050 PRINT "( A ) PROMISES SHOULD BE KEPT NO MATTER WHAT." 6060 PRINT "":PRINT "" 6070 PRINT "( B ) PROMISES CAN BE BROKEN IF THE CONDITIONS UNDER WHICH" 6080 PRINT "" 6090 PRINT " THEY WERE ORIGINALLY MADE CHANGE. " 6100 PRINT "":PRINT "" 6110 PRINT "( C ) PROMISES ARE MADE TO BE BROKEN." 6120 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 6130 INPUT "SELECT EATHER A, B, OR C ";W$ 6132 IF W$= "A"THEN S= S+ 1 6134 IF W$= "B"THEN S= S+ 2 6136 IF W$= "C"THEN S= S+ 4 6140 PLOT 12 6150 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 6160 INPUT "WOULD YOU RATHER BE, FEARED OR LOVED ? ";X$ 6162 IF X$= "F"THEN S= S+ 4 6165 IF X$= "L"THEN S= S+ 1 6170 PLOT 12 6180 PRINT "DO YOU AGREE OR DISAGREE WITH THIS STATEMENT ?" 6190 PRINT "":PRINT "":PRINT "":PRINT "" 6200 PRINT "PEOPLE WHO DO NOT KNOW WHAT THEY WANT OUT OF LIFE CAN" 6210 PRINT "" 6220 PRINT "BE MANIPULATED BY OTHERS ?" 6230 PRINT "":PRINT "":PRINT "":PRINT "" 6240 INPUT "DO YOU AGREE OR DISAGREE ? ";Y$ 6250 IF Y$= "A"THEN S= S+ 4 6260 IF Y$= "D"THEN S= S+ 1 6290 PLOT 12 6510 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 6520 PRINT "THANK TOU FOR PARTISIPATING IN THIS STYDY" 6522 FOR C= 1TO 2000 6525 NEXT C 6527 PRINT "":PRINT "":PRINT "":PRINT "" 6530 PRINT "":PRINT "":PRINT "" 6540 PRINT "THIS COMPUTER WILL NOW COMPUTE YOUR SCORE" 6545 FOR A= 1TO 2000 6550 NEXT A 6560 PLOT 12 6580 PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "":PRINT "" 6589 PRINT " COMPUTING" 6600 FOR B= 1TO 2000 6610 NEXT B 7000 PLOT 12 7010 IF S< = 52GOTO 9500 7020 IF S> 52OR S< 77GOTO 9300 8000 PRINT "":PRINT "CONGRATULATIONS, COMPARED WITH YOU, MACHIAVELLI LOOKS ABOUT AS" 8010 PRINT "":PRINT "GULIEFUL AS LITTLE BO-PEEP... YOU WILL PROBABLY BE EITHER" 8020 PRINT "":PRINT "THE PRESIDENT OF THE UNITED STATES, OR A CONTRACT ASSASSIN" 8030 PRINT "":PRINT "FOR THE C.I.A. , OR BOTH. 8040 PRINT "":PRINT "ACTUALLY, MEN WITH HIGH 'MACHIAVELLIANISM' SCORES ARE NOT " 8050 PRINT "":PRINT "NECESSARILY EVEL, BUT THEY ARE MANIPULATIVE. THEY ARE ALWAYS" 8060 PRINT "":PRINT "LOOKING FOR THE OPPORTUNITY THAT WILL GIVE THEM ANADVANTAGE" 8070 PRINT "":PRINT "IN THE PROCESS THEY CAN BE HIGHLY CREATIVE, THEY EXPLOR AND" 8080 PRINT "":PRINT "EXPAND THE LITIMITS THAT HUMAN BEINGS TEND TO PLACE ON THEMSELVES" 8090 PRINT "":PRINT "YOU PROBABLY HAVE LITTLE INTEREST IN CONVENTIONAL MORALITY" 8100 PRINT "":PRINT "OR ORGANIZED RELIGION. PEOPLE LIKE YOU ARE ATTRACTED BY POWER" 8110 PRINT "":PRINT "AND OFTEN BECOME EFFECTIVE LEADERS. TOU ARE ATTRACTED BY" 8120 PRINT "":PRINT "TO BE CONCERNED WITH BROBLEMS OF INDIVIDUALS ( EXCEPT YOUR OWN" 8130 PRINT "":PRINT ",OF COURSE)" 8135 INPUT " HIT RETURN FOR NEXT PAGE. ";N$ 8137 PLOT 12 8140 PRINT "":PRINT "YET, BECAUSE YOU CAN SEE THE PROVERBIAL 'BIG PICTURE'," 8150 PRINT "":PRINT "YOU FUNCTION WELL AS A LEADER OF MEN... END THE END" 8160 PRINT "":PRINT "HOWEVER, YOU DISTRUST MOST PEOPLE YOU ASSUME THEY ARE AS" 8170 PRINT "":PRINT "AS DEVIOUS AS YOU... YOU TRUST YOUR OWN JUDGMENT AND ARE" 8180 PRINT "":PRINT "NOT EASILY IMPRESSED. HOWEVER, WHEN YOU'RE DEALING WITH" 8190 PRINT "":PRINT "PEOPLE IN PRESTIGIOUS POSITIONS, YOU SHOULD WATCH OUT" 8200 PRINT "":PRINT "THEY'RE THE ONES ONES WHO CAN GET A MAN LIKE YOU TO DO SOMETHING" 8210 PRINT "":PRINT "STUPID. ONE OF THE BEST THING ABOUT YOU IS THAT YOU ARE NOT" 8220 PRINT "":PRINT "ONE OF THE BEST THINGS ABOUT YOU IS THAT YOU ARE NOT VICIOUS" 8230 PRINT "":PRINT "OR VINDICTIVE. YOU MAY MANIPULATE A SITUATION TO YOUR BEST" 8240 PRINT "":PRINT "ADVATTAGE, BUT IF YOU LOSE OUT, YOU TEND TO GO ON TO SOMETHING" 8250 PRINT "":PRINT "ELSE WITHOUT HOLDING A GRUDGE. IT MAY INTEREST YOU TO KNOW" 8260 PRINT "":PRINT "PSYCHOLOGISTS RANK AMONG THE HIGHEST SCORES IN MACHIAVELLIAN " 8270 PRINT "":PRINT "DEVIOUSNESS" 8280 PRINT "":INPUT " DO YOU WISH TO RETAKE THE TEST ? ";Y$ 8285 IF Y$= "Y"GOTO 90 8287 PRINT "":PLOT 12:PRINT "THANK YOU, GOOD BY." 8290 END 9300 PRINT "LIKE MOST PEOPLE, YOU FALL BETWEEN THE EXTREMES. " 9310 PRINT "":PRINT "YOU WON'T SPEND YOUR LIFE PLOTTING AND CONNIVING, BUT" 9320 PRINT "":PRINT "NEITHER ARE YOU COMPLETELY NAIVE IN THE WAYS OF THE WORLD" 9330 PRINT "":PRINT "YOU MAY OFTEN FIND YOURSELFE IN AN UNCOMFORTABLE MORAL BIND" 9340 PRINT "":PRINT "YOU KNOW THAT TO SUCCEED,YOU MUST PARTICIPATE AT TIMES IN" 9350 PRINT "":PRINT "MACHIAVELLIAN MACHINATIONS, YET IT DISTRESSES YOU TO " 9360 PRINT "":PRINT "COMPROMISE LONG-HELD BELIEFS AND STANDARDS. YOU REPRESENT" 9370 PRINT "":PRINT "THE MODERN MAN,,, THAT EXISTENTIALIST PHILOSOPHERS" 9380 PRINT "":PRINT "HAVE WRITTEN ABOUT. YOU FEEL THAT OLD CODES AND METHODS" 9390 PRINT "":PRINT "OF DEALING WITH LIFE ARE NO LONGER EFFECTIVE, BUT YOU ARE" 9400 PRINT "":PRINT "NOT ATTRACTED TO WHAT HAS REPLACED THEM. SOMETIMES YOU STAND UP" 9410 PRINT "":PRINT "AND FIGHT,... SOME TIMES YOU COMPROMISE. TO AVOID THESE" 9420 PRINT "":PRINT "DILEMMAS, YOU MAY TURN INWARD. YOU SETTLE FOR A COMFORTABLE" 9430 PRINT "":PRINT "NICHE SOMEWHERE ALONG THE CAREER LADDER AND TURN YOUR ATTENTION" 9434 PRINT "" 9435 INPUT " HIT RETURN FOR NEXT PAGE. ";N$ 9437 PLOT 12 9440 PRINT "":PRINT "TO THE GOOD LIFE---A NICE HOUSE,GOOD FOOD, AND CULTURE." 9450 PRINT "":PRINT "YOU DON'T WANT TO GO OUT AND FIGHT WITH ALL THE SCHEMING" 9460 PRINT "":PRINT "ANIMALS, BUT YOU DON'T WANT TO BE MADE A FOOL OF. SO YOU" 9470 PRINT "":PRINT "RETREAT TO THE PLEASURES OF SOPHISTICATION... WHERE YOU ARE" 9480 PRINT "":PRINT "INSULATED FROM PAINFUL CHOICES. GIVEN THE ALTERNATIVES" 9490 PRINT "":INPUT "DO YOU WISH TO RETAKE THE TEST ? ";Y$ 9492 IF Y$= "Y"THEN GOTO 90 9495 PLOT 12:PRINT "THANK YOU, GOOD BY.":END 9500 PRINT "":PRINT "IF YOU SCORED IN THIS CATEGORY ( PARTICULARLY AT THE LOW END" 9510 PRINT "":PRINT "YOU MAY STILL BELIEVE IN THE TOOTH FAIRY, THAT'S NOT NECESSARILY" 9520 PRINT "":PRINT "BAD... IN FACT, GIVEN THE DECADENT AGE IN WHICH WE LIVE" 9530 PRINT "":PRINT "IT'S DOWNRIGHT REFERSHING. PEOPLE LIKE YOU, WHO HAVE VERY" 9540 PRINT "":PRINT "FEW MACHIAVELLIAN CHAHACTERISTICS, ARE OFTEN UNSURE OF THEMSELVES" 9550 PRINT "":PRINT "AND LOOK TO OTHERS FOR GUIDANCE. MANY ACTUALLY ENJOY BEING" 9560 PRINT "":PRINT "DOMINATED AND PUSHED AROUND BECAUSE IT RELIEVES THEM OF THE" 9570 PRINT "":PRINT "BURDEN OF DECISION MAKING. THEY ARE STRONG BELIEVERS IN" 9580 PRINT "":PRINT "THE DIFFERENCES BETWEEN RIGHT AND WRONG AND TEND TO SUPPORT" 9590 PRINT "":PRINT "TRADITIONAL RELIGIONS." 9600 PRINT "":PRINT "BUT PEOPLE LIKE YOU ARE NOT NECESSARILY SANCTIMONIOUS CREEPS." 9610 PRINT "":PRINT "THEY CAN BE EXTRAORDINARILY GENEROUS. THEY DONT SEE" 9613 PRINT "" 9615 INPUT " HIT RETURN FOR NEXT PAGE. ";N$ 9617 PLOT 12 9620 PRINT "":PRINT "HUMANITY AS SOMEAMORPHOUS MASS BUT AS A COLLECTION OF" 9630 PRINT "":PRINT "INDIVIDUALS. THEY RESPOND ON A ONE-TO-ONE BASIS AND," 9640 PRINT "":PRINT "CONSEQUENTLY, TEND TO BE SYMPATHETIC AND CARING TOWARD OTHERS" 9650 PRINT "":PRINT "IN PERSONAL RELATIONSHIPS THEY ARE NOT COLD AND ANALYTIC" 9660 PRINT "":PRINT "AS MEN HIGH IN MACHIAVELLIANISM WOULD BE. THEY TAKE OTHER" 9670 PRINT "":PRINT "PROPLE'S PROBLRMS TO HEART, AND THEY ARE PROPLE WHOM" 9680 PRINT "":PRINT "YOU'RE LUCKY TO HAVE AS FRIENDS 9700 END