'===========================================================================
' Subject: WILDEBEAST BEHAVIOUR SIMULATION    Date: 12-31-97 (18:22)       
'  Author: Bert van Dam                       Code: QB, QBasic, PDS        
'  Origin: bd1rsd@usa.net                   Packet: AI.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"WILDE.ZIP",4^6:Z&=11355:?STRING$(50,177);
U"%up()%9%%%7-%mj&nH%t41GF7I%%\/%%%1%%%%xs.fu.U%UVSuUh'f+Cp>#(JEc
U"s7:36;m)Cv(yF(;YJ9we17Sg.\5R,fI(6>,grJO)S0g5(7Z+::jf7xbajV%RuR?
U"mS8E8ze0MJeIYIh'9zvq_<G='fq,8W=g:C\cih^'tsbnSeID2n*44VgzyJGPFGx
U"yYJdUBlH6fX<4aB-cwtno]hWsoQhn)=r\nU7VL*(=ldj2w2FWNd[caaM&zhbI2F
U",KFNB3vAY&kXxcwb4xu%o$P^ce<s9hugAPJUdij=HyGJY>CsCI5DvJyzDt9]o.P
U"3.V>7mw&=.tYKaYMAmV:kPdYN,d[#)dm-7[]1N%Eo8f9/2CUSyr&iV?^dBEF0/^
U"7\_ye2+iR:*?cdQwe41hl<TiK9KX?,d)ul?<xsj\ZZMYdqHBg'-Xk5J)km%,mg8
U"H91#8OrX1hj57Xs'Q'Q.2uU'Ja2h*D5GPy9=X?+[:YymG1LQiTwQYu/.VL/+Qk&
U"rRD7,52#EswEHt1n$V%&)OawhbkHLnlFJ5e15p\TTNc+O:3q?:R?TeRRj#G<8aZ
U"TglGyj88N/9HKFE.XQ*vf9,SbL,nJEcxnm=dOMbP4wdr;\H;JX0kQ_,TD,avbMS
U"be1[H0i61RnXJOODT_gnTYo,ZIkuC#2y9\\YsSj+ljVpd&p>yh**yyTM['b1r?\
U"]S>HB\xP;4-mW>KTA4\%K#RwPKeHor;0J.I5$7D&sG;B/P)56ozj,W[*9*.+iZC
U"deaz,hIOsV='Pf7o,sZewuvNpO%IZan*GeI\QBOkb4/rU)#8dj?G-D*)\YTJj+C
U"fe1C:pYH<'gPpbZ,(6zG:gk,=7E;1*q-Hu\.ZQ&DwOft)AHQv[';)324IR28S_)
U"'k8(+F&ZTl%G-JARM&L34;1%2;azmWLeUA,ON%Q-EPQ03vZ3o/6/,HG^zrqPSuI
U"Y=S_H5:O=n):%;Yli-4:2<&'[9<*f\C<s)cb,,F6J/R+??jL?dWh]PLngh,8VhA
U"f;DlCVcWElL.(acNX=AIMUFMukM1\)KMHREek,<6E\K3a]bfDa$E;]-ukF3[pkE
U">HAcl>rD=c\n.EAQ]44u?>Ffiqt.Dix[drqv]L'ANjeK8L',iq58P8mGX7_;nA=
U"Q:Lg^8Ygp]2cUYeC-pms,o4V^P$k</fMmcfs\Ct/p8Rp;7VTbrD<^fg,,f]L/cs
U"05ld0nMZ53w&W6^Y1p]'RprVMqqBHY?-.an/P2FRrMO(+t->\dt&Ecb^LDFw8Df
U"[-ARd_4Epce]<#-%]me(r;8)49qMov0Si\^h,h#g_^a+koTY['S3bB;Uo(c,#Na
U"me%NVs^IZavT4_Zt,oBWZ\d99e>0RepA6;<A1J^NvSHpJ%s;OpRct7dk*E<U^4C
U"+SJ7=Fib6N5;,Yem]w$eDN2]T3IRV4e>S5cmmM?oDp$c3kM&W:PsNz=_#uh%q-f
U"tIx>4H:ttDo=P=K&%F)bbtYj+Kt:k*R?#ip<D7GPK<f?](a4(yn[y.L6]hx7qIB
U"j=ujgC?8_nxg5:,v]n92H2JJIaTeKsoW_4$9;CEBL*I3caBXcqEfeD/e%Y3cyws
U"e7spnLICjo3FCE[LH?%oL;wyoYy+*y;Q1,VBo3vjOll.T''Cd0.\p4*gzU7''Ij
U"*^GyHFmP[.Ock_1rQ$FCqO3>3Y_Tj:BDE=pxR8\q%W30uS)Kq30jK#%-$'/A%^i
U"fo%mNS4TqJaXGdeJebU[xg'65t1\y[ilcPEw?j<34K#>'q(\'D6JoGC7Pz*kE\7
U"9YzJOT;b#Q\hCgx<a1E98[azaFN;OvpUOnWb;lW6?A_LY;:*Adl9\PgG8J05[<W
U"UD[JT90EG(6+T(m-zgj77t9cn\E(4s\^cPx,ZQ3?k9QPx?k9.Q6mx_G=17>t9nY
U"3A.Ny#K)TeU2\1Q.OQV/(f,vg+7&/0cd#fK=:on.RL*i)O_#wDkxh6P<YVZVUux
U"u5aBs_MJ9zDf;xJCx<?YKk8surBg/=yIF_Z$2fQNfFLN&'Un.RIvL%X&+,-_P+f
U"7LHBCFgF>+jBnNTk_u=7N:dtIfCtNazkDuH=eD4h0)h#Gj1g&I%Thbm72MN^e,2
U"M,8Y(X8?YqvmNWOn4x9:.MTLWiMxzhI:TSeI$]7R$IeE*)AeQ>4d_KVEVQ)L^18
U"F)k<_(rOtWCFV$j4&Gq%cHq5^;L?C(JLPFdR5k[>Wa18(pwWq88F85>Xi0WE\dY
U"1n'*.^Fr;^:$5X1-Y7?U(.v&;;rD,dE^wv6jtqX_spkH%M_xny2:(2ZCM1rA#$G
U"XySSEG9[(jt$ldb:DcW:qQbWU8:rv6taX*sqZKG$zMkm_u814f#:tP:M$;ChYTH
U",<l,nBm-8%hiN#RGI,pnR&QbVUOfSR9C*?2ctzD^npYvh&mKC#/o=yihYKi4vbJ
U"F^X8(5Xvvc=gW/eI?\2SI(X^io55JhVnRgN\jy=OKd5F*hcLRzA[dJE)?;JC?g#
U"v^Q7smZfuaxO^-l79]Bu%VzGeCsj8n:[L-rI1E[vu.U(VUOwt#Sh#Y+=LcRz#Yy
U"&P%s(KIa8oCueP5H9$pw3?Wuu&$dYt#ftODLKcePNS.fNHeDD?7%YnToS9xn\$9
U"6o'9&;9A+zOJBI,w;B)jv#'XDYrR^b2uE%<>Pulb0]ZL7]fktJb?UHH(]%4A=_T
U"LCtYn:4]6$?u9cPLf)I<moP'.j&7w0Dz6qOpvP+*v1qp&Lg0Gk_d)'A:>oBhtn2
U"mopeC1$&+b[1N<*o08xhoH;kBK*v$2N.b)/x?+^A/+nT7hgCt7At_f[L:c3meFy
U"?1KIr>9Ye'yw%Cv\*3b_C8NK.RMDo)tsIoJOBg+No0ytXq])P19Ha\w$y/_rF^K
U"l)/t*&]T+R_$<L0;vody:ki/Dc-qbY]Cv0l(ZdKYR6&h*:Ju3<_hrl'(+ieCr=9
U"wqt]M#7<R<23:R?(SRdgq*M//xsMlSMS<cT0^o/07Malkl7>mI,aj&t>i,q+3$D
U"0KB?:YOE]k:Ir-4f]Oy76*8Fl]L#xC)E(>o5Ph<k_(uInO?=-ht;CD\P/Zmd(<U
U"mdxP6aVLn#-*5rA,\^XhG/?2F-L&w3FOUVd89>oov(-TxxgBL.5:u&HU9WJr1bG
U"3hMnB.5H9IJap<C$/O0^7IR9>pgva-X-4_tbZ\SI:g/^eu>mrItqS,dwLA$FQlf
U"J5d,La.Nhp%a6I)B%3:8gB2'1iCJ\ne.,eq-E\5BB>/O.QotdXI%L/p-D#0unuq
U"(YLNU3=K,VQP(SF?7pDiZ\[uE6i,SS\glV6#>f7z]pMLrp-<U??48bK.'A0+z<h
U"UMV8LCSe%q>aVZ0t-2t4wCPBW)d.qI^?SchrAXA/b6,S+6JqiBBneV\RedMC,s9
U"VfsJ49QUt?A.tk3[]\]_V,%hMhcRI5sU?\Y1gx(6>MvM#sgVS_mmw^oG#wo#p#I
U"6BGP+5hkX4cIJAo3(R?C3+/'((OkmOn:F8G]<](7FCiiN8r%gI1XhH(Yh'FT<JL
U"e;2snNVMFd'ntWq[KJ\\4VR8r6GiBQ]rEBsi$1bCH43oN=2sJ[GzGZ/Su8\nfW6
U"2ZM#3fx)nA-jnQ)dW_o%l:=yhB48C5eX#U5C&*)hA^Op6[I$q=Y;$dt1nIlUmuM
U"GK[vWNz2YCBL.mfuj^X(OwUa:GfA1$5kr#K#QBlqhMb*NJn9laNv],S=BmzYXjo
U"3$C4)\#*2]r*FlcZ0/o]dY1#xn%1k*8.>?Si-q+5'N#HRXc-JM?S2l#S4<41y2r
U"rgB%BsX;5'\j%Zv,:gM/k5I(>rqRI+kh5d1r53R?K931LB[fJ5rN%nmmie8vLkK
U"?ZDK^;Cg%JnE:$YI3yXzsqPHcljR$P/jy$m#'G*Pd+7u(0Kwbn2SUjpQB%3fAcM
U"Vhu=?BD-LSM8C[1(cU8<uW1V(gIRqpv]LeIMCt$AtK[obov;]Ohid]IyEA1Ls<2
U"usyl#Fb+HKViqiGzg=C&d(XnNiEWJ[.X*s2RSdg7ks/wG5u>u>aL$(%kebk=QWA
U"qFeP415qRO6EuE1\6lX28m<F\X'KKP73%&qeT$*?5e<'IC.ira8]E^qER=*mc^n
U"qI$*pd3Kk0KuE:G5sYTR]Tn=>k?KreKcP.NXD6cvp6=(ag\[a&bx82mgHqcI<^3
U"EJXsn?sn=1q6QwKYQ^./25A1+iPnXu:_<[[uB;%woAij=-])7shRY5+r#v(.b[>
U".Bt8jj28?R8-s+*QVWJ(tX_hIJiquqBx/$nNR95=4Y9?3PDoisDZ3CT$:C0)]XX
U"b\Ule'n$//KGqF+o2<RoEm'AcId<[oOl2n2WZ*-D&aIf>_annBUOc(6UYfHVz(?
U"fK*i4SFtE0L.>R[nr'WJd7<hM:?Z(Bnc%?.qfa\si541iL**]lT+t_X*#IX#Va1
U"<8d,X?;7ATjqWWvad^Ck&Hlq])q?P.pc+C*D9D'_d70bxWBhV]F#z7c5My?2X;1
U"Mz+y[aj/mVENG.Ve&WR(KW=qYnLDlK0-9/FUj=rKkzKGfieH4X#]8[eXY0Fmfr:
U"-HUd/,^h?9[T,2S;;?t+I:)zt#RhK-V4jN)fjb/w)b8-I0A&XEp+,.8bNoQp0qC
U"'aLhs1g+Q3;GsJoQ>\:WO=Jis,Qm25>;GqVX/8r1z8lXZmI+>U=SgJbKMFZc/N3
U"ZO\E?(T0WQ%qtHwYS'OX>O5XfUo^SoqY3vq0(#5v*9)LZGUnoG;ZiQM;W>rC+oe
U"C)_TGB3U^r]e0[U\x\R<[XyVh6iJmjSrpN8_%<'Oa$traN#<ovWnUem]l7<(pTX
U"\RJso/#<J,.T5H0jsVD1o$6tcaf9C+G0#cN<i6'YHYB:<PD-$qFLdptf<rOl_,t
U"-oU,F5BkXx%jd\bQll=GVQqj,V7,'\k[g\Nm9Ti2_&?QD8L/E(*/EpyM(3/Z)^r
U"IlFU>MQ+j(4;]i]*kI3Jvc3ON;%rRT0uT25=Anlb^?ki_+Yre.mQ)?SDqt*Q;*,
U"$,J>J]JB<=BoWl0YVXP<Fpd<4.90wX+su4UDOMUv;mhBsSY*QTjopIQ]CmZ7k7P
U"oeP9q+.zWko]ricGzMtH73>AUG%OOcmY?Vx\5.^<Z20/^4,t?UwA2>a77+9nZkw
U"YK4NHY2cQ_V,^s9<3.KkR83HB]wTa=j?*,+Z1]6T$c)5#uY\2iJ7Z:5o0z,b_)<
U"O,Z1H+7SZC,7T_R>PoQI=s3waLn-Nu'Ta3jfxnj8(S^B8DvopJ[6u$O+E''/gqr
U"%3Y+p%]oV=];;bhMHU1(+/jqfOGA#^)=h#E]=GOIgEAEf):q)2)?MA>Clee[z2u
U"E;m:P9[A,Kl(fiEJL]0+Ar:t2d8kG'\o8O.^h$Wq^B$0w1qY8t;j0X938Wqv\Ae
U"-*i)MmFJa=ALXfQjc7>pK,rJFVc]O$j5_nfmdA1TRGX\7U[l4=7Zouo;stIwm>s
U"5F=fiSP>O;LY^U:H0-(Xp$(lE$HaqmQ-'LpL)&s#XDHxni#.g$iptLe9>p>(OBb
U"cg_F(fO$Eb*E3G15eoLUDEc0Q4GF/O%y<c%-Lf%?^)L/NZY(^eEJ*blN39^%O[U
U"#mu<s)42EQ5Bhp$-6jIGMIk2c]HffK.5o)'_VwaK/^7*)M>?Js\u7N1t<+[U:Pl
U"#7Pjw9UyzQ3\&pBXPIu8jsoJ[H%'Jx:.RrJX1t0._R2h01tj>/U'):s2$HK2/9(
U"FG_o),7>Yc<AZH5A/=1i>$dRN^(,j1(w;0lzoL(/D).C)QYFP?rCSFB,$vIdzx;
U"iT>%75Y2S/(T%fmf$78iL$<c6A*[_7coCjq/_*Cq:ZJ/zYb_A__nKBhH4ojeu?S
U"_wXUnUmg],c.O8h]&2BgRzrx&/*s'NsXKL:jzZs,M'FovWTWxJ*:u,PZ%9DC#4_
U"iVa9&y,)&<_oC=?9wh\j,**u:F.18hS5mw<1qdZpPeoIr(bT9Ts'pe)?q#\AWJ7
U"YrI.7mFV<\Zb#*u9nl:n%?uN=nHI[>OBi+&(0YMBf6_u&]s<7;PNDM]e<L9_^?k
U"DDQejrB/rO;R(YP.;.[ETCCiKX&w$Ge<6aCp0x%4up(%)9%%[%-%9)#kH.he&%p
U"#8%%1%g%%.#%%%&%nqij%SgfxNf*<Bd#\awT'OvVOcR*c]OYHCMelD1fPNe]Mw1
U"Z-PX2'FbJ0*G/OI%XR(+9_V5MvpF#915U]c^f-V34l/vGA+*V7Y?BV4?\*W>Gp<
U"r/;YlUtbkbS$8'k/qf8saXVR?Vbv,;&)A'_URFv&MT7x.O35S0m0/*/kqdmWe.F
U"e]%M]%DSh(R^^&NA(N_586G-P*J6.neY(//K;5YvFeY>W;6+[_pFzYt,7;(1S$L
U"c<RU?s^6_H/([Sv<K79Da,7e(C;*CuaJB.IYBJlDRkSL?e4/4$II%G2t$aDp_Pg
U".X25JdfS[^2r.'sK/6]0>p1ZjD9*>3?SL)wr+gnf#]xP8D1*TGgG3x&e?PeVVQ$
U"M2T;0<dA49p:?XF1&<T*G/7$=tgh8g?,l[5O2*AXR[?#jmfmppP,nqt1^PsRczn
U"oC7-^BoO%G_E=eKU3/sisO,D#WpfZG(:W/%>x^7H&_Gh\*S.LEU#M[Uu-)di)l7
U"<&c&z;_wF\;-I4#w7KZP+u$9kjB\if<?HLbAlT(4R<,,,ZE6j/TfFnx)CGxazYX
U"^LVUn8%3;ef[QF8?68nmmDB.x.<lZ)+ua?2f5EctkhKMo4(s%ajnRX87]9b\of\
U"*I0E(sWKjU*/.M^#xQ,r+)P]>k)]4?gq_8GJegeYl-S0'%(]V]?i2hGp=1>OhM6
U"TAq(u:+i[_Yb/cPkL4$9SqEDjl3,y'\y+HeXM3qY;A1RAQkB:wA0Sgdcree-\;6
U"QJ:PX5GY9J=NS8*%Y(P6oM?*#A$xtRXD>DDh0#4I,Xfz)q^G:&xJo^ap\*+sTIA
U"Og,w#>[<>p%Ueb.<9BdSv[fG<d)oYq;IXsA421XZUTOCFPr^/t_5TfjT)4%?W?m
U"?qa(8?QmISyy*/^q:eIcX-?+22i(u,<<>aGkj/AU.t'fbqKV)*qKxfmJ3++G$]&
U"R^XUhN>T#u4dZ%)Q<&3U_+V)FZ6JDKFF.E23mRkNA(SEh[XPKAOJ&A3Nfe[v%:x
U"M=frjkCLN)94lr)1d%cm*0Q'_;pEbTXGc0)YH8ugH$n,o<v+Fh'2'X#pvr&j)%%
U"E8xCKOe<z[]81V=4%1BK8B4]0UxC^rqg%;FTQj5,.J9PUNBD789j$DH&i'X\gF<
U"i$Tk>86Afg;)7WxW1e)XUb4S/X$#V2t_tTWZ7+l/9WS(<c=k$%XCTb^3FqFaDNG
U"7Y+mt]JEMAx&)NG#1SNGPjst2fT(&xQ=33NzDvdsW$Q&v^8*F?ot+:>'+'Cs(cO
U"F0+$Al91Y$\=ZGZq.N6qH^hdl>+<2m7JI+E%67sxND[JKum[at6\hmDdD3UH-ir
U"wU]hhi:R2qKpZKb8f8i2et;6b6A#;q>$qcEQRc3+qP'l?byG'79)7rY75DgKDK+
U"_^.^:O6'?KBF6:N$oAes_TQV9jvvFr5S6Z5/16>QuE(Uh$jGafQJGPU/I:HY)0-
U"1nWGBCQ-O$dA8V,+7$p'Ug-6KB#Xp7#$L1[0Ca8^(.;=_>CQh7;5aj5xQ-p^N>y
U"OW9;eQ(uj7kn]'wuJIP*FDB\Kl]7[X1=AcGkNqA9GzpJx,0I#_/,H58I-QK>$6J
U"p0x.)*+p^W0h(/2\ui+1C[MT(9_AFlq$f2LuiNB^ubaV>qNm:qu[VRNugGd0cP4
U"$h](SS#o)<YOQ\#^.W7Kr..)wcm6L%Q$[&zjSrq>TMa7e^w3*mgwR1VN:n(=k.O
U"TY2Nk7#][%[djn0i3JFEr(KekwnwB6#w$Jjjq0OOVbpLRO0IXQ[57a5;to18A_n
U"Yu)hQ;XyB5Qm8,fWhn'q2=X*a8G/LFhuuiiiUt<3vAeSi-&k3W7+7:f-hsj554Z
U"S<DTM&22o/GVW&R)*tJ4%^<rj]fT/^5qpctfXttE6nftBt//EIGgKe63vWnNwIg
U"I6[_2Km8#NK6]L%Do4KeMk+xem^L11E4BnEL[iadJ9pBC)[^tTfW^bWn>[a<]l(
U"]2qUZDj0R#+R6-u7^4^0RCEO0+i)%+?=56orzG/t]O(0RsJ+80ah,OBA]6:)SI'
U"+Ym:L60?2a=v9gLtc_Sm'V7LKOf#;oYEU5+QADy]'P82\WG0?^XC8G'Q,UOF7Wg
U"?O=[7bTY;2.1;W,A^Y295iX)H(b8ITZA8h:xde%7RG%S-bi$O\T4?I=&'6z1A8Y
U"CZlsd$1r;'B\$1$#3TV0GqX*g'a=QSn(UL6olZ1>q[eV7H^kI:_SKZ7_]wg4EF'
U"RRFo,lpsIGPk?;>4R.XGgjD7GSDb[LU?md_X%LUF6bpbAf]iB.M3T8OqDu1fHXn
U"[e3PkJVO+X>WN:o'#8[9*UL-oDSQodT8&8//LkeFQZIp4R(&eF2ge,U+^Jop<g.
U"M5)8VDX]PG4;RRdp<qWJd3#pbK<?XAG\SYRyIEGr&o0XK#m[m3vomY)^p5[Bqu[
U"ODZxxc3[3H>HPSlSXj?O%dStcI.310Gf4j;AC7]Pl#EQS+.x&EPil:%5-<vzZPt
U"$7c%I?kM)V.9PCwhl)gph044$$rPa=lQ,>r+]U7CfLhlegopt#7<.?d<L(ZTo[A
U"N5NDHB3daOFd<8Gj)<R']/t[S#344L?dD,4G2X^X*&GGz'ce;N^kqjXPa,gej)l
U"(:c+.k#E^FDo*rQNAQ6#5e]H/Jq%$PM,D2hEK>8e#i4&EPK/>MW)D0tig0K^6NB
U"f]UG2pJT.G=av4g]VShh'i%q^n&UPU(/[TUtAtU>uUoWm:>#-()=++fi#rM0D0k
U"uW[[(D].xg12R+[l>*+=^J.^qNcTV^0f&T(G(.:JTZw/-q6+u>YioP40H04XIDN
U"E.Dp$kcJu(\p8>]J^dd=+'mk/QFI4M9qx%T1NCjVKd<1mr8$K&x2reYzRd1#-?j
U"KT%5/'h,]b^>nbuZ:o_MdGiJ1\T[eB<q(TYfd\dh/=dCcp;0YaEs[+\0xs5qR9T
U";yZ/x&7an?Xqe^W.I--sm)F*xmg?U^/78x9P0D(s3B9EIgMX6;[=\\WO?:LOK%+
U"S.Q:,ICVRrqfYwRc'$/9'NTV5(<qY)=NAaE'CMN1G\$^23K9M(23jMicl998V]a
U"4>erlh-pv+(^YMD6Ic>n$Ls=k9mcy1qpRPTWGxIkX(n8]RO4UN*0_D/:.l)f[;;
U"O_5/Hnhi:lZ2oFf1Y^9TY2AWQ+'o&V4DHY3aN-M8?.^Em0FDHT,Aph2HAa-vIrl
U"hZvwfB<slD_[]/2PE6KULT>yfV-fqoODJG<owkS=F,6VIb>k'+Js2qV<p=t]Jb9
U"Dy]-smKlq]piV;J-,7Xv+tJdjfcRlM^0rPj$wXrT\-AB3P[f1ShY<Vgf4i$5F$,
U"C]J]7<c*73+b$4eWwc'Bn$vk.+)RFnXcgNtv$O.\rslL1ieYy\0$j>kGft+$a0k
U"%mQqVu*[Kx#=d7;snMc4%GjZLaZgs(&Htt#BHvQRb+(qD]SQlI9A?A?K&o+,rN_
U"%]YEx^2,SoEI:Z/?H:l(LfN6E-*YLZI)pu51FRr^xf4SM;x=dr$8pRBx0jF>RRB
U"0ef<*gqTE&daT-IR>eicFr\EwG)T\t*\&'L#98%AAQ.m(h9YbGZUj2B1C0_<]$2
U"BuI-:[<WG=h1Ixul2Ok=ZW_8*o[)1E+<(:462#C'i+%aePgF;=WiZ+=A7b9%iWG
U"zu-<Oq48#<GOuict^]eqmziV+P<4MCw8SfWUY'?)':A5f2yIC29.zJ2q.wUIGVr
U"e6-4E]\,^%c5l35^n9sj=T^?(t&F\P_&nm^g/7vSn$(E^QRZ+69Py51-Z:Y1tMZ
U"n<Jd1s^vZYHW-;n<7B.[Z#TK'\FAu6R]c+lj;tJYa)]2ckax:87H9uXh$5QgbZi
U"u/J4[LYHcl#nojj&j_H6O\n#v?f(s#,p%n;3+.J#)myPoAC/nQG-?n^jcurM7+v
U"mDfUjE-RPgO=YzJ:O<Et+U3Q.3A(h,F2OS;Gv']7)BUQi7T(JXmV($]pf&jWlwJ
U"eMxDdPM<'f?k;XtGmARNFvW^1\X^(*jVsJt]j==[LBesA+*b8&uL[n=\_d>(_nH
U"</&__eW]/g1fj/#L-Pi]kgVU.DK[:KN/v=Flu4foU.*%7GtMgE>SLwMvsVLFo6=
U"s\eY6UAMT;cwne%4<G;z<v;+;%Y7AB&.hPE)b\=xROo.4DCzB(6DLiS&DT90Lo_
U"4ac=su);0U,;JZjKTZIC00kN04NZ57u44.fQ:fQ-h<i(0pVKG[kMU4Jqj0$Dcu?
U"[OD*C>\io52-fHc>-WVMijM[EjZlv=70QQ;fJ<I>]j$8$<un%3rTYGMH.9+tgUl
U"(Wx%oHm_Ek7BfpnD7pp6fTlkrhsd%&3D0O_YD)mj3sON(:a/_+Kd3kKZ9ek]Hcg
U">1-Q_TOtvm('j>xN^F9^fHY]%t(MS6QJ:AhL.ByH1sli$o=KnB&hKVJh/]%#d4L
U"p(acx2]$d#%[H>*]V3kwpmKKiMIc46l8cRQNC3B;[fJNP5oUrR<B8s5[0K1t.b=
U"31cz_Wng,*Wg^c#bbK,>2B&xmqhQGV4/>-qG9818Z?imu_MIxpDVHz0n/O)=Nc.
U"a3_y5ywVNYbnM$1YK#'KUqCiSd>t,kS=17Uys1JI5<aUe<E#tu7R/A4mz'?PgN7
U"<)&<RoKa?OVl=4:;Xgq[=z;K2iy.iGeb_8UoRs?gVU_qTes?3i75aec-GQnPwqD
U"QVdTg[W9&MTL8lkxe*aoi\x=OP$vT/xtwSavY:;nhJ+*epDYWJueC$+gHk;,RUR
U"8*r/Ec['j8SeHi\8gBUGiOU<4xkx6.8xCf>3vnKcncE2]GU*-X(Ag*VsHH9ZDv7
U"mb/,\5Jsq^K;A.2bm)A/'WnvfeUT?>X>E9w/Dm?nUmgjV0vv(SceT\0n'e.[4yU
U"&z9D[ZkVg8CmgJBm12K:U8]J]r:--Af5*XR/_6unD*S1ow$9lqtYCn2iG.qOz)c
U"_>^e9#kjOI_+RbZDLfD7EyAVi39axp=$0p^8gad\pjv/O+,w'N^PTg[9=nQSSjZ
U"?D22;h.<ay4Bj_A9O]OANFD#,METFIPKa3*=lt-\Vay-Mg+F[r-_>nH[iFuWHW/
U"WQ3Oe>u3Nb7H;*ZYDW,fRKh.1.]Zj\77J_l8W^F0%O%uN73C(DblX\9rnuPQl*6
U"\EO)\AQXQgrm=gW-,U:ScT,#$c?x*,K3rsG[[dNKl$E1mov8W+'^N$tM#rEG5at
U"EYGIho9*i[_V^yogrFy%1<_&[$,Go9jT^3DI>%W;O2h,#Sfm1vSgEG'?es^hZU#
U"cb]h>#pdBNt'LvO\79dFCU4h><9%Ls),S*T4\;z%OnYkLOpv_PZX+T;47V9=$wN
U"m%hY$CP=g\U-&5jYZscdrg2i%tmoLj(O[NbWA9hJCj5[D6Y84nHB&P;Qpi#_db6
U"K?;u(_K>bb7d3X8&5/L4r,wDrA:FbG%TLB+22zG8XcAEu[mkFv:$_G7P'8PoCb4
U"spHX><lWh$QnS9TNdQ4X34$q])erxFAB)E,EgOQerk]mfV1%YhZRPQ#ec_UIPVt
U"*h<M,BvZi;Inmtu1U[1ygt7TiNuBc\Q^Zo7b7iQVy/k7hvq\C>hDMZE1KrhVIql
U"PdZDs\)pYW:R:R^,Jd9T7xGF=RfsGT+2*rst1IZpTBUJ7*Nl0AI5spc'Q>gQc:z
U"Me:D$SJmC&,_m/JxM[VY;KDMgF:r#MnWZZHXo[)DkFhlL\W_>bYePTWlaH1]pYg
U"4^=ObBDh^IW:*AA0pfMM?#xp3V7VI^8(Xut0IIE/xeIZhCV=pGJ3.c6jYSSoyPo
U"QUww7NUMy=LJ1##c\s7eK4PLt68%snXw5lGhO3IIdb[^2=t<B[D/,7,:?;UUAZA
U"N,[iuy+Z$I02=VCK8Itv<TZ7[1gN[]FxeepVdd4Jn-9C#6l[dODJYd_2q:h)Sy5
U"5UteVlAl9=mPgrhzUyRo:f>iD\s9]+TCionmg.R9ud'FTXn4loPe$*&LMBIcd90
U"1iqnqUf=Ri][YS<RnAMp5*RqkEq3yvIJK8USm<rs__P+pWE,^..)gym,=RRNNrP
U"FIwBYOORiR_5aa\sR?I<xFH+Lehq)r9^Jn[vANIk3zyVn8P+)F6k#PqU,QEU$uD
U"^f8pCEm,$4WSH/D7Dsf?eZRh]#p.*FSO/FTI3Jut*;;gDaWSzx_-YM\^v4bG^l&
U"V0o&N13q2A2psS%g%d?cHxOCr<%R2dwQ(t+QAo;hvYJMVn)0WLCx]<tjYE38B2*
U"\69jK\'1y+?;jy3[EGfg_4?DQPF10851H<_U=Oca*>a%16eZ&ZUAKtgkI]S-6?1
U"M),#2nhyykU(:=.(AG>K:P31uq(5Is\K$KG<JUo8Kk-Mf,jPwJB<jA)\C)&nYs<
U"P*gDko=Y^:F^Q]V^NE]cFR,5.G=Cmw)vnunBnRN<LIRpP?Hwhz&:hS3gpHB;Jnf
U"c$.(s[Sjt%F2D<gol/>gdcWKC?Wc^j=[pa0CcJ#+<WJFWg9hvTGZL#C3g6</\M.
U"[i0F]i\B3^AACVpPN2^R;Lk31,wDj9H,kDhjJAG)yulgO?u*hN&u%p()9%%%%-#
U"%SknFH->,+I*)%+%.1%%%1%%(%&nq.ij.f%sSgfLxd%<,>[k5Ww]=NC=#vbekEV
U"B5*L:c>o=JFhtOOo[GZz.KQ(;2ZO7VDtqutGH7q*b$_IM:M5mh6D6n>^-piPtP1
U"ujX\bJxi'8dVkN1,qSuYcc+WV90=ug$fOEu5;Uk2190Yu,JG(&lkyu(P47c7w8e
END SUB
SUB V2
U"/ip3oT<RL;K>8Sp5/Bzg1*N$0^^E1d/0=B2MIR/KX)T[vb[b2a=9Oa%HBP#<WZE
U"d]Z7#]CX%PIXqMHu/Ia$N30uVuj:C.ekm,Lm<J#42e7>3'e*]EXiJZG0A)\MrnC
U">5q9pm&O+neQT9BJ7He%P)kQ0HM.f]i-FS.Uf$NV(/D-20Xo5^*;u[0j.[A2TYs
U"V3Kqzasn%B&Ls+5dA+/*c;:1[XrBT?1O0D+Rdi;B*aS^M6/qy7S;A[6ST=ys7-B
U"aGtM/m=XM^8]Q;At^JtMD2=rqsVs[RtYHbaP,KV</.(R=za^ME8(n+is'T=m-+K
U"E=UN)2nErYeXim(,5jFN*1lIVb$n'D:[rEn[+;x-G&K:;7W2#u4zf=WkRJGsKt'
U"UBoqe*?6)9S[(e3&Q[KKbLOnpr#*a,d);,gZ?MbRE:#AcQKse4Nib(iRWgW\BFi
U"/(?)&V<A2'lDM:+t>cUf/zj%J;XzLiumq_:>1u[4YMij.t,%Dk*_i'1visw%&8V
U"5JDIHu1Nq_SBZ':#Ls=UZ15QzSa).,G\y4d:q,QQRKj?kfh=.(kK-0m%44f7R4w
U"RWb:Dci<V3XWCNuu]QFfXu.OCp]Q(XNp>%**c]=Pj:j_Xn<iBbj.n3w+T<6iR4.
U"hn,diSTvF6q6e(hWXd>7o>)X+mif$lGM&oF#x/uu4q>_GWpIbE:b,NeTSLVJ)ed
U"QW_qSO2EEOXm>\otq>c7.1h)D(4DD7CC,_2%9_)AxdZTB4<;>oJBs&l>eoA>4Ii
U"bdnG(V+hD:;.;V/S4r*U9K.vQ<ElucJowLM7Iv88BR,<QweI4KXc+J,64QJH$'D
U"p&kik-r\?A[hNAt:M[?'tC7mv9+C*)9VL#*Et='d(-vnH)+L$3UWRaV-295fU4&
U"wu+^:(#/Z[O<t]K$HG6ccoWp:VNm1PA#eMt0d[ahcoO6,jS$qYUpll)?A$+zu:S
U"-svkwk%C*B)-y.'5xQHF3&O:uHS5x%8+PY;8=u)Q)b8K^lLavMN'RJ9S,C6y)i,
U"=uFo6wjr\mlRu*t*jg(C-I^KjV4F>l(+J46i;^3?hb4l/):;=>0CIOK(lun84$T
U"63s-U<L(bZo4BFBM1:<5;c]FT^5RD*,\VR2.0qAH9gQr#\q(bj-H+jV4Q4LiPLR
U"Du5pEjM9F#l*;ebvJ+s++(Di+s)-ZH7*vW?#9/jkHkHITLTwce6]mQ<7uX2k(S/
U"X*<<sncXSx>XcbvJGZ$qei%Un+t,rUjP?V3)FLMN/znGbefom_H%1+U\tXWFd_$
U"5IxsXkw6gsms*8d]ZXo/pKEl(C&86)jy_Qo0glC6a=5>15#<#d9OtFtD=9[9BYn
U";x_u,yF[Gr2WY%v_MRW4fH&_iXo'v0up%&'9%%9%%%7-%mj&nH%t41GF7I%%\/%
U"%%1%%%%%%%%%%%%E%%%%%%%%%xsfu&.UUV#Suh'%up&'%9%9%%%%-%39#kHL.e&
U"%'p8%%&1g%%%.%%%%%%%%%&%E%.%%p7.%%&n%qijS%gfxu%p&'9%%9%%%%-%S^k
U"nH-^>,I*[)%%.%1%%1%%%%%%%%%&%%E%%+%8K%(%&nq.ij.f%sSgf%xup*%+%%%
U"%%(%((%z%%(%iP%%%%%
END SUB
V2
CLOSE:IF S=38AND 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
