1  |   Order by index

Nov 18, 2000, 12:43pm

Dies ist eine mehrteilige Nachricht im MIME-Format.
--------------AC0BC5E8C79BDDE003495951
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

I found an old version of eep, it is a very old basic program.

> The original Eliza was construted by J. Weizenbaum, and ran on a computer connected to a teletype. Eliza is an artificial psychotherapist which reponds to input by asking questions and providing feedback. Eliza's reponses may appear to be intelligent, but the longer you converse with Eliza, the less intelligent she appears!

Doesn't that sound familiar?
Maybe someone is interested in making his own eep, so here's the source

=<cut here>========================================================
100 DIMS(38):DIMR(38):DIMN(38)
110 N1=38:N2=14:N3=115
120 RESTORE 4001
130 FORX=1TON1
140 READ S(X),L:R(X)=S(X):N(X)=S(X)+L-1
150 NEXT X
155 CLS
160 PRINT"HELLO! MAKE YOURSELF COMFORTABLE."
170 PRINT"NOW,WHAT'S YOUR PROBLEM?"
180 ' USER INPUT
200 LINE INPUT I$
201 I$=" "+I$+" "
210 'KILL APOSTROPHES
220 AP$="'":IF INSTR(1,I$,AP$)>0 THEN
I$=LEFT$(I$,(INSTR(1,I$,AP$)-1))+RIGHT$(I$,LEN(I$)-INSTR(1,I$,AP$)):GOTO
220
250 IF I$=P$ THENPRINT"WHY DO YOU REPEAT YOURSELF?"
260 'FIND KEYWORD IN I$
290 RESTORE
300 FOR K=1 TO N1
310 READ K$
330 IF INSTR(1,I$,K$)>0 THEN F$=K$:L=INSTR(1,I$,K$):GOTO420
340 NEXT K
370 K=36:GOTO 590:'NO KEYWORDS
400 'CONJUGATE WORDS
420 RESTORE 2001
430 C$=" "+RIGHT$(I$,LEN(I$)-LEN(F$)-L+1)+" "
440 FOR X=1 TO N2/2
450 READ S$,R$
455 CC=1
460 IF INSTR(CC,C$,S$)>0 THEN 500
470 IF INSTR(CC,C$,R$)>0 THEN 510
480 GOTO 550
500
L=INSTR(1,C$,S$):C$=LEFT$(C$,L-1)+R$+RIGHT$(C$,LEN(C$)-L-LEN(S$)+1):CC=L+LEN(R$):GOTO
460
510
L=INSTR(1,C$,R$):C$=LEFT$(C$,L-1)+S$+RIGHT$(C$,LEN(C$)-L-LEN(R$)+1):CC=L+LEN(S$):GOTO
460
550 NEXT X
555 IF MID$(C$,2,1)=" "THEN C$=RIGHT$(C$,LEN(C$)-1):'ONE SPACE ONLY
557 IF INSTR(1,C$,"!")>0 THEN
L=INSTR(1,C$,"!"):C$=LEFT$(C$,L-1)+RIGHT$(C$,LEN(C$)-L)
580 ' GET REPLY
590 RESTORE 3001
600 FOR X=1 TO R(K):READ F$:NEXT
610 R(K)=R(K)+1:IF R(K)>N(K) THEN R(K)=S(K)
620 IF RIGHT$(F$,1)<>"*" THEN PRINTF$:P$=I$:GOTO 200
630 PRINTLEFT$(F$,LEN(F$)-1);C$
640 P$=I$:GOTO 200
1000 'KEYWORDS
1001 DATA "CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL"
1060 DATA "WHY DONT YOU","WHY CANT I","ARE YOU","I CANT","I AM"," IM "
1070 DATA "YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY"
1080 DATA "NAME","CAUSE","SORRY","DREAM","HELLO"," HI ","MAYBE"
1090 DATA " NO ","YOUR","ALWAYS","THINK","ALIKE","YES "," FRIEND"
1100 DATA "COMPUTER","NOKEY","PHOOEY","OUCH"
2000 'CONJUGATIONS
2001 DATA " ARE "," AM "," WERE "," WAS "," YOU "," I "," YOUR "," MY "
2010 DATA " IVE "," YOUVE "," IM "," YOURE "
2020 DATA " ME "," !YOU "
3000 'REPLIES
3001 DATA"DON'T YOU BELIEVE THAT I CAN*"
3040 DATA"PERHAPS YOU WOULD LIKE TO BE ABLE TO*"
3050 DATA"YOU WANT ME TO BE ABLE TO*"
3060 DATA"PERHAPS YOU DON'T WANT TO*"
3070 DATA"DO YOU WANT TO BE ABLE TO*"
3080 DATA"WHAT MAKES YOU THINK I AM*"
3090 DATA"DOES IT PLEASE YOU TO BELIEVE I AM*"
3100 DATA"PERHAPS YOU WOULD LIKE TO BE*"
3400 DATA"DO YOU SOMETIMES WISH YOU WERE*"
3410 DATA"DON'T YOU REALLY*"
3420 DATA"WHY DON'T YOU*"
3430 DATA"DO YOU WISH T BE ABLE TO*"
3440 DATA"DOES THAT TROUBLE YOU?"
3450 DATA"TELL ME MORE ABOUT SUCH FEELINGS."
3460 DATA"DO YOU OFTEN FEEL*"
3470 DATA"DO YOU ENJOY FEELING*"
3480 DATA"DO YOU REALLY BELIEVE I DON'T*"
3490 DATA"PERHAPS IN GOOD TIME I WILL*"
3500 DATA"DO YOU WANT ME TO*"
3510 DATA"DO YOU THINK YOU SHOULD BE ABLE TO*"
3520 DATA"WHY CAN'T YOU*"
3530 DATA"WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM *"
3540 DATA"WOULD YOU PREFER IF I WERE NOT*"
3550 DATA"PERHAPS IN YOUR FANTASIES I AM*"
3560 DATA"HOW DO YOU KNOW YOU CAN'T*"
3570 DATA"HAVE YOU TRIED?"
3580 DATA"PERHAPS YOU CAN NOW*"
3590 DATA"DID YOU COME TO ME BECAUSE YOU ARE*"
3600 DATA"HOW LONG HAVE YOU BEEN*"
3601 DATA"DO YOU BELIEVE IT IS NORMAL TO BE*"
3602 DATA"DO YOU ENJOY BEING*"
3603 DATA"WE WERE DISCUSSING YOU-NOT ME"
3604 DATA"OH I*"
3605 DATA"YOU'RE NOT REALLY TALKING ABOUT ME ARE YOU?"
3606 DATA"WHAT WOULD IT MEAN TO YOU IF YOU GOT*"
3607 DATA"WHY DO YOU WANT*"
3608 DATA"SUPPOSE YOU SOON GOT*"
3609 DATA"WHAT IF YOU NEVER GOT*"
3610 DATA"SOMETIMES I ALSO WANT*"
3611 DATA"WHY DO YOU ASK?"
3612 DATA"DOES THAT QUESTION INTEREST YOU?"
3613 DATA"WHAT ANSWER WOULD PLEASE YOU THE MOST?"
3614 DATA"WHAT DO YOU THINK?"
3615 DATA"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?"
3616 DATA"WHAT IS IT THAT YOU REALLY WANT TO KNOW"
3617 DATA"HAVE YOU ASKED ANYONE ELSE?"
3618 DATA"HAVE YOU ASKED SUCH QUESTIONS BEFORE?"
3619 DATA"WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
3620 DATA"NAMES DON'T INTEREST ME"
3621 DATA"I DON'T CARE ABOUT NAMES -PLEASE GO ON"
3622 DATA"IS THAT THE REAL REASON?"
3623 DATA"DON'T ANY OTHER REASONS COME TO MIND?"
3624 DATA"DOES THAT REASON EXPLAIN ANYTHING ELSE?"
3625 DATA"WHAT OTHER REASONS MIGHT THERE BE?"
3626 DATA"PLEASE DON'T APOLOGIZE!"
3627 DATA"APOLOGIES ARE NOT NECESSARY"
3628 DATA"WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?"
3629 DATA"DON'T BE SO DEFENSIVE!"
3630 DATA"WHAT DOES THAT DREAM SUGGEST TO YOU?"
3631 DATA"DO YOU DREAM OFTEN?"
3632 DATA"WHAT PERSONS APPEAR IN YOUR DREAMS?"
3633 DATA"ARE YOU DISTURBED BY YOUR DREAMS?"
3634 DATA"HOW DO YOU DO...PLEASE STATE YOUR PROBLEM."
3635 DATA"YOU DON'T SEEM QUITE CERTAIN"
3636 DATA"WHY THE UNCERTAIN TONE?"
3637 DATA"CAN'T YOU BE MORE POSITIVE?"
3638 DATA"YOU AREN'T SURE?"
3639 DATA"DON'T YOU KNOW?"
3640 DATA"WHAT'S YOUR FEELING ABOUT THAT?"
3641 DATA"YOU ARE BEING A BIT NEGATIVE"
3642 DATA"WHY NOT?"
3643 DATA"WHY ARE YOU CONCERNED ABOUT MY*"
3644 DATA"WHAT ABOUT YOUR OWN*"
3645 DATA"CAN YOU THINK OF A SPECIFIC EXAMPLE?"
3646 DATA"WHEN?"
3647 DATA"WHAT ARE YOU THINKING OF?"
3648 DATA"REALLY,ALWAYS?"
3649 DATA"DO YOU REALLY THINK SO?"
3650 DATA"BUT YOU ARE NOT SURE YOU*"
3651 DATA"DO YOU DOUBT YOU*"
3652 DATA"IN WHAT WAY?"
3653 DATA"WHAT RESEMBLANCE DO YOU SEE?"
3654 DATA"WHAT DOES THE SIMILARITY SUGGEST TO YOU?"
3655 DATA"WHAT OTHER CONNECTIONS DO YOU SEE?"
3656 DATA"COULD THERE REALLY BE SOME CONNECTION?"
3657 DATA"HOW?"
3658 DATA"YOU SEEM QUITE POSITIVE."
3659 DATA"ARE YOU SURE?"
3660 DATA"I SEE."
3661 DATA"I UNDERSTAND"
3662 DATA"WHY DO YOU BRING UP THE TOPIC OF FRIENDS?"
3663 DATA"DO YOUR FRIENDS WORRY YOU?"
3664 DATA"DO YOUR FRIENDS PICK ON YOU?"
3665 DATA"ARE YOU SURE YOU HAVE ANY FRIENDS?"
3666 DATA"DO YOU IMPOSE ON YOUR FRIENDS?"
3667 DATA"PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU."
3668 DATA"DO COMPUTERS WORRY YOU?"
3669 DATA"ARE YOU TALKING ABOUT ME IN PARTICULAR?"
3670 DATA"ARE YOU FRIGHTENED BY MACHINES?"
3671 DATA"WHY DO YOU MENTION COMPUTERS?"
3672 DATA"WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?"
3673 DATA"DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?"
3674 DATA"WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"
3675 DATA"SAY,DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?"
3676 DATA"WHAT DOES THAT SUGGEST TO YOU?"
3677 DATA"I SEE"
3678 DATA"I'M NOT SURE I UNDERSTAND YOU FULLY"
3679 DATA"GO ON, PLEASE."
3680 DATA"CAN YOU ELABORATE ON THAT?"
3681 DATA"THAT IS QUITE INTERESTING. TELL ME MORE."
3690 DATA"I'M LISTENING"
3700 DATA"YOU HAVE VERY STRONG FEELINGS ABOUT THIS."
3701 DATA"ARE YOU TRYING TO SHOCK ME WITH YOUR LANGUAGE?"
3702 DATA"YOU FEEL A NEED TO BE OBSCENE?"
3703 DATA"LOOK ASSHOLE, CUT THE CURSING CRAP!"
4000 '(REPLY#,#OF REPLIES)
4001 DATA1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3
4540 DATA28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9
4550 DATA49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,3,72,2,74,4
4560 DATA78,3,81,6,87,4,91,6,97,8,105,7,112,4,112,4
=<cut here>========================================================

Weizenbaum, J., "ELIZA -- A computer program for the study of natural
language communication between man and machine", Communications of the
ACM 9(1):36-45, 1966.
--------------AC0BC5E8C79BDDE003495951
Content-Type: text/x-vcard; charset=us-ascii;
name="vha.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Visitenkarte für Volker Hatzenberger
Content-Disposition: attachment;
filename="vha.vcf"

begin:vcard
n:Hatzenberger;Volker
x-mozilla-html:FALSE
url:oct31.de
adr:;;Bornheimer Strasse 15;Bonn;;53111;Germany
version:2.1
email;internet:vha at oct31.de
end:vcard

--------------AC0BC5E8C79BDDE003495951--

Nov 18, 2000, 4:22pm

ananas,
Yes,that does sound a little familiar.....heh heh

H.Hickey

Nov 18, 2000, 4:24pm

Now who'd want to make *another* Eep? We already got one lol

--
- Tony56 (chandler56 at mail.com)
"Freedom: That's What The Government Wants You To Believe!"
____________________________________________________________
[View Quote]

Nov 18, 2000, 5:56pm

Dies ist eine mehrteilige Nachricht im MIME-Format.
--------------6E4D595C90D48E05A4A342BE
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

You need to know the features of a virus to protect yourself against it
;)
--------------6E4D595C90D48E05A4A342BE
Content-Type: text/x-vcard; charset=us-ascii;
name="vha.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Visitenkarte für Volker Hatzenberger
Content-Disposition: attachment;
filename="vha.vcf"

begin:vcard
n:Hatzenberger;Volker
x-mozilla-html:FALSE
url:oct31.de
adr:;;Bornheimer Strasse 15;Bonn;;53111;Germany
version:2.1
email;internet:vha at oct31.de
end:vcard

--------------6E4D595C90D48E05A4A342BE--

Dec 21, 2000, 12:02am

LOL is it in GW basic or Q basic?
[View Quote]

Dec 21, 2000, 12:25am

Though really IMHO if that was supposed to be more like eep instead of
getting stupider it would cuss and lash out at the user a lot more as you
converse with it.
[View Quote]

Dec 21, 2000, 4:33am

Dies ist eine mehrteilige Nachricht im MIME-Format.
--------------3A55FEFF76817E88921D711B
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

captain mad mike schrieb:
>
> Though really IMHO if that was supposed to be more like eep instead of
> getting stupider it would cuss and lash out at the user a lot more as you
> converse with it.

it does - read through and you will find it near the end.


To your prev. question : Not sure what basic dialect this is but I had
it running on a C64 long time ago, it is easy to adapt. It was not
exactly this version that I used, but reading through all these old 160k
disks - no way - I searched and found this version on the web.
--------------3A55FEFF76817E88921D711B
Content-Type: text/x-vcard; charset=us-ascii;
name="vha.vcf"
Content-Transfer-Encoding: 7bit
Content-Description: Visitenkarte für Volker Hatzenberger
Content-Disposition: attachment;
filename="vha.vcf"

begin:vcard
n:Hatzenberger;Volker
x-mozilla-html:FALSE
url:oct31.de
adr:;;Bornheimer Strasse 15;Bonn;;53111;Germany
version:2.1
email;internet:vha at oct31.de
end:vcard

--------------3A55FEFF76817E88921D711B--

1  |   Order by index