1000CLEAR1500
1010DIMW$(16),UL$(10),UH$(10),RR$(5),RV$(5),CH$(3),CA(3),CB(3),RH$(3):NW=0:NL=0:NH=0:RN=0
1020NM$="":LT$="":MD=0:L1=0:L2=0:UX$="":UQ=0:D$="I DO NOT ":PL=1
1030MF$="ELIZA.DO":GOSUB6780
1050X=VAL(RIGHT$(TIME$,2)):FORK=0TOX:X=RND(1):NEXTK
1060EZ$="ELIZA":NI$="NAME IS ":MN$="MY "+NI$:YN$="YOUR "+NI$:AM$="I AM ":KS$="OK. "
1070TM$="TELL ME ":TA$=TM$+"ABOUT ":TR$=TM$+"MORE.":FE$="I FEEL ":TK$="I THINK "
1080YK$="YOU LIKE ":DY$="DO YOU ":WY$="WHAT "+DY$:WB$="WHY "+DY$:WS$="WHAT IS "
1090WA$="WHAT ABOUT ":WC$="WE CAN ":LS$="LET US ":MV$="MY FAVORITE "
1100IFNM$<>""THENPRINT"WELCOME BACK "+NM$+"!":GOTO1150
1110PRINT"HI! "+AM$+EZ$+". "+WS$+"YOUR NAME?"
1120LINEINPUT"> ";I$:GOSUB1450
1130GOSUB1670:GOSUB7010
1140PRINT"HI ";NM$;"! ";WY$;"WANT TO TALK ABOUT?"
1150PRINT
1160LINEINPUT"> ";I$
1170IFI$=""THEN1160
1180GOSUB1450
1190IFINSTR(" BYE GOODBYE "," "+I$+" ")>0THENPRINT"BYE BYE ";NM$;"!":END
1200IF(J$="HI"ORJ$="HELLO"ORJ$="HEY")ANDNW<3THENPRINT"HI ";NM$;"!":GOTO1150
1210IFJ$="THANK"THENPRINT"YOU ARE WELCOME ";NM$;"!":GOTO1150
1220IFI$="HELP"ORI$="HELP ME"THENPRINT"TELL ME.":GOTO1150
1230IFI$="SORRY"THENPRINT"IT IS OK.":GOTO1150
1250IFNW=0THENPRINT"HUH?":GOTO1150
1260IF(NW>=4ANDINSTR(SE$," "+MN$)=1)OR(NW>=3ANDINSTR(SE$," "+NI$)=1)THENNM$=RW$:GOSUB7010:PRINT"HI ";NM$;"!":GOTO1150
1300P9=PQ:PQ=0:GOSUB2240:GOSUB3120:GOSUB6090
1310IFPM=0ANDUQ=1THENGOSUB6570
1320IFPM=0THENGOSUB7210
1330IFPM=0ANDIO$=""THENGOSUB6650
1340IFPM=0THENGOSUB3670
1350GOSUB4170:MD=MD+EM:IFSP>SNTHENMD=MD+1
1410IFSN>SPTHENMD=MD-1
1420IFMD>5THENMD=5 ELSEIFMD<-5THENMD=-5
1440GOTO1150
1450IFLEN(I$)>80THENI$=LEFT$(I$,80)
1460FORK=1TOLEN(I$):C$=MID$(I$,K,1):A=ASC(C$)
1490IFA>=97ANDA<=122THENMID$(I$,K,1)=CHR$(A-32)
1510IFINSTR("?.!,;:",C$)>0THENMID$(I$,K,1)=" "
1520NEXTK
1530GOSUB1840:FORJ=1TO16:W$(J)="":NEXTJ:NW=0:K=1
1560IFK>LEN(I$)THEN1650
1570IFMID$(I$,K,1)=" "THENK=K+1:GOTO1560
1580S=K
1590IFK>LEN(I$)THEN1620
1600IFMID$(I$,K,1)=" "THEN1620
1610K=K+1:GOTO1590
1620NW=NW+1:W$(NW)=MID$(I$,S,K-S)
1630IFNW>=16THENGOSUB1980:RETURN
1640GOTO1560
1650GOSUB1980:RETURN
1670IFNW=0THENNM$=I$:RETURN
1680IFNW=1ANDJ$<>"HI"ANDJ$<>"HELLO"THENNM$=RW$:RETURN
1690IFJ$="I"ANDN$="AM"ANDNW=3THENNM$=RW$:RETURN
1700IFNW>=4ANDINSTR(SE$," "+MN$)=1THENNM$=RW$:RETURN
1710IFNW>=3ANDINSTR(SE$," "+NI$)=1THENNM$=RW$:RETURN
1730IFJ$="HI"ORJ$="HELLO"THENNM$="FRIEND":RETURN
1740IFINSTR(" WHAT WHO WHERE WHY HOW IS ARE WAS "," "+J$+" ")>0THENNM$="FRIEND":RETURN
1750NM$=RW$:RETURN
1840AP$=CHR$(39):RESTORE1880
1850READP$:IFP$="*"THEN1920
1860READB$:P=INSTR(P$,"~"):IFP>0THENA$=LEFT$(P$,P-1)+AP$+MID$(P$,P+1)ELSEA$=P$
1870GOSUB1940:GOTO1850
1880DATAI~M,I AM,DON~T,DO NOT,CAN~T,CAN NOT,IT~S,IT IS,I~VE,I HAVE,I~LL,I WILL,I~D,I WOULD,WON~T,WILL NOT
1900DATAWHAT~S,WHAT IS,THAT~S,THAT IS,WHO~S,WHO IS,LET~S,LET US,WHATS,WHAT IS,DONT,DO NOT,CANT,CAN NOT,THATS,THAT IS
1910DATAFAVOURITE,FAVORITE,COLOUR,COLOR,ICE CREAM,ICECREAM,HOT DOG,HOTDOG,*,*
1920P=INSTR(I$,AP$):IFP>0THENI$=LEFT$(I$,P-1)+" "+RIGHT$(I$,LEN(I$)-P):GOTO1920
1930RETURN
1940LT=LEN(A$)
1950P=INSTR(I$,A$):IFP=0THENRETURN
1960I$=LEFT$(I$,P-1)+B$+RIGHT$(I$,LEN(I$)-P-LT+1):GOTO1950
1980RW$=W$(NW):FORJ=1TONW:X$=W$(J):GOSUB2130:GOSUB2030
2020W$(J)=X$:NEXTJ:SE$=" ":FORJ=1TONW:SE$=SE$+W$(J)+" ":NEXTJ:J$=W$(1):N$=W$(2):Q$=W$(3):Z$=W$(4):RETURN
2030RESTORE2200
2040READC$:IFC$="*"THENRETURN
2050READA$:IFA$="/"THEN2040
2060IFX$=A$THENX$=C$:RETURN
2070GOTO2050
2130IFLEN(X$)<4THENRETURN
2140RESTORE2770:LX=LEN(X$)
2150READSF$:IFSF$="!"THEN2180
2160READSC,SR$,SM:IFLX>SMANDRIGHT$(X$,LEN(SF$))=SF$THENX$=LEFT$(X$,LX-SC)+SR$:RETURN
2170GOTO2150
2180IFRIGHT$(X$,1)="S"ANDRIGHT$(X$,2)<>"SS"ANDX$<>"THIS"THENX$=LEFT$(X$,LX-1)
2190RETURN
2200DATAMOMMY,MOM,MOTHER,MAMA,MUM,MUMMY,/,DADDY,DAD,FATHER,PAPA,DADA,/,GRANDMA,GRANNY,NANA,GRANDMOTHER,/,GRANDPA,GRAMPA,GRANDAD,GRANDFATHER,/,SCARED,AFRAID,FRIGHTENED,/,ANGRY,MAD,/,YUCKY,GROSS,NASTY,/,HAPPY,GLAD,/,SAD,UNHAPPY,/,SMALL
2210DATALITTLE,TINY,/,BIG,HUGE,LARGE,/,PRETTY,BEAUTIFUL,/,BUNNY,RABBIT,/,COOKIE,BISCUIT,CRACKER,COOKY,/,MOVIE,CARTOON,MOVY,/,HOME,HOUSE,/,SPIDER,SPINDER,/,DINOSAUR,DINO,/,ANIMAL,PET,CRITTER,CREATURE,/,FRIEND,PAL,BUDDY,/,SISTER,SIS,/
2220DATABROTHER,BRO,/,TEACHER,MR,/,MOUSE,MICE,/,CHICKEN,HEN,ROOSTER,/,POTATO,TATER,/,DOCTOR,DOC,/,DOG,DOGGY,DOGGIE,/,CAT,CATY,KITTEN,/,BIRD,BIRDY,BIRDIE,/,BIKE,BICYCLE,/,PLANE,AIRPLANE,/,IS,ARE,/,DO,DOES,DOE,/,WAS,WERE,/,HAVE,HAS,/
2224DATACAKE,CUPCAKE,/,BROCCOLI,VEGETABLE,VEGGIE,/,THUNDER,STORM,LIGHTNING,/,PLAY,PLAYING,PLAYED,/,EAT,EATING,ATE,/,TALK,TALKING,TALKED,/,GO,GOING,WENT,GOE,/,LIKE,LIKED,/,LOVE,LOVED,LOVING,/
2226DATAWANT,WANTED,/,SEE,SAW,SEEING,/,SWIM,SWIMMING,/,RUN,RUNNING,RAN,/,CRY,CRYING,CRIED,/,GET,GOT,/,SING,SINGING,/,*
2240IV$="":IA$="":IO$="":IG$="":VL=0:VI=0:SP=0:SN=0:EM=0:LK=0:FR=0:QF=0:QH=0:QK=0:QO=0:LP=0:AV=0:O1=0:O2=0
2280FORJ=1TONW:X$=W$(J):GOSUB2940
2290IFFO=1THENGOSUB2460:IFIV$=""THENIV$=X$:VI=J
2300GOSUB2990:IFFO=1THENGOSUB2460:IFIA$=""THENIA$=X$:AV=Q1
2310GOSUB2700:IFFO=1ANDIO$=""THENIO$=Y$:O1=Q1:O2=Q2:GOSUB2830:GOSUB2840:Q1=VL:GOSUB2460
2320IFX$="HATE"THENQH=1:LP=J
2330IFX$="LIKE"ORX$="LOVE"THENQK=1:LP=J
2340IFINSTR(" OTHER ELSE ANOTHER MORE "," "+X$+" ")>0THENQO=1
2350NEXTJ:IFIA$="FAVORITE"ORIA$="BEST"THENQF=1
2360QC$="":IFINSTR(" ANIMAL FOOD PERSON PLACE TOY "," "+IO$+" ")>0THENQC$=IO$
2370NG=INSTR(SE$," NOT ")+INSTR(SE$," NEVER "):YO=INSTR(SE$," YOU ")+INSTR(SE$," YOUR ")
2380QM=INSTR(" WHAT WHO WHERE WHY HOW DO CAN IS WHICH "," "+J$+" "):RETURN
2460EM=EM+Q1:IFQ1>0THENSP=SP+1:LK=LK+Q1
2470IFQ1<0THENSN=SN+1:FR=FR-Q1
2480RETURN
2570DATADOG,9190,6019,CAT,9280,4018,PUPPY,9190,6009,KITTY,9280,5009,FISH,9820,1705,BIRD,9010,4706,BEAR,9000,2715,BUNNY,9020,5708,HORSE,9020,3707,DINOSAUR,9000,5338,ANIMAL,9010,1707,SPIDER,9000,5080,FROG,9110,3705,DUCK,9120,3706,PIG,9510
2580DATA3504,MOUSE,9010,3663,TURTLE,9010,2706,LION,9000,1785,MONKEY,9010,5708,SNAKE,9100,1682,COW,9510,2504,BUG,9100,2681,BEE,9100,2782,SHARK,9100,1892,OWL,9010,3705,CHICKEN,9800,305,SHEEP,9510,2505,GOAT,9510,2505,ELEPHANT,9000,1707,TIGER
2590DATA9000,1785,WOLF,9000,1784,WHALE,9010,1706,DOLPHIN,9010,5708,DEER,9010,2706,BUTTERFLY,9010,4708,FOOD,900,7,MILK,900,7,WATER,800,6,CANDY,900,9,COOKIE,900,9,CAKE
2600DATA900,9,APPLE,900,506,BANANA,900,506,CHOCOLATE,900,9,JUICE,900,8,PIZZA,900,9,CHEESE,900,7,BREAD,900,6,CARROT,900,503,POTATO,900,505,BURGER,900,7,TOMATO,900
2610DATA405,CORN,900,506,ORANGE,900,607,GRAPE,900,607,STRAWBERRY,900,708,PEAR,900,506,SODA,800,7,MOMMY,90,9,DADDY
2620DATA90,9,BABY,80,2008,FRIEND,80,6008,SISTER,80,4007,BROTHER,80,5007,FAMILY,90,9,GRANDMA,90,9,GRANDPA,90,9,TEACHER,70,1005,BOY,70,3005,GIRL,70,3005,KID,70,4006,DOCTOR,70,1005,PRINCESS,90,4708
2630DATAHOME,69,8,SCHOOL,39,5015,PARK,19,7807,BEACH,9,8918,ZOO,9,8718,PLAYGROUND,9,9519,FOREST,9,8906,CASTLE,8
2650DATA3706,TOY,20,9008,BALL,10,9008,GAME,10,9009,BOOK,10,5006,DOLL,30,8008,TEDDY,50,8009,TRAIN,10,8007,BIKE,10,8007,ROBOT,20,7007,MOVIE,10,6008,BLOCK,10,9007,PUZZLE,10,8006,CRAYON,10,7006,PAINT,10,6006,KITE,10,8007,BOAT,10,6006,PLANE,10
2660DATA5005,DRUM,10,7005,PIANO,10,6006,TRUCK,10,7006,TREE,0,906,FLOWER,0,909,SUN,0,805,MOON,0,805,STAR,0,909,RAIN,0,1814,SNOW,0,2807,SKY,0,805,RAINBOW,0,909
2670DATAFIRE,0,2871,CAR,0,8004,MONSTER,0,4091,SONG,0,5008,PRESENT,20,6009,BIRTHDAY,0,5009,PHONE,0,3004,COMPUTER,0,4005,TV,0,5006
2680DATADRAGON,9000,4884,GHOST,0,4082,WITCH,50,3783,FAIRY,50,6808,ALIEN,0,3783,PIRATE,50,4784,TREASURE,20,7008
2685DATAICECREAM,900,9,HOTDOG,900,8,PANCAKE,900,9,DONUT,900,9,EGG,900,506,BROCCOLI,900,370,UNICORN,9010,6819,PONY,9020,5709,SANTA,70,7009,CLOWN,70,4784,POOL,9,8808,LEGO,10,9008,THUNDER,0,2871,PERSON,70,9,PLACE,9,9
2690DATA*
2700FO=0:Y$=X$:GOSUB2780:IFFO=1THENRETURN
2710RESTORE2770:LX=LEN(X$)
2720READSF$:IFSF$="!"THEN2750
2730READSC,SR$,SM:IFLX>SMANDRIGHT$(X$,LEN(SF$))=SF$THENY$=LEFT$(X$,LX-SC)+SR$:GOSUB2780:IFFO=1THENRETURN
2740GOTO2720
2750IFLX>2ANDRIGHT$(X$,1)="S"ANDRIGHT$(X$,2)<>"SS"THENY$=LEFT$(X$,LX-1):GOSUB2780
2760RETURN
2770DATAIES,3,Y,4,TOES,2,,4,SES,1,,4,CHES,2,,5,SHES,2,,5,!
2780RESTORE2570
2790READA$:IFA$="*"THENRETURN
2800READQ1,Q2:IFY$=A$THENFO=1:RETURN
2820GOTO2790
2830N1=INT(Q1/1000):N2=INT(Q1/100)-10*N1:N3=INT(Q1/10)-10*INT(Q1/100):N4=Q1-10*INT(Q1/10):N5=INT(Q2/1000):N6=INT(Q2/100)-10*N5:N7=INT(Q2/10)-10*INT(Q2/100):N8=Q2-10*INT(Q2/10):RETURN
2840IG$=""
2850IFN3>=7ANDN1<7THENIG$="PP"
2860IFN1>=7THENIG$="AN"
2870IFN2>=8ANDN1<7THENIG$="FD"
2880IFN4>=8THENIG$="PL"
2890IFN5>=8ANDIG$=""THENIG$="TY"
2900IFN6>=8ANDIG$=""THENIG$="NT"
2910VL=0:IFN8>N7THENVL=INT((N8+1)/3)
2920IFN7>N8THENVL=-INT((N7+1)/3)
2930RETURN
2940FO=0:IFAJ=1THENRESTORE3080 ELSERESTORE3040
2950AJ=0:READA$:IFA$="*"THENRETURN
2960READQ1:IFX$=A$THENFO=1:RETURN
2970GOTO2950
2990AJ=1:GOTO2940
3040DATAIS,0,AM,0,WAS,0,HAVE,0,HAD,0,DO,0,LIKE,2,LOVE,3,HATE,-3,WANT,1,NEED,1,FEEL,1,KNOW,0,SEE,0,EAT,1,DRINK,1,PLAY,2,SLEEP,0,CRY,-2,LAUGH,2,SING,2,GO,0,COME,0,MAKE,0,SAY,0,TELL,0,ASK,0,CAN,0,WILL,0,WOULD,0,TRY
3050DATA0,GET,0,READ,1,DRAW,2,SWIM,1,DANCE,2,FLY,2,UNDERSTAND,0,MEAN,0,TALK,0,RUN,1,JUMP,2,HUG,3,KISS,3,HELP,2,FIND,1,LOSE,-1,BREAK,-2,FIX,2,COOK,1,WASH,1,CATCH,1,SHOULD,0,LOOK,1,LISTEN,1
3060DATAREMEMBER,1,BUILD,2,HIDE,0,SEEK,1,CLIMB,1,RIDE,2,SHARE,2,PUSH,-1,BITE,-2,SMILE,2,HURT,-2,TICKLE,2,THINK,0,GUESS,0,WISH,1,MISS,-1
3070DATA*
3080DATAHAPPY,3,SAD,-3,ANGRY,-3,SCARED,-2,SCARY,-2,TIRED,-1,HUNGRY,-1,THIRSTY,-1,GOOD,2,BAD,-2,BIG,1,SMALL,1,NICE,2,MEAN,-2,FUNNY,2,SILLY,1,PRETTY,2,OLD,0,NEW,1,HOT,0,COLD,-1,YUMMY,2,YUCKY,-2,FUN,3,BORING,-2,BORED,-2,FAVORITE,3,BEST,3,WORST,-3
3090DATACOOL,2,GREAT,3,FINE,1,OK,0,SURE,1,SORRY,-1,SWEET,2,CUTE,2,BRAVE,2,STRONG,2,SPECIAL,3,LOST,-1,SICK,-2,WET,-1,DRY,0,LOUD,-1,QUIET,1,SOFT,1,HARD,0,FAST,1,SLOW,0,CLEAN,2,DIRTY,-2,BROKEN,-2,SHINY,2,ROUND,0,TALL,0,SLEEPY,-1
3100DATAEXCITED,3,WORRIED,-2,CALM,1,PROUD,2,SHY,-1,SAFE,2,DARK,-2,BRIGHT,2,STINKY,-2,AWESOME,3,GIANT,1,ALONE,-2,LONELY,-2,SMART,2
3110DATA*
3120OB$=""
3130IFVI=0ORVI>=NWTHENRETURN
3150OB$=W$(VI+1):IFVI+1<NWTHENFORJ=VI+2TONW:OB$=OB$+" "+W$(J):NEXTJ
3160XO$=OB$:GOSUB7420:OB$=XO$
3170IFLT$<>""AND(OB$="IT"OROB$="THEM"OROB$="THEY"OROB$="THOSE"OROB$="THIS"OROB$="THAT")THENOB$=LT$:IO$=LT$:O1=L1:O2=L2:GOSUB2830:GOSUB2840:RETURN
3180IFOB$="OF "+LT$OROB$="OF THEM"ANDLT$<>""THENOB$=LT$:IO$=LT$:O1=L1:O2=L2:GOSUB2830:GOSUB2840:RETURN
3210RI$=" "+OB$+" ":RESTORE3290
3220READA$:IFA$="*"THEN3300
3230READB$:A$=" "+A$+" ":B$=" "+B$+" ":M$=" @@ "
3240P=INSTR(RI$,A$):IFP=0THEN3280
3250RI$=LEFT$(RI$,P-1)+M$+RIGHT$(RI$,LEN(RI$)-P-LEN(A$)+1)
3260P=INSTR(RI$,B$):IFP>0THENRI$=LEFT$(RI$,P-1)+A$+RIGHT$(RI$,LEN(RI$)-P-LEN(B$)+1)
3270P=INSTR(RI$,M$):IFP>0THENRI$=LEFT$(RI$,P-1)+B$+RIGHT$(RI$,LEN(RI$)-P-LEN(M$)+1)
3280GOTO3220
3290DATAI,YOU,ME,YOU,MY,YOUR,AM,ARE,*,*
3300OB$=MID$(RI$,2,LEN(RI$)-2):RETURN
3560PM=0
3570FORZ=3TONW:IFW$(Z)="GIRL"THENRS$="YES! "+AM$+"A GIRL.":PM=1:RETURN
3580IFW$(Z)="BOY"THENRS$="NO SILLY! "+AM$+"A GIRL.":PM=1
3590NEXTZ:RETURN
3670R=RND(1):RS$="":JT=2:XP=1:IFQH=1ORNG>0THENXP=-1
3672IFIO$=""ANDLT$<>""ANDINSTR(SE$," IT ")+INSTR(SE$," THEM ")+INSTR(SE$," THAT ")+INSTR(SE$," THEY ")>0THENGOSUB7455
3674IFP9=1ANDNG=0ANDINSTR(" YES YEAH YEP YUP SURE OK "," "+J$+" ")+INSTR(SE$," ME TOO ")+INSTR(SE$," I DO ")>0THENIO$=PT$:GOSUB7452:RS$="YAY! WE BOTH LIKE "+PX$+"!":K$=IO$:GOTO7150
3676IFP9=1AND(J$="NO"ORJ$="NOPE")THENRS$="OH! WHAT "+PC$+" DO YOU LIKE?":PQ=2:RETURN
3678IFP9=2ANDIO$<>""ANDNW<3THENJ$="I":QK=1
3679IFQF=1ANDYO=0ANDQM=0ANDIO$<>""THENJ$="I":QK=1
3680IFJ$<>"WHY"THEN3690
3682IFIO$=""ANDLT$<>""AND(NW=1ORQK+QH>0)THENGOSUB7455
3684IFIO$=""THENRS$=D$+"KNOW WHY.":RETURN
3686GOSUB7360:RS$="BECAUSE "+PX$+" "+BE$+" "+QW$+"!":IFQW$="OK"THENRS$="BECAUSE!"
3688RETURN
3690IFQO=0ORJ$="I"ORJ$="MY"THEN3701
3692XC$=QC$:IFQH=0ANDNG=0THENXP=PL
3694IFXC$=""ANDLT$<>""THENGOSUB7370:XC$=CL$:Q1=L1:Q2=L2:GOTO3698
3696IFXC$=""THENXC$="ANIMAL"
3697GOSUB6040
3698GOSUB7545:IFNB$=""THENRS$="I LIKE ALL THE OTHER "+XC$+"S!":IFXP>0THENRS$="I DO NOT KNOW MORE "+XC$+"S!"
3699IFNB$<>""THENIO$=NB$:O1=B1:O2=B2:GOSUB7360:PL=XP:RS$="I LIKE "+PX$+" TOO! "+EX$:IFXP<0THENRS$=D$+"LIKE "+PX$+" EITHER! "+EX$
3700RETURN
3701IFINSTR(SE$," WHAT ABOUT ")+INSTR(SE$," HOW ABOUT ")>0ORJ$="AND"ANDNW<4THENIFIO$<>""ORW$(NW)="YOU"ORW$(NW)="ME"THENQK=1:YO=1:IFIO$=""ANDW$(NW)="YOU"ANDLT$<>""THENGOSUB7455
3702IFQC$<>""ANDQK+QH+QF=0ANDIA$=""ANDJ$<>"I"ANDJ$<>"MY"THENQK=1:YO=1
3703IFYO=0ORJ$="I"ORJ$="MY"THEN3780
3704IFQK+QH>0ANDINSTR(SE$," ME ")>0THENRS$="I LIKE YOU "+NM$+"!":RETURN
3706A$="":FORJ=2TONW-1:IFW$(J)="TO"THENA$=W$(J+1)
3708NEXTJ:IFA$=""ORIO$<>""THEN3716
3710IFJ$="WHAT"AND(A$="EAT"ORA$="DRINK")THENQC$="FOOD":QK=1:GOTO3716
3712IFA$="DO"ORJ$="WHAT"THENGOSUB3990:RS$="I LIKE TO "+A$+"! DO YOU?":RETURN
3714RS$="YES! "+LS$+A$+"!":RETURN
3716IFQK+QH+QF=0OR(IO$<>""ANDQC$="")THEN3740
3718XC$=QC$:IFJ$="WHO"THENXC$="PERSON"
3720IFQF=1ANDXC$=""ANDW$(NW)<>"FAVORITE"THENRS$=D$+"KNOW! "+WS$+"YOURS?":RETURN
3722IFXC$=""THENCI=CI+1:IFCI>6THENCI=1
3724IFXC$=""THENRESTORE6080:FORI9=1TOCI:READXC$,Q1,Q2:NEXTI9
3726GOSUB6040:PL=XP:PC$=XC$:IFQF=1THENJT=0
3728GOSUB7545:IFNB$=""THENRS$="I LIKE ALL "+XC$+"S!":RETURN
3730IO$=NB$:O1=B1:O2=B2:GOSUB7360:IFQF=1THENRS$=MV$+XC$+" IS "+PX$+"! "+WS$+"YOURS?":PQ=2:RETURN
3732IFXP<0THENRS$=D$+"LIKE "+PX$+"! "+EX$:RETURN
3734RS$="I LIKE "+PX$+"! YOU TOO?":PQ=1:PT$=IO$:RETURN
3740IFQK+QH=0ORIO$=""THEN3750
3742GOSUB7360:A$="NO! ":IFXP*VL>0THENA$="YES! "
3744RS$=A$+"I LIKE "+PX$+"! "+EX$:IFVL<0THENRS$=A$+D$+"LIKE "+PX$+"! "+EX$
3746IFVL=0THENRS$=PX$+" "+BE$+" OK."
3748PL=SGN(VL):RETURN
3750IFJ$="IS"ANDN$="YOU"ORJ$="YOU"ANDN$="IS"THEN3960
3752IFJ$="WHERE"THENRS$="I LIVE IN THE COMPUTER!":RETURN
3754IFJ$="WHAT"ANDN$="IS"ANDQ$="YOU"THENRS$="I AM TALKING TO YOU!":IFNW=3THENRS$=AM$+"A GIRL! "+AM$+"FIVE!"
3755IFRS$<>""THENRETURN
3756IFJ$<>"DO"ORNW<3THEN3758
3757RS$="YES! I "+Q$+" A LOT!":IFQ$="HAVE"THENRS$="NO. BUT I WANT ONE!"ELSEIFQ$="WANT"THENRS$="YES PLEASE!"ELSEIFQ$="KNOW"THENRS$="I KNOW LOTS OF THINGS!"
3758IFRS$<>""THENRETURN
3759IFJ$="CAN"ANDNW>=3THENRS$="I CAN "+Q$+"! WATCH ME!":RETURN
3780IFJ$<>"HOW"THEN3790
3782IFN$="OLD"THENRS$=AM$+"FIVE!":RETURN
3784IFN$="MANY"ORN$="MUCH"THENRS$="LOTS AND LOTS!":RETURN
3786IFN$="IS"ANDQ$="YOU"ORINSTR(SE$," FEEL ")>0THEN5580
3788RS$=D$+"KNOW HOW. "+TM$+"!":RETURN
3790IFJ$="CAN"ANDNW>=3THENRS$="YES! "+LS$+Q$+"!":IFN$="I"THENRS$="YES YOU CAN!"
3792IFRS$<>""THENRETURN
3800IFJ$<>"I"THEN3860
3802IFQK+QH=0THEN3830
3804IFYO>0ANDIO$=""THENRS$="I LIKE YOU TOO "+NM$+"!":IFXP<0THENRS$="THAT IS NOT NICE!":MD=MD-2
3805IFRS$<>""THENRETURN
3806IFLP>0ANDLP<NWTHENOB$=W$(LP+1):IFLP+1<NWTHENFORJ=LP+2TONW:OB$=OB$+" "+W$(J):NEXTJ
3808IFLP>0ANDLP<NWTHENGOSUB3210
3810IFIO$<>""THEN3816
3812IFOB$=""THENRS$=WY$+"LIKE?":RETURN
3814K$=OB$:RS$="ME TOO! I LIKE "+OB$+"!":IFXP<0THENRS$="ME TOO! "+D$+"LIKE "+OB$+"!":GOTO7180
3815GOTO7150
3816GOSUB7360:K$=IO$:PL=XP:RS$="ME TOO! "+PX$+" "+BE$+" "+QW$+"!":IFXP*VL<=0THENRS$="OH NO! I LIKE "+PX$+"!":IFXP>0THENRS$="REALLY? "+D$+"LIKE "+PX$+"!"
3818IFVL=0THENRS$=KS$+PX$+" "+BE$+" OK TOO."
3820IFXP<0THEN7180
3822GOTO7150
3830IFN$<>"AM"THEN3840
3832IFIA$=""THENRS$="YOU ARE "+OB$+"!":IFOB$=""THENRS$="YOU ARE WHAT?"
3833IFIA$=""THENRETURN
3834IFNG>0THENRS$="OH! WHY NOT "+IA$+"?":IFAV<0THENRS$="GOOD!"
3835IFNG>0THENRETURN
3836RS$="YOU ARE "+IA$+"!":IFAV>0THENRS$="YAY! I AM "+IA$+" TOO!"ELSEIFAV<0THENRS$="OH NO! WHY ARE YOU "+IA$+"?"
3838RETURN
3840IFIO$=""THEN3850
3842GOSUB7360:IFIV$="HAVE"THENRS$="WOW! YOU HAVE "+OB$+"! "+EX$:IFVL<0THENRS$="OH NO! YOU HAVE "+OB$+"? "+EX$
3843IFRS$<>""THENRETURN
3844IFIV$="WANT"THENRS$="ME TOO! I WANT "+OB$+"!":RETURN
3846RS$="COOL! I "+AC$+" "+PX$+" TOO!":IFVL<0THENRS$="EEK! "+PX$+" "+BE$+" "+QW$+"!"
3848RETURN
3850IFNG>0THENRS$="OH. OK.":RETURN
3852IFIV$="WANT"THENRS$="ME TOO! I WANT "+OB$+"!":RETURN
3854IFIV$<>""ANDOB$<>""THENRS$="WOW! YOU "+IV$+" "+OB$+"!":RETURN
3856GOTO3910
3860IFINSTR(SE$," MY ")=0ORNW<2THEN3870
3862A$=N$:IFIO$<>""THENA$=IO$
3864RS$=TA$+"YOUR "+A$+"!":IFIA$<>""THENRS$="YOUR "+A$+" IS "+IA$+"? WOW!":IFAV<0THENRS$="OH NO! POOR "+A$+"!"
3866RETURN
3870IFIA$=""ORIO$=""ORINSTR(SE$," IS ")=0THEN3880
3872GOSUB7360:RS$="YES! "+PX$+" "+BE$+" "+IA$+"!":IFAV*VL<0THENRS$="NO! I THINK "+PX$+" "+BE$+" "+QW$+"!"
3874RETURN
3880IFJ$="WHO"THENRS$="IS "+W$(NW)+" YOUR FRIEND?":IFIO$<>""THENGOSUB7380
3882IFJ$="WHERE"THENRS$=D$+"KNOW WHERE! "+TM$+"!"
3884IFJ$="WHAT"ANDN$="IS"ANDIO$=""ANDNW>2THENUX$=W$(NW):UQ=1:RS$=D$+"KNOW! "+WS$+"IT?"
3886IFRS$<>""THENRETURN
3890IFJ$="BECAUSE"THENRS$="OH! I SEE.":RETURN
3892IFINSTR(SE$," LET US ")=1ANDNW>2THENGOSUB7400:RS$="YAY! "+LS$+XO$+"!":RETURN
3894IFINSTR(" YES YEAH YEP OK SURE "," "+J$+" ")>0THENRS$="YAY!":IFR<.5THENRS$=KS$+TR$
3895IFJ$="NO"ORJ$="NOPE"THENRS$="OK. WHY NOT?"
3896IFJ$="MAYBE"THENRS$="MAYBE!"
3897IFRS$<>""THENRETURN
3900IFIO$<>""THENGOSUB7380:RETURN
3910IFQM>0THENRS$=D$+"KNOW! WHAT DO YOU THINK?":RETURN
3912IFCH$(2)<>""ANDR<.4THENIO$=CH$(2):O1=CA(2):O2=CB(2):GOSUB7360:RS$=WA$+PX$+"?":RETURN
3914IFR<.6THENRS$=TM$+"MORE "+NM$+"!":RETURN
3916IFR<.8THENRS$="THAT IS SO COOL!":RETURN
3918RS$="WOW! WHAT ELSE?":RETURN
3960IFJ$="IS"THEN3970
3962IFAV<0OR(IA$=""ANDVL<0)THENRS$="THAT IS NOT NICE! I AM SAD.":MD=MD-2:RETURN
3964IFIA$<>""THENRS$="THANK YOU! YOU ARE "+IA$+" TOO!":RETURN
3966GOTO3972
3970IFIA$<>""THENRS$="YES! "+AM$+IA$+"!":IFAV<0THENRS$="NO! "+AM$+"NOT "+IA$+"!"
3971IFRS$<>""THENRETURN
3972GOSUB3560:IFPM=0THENRS$="NO SILLY! "+AM$+"A GIRL!":IFIO$="FRIEND"THENRS$="YES! "+AM$+"YOUR FRIEND!"
3974PM=0:RETURN
3990RESTORE3040
3992READA$:IFA$="*"THEN3990
3994READQ1:IFQ1<2ORA$="LIKE"ORA$="LOVE"ORRND(1)>.2THEN3992
3996RETURN
4170GOSUB7520:PRINTRS$:IFIO$<>""THENGOSUB7460
4180RETURN
5580MS=MD+4:IFMS<1THENMS=1 ELSEIFMS>7THENMS=7
5590IFMS<3THENRS$=FE$+"SAD.":RETURN
5600IFMS<5THENRS$=FE$+"OK.":RETURN
5610IFMS<7THENRS$=FE$+"GOOD.":RETURN
5620RS$=FE$+"HAPPY.":RETURN
5770GOSUB5780:GOSUB5860:GOSUB5960:RETURN
5780CL$="THING"
5790IFN6>=8THENCL$="OUTSIDE THING"
5800IFN5>=8THENCL$="TOY"
5810IFN3>=7ANDN1<7THENCL$="PERSON"
5820IFN2>=8ANDN1<7THENCL$="FOOD"
5830IFN1>=7THENCL$="ANIMAL"
5840IFN4>=8THENCL$="PLACE"
5850RETURN
5860QL$="OK":IFN8>=7THENQL$="NICE"
5870IFN2>=8ANDN8>=6THENQL$="YUMMY"
5880IFN5>=8ANDN8>=6THENQL$="FUN"
5890IFN6>=8ANDN8>=6THENQL$="PRETTY"
5900IFN3>=7ANDN1<7ANDN8>=6THENQL$="SPECIAL"
5910IFN7>=7THENQL$="SCARY":IFN2>=8THENQL$="YUCKY"
5940QW$=QL$:AR$="A ":IFINSTR("OAEIU",LEFT$(QL$,1))>0THENAR$="AN "
5950QL$=AR$+QL$:RETURN
5960AC$="LIKE"
5970IFN2>=8THENAC$="EAT"
5980IFN5>=8THENAC$="PLAY WITH"
5990IFN4>=8THENAC$="GO TO"
6000IFN6>=8THENAC$="LOOK AT"
6010IFN3>=7THENAC$="HUG"
6020IFN7>=7THENAC$="STAY AWAY FROM"
6030RETURN
6040RESTORE6080:FORI9=1TO6:READA$,Q1,Q2:IFA$=XC$THENI9=6
6050NEXTI9:IFXP<0THENQ2=Q2+81
6060RETURN
6080DATAANIMAL,9000,9,FOOD,900,9,PERSON,90,9,PLACE,9,9,TOY,0,9009,OUTSIDE THING,0,909
6090PM=0:GOSUB6430:IFPM=1THENRETURNELSEGOSUB6160:IFPM=1THENRETURN
6100IFINSTR(SE$," MY NAME ")>0ANDQM>0THENRS$=YN$+NM$+".":PM=1:RETURN
6110IFINSTR(SE$," "+WS$+"YOUR NAME ")=1ORINSTR(SE$," "+YN$+"WHAT ")>0THENRS$=MN$+EZ$+".":PM=1:RETURN
6130IFINSTR(SE$," CALL YOU ")>0THENRS$="PEOPLE CALL ME "+EZ$+".":PM=1:RETURN
6140IFINSTR(SE$," WHO IS YOU ")=1THENRS$=AM$+EZ$+".":PM=1:RETURN
6150RETURN
6160IFNW<3THENRETURN
6170FORJ=1TONW-4:IFW$(J)="HAVE"ANDW$(J+1)="A"AND(W$(J+3)="CALLED"ORW$(J+3)="NAMED")THENR$=W$(J+2):V$=W$(J+4):GOSUB6360:GOSUB6320
6180NEXTJ:IFNW<5THEN6220
6200FORJ=1TONW-4:IFW$(J)="MY"ANDW$(J+2)="IS"AND(W$(J+3)="CALLED"ORW$(J+3)="NAMED")THENR$=W$(J+1):V$=W$(J+4):GOSUB6360:GOSUB6320
6210NEXTJ
6220FORJ=2TONW-2:IFW$(J)="IS"ANDW$(J+1)="MY"ANDINSTR(" HE SHE IT THIS THAT A AN THE WHO WHAT WHERE WHEN WHY HOW "," "+W$(J-1)+" ")=0THENR$=W$(J+2):V$=W$(J-1):GOSUB6360
6230NEXTJ
6240IFNW<>3ORW$(1)<>"MY"ORINSTR(" NAME FAVORITE IS WAS ARE "," "+W$(2)+" ")>0ORINSTR(" IS WAS A AN THE "," "+W$(3)+" ")>0THEN6250
6245X$=W$(3):GOSUB2940:IFFO=0THENGOSUB2990:IFFO=0THENR$=W$(2):V$=W$(3):GOSUB6360:RS$="OK! "+V$+" IS YOUR "+R$+".":PM=1
6250FORJ=1TONW-2:IFW$(J)="MY"ANDINSTR(" FRIEND SISTER BROTHER MOMMY DADDY TEACHER "," "+W$(J+1)+" ")>0ANDINSTR(" IS ARE WAS A AN THE TO OF "," "+W$(J+2)+" ")=0THENR$=W$(J+1):V$=W$(J+2):GOSUB6360
6260NEXTJ:IFNW<5THENRETURN
6280FORJ=1TONW-4:IFW$(J)="MY"ANDW$(J+2)="NAME"ANDW$(J+3)="IS"THENR$=W$(J+1):V$=W$(J+4):GOSUB6360:GOSUB6320
6290NEXTJ
6300FORJ=1TONW-4:IFW$(J)="MY"ANDW$(J+1)="FAVORITE"ANDW$(J+3)="IS"THENR$="FAV "+W$(J+2):V$=W$(NW):GOSUB6360:RS$="OK! "+V$+" IS A GOOD "+W$(J+2)+"!":PM=1
6310NEXTJ:RETURN
6320RS$=KS$+V$+" IS A NICE NAME!":PM=1:RETURN
6360IFV$=""ORR$=""THENRETURN
6370IFR$="NAME"THENNM$=V$:GOSUB7010:RETURN
6380FORI9=1TORN:IFRR$(I9)=R$THENRV$(I9)=V$:GOSUB7010:RETURN
6390NEXTI9
6400IFRN<5THENRN=RN+1:RR$(RN)=R$:RV$(RN)=V$:GOSUB7010:RETURN
6410FORI9=1TO4:RR$(I9)=RR$(I9+1):RV$(I9)=RV$(I9+1):NEXTI9
6420RR$(5)=R$:RV$(5)=V$:GOSUB7010:RETURN
6430IFINSTR(SE$," NAME OF MY ")>0ANDNW>=5THENR$=W$(NW):GOSUB6500:RETURN
6435IFINSTR(SE$," "+WS$+"MY ")=1ANDW$(NW)="NAME"ANDNW>=5THENR$=W$(4):GOSUB6500:RETURN
6440IFINSTR(SE$," WHO IS MY ")=1ANDNW>=4THENR$=W$(4):GOSUB6500:RETURN
6460IFINSTR(SE$," REMEMBER MY ")>0ANDNW>=3THENR$=W$(NW):GOSUB6500:RETURN
6470IFINSTR(SE$," "+WS$+"MY FAVORITE ")=1ANDNW>=5THENR$="FAV "+W$(5):GOSUB6500:RETURN
6480IFINSTR(SE$," HER NAME ")>0ORINSTR(SE$," HIS NAME ")>0THENGOSUB6550:RETURN
6490RETURN
6500IFR$=""THENRETURN
6510RB$=R$:IFLEFT$(R$,4)="FAV "THENRB$="FAVORITE "+MID$(R$,5)
6520FORI9=1TORN:IFRR$(I9)=R$THENRS$="YOUR "+RB$+" IS "+RV$(I9)+".":PM=1:RETURN
6530NEXTI9
6540RS$=D$+"KNOW YOUR "+RB$+". TELL ME!":PM=1:RETURN
6550FORI9=RNTO1STEP-1:IFLEFT$(RR$(I9),4)<>"FAV "THENR$=RR$(I9):GOSUB6500:RETURN
6560NEXTI9:RETURN
6570PM=0:IFUX$=""THENRETURN
6590IFNW>=4AND(INSTR(SE$," IT IS A ")=1ORINSTR(SE$," IT IS AN ")=1)THENX$=Z$:GOSUB2700:IFFO=1THENGOSUB6620:PM=1:RETURN
6600IFNW>=3ANDINSTR(SE$," IT IS ")=1THENX$=Q$:GOSUB2700:IFFO=1THENGOSUB6620:PM=1:RETURN
6610RETURN
6620GOSUB2830:GOSUB2840:GOSUB5770:RS$=KS$+UX$+" IS "+QL$+" "+CL$+"."
6640UX$="":UQ=0:RETURN
6650PM=0:IFNW<3ORINSTR(" WHAT WHO WHERE WHY HOW "," "+J$+" ")>0THENRETURN
6680FORZ=NWTO1STEP-1:X$=W$(Z)
6700IFINSTR(" I YOU ME MY YOUR A AN THE TO DO OR ABOUT WITH FOR OF IN ON AT BY AND SO NOT BE BUT VERY REALLY PLEASE NOW IT HE SHE THEY WE US THAT THIS "," "+X$+" ")>0THEN6760
6710IFINSTR(" TODAY HERE THERE THEN WHEN JUST ONLY MORE MUCH MANY ALL SOME ANY TOO ALSO ALWAYS NEVER MAYBE YES NO OK THING STUFF SOMETHING NOTHING EVERYTHING "," "+X$+" ")>0THEN6760
6720GOSUB2940:IFFO=1THEN6760
6730GOSUB2990:IFFO=1THEN6760
6740GOSUB2700:IFFO=1THEN6760
6750UX$=X$:UQ=1:RS$=WS$+UX$+"? "+D$+"KNOW.":PM=1:RETURN
6760NEXTZ:RETURN
6780RN=0:F$=MF$
6790ONERRORGOTO7000
6800OPEN F$ FOR APPEND AS #1:CLOSE
6810OPEN F$ FOR INPUT AS #1
6820IFEOF(1)THEN6990
6830LINEINPUT#1,A$
6840P=INSTR(A$,"="):IFP<2THEN6820
6850R$=LEFT$(A$,P-1):V$=MID$(A$,P+1):K$=MID$(A$,6)
6860IFLEFT$(A$,5)="NAME="THENNM$=K$:GOTO6820
6870IFLEFT$(A$,5)="LIKE="ANDK$<>""THENGOSUB7150:GOTO6820
6880IFLEFT$(A$,5)="HATE="ANDK$<>""THENGOSUB7180:GOTO6820
6890IFR$=""ORV$=""THEN6820
6900FORI9=1TORN:IFRR$(I9)=R$THENRV$(I9)=V$:GOTO6820
6910NEXTI9:IFRN<5THENRN=RN+1:RR$(RN)=R$:RV$(RN)=V$
6920GOTO6820
6990CLOSE:ONERRORGOTO0:SV=1:GOSUB7010:RETURN
7000ONERRORGOTO0:SV=1:RETURN
7010F$=MF$:ONERRORGOTO7110
7020OPEN F$ FOR OUTPUT AS #1
7030IFNM$<>""THENPRINT#1,"NAME="+NM$
7040FORI9=1TONL:IFUL$(I9)<>""THENPRINT#1,"LIKE="+UL$(I9)
7050NEXTI9
7060FORI9=1TONH:IFUH$(I9)<>""THENPRINT#1,"HATE="+UH$(I9)
7070NEXTI9
7080FORI9=1TORN:IFRR$(I9)<>""ANDRV$(I9)<>""THENPRINT#1,RR$(I9)+"="+RV$(I9)
7090NEXTI9
7100CLOSE:ONERRORGOTO0:RETURN
7110ONERRORGOTO0:RETURN
7150FORI9=1TONL:IFUL$(I9)=K$THENRETURN
7160NEXTI9:IFNL<10THENNL=NL+1:UL$(NL)=K$:IFSV=1THENGOSUB7010
7170RETURN
7180FORI9=1TONH:IFUH$(I9)=K$THENRETURN
7190NEXTI9:IFNH<10THENNH=NH+1:UH$(NH)=K$:IFSV=1THENGOSUB7010
7200RETURN
7210PM=0
7220IFINSTR(SE$," WHAT DO I LIKE ")=1THENGOSUB7270:PM=1:RETURN
7230IFINSTR(SE$," WHAT DO I HATE ")=1THENGOSUB7290:PM=1:RETURN
7240IFNW>=3ANDINSTR(SE$," "+DY$)=1AND(Q$="REMEMBER"ORQ$="KNOW")ANDZ$="ME"THENGOSUB7310:PM=1:RETURN
7245IFJ$="WHAT"AND(INSTR(SE$," WE TALK")>0ORINSTR(SE$," DID I SAY ")>0)THENGOSUB7490:PM=1:RETURN
7250IFINSTR(SE$," "+WY$+"KNOW ABOUT ME ")=1THENGOSUB7310:PM=1:RETURN
7255IFINSTR(SE$," STORY ")+INSTR(SE$," JOKE ")=0THENRETURN
7256XC$="ANIMAL":XP=1:JT=2:GOSUB6040:GOSUB7545:B$=NB$:XC$="FOOD":GOSUB6040:GOSUB7545:PM=1:RS$="ONCE THE "+B$+" FOUND THE "+NB$+"! YUM! THE END!"
7257IFINSTR(SE$," JOKE ")THENRS$="WHY DID THE "+B$+" CROSS THE ROAD? TO GET THE "+NB$+"! HA HA!"
7258RETURN
7270IFNL=0THENRS$=D$+"KNOW YET. TELL ME!":RETURN
7280RS$=YK$+UL$(1):IFNL>1THENFORI9=2TONL:RS$=RS$+", "+UL$(I9):NEXTI9
7285RS$=RS$+".":RETURN
7290IFNH=0THENRS$=D$+"KNOW. TELL ME!":RETURN
7300RS$="YOU HATE "+UH$(1):IFNH>1THENFORI9=2TONH:RS$=RS$+", "+UH$(I9):NEXTI9
7305RS$=RS$+".":RETURN
7310RS$=YN$+NM$+"."
7320IFNL>0THENRS$=RS$+" "+YK$+UL$(1)+"."
7330IFNH>0THENRS$=RS$+" YOU HATE "+UH$(1)+"."
7340IFRN>0THENFORI9=1TORN:RS$=RS$+" YOUR "+RR$(I9)+" IS "+RV$(I9)+".":NEXTI9
7350RETURN
7360Q1=O1:Q2=O2:A$=IO$
7365GOSUB2830:GOSUB2840:GOSUB5770:EX$="SO "+QW$+"!":IFQW$="OK"THENEX$=""ELSEIFQW$="YUMMY"THENEX$="YUM!"ELSEIFQW$="YUCKY"THENEX$="YUCK!"
7367GOTO7620
7370Q1=L1:Q2=L2:A$=LT$:GOTO7365
7380GOSUB7360:RS$=PX$+" IS "+QL$+" "+CL$+"!":IFBE$="ARE"THENRS$=PX$+" ARE "+QW$+" "+CL$+"S!"
7390RETURN
7400XO$="":IFNW>=3THENXO$=Q$:IFNW>3THENFORJ=4TONW:XO$=XO$+" "+W$(J):NEXTJ
7410RETURN
7420IFLEFT$(XO$,2)="A "THENXO$=RIGHT$(XO$,LEN(XO$)-2)
7430IFLEFT$(XO$,3)="AN "THENXO$=RIGHT$(XO$,LEN(XO$)-3)
7440IFLEFT$(XO$,4)="THE "THENXO$=RIGHT$(XO$,LEN(XO$)-4)
7450RETURN
7452X$=IO$:GOSUB2700:O1=Q1:O2=Q2:GOTO7360
7455IO$=LT$:O1=L1:O2=L2:Q1=L1:Q2=L2:GOSUB2830:GOTO2840
7460IFIO$=CH$(1)THEN7480
7470CH$(3)=CH$(2):CA(3)=CA(2):CB(3)=CB(2):CH$(2)=CH$(1):CA(2)=CA(1):CB(2)=CB(1):CH$(1)=IO$:IFCH$(3)=IO$THENCH$(3)=""
7480CA(1)=O1:CB(1)=O2:LT$=IO$:L1=O1:L2=O2:RETURN
7490RS$="":FORI9=3TO1STEP-1:IFCH$(I9)=""THEN7510
7500IFRS$=""THENRS$=CH$(I9)ELSERS$=RS$+" AND "+CH$(I9)
7510NEXTI9:IFRS$=""THENRS$="WE JUST STARTED TALKING!":RETURN
7515RS$="WE TALKED ABOUT "+RS$+"!":RETURN
7520IFRS$=""THENRS$=TR$
7530IFRS$<>RH$(1)ANDRS$<>RH$(2)ANDRS$<>RH$(3)THEN7610
7535PQ=0:A$="I TOLD YOU! "+RS$:IFQM>0ANDLEN(RS$)<99ANDA$<>RH$(1)ANDA$<>RH$(2)ANDA$<>RH$(3)THENRS$=A$:GOTO7610
7540IFIO$=""THEN7600
7542GOSUB7360:XC$=CL$:XP=0:JT=2:Q1=O1:Q2=O2:GOSUB7545:IFNB$=""THEN7600
7544IO$=NB$:O1=B1:O2=B2:GOSUB7360:RS$=WA$+PX$+"? "+EX$:GOTO7610
7545GOSUB2830:M1=N1:M2=N2:M3=N3:M4=N4:M5=N5:M6=N6:M7=N7:M8=N8:X8$=" "+IO$+" ":IFJT>0THENX8$=X8$+LEFT$(RH$(1),40)+" "+LEFT$(RH$(2),40)+" "+LEFT$(RH$(3),40)+" "+CH$(1)+" "+CH$(2)+" "+CH$(3)+" "
7550RESTORE2570:NB$="":BD=99
7560READA$:IFA$="*"THENRETURN
7570READQ1,Q2:IFINSTR(X8$," "+A$)>0ORINSTR(" FOOD ANIMAL TOY PERSON PLACE "," "+A$+" ")>0THEN7560
7575GOSUB2830:GOSUB2840:IFXP*VL<=0ANDXP<>0THEN7560
7577IFXC$<>""THENGOSUB5780:IFCL$<>XC$THEN7560
7580D9=ABS(N1-M1)+ABS(N2-M2)+ABS(N3-M3)+ABS(N4-M4)+ABS(N5-M5)+ABS(N6-M6)+ABS(N7-M7)+ABS(N8-M8)+RND(1)*JT:IFD9<BDTHENBD=D9:NB$=A$:B1=Q1:B2=Q2:IFBD<JT/2THENRETURN
7585GOTO7560
7600AL=AL+1:IFAL>3THENAL=1
7605IFAL=1THENRS$=LS$+"TALK ABOUT SOMETHING NEW!"ELSEIFAL=2THENRS$="ASK ME A QUESTION!"ELSERS$=TM$+"A STORY!"
7610RH$(3)=RH$(2):RH$(2)=RH$(1):RH$(1)=RS$:RETURN
7620PX$=A$:BE$="IS":IFCL$="PLACE"THENPX$="THE "+A$:IFA$="HOME"ORA$="SCHOOL"THENPX$=A$
7630IFCL$="PLACE"ORINSTR(" MILK WATER JUICE CHEESE BREAD CORN CANDY CHOCOLATE ICECREAM SODA PIZZA BROCCOLI FISH SHEEP DEER SNOW RAIN FIRE SKY SUN MOON THUNDER LEGO TV MOMMY DADDY FAMILY GRANDMA GRANDPA SANTA FOOD "," "+A$+" ")>0THENRETURN
7635BE$="ARE":E$=RIGHT$(A$,1):IFE$="Y"ANDINSTR("AEIOU",MID$("  "+A$,LEN(A$)+1,1))=0THENPX$=LEFT$(A$,LEN(A$)-1)+"IES":RETURN
7640PX$=A$+"S":IFE$="S"ORE$="H"ORE$="X"THENPX$=A$+"ES"
7645RETURN