From ee95a2b3ebc1d33382bb16d7e527dd2ddbc2e833 Mon Sep 17 00:00:00 2001 From: Robert Munyer Date: Thu, 21 Mar 2019 06:53:10 -0400 Subject: [PATCH] Revert some errors from 1965 or 1966 --- ElzDctr.text | 7 +------ Example-Session.text | 3 ++- README.text | 2 +- 3 files changed, 4 insertions(+), 8 deletions(-) diff --git a/ElzDctr.text b/ElzDctr.text index a2dec73..76eacad 100644 --- a/ElzDctr.text +++ b/ElzDctr.text @@ -1,4 +1,5 @@ Copyright (c) 1966 Association for Computing Machinery, Inc. +This is a modified work, not identical to the published version. ===================================================================== (HOW DO YOU DO. PLEASE TELL ME YOUR PROBLEM) START @@ -22,7 +23,6 @@ THAT APOLOGIES ARE NOT REQUIRED))) ((0) (NEWKEY))) (IF 3 ((0 IF 0) (DO YOU THINK ITS LIKELY THAT 3) (DO YOU WISH THAT 3) (WHAT DO YOU THINK ABOUT 3) (REALLY, 2 3))) -(WHAT DO YOU THINK ABOUT 3) (REALLY, 2 3))) (DREAMT 4 ((0 YOU DREAMT 0) (REALLY, 4) (HAVE YOU EVER FANTASIED 4 WHILE YOU WERE AWAKE) (HAVE YOU DREAMT 4 BEFORE) (=DREAM) (NEWKEY))) @@ -57,7 +57,6 @@ YOUR PROBLEM) (NEWKEY))) (NAME 15 ((0) (I AM NOT INTERESTED IN NAMES) (I'VE TOLD YOU BEFORE, I DON'T CARE ABOUT NAMES - PLEASE CONTINUE)) ) -PLEASE CONTINUE)) ) (DEUTSCH (=XFREMD)) (FRANCAIS (=XFREMD)) (ITALIANO (=XFREMD)) @@ -92,7 +91,6 @@ FANTASIES) (DO YOU SOMETIMES THINK I AM 4) (=WHAT)) (WHAT DOES ' 4 ' SUGGEST TO YOU) (=WHAT)) ((0 YOU WAS 0) (WERE YOU REALLY) (WHY DO YOU TELL ME YOU WERE 4 NOW) -(WERE YOU REALLY) (WHY DO YOU TELL ME YOU WERE 4 NOW) (PERHAPS I ALREADY KNEW YOU WERE 4) ) ((0 WAS I 0) (WOULD YOU LIKE TO BELIEVE I WAS 4) (WHAT SUGGESTS THAT I WAS 4) @@ -127,7 +125,6 @@ BE 5) (CAN YOU EXPLAIN WHAT MADE YOU 5)) (HAS YOUR TREATMENT MADE YOU 5) (WHAT MAKES YOU 5 JUST NOW) (CAN YOU EXPLAIN WHY YOU ARE SUDDENLY 5)) ((0 YOU WAS 0) (=WAS)) -((0 YOU WAS 0) (=WAS)) ((0 YOU (/BELIEF) YOU 0) (DO YOU REALLY THINK SO) (BUT YOU ARE NOT SURE YOU 5) (DO YOU REALLY DOUBT YOU 5)) ((0 YOU 0 (/BELIEF) 0 I 0) (=YOU)) @@ -162,7 +159,6 @@ NOT SURE YOU 5) (DO YOU REALLY DOUBT YOU 5)) (YOU LIKE TO THINK I 3 YOU - DON'T YOU) (WHAT MAKES YOU THINK I 3 YOU) (REALLY, I 3 YOU) (DO YOU WISH TO BELIEVE I 3 YOU) -(REALLY, I 3 YOU) (DO YOU WISH TO BELIEVE I 3 YOU) (SUPPOSE I DID 3 YOU - WHAT WOULD THAT MEAN) (DOES SOMEONE ELSE BELIEVE I 3 YOU)) ((0 I 0) (WE WERE DISCUSSING YOU - NOT ME) @@ -197,7 +193,6 @@ COME TO MIND) (DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE) (WHY ((0 WHY DON'T I 0) (DO YOU BELIEVE I DON'T 5) (PERHAPS I WILL 5 IN GOOD TIME) (SHOULD YOU 5 YOURSELF) (YOU WANT ME TO 5) (=WHAT)) -(=WHAT)) ((0 WHY CAN'T YOU 0) (DO YOU THINK YOU SHOULD BE ABLE TO 5) (DO YOU WANT TO BE ABLE TO 5) (DO YOU BELIEVE THIS WILL HELP YOU TO 5) (HAVE YOU ANY IDEA WHY YOU CAN'T 5) (=WHAT)) diff --git a/Example-Session.text b/Example-Session.text index c34860e..378e9ce 100644 --- a/Example-Session.text +++ b/Example-Session.text @@ -1,4 +1,5 @@ Copyright (c) 1966 Association for Computing Machinery, Inc. +This is a modified work, not identical to the published version. ================================================================ Men are all alike. IN WHAT WAY @@ -21,7 +22,7 @@ My father. YOUR FATHER You are like my father in some ways. WHAT RESEMBLANCE DO YOU SEE -You are not very aggressive but I think you don't want me to +You are not very aggressive, but I think you don't want me to notice that. WHAT MAKES YOU THINK I AM NOT VERY AGGRESSIVE You don't argue with me. diff --git a/README.text b/README.text index c8b1eab..cda68d0 100644 --- a/README.text +++ b/README.text @@ -1,3 +1,3 @@ This is Weizenbaum's DOCTOR script for ELIZA, and a transcript of "a typical conversation" with it, as published in Communications of -the ACM in January 1966. I have not corrected any errors. \ No newline at end of file +the ACM in January 1966, with printing errors corrected. \ No newline at end of file -- 2.11.0