'=========================================================================== ' Subject: MINE SWEEPER Date: 11-18-98 (18:10) ' Author: Dominik Kaspar Code: QB, QBasic, PDS ' Origin: pedok@pop.agri.ch Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MINES.ZIP",4^6:Z&=3774:?STRING$(50,177); U"%up()%9%%%#-%FdS.J0R9=2B%.%%K&%%%.%%%%xj%yzuS#gfyTG^:/Qde5Uha0t U"%Vg+pzY%JuMWlR;q+u/)9DYq4&/-'akbkMZiJ)t5sXuuljFDcvwPd7'r-e7U9#Y U"..k8*5,'zjgX(Fr:#VJuX,VE_v0%d/?h7q7mioeHBZ=hIh#r+eOZC%ujQ+Ykq-Q U"&pQH=cJ]aC/g'Pf-.%$gT?36V[Q^s%Pe32W59E#BX94,0U(w5AHWhjrrNk:t99F U"oVjibHBiFtY>8hWgeB7Lbaw?]:'zQ:XxfW'HT'OL6a6/CUI'%up()%9%%%#-%xW U"[7J)u312G%%%%&&%%%.%#%%r82=4BS230Cx%UYYvqOR=UGsMG-%S*0XMSgQF1s1 U"8VE3opMM=5-5m[uQ==74)6Da?m1Ln%1-LGU?5S-c3gM2--9D=1v57Ou;=rR7hKu U"5EmKT59)S^*a)Mms*h=E[Qi_Wd\F$G3VxZ.W7ZwbO;kA)ikX7Blo7B,G2%u%p() U"9%%%%-1%?4 U"BE%sC6_jp1W'ULjm]E:,W4.Z)lJRP+T3kB5'9CGiX'P U"=ZFeE'rIUK]C=Im(4uHnm\k?[ZI)H8K'Gxc+SQ;79C;JL(K.Umx+0T>%*i'5uu+ U"JfDM]_fiV+(l;mDq]oQn\alo%GZbd9vG6GNC<<(s=B?4QMOB:N[f+d'3X-\bnV0 U"M>u6Bu>M/MRKm>rSV1pv-8^,>r5%r'M,BeN$yW;Jo_6+q^r6uiu/qr3v,Zqs+ZZNW%>d;Tv5fIIt3E/EJ.j;3J4ZNuX:6Ws2qP1eJ*rt_?YGq/z&)CI U"c1]A]TtzQ?[gVQ5\+[z;Xr%/cfq4Ga:gieAp/\jADYlhF\ja2^^K_-iek&:+^$L U"4j,Y\#0QX:>JW%9G^K-enolOjdAtuV) U"vtpg),sJa#IR->LqGNX;=DFdszWMeQsNaMJKz'9Y1;4>?[K#&&[b5/$-fB1e5cu U"u>;PF8L0_t-1J#)?^jY/o7,$%C'>&XM#zl>P.QS-D&/$O.w.'afZ?TY7wHrb]AX U"0mie(''oF^WBMK*He]aSu*4UiM3dEGP.sFA4q*aLN$C:se%WKDmikzP+66OI:2Z U"6OM:%rht8)kgZr<)>OYZ:M%8;Q&>'JFcMLSsGP83:%MP_Js#N8)diNa;ABi4gJ9 U"6q%iONo)*vZV?3Y]]8\D1A=tkPZX2gJc6',OC3#W8'Jb-cYSo#-#U>4_Vy?A1SP U"[0?.'s,B9(esAHrbJ3ESK_Whk93$ru4e0=,)(Y6XH20K?40rqvoOrYLYWwIXALP U"+_sY^Dh^02JC*7P0qS$*o*9CPP;*ycR9qb.3tnag:i9G0,Gq02En0;1s2Ks9g2j5G=qD[Q#oJC/9_Ga,)U(dV9Y)0m=CjEY2Ig8+XUVFag2P=g&5L+aeYD_K\eO& U";AkjxY9tpK2%;4VU7Q:/+qKhuG/Z.HQ*ExAFN=?h;r[[AEAal0m27B95;ui5y?L U"s02LS)qU.N7h73vi(1VWI-c3CpBhdOa_g:OX[1C.*9%bw3-,/&zxL>4ZV1(g'Rg U"r%X=:5e+a:83Q'&FB+q_+h:P'KZX#[]r[Yibe_6Z+Cf6zXpcYFLkt'm[cLNR#IU U";u9*JS-2t.R\a-5V89q)h\9W57/$rD/rF203MrY\9>SWe^)^^yg6JAg.=W6-:fU U";wax6p%x*Kb.z/T?pPPP#_su;gKhRXkiD>fBl['#A':V5uQ.my7[rQyv:TGe2PN U"^8lm,,fMP]j9-s%MoUHwK%sV8a;/Q,548'bB:19huk>,)$RhUHn+[NV0P='V\T1 U"gix\j]TLb5?#K$?gPQzZi$PPMXfC$0;T[FlmVk.pTf%VNW:9X1+HGP[HKp+4A0L U":*4dr)ukkpsGT<$;[.kp*zYh1cSORgCI]\sD2Y?GcYs&EnnNU]rFUMkl,,]xyQh U"G'5Y*rY2B3uT7yNgp7SbUOmBfY'x1k'[EpLunzP%j.QOV/2V5(r,*lXi?AVRoJK U"l]qwn_*uVibr?ZV,x?S6%DHW6avP,#LUgYTY5VgQ81]:&WLDlJf+Ma_ U".Z:Q6>jY#+wwlVj]C,e]LuJe?xokc#3*5p+'/#>SCq?b7p?]Qa,kn/T\s&=IeAAkDUU.8mEUVUh4q>0cYUAUZ#/xHWqFi U"b-te68t'Bqfu2D6-Ax'*-DOELV.g*L$$]^r\nW'[UedEW&kOI0XSzSfv[r]r5faw;%Y U"2:fBtisb&c,eg?+/2N3Ke'QmQ?A;'EjR36%2Z7A0h%EO*0z;8Yfp,Z#(A7/QTZG U"4A$_=d=^E4j-_07W>Eqg_tZD/$3R+LMQBXt&9MR00oWj$gBv^OlCMnL,\1p50[P U"%[ukT697fOL4n/Db'CP_GTe?3ySXk;n*SL/3jG)i^'3:W#)HNlr4u1dftPT&_lD U">oZ+?#;*e--B/Q&N9t;FN'1g7IJ2+5S.p\9'yRGXg9mfa&8]&u-yk&0H#z>/Qf? U"rsyLM')Gq[%4hP$THv//a,XgQF'/2<.ls:WjUgUbXRnO'q$DN,%HYq6-W^/kA,/ U"*B'4YV%FbpBDQpHf]rN U"b+[4Y=:cTE.grQ-M;5HMpwT=&4RIEkT4P[^nXLvHhMs'lgRp?W1sd1e&(nTc9Kf U"fNk(HwT,t-T^;/J'#kC'*Ip&pwd>+l,mAM.rlM**-aSk%a7schJ%2-4hm;-39:Z U"EAcX[AEQGAlu7Jpd3J)$kWOL$nz\B2?dyu\2jc'\f6:fX'EPPG&piVMKD6FaS'$03*T:dmbvVC U"BhQ:S;=4e0q^B[9TANWlLxs2Xzl<,ltKbwf6sj'o#/kR(8xy+_2=Rwq?Q=UXx-1 U"iez\,*On5Mt-)B^:VKmMkAkvBN:ob#y_'mE_/om>6'h^-OIJm47y U"f5'p/%):c(S,'Yja%9JjNLP'&+Q/]UONY&YQb5wY?)959>/8Cr88l]#*3'D,?\W U"Fvo2T7uM/KSx0)wH,;t)BYXX8[Q51FuwT^B0o7I]-Y,r%Pd+tQNq6q]X/tbxf9u U"Bu=*>B^/#.O+mp>gl$7S5I[.9-D_%]_G)G=4fb5%mVUD+):mb(LxjEGnDeM+KLO U"MIh;yglT8/5T'94qsy2#/>JT]fi*_fGX2A]b%pkt5etK9-V*I?tMH;X,hqR]#p7Vjntfjst\Nig-HHYK U"(DmW^[x:8Os1;QElFm?2omsPa6A'gwJz.lyh:+b5#\N2AJ0?50WDOB,SzhYd+,K U"[vb.w9LDp5tC8[Luli>YhV+S;R2lH,7BEI/-l^%_RegJbG3E'X>_sobC/A3-6L2 U"3(FAN8OZeb(O?xJ-A&ptnfcMQ%wnpB_\vaaAI$x7. U"-k.#h=5iN#PS#d5Y*'4)a?71M'&+MwKEH=K6=lXWmA:0uVfwYS[7BY.?r:RS4j? U"VTj8hh[4$ZP?sFB=3tKFhkY2#s[VdB:=-^'tNentkVMWiTf#ho'Ouz,X6%25-gC U"ybCUm1A>H\Xu%p&'9%%9%%%%-%F_d.J0bR=2B#%%%K%&%%.%%%%%%%%%&[%E%x& U"P%%%%%xjy%zuSg%fyup%&'9%%9%%%#-%xW[7J)u312G%%%%&&%%%.%%%%%%%%%& U"%RE%/P'i%%%Lr8=4JBS30&Cup&%'9%9%%%%-1%