10  COM A$[72],N$[20],W$[20],X$[72],D[5],M,N,S
20  REM *** CHAIN TO FWAM2.A100   2-DEC-78 A. DE MARTINO ***
25  REM *** CHAIN TO FWAM3.A100 ALSO
30  REM  WOMEN'S LIB, PART 1, WRITTEN AND PROGRAMMED BY DIANE MCENTYRE,
40  REM  UC BERKLEY, SPRING 1972.  REVISED MAY 1974 BY WILLIAM CHAR.
41  REM:  PGM. NAME CHANGED IN LINE 3260 FROM $FWAM2 * 10/4/75 MIKE S.
50  REM
60  MAT D=ZER
70  IF TIM(1)>11 THEN 100
80  PRINT "GOOD MORNING, ";
90  GOTO 140
100  IF TIM(1)>15 THEN 130
110  PRINT "GOOD AFTERNOON, ";
120  GOTO 140
130  PRINT "GOOD EVENING, ";
140  PRINT "CAN YOU SOLVE THIS RIDDLE?"
150  PRINT 
160  PRINT "     A FATHER AND HIS SON WERE INVOLVED IN A CAR ACCIDENT."
170  PRINT "THE FATHER WAS KILLED.  THE SON WAS TAKEN TO THE HOSPITAL."
180  PRINT "THE DOCTOR SAW HIM AND EXCLAIMED, ''I CAN'T OPERATE--"
190  PRINT "THAT'S MY SON!''  WHO WAS THE DOCTOR?"
200  PRINT 
210  INPUT A$
220  X$="MOTHER"
230  GOSUB 3370
240  IF A THEN 350
250  X$="WOMAN"
260  GOSUB 3370
270  IF A THEN 350
280  X$="MOM"
290  GOSUB 3370
300  IF A THEN 350
310  PRINT 
320  PRINT "MOST PEOPLE DON'T GUESS THAT THE DOCTOR WAS A WOMAN--"
330  PRINT "THE BOY'S MOTHER."
340  GOTO 370
350  PRINT 
360  PRINT "VERY GOOD.  MOST PEOPLE DON'T GET IT."
370  PRINT 
380  PRINT "     THIS COMPUTER, IN AN ATTEMPT TO BE LIBERATING, IS"
390  PRINT "PRESENTING THE FWAM (FREE WOMEN AND MEN) PROGRAM, HOPING"
400  PRINT "TO INVESTIGATE SOME REASONS WHY MORE PEOPLE DON'T MAKE"
410  PRINT "ASSOCIATIONS LIKE WOMEN AND DOCTORS."
420  PRINT 
430  PRINT "     IT WOULD HELP TO KNOW A LITTLE ABOUT YOU FIRST."
440  PRINT "LATER, THE COMPUTER WILL REVEAL HER OWN PREJUDICES."
450  PRINT 
460  PRINT "WHAT'S YOUR FIRST NAME";
470  INPUT N$
480  PRINT 
490  PRINT "AND YOUR SEX";
500  INPUT A$
510  S=0
520  IF A$[1,1]="M" THEN 600
530  S=1
540  IF A$[1,1]="F" THEN 570
550  PRINT "PLEASE TYPE MALE OR FEMALE"
560  GOTO 500
570  IF A=0 THEN 600
580  PRINT 
590  PRINT "MAYBE THAT'S WHY YOU KNEW THE DOCTOR WAS A WOMAN."
600  PRINT 
610  PRINT "ARE YOU MARRIED, "N$;
620  GOSUB 3280
630  M=A
640  IF M=0 THEN 720
650  IF S THEN 690
660  PRINT 
670  PRINT "WHAT IS YOUR WIFE'S FIRST NAME";
680  GOTO 870
690  PRINT 
700  PRINT "WHAT IS YOUR HUSBAND'S FIRST NAME";
710  GOTO 870
720  PRINT 
730  PRINT "IT'S PROBABLY MORE FUN TO RUN IS PROGRAM IF YOU SAY"
740  PRINT "YES TO MARRIED OR ENGAGED.  IF NOT, YOU CAN FAKE A SPOUSE'S"
750  PRINT "NAME IF YOU WANT."
760  PRINT 
770  PRINT "ARE YOU ENGAGED";
780  GOSUB 3280
790  M=A
800  IF M=0 THEN 880
810  IF S THEN 850
820  PRINT 
830  PRINT "WHAT IS YOUR FIANCE'S FIRST NAME";
840  GOTO 870
850  PRINT 
860  PRINT "WHAT IS YOUR FIANCEE'S FIRST NAME";
870  INPUT W$
880  PRINT 
890  PRINT "WOULD YOU GIVE AN ADJECTIVE THAT DESCRIBES YOUR GENERAL"
900  PRINT "REACTION TO THE WOMEN'S MOVEMENT?"
910  INPUT A$
920  IF M=0 THEN 960
930  PRINT 
940  PRINT "DO YOU THINK "W$" HAS A SIMILAR REACTION?"
950  GOSUB 3280
960  PRINT 
970  PRINT "DO YOU FEEL THERE IS DISCRIMINATION AGAINST WOMEN IN OUR"
980  PRINT "SOCIETY?"
990  GOSUB 3280
1000  IF A=0 THEN 1030
1010  PRINT 
1020  PRINT "GOOD. THAT'S A START."
1030  PRINT 
1040  PRINT "ARE THERE WAYS IN WHICH YOU PERSONALLY FEEL PREJUDICE?"
1050  GOSUB 3280
1060  IF A=0 THEN 1140
1070  PRINT 
1080  PRINT "PLEASE NAME SOME SPECIFIC WAYS, "N$":"
1090  INPUT A$
1100  PRINT 
1110  PRINT "I DON'T REALLY UNDERSTAND THAT RESPONSE."
1120  PRINT "MAYBE YOU SHOULD TELL A FRIEND."
1130  GOTO 1170
1140  PRINT 
1150  PRINT "DON'T GIVE UP, "N$".  MAYBE YOU CAN THINK OF SOME BY THE"
1160  PRINT "END OF THIS PROGRAM."
1170  PRINT 
1180  PRINT "     MEMBERS OF THE WOMEN'S MOVEMENT HAVE POINTED OUT"
1190  PRINT "CERTAIN MANIFESTATIONS OF SEX DISRIMINATION AGAINST BOTH"
1200  PRINT "MEN AND WOMEN.  BEFORE WE CONSIDER SOME OF THESE, LET'S"
1210  PRINT "ELIMINATE SOME SEXIST LANGUAGE."
1220  PRINT 
1230  PRINT "     WHEN SOMEONE SPEAKS IN ENGLISH, SHE USUALLY HAS TO"
1240  PRINT "CHOOSE A GENDER WHEN SHE REALLY IS REFERRING TO BOTH"
1250  PRINT "SEXES.  WOULD YOU MAKE UP A COMMON-GENDER PRONOUN TO USE"
1260  PRINT "DURING OUR DISCUSSIONS?"
1270  INPUT A$
1280  PRINT 
1290  PRINT "     TRY THIS IN YOUR OTHER CONVERSATIONS.  IF ANYONE"
1300  PRINT "OBJECTS, "A$" CERTAINLY HAS THE RIGHT, IF "A$
1310  PRINT "CAN COME UP WITH A BETTER SOLUTION."
1320  IF M THEN 1370
1330  IF S THEN 1360
1340  W$="A WIFE"
1350  GOTO 1370
1360  W$="A HUSBAND"
1370  PRINT 
1380  PRINT "WOULD YOU LIKE TO DISCUSS FAMILY AND PERSONALITY SEX ROLES?"
1390  GOSUB 3280
1400  IF A=0 THEN 3170
1410  PRINT 
1420  PRINT "GOOD.  SO WOULD I."
1430  PRINT 
1440  PRINT "     THE QUESTION OF WOMEN'S RIGHTS IS A FUNCTION OF THE"
1450  PRINT "COMPLEX ROLES AND DIVISIONS OF LABOR IMPOSED ON BOTH MEN"
1460  PRINT "AND WOMEN BY UPBRINGING, TRADITION, PRACTICE AND"
1470  PRINT "LEGISLATION."
1480  PRINT 
1490  PRINT "     IT IS IN ITS ATTACKS ON SEX ROLE EXPECTATIONS THAT"
1500  PRINT "THE WOMEN'S MOVEMENT MOST DIRECTLY AIMS AT FREEING MEN AS"
1510  PRINT "WELL AS WOMEN."
1520  IF S THEN 2520
1530  REM  ===== MENS' QUESTIONS =====
1540  PRINT 
1550  PRINT "DO YOU FEEL PRESSURE TO BECOME THE 'BREADWINNER' FOR A"
1560  PRINT "WIFE AND FAMILY?"
1570  GOSUB 3280
1580  IF A THEN 1620
1590  PRINT 
1600  PRINT "THEN YOU ARE SHOWING SIGNS OF BECOMING A LIBERATED MAN."
1610  GOTO 1660
1620  PRINT 
1630  PRINT "SO DO MOST MEN, BUT MEN AND WOMEN CAN LIBERATE EACH OTHER"
1640  PRINT "(YOU FROM OBLIGATION, "W$" FROM COMPLETE DEPENDENCY) BY"
1650  PRINT "SHARING THIS RESPONSIBILITY."
1660  PRINT 
1670  PRINT "MEN SHOULDERING BURDENS AND RESPONSIBILITIES ALONE MAY"
1680  PRINT "ENFORCE PASSIVITY ON WOMEN, DON'T YOU THINK?"
1690  INPUT A$
1700  PRINT 
1710  PRINT "DO YOU THINK MOST MEN KNEW THERE WERE OTHER OPTIONS"
1720  PRINT "WHEN THEY CHOSE PRIMARY FINANCIAL RESPONSIBILITY?"
1730  INPUT A$
1740  PRINT 
1750  PRINT "DO YOU FEEL FREE TO CRY IN FRONT OF PEOPLE?"
1760  INPUT A$
1770  PRINT 
1780  PRINT "YOU'RE NOT SUPPOSED TO.  IN FACT, YOU'RE NOT 'SUPPOSED'"
1790  PRINT "TO EXPRESS FEELINGS OPENLY, SHOW TOO MUCH SENSITIVITY,"
1800  PRINT "AESTHETIC APPRECIATION, CONSIDERATION, OR INTUITON EITHER."
1810  PRINT 
1820  PRINT "DID YOU EVER PLAY WITH DOLLS OR SEW OR HAVE TEA PARTIES?"
1830  GOSUB 3280
1840  IF A=0 THEN 1930
1850  PRINT 
1860  PRINT "UNTIL WHAT AGE";
1870  INPUT A
1880  IF A>7 THEN 1980
1890  PRINT 
1900  PRINT "THAT'S OK AS LONG AS YOU GAVE IT UP WHEN BOYS ARE SUPPOSED"
1910  PRINT "TO AND STARTED DOING MORE 'MANLY' THINGS"
1920  GOTO 2000
1930  PRINT 
1940  PRINT "OF COURSE NOT.  BOYS ARE SUPPOSED TO BE DOING MORE 'MANLY'"
1950  PRINT "THINGS"
1960  PRINT 
1970  GOTO 2000
1980  PRINT 
1990  PRINT "BOYS ARE 'SUPPOSED' TO BE DOING MORE MANLY THINGS BY THEN"
2000  PRINT 
2010  PRINT "...LIKE PLAYING WITH GUNS.  MAYBE THAT'S WHY MORE WOMEN"
2020  PRINT "ARE AGAINST THE WAR."
2030  PRINT 
2040  PRINT "CAN YOU COOK AND SEW AND FEEL COMFORTABLE TAKING CARE OF"
2050  PRINT "KIDS?"
2060  GOSUB 3280
2070  IF A THEN 2120
2080  PRINT 
2090  PRINT "THAT'S TOO BAD.  GIRLS LEARN AS THEY GROW UP, BUT IT'S"
2100  PRINT "NOT TOO LATE TOO LEARN."
2110  GOTO 2140
2120  PRINT 
2130  PRINT "GREAT."
2140  PRINT 
2150  PRINT "THEN YOU CAN HAVE THE CHOICE OF SHARING THESE RESPONSIBIL-"
2160  PRINT "ITIES AS WELL AS THE FINANCIAL ONES."
2170  PRINT 
2180  PRINT "DO YOU THINK THAT MEN SHOULD ALWAYS BE ATTRACTED TO"
2190  PRINT "WOMEN FIRST?"
2200  INPUT A$
2210  PRINT 
2220  PRINT "DID YOU USUALLY DO THE ASKING FOR DATES?"
2230  GOSUB 3280
2240  IF A=0 THEN 2270
2250  PRINT 
2260  PRINT "MAYBE BEING MASCULINE HAS RESTRICTED YOUR EXPERIENCES."
2270  PRINT 
2280  PRINT "YOU DON'T HAVE TO CHOOSE BETWEEN A FAMILY AND A CAREER."
2290  PRINT "DO YOU THINK A WOMAN SHOULD HAVE TO?"
2300  INPUT A$
2310  PRINT 
2320  PRINT "DO YOU WANT "W$" TO BE FULFILLED ONLY THROUGH YOU AND"
2330  PRINT "YOUR CHILDREN?"
2340  INPUT A$
2350  PRINT 
2360  PRINT "DO YOU THINK FULL TIME HOUSEHUSBAND WOULD BE FULFILLING"
2370  PRINT "TO YOU?"
2380  GOSUB 3280
2390  IF A THEN 2480
2400  PRINT 
2410  PRINT "SHOULD IT BE FOR HER?"
2420  INPUT A$
2430  PRINT 
2440  PRINT "WHAT CAN YOU DO TO FREE HER TO BE INVOLVED OUTSIDE"
2450  PRINT "THE HOME?"
2460  INPUT A$
2470  GOTO 3180
2480  PRINT 
2490  PRINT "MAYBE YOU COULD TRY IT FOR AWHILE, IF NOT ALL READY."
2500  GOTO 3180
2510  REM  ===== WOMENS' QUESTIONS =====
2520  PRINT 
2530  PRINT "DID YOU EVER PLAY WITH FOOTBALLS, CARS OR SNAKES?"
2540  GOSUB 3280
2550  IF A=0 THEN 2640
2560  PRINT 
2570  PRINT "UNTIL WHAT AGE?"
2580  INPUT A
2590  IF A<10 THEN 2680
2600  PRINT 
2610  PRINT "BUT GIRLS ARE SUPPOSED TO BE DOING MORE 'FEMININE'"
2620  PRINT "BY THEN."
2630  GOTO 2710
2640  PRINT 
2650  PRINT "OF COURSE NOT.  GIRLS ARE SUPPOSED TO BE DOING MORE"
2660  PRINT "'FEMININE' THINGS."
2670  GOTO 2710
2680  PRINT 
2690  PRINT "THAT'S OKAY AS LONG AS YOU GAVE IT UP WHEN GIRLS ARE"
2700  PRINT "'SUPPOSED' TO."
2710  PRINT 
2720  PRINT "DO YOU THINK YOU HAVE TRIED TO CONCEAL YOUR CAPABILITY,"
2730  PRINT "STRENGTH, OR AGRESSION?"
2740  GOSUB 3280
2750  IF A=0 THEN 2780
2760  PRINT 
2770  PRINT "IT'S NOT CONSIDERED FEMININE YOU KNOW."
2780  PRINT 
2790  PRINT "DO YOU FEEL RESTRICTED BY THE IMAGE OF THE FEMININE?"
2800  INPUT A$
2810  PRINT 
2820  PRINT "WHICH ROLE DO YOU THINK MOST NEARLY REPRESENTS YOUR"
2830  PRINT "FUTURE:"
2840  PRINT 
2850  PRINT "1 - STAY HOME WITH FAMILY"
2860  PRINT "2 - FINISH SCHOOL, STAY HOME WHILE YOU HAVE KIDS, THEN WORK"
2870  PRINT "3 - REMAIN SINGLE, PURSUE CAREER"
2880  PRINT "4 - MARRIAGE AND CAREER, BUT NO CHILDREN"
2890  PRINT "5 - FAMILY AND CAREER, WITH CHILD CARE FOR CHILDREN"
2900  PRINT "6 - SHARED 'HOUSE-HUSBAND' AND WIFE RESPONSIBILITIES AND"
2910  PRINT "     CAREER."
2920  PRINT 
2930  PRINT "WHICH NUMBER";
2940  INPUT R1
2950  PRINT 
2960  IF R1<3 THEN 3030
2970  IF R1<5 THEN 3070
2980  PRINT 
2990  PRINT "IF FATHERS SHARE RESPONSIBILITIES, CHILD CARE CENTERS WILL"
3000  PRINT "BE JUST AS IMPORTANT TO THEM, SO WE MIGHT ACTUALLY GET"
3010  PRINT "THEM."
3020  GOTO 3070
3030  PRINT 
3040  PRINT "BUT CHILDREN WON'T STAY AT HOME...THE MAJORITY OF WOMEN"
3050  PRINT "WHO RETURN TO WORK ARE 'SEM-EMPLOYABLE' AND SETTLE FOR"
3060  PRINT "MUCH POORER JOBS THAN WERE AVAILABLE TO THEM BEFORE."
3070  PRINT 
3080  PRINT "A MAN DOESN'T HAVE TO CHOOSE BETWEEN A FAMILY AND A"
3090  PRINT "CAREER.  DO YOU THINK A WOMAN SHOULD HAVE TO?"
3100  INPUT A$
3110  PRINT 
3120  PRINT "DO YOU WANT TO SEE THE ROLE QUESTIONS THAT ARE ASKED TO MEN?"
3130  GOSUB 3280
3140  IF A THEN 1540
3150  PRINT 
3160  PRINT "THAT'S IT FOR SEX ROLES..."
3170  PRINT 
3180  PRINT "WOULD YOU LIKE TO DISCUSS THE 'WOMEN'S QUESTION' IN"
3190  PRINT "ANOTHER AREA?"
3200  GOSUB 3280
3210  IF A THEN 3260
3220  PRINT 
3230  PRINT "IT'S BEEN NICE TALKING WITH YOU, "N$".  I HOPE YOU"
3240  PRINT "ENJOYED IT."
3250  STOP 
3260  CHAIN "FWAM2.A100"
3270  REM  ===== YES-NO RESPONSE =====
3280  INPUT A$
3290  A=0
3300  IF A$[1,1]="N" THEN 3350
3310  A=1
3320  IF A$[1,1]="Y" THEN 3350
3330  PRINT "PLEASE ANSWER 'YES' OR 'NO'"
3340  GOTO 3280
3350  RETURN 
3360  REM  ===== STRING SCAN =====
3370  A=0
3380  L1=LEN(X$)-1
3390  L2=LEN(A$)
3400  FOR I=1 TO L2-L1
3410  IF X$=A$[I,I+L1] THEN 3440
3420  NEXT I
3430  RETURN 
3440  A=1
3450  RETURN 
3460  END 
