'=========================================================================== ' Subject: ARTIFICIAL CHAT PROGRAM Date: 01-09-98 (12:25) ' Author: Sam Mckoy Code: QB, QBasic, PDS ' Origin: fam.mckoy@xtra.co.nz Packet: AI.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TALK.ZIP",4^6:Z&=12435:?STRING$(50,177); U"%up()%9%%%#-%2'[OI87=f$12%%%]L%%%-%%%%yf%qpSgRfx6)qJB[?6+xnOo7h U"#Z(9_MAZ=+<8)m%CZd^,mUTB46mkT97k*2x<%+Hrd' U"_\bbBVbXx0F)YE.kyY'oRT1Q1MAaFh&thNYn U"kf4Efmhs\vsOQ)5^9(Pr,PCuOYu0#kXN:?oqhWw7H(\uv(YJ,VH.1;:\_Ufr5MU U"G\>i:Ef=IQ9a]QtEK'GT:;+.D'>.V^=-(*925aG2D7a9VxaSBR7G>ll-]6T6'0p U"34*>;:6G=9bdc[%D;F0b6>#/D[fhp[\D5g)*;m\6Ze;YXCP,*X383kU&h4 U"Z#5UO3_kFmhV19Ie#cPtRR)#X5:N7/N:$i'A:%cmE3q,N>;(-%#AUD8]2417psX U"Sn4oqmPfRa)Srh9-c]hh&fJT2t%KNcwlaPdhb$HD U"CPlO?Cam,JHu/OaJC([dKixhS?juJ6jl(:Z8pmzhEydMLHzdq(0%P]6pjAXSo,Rd(+I=+=F%V-,Q> U"G.WRa;SQ#1&>]uLCfi1F>u8n-)91Y1')#.j_UpQ=Er^M_i)41uI1WeJ-X81eVm$ U"RR#+V+G\rh(ejNVYTE^KjN3Zm]-J'qkFdg2PL2cEb-)0kge1/1qtz:<AZ6$O1*nC+\oO1%2%h_Z#DM%xcXd U"\ueL)6BbUQ&w&7D#/(KO27u3vXT[k&$7\k^&:Mb5GLPos1'nc*n.'[A0.=PvHwA U"=U&Rip#^h:f2X;q>3F#H9])<)m2k?FfFmnb>W\?=id?\a#1,ke2=jD,Dh6D0GwF U".%dB$Fg5Cqn^_yF1D_SX[tS781$N_7oE$^R&Ssi20_koFCR+IX9G*BuX(EGWPLh U"TXMiAMT=5\80bT'Q[Vq4b\qkn;8e2FQ+-0[$luxR0&Yn#g0fy3$W_M0sQ#NP(7b U"wgA)5k.:;c$_G]1:O:ZWv*#fr=CXGI0,F U"*-gS)DWm2IIOP,7Lh9,V*5>kWsp7+-/Q7(g:;W)?&VG5/g12J0g=ZT6c&z/dNy= U"Wd5dA0u[0v_LTm,oc?bbKn&A#r.O$S[#YN2Pqf;zOPi#CsLF=VZ U"Og#r8\-N%Tu9->Md$J?RN,(gPOC/92dIQHGSg6wR?M)PtEd)soC]C$Pe$#4abLG U"%Zb+3-T/NOoZn.af^7q-qw/_bLGz&-Uc3Y]Mp*MYFv_>P\lE&qP=p5JxuYyP%?U U"xOpst)bu0:1]7fhG)lkfo]jc$6&9j\l_7fQe$Wz9#TL:H#\&PAa/6'g4L+vgMK2 U"BsP#cyP0d2#[SqocEB7U*,3_SFaInG&ci-EQS'GkTj_BqV:><;.AhdG/3UKfGh5 U"T^I17.lzg6\#aYrG;X]A,=Z\ulBU6qEh&oalPb*v)XYbhO_a2*I,(UicB\W U"2;9zNG(>$mC>?wI?myfd.u?E16+h4cutdN]lALTBN=y\,dLMdD(?#Pp_n6h.oZ6 U"fab/rfkO;-X_u9em0#GD+Wh)*;W7#d;KpPdo+)lw+9CC*VG9M$on;=D>?E,l,-7 U"fWBD_'Y12#oHrZ#HKxCslhwcX%inP^sL'H4Wo;1m'p0C\3dS)co-btK) U"m1X*PlyL:]z7&^8D3kTcr.3t\P<)_Z:,:oY^7BvdcD*'5p$4WiR=D-+dU.r1P=\ U"o'y0-\t?^n7?KYNjRB%=Oxdt(fi+MbdirQ&]XeQkR?p8CA=kw6'THyfl>uL)ghH U"/?E89JCjeKn7ifx(;I1[/^$p'r^bCf<9'w_0E:+qcW^^^idYg*gsbXS1Q U"m+pE(uurHHfZxfG>CS72scZgn]VZF2 U"]PFA#(>uoDbtwvLv-pMhv^sr,J)#XkrpJ'2S+yT6^nbd#pXSJ4Ld*_kE.ryVl(T U"0J8:FRSFm=N$^X6b5J*Gn/Y?WM2M760\K),fN6Sno=Cj'N;wms5reVy4[HEp,ot U"ILFJ(L9tuaM6+Y9TpDs3Oe1PJBMz,P5Csx4A%PxjcOd^0/,tqDHF-t?U;y6tQ31 U"+y;yvo;&9dv$9i=oC,fVj$^yfOxSE8uti(V>klTBwq2eW>L?BbqJTc>X>X/xa5c U"wJrvK\GF^6w^4/c8VNr]DSQ9U8A/3lhACUSLjC+Nq0P'-9=IYhemdXkP^5naR-6OxHxt$T=<%mVzYd U"P$VGrLg(v7[-i_-GupWkJeG;*=6TH8S4i2)*>MlZ6q\L^)ZYiSQVZ+pAWT4(4cV U"83s=/QGbjSixlleFM#uai3J-/Rqcs3QspJ% U"5)Ue^frQ1WHA,#Iy??+qQ5SGB%F0KMrUetbAvqgYRr_Q-lfNPlL-d,GAxa,,5cj U"tCA^;b,A(xKXD_]-pddRlH\2&K%1G'1cd?Q U"b/fqWk%ArdCr)d8/+H9\*%y4iKmOmt:7Od?gsR7I>_du>d-uss#Y3\[aDoKMFpb1oL)N_m1O#wTW-$;8;.$eIC)l0(BKoD]e*d]X=X0)22djI;B\EK U"F,&*rpAr6Aslca\%VzALK5sHDeqSBrtadk:5dEt9OKic*H6DZl.=NH9,87:ldC8 U"zau)#CMYE'fEH'T[WlS%3k6P?C5tKlt:eR=J>QP)4Q1cj(Xu*YbCFU6ZZOp05qL U"Ybf5u[^aK);G\Wk5+x%E0lOtX%UkqKqrt0Zkq1XQO.1*+CXjV9Z*4w\hHn2#%?D U"Hr+RHKqTo/u-kpf9+X9NI^jISc07&VgurX#<4X?8M_ac0qV>oi$Z2lxS*JH(l&v U"M7BmE^9;tBKX#>axx,tvI]MG+E;?m9/g(8)mMn8NDOYFR0tprCW2IoP9Mo7IM35 U"+^1CaEb^N$flLxG,fL(bP+/tG-k8up%()9%%%%-%'lyNIYtT$X'm%%%&:&%%%-% U"%%%stzs%SqxyCb^f9'>U1i9p+Vf?4'SgbpIS3&?7J;$*tETad]78>ZKlxT^,3$1 U"VrHX5IC+#rc[phcXt4GP9Q1-2.U'vSI>A?Go%$M^ZDf-ppTioL&0%;m^r. U"YL943(aE-i1=xm#Eq[)/W4A-hSd;pH%nc(#&RhmG-3EF$Vd;-CLfU#z1gVhf\+M U"U3-VVEd.2 U"asHJ+o\a,=$eOb/ilUs6km5pP$]pn0HfZ;EjA>iNjAHS9s_s U"*$lA^tKt+SUB1+&hdsfmG]WEF#m5Eb[]h3IVCaRbGK2A,R0u(KA3v+PG7Ff'EuC U"PX>fN8>Xg>3-LAQ/0)yH7IXT6j U"?5q&xOhI4-i$VwoYIa3XKGUKR;rq&_<87s9BR9He6h5H[k:jFceUc#0r?BiGBNTmJc*_D=F8MkU U"w\*/r0omFT\iF:brtF#P.K9C#qZC3tRIJmN(;l);G53jK%JrCe5?nrWrr&CcTk\ U"RMd U"Eh5wEHdzx>>7a04znR^uR;f%ZBCl_2y?chK_F3ogk$6bmDjo?xK_1'\:M-G]c$s U"Rsm%,up(%)/%%[%%%T#vNI.8W.8B%%%%B%%%%-%%%%y%fqpS#hkl2L_+60M<4B+ U"MB0<+M?iAhTGGs&HP]_3rVU%%^ebUi/Z6))B7UuYd,8.MWz>O2^2WPLT&_ U"z2j^zXBIOd-1S.&<0H5oMtg\ehHgb3%s7Yh$'[?)9J#2AD%/'0&8\-o)%0'%u%p U"()9%%%%-1%1)N=I#dd,F$%%+%u%%%%.%%%%xyf%wySq[xyxp'j13v*iFx-(3#1/ U"A#2w?'l4w-t#mjODBA1%Ti0nD^'Y^26sqVPs2QZzHHINfm*'MS_s/Gw7(&pe>/,\ok_>-SPX-$I/J&*.&nW U"W#Y2/N6t0#5&B+dPE<%%up(%)9%%[%-%i%yNImCeIlF#%%%M%%%%,%%%%f%ioSq U"[xyxp'j13vEiFx?PCjADF3j1Bg2%?l#4w-#ZmjOBnA1_^mWY[^%/3.2riCZ^5Ao U"#2\B2'k/LBRg>G2UAMRP3/;wv,\=uE#dqkfDLaT=ZAmZ]=LiHlfD'Bd-q6t2U+3 U"rVG_g(DSsm&rjpupZ^k/?1A&%%up(%)9%%#%-%UA0NI76UDvf%?%%%&G&%/%%%% U"w%jfir%jSit4hfl0JCA&Hl#(3$.FLZ243?#xK1)7aQ?1UQOhKu$P1(20CpAQXH= U"-.-T&kO)C$$usc\Ht+3\W+2XK[TtH U"+QUaX<.\v+PI3qd_/F/=Dgn+l#3b,)C*l&lL U".to6:ezr5OEHSmj*&TG_Qm2&_R%ed5p,p2$I>f$+e82b(mA/70C6Tm/a19a7a4/odSS+Z U"#[FnffvI^%C^-F:S+t>pfI:0I3758IJ-8'S*2fc\ktdD\llFuH(d<3XbL^BDs;0p_KuakxY,UBy/P?mom/I^l4jUceD U"58GKd&nHB.GkRaSbq,]=OEZh'T;X*S_6 U"1.HMSv$'f;XUoiF^8]1*ZLPQrNmi),Y0]Ot&ylpLZo9Y8w$dR#4mgKPPyB[d$0d U"Vlt)mM4'n,Df)zhG&fS+O11T,X$;kdsfC,RqN0tWX5TVUQfQDo9x3SD8A42Dt&F U";M0RBE0S(pRKM7c]5Bkj_y^:Ax]9EZe_umaZ2L.Lek,0'UuiA45Bu,P)Pb22^&U U"mV.RDC^cfrBb.vP;b%LUSf^t11\a<-i&KW&b^_Ysk0crdnR.M:K8suMx_pf6d,b U"SPt6u#Lp\45A6[r3VYxrQ>%MkJ0M$#]qdq7OlPPVx&JwvYUGDN]&PV_]Fo#+Elf U"UCrQ9a4%-4afMb*IW5M4CwkK>'G?<7+K/pjIW>W(o2ai2e-A?fH^Xl,,VbIyfnr U"ehaTh^MY#UIoLCL>U_kYUhZR8h,nt,E2XguD?gscurO^rJGW*WKsYI_1ZoS4>yd_Yp_v^D/joVop#v.RGHoGd#o23^b]f>X%_[]WLaiI4 U"N2'qTDAmv/0'PeWp*CbiSKS8NtrI]bNED5*'R=P%W<3'o&4p__/z<76iNfu*+*S U"yM8e[KfbYc4_;56RWP;>9vo2N,5_;U^fMo-gpa_u^&XD%rOU:Ux6:Y<7mRL/QiI U":umvM)poj?1KT+]#+SX\ds2kjK^DOe,]A'TAB9y;gnFA/5#5//I>LWtf$I%X(%, U"b(_zd$tjBFNliG0e2gz3X'%J=HG;bqm:Z]&(R'==;V;5kH8l:7NdZU*M_8t>NU6 U"V?r[X=G,/49Ws(sAq#L>g1d2(uovJf+S&?$Iv^i_9?E)%VeC+^\_b U"Mjho):N*bkpfjL_jKip2CR*b.j[X&W:r7iBDBQc4$76Z,/=UNH'tAkxthHccRNs U"d4/SAI_?B<>Q&JCHGSfRH5C/5FOUUk79^Y44^J;+2_d6jg76][ZTGq,-IR_uW.J U"5HQVp29DLSR?phHbl1lsg$odis3DQW;&T_MQ.+m#\8-iC1^G)X/S%eV0X.wUHyQ U"'tlO$.exWR;SU?Tmb^J.O/]'5Jb/MoHdt2ea-%r+CSmiR;jiF:s.aaQriQ?mLXL U".29BgU>9JWXyr0:*IctZPdm8+;)uTW*_Ismgr[hc%wk>4j<+kSRcc^%gg[IP(E$ U"0^7CK[xSFnEQJjPr'w'M>fS6PIbUiuZTLb,PCtmChi]\I3mZV+U+FJp[YB>7>SKf(g U"hjU/ogARTYNnQm/Pr*l7[28_jZ1lgdB>vT:kUH#Ar$+-Ddu(**0ull6Ro2$NKC? U"G4Q66]dbkVo-KV$ktUjriO[3J3+9t5_<)V[T/HBC[[_v*j7 U"DlliYGd6uX#HCU5U)5:u(nORjmXYUe1TC#qLJ]Od U"1Gg-XkgfbvpaKKcja5&PFhw6'HNLFWHFEkr.sCFofG$,S6p(s6 U"ige9z>RRivG^O]U0X+S/A4P:Uy7Vc6B5x+Z0-Pj5aAL4ksUrAtHZBuba_Wm*?GgD%TSa\%LqRlB4P:fLWX$OQsxA97j,N$q1c)y6ukmAx U"f;K=>i-UvlA)f*/)LZPp1a^VG3]8lL4>D9C*tWEakfxsQ=E[=<1Sg5YrF9$3NNI U"flk6t.8D,?\rrB54kEMum2U>nD4^ssV2Uiki;^PmiFiMYY5-SoZNXtnF\#uk'iV U".8FwK,$HUArogh)J8fPUaA]7Rls/Rh*Zv[Q_ZGaK?q%/Ao_$O\j,t$-j&_t^0x6 U"=Im9%.//7kvHj]m*F1,&mM%znGZ[BGjEUGO=V=H?7VOv[_hXQ649\/:x:Bu>8.x U"x0oS$+Z8uNUg1,Qk1)IXiWIuim&;g(8_\jF*/[/1CAvOHf^+Q2)+b/5L U"0uBLfbgvP]NbNnVj1+EC<0mAYe'd%5G]b\G+GbPM$gp>;jZn>i/$y?(S_ U",?u(gk1jgY^u/*hDekm*H.X7sF;/)n_fp$PU4MOtgOwvINI9a2W:yT2,Ot[6phR U"bJH:2uh*npKu7Cq$LX'AgEz)8RYO79#Xmh?ABkmI/OEfX0y=;v*4yYKOe_6o_xc U"C;Q+v8WyS+FNTEf2T\OkGQeg*I+O)gEcVfp&>Xvno,f(j=\9L;GqDmx%*abWaRw U"\;Mi*KUQt;uP6tt;F.?hmI*YmX)0HmMg//i'F U"th5Dn?*1n_iiCD2[-/5>nS'VRI0i1C[+=rX U"g,iExi]SI-JRsfpk]/rgXH#P?gsvuW:Y<=0/3kWqedx-gZIuYd3P6i+wssF5BjN U"=D0;4PR=Ut6C,V-mFUa>BriCkbRYI?GF*-1T;hnc5'3lQ;[gEpQR2*1[xu[QRK2 U"RqaTZV0J:;6whHn3#(oSm#R0_6MR/1#IU$QY6%k9:umDsQ+tGY14/dslc0,>L85 U"BGPy1B(.%_N3)7JYrk4./H^PW0B5ujC$a:-acY\M+5O(moi0iyZtEJg$OhT/15AqC'>.X#f,KiX U"94QO*\kq&*0O3w()J)W):89a U"J:%%IW#mDDp8T3,pkpY,.YZqA2$PBBQR;6ld)IoLzkmR$MX>TLqVvP%&,HKwdP U"hpt<[G0kU\x0jY>7RW7'#BpiqmZn^,&LQNKP;16P#\V=*-_GKE&?:HZgU2b;^:1mrm'E7ITh?)Y\S U"+4VZC8YWVW#&QDooYD_vX1ReoZ1:R8hF9p6A(#TJw^YPPm U"GN35Y4fIqn]BVZM#aj>RU/YD%ldQwsqsdp;XDTBm.q<43$h+peH#CtZ:]bSY,$D U"$>w8IH=igDX_c+3#n-sm4BqvpKn:dT%[-Lq6a_P(d,5SAc3i1?(W/G]$&225]> U"la^VYxFWlJrYQu'4g3[pam$)w#6JGyh[)pY\4e^d,K$YBYM+s#Tt:3=3QM=j0cs U"i*;PMrkxGXVY*J/.anw#MX[ejVAlabVdGf5<4Q3AXUrFod03BVV?pwAJ=emmdt% U")GGzkf9f?CRhU;/[H/8q/__v/6d_(T/H]^J>>Nh&eZev=PWf8$*i:Xd39\0?V)( U"MG[C%(Fmo((a)Y=:)7aA2gWYHh,HX3HTO;#.nN'Z0/R%1[1;v]iy>^gfB5aGnm[ U"WcMO*o3/L/kk#8XQ.pjsZZH>HkEboPH.OG\XWB5uBFDa.#rdK\8S4X3TPvTr#K641eC65-mgkj'MIaz_U]_>.B^3U>b U"6vMPCVFqGbO)07H1?<4V]_n?)2S6CmRhIK5/+GWIR:#f5uj\2e#tg6^r9\'_?bj U"q?'KKKGXZSI)Z;LvnS(DAjG<73tDJZ&]b+b.CxulA&3b_ArB%KBat-a4FX U"IYiU%Rg#>m/:H*0?P\Q*CiXfxea#&JU8H[#$KH=sKQUOc=H^]N4&:hORnp07xII U"fAx-0$asTc9F\Nkt$fRnKNNj&CLN,Kg;n=(a4l&5l U"Gbd?iOtInR)[b[+x64-2G84ade/FH\BNm4aT1<[?Rt0SRqXT4CDL4e+bGC=cn1) END SUB SUB V2 U"bpGX/7mh.psNR3hqxiALWf_DF_BTIXJ>VQ\ZoX&V=aD_gwj1sBaY U"lI4';aQW296,3*os0wajVk-akLIQLahoJpt5otptTllg$0HeN08L;sA0mYOb.B U"'G\kgCgcE=GKQhTX6H4qQ7aDzkOHaAc*ZI>ts\Tj9haX3iYTsKl%4TAzW_VPvl&OtlF,LQ\,BG;%b&IK/m1It$ZvBqHg6QxS$vR*XZhNi;&m+oB[A#8p:m$[.D/Rr.Ho1mL^gbr\NR6=ofVKdL$ys#H U"1fmg(k-FbwR)\mCFMp9mG8,CcgZHZR7mdOLeWpaH+n$^XNZGxEx4[<<:H93rEX1 U":.mAb8;xr:O:;X#[aRs1FHyBSQ_ls]HK.HZG]bSP(TsIS(MZx9Ex^5jyc8TSR65 U"HVIlagSVW/d*&:*v6j=3I=a^ruCI/:1Fhf6At1Zu&AcLly4-LESLOl[ShvS[0*H U"KLl'nZ9stmc:b%$RQQ7=.H?KH?_UG,d;)^wmvN-Q.aBHPSQgdrGhi2[i62,xeC( U"6G,xUEVGk'Y>;,T9:Nk9RHXZ8ZAxud7TtjmIzaf>:r?3BJik'MlTkcwnIl-LfNkMYJaE,5PmksiE U"i;pmE'Jma$i[^H#%U$C0cEmcO$ES6Ht>Ln33b3L4CXERZB1:;Dg6\b0e]m.?B1: U"1uD,RX+e0*qZq:aSK$VEHb'?U#%Ka$Po#[upp(G03;Y0unX[9LqBS2=\4[tz+V\ U";VxFmT32mia&UHTg>G5pW[[*wzH6O;O-;.$(/XkH?VfDQQ>ln7r\bH?/Z5VCz.S U"_61.HK=7mX#Ja8mkX>i$XoUnBh-^0QB$PmFrRtaij'm5aaBIrI;Jppf'0f4eI4g U"nVCCQ;pClolp=xY-xkpLon?IRIHv-LXp+d U"lZlL#JsA(UOMDjn8h=HC,NGi.$$NK%^(Jn8 U"JpXOI]KeiTzHve;Fn,k+7-A$ZJP2Ht)RFc)5vFs>xDV]iXctU6nvOZH7D6ZX[,N U"u$,(jlR\Kog=nL*DAjSnObA6nlZ,JrNebKEb[Hc;n6D],?Tqe;CcJLn<6RA2nla U"d#Vsvf.+&;NbXc(BBg/dkG-kr3Fb^,AGEkFZFrX,BPd#OHsEnda#Dsa<]azk%D= U"&x#B$rBctUVnv_ZH7H6ZX_,>ukRPrrenre:PKoJgcJcHsC[,HZkRvK]oNctL)nL U"cTHcE6N0bu(V:g.1V[_,'fuX5pb_cPg'T,sHndD[l$xN]NChmf%tbL*VOsEh<:E U"sxLRkT_vj3dT2oEQb>]K:ILo0w[.bBBex(t\$UG.0rj3Cc6pMCFu_rR.AEXtLfI U"u7]m+V8.fdR9;C[Hw,m1HnOhmU[%%y>_gd:ZLeoB-iXuSk*IZsLyX-tR