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 (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 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 T'O FAIL 002090 W'R F_.NEs 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 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 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£. 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. 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 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)