Psychology Test

Gallery

Source Code

 100 CLS 
 110 PRINT "THIS IS A PSYCHOLOGY TEST."
 115 PRINT 
 120 PRINT "THERE ARE FIVE SHORT TEST. EACH TEST WILL BE SOME";
 130 PRINT " DESIGN. YOU   ARE TO MAKE A PICTURE OUT OF THEDESIGN.";
 140 PRINT " AFTER YOU DRAW THE      PICTURE, YOU WILL ANSWER A      QUESTION";
 150 PRINT " ON WHAT YOU DREW. AFTERTHE FIVE TESTS ARE OVER,";
 160 PRINT " THE    COMPUTER WILL MAKE AN ANALYSIS  OF YOU."
 165 PRINT 
 166 PRINT 
 170 PRINT "HIT -ENTER- TO BEGIN..."
 172 INPUT Z$
 175 CLS 
 180 PRINT "TEST NO.1"
 185 PRINT 
 190 PRINT TAB 15;"X";TAB 14;"XXX";TAB 14;"XXX";
 200 PRINT TAB 15;"X"
 201 PRINT 
 202 PRINT 
 204 FOR P=1 TO 350
 206 NEXT P
 210 PRINT "-------------------------------"
 212 PRINT 
 230 PRINT "THE DOT IN THE MIDDLE OF THE    TEST BLOCK";
 240 PRINT " REPRESENTS IN YOUR   PICTURE..."
 245 PRINT 
 250 PRINT "(1) THE CENTRAL SUBJECT"
 255 PRINT 
 260 PRINT "(2) THE RIGHT OR LEFT OF THE        SUBJECT"
 270 INPUT A
 272 CLS 
 274 PRINT 
 276 PRINT "TEST NO.2"
 278 PRINT 
 280 PRINT "********************************"
 290 PRINT TAB 5;"X";TAB 26;"X"
 300 PRINT TAB 4;"X";TAB 27;"X"
 310 PRINT TAB 3;"X";TAB 28;"X"
 320 PRINT TAB 2;"X";TAB 29;"X"
 325 PRINT 
 340 PRINT 
 360 PRINT TAB 2;"X";TAB 29;"X"
 370 PRINT TAB 3;"X";TAB 28;"X"
 380 PRINT TAB 4;"X";TAB 27;"X"
 390 PRINT TAB 5;"X";TAB 26;"X"
 400 PRINT "********************************"
 402 FOR P=1 TO 350
 404 NEXT P
 410 PRINT 
 420 PRINT "IN YOUR PICTURE ARE THE FOUR    CORNERS CONNECTED ?"
 430 PRINT 
 432 PRINT "PRESS Y (YES) OR N (NO)"
 434 INPUT B$
 436 IF B$="Y" THEN LET B=1
 438 IF B$="N" THEN LET B=0
 440 CLS 
 442 PRINT 
 444 PRINT "TEST NO.3"
 450 PRINT 
 460 FOR I=1 TO 4
 462 PRINT TAB 29;","
 464 NEXT I
 472 PRINT TAB 25;"----"
 480 FOR I=1 TO 4
 482 PRINT TAB 24;","
 484 NEXT I
 490 PRINT TAB 20;"----"
 500 FOR I=1 TO 4
 502 PRINT TAB 19;","
 504 NEXT I
 510 PRINT TAB 15;"----"
 512 FOR P=1 TO 350
 514 NEXT P
 540 PRINT "IN YOUR PICTURE DOES THE DESIGN REPRESENT STAIRS ?"
 545 PRINT 
 550 PRINT "PRESS Y (YES) OR N (NO)"
 552 INPUT C$
 554 IF C$="Y" THEN LET C=1
 556 IF C$="N" THEN LET C=0
 560 CLS 
 562 PRINT 
 564 PRINT "TEST NO.4"
 566 PRINT 
 580 FOR I=1 TO 5
 582 PRINT TAB 29;","
 584 NEXT I
 590 PRINT TAB 25;"----"
 600 FOR I=1 TO 4
 602 PRINT TAB 24;","
 604 NEXT I
 606 PRINT 
 608 FOR P=1 TO 350
 609 NEXT P
 620 PRINT "THE SUBJECT OF YOUR PICTURE IS.."
 622 PRINT 
 630 PRINT "(1) AN ANIMAL OR PERSON"
 632 PRINT 
 634 PRINT "(2) SOMETHING MECHANICAL"
 640 INPUT D
 642 CLS 
 644 PRINT 
 646 PRINT "TEST NO.5"
 650 PRINT 
 660 FOR I=1 TO 10
 662 PRINT TAB 13;",    ,"
 664 NEXT I
 670 PRINT 
 672 FOR P=1 TO 350
 674 NEXT P
 680 PRINT "HOW MANY TIMES IN YOUR PICTURE  DID YOU DRAW A LINE WHICH";
 690 PRINT "       CROSSED BOTH PARALLEL LINES"
 692 INPUT E
 694 CLS 
 696 PRINT 
 700 PRINT TAB 8;"TEST COMPLEAT"
 705 PRINT AT 11,9;"**STAND BY**"
 710 FOR I=1 TO 250
 712 NEXT I
 714 CLS 
 716 PRINT AT 1,9;"PSYCHO ANALYSIS"
 718 PRINT 
 720 IF A=1 THEN GOTO 750
 730 PRINT "YOU ARE NOT SELF-CENTERED, AND  HAVE A ";
 740 PRINT "GOOD SENCE OF DESIGN."
 742 PRINT 
 744 GOTO 760
 750 PRINT "YOU ARE SELF-CENTERED,AND HAVE  SELFISH TENDENCIES."
 760 IF B=0 THEN GOTO 790
 770 PRINT "YOU ENJOY PEOPLES COMPANY, AND  ARE SOCIAL-MINDED."
 780 GOTO 820
 790 PRINT "YOU PREFER TO BE ALONE AT TIMES,AND ARE NOT A PARTY TYPE."
 820 IF C=1 THEN GOTO 860
 830 PRINT "YOU ARE A NON-CONFORMIST, AND   ENJOY DOING THINGS";
 840 PRINT " BECAUSE YOU  LIKE THEM, NOT BECAUSE YOU ARE";
 850 PRINT "  INFLUENCED BY OTHERS."
 852 GOTO 870
 860 PRINT "YOU ARE A CONFORMIST, AND YOU   FOLLOW THE CROWD."
 870 PRINT 
 880 IF D=2 THEN GOTO 910
 890 PRINT "YOU ARE NOT MECHANICAL-MINDED,  BUT YOU ARE ";
 900 PRINT "CONCERNED FOR OTHER LIVING THINGS."
 902 GOTO 930
 910 PRINT "YOU ARE MECHANICAL MINDED, AND  ENJOY WORKING ";
 920 PRINT "WITH INANIMATE    OBJECTS."
 930 PRINT 
 940 IF E<=3 THEN GOTO 970
 942 IF E<=6 THEN GOTO 1000
 944 IF E<=10 THEN GOTO 1030
 950 PRINT "***WOW*** YOUR SEX DRIVE IS VARY,VARY, STRONG...";
 960 PRINT "THEY BETTER KEEPYOU IN A CAGE."
 962 GOTO 1050
 970 PRINT "YOU HAVE A VARY WEAK SEX DRIVE, AND YOU PROBABLY ";
 980 PRINT "DONT ENJOY THE COMPANY OF MEMBERS OF THE       OPPOSIT SEX."
 990 GOTO 1050
1000 PRINT "YOUR SEX DRIVE IS MEDIUM LOW.   YOU DONT ";
1010 PRINT "MIND BEING WITH MEMBERSOF THE OPPOSITE SEX, ";
1020 PRINT "BUT YOU    DONT PREFER IT EITHER."
1022 GOTO 1050
1030 PRINT "YOU HAVE A MEDIUM HIGH SEX DRIVE, AND YOU ";
1040 PRINT "ENJOY BEING WITH      MEMBERS OF THE OPPOSITE SEX."
1050 PRINT 
1060 PRINT "THIS IS THE END OF YOUR         PSYCHO-ANALYSIS."
1070 STOP 
1080 CLEAR 
1090 SAVE "1032%6"
1100 RUN