'=========================================================================== ' Subject: TICTACTOE GAME FOR VBDOS Date: 08-14-99 (20:50) ' Author: David J. Smith Code: VBDOS ' Origin: djsmith@mwci.net Packet: VB.ABC '=========================================================================== ' TicTacToe game for VBDOS DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"TICTAC.ZIP",4^6:Z&=10814:?STRING$(50,177); U"%up()%9%%%R-%FJR4LB_2Ve:J7%%6x%%%/%%%%yn%hyfh%SkwrMdKJ?k*PH$*2G U"6tVaIQeUDA(8IpG4__ew<^Bs*'o%-0T(7EJ2rT^pYanS.YK*1OM_Ko_xlX]GE=o U"M>HCsrKe'HT=ru$42\F*1X^uXrGps_XrG>FHNTAR/#5;Nwuem.V>\on*u:TiL5[/4>2drmkmY=l U"vk)\rdJuGGe U"Hl+8mTIsmH4,tKQ]\.5FNY/nnGlm)W7K#e#S1^AQr7p:7.%PG'gYn>)aTACiMGX U"5/])Ti5oK]8e]li=tjTpAR$>nvjYL8FUAM1JBIQ&WokQp)u:MD=C6i']QSV[P#k*u U"*R7TC#X6gk;'FS*D/RHJV7NZKWmWUP5nBI52Bq.X+P6$%Ub0S1>ZS-XOPPC=%e9 U"(nfTX?5Ef(D_H]bbb:)0ejLWOkaKtVtl+hze1j4$b9?Ow4)LZhTW,NkLWXeryc8q5nk50'ytzo7#,FcFOlY&q/0f?w,Bku63/[G0wqz2unN? U"PZcCviT=LW]#mbTd:[cMQ1I8Tcr$7R5AsLT'lzo0Hbv/Zmfz=-GokkOXNnhHfQU U"8E,8?W2Gf$XB>d,2ilr]=Ekj%c+XAq1^d*8(J8#NEGTRY)5.3E;2ibHpq8PIBj-Vh8Mkx;x50HH5SYv,b3 U"^jDKD>&gj-jCLvL$BTos)OVj^&5cvQ]Hu_*]5E U"jFOT]YX3MPrbZY:tIZ9btJ09hpClii>nJOl%J<9rfC6iQ2b?YEHbY=iqvf6giU4 U"g/aN,5HMc,pFiOgz$,^,TRoNk$%KLdLkuKBBqS$5LTaYE,gnt-8Y:O8m$q:Wd8s U"[#tcB)lnDv<)F(tlTW3CvMrN2\O]o1'=cF%*Z]LjHuBJU:s(hr&$#R4T-<$^' U"50B,b(o[HDB7PGnlVNC_.nfcW;(5eEVLQiHKT>kCb>v3Enjb8*]20+HqhWe$tu, U">>rR3;OXRg8x'PSklBkARR5#Csm]X0q$b$tj0&%0-H?Gg]I U"q/+[is8G75?4njZ=Y,x4w[S;t/ZRm/Xqmh5^q(5Rpjm/bjH:A=zD^wF%SMs+7Rt U"2'*M410pTcPGh2X.O4+gW+1+F278K2okn>gRRQG=.t/_Re4gs:F'_dvoGvlToCF U"HK$V&QE*:ovG,BQuS#C'R7n=&0,J-%1XfB_dZnVxsXPBMLoXaXX+TB,W+P3OBWm U"F7]Iv((E\v&]3fO^&1']4D71KkNk%13FhC[8*]nqT9CG6fr_5B4WjIA\g[bSIR91d[.9q^*':-$ U"G5XrJC6p%X1]Y>5R#+GW8_A]^l'M*7uN]7/dqAG'='UL,%O?W$,+Ol[(IxiJ\)% U"5)1W92D>MO[D?-Oc6DlXq0bh7$^Xjs]%wF=C,poaqR,kK6_ZT1RW$,aWAjWvQE? U"N514fWjd)*M5Qs.^i'mHh+d?MR-6P0:TqG7851>pr;g'bi[v#SdC0J0/dq*dlU0 U"BH/QmtpVKN[,R U"lhv,NowN[r)l+d%yK46])lJi7x0,B'BgsQmc,vS4ETeo/ft%/:jVukGS7\H5=2&oLmF;Gbqux&a?,?rTPUQ?4LclF)og.,ZMa=E[B/S U"8kkFZQB=z63+%?m:d+1,=Jpm(N'Bre90;p,(jP14QcmD?$m-oHV0)v*cV\ U"*]B98=vK$qZ)\SDW7<_eX*;^?'=fT/r3k(1>>c*dJ868L;0Mm#[BKEV3rOy#bh0 U"\6SLvX7:dP=hq&tk_;gNSj]wIm)J'Lj9SINz2gp2lci4ajBvX;_mX U"YLl4'VI46pJ&$4rHV2(L[^MrE-xwU;F[q\irRI,Woj3,YaQMs\Qa-4xNZ6g/Bfr U"=_RMISk2+LQCudI;vp8CT/ U"53sF15%\MQ(9tVrtR8iLxE'VM-(,kY;hb\0/wg,O<-ed=3'mM#_#Ja2 U"<,Hmx:Xo(\Px7m3gvEo3qoBL.e5'xU52P-P:CGQ_0d_gGZ?pk_A2bf:naYI'kT2 U"0SG_loJph&t=;&alZ=Ns6_$=;=]*eJ6z>#Yq7c9HT5%:ts,^Hmp+a]7J=Q(/^HW U"YL\X6z*pbV;E,TLt;5URZ#b2xKcViNU&vbOEA_[XB9H1,B6o2>3)QX>dqccf_dB U"UB>h'(8a\vvXi=)Qe-o0$bfEW0;ep3kC]J-)5ujzho,js5Y#^NALd8h+V]J[uS. U"n1jqbTq-luw$C'?SW4IdN.3Ulxu4S&RMIUp,%jk,&pGV956y.S#zq9$)2]oAnkYSFP?LA'g(p U",<&.euK)=2])7=iDu8-31-%eH-.G?ko2i'tx?+35yj%rEfi_f#LlY:NsAlu*%8B U"rrf;'d/k'\#0,[qV:zr94[Kr:f[ZM#O1eU&n1Iv58_4QU9BZXVjW=_c9TvA-'/$ U"Qg[9Z[/FD1WtaNAOK2W>7YC>Z'6HSDECOWN^0IrH.HIi9P8FC(Ll8s#_[zBrTac4Y U"_-39>g33]lD6'(\9U0r;cxdrqbG?mXre_\prgEeCSh_&cS9G)&tfgv#HdK&='pI U"]rbuWci-\)0#oOFy[Ikl&H:hE],c/.:'u_DLKrEiF78rih($W+4:H:21Mz%\=Sr U"k7s&i+artzNc5IilW<5LCCpEE&s5mDk:ZWZ;Yr>UE'nQ%mwLph>9-Su&n;#=y_+ U"%Vm'hT%-A>OpdSdC;HJ5RyXD_)0b;YG+3k:;=x4gEDs(AQF381*_DQV-)%t[N.I U"R%d-_X_%ssx)YvteWOI1vi<,yuSeZWk%$Cdi7dWZjRo$f.nmGOSa,ZFt/6a9O,h U"_TA^4n+#7)kEYm)k8z#,,qJT5Lk#CM-vvvG8'NX])1):(dQul'g*5[2\=ja U"g2j_?M4iaKfF7t-;%,VoAAi7G0/SKxq:1&kXJKMjR+;8ER3KOe.QBvQ?vmH:D&& U"6Cf)>?#(H[J/Uu<7XMj#ZP5jon$(jBS4-]iXkvMUD>Q$= U"XrXLD=5Y>RZl*Ou/OK&,'lIaEe0Y*]\->a>?,\v+A;CT=UfK]FGEl)8:+U'w*$? U"]RYBFI07Dab-\eV'0T_Xxkx4?ZzQk8%>/[NLv#nb8c:T\XLbC,^DnV%Bn9fTU\^ U"m3USd^kjP4nn'po[XU7$mvxT?)uU<=5bD7Gd U"'f>jfs70K_=VqbZP\TCA&2U=\.IAVl_3OPIk23,hzjh\#[7#(EGjDEZ7*M U"wf(mH97r(wz7lk,n'%//xIgHje3h=t..o%sGSu+\v?n8N_^I2%6[TxtYWE0tV?4 U"X^Vr,o&\f.:>4tdNu$ndMWX7m-Ht+4EVOu$Q:\M[WN%&KXL,#VjpaZHOf/?d$OR U"l(Op-Wjbs5?CQ9?Z?<;Ib+F>)VO7Z^tcpD#5TnXnGZDMJ-R[V924NZ+\VhR U"l2+T U"qZ*u_xF9f7X[g[^e8#SL3wq_]&UWJua1#f+eXh['_ser)/]7KBcQKE6oci#0xk/ U"aP5\zO^c:h0j%3WJT U"TI-se(TIIceN6jh\OW*.p.eXDQIM.ec^*KV37ja2>n0[[Y.a&O2b&]aC4fH]YbT U"0+31/R=lapLZFcEBudd*_2$>, U"i:A1hS=q,;x-hV27;u%OdkdEe?*+r$AfarI]?G23jg8B3ZMDr8(F^BvQS/c5E8* U"^3K(Oq]LKR8$$YbANz)V.t.x&]LKD^i5Wr)7+bUnHa'wl4q>=Rd;xGuujqfZj4b U"c1ulgwA#CEuFzN:8>4g,v&>YMPEZHRnOwA2au\uE+hXCt:GD>bjW,n&_ U"%SFYRG('k*.MIRps]k1_8f'cbfu^+>)xfwP*CcJRnfhl&-v*2B4(mY2TF%sm[2B,mYe#6]YNW,]lx.6^,U5;Yj*aI U"(kJv\TKI_orF[m-o3t;w2*aM#W:NUSuj,I>RRuF6+t9pQEZCDvX=KWc1Jid;:OCO51h]XjfRS[2k U"h?kJ;#3A#TjPHO_LLd)<($QA1V>'m12XD2c5?l4+$)](A*5YkAdh?gF,w2SHHdi U"eX7)C?O1I?eW*;DOPJ?q,7;*'&)3JjWCtcb;jv?h'T6*+2Ptd+%^70r?t*<*)aS$oDxc8.>TKWVmG^3W&'f*0f-UW$eaRP,CiZ)H78vo>-8.7HtWBHr$$KiE#q\v.^cM5-\oN;ow8HU&CWofwpRDyBYfc-1a U"AJHE=1XYKDi])K:ttf^K#4R*GG*;_rdQQD&8 U"RAJ[KA3PL'CAaXAKTx7K3gzbVwWX-,ZQ:nIv9V5UA/,kw(B4NAi=UcOTWCa\c]' U"f(qw$mqpW&juCS[o'81qIbDoIk^fXf^K]c\*kfttH.ryuh6G+nb1u]qf62N#luA U"aN/o(ml(pUK;J>]C\[5lgZkelDm(dArm:^q8p'G U"cQjpd._%nFuIqzTo09'nI=(sZjk:\jWJEqAN[EFOT[Ne;nz#jeIdLiWqS\6r86Z U"jNaWi^,8ZBaVM;;(qp.,i27T5Kh6Dca=J[*ha8GOvnIeg'B-oX/HQ;_?h/I1;q( U"vX+3i]Wz5wTG,P^QG'H&(&>l0.)r1SOz,ewb)QuL#eC:+qa#:&h(Br,w_rF02WY U";bzG1.X8u8b;2h+kk03svH1 U"XchmZQRo?JjJby\IywS]kqOqi4t(0zFAENQMiyrhUtP[-Jm*&zLyFpRX]qP&ZSu U"v4(zs[,XK*CuRAc8W.v81y>VWaRHj&t,pg--NjeF$YFt0CHetN,ooxfXAj2'AN> U"+NalD.-kO4x#4F0P>X=]lSkg]$L'55KIkHTDlAXDwr)4nKmb_F?cY&Vc?UXXePo U"^c2KY\7sA3bOM&/^np7L32GZ=T?FBbH13FWifp)x[:lrcK\4JZ5i89DhPwZ)O$* U"Q<)PIlYB$hBGM8hEfdN\C=7GD(MoU8nOI?i('h(6rC4QC6$^=Ur&XaUD>5EsKG5 U"gbFdj#DZd4$0.4K9C=0GNRaE4pt<4lHYh1]Q4KC_W?wDsiq(t]2e57pZ U"r0XAbrurD4VN*kn+j:3qk0h=&2RS,zpS0sl,rjdOJoe&vN7[eDoZq+NrkCPfT., U"u$9G][GSkRM1XrGw[xp[9Gc'?_[tOrUemY.HSU#_ek7'FXsQkF%u0 U"Me$rP+fhC4Nw+pOOp'-X/$gF>nvEpo+\)UkXejuScdrNdm>$'I U"TJ2e#T^dW%llP=2kUf]UYSQe085=iCDIQsOrj4o[_A=O'MmHQY8o8R?WtZ?Q6K*=:/$HHB88f%8UaQg8e)cJr43DFYc$s'meo%?f%9 U"1nn:reftpnw,\c)C+bimnK.U'.lbA;&^=zXObkekVow#H[cq+[bSMj:\1o3UQ?S U"k[3+C,Rkb.VWAQG[QNkVJ]MhET[pLzPh%?t?,qlrsW$W=pPeDf8'M6n>?pDJWGN U"d9CMe%U/Cb>'\*o6t/DjHC\6$/?s5fl]koIs/h4GbG1CT\=J=iJig2^a_$Hb.^= U"HLZz45zOOKgfpxee5:I>S8cKtlPMCbtzJO.rSuSJuOmOM/'r8O)M%M9lD0[v14T U"x0-eH:[h)31/5vbTt7qa855M#qy(X;z6*6Tco:s:x=Hi(/ U"-+d?CziAa'3)7HBR=B-v,*WUJZ2i0Nkka9,tM7zAc0I*Je_i?Vql%b+LW.8FZq\Svj3E:nNQ U"NtwEv6N=,48m-Zj9?kXOM9W$.54-iNPftpQOL7YMR&G] U"D5h?/h:N3)VT+3/b++<-C>0Q$U#\=rDMUIQ_3(fO\J#*d%\\:dN\E(]DuZpO5NM U"D]dJ28:?Xng$P&n3cP2Xv1J*/2A-^J;^o8Yr3Z6k+qiU-GOB=*TS-#ZCWXTI3r72,>dTezvkEstK_>vMw=4mROkYxJT&mg#cYT:Q6+5*nstqoHi^R9F% U"J#mNB0Q08c8Z*v)Vov;q>^o&>q?]6&F,t.]Ev6/\Wt7ev+]odo]eL+*+zbrSo(7 U"v6)%HcQNnkvKVgYR3(UHZgTAH1WGnH';Q U"'VhnpT)E%/(s[b;H%;>y4;UtC+JdEo6Smh9taU'7G)$L>1%Zb:QBDWN8]f)B5G. U"LHWagJN>]2#4FqD5Fq5JFq5F%WPID[ancA<0-lsH.GpaF4lp0B]g+,Bw9#lP0CZ U"6TK(fg]FT>DH4>Bq3q:o=10x:9PNqT46sqSUr>tljeX[0f_rH0Vm3K7Llg*UA>7 U"<$U:*n,W%K^<uv8Jo5KG(,d4K#B:+hwfcgN$$FZl9/sL$WRuU U"sIP/o[EO6Lfnx_'icqW#rlE5ZV>bf_i*.NN^q57pmSm'7N;zS>RjI-wv]_lv,4JU>nQA U"V+YRni\osYXCVHvt,SKfRVK7kZ,D/#dPg'\ U"4M*p=Fm^Bl3_KVpRn7-G\[:cd5eg6ylj*Ju:6z#D9ZbU$;x&iS0+MKn:&jl0S(y U"x.l#tTGkox-#$xdCqq>S2GU??Y6c6v3u#vJIJYpCHe.in.AL+3?sprc(QZW<9[5 U":lA3j(6<[sUIT_dA+=g>(KPkgMlk[NCK1ZGmvCAqcv/a6Rdpo^z>RY7dPeF\z;u U";G$iKMKfYsWSrG7h'\5(A$Y4Cl:;s:y^QIM10Gm-XC= U"ipe=5X=ZZ9jD'G(ubQ(]CQ=SY_aZG$9[cmD4M+mIPmTM];;^xdgyZq?w2[0REtSB,TZEo_<4#,7-yLE$m506yd^H=Lh(mK7T>d U"&oy>i*T5TgN5z/c>;C\O.mg'_GS^;.4=sXe#a=dTkUOv#0szpVhn05buHcr&0$s U"G3OwE:k15$7muC\oq&J-'jo&>2KfuyNRPRTu\%-*S)^ U"X\NiT>bXAYt#-.8*7reOjcGk;_Ao7VL[e'pEHl)12xZ_QrDDx;mtw8YnkcVODPY5CA=k?rXLM+?CpnIxHn<:7M,r;pvY#C(,0\Ofg8#v>wBUpbYK4IK?35.#$ U".j6dQarG,0QtbO8]&\E6bPeF'CPK0>[,Xv+Q&>I)kUVJ7.xft?)t,pBE.s5D42# U"XYcoXdC:6s'Y6oH;ePA0%J9nUYeH4%12bWBtlVpYeO1O-D^5\Q:4^XfT<=%,EWa U"v\/B?1q$4tHV3p3lHT/+tvXcJ2PnY&3T109.jQi8AxLaeL.X=gIInPhXFrL)+jZtq;v#;G]XdEu2dmM_IG0U'Cb U":t]*)6g,#453Q6^8Kf;jYq$XI]uYDx>l7jdBcDd)TSg0CCv3$C-tx&u%p()9%%% U"%-1%:24^LXHx)yN(%+%L*%%%1%%%%lfr.jt%j%wSkw^rDyH&:Ij92M>IWL$b3Ef U"PDV1^#s=5:-#Q*EjqE5fUQPVShr/(*+-grOtfCjDmy],/bV-)2^qG5>[Y:D1EwW U"\UTIKj?Y:n4^-7559enjIQ-Xjm:qq4;Ryz8.rXzsWtzw4C_Cec\Gn2k+j/Cd2-c U"uti$m:em^.\m?]#ts/:r;:xNNZ'XA-LKysa?qu9^/Fx(VQwuVlgXS.u7jc3*lTr U"HuX6pg+'iRl1=Dq2nrFF;7yJzdbUy,_6U&Vg[(XS9'sckkypdgcd=c(K7GyYqbR U"HP79)tKot;b&UHyF0bEqS84&&rdWr8e>. U"f\uSHOpNR8K*lhbII5ENXhyKsm5_eJwA93%<-L2)ySn=9ca,kq^?6X:7I9=gX5TL=8eu6ot;JkurbQM4uTD5jqx0a' U"Hq>JJLe52&6>XdRCZ[I>Xd4hNXx7b8+vcr0**/MLPw+NL,b-j;)eWWnX,.1ExG< END SUB SUB V2 U"AmDVlU.,8nGi&4_4JK8_I:J3Iechu2#Rd?)npvDkBS\qdR'&[q&KBLb(gr;n5jL U"[7V?*a-tB<:oLZvJq2$i#IZDDK7e0=YDMy]E)pSD<#+vA('Ct2g$y#vu_NNG/%h4sNr'Jd\GZex;D\Sr/D)6TU+r+s^LSAIVi/'J4&D1 U"\i/9kqYG[+z>V1&\shN1UFu\]X\1ZUSV59YIC_,v83+25>j*d(:89$^5dc)_fl2 U"*Y-bdm_k*BmvH$db9iXm$%hk+:uY69ms\VOP7slhJlKo/ho'/88=Ul5O^Tg'-.MBF[NLt47*pwGt_uGg$NTb<21?*[^1F- U"M(:Zi6)L)z8?SF;5O,FoJd1=o+%EE90O=lrmra)cSH2o?Rj:a2rcDo65].vr#