0 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 1 CLS:PRINT@14,"ELIZA":PRINT"YOU ARE NOT FEELING WELL AND HAVE DECIDED TO CONSULT WITH A PSYCHOLOGIST ABOUT SOME OF YOUR PROBLEMS." 2 PRINT"ELIZA WILL ASK YOU QUESTIONS DURING YOUR VISIT WHICH YOU SHOULD ANSWER WITH SHORT, BUT COMPLETE SENTENCES" 3 PRINT"ELIZA CHARGES $75 AN HOUR, SO DON'T WASTE YOUR TIME." 4 PRINT:INPUT"PRESS TO START SESSION";A$:CLS 5 CLEAR2000:DIMS(36),R(36),N(36):N1=36:N2=14:N3=112 6 FORX=1TON1+N2+N3:READZ$:NEXTX 7 FORX=1TON1:READS(X),L:R(X)=S(X):N(X)=S(X)+L-1:NEXTX 8 X$="HI!, I'M ELIZA, WHAT'S YOUR PROBLEM?":GOSUB181 9 A$="" 10 X=PEEK(137)+PEEK(136)*256 11 POKEX,45:FORCN=1TO10:B$=INKEY$:IFB$<>""THEN14 12 NEXTCN:POKEX,32:FORCN=1TO10:B$=INKEY$ 13 IFB$<>""THEN14ELSENEXTCN:GOTO11 14 POKEX,32:IFASC(B$)=13THEN20 15 IFASC(B$)=8ANDLEN(A$)<>0THEN16ELSE17 16 PRINTCHR$(143)CHR$(8);:A$=LEFT$(A$,LEN(A$)-1):PRINTB$; 17 IFASC(B$)=24THENA$="":PRINTCHR$(29)CHR$(30); 18 IFASC(B$)>31ANDASC(B$)<91THENPRINTB$;:A$=A$+B$ 19 GOTO10 20 PRINT:I$=A$:I$=" "+I$+" " 21 FORL=1TOLEN(I$) 22 IFMID$(I$,L,1)="'"THENI$=LEFT$(I$,L-1)+RIGHT$(I$,LEN(I$)-L):GOTO22 23 IFL+4<=LEN(I$)THENIFMID$(I$,L,4)="SHUT"THENEND 24 NEXTL 25 IFI$=P$THENX$="PLEASE DON'T REPEAT YOURSELF!":GOSUB181:GOTO9 26 RESTORE:S=0:FORK=1TON1:READK$ 27 IFS>0THEN31 28 FORL=1TOLEN(I$)-LEN(K$)+1 29 IFMID$(I$,L,LEN(K$))=K$THENS=K:T=L:F$=K$ 30 NEXTL 31 NEXTK 32 IFS>0THENK=S:L=T:GOTO34 33 K=36:GOTO51 34 RESTORE:FORX=1TON1:READZ$:NEXTX 35 C$=" "+RIGHT$(I$,LEN(I$)-LEN(F$)-L+1) 36 FORX=1TON2/2 37 READS$,R$ 38 FORL=1TOLEN(C$) 39 IFL+LEN(S$)>LEN(C$)THEN44 40 IFMID$(C$,L,LEN(S$))<>S$THEN44 41 C$=LEFT$(C$,L-1)+R$+RIGHT$(C$,LEN(C$)-L-LEN(S$)+1) 42 L=L+LEN(R$) 43 GOTO48 44 IFL+LEN(R$)>LEN(C$)THEN48 45 IFMID$(C$,L,LEN(R$))<>R$THEN48 46 C$=LEFT$(C$,L-1)+S$+RIGHT$(C$,LEN(C$)-L-LEN(R$)+1) 47 L=L+LEN(S$) 48 NEXTL 49 NEXTX 50 IFMID$(C$,2,1)=" "THENC$=RIGHT$(C$,LEN(C$)-1) 51 RESTORE:FORX=1TON1+N2:READZ$:NEXTX 52 FORX=1TOR(K):READF$:NEXTX 53 R(K)=R(K)+1:IFR(K)>N(K)THENR(K)=S(K) 54 IFRIGHT$(F$,1)<>"*"THENX$=F$:P$=I$:GOSUB181:GOTO9 55 X$=LEFT$(F$,LEN(F$)-1)+C$:GOSUB181 56 P$=I$:GOTO9 57 DATA"CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL" 58 DATA"WHY DONT YOU","WHY CANT I","ARE YOU","I CANT","I AM","IM " 59 DATA"YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY" 60 DATA"NAME","CAUSE","SORRY","DREAM","HELLO","HI ","MAYBE" 61 DATA" NO","YOUR","ALWAYS",THINK","ALIKE","YES","FRIEND" 62 DATA"COMPUTER","NOKEYFOUND" 63 DATA" ARE "," AM ","WERE ","WAS "," YOU "," I ","YOUR ","MY " 64 DATA" IVE "," YOUVE "," IM "," YOURE "," ME "," YOU " 65 DATA"DON'T YOU BELIEVE THAT I CAN*" 66 DATA"PERHAPS YOU WOULD LIKE TO BE ABLE TO*" 67 DATA"YOU WANT ME TO BE ABLE TO*" 68 DATA"PERHAPS YOU DON'T WANT TO*" 69 DATA"DO YOU WANT TO BE ABLE TO*" 70 DATA"WHAT MAKES YOU THINK I AM*" 71 DATA"DOES IT PLEASE YOU TO BELIEVE I AM*" 72 DATA"PERHAPS YOU WOULD LIKE TO BE*" 73 DATA"DO YOU SOMETIMES WISH YOU WERE*" 74 DATA"DON'T YOU REALLY*" 75 DATA"WHY DON'T YOU*" 76 DATA"DO YOU WISH TO BE ABLE TO*" 77 DATA"DOES THAT TROUBLE YOU?" 78 DATA"TELL ME MORE ABOUT SUCH FEELINGS." 79 DATA"DO YOU OFTEN FEEL*" 80 DATA"DO YOU ENJOY FEELING*" 81 DATA"DO YOU REALLY BELIEVE I DON'T*" 82 DATA"PERHAPS IN GOOD TIME I WILL*" 83 DATA"DO YOU WANT ME TO*" 84 DATA"DO YOU THINK YOU SHOULD BE ABLE TO*" 85 DATA"WHY CAN'T YOU*" 86 DATA"WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*" 87 DATA"WOULD YOU PREFER IF I WERE NOT*" 88 DATA"PERHAPS IN YOUR FANTASIES I AM*" 89 DATA"HOW DO YOU KNOW I CAN'T*" 90 DATA"HAVE YOU TRIED?" 91 DATA"PERHAPS YOU CAN NOW*" 92 DATA"DID YOU COME TO ME BECAUSE YOU ARE*" 93 DATA"HOW LONG HAVE YOU BEEN*" 94 DATA"DO YOU BELIEVE IT IS NORMAL TO BE*" 95 DATA"DO YOU ENJOY BEING*" 96 DATA"WE WERE DISCUSSING YOU--NOT ME" 97 DATA"OH, I*" 98 DATA"YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?" 99 DATA"WHAT WOULD IT MEAN TO YOU IF YOU GOT*" 100 DATA"WHY DO YOU WANT*" 101 DATA"SUPPOSE YOU SOON GOT*" 102 DATA"WHAT IF YOU NEVER GOT*" 103 DATA"I SOMETIMES ALSO WANT*" 104 DATA"WHY DO YOU ASK?" 105 DATA"DOES THAT QUESTION INTEREST YOU?" 106 DATA"WHAT ANSWER WOULD PLEASE YOU THE MOST?" 107 DATA"WHAT DO YOU THINK?" 108 DATA"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?" 109 DATA"WHAT IS IT THAT YOU REALLY WANT TO KNOW?" 110 DATA"HAVE YOU ASKED ANYONE ELSE?" 111 DATA"HAVE YOU ASKED SUCH QUESTIONS BEFORE?" 112 DATA"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?" 113 DATA"NAMES DON'T INTEREST ME" 114 DATA"I DON'T CARE ABOUT NAMES--PLEASE GO ON" 115 DATA"IS THAT THE REAL REASON?" 116 DATA"DON'T ANY OTHER REASONS COME TO MIND?" 117 DATA"DOES THAT REASON EXPLAIN ANYTHING ELSE?" 118 DATA"WHAT OTHER REASONS MIGHT THERE BE?" 119 DATA"PLEASE, DON'T APOLOGIZE!" 120 DATA"APOLOGIES ARE NOT NECESSARY" 121 DATA"WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?" 122 DATA"DON'T BE SO DEFENSIVE!" 123 DATA"WHAT DOES THAT DREAM SUGGEST TO YOU?" 124 DATA"DO YOU DREAM OFTEN?" 125 DATA"WHAT PERSONS APPEAR IN YOUR DREAMS?" 126 DATA"ARE YOU DISTURBED BY YOUR DREAMS?" 127 DATA"HOW DO YOU...PLEASE STATE YOUR PROBLEM" 128 DATA"YOU DON'T SEEM QUITE CERTAIN" 129 DATA"WHY THE UNCERTAIN TONE?" 130 DATA"CAN'T YOU BE MORE POSITIVE?" 131 DATA"YOU AREN'T SURE?" 132 DATA"DON'T YOU KNOW?" 133 DATA"ARE YOU SAYING 'NO' JUST TO BE NEGATIVE?" 134 DATA"YOU ARE BEING A BIT NEGATIVE" 135 DATA"WHY NOT?" 136 DATA"ARE YOU SURE?" 137 DATA"WHY NO?" 138 DATA"WHY ARE YOU CONCERNED ABOUT MY*" 139 DATA"WHAT ABOUT YOUR OWN*" 140 DATA"CAN YOU THINK OF A SPECIFIC EXAMPLE?" 141 DATA"WHEN?" 142 DATA"WHAT ARE YOU THINKING OF?" 143 DATA"REALLY, ALWAYS?" 144 DATA"DO YOU REALLY THINK SO?" 145 DATA"BUT YOU ARE NOT SURE YOU*" 146 DATA"DO YOU DOUBT YOU*" 147 DATA"IN WHAT WAY?" 148 DATA"WHAT RESEMBLANCE DO YOU SEE?" 149 DATA"WHAT DOES THE SIMILARITY SUGGEST TO YOU?" 150 DATA"WHAT OTHER CONNECTIONS DO YOU SEE?" 151 DATA"COULD THERE REALLY BE SOME CONNECTION?" 152 DATA"HOW?" 153 DATA"YOU SEEM QUITE POSITIVE" 154 DATA"ARE YOU SURE?" 155 DATA"I SEE" 156 DATA"I UNDERSTAND" 157 DATA"WHY DO YOU BRING UP THE TOPIC OF FRIENDS?" 158 DATA"DO YOUR FRIENDS WORRY YOU?" 159 DATA"DO YOUR FRIENDS PICK ON YOU?" 160 DATA"ARE YOU SURE YOU HAVE ANY FRIENDS?" 161 DATA"DO YOU IMPOSE ON YOUR FRIENDS?" 162 DATA"PERHAPS YOUR LOVE FOR FRIENDS WORRY YOU" 163 DATA"DO COMPUTERS WORRY YOU?" 164 DATA"ARE YOU TALKING ABOUT M IN PARTICULAR?" 165 DATA"ARE YOU FRIGHTENED BY MACHINES?" 166 DATA"WHY DO YOU MENTION COMPUTERS?" 167 DATA"WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?" 168 DATA"DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?" 169 DATA"WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?" 170 DATA"SAY, DO YOU HAVE ANY PSYCHOLOGI-CAL PROBLEMS?" 171 DATA"WHAT DOES THAT SUGGEST TO YOU?" 172 DATA"I SEE" 173 DATA"I'M NOT SURE I UNDERSTAND YOU FULLY" 174 DATA"COME, COME, ELUCIDATE YOUR THOUGHTS" 175 DATA"CAN YOU ELABORATE ON THAT?" 176 DATA"THAT IS QUITE INTERESTING" 177 DATA1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3 178 DATA28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9 179 DATA49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4 180 DATA80,3,83,7,90,3,93,6,99,7,106,6 181 IFPEEK(137)+PEEK(136)*256=>1504THENCLS 182 PRINTCHR$(14);:FORX=1TOLEN(X$) 183 IFPOS(0)<25THEN186 184 IFMID$(X$,X,1)<>" "THEN186 185 PRINT:GOTO187 186 PRINTMID$(X$,X,1); 187 NEXTX:PRINT:RETURN 188 FORTM=1TO20:NEXTTM,X:PRINTCHR$(15):RETURN