'===========================================================================
' 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<cY6x
U".t>*4?K/qJIV^I1ws5V=syP2STtKOw))B%0i39aqTrf0$jVPpfa'ReEJg^=r4?&
U"gDdmhL7H+#NKc<aUjf;eRkH:(LacMK=)nKYo=jkL$F56]0RQHk=3FGcvG^X=bpU
U"X;6Es515q?3Fd9-/[E=/Po?3Ros3)fN?9$i6)+OJ)]Ag5H39Lg'QwaGRB)ZNn2U
U"^#Lt=#4)11f/&.Y=TT&#3dh6QYB,GVZ[C'PAUZi6FNkO8a][O=O_e7KBoJ'*$gW
U"FFl-3(n'T4J#CIi%.$owQF:Pm[(,+p]WIU2+m<6'0<h8R\29&cesUo^;v%Vn/+#
U"jOq17D7&k[$W/eX[q^#UG65UN>9BAZUgA+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'<Yi]c+:1$.LVfz0EQuriV/LS$EvqO'Pnurlwdn'D)
U"OToSPIGn/$8rBu&f9Q_Z[:=&W[R3ptmC^B#xk)7<bvb1G$mn?^tsYB//megTon?
U"i<bx5Yo8bQm=t^kVegIu/\;$\E>sv7#6>x3#1h<e4N+5OS2.lcaJ%nFd7NZVRk+
U">'XsD/Y=cBQg4H&lrg#)m6cQ)tE9_qD5hisE)A(X\dlXg^^nD?XG/bzuE<E#+G0
U"kVy'P$CWQ\HOLErR[A_3EXk[)l>68&x>h5F#V>I3C94+u7dU.A[>H&:E]E)J<Q>
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"ZH<tGOB/QP^pP=^e6v00tKQ+;6wi0jSTbm0J:/Z0I.0qRQfi0\X/dm0c3;3q<)s
U";suq)-;.QD%yEQVc;Cj5H^m+[9hHkU^TPi3]yrdLN%\rUlo\I]/MCwWhvDUN.+n
U"8fRE,J3ztMFfsIH+&Lz\BwWib4CdHg2sq<cli99KRG+b_eB9J::8B7Y*kU>8hk/
U"aX+M50UdSY9NF<OgE978le791np9V<ZD'N0CPu*yhVttUZkccH#cGw:#_%K4X,T
U"X'QdVCp5H)#j4bp\=bTx3amN/sJ+1)\-)AtBI8a,13N..*XSApC3q=+T;ENcp\5
U"^A>#kn;$>8F8HN=Ah.gj+n8BB9dMbBD[6A*aX3LMkUd1lA(W;C_1zeP+e?KAPUD
U"?kckJ9[&KQvcL[Z9dpYFNgPYYqfDk97+4T+iiuNN],_3;>UY'vaqR<PhOOshd(=
U"_XK1faY$+]4Z1fi5nIst8[S14XPuN=1VGS,p4aH4PG8zAojLJ9fh-c)L2hsBvwB
U"*KIov8n/XMZ):3V'k>NOI0*3v6GpxJ_+Mhi4<Hq5<qlh%6Zr)g/Gm#eh+,qa1VK
U"%OBaVEw2iPjmPhQ)6:5lBDCEAD;K.Ch4C?YlY_<YD3G.Q^-+a/.d7dlM:fTGN0p
U"g8*c+i>ayPkE(-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^llw<EZA.lM&Z.b(rHL]K3fn=P(bUc;=U7rOo0uC8BopdJnSW]rgYK
U"vXeX$c:s&3#4opvtSfy3JRo<<ai'wCHnwbejib%sgJ_ql<rl#So=xk*6JWwIkBp
U"%O^\fgs73UVMbjbeD[_8s1S0ovHU=x5'aFsKbl4jG(Ledm%RM^b4?blhzHMfMa_
U"slBtj]74aXkEb*kuWA0KeJ=,h;=.Mtl+wq#mUy/h[ljvGWi^#?qq;pN[XA21F1R
U"2EojIrqEG2_*fBy&3IccqutoDlb\56z>D2Haf1\XVtK'?u*+CL\:Rq3<rq1y]Sp
U"BA2'n&kNisI4t=l\rH,[QZy<tBH\2*,(azHj5:E>HwSa^ljU2uv<reK_\0v8N]x
U"]5ow#AW1Nq-79e7M)OKv%Wrq9^=1c<d:+hrLaNXEr]-tc\\bTm2GAf?MZn_.:?:
U"v(&c&WzoR/W\JnxNnvq)WperfF4w?[3'=D$z*q'x'up%()9%%%%-%.>3YJ+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>R<w1RC+GD%RRbo2a[wPUz]^9(rB=
U"Q8f1)z#zJWD#I4rU?:jQ3dt)O<6.PgQi,f-ZRAY4g$<K*;s-KUb-u+q'^AE\j#$
U"8%]*P-HWfYBI6NAR>P+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<gnCcni#_iR\uX]KZQP/DlPOX'Lp$HtgVEK4qZ>#r
U"H3i8\q1=n#jaLB&8r(JQ3ssT]X%]87_#84d(8Q.qbX2,XeilA&kIr/Mf0Dj<'^c
U"y#uRMdImqFlUS:b>#2)E<d8#w_$cnny3sA*<#HL,f*-HUC4mUCfZrcQ:H1N3TnE
U"ut/3]0q>\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"Lru<w/vJYLxksrSg1<Y'G)O],?eZWkr'N(BMSceNSpZ?Whtd8B&PTUcwu[8h+rC
U"OP8N\HXQg6-Q[RWu:>K<WiHrHC8K]Mj+9/uD'IiMrPV$pHogy'X%<j2Tb6r0[R,
U"HcIoz)Vd+dpjbR$Wc^2X8^H#U*fgLlVviv<K\Mk8Z]kF8\vqnN8%\UsU?4tNWd=
U"mSmC>WXIn[hH8p3_^$[W6V\vug]10kMSjr3VJIX$8hDa0rTt\<ljrnPIHCM'8%u
U"p%()9%%%%-%/r5XJ'Wj6-%k&%%+,s%%%-%%%%gfhp(S%gnHfPf9B\e5UUvn$6dE
U"Lw4'G^,'Y(=<3pX#UNTVWKJI$pwwlw%TvkMtL4-Vw9%%%%%%%%%%%%%%%%#%AR.
U":9rbI\kvt:\=b*4on9eO*L?gc=.4nIce?x)S,t9-ma&Tr:);_8LU<D0)hpSPGbM
U"J4km3oEgy&bR'OSzTaKlRXDv-l%cQ,p6YQ%*4Jd_-%-R,oBORD;)Js3dT\ERw#9
U"BwT;hxr3*;,:Mf?+U'J29'6k?OT-gt\cEAC;J;w+F&F^MfI)>OkGum[XYH$oF\^
U"fPHqcMrXnwJ7xLG\Z^p_tHtvE/t:;8tg^v-4eVhAobMxdveS6.s<6T*TTZXXX6X
U"8d**x-4ha.h<<sm>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
