10  REM  ANDRO:  ANDROGYNOUS PERSONALITY QUIZ;
20  REM  PROGRAMMED BY MR. WILLIAM K. CHAR III, JANUARY 22, 1975;
30  REM  WOODROW WILSON EDP RESOURCE CENTER, SAN FRANCISCO.
40  REM
50  DIM A[2],A$[35],N$[15]
60  REM
70  PRINT "HELLO, WHAT IS YOUR NAME";
80  INPUT N$
90  PRINT 
100  PRINT "     THIS PROGRAM WILL TEST HOW ANDROGYNOUS YOU ARE, "N$"."
110  PRINT "PLEASE THINK CAREFULLY ABOUT EACH OF THE TWENTY QUESTIONS"
120  PRINT "WHICH FOLLOW AND ANSWER EACH WITH A 1, 2, 3, OR 4 --"
130  PRINT 
140  PRINT "      1 = USUALLY NOT;"
150  PRINT "      2 = OCCASIONALLY;"
160  PRINT "      3 = QUITE OFTEN;"
170  PRINT "      4 = FREQUENTLY."
180  PRINT 
190  PRINT "====="
200  FOR I=1 TO 2
210  A[I]=0
220  PRINT 
230  FOR J=1 TO 10
240  READ A$
250  PRINT "HOW "A$" ARE YOU";
260  INPUT N
270  N=INT(N)
280  IF N<1 OR N>4 THEN 250
290  A[I]=A[I]+N
300  NEXT J
310  PRINT "     YOUR TOTAL FOR THIS SECTION IS"A[I]
320  NEXT I
330  PRINT 
340  PRINT "     THE FIRST TEN QUESTIONS DESCRIBE QUALITIES WHICH ARE"
350  PRINT "GENERALLY ASSOCIATED WITH MEN; THE SECOND TEN QUESTIONS"
360  PRINT "DEAL WITH WOMEN  AN ANDROGYNOUS PERSON IS ONE WHO STRIKES"
370  PRINT "A BALANCE BETWEEN BOTH QUALITIES.  SINCE THE DIFFERENCE"
380  IF ABS(A[1]-A[2]) >= 10 THEN 420
390  PRINT "BETWEEN YOUR SCORES IS LESS THAN 10, YOU CAN BE CLASSIFIED"
400  PRINT "AS ANDROGYNOUS, "N$"."
410  STOP 
420  PRINT "BETWEEN YOUR SCORES IS GREATER THAN OR EQUAL TO 10, YOU HAVE"
430  PRINT "TRAITS WHICH ARE TOO MANLY OR WOMANYL.  YOU CANNOT BE"
440  PRINT "CLASSIFIED AS ANDROGYNOUS, "N$"."
450  STOP 
460  REM     ===== MASCULINE CHARACTERISTICS =====
470  DATA "AGRESSIVE","AMBITIOUS","ASSERTIVE","ATHLETIC","COMPETITIVE"
480  DATA "DOMINATING","FORCEFUL","INDEPENDENT","SELF-RELIANT"
490  DATA "WILLING TO TAKE A STAND"
500  REM     ===== FEMININE CHARACTERISTICS =====
510  DATA "AFFECTIONATE","COMPASSIONATE","GENTLE"
520  DATA "LOVING TOWARD CHILDREN","LOYAL","SENSITIVE TO OTHERS"
530  DATA "SYMPATHETIC","TENDER","UNDERSTANDING","WARM"
540  END 
