10 PRINT"[147]":
20 (null)4,8,4:(null)0,7,3:(null)1,8,7
30 REM AUGUST   1986
40 REM UMGESCHRIEBEN VON:M. HOLZMANN
50 REM *****************************
60 REM ABGEAENDERT FUER :PLUS/4,C 16
70 PRINT"           [213][195][195][195][195][195][195][195][195][195][195][195][201] "
80 PRINT"           [194] E L I Z A [194]"
90 PRINT"           [202][195][195][195][195][195][195][195][195][195][195][195][203] "
100 PRINT"
110 [153]"
120 PRINT"    ELIZA ANALYSIERT IHRE PROBLEME"
130 PRINT
140 PRINT"           SIE BENOETIGEN:
150 [153]
160 [153]"    1) ENGLISCHKENNTNISSE "
170 [153]
180 [153]"    2) (WENN 1 NICHT VORHANDEN):
190 PRINT"       EIN ENGLISCHWOERTERBUCH"
200 PRINT
210 PRINT"    3) EINIGE PROBLEME       "
220 PRINT"       (FALLS SIE KEINE HABEN
230 [153]"       DRUECKEN SIE 'RESET')
240 PRINT"
250 [153]"    4) SEHR VIEL GEDULD !!!"
260 [153]
270 [153]"    WENN SIE ALLES BEISAMMEN HABEN:
280 PRINT"           TASTE DRUECKEN    "
290 PRINT
300 GET(null) AA$
310 (null)1,1:(null)0,2,6:(null)4,2,3
320 IFTI<LTHEN 320
330 PRINT"[147]"
340 DIM S(42),N(42),R(42),K$(42)
350 N(1) = 3:K$(1) ="CAN YOU":S$(1)= " ARE ":R$(1)=" AM "
360 N(2) = 2:K$(2) ="CAN I":S$(2)=" WERE":R$(2)=  " WAS "
370 N(3) = 4:K$(3) ="YOU ARE":S$(3)= " ME ":R$(3)=    " YOU "
380 N(4) =-4:K$(4) ="YOURE"  :S$(4)="YOUR":R$(4)=" MY "
390 N(5) = 4:K$(5) ="I DONT":S$(5)="IVE":R$(5)="YOUVE"
400 N(6) = 3:K$(6) ="I FEEL":S$(6)=" IM ":R$(6)="YOURE"
410 N(7) = 3:K$(7) ="WHY DONT YOU":S$(7)=" I":R$(7)=" YOU "
420 N(8) = 2:K$(8) ="WHY CANT I"
430 N(9) = 3:K$(9) ="ARE YOU"
440 N(10)= 3:K$(10)="I CANT"
450 N(11)= 4:K$(11)="I AM"
460 N(12)=-4:K$(12)=" IM"
470 N(13)= 3:K$(13)="YOU "
480 N(14)= 5:K$(14)="I WANT"
490 N(15)= 9:K$(15)="WHAT "
500 N(16)=-9:K$(16)="HOW "
510 N(17)=-9:K$(17)="WHO "
520 N(18)=-9:K$(18)="WHERE "
530 N(19)=-9:K$(19)="WHEN "
540 N(20)=-9:K$(20)="WHY "
550 N(21)= 2:K$(21)="NAME"
560 N(22)= 4:K$(22)="CAUSE"
570 N(23)= 4:K$(23)="SORRY"
580 N(24)= 4:K$(24)="DREAM"
590 N(25)= 1:K$(25)="HELLO"
600 N(26)=-1:K$(26)="HI "
610 N(27)= 5:K$(27)="MAYBE"
620 N(28)= 5:K$(28)="NO "
630 N(29)= 2:K$(29)="YOUR"
640 N(30)= 4:K$(30)="ALWAYS"
650 N(31)= 3:K$(31)="THINK"
660 N(32)= 7:K$(32)="LIKE A"
670 N(33)= 3:K$(33)="YES "
680 N(34)= 6:K$(34)="FRIEND"
690 N(35)= 7:K$(35)="COMPUTER"
700 N(36)= 3:K$(36)="ELIZA"
710 N(37)= 3:K$(37)="MONEY"
720 N(38)= 1:K$(38)="I LOVE"
730 N(39)= 1:K$(39)="LOVE "
740 N(40)= 1:K$(40)="EBERHARD"
750 N(41)= 3:K$(41)="I HATE"
760 N(42)= 7:K$(42)="NOKEYFOUND"
770 GOTO 840
780 REM
790 FOR A=1 TO LEN(X$)-LEN(Y$)+1
800 IF MID$(X$,A,LEN(Y$))=Y$ THEN RETURN
810 NEXT A
820 A=0
830 RETURN
840 N1=42:N2=14:N3=120
850 S(1)=1
860 FOR I=2 TO N1 STEP 1
870 S(I)=S(I-1)+ABS(N(I-1))
880 N(I-1)=S(I)-1
890 IF N(I)<0 THEN 920
900 R(I)=S(I)
910 GOTO 930
920 S(I)=S(I-1):R(I)=R(I-1)
930 NEXT I
940 N(N1)=S(N1)+N(N1)-1
950 PRINT"[209]: HI, I AM ELIZA TELL ME YOUR PROBLEM":PRINT
960 Q=0:P=TI+18000
970 M=TI+10
980 IFTI<MTHEN980
990 INPUT"[215]";I$
1000 Q=Q+1
1010 IF Q<>100 OR TI>P THEN 1160
1020 PRINT"[147]"
1030 PRINT""
1040 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"
1050 PRINT" $                                    $"
1060 PRINT" $ YOUR TIME IS UP!BEFORE I TALK WITH $"
1070 PRINT" $                                    $"
1080 PRINT" $ YOU ANY LONGER,YOU HAVE TO PAY THE $"
1090 PRINT" $                                    $"
1100 PRINT" $     BILL OF $ 3999.90 + 21% VAT!   $"
1110 PRINT" $                                    $"
1120 PRINT" $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$":PRINT""
1130 M=TI+300
1140 IFTI<MTHEN1140
1150 GOTO2850
1160 I$=" "+I$+" "
1170 FOR L=1 TO LEN(I$)
1180 IF MID$(I$,L,1)="'" THEN I$=LEFT$(I$,L-1)+RIGHT$(I$,LEN(I$)-L)
1190 NEXT L
1200 IFI$=P$THENUI$="[209]: PLEASE DONT REPEAT YOURSELF":PRINTUI$:PRINT:GOTO970
1210 REM
1220 S=0
1230 FOR K=0 TO N1
1240 IF K=O GOTO 1270
1250 X$=I$:Y$=K$(K):GOSUB 780
1260 IF A<>0 THEN S=K:T=A:F$=K$(K):GOTO 1280
1270 NEXT K
1280 IF S>0 THEN K=S:L=T:GOTO 1320
1290 IF X=7 THEN 1370
1300 K=N1:GOTO 1470
1310 REM
1320 C$=" "+RIGHT$(I$,LEN(I$)-LEN(F$)-L+1)
1330 FOR X=1 TO N2/2
1340 FOR L=1 TO LEN(C$)
1350 IF L+ LEN(S$(X))>LEN(C$) THEN 1390
1360 IF MID$(C$,L,LEN(S$(X)))<>S$(X) THEN 1390
1370 C$=LEFT$(C$,L-1)+R$(X)+RIGHT$(C$,LEN(C$)-L-LEN(S$(X))+1)
1380 L=L+LEN(R$(X))
1390 IFX=7THEN1430
1400 IF L+LEN(R$(X))>LEN(C$) THEN 1430
1410 IF MID$(C$,L,LEN(R$(X)))<>R$(X) THEN 1430
1420 C$=LEFT$(C$,L-1)+S$(X)+RIGHT$(C$,LEN(C$)-L-LEN(R$(X))+1)
1430 NEXT L
1440 NEXT X
1450 IF MID$(C$,2,1)=" " THEN C$=RIGHT$(C$,LEN(C$)-1)
1460 REM ANTWORT
1470 RESTORE
1480 FORI=1TO32:READB:NEXT
1490 PRINT
1500 FOR X=1 TO R(K):READ F$:NEXT X
1510 R(K)=R(K)+1
1520 IF R(K)>N(K) THEN R(K)=S(K)
1530 X$=F$:Y$="*":GOSUB 780
1540 IF A=0 THEN PRINT"[209]: "F$:PRINT:P$=I$:GOTO 970
1550 UI$=LEFT$(F$,A-1)+C$+RIGHT$(F$,LEN(F$)-A)
1560 PRINT"[209]: "UI$:PRINT
1570 GOTO 970
1580 DATA169,0,133,160,169,128,133,161,133,161,160,0,177,160,73,128,145,160,200
1590 DATA192,0,208,245,230,161,169,132,197,161,208,237,96
1600 REM ANTWORTEN
1610 DATA "DON'T YOU BELIEVE THAT I CAN*"
1620 DATA "PERHAPS YOU WOULD LIKE TO BE ABLE TO*"
1630 DATA "YOU WANT ME TO BE ABLE TO*"
1640 DATA "PERHAPS YOU DON'T WANT TO*"
1650 DATA "DO YOU WANT TO BE ABLE TO*"
1660 DATA "WHAT MAKES YOU THINK I AM*"
1670 DATA "DOES IT PLEASE YOU TO BELIEVE I AM*"
1680 DATA "PERHAPS YOU WOULD LIKE TO BE*"
1690 DATA "DO YOU SOMETIMES WISH YOU WERE*"
1700 DATA "DON'T YOU REALLY*"
1710 DATA "WHY DON'T YOU*"
1720 DATA "DO YOU WISH TO BE ABLE TO*"
1730 DATA "DOES THAT TROUBLE YOU?"
1740 DATA "TELL ME MORE ABOUT SUCH FEELINGS.
1750 [131] "DO YOU OFTEN FEEL*"
1760 [131] "DO YOU ENJOY FEELING*"
1770 [131] "DO YOU REALLY BELIEVE I DON'T *"
1780 [131] "PERHAPS IN GOOD TIME I WILL*"
1790 [131] "DO YOU WANT ME TO*"
1800 [131] "DO YOU THINK YOU SHOULD BE ABLE TO*"
1810 [131] "WHY CAN'T YOU*"
1820 [131] "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*"
1830 [131] "WOULD YOU PREFER IF I WERE NOT*"
1840 [131] "PERHAPS IN YOUR PHANTASIES I AM*"
1850 [131] "HOW DO YOU KNOW YOU CAN'T*"
1860 [131] "HAVE YOU TRIED?"
1870 [131] "PERHAPS YOU CAN NOW*"
1880 [131] "DID YOU COME TO ME BECAUSE YOU ARE*"
1890 [131] "HOW LONG HAVE YOU BEEN*"
1900 [131] "DO YOU BELIEVE IT IS NORMAL TO BE*"
1910 [131] "DO YOU ENJOY BEING*"
1920 [131] "WE WERE DISCUSSING YOU - NOT ME!"
1930 [131] "OH, I*"
1940 [131] "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"
1950 [131] "WHAT WOULD IT MEAN TO YOU IF YOU GOT*"
1960 [131] "WHY DO YOU WANT*"
1970 [131] "SUPPOSE YOU SOON GOT*"
1980 [131] "WHAT IF YOU NEVER GOT*"
1990 [131] "I SOMETIMES ALSO WANT*"
2000 [131] "WHY DO YOU ASK?"
2010 [131] "DOES THAT QUESTION INTEREST YOU?"
2020 [131] "WHAT ANSWER WOULD PLEASE YOU THE MOST?"
2030 [131] "WHAT DO YOU THINK?"
2040 [131] "ARE SUCH QUESTIONS IN YOUR MIND OFTEN?"
2050 [131] "WHAT IS THAT YOU REALLY WANT TO KNOW?"
2060 [131] "HAVE YOU ASKED ANYONE ELSE?"
2070 [131] "HAVE YOU ASKED SUCH QUESTIONS BEFORE?"
2080 [131] "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
2090 [131] "NAMES DON'T INTEREST ME."
2100 [131] "I DON'T CARE ABOUT NAMES - PLEASE GO ON."
2110 [131] "IS THAT THE REAL REASON?"
2120 [131] "DON'T ANY OTHER REASONS COME TO MIND?"
2130 [131] "DOES THAT REASON EXPLAIN ANYTHING ELSE?"
2140 [131] "WHAT OTHER REASONS MIGHT THERE BE?"
2150 [131] "PLEASE DON'T APOLOGIZE!"
2160 [131] "APOLOGIES ARE NOT NECESSARY."
2170 [131] "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?"
2180 [131] "DON'T BE SO DEFENSIVE!"
2190 [131] "WHAT DOES THAT DREAM SUGGEST TO YOU?"
2200 [131] "DO YOU DREAM OFTEN?"
2210 [131] "WHAT PERSONS APPEAR IN YOUR DREAMS?"
2220 [131] "ARE YOU DISTURBED BY YOUR DREAMS?"
2230 [131] "HOW DO YOU DO ... PLEASE STATE YOUR PROBLEM."
2240 [131] "YOU DON'T SEEM QUITE CERTAIN."
2250 [131] "WHY THE UNCERTAIN TONE?"
2260 [131] "CAN'T YOU BE MORE POSITIVE?"
2270 [131] "YOU AREN'T SURE?"
2280 [131] "DON'T YOU KNOW?"
2290 [131] "WHY NO*"
2300 [131] "DON'T SAY NO IT'S ALWAYS SO NEGATIVE."
2310 [131] "WHY NOT?"
2320 [131] "ARE YOU SURE?"
2330 [131] "WHY NO?"
2340 [131] "WHY ARE YOU CONCERNED ABOUT MY*"
2350 [131] "WHAT ABOUT YOUR OWN*"
2360 [131] "CAN'T YOU THINK OF A SPECIFIC EXAMPLE?"
2370 [131] "WHEN?"
2380 [131] "WHAT ARE YOU THINKING OF?"
2390 [131] "REALLY ALWAYS?"
2400 [131] "DO YOU REALLY THINK SO?"
2410 [131] "BUT YOU ARE NOT SURE YOU*"
2420 [131] "DO YOU DOUBT YOU*"
2430 [131] "IN WHAT WAY?"
2440 [131] "WHAT RESAMBLENCE DO YOU SEE?"
2450 [131] "WHAT DOES THE SIMILARITY SUGGEST TO YOU?"
2460 [131] "WHAT OTHER CONNECTIONS DO YOU SEE?"
2470 [131] "COULD THERE REALLY BE SOME CONNECTIONS?"
2480 [131] "HOW?"
2490 [131] "I UNDERSTAND!"
2500 [131] "ARE YOU SURE?"
2510 [131] "YOU SEEM QUITE POSITIVE."
2520 [131] "I SEE."
2530 [131] "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?"
2540 [131] "DO YOUR FRIENDS WORRY YOU?"
2550 [131] "DO YOUR FRIENDS PICK ON YOU?"
2560 [131] "ARE YOU SURE YOU HAVE ANY FRIENDS?"
2570 [131] "DO YOU IMPOSE ON YOUR FRIENDS?"
2580 [131] "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU."
2590 [131] "DO COMPUTERS WORRY YOU?"
2600 [131] "ARE YOU TALKING ABOUT ME IN PARTICULARY?"
2610 [131] "ARE YOU FRIGHTENED BY MACHINES?"
2620 [131] "WHY DO YOU MENTION COMPUTERS?"
2630 [131] "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?"
2640 [131] "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?"
2650 [131] "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"
2660 [131] "I THINK WE WANT TO TALK ABOUT YOU NOT ABOUT ME!"
2670 [131] "WHAT'S ABOUT ME?"
2680 [131] "WHY DO YOU ALWAYS BRING UP MY NAME?"
2690 [131] "WHY DO YOU HAVE PROBLEMS WITH MONEY?"
2700 [131] "DO YOU THINK MONEY IS EVERY THING?"
2710 [131]"I SAY: MONEY IS NOTHING!"
2720 [131] "MAN!! LOVE IS ONLY FOR IDIOTS! WHY DO YOU LOVE*?"
2730 [131] "WHOM DO YOU LOVE?"
2740 [131] "IF YOU WANT TO SPEAK ABOUT CRAZY GERMAN-TEACHERS, NOT WITH ME!!!"
2750 [131] "YOU SEEM TO BE QUITE AGRESSIVE! AREN'T YOU?"
2760 [131] "WHY DO YOU HATE*?"
2770 [131] " YOU ARE RIGHT! I AGREE WITH YOU!"
2780 [131] "DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?"
2790 [131] "OH! INDEED?"
2800 [131] "I SEE."
2810 [131] "I'M NOT SURE I UNDERSTAND YOU FULLY."
2820 [131] "COME, COME ELUCIDATE YOUR THOUGHTS."
2830 [131] "CAN YOU ELABORATE THAT?"
2840 [131] "THAT IS QUITE INTERESTING!"
2850 Q[178]0
2860 [153]"LOAD"
2870 [153]"****************************************"
2880 [153]""
2890 [153]"                    "
2900 [153]"               "
2910 [153]"                    "
2920 [153]"               "
2930 [153]"                  "
2940 [153]"                              "
2950 [153]"                        "
2960 [153]"                        "
2970 [153]"                    "
2980 [153]"               "
2990 [153]"                   "
3000 [153]"               "
3010 [153]"                    "
3020 [153]""
3030 [153]"****************************************"
3040 Q[178]Q[170]1:[139] Q[178]10[167]3080
3050 M[178]TI[170]40
3060 [139]TI[179]M[167]3060
3070 [137]3040
3080 [153]"LOAD"
3090 [128]