Psycho n Y p ÿê*********************** ê*** *** ê*** ELIZA -creative *** ê*** computer versie *** ê*** *** ê***  M. de Vries *** ê*** 1983 *** ê*** *** ê*********************** ê ñp$="xzx" Ú7:ç6:Ù1:û (;õ"Before starting with Eliza, please enter your name." -îw$:õ 2æõ"O.K. ";w$;","'"when you work with Eliza, try toanswer her questions in correct English. Type the word I in capitals. Be serious and honest in your answers, and your work and that of Eliza will be most rewarding. Success!" 6&õ"Do you want a printout? Y or N":îa$ 7úa$="y"Ëñz=1:ì60< 8 ñz=0 <<õ¬21,6;Û1;"HIT ANY KEY TO START":ò0 d'és(36$):ér(36$):én(36$) n(ñn1=36$:ñn2=14:ñn3=112p x å2530â ‚ëx=1Ìn1 Œ)ãs(x):ãl:ñr(x)=s(x):ñn(x)=s(x)+l-1 –óx ›û  gõ"Hi! ";w$'"I'm Eliza. What's your problem?":úz=1Ëà"Hi! ";w$'"I'm Eliza. What's your problem?":à ªê*********************** ¯ê*** *** °ê*** USER INPUT DEEL *** ´ê*** *** µê*********************** Èîi$ ÉõÙ2;i$:úz=1Ëài$:à Êñi$=" "+i$+" " Òê*** get rid of apostrophies Üël=1̱(i$)-2 æ-úi$(l)="'"Ëñi$=i$(Ìl-1)+i$(l+1Ì) ðmúl+4DZ(i$)Æz=0Ëúi$(lÌl+3)="shut"Ëõ"OK, let's stop here. Thank you for working with me.":â ñ£úl+4DZ(i$)Æz=1Ëúi$(lÌl+3)="shut"Ëà"OK, let's stop here. Thank you for working with me.":õ"OK let's stop here, thank you for working with me.":â úól þ0úi$=p$Æz=1Ëà"You are repeating yourself." ÿ1úi$=p$Ëõ"You are repeating yourself.":ì170ª ê ê**FIND KEYWORDS IN I$** ê ' ñs=0 +8å1050:ê?????????????????????????????????????????? ,ëk=1Ìn1 6ãk$ ;ús>0Ëì360h @ël=1̱(i$)-±(k$) T+úi$(lÌl+±(k$)-1)=k$Ëñs=k:ñt=l:ñf$=k$ ^ól hók m ús>0Ëñk=s:ñl=t:ì390† r*ñk=36$:ì570::êno keywords found |ê †ê take right part of ‡ê string and conjuga- ˆ ê te it . šê ¤ å1200° ®ñc$=" "+i$(±(f$)+ḻi$)+" " ¸ëx=1Ìn2/2 Âãs$,r$ Ìël=1̱(c$) Öúl+±(s$)>±(c$)Ëì510þ à%úc$(lÌl+±(s$)-1)És$Ëì510þ ê#ñc$=c$(Ìl-1)+r$+c$(l+±(s$)Ì) ï ñl=l+±(r$) ô ì540 þúl+±(r$)>±(c$)Ëì540 %úc$(lÌl+±(r$)-1)Ér$Ëì540 #ñc$=c$(Ìl-1)+s$+c$(l+±(r$)Ì)  ñl=l+±(s$) ól &óx +"úc$(2)=" "Ëñc$=c$(1Ì) ,ël=1̱(c$)-1 -8úc$(l)="!"Ëñc$=c$(Ìl-1)+c$(l+1Ì):ì557- .ól 0ê :ê zoek antwoord Dê N å:å13302 Xëx=1Ìr(k):ãf$:óx b)ñr(k)=r(k)+1:úr(k)>n(k)Ëñr(k)=s(k) g%úf$(±(f$)Ì)É"*"Æz=1Ëàf$:ñp$=i$ l&úf$(±(f$)Ì)É"*"Ëõf$:ñp$=i$:ì170ª võf$(̱(f$)-1);c$ w"úz=1Ëàf$(̱(f$)-1);c$ €ñp$=i$:ì170ª èê********************** òê*** DATA DATA *** üê********************** 7ä"can you","can I","you are","youre","I dont","I feel" $<ä"why dont you","why cant I","are you","I cant","I am","Im" .9ä"you ","I want","what","how","who","where","when","why" 87 ä"name","cause","sorry","dream","hello","hi ","maybe" B5ä"no","your","always","think","alike","yes","friend" Lä"computer","nokeyfound" °ê ºê string data for conjugation Äê Î;ä" are "," am ","were ","was "," you "," I ","your ","my " Ó$ä" Ive "," youve "," Im "," youre " Øä" me "," !you " ê  ê replies (ê 2!ä"Don't you believe that I can*" <)ä"Perhaps you would like to be able to*" F ä"You want me to be able to*" Pä"Perhaps you don't want to*" Uä"Do you want to be able to*" Zä"What makes you think I am*" d'ä"Does it please you to believe I am*" n!ä"Perhaps you would like to be*" x$ä"Do you sometimes wish you where*" ‚ä"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*" ¾ä"Do you enjoy feeling*" È"ä"Do you really believe I don't*" Ò ä"Perhaps in good time I will*" Üä"Do you want me to*" æ'ä"Do you think you should be able to*" ðä"Why can't you*" ú1ä"Why are you interested in wether or not I am*" $ä"Would you prefer if I where not*" #ä"Perhaps in your fantasies I am*" ä"How do you know I can't*" "ä"Have you tried?" ,ä"Perhaps you can now*" 6'ä"Did you come to me because you are*" @ä"How long have you been*" J&ä"Do you believe it is normal to be*" Tä"Do you enjoy beeing*" ^$ä"We were discussing you...not me." h ä"Oh, I*" r0ä"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?" ¸$ä"Does that question interest you?" Â*ä"What answer would please you the most?" Ìä"What do you think?" Ö*ä"Are such questions on your mind often?" à,ä"What is it that you really want to know?" êä"Have you asked anyone else?" ô)ä"Have you asked such questions before?" þ-ä"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?" 0+ä"Does that reason explain anything else?" :&ä"What other reasons might there be?" Dä"Please don't apologize!" N ä"Apologies are not necessary." X1ä"What feelings do you have when you apologize?" bä"Don't be so defensive!" l(ä"What does that dream suggest to you?" vä"Do you dream often?" €'ä"What persons appear in your dreams?" Š%ä"Are you disturbed by your dreams?" ”.ä"How do you do...Please state your problem." ž!ä"You don't seem quite certain." ¨ä"Why the uncertain tone?" ²ä"Can't you be more positive?" ¼ä"You aren't shure?" Æä"Don't you know?" Ð+ä"Are you saying no, just to be negative?" Ú!ä"You are being a bit negative." ä ä"Why not?" îä"Are you shure?" ø ä"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?" 4ä"Really, always?" >ä"Do you really think so?" Hä"But you are not sure you*" Rä"Do you doubt you*" \ä"In what way?" f ä"What resemblance do you see?" p,ä"What does the similarity suggest to you?" z&ä"What other connections do you see?" „*ä"Could there really be some connection?" Žä"How?" ˜ä"You seem quite positive?" ¢ä"Are you sure?" ¬ ä"I see." ¶ä"I understand." À-ä"Why do you bring up the topic of friends?" Êä"Do your friends worry you?" Ô ä"Do your friends pick on you?" Þ&ä"Are you sure you have any friends?" è"ä"Do you impose on your friends?" ò.ä"Perhaps your love for friends worries you." üä"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?" ..ä"Don't you think computers can help people?" 8/ä"What is it about machines that worries you?" B0ä"Say, do you have any psychological problems?" L"ä"What does that suggest to you?" V ä"I see" `(ä"I'm not sure I understand you fully." j'ä"Come come, elucidate your thoughts." tä"Can you elaborate on that?" ~ä"That is quite interesting." â§ä1,3,4,2,6,4,6,4,10 ,4,14,3,17,3,20,2,22,3,25,3 ì«ä28,4,28,4,32 ,3,35#,5,40(,9 ,40(,9 ,40(,9 ,40(,9 ,40(,9 ,40(,9 ö«ä491,2,513,4,557,4,59;,4,63?,1,63?,1,64@,5,69E,5,74J,2,76L,4 hä80P,3,83S,7,90Z,3,93],6,99c,7,106j,6 ä"Have you tried?" '.ç7:Ù0:Ú7:î"list nr:";w:û:ðw PxzxW11A1zÅ