'=========================================================================== ' Subject: DEMO OF BOMBER GAME Date: 12-17-98 (17:19) ' Author: Sam Thursfield Code: QB, QBasic, PDS ' Origin: sam.thursfield@btinternet.com Packet: DEMOS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"BOMBER.ZIP",4^6:Z&=3222:?STRING$(50,177); U"%up()%9%%%.-%g3SYJ+Q.hDy+.%%k6%%%/%%%%gt%rgjw%SgfxN^'.;+9N*4?K/qJIV^I1ws5V=syP2STtKOw))B%0i39aqTrf0$jVPpfa'ReEJg^=r4?& U"gDdmhL7H+#NKc9BAZUgA+f?^r5PV.7A=T8gCYjL#L#69QrCSSp U"nhn(&alanCm?Umou?r;80)]=V]:3-Kalwb5QkDKiek5KQ-baUt'w8;6M[Pi9kG, U"KqaAkGr(A;]W:S,aMk/QV'sv7#6>x3#1h'XsD/Y=cBQg4H&lrg#)m6cQ)tE9_qD5hisE)A(X\dlXg^^nD?XG/bzuE68&x>h5F#V>I3C94+u7dU.A[>H&:E]E)J U"s*#*jT/T^h?oD0VEC=1[4^rY)X5+[3fEm3K['-N+qTDWL)beR)*4.Zur-eSJ_F_ U"=c2$E_.hQQ,vb-\W,6e9UO'4acbZLtMP)16/W#[vEmFGV#XAB5ElOh59,XuT/Fo U"ZH8hk/ U"aX+M50UdSY9NF#kn;$>8F8HN=Ah.gj+n8BB9dMbBD[6A*aX3LMkUd1lA(W;C_1zeP+e?KAPUD U"?kckJ9[&KQvcL[Z9dpYFNgPYYqfDk97+4T+iiuNN],_3;>UY'vaqRNOI0*3v6GpxJ_+Mhi4ayPkE(-T>z(PS\1d+ULFUx&HQorHEH;u:XV(O1Y-&>yK'Znt-(OOu1z: U"?7m3w<&2R)g4WwQmoN*BSu(EOu(*cFRg9$[md2Y5K4f-.SDgpCl?%R5DAJWLU*O U"l\L.9B[5I^llwD2Haf1\XVtK'?u*+CL\:Rq3HwSa^ljU2uv3YJ+fLo& U"&C(%%&VO%%%/%%%%gtrg#jwS%Rgnfh;:ASU=5#>n?u6Xn.2+B(KpCl09mFF5EuO U"Ct[LeLeXu&uW.CP88fM;)xhX2^jjcmj.]5WdRX4?7NJ1i,XaofT*B<$t>T_\lj< U"r$6zoiTD[iW'>t6TLJ=AM%rWIo-HcX.2lH>RP+AEI(d3&.*ER=UO*1$Tb(V##JiYc:#;?huA2O<:(qlKRb U"2SUJ]t]+jZ'^7?Ve2tnlY+[\4SX&ms_OJx).OhyERBX_$c>H'Q)O+(L[HIhLWc' U"pI'nL5Nkgbj^XwjT;uDV'U03%LH6oizQS4D_F1_lds&gY(;DaVDzPj3=i529O_0 U"xRf7:D&qI99#rz/]qKVtM3#r U"H3i8\q1=n#jaLB&8r(JQ3ssT]X%]87_#84d(8Q.qbX2,XeilA&kIr/Mf0Dj<'^c U"y#uRMdImqFlUS:b>#2)E\DshqnkqUN#u.\%cJtWZlFV'w0pVJhc>K[L4gE*OYMG>Y%lu5$]'nx: U"4*nMmuUSzylakqwU$3h1d<^0-9w]wJA#iamvsd#c>q0WzNh$B\zPF%8+E>rc\Pe U"$DB'SI*Jeh*GFG^1Oj:p^.(V6klC%kw0;]=,npjbjxOD2]HTltj_u'k<%JGRdWH U"?SvCs?[-K5au>fw2Q(9T+B9*BU>qaqAO.D_HI:=>98M.XD#e*oQ/HC#=R-7Yvgb U"LruKWXIn[hH8p3_^$[W6V\vug]10kMSjr3VJIX$8hDa0rTt\OkGum[XYH$oF\^ U"fPHqcMrXnwJ7xLG\Z^p_tHtvE/t:;8tg^v-4eVhAobMxdveS6.s<6T*TTZXXX6X U"8d**x-4ha.h<t#[U9Us7&UEdX4YcM%*%%%%%%%%%%%%%%%%%%%%%%%%%%%% U"%%%%%#%%%O&]4up%&'9%%9%%%.-%g3SYJ+Q.hDy+.%%k6%%%/%%%%%%%%%%%%E% U"%%%%%%%%gtrg%jwSg%fxup%&'9%%9%%%%-%>3\YJfL.o&C(.%%VO%%%/%%%%%%% U"%%%%%E%%%'K+%%%gtrg#jwS%%gnup%&'9%%9%%%.-%r58XJWj%6-k&[%%,s%%%- U"%%%%%%%%%&%%E%%%&=/%%%gfhp(S%gn%up*+%%%%%%(%(%&u%%%'S0%%%%% END SUB CLOSE:IF S=136AND 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