]LIST
1 REM ****************
2 REM * F R E U D *
3 REM * *
4 REM * AUTHOR *
5 REM * UNKNOWN *
6 REM * *
7 REM ****************
8 REM
9 REM
10 TEXT : HOME : GR
20 COLOR = 1: HLIN 3,7 AT 17: VLIN 18,23 AT 3: HLIN 4,5 AT 20: HLIN 10,14 AT 17: VLIN 18,23 AT 10: HLIN 11,14 AT 20: VLIN 18,19 AT 14: PLOT 12,21: PLOT 13,22: PLOT 14,23
30 HLIN 17,21 AT 17: VLIN 18,23 AT 17: HLIN 18,19 AT 20: HLIN 18,21 AT 23: VLIN 17,23 AT 24: HLIN 25,27 AT 23: VLIN 17,23 AT 28
40 VLIN 17,23 AT 31: HLIN 32,34 AT 17: VLIN 18,22 AT 35: HLIN 32,34 AT 23
50 PRINT CHR$(7) + CHR$(7) + CHR$(7)
60 DIM S%(36),R%(36),N%(36)
70 N1% = 36:N2% = 14:N3% = 112
80 FOR X = 1 TO N1% + N2% + N3%: READ Z$: NEXT X
90 FOR X = 1 TO N1%
100 READ S%(X),L:R%(X) = S%(X):N%(X) = S%(X) + L - 1: NEXT X
110 GR: COLOR = 11: VLIN 15,18 AT 6: VLIN 9,24 AT 7: VLIN 8,25 AT 8: VLIN 7,26 AT 9: VLIN 6,26 AT 10: VLIN 5,25 AT 11: VLIN 4,24 AT 12: VLIN 4,23 AT 13: VLIN 4,22 AT 14
120 VLIN 4,22 AT 15: VLIN 4,22 AT 16: VLIN 4,22 AT 17: VLIN 4,22 AT 18: VLIN 4,22 AT 19: VLIN 4,22 AT 20: VLIN 4,22 AT 21: VLIN 4,23 AT 22: VLIN 4,24 AT 23
130 VLIN 5,25 AT 24: VLIN 6,26 AT 25: VLIN 7,26 AT 26: VLIN 8,25 AT 27: VLIN 9,24 AT 28: VLIN 15,18 AT 29
140 COLOR = 15: HLIN 10,15 AT 14: HLIN 20,25 AT 14: HLIN 14,21 AT 23: HLIN 13,22 AT 24: HLIN 12,23 AT 25: HLIN 11,24 AT 26: HLIN 10,25 AT 27
150 HLIN 10,25 AT 28: HLIN 11,24 AT 29: HLIN 11,24 AT 30: HLIN 12,23 AT 31: HLIN 12,23 AT 32: HLIN 12,23 AT 33: HLIN 13,22 AT 34: HLIN 14,21 AT 35
160 COLOR = 7: HLIN 11,14 AT 16: HLIN 21,24 AT 16: HLIN 11,14 AT 17: HLIN 21,24 AT 17: HLIN 12,13 AT 18: HLIN 22,23 AT 18
170 COLOR = 0: HLIN 16,19 AT 20: HLIN 17,18 AT 21: COLOR = 1: HLIN 14,21 AT 26: HLIN 14,21 AT 27
180 COLOR = 0: HLIN 12,13 AT 18: HLIN 22,23 AT 18
190 PRINT "HI! I'M FREUD. WHAT'S YOUR PROBLEM?": PRINT
200 COLOR = 0: HLIN 12,13 AT 18: HLIN 22,23 AT 18: PRINT CHR$(7): INPUT "-->";I$
205 IF I$ = "BYE" OR I$ = "QUIT" OR I$ = "DONE" THEN 1840
210 I$ = " " + I$ + " ": PRINT : PRINT
220 FOR L = 2 TO LEN(I$)
230 IF MID$ (I$,L,1) = "'" THEN I$ = LEFT$(I$,L - 1) + RIGHT$ (I$, LEN(I$) - L): GOTO 230
240 NEXT L
250 IF I$ = P$ THEN PRINT "PLEASE DON'T REPEAT YOURSELF!": GOTO 200
260 RESTORE : COLOR = 15: HLIN 12,13 AT 18: HLIN 22,23 AT 18
270 S% = 0
280 FOR K = 1 TO N1%
290 READ K$
300 IF S% > 0 THEN 340
310 FOR L = 1 TO LEN(I$) - LEN(K$) + 1
320 IF MID$ (I$,L, LEN(K$)) = K$ THEN S% = K :T = L:F$ = K$
330 NEXT L: COLOR = 11: HLIN 10,15 AT 14: HLIN 20,25 AT 14: COLOR = 15: HLIN 10,15 AT 12: HLIN 21,25 AT 12
340 COLOR = 11: HLIN 10,15 AT 12: HLIN 21,25 AT 12: COLOR = 15: HLIN 10,15 AT 14: HLIN 20,25 AT 14: NEXT K
350 IF S% > 0 THEN K = S%:L = T: GOTO 370
360 K = 36: GOTO 540
370 RESTORE : FOR X = 1 TO N1%: READ Z$: NEXT X: COLOR = 0: HLIN 12,13 AT 18: HLIN 22,23 AT 18
380 C$ = " " + RIGHT$ (I$, LEN(I$) - LEN(F$) - L + 1)
390 FOR X = 1 TO N2% / 2
400 READ S$,R$
410 FOR L = 2 TO LEN(C$) + 1
420 IF L + LEN(S$) > LEN(C$) THEN 470
430 IF MID$ (C$,L, LEN(S$)) < > S$ THEN 470
440 C$ = LEFT$(C$,L - 1) + R$ + RIGHT$ (C$, LEN(C$) - L - LEN(S$) + 1)
450 L = L + LEN(R$)
460 GOTO 510
470 IF L + LEN(R$) > LEN(C$) THEN 510
480 IF MID$ (C$,L, LEN(R$)) < > R$ THEN 510
490 C$ = LEFT$(C$,L - 1) + S$ + RIGHT$ (C$, LEN(C$) - L - LEN(R$) + 1)
500 L = L + LEN(S$)
510 NEXT L
520 NEXT X
530 IF MID$ (C$,2,1) = " " THEN C$ = RIGHT$ (C$, LEN(C$) - 1)
540 RESTORE : FOR X = 1 TO N1% + N2%: READ Z$: NEXT X: COLOR = 15: HLIN 12,13 AT 18: HLIN 22,23 AT 18
550 FOR X = 1 TO R%(K): READ F$: NEXT X
560 R%(K) = R%(K) + 1: IF R%(K) > N%(K) THEN R%(K) = S%(K)
570 IF RIGHT$ (F$,1) < > "*" THEN PRINT F$

$ = I$: GOTO 200
580 PRINT LEFT$ (F$, LEN(F$) - 1);C$
590 P$ = I$: GOTO 200
600 DATA "CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL"
610 DATA "WHY DONT YOU","WHY CANT I","ARE YOU","I CANT","I AM","IM "
620 DATA "YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY"
630 DATA "NAME","CAUSE","SORRY","DREAM","HELLO","HI ","MAYBE"
640 DATA " NO","YOUR ","ALWAYS","THINK","ALIKE","YES","FRIEND"
650 DATA "COMPUTER","BYE"
660 DATA " ARE "," AM ","WERE ","WAS "," YOU "," I ","YOUR ","MY "
670 DATA " IVE "," YOUVE "," IM "," YOURE "," ME ", " HUMANS "
680 DATA "DON'T YOU BELIEVE THAT I CAN*"
690 DATA "PERHAPS YOU'D LIKE TO BE ABLE TO*"
700 DATA "YOU WANT ME TO BE ABLE TO*"
710 DATA "PERHAPS YOU DON'T WANT TO*"
720 DATA "DO YOU WANT TO BE ABLE TO*"
730 DATA "WHAT MAKES YOU THINK I AM*"
740 DATA "DOES IT PLEASE YOU TO BELIEVE I AM*"
750 DATA "PERHAPS YOU WOULD LIKE TO BE*"
760 DATA "DO YOU SOMETIMES WISH YOU WERE*"
770 DATA "DON'T YOU REALLY*"
780 DATA "WHY DON'T YOU*"
790 DATA "DO YOU WISH TO BE ABLE TO*"
800 DATA "DOES THAT TROUBLE YOU?"
810 DATA "TELL ME MORE ABOUT SUCH FEELINGS."
820 DATA "DO YOU OFTEN FEEL*"
830 DATA "DO YOU ENJOY FEELING*"
840 DATA "DO YOU REALLY BELIEVE I DON'T*"
850 DATA "PERHAPS IN GOOD TIME I WILL*"
860 DATA "DO YOU WANT ME TO*"
870 DATA "DO YOU THINK YOU SHOULD BE ABLE TO*"
880 DATA "WHY CAN'T YOU*"
890 DATA "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*"
900 DATA "WOULD YOU PREFER IF I WERE NOT*"
910 DATA "PERHAPS IN YOUR FANTASIES I AM*"
920 DATA "HOW DO YOU KNOW YOU CAN'T*"
930 DATA "HAVE YOU TRIED?"
940 DATA "PERHAPS YOU CAN NOW*"
950 DATA "DID YOU COME TO ME BECAUSE YOU ARE*"
960 DATA "HOW LONG HAVE YOU BEEN*"
970 DATA "DO YOU BELIEVE IT IS NORMAL TO BE*"
980 DATA "DO YOU ENJOY BEING*"
990 DATA "WE WERE DISCUSSING YOU--NOT ME."
1000 DATA "OH,I*"
1010 DATA "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"
1020 DATA "WHAT WOULD IT MEAN TO YOU IF YOU GOT*"
1030 DATA "WHY DO YOU WANT*"
1040 DATA "SUPPOSE YOU SOON GOT*"
1050 DATA "WHAT IF YOU NEVER GOT*"
1060 DATA "I SOMETIMES ALSO WANT*"
1070 DATA "WHY DO YOU ASK?"
1080 DATA "DOES THAT QUESTION INTEREST YOU?"
1090 DATA "WHAT ANSWER WOULD PLEASE YOU THE MOST?"
1100 DATA "WHAT DO YOU THINK?"
1110 DATA "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?"
1120 DATA "WHAT IS IT THAT YOU REALLY WANT TO KNOW?"
1130 DATA "HAVE YOU ASKED ANYONE ELSE?"
1140 DATA "HAVE YOU ASKED SUCH QUESTIONS BEFORE?"
1150 DATA "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
1160 DATA "NAMES DON'T INTEREST ME."
1170 DATA "I DON'T CARE ABOUT NAMES--PLEASE GO ON."
1180 DATA "IS THAT THE REAL REASON?"
1190 DATA "DON'T ANY OTHER REASONS COME TO MIND?"
1200 DATA "DOES THAT REASON EXPLAIN ANYTHING ELSE?"
1210 DATA "WHAT OTHER REASONS MIGHT THERE BE?"
1220 DATA "PLEASE DON'T APOLOGIZE."
1230 DATA "APOLOGIES ARE NOT NECESSARY."
1240 DATA "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?"
1250 DATA "DON'T BE SO DEFENSIVE!"
1260 DATA "WHAT DOES THAT DREAM SUGGEST TO YOU?"
1270 DATA "DO YOU DREAM OFTEN?"
1280 DATA "WHAT PERSONS APPEAR IN YOUR DREAMS?"
1290 DATA "ARE YOU DISTURBED BY YOUR DREAMS?"
1300 DATA "HELLO...PLEASE STATE YOUR PROBLEM."
1310 DATA "YOU DON'T SEEM QUITE CERTAIN."
1320 DATA "WHY THE UNCERTAIN TONE?"
1330 DATA "CAN'T YOU BE MORE POSITIVE?"
1340 DATA "YOU AREN'T SURE?"
1350 DATA "DON'T YOU KNOW?"
1360 DATA "ARE YOU SAYING NO JUST TO BE NEGATIVE?"
1370 DATA "YOU ARE BEING A BIT NEGATIVE."
1380 DATA "WHY NOT?"
1390 DATA "ARE YOU SURE?"
1400 DATA "WHY NO?"
1410 DATA "WHY ARE YOU CONCERNED ABOUT MY*"
1420 DATA "WHAT ABOUT YOUR OWN*"
1430 DATA "CAN YOU THINK OF A SPECIFIC EXAMPLE?"
1440 DATA "WHEN?"
1450 DATA "WHAT ARE YOU THINKING OF?"
1460 DATA "REALLY, ALWAYS?"
1470 DATA "DO YOU REALLY THINK SO?"
1480 DATA "BUT YOU ARE NOT SURE YOU*"
1490 DATA "DO YOU DOUBT YOU*"
1500 DATA "IN WHAT WAY?"
1510 DATA "WHAT RESEMBLANCE DO YOU SEE?"
1520 DATA "WHAT DOES THE SIMILARITY SUGGEST TO YOU?"
1530 DATA "WHAT OTHER CONNECTIONS DO YOU SEE?"
1540 DATA "COULD THERE REALLY BE SOME CONNECTION?"
1550 DATA "HOW?"
1560 DATA "YOU SEEM QUITE POSITIVE."
1570 DATA "ARE YOU SURE?"
1580 DATA "I SEE. PLEASE GO ON."
1590 DATA "I UNDERSTAND. PLEASE CONTINUE."
1600 DATA "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?"
1610 DATA "DO YOUR FRIENDS WORRY YOU?"
1620 DATA "DO YOUR FRIENDS PICK ON YOU?"
1630 DATA "ARE YOU SURE YOU HAVE ANY FRIENDS?"
1640 DATA "DO YOU IMPOSE ON YOUR FRIENDS?"
1650 DATA "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU."
1660 DATA "DO COMPUTERS WORRY YOU?"
1670 DATA "ARE YOU TALKING ABOUT ME IN PARTICULAR?"
1680 DATA "ARE YOU FRIGHTENED BY MACHINES?"
1690 DATA "WHY DO YOU MENTION COMPUTERS?"
1700 DATA "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?"
1710 DATA "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?"
1720 DATA "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"
1730 DATA "DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?"
1740 DATA "WHAT DOES THAT SUGGEST TO YOU?"
1750 DATA "I SEE."
1760 DATA "I'M NOT SURE I UNDERSTAND YOU FULLY."
1770 DATA "COME COME ELUCIDATE YOUR THOUGHTS."
1780 DATA "CAN YOU ELABORATE ON THAT?"
1790 DATA "THAT IS QUITE INTERESTING."
1800 DATA 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3
1810 DATA 28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9
1820 DATA 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4
1830 DATA 80,3,83,7,90,3,93,6,99,7,106,6
1840 PRINT "PLEASE LEAVE MY FEE ON THE KEYBOARD.": FOR X = 1 TO 3000: NEXT X: INPUT "DID YOU LEAVE THE MONEY?";I$: IF LEFT$ (I$,1) = "N" THEN 1870
1850 IF LEFT$ (I$,1) < > "Y" THEN HOME : GOTO 1840
1860 PRINT "YOU ARE HAVING DELUSIONS, YOU NEED ANOTHER SESSION!": FOR X = 1 TO 3000: NEXT: CLEAR: RESTORE: GOTO 10
1870 PRINT "THAT'S A VERY SANE ANSWER. YOU'RE CURED. GOODBYE."
1880 FOR X = 1 TO 1000: NEXT: PRINT CHR$(4)"RUN MENU"