'=========================================================================== ' 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_CsCI5DvJyzDt9]o.P U"3.V>7mw&=.tYKaYMAmV:kPdYN,d[#)dm-7[]1N%Eo8f9/2CUSyr&iV?^dBEF0/^ U"7\_ye2+iR:*?cdQwe41hlyh**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\CHAcl>rD=c\n.EAQ]44u?>Ffiqt.Dix[drqv]L'ANjeK8L',iq58P8mGX7_;nA= U"Q:Lg^8Ygp]2cUYeC-pms,o4V^P$k\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;S5cmmM?oDp$c3kM&W:PsNz=_#uh%q-f U"tIx>4H:ttDo=P=K&%F)bbtYj+Kt:k*R?#ip3Y_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\hCgxt9nY U"3A.Ny#K)TeU2\1Q.OQV/(f,vg+7&/0cd#fK=:on.RL*i)O_#wDkxh6P+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",Pulb0]ZL7]fktJb?UHH(]%4A=_T U"LCtYn:4]6$?u9cPLf)IoBhtn2 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_$mI,aj&t>i,q+3$D U"0KB?:YOE]k:Ir-4f]Oy76*8Fl]L#xC)E(>o5Phoov(-TxxgBL.5:u&HU9WJr1bG U"3hMnB.5H9IJappgva-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-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?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(cU8u>aL$(%kebk=QWA U"qFeP415qRO6EuE1\6lX28mk?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_annBUOc(6UYfHVz(? U"fK*i4SFtE0L.>R[nr'WJd7\: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#MQ+j(4;]i]*kI3Jvc3ON;%rRT0uT25=Anlb^?ki_+Yre.mQ)?SDqt*Q;*, U"$,J>J]JB<=BoWl0YVXPAUG%OOcmY?Vx\5.^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?Js\u7N1t<+[U:Pl U"#7Pjw9UyzQ3\&pBXPIu8jsoJ[H%'Jx:.RrJX1t0._R2h01tj>/U'):s2$HK2/9( U"FG_o),7>Yc$dRN^(,j1(w;0lzoL(/D).C)QYFP?rCSFB,$vIdzx; U"iT>%75Y2S/(T%fmf$78iL$OBi+&(0YMBf6_u&]s<7;PNDM]eGp< 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"cp1ZjD9*>3?SL)wr+gnf#]xP8D1*TGgG3x&e?PeVVQ$ U"M2T;0x^7H&_Gh\*S.LEU#M[Uu-)di)l7 U"<&c&z;_wF\;-I4#w7KZP+u$9kjB\ifk)]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[fGaGkj/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,o86Afg;)7WxW1e)XUb4S/X$#V2t_tTWZ7+l/9WS('+'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)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[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+^JopHPSlSXj?O%dStcI.310Gf4j;AC7]Pl#EQS+.x&EPil:%5-r+]U7CfLhlegopt#7<.?d8e#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[eBerlh-pv+(^YMD6Ic>n$Ls=k9mcy1qpRPTWGxIkX(n8]RO4UN*0_D/:.l)f[;; U"O_5/Hnhi:lZ2oFf1Y^9TY2AWQ+'o&V4DHY3aN-M8?.^Em0FDHT,Aph2HAa-vIrl U"hZvwfByfV-fqoODJGk'+Js2qVkGft+$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-:[(_nH U"SLwMvsVLFo6= U"s\eY6UAMT;cwne%4\io52-fHc>-WVMijM[EjZlv=70QQ;fJ]j$8$1-Q_TOtvm('j>xN^F9^fHY]%t(MS6QJ:AhL.ByH1sli$o=KnB&hKVJh/]%#d4L U"p(acx2]$d#%[H>*]V3kwpmKKiMIc46l8cRQNC3B;[fJNP5oUrR2B&xmqhQGV4/>-qG9818Z?imu_MIxpDVHz0n/O)=Nc. U"a3_y5ywVNYbnM$1YK#'KUqCiSd>t,kS=17Uys1JI53vnKcncE2]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.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>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=tiD\s9]+TCionmg.R9ud'FTXn4loPe$*&LMBIcd90 U"1iqnqUf=Ri][YSa%16eZ&ZUAKtgkI]S-6?1 U"M),#2nhyykU(:=.(AG>K:P31uq(5Is\K$KGgdcWKC?Wc^j=[pa0CcJ#+,+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"/ip3oT8Sp5/Bzg1*N$0^^E1d/0=B2MIR/KX)T[vb[b2a=9Oa%HBP#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,KVcUf/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%**c]=Pj:j_Xn7o>)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.vQl(+J46i;^3?hb4l/):;=>0CIOK(lun84$T U"63s-UXcbvJGZ$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