ELIZA  FROM CREATIVE COMPUTING ' MAY ?? BE SOME SMALL BUGS LEFT 7( C$72),I$72),K$72),F$72),S$72),R$72),P$72) 2 S36),R36),N36) < N136\N212\N3112 F  P X 1 N1 +Z S X), L\ RX)S X)\N X)SX) L1 d X n "HELLO ??" &x "YES !!! THIS IS THE DOCTOR !" 6 "I'M HOT! YOU'RE NOT! WHAT'S YOUR PROBLEM?"  ARK  ARK USER SECTI ARK I$  I$" "I$" " ! ARK GET RID OF APOSTROPHES  L1 I$) LI$)6 I$L,L)"'"  I$I$1,L1)I$L1,I$)) 6  L3I$)6 I$L,L3)"SHUT"6 ""SHUT UP ...."\ ,I$L,L4),"*" 6 L @ I$P$ ^ %J "PLEASE DON'T REPEAT YOURSELF!" T ^ h FIND KEYWD IN I$ r |S0  K 1 N1 S0  K$  L1 I$)K$)1  I$L,LK$)1)K$ SK\TL\F$K$   L  K S0 KS\LT\  K36\     C$" "I$F$)L,I$))  X1 N22 & S$,R$ 0 L1 C$) : LS$) C$) l D C$L,LS$)1)S$ l &N C$C$1,L)R$C$LS$)1,C$)) X LLR$) b  l LR$)C$)  v C$L,LR$)1)R$   $ C$C$1,L)S$C$LR$),C$)) C$  LLS$)  L  X  C$2,2)" " C$C$2) . NOW UG THE KEYWD NUMBER K) GET REPLY    X1 RK)  F$  X ( RK)RK)1\ RK)NK) RK)SK)  F$F$)) "*"    F$\P$I$    F$1,F$)1),C$ * P$I$\ 4 KEYWDS <> "CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL" BH "WHY DONT YOU","WHY CANT I","ARE YOU","I CANT","I AM","IM " =R "YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY" :\ "NAME","CAUSE","SORRY","DREAM","HELLO","HI ","MAYBE" :f " NO","YOUR","ALWAYS","THINK","ALIKE","YES","FRIEND" p "COMPUTER","NOKEYFOUND" z STRING CJUGATIS ? " ARE "," AM ","WERE ","WAS "," YOU "," I ","YOUR ","MY " ( " IVE "," YOUVE "," IM "," YOURE "  REPLIES & "DON'T YOU BELIEVE THAT I CAN*" . "PERHAPS YOU WOULD LIKE TO BE ABLE TO*" " "YOU WANT ME TO BE ABLE TO*" " "PERHAPS YOU DON'T WANT TO*" " "DO YOU WANT TO BE ABLE TO*" " "WHAT MAKES YOU THINK I AM*" + "DOES IT PLEASE YOU TO BELIEVE I AM*" % "PERHAPS YOU WOULD LIKE TO BE*" ' "DO YOU SOMETIVES WISH YOU WERE*"  "DON'T YOU REALLY*"  "WHY DON'T YOU*" " "DO YOU WISH TO BE ABLE TO*"  "DOES THAT TROUBLE YOU?" )$ "TELL ME MORE ABOUT SUCH FEELINGS." . "DO YOU OFTEN FEEL*" 8 "DO YOU ENJOY FEELING*" &B "DO YOU REALLY BELIEVE I DON'T*" $L "PERHAPS IN GOOD TIME I WILL*" V "DO YOU WANT ME TO*" +` "DO YOU THINK YOU SHOULD BE ABLE TO*" j "WHY CAN'T YOU*" 6t "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*" (~ "WHOULD YOU PREFER IF I WERE NOT*" ' "PERHAPS IN YOUR FANTASIES I AM*" " "HOW DO YOU KNOW YOU CAN'T*"  "HAVE YOU TRIED?"  "PERHAPS YOU CAN NOW*" + "DID YOU COME TO ME BECAUSE YOU ARE*"  "HOW LONG HAVE YOU BEEN*" * "DO YOU BELIEVE IT IS NORMAL TO BE*"  "DO YOU ENJOY BEING*" ' "WE WERE DISCUSSING YOU--NOT ME."  "OH, I*" 4 "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?" - "WHAT WOULD IT MEAN TO YOU IF YOU GOT*"  "WHY DO YOU WANT*"   "SUPPOSE YOU SOON GOT*"  "WHAT IF YOU NEVER GOT*"  "I SOMETIMES ALSO WANT*" ( "WHY DO YOU ASK?" (2 "DOES THAT QUESTION INTEREST YOU?" /< "DWHAT ANSWER WOULD PLEASE YOU THE MOST?" F "WHAT DO YOU THINK?" .P "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?" 0Z "WHAT IS IT THAT YOU REALLY WANT TO KNOW?" #d "HAVE YOU ASKED ANYONE ELSE?" -n "HAVE YOU ASKED SUCH QUESTIONS BEFORE?" 2x "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"  "NAMES DON'T INTEREST ME." / "I DON'T CARE ABOUT NAMES--PLEASE GO ON."  "IS THAT THE REAL REASON?" - "DON'T ANY OTHER REASONS COME TO MIND?" / "DOES THAT REASON EXPLAIN ANYTHING ELSE?" * "WHAT OTHER REASONS MIGHT THERE BE?"  "PLEASE DON'T APOLOGIZE!" $ "APOLOGIES ARE NOT NECESSARY." 5 "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?"  "DON'T BE SO DEFENSIVE!" , "WHAT DOES THAT DREAM SUGGEST TO YOU?"  "DO YOU DREAM OFTEN?" + "WHAT PERSONS APPEAR IN YOUR DREAMS?" ) "ARE YOU DISTURBED BY YOUR DREAMS?" 4 "HOW DO YOU DO... PLEASE STATE YOUR PROBLEM." % "YOU DON'T SEEM QUITE CERTAIN." " "WHY THE UNCERTAIN TONE?" #, "CAN'T YOU BE MORE POSITIVE?" 6 "YOU AREN'T SURE?" @ "DON'T YOU KNOW?" .J "ARE YOU SAYING NO JUST TO BE NEGATIVE?" %T "YOU ARE BEING A BIT NEGATIVE." ^ "WHY NOT?" h "ARE YOU SURE?" r "WHY NO?" '| "WHY ARE YOU CONCERNED ABOUT MY*"  "WHAT ABOUT YOUR OWN *" , "CAN YOU THINK OF A SPECIFIC EXAMPLE?"  "WHEN?" ! "WHAT ARE YOU THINKING OF?"  "REALLY, ALWAYS?"  "DO YOU REALLY THINK SO?" ! "BUT YOU ARE NOT SURE YOU*"  "DO YOU DOUBT YOU*"  "IN WHAT WAY?" $ "WHAT RESEMBLANCE DO YOU SEE?" 0 "WHAT DOES THE SIMILARITY SUGGEST TO YOU?" * "WHAT OTHER CONNECTIONS DO YOU SEE?" . "COULD THERE REALLY BE SOME CONNECTION?"  " HOW?"  "YOU SEEM QUITE POSITIVE."  "ARE YOU SURE?" & "I SEE." 0 "I UNDERSTAND." 1: "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?" "D "DO YOUR FREINDS WORRY YOU?" $N "DO YOUR FRIENDS PICK ON YOU?" *X "ARE YOU SURE YOU HAVE ANY FRIENDS?" &b "DO YOU IMPOSE ON YOUR FRIENDS?" 2l "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU." v "DO COMPUTERS WORRY YOU?" / "ARE YOU TALKING ABOUT ME IN PARTICULAR?" ' "ARE YOU FRIGHTENED BY MACHINES?" % "WHY DO YOU MENTION COMPUTERS?" @ "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?" 2 "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?" 3 "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?" 4 "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?" & "WHAT DOES THAT SUGGEST TO YOU?"  "I SEE." , "I'M NOT SURE I UNDERSTAND YOU FULLY." * "COME COME ELUCIDATE YOUR THOUGHTS." " "CAN YOU ELABORATE ON THAT?" " "THAT IS QUITE INTERESTING."  "  FINDING RIGHT REPLIES  4  1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3 9* 28, 4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9 84 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4 %> 80,3,83,7,90,3,93,6,99,7,106,6 H BYE NE, I DO H