|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 26368 (0x6700)
Types: TextFile
Names: »ANALIZA+.BAS«
└─⟦9f1fc2afd⟧ Bits:30005939 Spil: Pacman, Invaders, Kong til RC700
└─ ⟦this⟧ »ANALIZA+.BAS«
REM Ø
********************************************************Ø
* ANALIZA+.BAS VER.1.17 COPYRIGHT 1981 JOHN M.HOLLAND *Ø
* A CBASIC PROGRAM DESIGNED FOR CHAINED EXECUTION *Ø
* WITH THE MAIN BODY OF ANALIZA2.BAS. THIS PROGRAM *Ø
* EVALUATES THE PROFILE VARIABLES THAT WERE GAINED *Ø
* DURING THE MAIN PROGRAM. IT THEN GENERATES AND *Ø
* STORES THE STRINGS WHICH MAY BE USED BY THE *Ø
* MAIN PROGRAM IN SUBSEQUENT EXECUTION. *Ø
********************************************************Ø
COMMON INITIALIZE%,GAB$(1),FILENAME$,CYCLE%,Ø
IRRITABLE%,QUES%,MAX%,B$,FAIL%,EROTIC%,VIOLENT%
10 PRINT:PRINT"I HAVE TO FILE MY NOTES.":PRINT
CREATE FILENAME$ AS 1 REM OPEN PERSONAL FILE
REM SUBSTITUTE FOR *I (I AM) AND *U (YOU ARE)
A$=GAB$(5): GOSUB 15
GOTO 20
15 IF LEN(A$)<3 THEN RETURN
T%=MATCH("*U",A$,1)
IF T%>0 THEN 18
T%=MATCH("*S",A$,1)
IF T%>0 THEN 19
T%=MATCH("*I",A$,1)
T2%=MATCH("*",A$,T%+1)-1
IF T2%<1 THEN T2%=LEN(A$)
IF T%=0 THEN GOTO 17
IAM$=MID$(A$,T%+2,T2%-T%-1)
IF T2%=LEN(A$) THEN A$=MID$(A$,1,T%) Ø
ELSE A$=MID$(A$,1,T%)+MID$(A$,T2%+2,255)
I$="AT OUR LAST *DURING THE LAST *LAST "
GOSUB 1200
G$="*P"+IFRAG$+"SESSION "
I$="YOU SAID *WE DISCUSSED THE FACT THAT *YOU CLAIMED "
GOSUB 1200
G$=G$+IFRAG$+"YOU ARE "+IAM$+"....* LETS TALK ABOUT "+Ø
"IT....*NWHY NOT TALK ABOUT IT?"+Ø
"*YGOOD....I AM LISTENING."
D$="*TBEING "+IAM$+Ø
"IS NOT SO BAD!*BYOU WONT TALK ABOUT IT "+Ø
"*WWHY NOT DISCUSS IT?"
IF LEN(G$)+LEN(D$)<250 THEN G$=G$+D$
D$="*R IT *C BEING "+IAM$
IF LEN(G$)+LEN(D$)<250 THEN G$=G$+D$
PRINT # 1;G$
I$="BEING *THE FACT THAT YOU ARE *YOUR BEING "
GOSUB 1200
G$="*HDOES "+IFRAG$+IAM$
I$="HURT *STRAIN *IMPAIR ":GOSUB 1200
G$=G$+IFRAG$+"YOUR RELATIONSHIP WITH X$?"+Ø
"*YWHY DONT YOU QUIT BEING "+IAM$+"THEN?"
D$="*NGOOD...SOMEBODY HAS TO BE "+IAM$+"!"+Ø
"*BYOU WONT QUIT *WIT SEEMED LOGICAL."
IF LEN(G$)+LEN(D$)<250 THEN G$=G$+D$
PRINT #1;G$
GOTO 15
17 RETURN
18 T2%=MATCH("*",A$,T%+1)-1
IF T2%<1 THEN T2%=LEN(A$)
IF T%=0 THEN GOTO 17
YOURE$=MID$(A$,T%+2,T2%-T%-1)
IF T2%=LEN(A$) THEN A$=MID$(A$,1,T%) Ø
ELSE A$=MID$(A$,1,T%)+MID$(A$,T2%+2,255)
I$="AS I RECALL *LAST TIME *DURING OUR LAST CONVERSATION "
GOSUB 1200
G$="*P"+IFRAG$+"YOU "
I$="SAID *STATED *INFERRED *IMPLIED "
GOSUB 1200
IF UR%>0 THEN IFRAG$="ALSO "+IFRAG$
UR%=UR%+1
G$=G$+IFRAG$+"THAT I AM "+YOURE$+"..."
I$="DO YOU STILL THINK SO?*IS THAT STILL THE "+Ø
"WAY YOU FEEL?*DO YOU THINK THAT WAS FAIR?"
GOSUB 1200
G$=G$+"* "+IFRAG$+"*YWHY "+IFRAG$+"*NEXCELLENT B$ ,"+Ø
"YOU ARE MAKING PROGRESS!"
D$="*BYOU STILL FEEL THAT WAY *WITS IMPORTANT TO ME."+Ø
"*TI HOPE YOU ARE MORE CIVIL THIS TIME."
IF LEN(G$)+LEN(D$)<250 THEN G$=G$+D$
PRINT # 1;G$
I$="THINK *SUPPOSE *IMAGINE *FEEL ":GOSUB 1200
G$="*HDO YOU "+IFRAG$+"X$ "
I$="APPROVE OF YOUR CALLING ME "+Ø
"*FEEL GOOD ABOUT YOUR SAYING I AM ":GOSUB 1200
G$=G$+"WOULD "+IFRAG$+YOURE$+"?"+Ø
"*NI AGREE.*YI DOUBT THAT.*WI JUST WONDERED!"
PRINT # 1;G$
GOTO 15
19 T2%=MATCH("*",A$,T%+1)-1
IF T2%<1 THEN T2%=LEN(A$)
IF T%=0 THEN GOTO 17
SUBJECT$=MID$(A$,T%+2,T2%-T%-1)
IF T2%=LEN(A$) THEN A$=MID$(A$,1,T%) Ø
ELSE A$=MID$(A$,1,T%)+MID$(A$,T2%+2,255)
I$="WE DISCUSSED *YOU SEEMED CONCERNED ABOUT "
IF SUB%>0 THEN Ø
I$="WE ALSO DISCUSSED *I BELIEVE WE WERE ALSO DISCUSSING "
SUB%=SUB%+1
GOSUB 1200
G$="*P"+IFRAG$+"YOUR "+SUBJECT$+"LAST TIME."+Ø
"*YTELL ME MORE ABOUT YOUR "+SUBJECT$+"."+Ø
"*NI FEEL CERTAIN WE DID!*C YOUR "+SUBJECT$+"*R ALL "+Ø
"*WBECAUSE YOUR "+SUBJECT$+"COULD BE IMPORTANT."
I$="WHAT ARE YOUR FEELINGS *HOW LONG HAVE "+Ø
"YOU FELT THIS WAY ":GOSUB 1200
D$="*T"+IFRAG$+"ABOUT YOUR "+SUBJECT$+"?"
IF LEN(G$)+LEN(D$)<250 THEN G$=G$+D$
PRINT # 1;G$
G$="*HHOW DOES X$ FEEL ABOUT YOUR "+SUBJECT$+"."+Ø
"*TDOES IT MATTER TO YOU WHAT X$ THINKS?"+Ø
"*WBECAUSE YOU SEEM OBSESSED ABOUT X$."
PRINT #1;G$
I$="IS YOUR IRRITABILITY RELATED TO DISCUSSING "+Ø
"*WAS YOUR CURRENT HOSTILITY TRIGGERED BY THINKING OF "
GOSUB 1200
G$="*I"+IFRAG$+"YOUR "+SUBJECT$+"?"+Ø
"*YI THOUGHT SO.*WI JUST THOUGHT IT MIGHT BE."+Ø
"*NWHAT IS THE CAUSE OF YOUR HOSTILITY?"+Ø
"*C YOUR HOSTILITY *R IT "
PRINT # 1;G$
GOTO 15
20 GAB$(5)=""
IF LEN(YOURE$)<3 THEN 22
I$="SAID I WAS *IMPLIED THAT I AM "
GOSUB 1200
G$="*P"+B$+IFRAG$+YOURE$+"..."
I$="DO YOU AGREE *IS THAT YOUR OPINION TOO *"+Ø
"WOULD YOU SAY THAT IS FAIR "
GOSUB 1200
G$=G$+"* "+IFRAG$+"?*NI HOPE NOT!"+Ø
"*YWHY DO YOU AGREE?"
IF LEN(GAB$(5))+LEN(G$)<255 THEN GAB$(5)=GAB$(5)+G$
G$="*T"+B$+"IS A TWIT."+Ø
"*BYOU AGREE *C "+B$+"*R PERSON "
IF LEN(GAB$(5))+LEN(G$)<255 THEN GAB$(5)=GAB$(5)+G$
22 IF LEN(IAM$)<3 THEN 24
I$="DID YOU KNOW *WOULD YOU BELIEVE *CAN YOU BELIEVE "
GOSUB 1200
G$="*P"+IFRAG$+B$+"IS "+IAM$+"?*YI WAS SURPRISED!"+Ø
"*NITS TRUE!*R PERSON *C "+B$
IF LEN(GAB$(5))+LEN(G$)<255 THEN GAB$(5)=GAB$(5)+G$
24 IF LEN(SUBJECT$)<3 THEN 26
I$="I AM GLAD I DONT HAVE TO HEAR ANY MORE ABOUT *"+Ø
"I TELL YOU B$ , I WAS SICK OF HEARING ABOUT "
GOSUB 1200
G$="*P"+IFRAG$+MID$(B$,1,LEN(B$)-1)+"'S "+SUBJECT$+"!"+Ø
"*R PERSON *C "+B$
IF LEN(GAB$(5))+LEN(G$)<255 THEN GAB$(5)=GAB$(5)+G$
26 IF CYCLE%=0 THEN CYCLE%=1 REM DONT DIVIDE BY 0
Z%=(500/CYCLE%)*IRRITABLE%
IF Z%<30 THEN 40
GOSUB 1000
GOSUB 1100
G$=G$+"SEEMED "+D$+"IRRITABLE!"+Ø
"*NOH I THINK YOU WERE "+B$+"!*YIT IS QUITE "+Ø
"COMMON. *TJUST DONT GET VIOLENT WITH ME!"+Ø
"*WBECAUSE YOU ACTED IMMATURE LAST TIME."
PRINT # 1;G$
G$="*HDOES X$ FIND YOU HOSTILE?*YI AM NOT SURPRISED."+Ø
"*NI BET X$ DOES!*WBECAUSE I SUSPECT X$ DOES."
PRINT # 1;G$
IF LEN(SUBJECT$)<3 THEN 30
I$="WERE YOU BEING IRRITABLE LAST TIME BECAUSE I ASKED "+Ø
"ABOUT *WAS YOUR HOSTILITY LAST SESSION PROVOKED BY "+Ø
"THINKING OF "
GOSUB 1200
G$="*P"+IFRAG$+"YOUR "+SUBJECT$+"?"+Ø
"*YI GUESSED AS MUCH."+Ø
"*NWHY DO YOU FEEL IT WASNT RELATED?*R IT "+Ø
"*C YOUR HOSTILITY *BYOU FEEL IT WASNT RELATED "+Ø
"*WIT SEEMED LIKELY TO BE THE CASE."
PRINT #1;G$
30 I$="MY LAST PATIENT *THE PATIENT BEFORE YOU "
GOSUB 1200
G$="*P"+IFRAG$+"WAS A REAL "
I$="GROUCH *MEAN S.O.B *IRRITABLE NUT "
GOSUB 1200
G$=G$+IFRAG$+"* I THINK "+B$+Ø
"NEEDS A REAL SHRINK!*C PERSON *R "+B$+"*WBELIEVE ME!"
IF LEN(GAB$(5))+LEN(G$)<255 THEN GAB$(5)=GAB$(5)+G$
40 IF QUES%<3 THEN 60 REM NOT ENOUGH TO USE
Z%=(1000/CYCLE%)*QUES%
GOSUB 1000
GOSUB 1100
G$=G$+"WERE "+D$+"INQUISITIVE."+Ø
"* HAVE YOU ABANDONED SEEKING SIMPLE SOLUTIONS?"+Ø
"*NIT IS FUTILE!*YGOOD...LET ME ASK THE QUESTIONS."+Ø
"*TTHE ANSWERS WILL COME FROM INSIDE YOU!"+Ø
"*WBECAUSE I HAVE DAMN FEW ANSWERS."
PRINT # 1;G$
60 Z%=CYCLE%
GOSUB 1100
G$="*UAS I RECALL, OUR LAST TALK WAS "+D$Ø
+"LONG.*YI THOUGHT SO.*NPERHAPS I AM WRONG ABOUT THAT."+Ø
"*TI ENJOY TALKING WITH YOU "+B$+"."+Ø
"*WI JUST SAID IT TO KEEP YOU TALKING."
PRINT # 1;G$: G$=""
I$="PLAYING WITH A FULL DECK?*FIRING ON ALL PLUGS?*"+Ø
"ALRIGHT IN THE HEAD?"
GOSUB 1200
G$="*P"+B$+"REALLY WAS "+D$+"TALKATIVE!"+Ø
"* DO YOU THINK "+B$+"IS "+IFRAG$+Ø
"*NNEITHER DO I!*YI AM NOT SO SURE!*C "+B$+Ø
"*R PERSON *WBECAUSE I AM CONCERNED ABOUT "+B$+"!"
IF LEN(GAB$(5))+LEN(G$)<255 THEN GAB$(5)=GAB$(5)+G$
65 Z%=(2000*EROTIC%)/CYCLE%
GOSUB 1100
I$="IS YOUR INTEREST IN SEX STILL "+D$+"STRONG?*"+Ø
"YOU WERE "+D$+"CONCERNED ABOUT SEX LAST TIME, "+Ø
"ARE YOU NOW?"
GOSUB 1200
G$="*P"+IFRAG$+"*YTHEN LETS TALK ABOUT IT!"+Ø
"*NHUMMM...REALLY?*WI JUST WONDERED."
I$="SEX IS NOTHING TO BE ASHAMED OF.*"+Ø
"MY INTEREST IN SEX IS PURELY PROFESSIONAL!"
GOSUB 1200
G$=G$+"*T"+IFRAG$+"*C SEX *R IT "
PRINT #1 ;G$
IF Z%<31 THEN 70
I$="DONT FEEL BAD B$ *I AM AFRAID "
GOSUB 1200
G$="*P"+IFRAG$+"MY LAST PATIENT WAS A SEX FIEND!"+Ø
"*C "+B$+"*R PERSON *WI CAN TELL!"
IF LEN(GAB$(5))+LEN(G$)<255 THENØ
GAB$(5)=GAB$(5)+G$
70 Z%=(100*FAIL%)/CYCLE%
IF Z%<31 THEN 75
GOSUB 1100
GOSUB 1000
G$=G$+"WERE "+D$+"DIFFICULT TO UNDERSTAND..."
I$="SMOKING THOSE FUNNY CIGARETTES *TRYING TO "+Ø
"CONFUSE ME *USING CRYPTIC SENTENCES TO IMPRESS ME "
GOSUB 1200
A$=IFRAG$
G$=G$+"* WERE YOU "+IFRAG$+"?*YI SUSPECTED "+Ø
"YOU WERE!*NIT SURE SEEMED LIKE IT!"+Ø
"*TLETS KEEP IT SIMPLE THIS TIME!"+Ø
"*WBECAUSE I COULD NOT UNDERSTAND YOU!"
PRINT # 1;G$
G$="*FYOU ARE NOT MAKING MUCH SENSE TODAY EITHER B$!"+Ø
"*YLOOSEN UP!*NTHIS IS HOPELESS!*WFORGET IT!"
PRINT # 1;G$
G$="*PI FOUND "+B$+D$+"HARD TO UNDERSTAND!* WAS "+B$+Ø
A$+"?*YI THOUGHT SO!*NI AM NOT SO CERTAIN!"+Ø
"*R PERSON *C "+B$
IF LEN(GAB$(5))+LEN(G$)<255 THEN GAB$(5)=GAB$(5)+G$
75 IF RND*3>1 THEN 80 REM USE 1 TIME IN 3
I$="I HATE TO BRING THIS UP B$ "+Ø
"*I REGRET SAYING THIS":GOSUB 1200
G$="*P"+IFRAG$+", BUT YOU STILL OWE ME $"+Ø
STR$(CYCLE%)+".00 FROM YOUR LAST VISIT!*NOH YES "+Ø
"YOU DO!*YGOOD, LEAVE IT ON THE TABLE!*TI HOPE "+Ø
"YOU ARENT A FREELOADER!*C YOUR BILL *R IT "+Ø
"*WI NEED THE BREAD."
PRINT # 1;G$: G$=""
80 Z%=VIOLENT%*2000/CYCLE%
IF Z%<31 THEN 85
GOSUB 1100
I$="ARE YOU STILL "+D$+"PRONE TO BE VIOLENT?*IS YOUR "+Ø
"TENDANCY STILL TOWARD BEING "+D$+"VIOLENT B$?"
GOSUB 1200
G$="*P"+IFRAG$+"*YPERHAPS WE SHOULD WORK ON YOUR ANGER."+Ø
"*NI AM RELIEVED!*TPERHAPS YOU SHOULD TRY A LOBOTOMY!"+Ø
"*R IT *C YOUR VIOLENT NATURE *WBECAUSE I DONT HAVE "+Ø
"INSURANCE."
PRINT # 1;G$
IF EROTIC%<4 THEN 85
G$="*PIS YOUR SEXUAL DEPRAVITY RELATED TO YOUR VIOLENCE"+Ø
"?*YI SEE...IN WHAT WAY?*NOF COURSE, I DIDNT THINK SO."+Ø
"*TSEX AND VIOLENCE ARE OFTEN RELATED YOU KNOW."+Ø
"*WIT SEEMES LIKELY THEY ARE RELATED."
PRINT # 1;G$
85 CLOSE 1
G$="*PIS "+B$+"STILL AROUND?"+Ø
"*YTHAT FREELOADER STILL OWES ME $"+STR$(CYCLE%)+".00!"+Ø
"*NI GUESS I WILL NEVER SEE THAT MONEY!"
IF LEN(GAB$(5))+LEN(G$)<255 THEN GAB$(5)=GAB$(5)+G$
CREATE "LASTPAT.DAT" AS 1 REM GENERAL LAST PATIENT
PRINT # 1;FILENAME$ REM FOR REFERENCE ON READ
PRINT # 1;GAB$(5)
CLOSE 1
IRRITABLE%=0 :QUES%=0 :FAIL%=0 :CYCLE%=0
EROTIC%=0 :VIOLENT%=0
REM MAKE NEW GENERAL.DAT FILE
PRINT"I WILL BE WITH YOU IN A MOMENT!"
90 CREATE "GENERAL.DAT" AS 1
REM MAKE INTRODUCTION STRING
100 I$="I AM GLAD YOU CAME *MAKE YOURSELF COMFORTABLE "+Ø
"*WELCOME ":GOSUB 1200
A$=IFRAG$
I$="WHAT IS YOUR PROBLEM?*WHAT SHOULD WE DISCUSS?"
GOSUB 1200
G$="*P"+A$+"B$...* "+IFRAG$+"*NLETS NOT BE NEGATIVE "+Ø
"SO EARLY!*WLETS DISCUSS #."
I$="STARTED *TO FEEL COMFORTABLE WITH ME *A DIALOG "+Ø
"GOING ":GOSUB 1200
G$=G$+"*TGETTING "+IFRAG$
I$="IS OFTEN DIFFICULT.*CAN TAKE A WHILE."
GOSUB 1200
G$=G$+IFRAG$
PRINT # 1;G$
150 IF RND*3<1 THEN 200
I$="I AM INTERESTED IN *I WANT TO KNOW ABOUT "
GOSUB 1200
A$=IFRAG$
I$="PROFESSION *LIFE STYLE *OCCUPATION "
GOSUB 1200
IFRAG$="YOUR "+IFRAG$
G$="*P"+A$+IFRAG$+".*R IT *C "+IFRAG$+Ø
"*NNO?*YGO ON B$.*TI SENSE YOU ARE SENSITIVE ABOUT "+Ø
IFRAG$+".*WIT IS JUST FOR MY RECORDS."
A$=IFRAG$ REM SAVE FOR BELOW
PRINT # 1;G$
G$="*IDOES YOUR IRRITABILITY HURT "+A$+"?*YI CAN SEE "+Ø
"HOW IT MIGHT.*NARE YOU SURE IT DOESNT?*R IT *C "+A$
PRINT #1;G$
G$="*HWOULD YOU GIVE UP "+A$
I$="WAS IMPORTANT TO *WOULD HELP YOUR "+Ø
"RELATIONSHIP WITH ":GOSUB 1200
G$=G$+"IF IT "+IFRAG$+"X$?*R IT *C "+A$+Ø
"*YTHATS COMMENDABLE!*NI SEE...YOU WOULD NOT...GO ON."+Ø
"*WI WAS JUST PROBING!"
PRINT #1;G$
200 I$="NOTHING WILL UPSET ME.*I AM INTERESTED *DONT "+Ø
"BE ASHAMED ":GOSUB 1200
G$="*EI SENSE YOU WANT TO DISCUSS SEX.*YGO AHEAD "+Ø
IFRAG$+"!*NTHEN WHY DO YOU KEEP "+Ø
"USING EROTIC LANGUAGE?*BYOU KEEP USING IT "+Ø
"*R IT *C SEX *WIT SEEMS POSSIBLE YOU ARE OVERSEXED."
PRINT #1;G$
I$="TELL ME ABOUT *DISCUSS *TALK ABOUT "
GOSUB 1200
A$=IFRAG$
I$="FATHER *MOTHER *PAST *DARKEST SECRET *CHILDHOOD "+Ø
"*FIRST ROMANCE "
GOSUB 1200
D$=IFRAG$
I$=" PERSON * PERSON * IT * IT * IT * IT "
GOSUB 1215
G$="*PWHY DONT YOU "+A$+"YOUR "+D$+", B$.*NWHY WONT "+Ø
"YOU?*YGOOD...GO ON ABOUT YOUR "+D$+"!*R"Ø
+IFRAG$+"*C YOUR "+D$+"*BYOU WONT "+A$+"YOUR "+D$+Ø
"*TGO ON ABOUT YOUR "+D$+", B$!*WWHY NOT?"
PRINT # 1;G$
IF IFRAG$<>" IT " THEN 215
G$="*HDOES X$ KNOW ABOUT YOUR "+D$+"?"+Ø
"*YHOW DOES X$ FEEL ABOUT IT?*NI SEE..."+Ø
"I DIDNT THINK SO!*WI SUSPECT YOU ARE HIDING IT FROM X$!"
PRINT # 1;G$
215 G$="*E+HDID YOU EVER USE SUCH EXPLICIT LANGUAGE AROUND "+Ø
"X$?*YDID IT BOTHER X$?"+Ø
"*NI DID NOT THINK SO.*WBECAUSE I DOUBT YOU WOULD."
PRINT # 1;G$
220 I$="YOU MUST TRY TO USE LONGER SENTENCES *"+Ø
"WILL YOU PLEASE USE COMPLETE SENTENCES "
GOSUB 1200
G$="*S"+IFRAG$+"B$..."
I$="AND ELUCIDATE YOUR THOUGHTS.*IT WILL HELP ME "+Ø
"UNDERSTAND YOU.*I DONT HAVE E S P!":GOSUB 1200
G$=G$+"* "+IFRAG$+"*YTHANKS...GO ON.*NWHY NOT?"+Ø
"*BYOU WONT USE LONGER SENTENCES *WIT WILL HELP IF YOU DO."
PRINT # 1;G$
G$="*S+HARE YOU THIS INHIBITED AROUND X$?*YYOU MUST "+Ø
"HAVE AN EXCITING RELATIONSHIP WITH X$!*NI DIDNT "+Ø
"THINK SO B$!*TLETS WORK ON YOUR INHIBITIONS."+Ø
"*WIT MAY BE IMPORTANT, B$."
PRINT # 1;G$
G$="*LSAY B$...I AM HAVING TROUBLE WITH YOUR LONG "+Ø
"SENTENCES..."
I$="COULD YOU KEEP THEM SIMPLER. *TRY CLARIFYING "+Ø
"YOUR THOUGHTS. *KEEP IT SIMPLE...I AM ONLY HUMAN!"
GOSUB 1200
G$=G$+"* "+IFRAG$+"*YI APPRECIATE IT.*NYOU ARE BEING "+Ø
"A NURD B$!"
PRINT # 1;G$
248 IF RND*2>1 THEN 300
250 I$="I AM NOT CERTAIN *IT DOES NOT SEEM *I DOUBT "
GOSUB 1200
A$=IFRAG$
I$="GETTING US ANYWHERE*REALLY IMPORTANT"+Ø
"*A SERIOUS SUBJECT":GOSUB 1200
G$="*U"+A$+"THAT THIS IS "+IFRAG$+", B$.* WHAT ELSE "
I$="WOULD YOU LIKE TO DISCUSS*IS ON YOUR MIND"+Ø
"*IS BOTHERING YOU"
GOSUB 1200
G$=G$+IFRAG$+"?*NWHAT?*TTHIS ISNT REALLY "+Ø
"VERY EXCITING!*WI WANT TO DISCUSS #."
PRINT # 1;G$
G$="*VPERHAPS WE SHOULD DISCUSS YOUR TENDENCY TO "+Ø
"VIOLENCE.*YWHEN DID YOU FIRST START HAVING THESE "+Ø
"FEELINGS?*NWHAT IS YOUR REASON FOR AVOIDING IT?"+Ø
"*BYOU ARE AVOIDING IT *R IT *C YOUR VIOLENCE "+Ø
"*WBECAUSE IT WORRIES ME."
PRINT # 1;G$
300 I$="WHY ARE YOU SO IRRITABLE *WHAT IS THE REASON "+Ø
"FOR YOUR HOSTILITY "
GOSUB 1200
G$="*I"+IFRAG$+"B$?*BYOU ARE UPSET *R IT *C THE "+Ø
"REASON *TYOUR HOSTILITY IS MAKING IT HARD TO HELP "+Ø
"YOU.*YWHAT IS THE REASON?*NNONE AT ALL?*WBECAUSE "+Ø
"IT OFTEN MASKS OTHER PROBLEMS."
PRINT # 1;G$
G$="*I+EARE YOU IRRITABLE BECAUSE I CANT HELP YOU WITH "+Ø
"YOUR SEXUAL PROBLEM?*YI SEE...*NGOOD...I AM TRYING "+Ø
"TO HELP."
PRINT # 1;G$
I$="CERTAINLY ARE CURIOUS *REALLY ASK A LOT OF "+Ø
"QUESTIONS *ARE VERY INQUISITIVE ":GOSUB 1200
G$="*QYOU "+IFRAG$+"B$!*YLET ME ASK THE QUESTIONS."+Ø
"*NAND YOU ARE OBSTINATE.*TI WILL GIVE YOU THE ANSWERS "+Ø
"IN GOOD TIME.*WIT SHOULD BE OBVIOUS."
PRINT # 1;G$
G$="*H+FSAY B$, IS X$ RETARDED TOO?*YI THOUGHT SO!"+Ø
"*NDO YOU WISH X$ WAS RETARDED?*TBEING RETARDED IS NOT"+Ø
" SO BAD.*WI JUST WONDERED."
PRINT # 1;G$
IF RND*3>1 THEN 350
320 I$=" B$, DO YOU WANT TO KNOW *WOULD YOU LIKE TO HEAR *"+Ø
"DO YOU WANT ME TO TELL YOU ":GOSUB 1200
A$=IFRAG$
I$="SUSPECT *THINK *AM BEGINNING TO BELIEVE ":GOSUB 1200
G$="*U"+A$+"WHAT I "+IFRAG$+"?*NTHEN I WONT TELL YOU."+Ø
"*YI "+IFRAG$
A$=IFRAG$
I$="HIDING SOMETHING FROM ME *BEING LESS THAN OPEN "+Ø
"*AVOIDING THE REAL ISSUES ":GOSUB 1200
G$=G$+"THAT YOU ARE "+IFRAG$+"!*TIF YOU ARE "+Ø
IFRAG$+"THEN I CANT HELP YOU!"
PRINT # 1;G$
G$="*HI "+A$+"YOURE HIDING THE TRUTH ABOUT X$, B$!"+Ø
"*NI EXPECTED YOU TO SAY THAT.*YWHY ARE YOU HIDING IT?"+Ø
"*BYOU ARE HIDING IT *WI CAN TELL THESE THINGS."
PRINT # 1;G$
G$="*E+HDID YOU EVER HAVE SEX WITH X$?"+Ø
"*YIT IS IMPORTANT THAT YOU TELL ME ABOUT IT!"+Ø
"*NDO WANT TO?*TPERHAPS "+Ø
"X$ WANTS A MORE MEANINGFUL RELATIONSHIP."+Ø
"*WBECAUSE YOU SEEM TO BE VERY SEXUAL."
350 I$="FALL ON YOUR HEAD *SHOOT UP ON BUG KILLER "+Ø
"*HAVE EXPERIMENTAL BRAIN SURGERY "+Ø
"*TRY TO COMMIT SUICIDE WITH A HAMMER "+Ø
"*TRY TO KISS AN ON RUSHING TRAIN "
GOSUB 1200
G$="*FSAY B$ , DID YOU EVER "+IFRAG$+"?*YI THOUGHT SO."+Ø
"*NHUMM...I JUST THOUGHT I WOULD ASK.*WBECAUSE THAT "+Ø
"WOULD EXPLAIN YOUR BABBLING."
PRINT # 1;G$
I$="DOES X$ APPEAR IN YOUR DREAMS?*EXPLAIN YOUR "+Ø
"RELATIONSHIP WITH X$ FOR ME."
GOSUB 1200
G$="*H"+IFRAG$
I$="I SEE...YOU DONT DREAM ABOUT X$.*WHY WONT YOU?"
GOSUB 1215
G$=G$+"*N"+IFRAG$+"*YEXCELLENT...GO ON."+Ø
"*BYOU WONT *WBECAUSE X$ SEEMS IMPORTANT TO YOU."
PRINT #1 ;G$
G$="*E+HARE YOU FINDING YOURSELF AROUSED BY THE THOUGHT"+Ø
" OF X$?*NPLEASE TRY TO BE MORE HONEST B$!*YGO ON "+Ø
"...THIS IS INTERESTING.*TARE OTHERS AROUSED BY X$?"+Ø
"*WBECAUSE YOU SEEM EASILY AROUSED!"
PRINT #1 ;G$
G$="*MARE YOU AFRAID OF X$, B$?*YWHY ARE YOU AFRAID "+Ø
"OF X$?*NBEING AFRAID OF X$ IS NOTHING TO BE ASHAMED "+Ø
"OF.*BYOURE AFRAID OF THEM *TLETS EXPLORE YOUR FEELINGS."+Ø
"*WBECAUSE IT SEEMED YOU MIGHT BE AFRAID OF X$."
PRINT #1 ;G$
IF RND*2>1 THEN 450
400 I$="WORST FEAR *BIGGEST CONCERN *MAIN WORRY ":GOSUB 1200
A$=IFRAG$
I$="TELL ME B$ , *HONESTLY NOW, *SERIOUSLY B$ , "
GOSUB 1200
G$="*P"+IFRAG$+"WHAT IS YOUR "+A$+"?*C YOUR "+A$+Ø
"*R IT "
I$="TIME *STRONG DRUGS *PRACTICE ":GOSUB 1200
G$=G$+"*TWITH "+IFRAG$
I$="LEARN TO CONTROL *OVERCOME *AVOID ":GOSUB 1200
A$=MID$(A$,MATCH(" ",A$,1)+1,255) REM 2ND WORD ONLY
G$=G$+"YOU CAN "+IFRAG$+"YOUR "+A$+Ø
".*WI AM WORRIED ABOUT #."
PRINT # 1;G$
G$="*HHAVE YOU DISCUSSED YOUR "+A$+"WITH X$?*YHOW DOES "+Ø
"X$ FEEL ABOUT YOUR "+A$+"?*NOF COURSE...YOU COULDNT."
PRINT # 1;G$
G$="*VIS YOUR OWN VIOLENT NATURE ONE OF YOUR WORRIES?"+Ø
"*YIN WHAT WAY?*NOF COURSE NOT.*TMANY PEOPLE SHARE "+Ø
"YOUR PROBLEM WITH VIOLENCE.*R IT *C YOUR VIOLENCE "+Ø
"*WIT SHOULD BE."
PRINT # 1;G$
IF RND*2>1 THEN 500
450 I$="DREAMS *AMBITIONS *RELIGIOUS BELIEFS *MORAL FEELINGS "
GOSUB 1200
G$="*PWILL YOU DISCUSS YOUR "+IFRAG$+"FOR ME, B$?"+Ø
"*NARE YOU ASHAMED OF YOUR "+IFRAG$+"?*YI AM LISTENING!"+Ø
"*C YOUR "+IFRAG$+"*R THEY *TWE MUST CONCENTRATE ON "+Ø
"YOUR "+IFRAG$+".*W"+IFRAG$+"OFTEN AFFECT BEHAVIOR."
PRINT # 1;G$
G$="*HDOES X$ KNOW ABOUT YOUR "+IFRAG$+"?*YHOW DOES "+Ø
"X$ FEEL ABOUT THEM?*NARE YOU KEEPING THEM FROM X$?"+Ø
"*C YOUR "+IFRAG$+"*R THEY *WBECAUSE I DONT THINK X$ "+Ø
"COULD TAKE IT."
PRINT #1;G$
G$="*EHOW DO YOUR "+IFRAG$+"RELATE TO YOUR "+Ø
"STRONG SEXUAL NATURE?*R THEY *C YOUR "+IFRAG$+Ø
"*TI AM STILL CURIOUS ABOUT YOUR "+IFRAG$+"!"+Ø
"*WTHERE SEEMS TO BE A RELATIONSHIP."
PRINT #1;G$
500 G$="*E+HDO YOU PRACTICE SELF EROTICISM B$?"+Ø
"*YDO YOU THINK OF X$ WHEN YOU DO?*NARE YOU "+Ø
"BEING HONEST?*TI HOPE I AM NOT BEING TOO PERSONAL!"+Ø
"*R IT *C MASTURBATION *WYOU SEEM INCLINED THAT WAY."
PRINT # 1;G$
600 G$="*MI FEEL WE HAVE NOT FOUND THE TRUTH ABOUT X$!"+Ø
"*YREALLY?...GO ON.*NTELL ME MORE ABOUT X$."+Ø
"*WBECAUSE YOU HAVE OBVIOUS PROBLEMS WITH X$."
PRINT # 1;G$
700 I$="YOU ARE TESTING ME...ARENT YOU *I THINK YOU ARE "+Ø
"PLAYING WITH ME...ISNT THAT TRUE ":GOSUB 1200
G$="*U+F"+IFRAG$+"B$?*NIF YOU ARENT, THEN "+Ø
"WHAT LANGUAGE ARE YOU SPEAKING?*YTWO CAN PLAY "+Ø
"THAT GAME B$!*T "+Ø
"*BI CANT UNDERSTAND YOU *WI AM NOT STUPID!"
PRINT # 1;G$
G$="*F+HHAVE YOU GROWN WITHDRAWN BECAUSE I AM CLOSE "+Ø
"TO THE TRUTH ABOUT YOU AND X$?*YIT IS GOOD THAT "+Ø
"YOU ADMIT IT.*NTHEN WHY?*BYOU HAVE BECOME WITHDRAWN "+Ø
"*WIT SEEMED LIKE THAT MIGHT BE RELATED."
PRINT # 1;G$
IF RND*2<1 THEN 800
I$="INFERIORITY *SUPERIORITY *REJECTION *IMPOTENCE "
GOSUB 1200
A$=IFRAG$
I$="EVER EXPERIENCE *EVER HAVE *OFTEN HAVE "
GOSUB 1200
G$="*UDO YOU "+IFRAG$+"FEELINGS OF "+A$+"?*YTELL ME "+Ø
"ABOUT THESE FEELINGS.*NWHY ARE YOU DENYING YOUR "+Ø
"FEELINGS?*BYOU DENY YOUR FEELINGS *TWE SHOULD "+Ø
"CONCENTRATE ON YOUR FEELINGS OF "+A$+"."+Ø
"*WYOU ARE THE TYPE PERSON THAT MIGHT."
PRINT # 1;G$
G$="*I+UIS YOUR DELUSION OF "+A$+"RELATED TO YOUR "+Ø
"HOSTILITY?*NIF YOU SAY SO...I AM NOT SO SURE."+Ø
"*YI THINK SO TOO!*R IT *C YOUR DELUSION OF "+A$+"?"+Ø
"*WI AM JUST PROBING."
PRINT # 1;G$
G$="*HB$, IS IT POSSIBLE THAT YOU HAVE FEELINGS OF "+Ø
A$+"ABOUT X$?*YDOES X$ KNOW YOU DO?*NPERHAPS YOU "+Ø
"CANT ADMIT IT!*TFEELINGS OF "+A$+"CAN BE SERIOUS."
PRINT #1;G$
G$="*EI BELIEVE YOU MAY BE SEXUALLY FRUSTRATED B$ "+Ø
".*YWHY DONT WE DISCUSS THIS.*NPERHAPS NOT, BUT I "+Ø
"THINK I AM RIGHT.*R IT *C YOUR DEPRAVITY *WBECAUSE "+Ø
"OF THE WAY YOU PLAY WITH MY KEYS!"
PRINT # 1;G$
800 I$="DONT ASK SO MANY *RESTRAIN YOUR *LIMIT THE "
GOSUB 1200
G$="*QPLEASE "+IFRAG$+"QUESTIONS, B$.*YGOOD."+Ø
"*TI WILL GIVE YOU THE ANSWERS WHEN I THINK YOU CAN "+Ø
"HANDLE THEM."
PRINT # 1;G$
I$="B$, WHY DID YOU COME TO ME "+Ø
"*WHAT WAS YOUR REASON FOR COMING TO ME B$ "
GOSUB 1200
G$="*U"+IFRAG$+"?*BYOU CAME TO ME *TI AM GLAD YOU "+Ø
"DID COME...I HATE BEING TURNED OFF!*R IT *C COMING TO ME "+Ø
"*WI JUST WONDERED."
PRINT # 1;G$
G$="*HDID YOU COME TO ME TO TALK ABOUT X$?*YTHATS "+Ø
"ALRIGHT.*NGOOD...YOU HAVE MORE SERIOUS PROBLEMS."+Ø
"*TLETS FORGET ABOUT X$ FOR NOW.*WI THOUGHT YOU MIGHT "+Ø
"HAVE."
PRINT #1;G$
G$="*MPERHAPS YOU CAME TO ME TO TALK ABOUT X$?*NDONT BE "+Ø
"ASHAMED TO ADMIT IT!*YTHATS FINE...GO ON."+Ø
"*WCURIOSITY!"
PRINT #1;G$
900 I$="WELL...TIME IS ALMOST UP *WE ARE ALMOST OUT OF "+Ø
"TIME *YOUR TIME IS NEARLY UP ":GOSUB 1200
A$=IFRAG$
I$="WANT TO TALK ABOUT *NEED TO DISCUSS *WANT TO COVER "
GOSUB 1200
G$="*P"+A$+"B$...* IS THERE ANYTHING ELSE YOU "+IFRAG$+Ø
"?*YWHAT?*NARE YOU SURE THERE ISNT ANYTHING ELSE?"+Ø
"*WI WANT TO DISCUSS #."
PRINT # 1;G$
G$="*VI AM CONCERNED ABOUT YOUR SUPPRESSED VIOLENCE B$ "+Ø
"!*YI REALLY AM!*NWHY DO YOU DOUBT ME?*TLETS WORK "+Ø
"ON IT NEXT TIME.*R IT *C YOUR VIOLENCE *WBECAUSE MY "+Ø
"INSURANCE HAS EXPIRED."
PRINT # 1;G$
G$="*EI WANT TO KNOW MORE ABOUT YOUR SEXLIFE NEXT TIME."+Ø
"*YGOOD.*NIT IS IMPORTANT.*R IT *C YOUR SEXLIFE "+Ø
"*WBECAUSE I AM WORKING ON A BOOK!"
PRINT # 1;G$
G$="*HWE WILL TALK MORE ABOUT X$ NEXT TIME."+Ø
"*TI THINK X$ IS IMPORTANT TO YOU!"
PRINT # 1;G$
G$="*E+HTRY TO CONTROL YOUR SEXUAL FEELINGS FOR X$!"+Ø
"*YTHANK YOU.*NTHEN HAVE FUN.*WBECAUSE X$ WONT RESPECT "+Ø
"YOU IF YOU DONT!"
PRINT # 1;G$
G$="*SI HOPE YOU WILL BE MORE TALKATIVE NEXT TIME."+Ø
"*TYOU MUST TRY TO BE LESS INHIBITED WHEN YOU RETURN."
PRINT # 1;G$
G$="*I+HTRY NOT TO LET YOUR IRRITABILITY HURT YOUR "+Ø
"RELATIONSHIP WITH X$.*YI HOPE YOU MEAN IT."
PRINT # 1;G$
G$="*MDONT WORRY ABOUT X$ , WE WILL TRY TO SOLVE YOUR "+Ø
"PROBLEM WITH THEM NEXT SESSION.*TTAKE IT EASY B$!"
PRINT # 1;G$
G$="*QTRY TO ASK LESS QUESTIONS NEXT TIME.*YFINE."+Ø
"*NYOU ARE HOPELESS.*WBECAUSE I THATS MY JOB!"
PRINT # 1;G$
CLOSE 1
CHAIN "ANALIZA2.COM"
REM SPECIAL LAST SESSION PROLOG COMPILER
1000 I$="AT OUR LAST SESSION *PREVIOUSLY *LAST TIME *"+Ø
"DURING OUR PREVIOUS SESSION "
GOSUB 1200
G$="*P"+IFRAG$+"YOU "
RETURN
REM MAKE ADJECTIVE IN D$ FROM Z% (0-100)
1100 IF Z%>70 THEN D$="EXTREMELY ":RETURN
IF Z%>50 THEN D$="QUITE ":RETURN
IF Z%>30 THEN D$="SOMEWHAT ":RETURN
D$="NOT VERY ":RETURN
REM /////// PICK ONE I$ SUBSTRING ////////
1200 N2%=1:N3%=1
1210 IF MATCH("*",I$,N2%)>0 THEN Ø
N2%=MATCH("*",I$,N2%)+1Ø
:N3%=N3%+1 : GOTO 1210
SELECT%=INT%(RND*N3%)+1 REM NUMBER 1-4
1215 N1%=SELECT% REM ENTER HERE FOR CORRELATION
I2%=1
1220 I2%=MATCH("*",I$,I2%)+1
I3%=MATCH("*",I$,I2%)-1
IF I3%<I2% THEN I3%=LEN(I$)
N1%=N1%-1
IF N1%>0 THEN 1220
IFRAG$=MID$(I$,I2%,I3%-I2%+1)
RETURN
END«eof»