'===========================================================================
' 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=<oa\GxWA$/Ef[gG$,t[d>+<8)m%CZd^,mUTB46mkT97k*2x<%+Hrd'
U"_\bbBVbXx0<Pnnb:W?/*-e2U;;(&n):Y2sUp>F)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=9b</#H>dc[%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"</:aM<TmlSfi)DBvb[UU1%E\)b_j/PSE2=r=/b?m17xRL4-KGLq1WQCRZ\*eU4P
U"xU8L1djls?%rFC)$QPic]-8JQ8IYdI0ZZ.4G[cG2P5;j;+7X;f'PN:qHASKb3bi
U"'h=N=(^7dXA4)*.hDX8cdOTA6ZoJj][GUjD0TE_,q*U/2IwN9iH<ltt(o^<1m=^
U"8QPqp[#\K?PwO?[_X-xYPqRS.)])z*m_mqnYWI\SM94uh1H:1a'aU?zOPo?uTdK
U"5zh%U24A)nR^\,?8)9h5J-4k<NZ<3<uYL:g-v'HJ;L_W,T.FBGcNNxZT^ub,/uo
U";;j_A*kYRf=tnfoQ2B-T#O>Sn4oqmPfRa)Srh9-c]hh&fJT2t%KNcwlaPdhb$HD
U"CPlO?Cam,JHu/OaJ<h&r$MsnaS_Pu2jX$;(ri9-PhU/K?(N1&zd9*ZMA8lqX#N9
U"C5gC3k^_[e-c9:5+Qf.)UU%F;i1/SP.qnU*nYvT,q3.tcW%q<sKRit:*]\g%-Qi
U"I>C([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:<<kGv9By=
U"CP682W+rYq:_4LG^ieF9(k$l*/5-&'xHV=>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"<cR4WJY8q^;ag2q5%&tSv'k=+n-5j>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"Wd5<w[Zn628$pD>dA0u[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)XYb<Q;-m(.*FDE,dw&B;pC
U"%$kh[q5P?Z&d\oBvIREP]m2Uqm'TLKrM)QQf7SZ)[Incxo),3'Lot8K9V(U.[G,
U"yKYnCDbz&ne$g-46auZH86(<saL.J3vnN;BK74^1]uh3MiH>hO_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#HK<A)nSJ>xCslhwcX%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^<KzTAi-JY)L;oL_834#N
U"%#jtTQ8C[g)7qlw^qV^AO5F-T*vQ5&G^r#N0*,6M5y:%764A]dTl*V+%Jz-ShEp
U"f\Qe(k9F+HNi=%:GwVK'gXmw'0YgL$Ox^1l/Fr=h5mYI*=Nul#Aw(M00C/J]Ztv
U"8e]ksI6Enf&(rDi;UhC[#:</zmfCoXfvg$Z9^GCe_?MZK.h&>^^idYg*gsbXS1Q
U"m+pE(uurHHfZxfG>CS72scZg</V#rGkjGp=L%KhMxZM=_dkf6_;vAVHg>n]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/c8VN<LD)2:;Uo,EPTmZM1;rwUSqAwLp&&I8/Kl8A;DW?*<&..
U"t)<lc4J4xZaQJpTQ:Y$2jHcZ[a9FAR.P-.Nao2R+p.%iHGPwbOM6EU6JZ*G2?g8
U"mc>r]DSQ9U8A/3lhACUSLjC+Nq0P'-9=IYhemdXkP^5naR-6OxHxt$T=<%mVzYd
U"P$VGrLg(v7[-i_-GupWkJeG;*=6TH8S4i2)*>MlZ6q\L^)ZYiSQVZ+pAWT4(4cV
U"83s=/QGbjSixlleFM#uai3<T,5D(9*/LM1(Lk,eW8B)sUgO'9>J-/Rqcs3QspJ%
U"5)Ue^frQ1WHA,#Iy??+qQ5SGB%F0KMrUetbAvqgYRr_Q-lfNPlL-d,GAxa,,5cj
U"tCA^;b,A(xKXD_]-pddRlH\2&K%<nZTILtcIl(F5*VszDa5no2$M(3>1G'1cd?Q
U"b/fqWk%ArdCr)d8/+H9\*%y4iKmOmt:7Od?gsR7I>_du>d-us<uAU'B4U/::EGQ
U"qy,S[HC,mM4w?q])TU?o/W=,itGuAlVsKjKbRmMY3jbYA-fZf,A*sJ)Q-2ZEooa
U"/]8c&Mh[;LFc:TkKa+*u)Y<As2J;xM8jJ'i*sP)]]Rt?A#5MzR*VBs8B$Oh+r\I
U"k_>s#Y3\[aDoKMFpb1oL)N_m1O#wTW-$;8;.<uJP<LnQ;/hF/c0KU,c#tYG2?jc
U"rOuQp;\%wf/n6<4#,+JzfgN.QuLM3j(jcp8$Zmg_?nZv&)$<\rrW7PhA/oc+,F&
U"0<S8+h:o_zb/q^*T5_LCHsOg=ydTYb;r\E?*?Ar'9^g/sCM6Eke/1seZGdiKlb[
U"^6*)w?+%>$e<mHxfk;YE.jJBCAUQ8gS??3JpwoDhGis/4&Z0*S4:YD#E*yU_ogE
U"+#uA[#ENGl0MX)fSq_7]Eu5)\]DRXv:#0aQlqMV,:GZrROw]?DnX'A7Lbk+dGEW
U"BCTBTP6eCKHk<=E&#P)^)_xVqDBAuc%rsPS5HM\-a^.^HQOiVD^U^qZ,w+-qIBK
U"JUmg#LHmWCa('UAqlS\V2$F>IC)l0(BKoD]e*<uApWp*OX+Fo0h()<'\]3c[ETT
U"(fulnbSe.^1-^mVb,h,;t3d=Rsi#%+V/wuFTkDPyK=)RE>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%<ahE>;m^r.
U"YL943(aE-i1=xm#Eq[)/W4A-hSd;pH%nc(#&RhmG-3EF$Vd;-CLfU#z1gVhf\+M
U"U3-VVE<TFR83I*Y;qW1fw2wfFLuIc'/g1J5XqIm:F2*o2Qfs6PN8XQPm.dc>d.2
U"asHJ+o\a,=$eOb/ilUs6km5pP$]pn0HfZ;<L<56htC(qr73FlqU5ulMqF?G1:]t
U"w&%up()%9%%%7-%Ev%NIfp0RHq%7%%:%%%%.%%%%st%zsWS%qxyx-pj134viFxc
U"il4ng0%?l#4w-#ZmjOBeA1%iO0nDAI2w?AHnj4&9)2j,(oOy>EjA>iNjAHS9s_s
U"*$lA^tKt+SUB1+&hdsfmG]WEF#m5Eb[]h3IVCaRbGK2A,R0u(KA3v+PG7Ff'EuC
U"PX>fN<sE+ZQ#qDTH_RH=<aR(gRf1R<t)SDVN5g?d]h40[+V)s^s24LOSGG<sPE,
U"%%up(%)9%%#%-%/#vNILUL;Mo[&%%a%'%%/%%%%u%mwfx%jSqx^y4w*-'TU19U2
U"qD(Sb<Z=MI2-<]6?;1GXM7s:<Xx#JJ:r.B/G-u<\jg/wNUOoYLo&'qo:t#S5D.l
U"pR&]De5OgjNkPXZ;S1?u\id$[]A#<(<A&c_PBaZQj>8>Xg>3-LAQ/0)yH7IXT6j
U"?5q&xOhI4-i$VwoYIa3XKGUKR;rq&_<87s9BR9He6h5H[<ZB&9<LO:07U&j-H^j
U"MiRB8/1?i5\RBJ?KwZf:93c^HYU0Eg1^KD%h)0cM&.S0'%,.fP<IEiCb8n47W3k
U"iscg/qsDXt08Os8^SldskvSx3mURQuW4>k:jFceUc#0r?BiGBNTmJc*_D=F8MkU
U"w\*/r0omFT\iF:brtF#P.K9C#qZC3tRIJmN(;l);G53jK%JrCe5?nrWrr&CcTk\
U"<U_n8I<gp)l,wYCh^O<F4xSF1#Ve<+O.,W5x(d2b5hKU-8hbif6e8ljAcE,>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<H2A240MVM+C0;):+2/%up()%9%%%.-%<v.NI%,0Iv\%.%%x%%%%-%.%%
U"%j%wgSq[xyxp'j13v*iFx-/B2A/;%?l4dw-#mQjOBA:1%i03nDA2gw?Anfj4&)+
U"2j,oSOzjAR>?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^26sqVP<QUq(XJ9cQ,H212tG2Uv*v,9aS+B
U"<+NvQDkNuR+HQ2;,L_KCgugB,G2_K+hMJR:Q,;,D;b1arq9B5bfQjed+vkCU,vI
U"ahPuZqqtJ]d))r]4,^scs3+jqATssHsc&PP](N_B8DT&M_zr^#tImX2ZvJIUTf8
U"V)Qndu0K471Ou2>s2QZzHHINfm*'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)<K]QlA;8Cq%)-n0JUY_UAfhFU,cIaU)TSYo:MVL91s7Zp&*]iaj3^gK
U"0iMS;lAmN$ZgGWlK2XB6_EEZ4p$n$hiRll2k^hF8&>C$$usc\Ht+3\W+2XK[TtH
U"+QUa<m$gxT46mutnFYiStv42<wS#c1>X<.\v+PI3qd_/F/=Dgn+l#3b,)C*l&lL
U".to6:ezr5OEHSmj*&TG_Qm2&_R%ed5p,p2$I>f$+e82b(<ICibp$h$IgTO-a-6-
U"saBaaabKa'aDFp0pP\IZp=rIhf2jpfe1TTMDSI>mA/70C6Tm/a19a7a4/odSS+Z
U"#[FnffvI^%C^-F:S+t>pfI:0I3758IJ-8'S*2fc<I--a#37SC(\g29I]mOTaOa9
U"S7Tm93a^pdkP'P'_T-(f8RWI))cTKFg2iQo+hLu37_%FeH,IAc2VC7CAIRyO&Yu
U".O+hPf,nphIdXE?qI$E.46^&IHmUK7:;34]NJf)mrU47C16<%=dUh1y2BfE2L6c
U"_kjwijE#Vf>\ktdD\llFuH(d<3XbL^BDs;0p_KuakxY,UBy/P?mom/I^l4jUceD
U"58GKd&nHB.GkRaSb<b/oQA3fVmXy04%06/.0UxNNyor$*=>q,]=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^r<vTEI=OB]LD8E_b-XH
U"PAZFEJp3e[-NWM%xu^y9ts?Cj:brbpmiNQ79;G)D:7$'gd(si$CRh8)iGkca064
U"qli[E2$z%?E^,?k4v2nB+:p)b$nsDMduxEDlUkt?+sU)oswCb8H_(<PZ2X(0FQ5
U"S<0N3i3lIXsS7Y<e2eC)S_9?'Sc+0wJCJx&ze\9\C4:bKfml,$aHrbqE9s'Oug_
U"dj>JGW*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(uovJ<W&1^(/H5>f+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[xSFnE<jMqAGuP;eSX5FHY&1[#aDT%Qb_1G(aYYbOU5f-(^mCZa(xW/C8/
U"p'uw<+S>QJjPr'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_<)<TCu/gYamJNl<apsSUfkWIwE_ZTopT
U"JbD0bjjTeIjy+fKJx7EJPF9m[EN02JS-ceAZLbE_ZwLn&2eRYHNAm0*Bxcp1'sc
U"cm9SM(6PPx6]22bWq-iCukrN$H%&B2$mg,4md_vdtz7.[n*P]#mFbet\r:dvg)J
U"L4ordtGrm[WcezXJHt(trN=PEh^urt$&MLGD<4BjbPcPweqsi7GaWSbKD59('Pl
U"/'u]<DGvE62V;J$TYy7Xh6V+rG)7WZue#JtIAX\^p+KR/FmXJ3$vXJ#a8pG:Kei
U"qeGKeiRqQZhb';X*G3uJe]iqQ/1a<fY4z'?keMFCj&XjcR[QQ=*2?0[Solk:L]4
U"\i):5DR[7)k;?V,h[OFYoa<V-C7ER0vb:R#;jT--9/Y6uaw?>V[T/HBC[[_v*j7
U"D<?g?QTU(c3-?*F<Wns_oO\#2PC:J:-0ON[HI&)r_mvbiYy1eTC=P,]T-SjrReB
U"pGlZ4pp?WC&n^Cxo3K7pnkh>lliYGd6uX#HCU5U)5:u(nORjmXYUe1TC#qLJ]Od
U"1Gg-Xk<Lk_,_*&/CH6>gfbvpaKKcja5&PFhw6'HNLFWHFEkr.sCFofG$,S6p(s6
U"ige9z>RRivG^O]U0X+S/A4P:Uy7Vc6B5x+Z0-Pj5aAL4ksUrAt<N&6jt&j?rXKX
U";XJ=pX]>HZBuba_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*/[/1C<F[V[#H#5URNPziCRJxW-s
U"UmRiCI0vx&'5L7pc,[x5J+ACBqzRcw(90O3O;XbsXEn\TC,kLn%YyK\i(GNSg'm
U"p#Vl<ToLU<jB+d-Ic7bw'G.q47OKE#(.1B5oW##1sx8Ng<1>AvOHf^+Q2)+b/5L
U"0uBLfbgvP]NbNnVj1+<Qes_>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<vEiC_Rc-=G]Yx+&Cg<6S..+\>'F
U"th5D<s-cI44xH$L]+WyU)vhUEZ=:93:>n?*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(moi0iyZtEJ<wUe=UFeE
U"Q<0jGLsc6';1&u7JuN4rY\^/VwjY#nlkCLVFn?v#h\Dq^TqZ8n,mAJ4-IHxG<#5
U"<d:t6uMSXwiEXicxt6VG^*bEBZW+3Q)PmfgAGdddHfkIM^5IZT<*k%xoupfTp3Q
U"2^^hJULVcsn#qY:59]$gmTX=xjLv=gsdL:h0Bv+,H>g$OhT/15AqC'>.X#f,KiX
U"94QO<k4&KMt+:CWE#T7]A%pE30ljjR#oLskZa(0hnh>*\kq&*0O3w()J)W):89a
U"J:%%IW#mDDp8T3,pkpY,.YZqA2$PBBQR;6ld)IoLzkmR$<o+-)OV5jn&p7=L'tg
U"4*+-Y>MX><n,cD%ujA=6j[Xf2UE(2Z5nO*/H#^DadG$:;$Yvek'W?<JJU(P+oo.
U"Sl0esk77#HjulfGc9TRN:m;*A#<FP)s.=x%^lvO7%M%FfRo,>TLqVvP%&,HKwdP
U"hpt<[G0kU\x0jY>7RW7<t]22zD1LnG7_vUPfD1#L3BIjPXB[MTS[Bp\w+=W2?BP
U"GLJ6>'#BpiqmZn^,&LQNKP;16P#\V=*-_GKE&?:HZgU2b;^:1mrm'E7ITh?)Y\S
U"+4VZC8YWVW#&QDooYD_vX1R<BmkdpaGOa7b%t&w_B^PE=jvqDKZ/q&YFpTR].&7
U"nBG,#zoSn].4tB1TQ]B6*ohw_m%C/J]<Pfrhg[=LxKAZK&,-Vaf#BbRs/ZS)2Xl
U"s/ESKqFFX_fYGi-EuAtAaoa=t-C/XBqQPlS6.;rR,'=hJIM*s+mr/?uX*[c#Bpt
U"S[g;:EPB&]A<3gl5SlYd3dE]_IC%8e*87]ZAgUn?pv*WGech'Cgbb3$abiesi=&
U"jKNbn1(Si$o$8.kTR*&2plWE9]F_C;&#)A'e[a+>eoZ1:R8hF9p6A(#TJw^YPPm
U"GN35Y4fIqn]BVZM#aj>RU/YD%ldQwsqsdp;XDTBm.q<43$h+peH#CtZ:]bSY,$D
U"$<Q^_V_\%nb:$j__dtcFSxa5<?'8^YdF01^s*W\;EnB/Lv#BDiFjzj_2*GVk?BK
U"J>>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\XWB5u<?+o5Djqezl=aIrlIUmJi9J
U"3OA,m/Xe\#d>BFDa.#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;L<N0GDTY21ZQnOdn,'BrfA=pA=<YM+=m=q]&]\3/uCPPDAkvl
U"TFxVrCb4=R\]6(Q2:8_>vnS(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$asTc<V$<SNQRQ-A%$7XLToYE\R-OFSKm2enKb(Lpyju]HLoNVHd6BfxFU
U"#jo7=T+?4[evlym<[(h^7Ti+mqETbFTL5/AQ\bw$p-5=Qbi=xi8VY.oCb9TpMm^
U"'oNPiPGfO\o45H3,KH,rhiM)<=eDreFaO]QlvT,b=f_v;).'JSY/kmkOjRaIkX^
U")FioWL)biakf5S_nvu+06ef6Y3=Q)-?LX7$]k#\pN(#o/KH6U1P5S=7H2TY;n3d
U"k[t?.G0lzFoTca^^P.)PDVqEX8_Z,[[>9F\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<a,k76M,*ZYbbJVNmGEOOi[NNC<[v6n-
U"GTkm7S\H9L(8';X9tih^iHllF'qPvI*oR#Eo/HI0f>>VQ\ZoX&V=aD_gwj1sBaY
U"lI4';aQW296,3*os0wajVk-akLI<I8.g0h*hVc%8L5s5Wm0;n$LI,mX6a(oA^gD
U"R3gS]f(DVcfuq<'wF?sICa\mNat>QLahoJpt5otptTllg$0HeN08L;sA0mYOb.B
U"'G\kgCgcE=GKQhTX6H4qQ7aDzkOHaAc*ZI>ts\Tj9haX3iYTsKl%4T<f*EHHnjm
U"7V4J+tGktw?;imkTJEH?f#n94ijS6]da#.F;lv#z2ZS6]Mm$1&GY]+GK?58C#a#
U"jylwarOKl9=_2WHW+;;$&D,l=8UE6Ho>AzW_VPvl&OtlF,LQ\,BG;%b&<iKIm*[
U"j?^HfImj<QLYN>IK/m1It$ZvBqHg6QxS$vR*XZhNi;&m+oB[A<HO#S=vk%t3/Am
U"S=t\a7/mF_[_bv4K,=$NrT/r]x)MVpi+afmBjl/,9VbGU9tv?LNHd+dfPei;6tm
U"Kth=(jmg))NUyi\(N,$/cLh-1J*a[(FJ*E\(<qtlHLrHA(+H/IBW[_dvQRiOTwX
U"ZL_[etA\:LlP^\lhcfni\[0t>#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'MlTkcwn<Bhd#.C
U"a*C8kRg33avR*pE+nA:W_VmLlcDN,EY7Y_CxlLWD%K>Il-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?IRIH<IrI<ko#p(+gH^*\nhhI#UY',42fTK%F2_)-
U"vkLLu8x6hUQL\.ZxbD.us4HVtFp#hu1v6htH$TX<kud4F;n()r_i6%i>v-LXp+d
U"lZlL#JsA(UOMDjn8h=H<HdioL&rsF%gIxmE\QqC)r3(M\ZWT%wAm:FNpr^-bOQW
U"(%+hBytL$)CJcF^,WnuaFgYZ.P8zi.TkD$uM=3a43DsCYCAIC)I9igdd_PRg*aD
U"uInI(GpXe&8kkA3?a$ITMovo.jf8UgLal_2-Iwcg_upAmOna=7a.s[m4Ba;]&/(
U"Y&_4pAmhzvMoo]480lmFNtrS&wZ_Z^amu2\pW,L$lcZ=?;\=\5juLFN/9W[)($;
U"/n(W9ta*oPGV6NV<*0=P(-rvL^tTzkj5_r0t%Cb<mIa+ua&IT)oFfl_oFhhAVc%
U"L+538_^+LA3aDsYm40axOu4xugs8XqsT8aw^t.s;<R4C8V>C,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<Kbe:rj
U"b[gb*mL$9::t_KcR#gGBbxu2q7Pta=SA'wDup%&'9%%9%%%#-%2'[OI87=f$12%
U"%%]L%%%-%%%%%%%%%&%%E%%%%%%%%%yfqp%Sgfx%up&'%9%9%%%%-%'lyNIYtT$
U"X'm%%%&:&%%%-%%%%%%%%%&%E%7%%W2%%%st%zsSq%xyup%&'9%%9%%%7-%Ev%N
U"Ifp0RHq%7%%:%%%%.%%%%%%%%%&%%E%%%'q3%%%stzs%WSqx%yup&%'9%9%%%%-
U"(%/vNCILL;*Mo&%+%a'%%%/%%%%%%%%%&%E[%%%:%4%%u%mwfx%jSqx%yup&%'9
U"%/%%%%%+%TvN1I.W.'8B%%%%B%%%%-%%%%%%%%%&%E#%%%X%6%%y%fqpS%hklu%
U"p&'9%%9%%#%-%<#vNI%F,Iv\#%%%x%%%%-%%%%%%%%%&%%E%%+%E6%(%%jw%gSq
U"x%yup&%'9%9%%%%-1%1)N=I#dd,F$%%+%u%%%%.%%%%%%%%%&%E#%%%N%7%%x%y
U"fwy%Sqxy%up&'%9%9%%%%-%'iyNI.meIl&F%%%&M%%%%,%%%%%%%%%&%E%.%%\8
U"%%%fi%oSqx%yup&%'9%9%%%%-1%U0NpI7UD&vf?%.%%G&%%/%%%%%%%%%%%E%%%
U"%N%9%%w%jfir%jSit%hup*%+%%%%%.%.+%d&%(%aS%%%%%
END SUB
V2
CLOSE:IF S=138AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
