ZXTape! 0Created with Ramsoft MakeTZXELISA # #x# 0CRAIGMOUNT COMPUTER CENTRE ***********************  ( *** ELISA *** 2 * ANALYST PROGRAM * < F*********************** Py 25/02/84 -- 15:10 ******************************** dE6:6:0:0:0:0:0:"": n3360 : x+236099\,10 :23658j\,8  ----KEYWORDS---- 9"CAN YOU","CAN I","YOU ARE","YOU'RE","I DON'T","I FEEL" A"WHY DON'T YOU","WHY CAN'T I","ARE YOU","I CAN'T","I AM","I'M " 9"YOU ","I WANT","WHAT","HOW","WHO","WHERE","WHEN","WHY" 6"NAME","CAUSE","SORRY","DREAM","HELLO","HI ","MAYBE" 9" NO ","YOUR","ALWAYS","THINK","ALIKE"," YES ","FRIEND" "COMPUTER","NOKEYFOUND"  0---- STRING CONGUTATIONS ---- ;" ARE "," AM ","WERE ","WAS "," YOU "," I ","YOUR ","MY " (" I'VE "," YOU'VE "," I'M "," YOU'RE " " ME "," YOU " " ,---- REPLIES ---- 6!"DON'T YOU BELIEVE THAT I CAN*" J,"PERHAPS YOU WOULD LIKE TO BE ABLE TO*" ^"YOU WANT ME TO BE ABLE TO*" r"PERHAPS YOU DON'T WANT TO*" "DO YOU WANT TO BE ABLE TO*" "WHAT MAKES YOU THINK I AM*" '"DOES IT PLEASE YOU TO BELIEVE I AM*" !"PERHAPS YOU WOULD LIKE TO BE*" #"DO YOU SOMETIMES WISH YOU WERE*" "DON'T YOU REALLY*" "WHY DON'T YOU*" "DO YOU WISH TO BE ABLE TO*" &"DOES THAT TROUBLE YOU?" :$"TELL ME MORE ABOUT SUCH FEELINGS" N"DO YOU OFTEN FEEL*" b"DO YOU ENJOY FEELING*" v""DO YOU REALLY BELIEVE I DON'T*"  "PERHAPS IN GOOD TIME I WILL*" "DO YOU WANT ME TO*" '"DO YOU THINK YOU SHOULD BE ABLE TO*" "WHY CAN'T YOU*" 8"WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*" #"WOULD YOU PREFER IF I WERE NOT*" #"PERHAPS IN YOUR FANTASIES I AM*" "HOW DO YOU KNOW I CAN'T*" *"HAVE YOU TRIED?" >"PERHAPS YOU CAN NOW*" R("DID YOU COME TO ME BECAUSE YOU ARE*" f"HOW LONG HAVE YOU BEEN*" z*"DO YOU BELIEVE THAT IT IS NORMALTO BE*" "DO YOU ENJOY BEING*" $"WE WERE DISCUSSING YOU-- NOT ME."  "OH, I*" 0"YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?" %"WHAT WOULD IT MEAN TO YOUYOUGOT*" "WHY DO YOU WANT*" "SUPPOSE YOU SOON GOT*" "WHAT IF YOU NEVER GOT*" ."I SOMETIMES ALSO WANT*" B"WHY DO YOU ASK?" V$"DOES THAT QUESTION INTEREST YOU?" j)"WHAT ANSWER WOULD PLEASE YOU THEMOST?" ~"WHAT DO YOU THINK?" *"ARE SUCH QUESTIONS ON YOUR MIND OFTEN?" ,"WHAT IS IT THAT YOU REALLY WANT TO KNOW?" "HAVE YOU ASKED ANYONE ELSE?" +"HAVE YOU ASKED SUCH QUESTIONS BEFORE?" 6"WHAT ELSE COMES TO YOUR MIND WHEN YOU ASK THAT?" "NAMES DON'T INTEREST ME."  1"I DON'T CARE ABOUT NAMES -- PLEASE GO ON." "IS THAT THE REAL REASON?" 2)"DON'T ANY OTHER REASONS COME TO MIND?" F2"DOES THAT REASON EXPLAIN ANYTHING ELSE?" Z'"WHAT OTHER REASONS MIGHT THERE BE?" n"PLEASE DON'T APOLOGISE!"  "APOLOGIES ARE NOT NECESSARY." 2"WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGISE?" "DON'T BE SO DEFENSIVE!" ("WHAT DOES THAT DREAM SUGGEST TO YOU?" "DO YOU DREAM OFTEN?" +"WHAT PERSONS APPEAR IN YOUR DREAMS?" "DO YOUR DREAMS DISTURB YOU?" 1"HOW DO YOU DO ... PLEASE STATE YOUR PROBLEM." "!"YOU DON'T SEEM QUITE CERTAIN." 6"WHY THE UNCERTAIN TONE?" J"CAN'T YOU BE MORE POSITIVE?" ^"YOU AREN'T SURE?" r"DON'T YOU KNOW?" -"ARE YOU SAYING 'NO' JUST TO BE NEGATIVE?" !"YOU ARE BEING A BIT NEGATIVE."  "WHY NOT?" "ARE YOU SURE?"  "WHY NO?" #"WHY ARE YOU CONCERNED ABOUT MY*" "WHAT ABOUT YOUR OWN*" ,"CAN YOU THINK OF A SPECIFIC EXAMPLE?" & "WHEN?" :"WHAT ARE YOU THINKING OF?" N"REALLY, ALWAYS?" b"DO YOU REALLY THINK SO?" v"BUT YOU ARE NOT SURE YOU*" "DO YOU DOUBT YOU*" "WHAT WAY?"  "WHAT RESEMBLANCE DO YOU SEE?" +"WHAT DOES THE SIMILARITY SUGGESTTO YOU?" ("WHAT OTHER CONNECTIONS DO YOU SEE?" /"COULD THERE REALLY BE SOME CONNECTION?" "HOW?" "YOU SEEM QUITE POSITIVE." *"ARE YOU SURE?" > "I SEE." R"I UNDERSTAND." f,"WHY DO YOU BRING UP THE TOPIC OFFRIENDS?" z"DO YOUR FRIENDS WORRY YOU?"  "DO YOUR FRIENDS PICK ON YOU?" ,"ARE YOU SURE YOU REALLY HAVE ANYFRIENDS?" ""DO YOU IMPOSE ON YOUR FRIENDS?" 0"PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU." "DO COMPUTERS WORRY YOU?" /"ARE YOU TALKING ABOUT ME IN PARTICULAR?" #"ARE YOU FRIGHTENED BY MACHINES?" !"WHY DO YOU MENTION COMPUTERS?" .<"WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?" B4"DON'T YOU THINK THAT COMPUTERS CAN HELP PEOPLE?" V/"WHAT IS IT ABOUT MACHINES THAT WORRYS YOU?" j;"SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?" ~""WHAT DOES THAT SUGGEST TO YOU?" "I SEE." ."I'M NOT SURE THAT I UNDERSTAND YOU FULLY." -"COME, COME, ELUCIDATE YOUR THOUGHTS." "CAN YOU ELABORATE ON THAT?" "THAT IS QUITE INTERESTING."  1----FINDING RIGHT REPLIES ---- 1,3,4,2,6,4,6,4,10 ,4,14,3,17,3,20,2,22,3,25,3 28,4,28,4,32 ,3,35#,5,40(,9 ,40(,9 ,40(,9 ,40(,9 ,40(,9 ,40(,9 491,2,513,4,557,4,59;,4,63?,1,63?,1,64@,5,69E,5,74J,2,76L,4 (h80P,3,83S,7,90Z,3,93],6,99c,7,106j,7 2 :P$="" <TYPED IN BY DEREK SCOTT F---INITIALISATION--- PdS(36$):R(36$):N(36$):N1=36$:N2=14:N3=112p:X=1N1+N2:Z$ ZX:X=1N3:Z$:X d9X=1N1:S(X),L:R(X)=S(X):N(X)=S(X)+L-1:X nd9 ,0;"HI! I'M ELISA.  WHAT'S YOUR PROBLEM ?";20,0 x  0,0;" ELISA ";21,0:23692\,255:23658j\,8:I$:I$=" "+I$+" ":I$=32700 >L=1̱(I$):I$(L)<32 ůI$(L)>90Z2700 L )23692\,255:::I$(2) 0,0;" ELISA ";21,0:23692\,255 L=1̱(I$) 9I$(L)="'"I$=I$(L-1)+I$(L+1):2750 dL+4DZ(I$)I$(LL+3)="SHUT"23692\,255::1;"SHUTUP...":3290 L WI$=P$23692\,255::1;"PLEASE DO NOT REPEAT YOURSELF!":2680x  ** FIND KEYWORD IN I$ *   " S=0 ,K=1N1 6K$ @S>02920h JL=1̱(I$)-(K$)+1 T+I$(LL+(K$)-1)=K$S=K:T=L:F$=K$ ^L hK r!S>0K=S:L=T:2950 |;K=36$:3170b : WE DIDN'T FIND ANY KEYWORDS 4TAKE RIGHT PART OF STRING & CONJUGATE IT USING THE LIST OF STRINGS TO BE SWAPPED >:X=1N1:Z$:X: SKIP OVER KEYWORDS C$=" "+I$((F$)+L)+" " X=1N2/2 Q$,R$ L=1̱(C$) L+(Q$)>(C$)3080 &C$(LL+(Q$)-1)Q$3080 #C$=C$(L-1)+R$+C$(L+(Q$)) L=L+(R$) 31200 L+(R$)>(C$)31200 &C$(LL+(R$)-1)R$31200 #C$=C$(L-1)+Q$+C$(L+(R$)) & L=L+(Q$) 0L:X :"C$(2)=" "C$=C$(2) DL=1̱(C$) N9C$(L)="!"C$=C$(L-1)+C$(L+1):3150N XL b6NOW USING THE KEY WORD NUMBER (K) GET REPLY l:X=1N1+N2:Z$:X vX=1R(K):F$:X )R(K)=R(K)+1:R(K)>N(K)R(K)=S(K) ?F$((F$))"*"23692\,255::F$:P$=I$:2680x 023692\,255::F$(̱(F$)-1);C$ P$=I$:2680x END OF PROGRAM 250: "ANOTHER TALK ? Y/N " !X$=:X$"Y"X$"N"3310 X$="Y":26102 7:7: 3730 *** INTRODUCTION *** 'A$=" E L I S A" *X=6̱A$6 4--2+X/6*2,10 ;A$(X) p 502 zx 502 A$=" " B$=" " C$=" " D$=" " /X=05:Y=07:7 312 ,7;Y;1;" " ,13 ,7;Y;9 ;1;;A$ +14,7;Y;9 ;1;B$ $+15,7;Y;9 ;1;C$ .+16,7;Y;9 ;1;D$ 8317,7;Y;1;" " BY LX V'a$="Press any key to begin.........." tW21,0;1;2;7;a$:a$=a$(2)+a$(1):5 ~=""3700t   *** END ***