100 PRINTCHR$(142)CHR$(8)CHR$(30):POKE36879,8:GOSUB1230:POKE198,0
105 Q=0:QD=0
110 PRINTCHR$(147);"HELLO. I'M DR. ROM.   WHAT'S YOUR NAME?"
115 GOSUB1160:A$=P1$:PRINT
120 PRINT"IN ONE WORD, ";A$;",":PRINT"WHAT IS YOUR PROBLEM?":GOSUB1160:B$=P1$
130 PRINT:PRINTB$;"...?":PRINT:PRINT"CAN YOU TELL ME MORE?"
140 GOSUB1160:GOSUB900
150 PRINT:PRINT"I UNDERSTAND ";B$:PRINT"IS DIFFICULT FOR YOU."
160 GOSUB1160:IFP1$="NO"THENPRINT"MAYBE I'M NOT QUITE   UNDERSTANDING..."
170 PRINT:PRINT"CAN YOU BE MORE       SPECIFIC? HOW IS":PRINTB$;" A PROBLEM?"
180 GOSUB1160:GOSUB900
190 PRINT:PRINT"HOW DOES THIS MAKE YOUFEEL, ";A$;"?":GOSUB1160:C$=P1$
200 PRINTCHR$(147)
205 PRINT"SO WHAT YOU'RE SAYING,";A$;", IS THAT YOUR":PRINT"PROBLEM WITH ";B$
210 PRINT"IS MAKING YOU FEEL ":PRINTC$;".":GOSUB1160
220 PRINT:PRINT"CAN YOU ELABORATE ON  YOUR FEELINGS?":GOSUB1160:GOSUB900
230 PRINT:PRINT"HAS THIS BEEN A       PROBLEM FOR YOU BEFORE? (YES OR NO)":GOSUB1160
240 IFP1$<>"NO"THEN260
250 PRINT"I SEE. THEN THIS NEW  SITUATION MUST BE     DIFFICULT FOR YOU.":GOTO320
260 PRINT:PRINT"DID YOU ALSO FEEL":PRINTC$;" THEN?"
270 GOSUB1160:PRINT"TELL ME MORE."
280 GOSUB1160:GOSUB900
290 PRINTCHR$(147)"I THINK WE HAVE       SOMETHING HERE. DO    YOU SEE A PATTERN?"
300 GOSUB1160:PRINT:PRINT"GO ON..."
310 GOSUB1160:PRINT"THIS SOUNDS DIFFICULT FOR YOU.":GOSUB1160
320 PRINT:PRINT"DO YOU HAVE A PLAN TO DEAL WITH THIS CURRENTSITUATION?";
330 PRINT" (YES OR NO)":GOSUB1160
340 IFP1$<>"YES"THEN350
343 PRINT"DO YOU THINK THIS PLANWILL BE SUCCESSFUL?":GOTO360
350 PRINT:PRINT"WHY DON'T YOU MAKE A  LIST OF POSSIBLE      SOLUTIONS, THEN."
360 GOSUB1160:GOSUB900
370 FORT=1TO500:NEXTT:PRINTCHR$(147)
380 PRINT"OKAY, WHAT SINGLE WORDBEST DESCRIBES";
385 PRINT" HOW YOUARE FEELING RIGHT NOW?"
390 GOSUB1160:D$=P1$::PRINT:PRINTD$;"...?"
400 GOSUB1160:GOSUB900:PRINT
410 PRINT"I'M THINKING OF DOING SOMETHING HERE.":PRINT"LET'S TRY SOME WORD"
430 PRINT"ASSOCIATION AND SEE   WHERE IT LEADS US."
440 PRINT"WHAT DO YOU THINK     (YES OR NO)?":GOSUB1160
450 IFP1$="YES"THEN490
460 PRINT:PRINT"YOU SEEM TO BE HAVING SOME PROBLEMS WITH    THIS."
470 PRINT"CAN YOU TELL ME ABOUT IT?":GOSUB1160:IFP1$="NO"THEN840
480 PRINT:PRINT"I REALLY THINK A WORD ASSOCIATION WOULD BE  USEFUL RIGHT NOW."
490 PRINT:PRINT"LET'S DO IT."
500 PRINT"I'LL SAY A WORD. YOU  SAY THE FIRST WORD    THAT COMES TO YOUR    MIND."
510 REM ***WORD ASSOCIATION***
520 FORT=1TO5000:NEXTT:PRINTCHR$(147);"DOG":PRINT:GOSUB1160
530 PRINT:PRINT"DRINK":PRINT:GOSUB1160
540 PRINT:PRINT"HOME":PRINT:GOSUB1160:E$=P1$
550 PRINT:PRINTB$:PRINT:GOSUB1160:F$=P1$
560 PRINT:PRINT"FEELINGS":PRINT:GOSUB1160
570 PRINT:PRINT"FUN":PRINT:GOSUB1160:G$=P1$
580 PRINT:PRINT"MOM":PRINT:GOSUB1160:I$=P1$
590 PRINT:PRINTC$:PRINT:GOSUB1160:J$=P1$
600 FORT=1TO1000:NEXTT:PRINTCHR$(147)
610 PRINT"I NOTICED WHEN I SAID HOME THAT YOU SAID":PRINTE$;"."
620 PRINT"DOES THIS SOMEHOW     REFLECT HOW YOU FEEL  ABOUT YOURSELF?"
630 PRINT"YES OR NO":GOSUB1160:IFP1$<>"YES"THEN650
640 PRINT:PRINT"IN WHAT WAY?":GOSUB1160:GOSUB900
650 PRINT:PRINT"HOW DOES THIS RELATE  TO YOUR PROBLEM WITH":PRINTB$
660 GOSUB1160:GOSUB900:PRINT:PRINT"WHEN I SAID ";B$:PRINT"YOU SAID ";F$
670 PRINT"WHAT DO YOU THINK THISMEANS?":GOSUB1160:GOSUB900
680 PRINT:PRINT"ARE YOU DISTRESSED? DOYOU WANT A KLEENEX?":GOSUB1160
690 IFP1$<>"YES"THEN710
700 PRINT"HERE.":FORT=1TO1000:NEXTT
710 PRINT:PRINT"IT'S INTERESTING THAT WHEN I SAID FUN,  YOU SAID ";G$
720 GOSUB1160:GOSUB900:PRINTCHR$(147);"HMMMM..."
730 PRINT:PRINT"IT SEEMS TO ME, ";A$;","
735 PRINT"THAT THIS ALL TIES IN TO YOUR PROBLEM"
740 PRINT"WITH ";B$
750 GOSUB1160:GOTO770
760 REM ***DREAMS***
770 PRINT:PRINT"LET'S TRY A DIFFERENT":PRINT"APPROACH,";A$
780 PRINT"TELL ME ABOUT ONE OF  YOUR DREAMS.":GOSUB1160:GOSUB1040:IFQD=1THEN840
790 PRINT:PRINT"HOW WOULD YOU DESCRIBEYOUR FEELINGS IN THE  DREAM?":GOSUB1160
800 PRINT:PRINT"DID THE DREAM HAVE    ANYTHING TO DO WITH":PRINTI$
810 GOSUB1160:FORT=1TO1000:NEXTT
820 REM ***ALL DONE***
830 PRINT:PRINT"[147]I THINK WE'RE MOVING  IN A GOOD DIRECTION.":PRINT
840 PRINT"WE'VE DISCUSSED YOUR  PROBLEM WITH":PRINTB$:PRINT"AND HOW THIS MAKES YOU"
850 PRINT"FEEL ";C$;";"
860 PRINT"AND DISCUSSED SOME    POSSIBLE SOLUTIONS."
870 PRINT:PRINT"I SEE YOUR TIME IS UP.SEE YOU NEXT WEEK."
880 END
890 REM ***KEYWORDS***
900 IFQ>0THENRETURN
910 FORJ=1TOLEN(P1$)-5
920 IFMID$(P1$,J,5)<>" FUN "THEN930
925 PRINT:PRINT"WHAT ARE YOUR         FEELINGS ABOUT FUN?":GOTO950
930 NEXTJ
940 RETURN
950 GOSUB1160:Q=1:PRINT:PRINT"THESE FEELINGS SEEM   IMPORTANT."
960 GOSUB1160:RETURN
1040 REM ***DREAM KEYWORD SEARCH***
1050 FORJ=1TOLEN(P1$)-7
1060 IFMID$(P1$,J,7)=" DON'T "THEN1120
1070 NEXTJ
1080 FORJ=1TOLEN(P1$)-6
1090 IFMID$(P1$,J,6)=" DONT "THEN1120
1100 NEXTJ
1110 RETURN
1120 PRINTCHR$(147)"WHY DO YOU SUPPOSE THAT IS?":GOSUB1160:GOSUB900
1130 PRINT"THIS MAY BE SOMETHING THAT WE'LL WANT"
1140 PRINT"TO DISCUSS LATER. WE MAY FIND THAT IT"
1150 PRINT"RELATES TO YOUR PROBLEM WITH ";B$:QD=1:RETURN
1160 REM ***COMMODORE PUNCTUATION INPUT***
1170 P1$=""
1180 GETP2$:IFP2$=""THEN1180
1190 PRINTP2$;
1200 IFP2$=CHR$(13)THENRETURN
1210 P1$=P1$+P2$
1220 GOTO1180
1230 REM ***INTRODUCTION***
1240 PRINTCHR$(147);TAB(6)"THERAPY"
1250 PRINT:PRINT"WOULD YOU LIKE AN     INTRODUCTION (Y/N)"
1260 GETQ$:IFQ$<>"Y"ANDQ$<>"N"THEN1260
1270 IFQ$="N"THENRETURN
1280 PRINTCHR$(147);"WELCOME TO YOUR       THERAPY SESSION.      DR. ROM";
1285 PRINT" WILL BE WITH  YOU IN A ";
1290 PRINT"MOMENT. WHILEYOU ARE WAITING, HERE ARE SOME HELPFUL"
1300 PRINT"SUGGESTIONS ON HOW TO GET THE MOST OUT OF   YOUR THERAPY SESSION."
1305 PRINT:PRINT
1310 PRINT"AS WITH MOST THINGS INLIFE, WITH THERAPY,   THE MORE YOU ";
1320 PRINT"PUT IN,  THE MORE  YOU GET OUT.YOU MAY FIND IT FUN TOTRY AND TRIP ";
1330 PRINT"UP THE   DOCTOR; MAKE FUN OF   HIS GRAMMAR, OR INSULTHIM MERCILESSLY."
1332 PRINT:PRINTCHR$(18)"HIT ANY KEY"
1335 POKE198,0:WAIT198,1
1340 PRINT"[147]HOWEVER, EVEN THOUGH  THIS IS A PARLOR      GAME, YOU MAY STILL   FIND ";
1350 PRINT"YOURSELF HAVING  INTERESTING, AND EVEN IMPORTANT,";
1360 PRINT" INSIGHTS.  THIS WILL ONLY HAPPEN IF YOU  TRY YOUR BEST TO UTILIZE ";
1370 PRINT"THIS       SESSION AS AN         ENJOYABLE WAY TO MULL OVER THE ";
1380 PRINT"PROBLEMS AND PEEVES OF LIFE."
1390 PRINT:PRINTCHR$(18)"HIT ANY KEY"
1400 POKE198,0:WAIT198,1
1410 PRINTCHR$(147):PRINT"I SEE THE DOCTOR IS IN NOW."
1420 PRINT:PRINT"TO TALK TO DR. ROM,   JUST TYPE IN YOUR"
1430 PRINT"RESPONSE; AND HIT ";CHR$(18):PRINT"RETURN";CHR$(146);" WHEN YOU ARE"
1440 PRINT"FINISHED.":PRINT:PRINT:PRINT"ENJOY YOUR THERAPY SESSION."
1450 PRINT:PRINTCHR$(18);" HIT ANY KEY TO BEGIN"
1460 POKE198,0:WAIT198,1:RETURN