Skip to main content

Full text of "Original ELIZA source code in MAD-SLIP"

See other formats


oe 


\,077 as 
lal / 


COMPUTER CONVERSATIONS (1965) 


PUBLIC 
DOMAIN 


creative 
commons 

































































































































































z PRINTsTO109y2531ysTAPEse102 = =. & _ 70109 2531 _ ___.1748.8____ 03/06 _ 
F= 
(HOW CC YOU OG. I AM THE DOCTOR. PLEASE SIT DOWN AT THE TYPEWRITER 000010 
AND TELL ME YOUR PROBLEM.) 000020 
ee (IF 3 (10 IF 0) (DO YOU THINK ITS LIKELY THAT 3) (DO YOU WISH THAT 3) 000030 a ae. Par Sate oo 
(WHAT CC YOU THINK ABOUT 3) (REALLY, 2 3))) 000040 
: 2 (MEMORY MY (0 YOUR _O = LETS DISCUSS FURTHER WHY YOUR 3) _ 000050 De ale 
5¢ (O YOUR O = EARLIER YOU SAID YOUR 3) q 000060 
: (0 YOUR O = BUT YOUR 3) 000070 
(0 YOUR O = DOES THAT HAVE ANYTHING TO DO WITH THE FACT THAT YOUR 3)) 000080 PUBLIC 
ce (NONE ({0) (1 AM NOT SURE I UNDERSTAND YOU FULLY) ‘ 000090, 
2 (PLEASE GO CN) = 000100 DOMAIN 
7 (WHAT DCES THAT SUGGEST TO YOU) aS * = gad 000110 | 
(DO YCU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS))) 000120 
(PERHAPS ((0) (YOU DON'T SEEM QUITE CERTAIN) 000130 
(WHY THE UNCERTAIN TONE) 000140 
(CAN*T YOU BE MORE POSITIVE) 7 oh each ae 7 Ss.) JO00850% = 7 
(YOU AREN'T SURE))) 000180 
7 (MAYBE (=PERHAPS)) _#  .__-—_—-_—-_-og0190. 
(OON*T YOU KNOW) 000200 
(AM = ARE ({0 ARE YOU 0) (DO YOU BELIEVE YOU ARE 4) 000210 
3 (WOULD YOU WANT TO BE 4) (YOU WISH I WOULD TELL YOU YOU ARE 4) 000220 
5@ _________ _(WHAT WOULO IT MEAN IF YOU WERE 4)) _ = 2:2. “000230: .... 2 —< an im 
z ((0) (WHY DO YOU SAY "AM*) {I DON*T UNDERSTAND THAT))) 000240 
z jAARE = AM ((0 AMI 0) 2 a > 000250 a 7 aes Rane Se 
r | (WHY ARE YOU INTERESTED IN WHETHER I AM 4 OR NOT) 000260 
(WOULD YOU PREFER IF I WEREN'T 4) (PERHAPS I AM 4 IN YOUR 000270 
) FANTASIES) (DO YOU SOMETIMES THINK I AM 4)) 000280 
(0 AM 0) (DID YOU THINK THEY MIGHT NOT BE 3)_ = : : 000290 
| (WOULD YOU LIKE IT IF THEY WERE NOT 3) (WHAT IF THEY WERE NOT 3) 000300 
a | (POSSIBLY THEY ARE 3)) ) eee hae age ees a Tee ee CEES 000310 : 
r (YOUR = MY ((C MY 0) (WHY ARE YOU CONCERNED OVER MY 3) 000320 
(WHAT ABOUT YOUR OWN 3) (ARE YOU WORRIED ABOUT SOMEONE ELSES 3) 000330 
(REALLY, MY 3))) 000340 
ear _ (WAS = WERE) eT! ee: ZI00085SO.. how a eee GC. SAS 
(WERE = WAS) 000360 
ye 2 MES OU eS Bae tes : Ss oe __ 000370 _ zee 
€ (YOU'RE = I'M) 000380 
(1'M™ = YOURE) 000390 
(MYSELF = YOURSELF) 000400 
€ 2. __ _t YOURSELF = MYSELF) ane he _ q +. 000410. -> -. Peo ee. oe 
(MOTHER DLIST(/NOUN FAMILY) ) 000420 
The _____A FATHER DLIST(/NOUN FAMILY?) Gua a = : _ 000430 
« (SISTER DLIST(/FAMILY)) 000440 
6 (BROTHER DLIST(/FAMILY)) 000450 
(WIFE DLIST(/FAMILY)) 000460 
oe (CHILDREN DLIST(/FAMILY)) a ae s ae _ 000470, 7 = os, 
(1 = YOU ((0 YOU ARE OT 0) 000480 
— (PERHAPS YOU ARE 4 SOMEGNE ELSE) _ ; 7 . B! : ; 000490 
« (ARE YOU 4 ANYONE) (ARE YOU 4 ANYONE IN YOUR FAMILY) 000500 
! (PERHAPS YOU WISH I WERE 4 YOU 6)) 000510 
((0 YOU ARE 0) 000520 
© «ATS IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME) _ — = 000530 
(HOW LONG HAVE YOU BEEN 4) 000540 
s_________(00 YOU BELIEVE IT NORMAL TO BE 4) zy CS _____ __ 000550 = 
qe (DO YOU ENJOY BEING 4)) 000560 
; ((0 YOU CAN'T 0) (HOW DO YOU KNOW YOU CAN*T 4) 000570 
(HAVE YCU TRIED) 000580 
a ae (PERHAPS YOU COULD 4 NOW) ae ee ae _ 000590. _ ees cau east i ee 
(D0 YOU REALLY WANT TO BE ABLE TO 4)) 000600 
Be (40 YOU DON'T O)(DON*T YOU REALLY 4) (WHY DON*T YOU 4) 25 000610 _ 3 SE as ee eee ee : 








it a 
‘ 


eo 


ROYAL *f BU! 

































































PUBLIC 
DOMAIN 



























































(pO _YCU WISH TO BE ABLE TO 4) (DOES THAT TROUBLE YOU)) a 000620 
((0 YCU FEEL 0) (TELL ME MORE ABOUT SUCH FEELINGS) 000630 
(DO YOU OFTEN FEEL 4) 000640 
(DO YOU ENJOY FEELING 4) 000650 
(OF WHAT DOES FEELING 4 REMIND YOU)) p. 1 900660: 
((0 YOU 0 I 0) (PERHAPS IN YOUR FANTASY WE 3 EACH OTHER) 000670 
(DO VOULWISHATOOS MEle 2 8 2 Pe - eta _ 000680 _ 
(YOU SEEM TO NEED TO 3 ME) 000690 
(DC YOU 3 ANYONE ELSE)) 000700 
(0) (YOU SAY 1) 000710 
(CAN YOU ELABORATE ON THAT) (00 YOU SAY 1 FOR SOME SPECIAL REASON) 000720 
(THAT'S QUITE INTERESTING))) 000730 
(you = I ((0 I 0 YoU 0) 7 : Re SD = ——- 000740 
(WHY DG YOU THINK I 3 YOU) 000750 
(DID YOUR PARENTS 3 YOU)) 000760 
((0 | AM 0) (WHAT MAKES YOU THINK I AM 4) 000770 
(DOES IT PLEASE YOU TO BELIEVE I AM 4) Pe eee _ 000780 
(DO YCU SOMETIMES WISH YOU WERE 4) 000790 
(PERHAPS YOU WOULD LIKE TO BE 4)) “ 5 000800 _ 
((O I 0) (WE WERE DISCUSSING YOU — NOT ME) 000810 
(OH, I 3) (YOU'RE NOT REALLY TALKING ABOUT ME — ARE YOU) 000820 
(WHAT ARE YOUR FEELINGS NOW))) 000830 
“(YES ((0) (YOU SEEM QUITE POSITIVE) (YOU ARE SURE) — —__ __ 000840 
(I SEE) (I UNDERSTAND))) 000850 
(NO ((0) (ARE. YOU SAYING "NO* JUST TO BE NEGATIVE) _ =. ee 000860 
{YOU ARE BEING A BIT NEGATIVE) (WHY NOT) (WHY *NO*))) 000870 
(My = YOUR ((0 YOUR O (/FAMILY) 0) 000880 
(TELL ME MORE ABOUT YOUR FAMILY) ( WHO ELSE IN YOUR FAMILY 000890 
5) (YOUR 4) (WHAT ELSE COMES TO MIND WHEN YOU THINK OF __ 000900 
YOUR 4)) . 000910 
(€0 YOUR 0) (YOUR 3) (WHY ODO YOU SAY YOUR 3) (DOES THAT __ = ____000920 
SUGGEST ANYTHING ELSE WHICH BELONGS TO yOu) (IS IT 000930 
IMPORTANT TO YOU THAT 2 3))) 000940 
(CAN ((0 CAN I ©) (YOU BELIEVE I CAN 4 DON'T YOU) 000950 
“(YOU WANT ME TO BE ABLE TO 4) (PERHAPS YOU WOULD LIKE TO _BE_ : 000960. 
ABLE TO 4 YOURSELF)) ({O0 CAN YOU 0) (WHETHER OR NOT YOU CAN 4 000970 
‘DEPENDS ON YOU MORE THAN ON ME) (00 YOU WANT TO BE ABLE TO 4) 000980 
(PERHAPS YOU DON'T WANT TO 4))) 000990 
(WHAT ((0) (WHY DO YOU ASK) (DOES THAT QUESTION INTEREST YOU) 001000 
(WHAT IS IT YOU REALLY WANT TO KNOW))) 001010 
(BECAUSE ((0) (IS THAT THE REAL REASON) (DON'T ANY OTHER REASONS __ 001020 
COME TO MIND) (DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE) 001030 
(WHAT. OTHER REASONS MIGHT THERE BE))) _ _ _001040_ 
(WHY ((0 WHY DON'T I 0) (00 YOU BELIEVE I DON*T 5) (PERHAPS I 001050 
WILL 5 IN GOOD TIME) (SHOULD YOU 5 YOURSELF) (YOU WANT ME TO 5)) 001060 
((O0 WHY CAN'T YOU 0) (DC YOU THINK YOU SHOULD BE ABLE TO 5) 001070 
(DO _YCU WANT TO BE ABLE TO 5) (DO YOU BELIEVE THIS WILL HELP YOU _ _ 001080 
To 5) (HAVE YOU ANY IDEA WHY YOU_CAN'T 5)) 001090 
(0 WHY 0) (WHY DO YOU THINK 3) (IS IT TRUE THAT 3) 001100. 
(DCES THAT QUESTION INTEREST YOU) (DO YOU WORRY MUCH ABOUT WHY 3))) 001110 
(EVERYONE 2 ((0) (REALLY, EVERYONE) (CAN YOU THINK OF 001120 
ANYONE IN PARTICULAR) (WHO, FOR EXAMPLE) (YOU ARE THINKING OF 001130 
A VERY SPECIAL PERSCN) A ahs - gg... 002140 
(WHC, MAY I ASK) (SOMEGNE SPECIAL PERHAPS) 001150 
(YOU HAVE A PARTICULAR PERSON IN MIND, DON*T YOU) (WHO DO YOU _ 001160, 
THINK YCU*RE TALKING ABOUT))) 001170 
(EVERYBODY 2 (= EVERYONE)) 001180 
(NOBODY 2 (=EVERYONE)) 001190 
-(NCONE 2 (=EVERYONE)) Sena ema ares . & eee 001200 - 
(ALWAYS 1 ((0) {CAN YOU THINK OF A SPECIFIC EXAMPLE) (WHEN) 001210 
(WHAT INCIDENT ARE YOU THINKING OF) (REALLY, ALWAYS))) ——__ — 001220 


o 


r 





ROYAL “f BUSINESS FORMS INCORPORATED 








































































































































































































‘aa . ee eee 
PUBLIC 
a DOMAIN 






































creative 
commons 


























BUSINESS FORMS 


Q 6 
























































































































































2 PRINT, 1T0109,2531,SPEAK,MAD = +a T0109 2531 _ 1748.8 03/06 = 
CHANGE MAD 
EXTERNAL FUNCTION (KEY,MYTRAN) 000010 
Z = NORMAL MODE IS INTEGER ; 000020 _ = : are 
ENTRY TO CHANGE. . zi 000030 
a = LISTsCINCUT) aa a = - HOO00S08.- es te 
V°S G(L)=$TYPE$, $SUBST$, $APPEND$,$ADDS, e 000050 
LSSTART$» $RANKS » $DISPLAS 000060 
vV'S SNUMB = $ I3 *$ 000070 
: FIT=0 ae iar, . _ 000080, PUBLIC 
CHANGE PRINT COMMENT $PLEASE INSTRUCT MES 2 001400 DOMAIN 
eek ED Te _LISTRO. (MTLIST. (INPUT) 0) 7 ae | 7 001410 : 
JOB=POPTOP. (INPUT) 001420 
T'H IDENT, FOR J=lels JeGe 7 001430 
TOENT WR G(J) «Ee JOB, T*O THEMA 001440 
PRINT COMMENT $CHANGE NOT RECOGNIZED$S 001450 : 
T*O CHANGE - fa 001460 
at THEMA se WR J oEs Se FYN IRALST.C INPUT) q 001470 
WR J .E. 7 001480 
T*H DISPLAy FOR I=0,ly I «Gs 32 001490 * 
W°R LISTMT«(KEY(I)) «Es 0, T*O DISPLA 001500 
et S=SEQROR«(KEY(I)) _ ie. ma ie _ 001510 a 5 
READ(7) NEXT=SEQLR«(SyF) 001520 
7 “9 AWERSEcGs. 05. TSO DISPLA: © ioe & 001530 > 
PRINT COMMENT $*$ 001540 
TPRINT«(NEXT20) 001550 
PRINT FORMAT SNUMBy 1 001560 
is _ PRINT COMMENT $ $ ae ie ___001570. 7 
T*O READ(7) 001580 
DISPLA CONTINUE eA Tou 001590 ees : 
PRINT COMMENT $ $ 001600 
PRINT COMMENT $MEMORY LIST FOLLOWSS 001610 
PRINT COMMENT $ $ 001620 
acon! es TtH MEMLST, FOR I=l +» 1s I -Ge 4 ae ___001630 - eet 
MEMLST TXTPRT.(MYTRAN(I) 0) 001640 
7 ____T"0 CHANGE _ : _f 001650 age 
E*L 001660 
THEME=PCPTOP.( INPUT) 001670 
SUBJCT=KEY (HASH. (THEME, 5)? 001680 
ine eaee ae S=SEGRDR.(SUBJCT) enw. xt 4 __.  § __——ss—_—i001690 ee 
LCOK TERM=SEQLR.«(SoF) 001700 
— _ WR F eGe O» T'O FAIL _ Po 001710 
WR TOP.(TERM) «Es THEME, T*O FOUND 001720 
T'0 LOOK 001730 
FOUND T*O DELTA(J) 001740 
et hae DELTA(1) _ TPRINT.(TERM+0) os x Pa) : ae : 
T*O CHANGE 001760 
FAIL PRINT COMMENT $LIST NOT FOUNDS a peste! el A AS 
T'O CHANGE 001780 
DELTA(2) _S=SEQRDR.»( TERM) 001790 
OLD=POPTOP.{ INPUT) 001800 
____ READ(1) —_ OBC T=SEQLR. (S59) Se er 2 —— wae 001810 __ 
WR F «Ge Oy T'O FAIL 001820 
Were the W'R F «NE. Oy T'O READ(L) a ___001830_ : 
INSIDE=SEQRDR.(OBJCT) 001840 
READ(2) IT=SEQLR.« ( INSIDE,F) 001850 : 
W'R F .Ge O, T'O READ(1) 001860 
a ae SIT=SEQRDR«(IT) ne ae. __001870_ a 2 Sx: : 
SOLD=SEQRDR. (OLD) 001880 
ITOLD TOLD=SEQLR«(SOLD,FOLD) —__ 001890 





wt! 























































































































DIT*SEQURSUSIT SEIT) oe ae = _- = Q01900. S. 
w'R TOLD .E. DIT .AND. FOLD LE. OsT'O ITOLD 001910 
W'R FOLD 2G. 0, T*O OK(J) 001920 
T'O READ(2) 001930 
- CK(2) SUBST. (PCPTOP.( INPUT) sLSPNIR«(INSIDE)) _ = 2 ____ 001940 = oe Desir e 
T'O CHANGE 001950 
ia OK{3) NEWBOT.(POPTOP.(INPUT),OBJCT) ei 001960 
T*O CHANGE 001970 
DELTA(3) _T*O DELTA(2) 001980 
DELTA(4) WR NAMTST.(BOT.(TERM)) .E. 0 001990 
Dan __ BOTTOM=POPBOT. (TERM) a 7 002000 PUBLIC 
NEWBOT.(POPTOP.{ INPUT) » TERM) 002010 DOMAIN 
7 =e zc. NEWBOT. (BOTTOM, TERM) Ses : = 002020 _ 
Ore 002030 
NEWBOT. ( POPTOP.({ INPUT) »TERM) 002040 
Ett 002050 
T*O CHANGE PAs ss Sa _ 002060 
DELTA(6)  S=SEQROR.(TERM) 002070 
READ(6) CBJCT=SEQLR«(S,F) 2 oe.” ________902080 
WR F .Ge O» T'O FAIL 002090 
W'R F_.NEs O» T*O READ(6) 002100 
OBJCT=SEQLL.(S,F) 002110 
Si a MERTUNK es VOBICTI obs 2022. bP 2 one 002120 __ = 
SUBST. (POPTOP. (INPUT) sLSPNTR«(S)) 002130 
cack O° E a = ae ee _ 002140 _ 
NEWTOP. ( POPTOP.( INPUT) sLSPNIRe(S)) 002150 
EL DOOZ1G60 cate oon 2 See Ps 
T*G CHANGE 002170 
eee Re # # # # » © # # & END OF MODIFICATION ROUTINE 002180 — 
E'N 002200 
TPRINT MAD _ = 
EXTERNAL FUNCTION (LST) 000010 
NORMAL MODE IS INTEGER 000020 7 : 
ENTRY TO TPRINT. 000030 
ee se 2 Z _SA=SEQRDR-(LST) _ ee 2 000040 
LIST.(OUT) 000050 
READ _——s_—CNEXT=SEQLRe(SAVFA) = = _000060 ft 
W'R FA .Ge Os T'O P 000070 
W'R FA .E. 0, T'O B 000090 
POINT=NEWBOT. (NEXT, OUT) 000100 
SORT aoe a W'R SA obs Oy MRKNEG.(POINT) a 000110 5 
T*O READ 000120 
ana B TXTPRT.(OUT,O) rat = 3 000130 
SEQLL.(SAsFA) 000140 
2 MORE NEXT=SEQLR.~(SA,FA) 000150 
W'R TOP.(NEXT) .E. $=$ 000160 
he pee ___IXTPRT~(NEXT,O) ohh _ ae ee ae ae 000170 ——_ =e 
T'O MORE 000180 
Ie ed en Do TOES ND nh Prine = "er _ ae 000190 
W'R FA .Ge O, T*O DONE 000200 
: PRINT COMMENT $ $ 000210 
SB=SEQRDR« (NEXT) 000220 
G. MERE __ TERM=SEQLR.(SByFB) Por ee, | eee 00023000 
W'R FB .L.0 000240 
; Z 7 PRINT ON LINE FORMAT NUMBER, TERM . = 000250 
oe” V'S NUMBER = $13 *$ 000260 : 
; T'O MEKR 000270 
EfL 000280 
@. W'R FB .Ge 0, T*O MORE _ 000290 oo 
TXTPRT«(TERM10) 000300 
T'O MEHR ; 4 7 a. 000310 _ 


a a ee 


























































































































P TXTPRT»(QUT)O) = a ‘ 000320_ BAS ee = f 
DONE IRALST. (QUT) 000330 
FAN 000340 
EN 000350 
Bat LPRINT MAD : a os ; _ ete ns 
EXTERNAL FUNCTION (LST, TAPE) 006340 
NORMAL MODE IS INTEGER eee 2 006350 __ a a toe 
ENTRY TC LPRINT. - 006360 
BLANK = $ $ 006370 
EXECUTE PLACE. (TAPEs0) 006380 
LEFTP = 606074606060K _ Po sa 006390 PUBLIC 
RIGHTP= 606034606060K 006400 
eter ____ __ BOTH _= 607460603460K eee 006410_ 7 DOMAIN 
EXECUTE NEWTOP. (SEQROR.(LST) LIST. (STACK?) 006420 
S=POPTOP. (STACK) 006430 
BEGIN EXECUTE PLACE.(LEFIPy1) 006440 
NEXT WORD=SEQLR.(S»FLAG) : es ee os 006450 : 
WR FLAG ol. O 006460 
= 7 EXECUTE PLACE. (WORD»s 1) z hg 2 006470 * 
W'R S «Ge Oy PLACE.(BLANKs1) 006480 
T*O NEXT 006490 
OR W'R FLAG .G. 0 006500 
aos : EXECUTE PLACE.(RIGHTPy1) = aes i _006510_ 7 el 
W'R LISTMT.(STACK) «Ee O» T*O DONE 006520 
ee S=POPTOP.(STACK) ee wee - _ 006530 | = _ = 
T'O NEXT 006540 
OTHERWISE 006550 
WR LISTMT«(WORD) ~E~ O 006560 
Pee EXECUTE PLACE.(BOTH»1) ~ q —_006570_ : eee 
T'0 NEXT 006580 
OTHERWISE -Serages *. EE : 006590 : : : 
EXECUTE NEWTOP.(S, STACK) 006600 
S=SEQROR« (WORD) 006610 
T*O BEGIN 006620 
7 oes, ie oe eee s _ 4 : 006630 __ = Ls 
EL 006640 
DONE EXECUTE PLACE-(Os-1) aed ia 7 006650, Pee 
EXECUTE IRALST.(STACK) 006660 
FUNCTION RETURN LST 006670 
END OF FUNCTION 006680 
7 ee TESTS MAD 7 ae | ae 7 z= Le : 
EXTERNAL FUNCTION(CANDyS) — 000010 
: este NORMAk MODE IS INTEGER : pe. ae 000020, _ 
DIMENSION FIRST(5) »SECOND(5) 000030 
ENTRY TO TESTS. Fes 000040 
STORE=S 000050 
een te, READER=SEQROR-(CAND) Ss oe BR em i See . oer: ror - [ 
T'H ONE, FOR [=07l, I Gs 100 ~ 000070 
: a FIRST(1)=SEQLR~ - (READER» FR) pare eee oO 000080 Site —_ 
ONE W'R READER «Ge Oy T'O ENDONE 000090 
ENDCNE SEQLL.(S9F) 000100 
T'H TWOy FOR J=Oyly J -Ge 100 000110 
ae ; SECOND (J)=SEQLR-(SyF) - , ae 000120 7 : 
TWO W'R S «Ge Oy T*O ENOTWO 000130 
: ENDTWC WR I eNEse Je FONO :) ae. 000140 : 
T'H LOOK, FOR K=Oyl, K.G. J 000150 
LOOK W'R FIRST(K) «NEs SECOND(K), F'N 0 000170 
EQL=SEQLR.« ( READER» FR) 000180 
ene > 7 WIR EQL NE. $=$ ost ee Soe 000190” 7 7 E 
SEGLL. (READER, FR) ~000200 
F°'N READER 000210 








el! 


YAL “P BUSINE 








































































































Ore = 2 2 Te es = : 000220 _ _ = 
POINT=LNKL.( STORE) 000230 
T'H DELETE » FOR K=O9ly» K 2G. J 000240 
REMOVE. (LSPNTR.( STORE) ) 000250 
DELETE SEQLRs(STORE»F) | = fe eer ee 000260 __ es mer acs 8... 41s = 
INSRT NEW=SEQLR« (READERs FR) 000270 
- cn POINT=NEWTOP.(NEW,POINT) _ aie Cee ee 000280 _ 7 eres, 
MRKNEG. (POINT) 000290 
W'R READER ot. O, T*O INSRT 000300 _ 
MRKPOS. (POINT) 000310 PUBLIC 
7 F'N READER 2 ee eee 2 000320 _ 
E*L 000330 DOMAIN 
E'N rae zs pops See ck ee 000340 _ 
COCBCD MAD 
EXTERNAL FUNCTION (AB) 000010 
NORMAL MODE IS INTEGER 000020 
is ENTRY TO FRBCD. _ eee ae. Powe 000030 
W'R LNKLe(A) «Es Or T*O NUMBER 000040 
2s = B=A = aa eras a 000050 
FY'N O 000060 
NUMBER K=A#262144 000070 
B=BCDIT.(K) 000080 
= —EENLO > =! en eeare <a 000090 
E'N 000100 
ae ELIZA _ MAD =e - a! ‘ = 
NORMAL MODE IS INTEGER 000010 
DIMENSION KEY(32),»MYTRAN(4) 000020 
INITAS.(0) 000030 
= Pe net ee PRINT COMMENT $WHICH SCRIPT DO YOU WISH TO PLAY$ 000060 
READ FORMAT SNUMBsSCRIPT 000070 
ee Sea : ___LIST.(TEST) _ eee = 000080 
LIST.( INPUT) 000090 
LIST.»( OUTPUT) 000100 
LIST.(JUNK) 000110 
es Pee eit eee _ Pee: 000120 
LSSCPY« (TREAD. (INPUT, SCRIPT) JUNK) | 000130 
Pe 7 __MTLIST.CINPUT) Beas, Gs, eee » eo 000140 ei See 
T'H MLST, FOR I=lels I .Ge 4 000150 
MLST LIST. (MYTRAN(I)) 000160 
MINE=0 000170 
en age Se See -LISTs(MYLIST) = a oe eee ee 000180 _ - 
T'H KEYLST» FOR I=Oly I .Ge 32 000220 
7 __KEYLST_ LIST.(KEY(1)) s - 000230 
Re # # # # # # # © * READ NEW SCRIPT 000240 
BEGIN MTLIST.CINPUT) 000250 
NODLST.C INPUT) 000260 
By 9 an aes __LISTRO.CINPUT»SCRIPT) __ | oo 000270, ban if SNe 
WR LISTMT.CINPUT) 2E. O 000280 
are Set ___ _TXTPRT~*( JUNKO) = | =o 000290 
MTLIST. (JUNK) 000300 
T'O START 000310 
EL 000320 
a WIR TOP.C INPUT) 2E. SNONES 000330 | 
NEWTOP. (LSSCPYs( INPUTyLIST.(9) ) sKEY(32)) 000340 
= __T*O BEGIN est 5 za co 000350 Z 
= eee OR W*R TOP.(INPUT) «£2 $MEMORYS 000360 
POPTOP.( INPUT) 000370 
MEMORY=POPTOP.{ INPUT) 000380 
Ry ot cd __T'H MEM, FOR I=lyl» I -Ge 4 3 000390 wa 
Sa MEM LSSCPY.(POPTOP.( INPUT) »MYTRAN(I)) 000400 
T*0 BEGIN 000410 








fe 


1G¢ 
































































































































a O'E Sat re PaaS as a 000420 = a ae _ 
NEWBOT .(LSSCPY.(INPUT,LIST.(9)),KEY( HASH. 000430 
1 (TOP.CINPUT) »5))) 000440 
T'O BEGIN 000450 
As Ett es a ee = i 000460 oes ee a Rice ates 
Re # # # & # # # # # BEGIN MAJOR LOOP - 000470 
: START TREAD. (MTLIST.( INPUT) 0) =. a: : 000480 - pe Ore 
KEYWRD=0 000490 
PREDNC=0 000500 
LIMIT=LIMIT#1 000510 PUBLIC 
W°R LIMIT .Es 5, LIMIT=1 «se See | Ne 000520 
WR LISTMT.( INPUT) .2£. O» T*O ENDPLA 000530 DOMAIN 
= a [T=0_ = ayere® See ae 2 000540 _ 
W'R TOP.( INPUT) «Ee $+ 000550 
CHANGE. (KEY»MYTRAN) 000560 
T'*O START 000570 
Fi E't Nea : ae oe 000580 —_— ef 
W®R TOP.(INPUT) «Es $*%, T*O NEWLST 000590 
S=SEQROR»( INPUT) : eZ ae ue __000600 
NOTYET W'R S .Le O 000610 
SEQLR.(SeF) 000620 
T'O NOTYET 000630 
ey ees OSES? Ys stereos! PA: 000640 iz ae 
WORD=SEQLR.(SoF) 000650 
a ae: W'R WORD .E. $.$ 2OR.s WORD .E. $,$ -OR~- WORD .E. $BUTS _000660 _ a — 
W'R IT .E. O 000670 
NULSTLe( INPUT» LSPNER*(S) sJUNK) 000680 
MTLIST. (JUNK) 000690 
eee ee ae __T'0 NOTYET 4 000700 
O°E 000710 
, : NULSTRe(INPUT,LSPNTRo(S)eJUNK) === ———C‘éQNZZCQ 
MTLIST.( JUNK) 000730 
T*O ENDTXT 000740 
EPL 000750 
[ee eaS: eh St. ir 3, ee LL ee ee = i 4 000760 : 
Eft 000770 
Pepri.. W'R F .Ge Os T*O ENDTXT 7 | Peo 000780 see 
IT=HASH. (WORD) 5) 000790 
SCANER=SEQRDR~(KEY(1)) 000800 
SF=0 000810 
wo TH SEARCH, FOR J=050 SF «Ge 0 gz 000820 
CAND= SEQLR.«~(SCANER, SF) 000830 
‘i WIR SF Ge On T*O NOTYET eo 000840 
SEARCH W'R TOP.(CAND) «Es WORD, T*O KEYFND 000850 
ie KEYFND READER=TESTS.~( CAND,» S) 000860 
WR READER .E. O» T'O NOTYET 000870 
hes : WR LSTNAM.(CAND) NE. O ; i. : 000880 i Soe eer 
DL=LSTNAM. (CAND) 000890 
i | | a WIR S ole 0 eee Se 000900 
SEQLR.(SsF) 000910 
? T*G SEQ 000920 
Ofe 000930 
; NE WTOP. (DLA LSPNTR«(S)) = | 000940 Be St Egat 
Est 000950 
: ah ae pee Ore 5 OE RE OREN a oo 000960 
a ae ce 000970 
. NEXT=SEQLR.~(READER,FR) 000980 
W'R FR Ge O» T*O NOTYET 000990 
: ___ WIR IT Es 0 AND. FR Es O LS ee) 11 Seen 2 eee 
- PLCKEY IT=READER 001010 
KEYWRD=wWORD _001020_ 








‘eo 


‘@ 


«2 











at! 


































































































_OR WIR FR .L. 0 AND. NEXT »G~ PREDNC o =. 5 Q01030% f= > 
PREDNC=NEXT 001040 
NEXT=SEGLR. (READER»FR) 001050 
T'C PLCKEY 001060 
2 __ _O"E (hee we = E. __001070 cist eye see 
T'O NOTYET 001080 
Se ae EL. pane = = _001090_ : 
T*C NOTYET 001100 
Re # # # # # # # # * END OF MAJOR LOOP 001110 
ENDTXT WeR IT .E. O 001120 PUBLIC 
WIR LIMIT o£. 4 eANDs*LISTMT.(MYLIST) .NE- O 001130, 
CUT=POPTOP.(MYLIST) 001140 DOMAIN 
eet TXTPRT.(OUT,0) eas Por Cee) se 001150 __ 
IRALST.(OUT) 001160 
T'G START 001170 
O'eE 001180 
a ____ES=BOT.( TOP. (KEY(32))) Z @ 8 800790 
T'O TRY 001200 
a EL es Z Be Ba 5 le. _ 001210 
3 OR W*R KEYWRD .E. MEMORY 001220 
2 I=HASH»( BOT. (INPUT) )2) +1 001230 
+ NEWBOT« (REGEL« (MYTRAN( 1), INPUTsLIST.~ (MINE) ) » MYLIST) 001240 
: sd es = —SEQLL« (ITs FR) uf aie an 001250 __ —— 
T'G MATCH 001260 
se. at ___ Ore = ’ ae 001270 | : 
SEQLL«(IT,FR) 001280 
Res #8 # # # # # # MATCHING ROUTINE 001290 
MATCH ES=SEQLR.~(ITyFR) 001300 
penne _ WR TOP.(ES) Es $=$ 001310 : 
S=SEQRDR.«(ES) 001320 
a = SEQLR-(S9F) f _ 001330 7 
WORD=SEQLR«(SsF) 001340 
I=HASH.( WORD» 5) 001350 
SCANER=SEQRDR. (KEY(1)) 001360 
SCAN ss _TS=SEQLR«(SCANER®F) a 001370 R 
WR F eGe Oy T'O NOMACH(LIMIT) 001380 
x : & = WR WORD .E. TOP.(ITS) _ s 2; he 007390. _ ee, 
S=SEQROR.«(ITS) 001400 
SCANI ES=SEQLR«( SF) 001410 
WR F .NEs Of T'O SCANI 001420 
2 gees eee 2 i Pees ee = _ __ 001430 = = = 
T*O TRY 001440 
" = FEO R ENS se a = 001450 7 7 
T'O SCAN 001460 
‘ E'L 001470 
EL 001480 
Yo mee ee W'R FR «Ge Oy T*O NOMACH(LIMIT) __ _ 001490 on eke ans o 
TRY WTR YMATCHs (TOP «(ES)» INPUTsMILIST~(TEST)) -E+ 0,T*O MATCH 001500 
re Soe __ESROR=SEQRDR.(ES) = SE 0015100 » 7. 8 us 
SEQLR~ (ESRDR, ESF) 001520 
: POINT=SEQLR« (ESROR» ESF) 001530 
POINTR=LSPNTR.(ESROR) 001540 
a ees Se ee sore | ee 001550 
NEWBOT.{1,POINTR) 001560 
aan Se ____TRANS=POINT ia a _ 001570 
T'C HIT 001580 
, O'E 001590 
T'H FNDHIT»FOR 1=Oyly I .G. POINT 001600 
: FNDEIT _TRANS=SEQLR.(ESRORsESF) a _s 001610. 
“WIR ESF .G. 0 001620 
: Tie a? “SEQLR-(ESRDRyESF) a | oe : 001630 a eae 







































































eae __SEQLR-(ESRORESF) Se ae 2 SP 00R6ROe se 2 ee eat Ne cone 
TRANS=SEQLR« (ESRDR+ ESF) 001650 
SUBST. (1,POINTR) 001660 
T'O HIT 001670 
: Ore ae. 7 4 2 001680 yon BOS A beet 8. 2 athens 
SUBST. (POINT#1,POINTR) : 001690 
; ; a OSHS. a Teese ee ee _ 001700 LY Acta er ee 
Eft 001710 
EtL 001720 
HIT TXTPRT« (ASSMBL«( TRANS, TEST» MTLIST.« (OUTPUT) ) 10) 001730 
me __ T'O START Rese | ee ee ape 2 =o PUBLIC 
EL 001750 DOMAIN 
- z= Re # *# # # # # # # # INSERT NEW KEYWORD LIST 001760 _ 
NEWLST POPTOP. (INPUT) 001770 
NEWBOT. (LSSCPY.(INPUTsLIST.(9) ) sKEY (HASH 001780 
1(TOP. (INPUT) +5))) 001790 
et TO START : Jao 001800 __ = 
Ru * # ® # © ® # # ® DUMP REVISED SCRIPT 001810 
aS ENDPLA PRINT COMMENT $WHAT IS TO BE THE NUMBER OF THE NEW SCRIPTS 001820. __ 
READ FORMAT SNUMB, SCRIPT 001830 
LPRINT. (INPUT, SCRIPT) 001840 
NEWTOP. (MEMORY »MTLIST. (OUTPUT) ) 001850 
ee ____NEWTOP.($MEMORY$,OUTPUT) 001860 = 
T*H DUMP, FOR I=lyly I .G. 4 001870 
___ ump NEWBOT.(MYTRAN(T),¢OUTPUT) ___ 001880 eee 
LPRINT. (G§UTPUT»SCRIPT) 001890 
MILIST. (OUTPUT) 001900 
T*H WRITE, FOR I=Osly I .G. 32 001910 
___POPMOR” WR LISTMT.(KEYCI)) Es Oo T'O WRITE = 001920 _ ks 
LPRINT. (POPTOP.(KEY(1I)) SCRIPT) 001930 
aL ee ae T*C POPMOR | : a 001940 
WRITE CONTINUE 001950 
LPRINT.(MILIST. (INPUT) sSCRIPT) 001960 
EXIT. 001970 
— Re te ee & # # * SCRIPT ERROR EXIT a 001980 é == 
NOMACH(1) PRINT COMMENT $PLEASE CONTINUE $ 002200 
eee pesos OS TAR eee ns ree St poe S20022N0 
NOMACK(2) PRINT COMMENT $HMMM $ 002220 
T'O START- 002230 
NOMACH(3) PRINT COMMENT $GO ON » PLEASE $ 002240 
oy ae 2 OT ORSTART ws ee 002250 a 
NOMACH(4) PRINT COMMENT $I SEE $ 002260 
Oe TOUS TARE, pits i et. 7a L 002270 
VECTOR VALUES SNUMB= $13 * $ 002280 
EM 002290 

























































































” 












































































































































PRINT »TO109,2531y TAPE 2100 ws ee es i = FOUN 2530 TSB. 03/06 
(HOW DC YOU DO. I AM THE DOCTOR. PLEASE SIT DOWN AT THE TYPEWRITER 000010 
ANC TELL ME YOUR PROBLEM.) 000020 
; (IF_3 ((0 IF QO) (00 YOU THINK ITS LIKELY THAT 3) (DG YOU WISH THAT 3) 000030 4 ax ap eres 
(WHAT DC YOU THINK ABOUT 3) (REALLY, 2 3))) 000040 
pom (HOW (SWHATO) eee = : 000050 = = ae 3.4 
(WHEN (=WHAT)) 000060 
(MEMORY MY (0 YOUR 0 = LETS DISCUSS FURTHER WHY YOUR 3) 000070 
(0 YOUR O = EARLIER YOU SAID YOUR 3) 000080 PUBLIC 
aS: (0 YOUR O = BUT YOUR 3) ¥ : ee = 000090 
(0 YOUR O = DOES THAT HAVE ANYTHING TO DO WITH THE FACT THAT YOUR 3)) 000100 DOMAIN 
3 (NONE ((0) (1 AM NOT SURE I UNDERSTAND YOU FULLY) _ 7 000110 _ 
(PLEASE GO CGN) 000120 
(WHAT DCES THAT SUGGEST TO YOU) 000130 
(00 YCU FEEL STRONGLY ABOUT DISCUSSING SUCH THINGS))) 000140 
(PERHAPS ((0) (YOU DON'T SEEM QUITE CERTAIN) a a | eee a= _000150_ 
(WHY THE UNCERTAIN TONE) 000160 
_— (CAN*T YOU BE MORE POSITIVE) _ ee ee _ 000170 
{YOU AREN'T SURE) (DON*T YOU KNOW))) 000180 
(MAYBE (=PERHAPS) ) 000190 
(AM = ARE ({0 ARE YOU 0) (00 YOU BELIEVE YOU ARE 4) 000210 
____ {WOULD YOU _WANT TO BE 4) (YOU WISH I WOULD TELL YOU YOU ARE 4) 000220 — 
(WHAT WOULD IT MEAN IF YOU WERE 4)) 000230 
zs ((0) (WHY DO YOU SAY AM") (I DON'T UNDERSTAND THAT))) 000240, eee ee 
(ARE = AM ((0 AM I 0) 000250 
(WHY ARE YOU INTERESTED IN WHETHER I AM 4 OR NOT) 000260 
(WOULD YOU PREFER IF I WEREN'T 4) (PERHAPS I AM 4 IN YOUR 000270 
cere FANTASIES) (00 YOU SOMETIMES THINK I AM 4)) £ 000280 Last 
((0 AM 0) (DID YOU THINK THEY MIGHT NOT BE 3) 000290 
(WOULD YOU LIKE IT IF THEY WERE NOT 3) (WHAT IF THEY WERE NOT 3) 000300 - 
: (POSSIBLY THEY ARE 3)) ) 000310 
(YOUR = MY {(0 MY 0) (WHY ARE YOU CONCERNED OVER MY 3) 000320 
(WHAT ABOUT YOUR OWN 3) (ARE YOU WORRIED ABOUT SOMEONE ELSES 3) 000330 
__—_— — _(REALLY»_MY_3))) i eo EA = . 900340 eee nae 
{WAS = WERE) 000350 
AWERELS2WAS YL Ose uy = —- 000360 i a ee 
(ME = YCU) 000370 
(YOU'RE = I'M) 000380 
(T'¥ = YOU'RE) 000390 
io (MYSELF = YOURSELF) ask Se ES a 4s 000400 
(YOURSELF = MYSELF) 000410 
(MOTHER DLIST(/NOUN FAMILY)) aa 000420 
az (FATHER OLIST(/NOUN FAMILY)) 000430 
(SISTER DLIST(/FAMILY)) 000440 
(BRCTHER DLIST(/FAMILY)) 000450 
os (WIFE DLIST(/FAMILY)) _ ss ee «.. al ios 000460 2 : 
(CHILCREN OLIST(/FAMILY)) 000470 
= AL 2 YOULU(G YOUCARE 0: 110) _ 8 SS eee 000480 
(PERHAPS YCU ARE 4 SOMEONE ELSE) 000490 
(ARE YOU 4 ANYONE) (ARE YOU 4 ANYONE IN YOUR FAMILY) 000500 
(PERHAPS YOU WISH I WERE 4 YOU 6)) 000510 
= UO YOU ;ARE-0) 2 ne es 3 000520 _ 
(1S IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME) 000530 
Sa UU OW LONG SHAVE VOUS BEEN A) ea == _— 000540 
(DO YCU BELIEVE IT NORMAL TO BE 4) 000550 
(DC YOU ENJOY BEING 4)) 000560 
({0 YCU CAN'T 0) (HOW DO YOU KNOW YOU CAN'T 4) 000570 
__ (HAVE YOU TRIED) : : = 000580 rata 
(PERHAPS YOU COULD 4 NOW) 000590 
(00 YCU REALLY WANT TO BE ABLE TO 4)) 000600 _ 



























































































































































((0 YOU DON'T 0)(DON'T YOU REALLY 4) {WHY DON'T YOU 4) Bs _____ 000610_ Stretton We Jars an Ge Tae : 
(DO YCU WISH TO BE ABLE TO 4) (DOES THAT TROUBLE YOU)) 000620 
((0 YCU FEEL 0) (TELL ME MORE ABOUT SUCH FEELINGS) 000630 
(DC YCU OFTEN FEEL 4) 000640 
___(DO0_YOU_ENJCY FEELING 4) - > __ 000650 - ee =. 
(OF WHAT COES FEELING 4 REMIND YOU)) 000660 
((0 YOU 0 I 0) (PERHAPS IN YOUR FANTASY WE 3 EACH OTHER) _ 000670 _ a. Me pela: 
(0G YOU WISH TO 3 ME) 000680 
(YOU SEEM TO NEED TO 3 ME) 000690 
(DO YOU 3 ANYONE ELSE)) 000700 PUBLIC . 
Crees ((0) (y¥cU SAY 1) 000710 
(CAN YOU ELABORATE ON THAT) (DO YOU SAY 1 FOR SOME SPECIAL REASON) 000720 DOMAIN , 
: (THAT'S QUITE INTERESTING))) i sir ae 000730 
(you = I ((0 I 0 YOU 0) 000740 
(WHY CO YOU THINK I 3 YOU) 000750 
(DIC YOUR PARENTS 3 YQU)) 000760 
((0 1AM 0) (WHAT MAKES YOU THINK I AM 4) def ______000770 
(DOES IT PLEASE YOU TO BELIEVE I AM 4) 000780 
7 (DO_YOU SOMETIMES WISH YOU WERE 4) 2 __000790 _ 
(PERHAPS YCU WOULD LIKE TO BE 4)) 000800 
((0 I 0) (WE WERE DISCUSSING YOU - NOT ME) 000810 
(OH, I 3) (YOU'RE NOT REALLY TALKING ABOUT ME — ARE YOU) 000820 
(WHAT ARE YOUR FEELINGS NOW))) face Magia L.* ____000830__ 
(YES ((0) (YOU SEEM QUITE POSITIVE) (YOU ARE SURE) 000840 
_. . UESSEE) 0U1_ UNDERSTAND) ) es ae Seen a 000850 | 
(NO ((0) (ARE YOU SAYING *NO* JUST TO BE NEGATIVE) 000860 
(YOU ARE BEING A BIT NEGATIVE) (WHY NOT) (WHY *NO*))) 000870 7 
(MY = YOUR ((0 YOUR O (/FAMILY) 0) 000880 
TELL ME MORE ABOUT YOUR FAMILY) { WHO ELSE IN YOUR FAMILY _ 000890 ; 
5) {YOUR 4) (WHAT ELSE COMES TO MIND WHEN YOU THINK OF 000900 
= YOUR 4)) _ Ea ¥ ge one = ____000910 rppeayen eee 
((0 YOUR 0) (YOUR 3) (WHY DO YOU SAY YOUR 3) (DOES THAT 000920 
SUGGEST ANYTHING ELSE WHICH BELONGS TO YOU) (IS IT 000930 
IMPORTANT TO YOU THAT 2 3))) 000940 
CAN (00 CAN I 0) (YOU BELIEVE I CAN 4 DON'T YOU) 000950 b 
(YCL WANT ME TO BE ABLE TO 4) (PERHAPS YOU WOULD LIKE TO BE 000960 
ee ABLE TO 4 YOURSELF)) ((0 CAN YOU 0) (WHETHER OR NOT YOU CAN 4_ 000970 a oe 
DEPENDS ON YOU MORE THAN ON ME) (DO YOU WANT TO BE ABLE TO 4) 000980 
(PERHAPS YOU DON'T WANT TO 4))) 000990 
(WHAT ((0) (WHY DO YOU ASK) (DOES THAT QUESTION INTEREST YOU) 001000 
2 _(WHAT_IS IT YOU REALLY WANT TO KNOW) s Ss _001010 : = 
(ARE SUCH QUESTIONS MUCH ON YOUR MIND) 001020 
skh te (WHAT ANSWER WOULD PLEASE YOU MOST) ee) ee — 
(WHAT OC YOU THINK) (WHAT COMES TO YOUR MIND WHEN YOU ASK THAT) 001040 
is (HAVE YOU ASKED SUCH QUESTION BEFORE) 001050 
(HAVE YOU ASKED ANYGNE ELSE))) 001060 
Wises (BECAUSE ((0) (IS THAT THE REAL REASON) (DON*T ANY OTHER REASONS - 001070 geeewak © Se 5 
COME TO MIND) (DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE) 001080 
>_________(WHAT OTHER REASONS MIGHT THERE BE))) as _001090 
< (WHY ((0 WHY DON'T I 0) (DO YOU BELIEVE I DON'T 5) (PERHAPS I 001100 
: WILL _5 IN GOOD TIME) (SHOULD YOU 5 YOURSELF) (YOU WANT ME TO 5)) 001110 
(0 WHY CAN*T YOU 0) (D0 YOU THINK YOU SHOULD BE ABLE TO 5) 001120 
@.«__________ {©0 YOU WANT TO BE ABLE TO 5) (00 YOU BELIEVE THIS WILL HELP YOU _ 001130 
TO 5) (HAVE YOU ANY IDEA WHY YOU CAN'T 5)) 001140 
: = eg | eer ee oe ene 2 001150 
« (EVERYONE 2 ((0) (REALLY, EVERYONE) (CAN YOU THINK OF 001160 
‘ ANYONE IN PARTICULAR) (WHO, FOR EXAMPLE) (YOU ARE THINKING OF 001170 
A VERY SPECIAL PERSON) 001180 
e: __ (WHO, MAY TASK) (SOMEONE SPECIAL PERHAPS) at 001190 
(YCL HAVE A PARTICULAR PERSON IN MIND, DON'T YOU) (WHO DO YOU 001200 
2 THINK YOUtRE TALKING ABOUT))) _ —— 001210 


= 

















____CEVERYBODY 2 (= EVERYONE)) fn ; 001220 Bs. ne 
(NOBODY 2 (=EVERYONE)) 001230 
(NCCNE 2 (=EVERYONE)) 001240 _ — 
(ALWAYS 1 ((0) (CAN YOU THINK OF A SPECIFIC EXAMPLE) (WHEN) 001250 
(WHAT INCIDENT ARE YOU THINKING OF) (REALLY, ALWAYS))) oe 001260 SO I es PN nee eg eee 
t) 001270 


PUBLIC 
ae DOMAIN 








= creative 
Lous oe a commons 












http://creativecommons.org/publicdomain/zero/ 1.0 


























& » 


& 











770109 2531 030665 17.88 17.88 56 00.024 








OPUNCH,T0112529495TEST»FAP TOLL2 2949 

=a DPUNCH, T0112,2949,TPROG,»FAP — TOLL 2 29469 

DELETE, TO11292949,TESTy»FAP TO112 2949 

= _ DELETE, T0112,2949,TPROG, FAP TOl12 2949 
7T0112 2949 030665 17.88 17.88 56 00.001 

STAT, T0134, 2533 = TO134 2533 














PUBLIC 
DOMAIN 


creative 
commons