'=========================================================================== ' Subject: SPACE DUEL Date: 01-01-94 (02:24) ' Author: Jonathan Hopkinson Code: QB, QBasic, PDS ' Origin: www.smartlink.net Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SPACDUEL.ZIP",4^6:Z&=8950:?STRING$(50,177); U"%up()%9%%%%-%68dFA&k1pLo>R%%>?%%%1%%%%xu%fhiz%jqSg7fxfb*RA#^kah U"YY^do^WO=KqIJW_G7V;D14?SO'QB2J^IAIC[u:ie=/]l?;Nu-_d05O=$.SoMCL= U"a&eu%zFtI/O)_]NmECIlw_9=o'dxAFKrQJY3&>F-f?&sk.&Z>sKT)OuPNk4g3Jc U"8l#D(nhJbNV?5iI<=4nQCllepE_(zo6Fc6?\pS'8AK3X_410cFNQHLO U"k<%D;i9\sp-LlrdY$R7l[WqTP4^u9>,foJ3^,g30dMPunT-Q'US<4StfR%A>B[7 U"g(z1j>q>L/:w[NxauC*EypJ=#c;(y$o=bPc^OxHxG('#^Rt%5Nh>%B U"[ZZ+(*Lar=PYKHXpPXu.<%6,e$0g]/YHCmN?;3w.dU;P,6l]abkhqXMH8r'5D+S U"'S1f)q7#,)fnkir- U"Yre9tn/.BamisS'e2GRvV'mh2Gci3AE7mBa0j.4%67U4>-f1PiD]ke1c*>e60K/ U"bo#;QY;PigW:23npNu>v6G[iSl0l;jI-R5$cFl<&nc0w>qqS0Rf+QBr6ga=mIR\ U"/_Y8sEa3ht;^F2NR9[UwX-uTD-PuD-LDZ-HDW-DDyK&=ZdjCjg/^qgDQ&>%r/hE U".M$Ic#g;dW^;?)3,4VrqZE>gQe[uDtDj/>HTeJ:.r0Ey*^lBWiW=&8n6p^&Ld,^ U"=8'PbU]Zn^s'_bm]ad4=B8Sftm(aUsWe^El#L=_E'^wt4>8RKlc)s&t/Umzmm5e U"T0d?7L)&*9Ukl;b+Z'^TqPhDQ?CP'm&+m]j'G^R4U,=%*6tvBDG)_C9+G/1N+q' U"F.BI^m:Xr;(.wT1\GI$1mFv&([QNE+e2G)pJc/L:I#MwpDO0&$KK\U=JX=azdw9 U"LOZI^=J4sRY)KAk.6Q<>fYbAECk>_cce&slWznhJj92,hyq\l+WCXzj8f<[zP/1 U"^ywG0VZBw;v2AtCDLpLW5.(5y&_vEIDlm'h[cQDUqqpdI8cEYVC_L[1m%8-$Y U"L/?8$[PB$RO'*csp46F.*ttWlec,1[Svf)Kg39S*Pk%%A#[6neiM]hrEYD[ae\: U"pcKG0tb+<#7zRCOc9r]Cm4XTGQ=R( U"&vpn)>oS1QBY-N\0vySB;D.T^$KrC0f8CqS:9H&OSE&*97.VMp*\a)*+na04.hl U"(6>GlQx)rz_G1Zirel^SG[7U9nh(4vw'*a(%VScmapq=hCj#_og6,JfYmQRLdHf U"avi/msfSPJiCe'dDe,^UFW5pEc1,i^3^ss^f5beg>;h>lCV_[T^.guCMn-F''6C U"%NB0:fC1X7d53ljE(DYEb*#TxG\?+bV\<7WiN)Xm9qCF-Csi.C?sf2BOPjNIHGN U"U]/q[,62qGJrjEenHEPBo#C=JLm)B)PLOdW.V;#W^bzm7J#c5x$h3RCiOyRiBNb U"m*OeQk0F:oPX60vn;y:Xu+HNlf5n_>0Qoq\jtPH/oBLeorjgvpMA$9[3M=j#jHvmE2e^62Rm0^Dv,nJTT=I:R$:m9kKc4rU U"3G/hT>^S4Eg'77tv(G[WR3gv4J%^TNw*%_k<&>JeGLlqa'_Y2wKOi$]K1Y>ePC; U"DFVFsOE&T;1FZIoj5NAMS;t/Ibf&PZctx0.xP3EoYj+&9M&q'On8)e$NrlEd$q] U")ouz^/x=go);q3>-N7xfL3T9xg3pWQ5R=_&>4Z19(ksgP79Fg?PS=S+.9/SUC%* U"ik$&8rLm8KO^.;[?)uof)_PV^eL+9O5:gR.f%l>RAF>q/)<7tyak/?XtPFdQ.Zl U"Q^dsYG>9a\[LtAd8JaxbiH=rlr1+]\^Qy3I6YRZ?^(>=Vf?nb,E4Cj7':6w5NmD U"z6]dKV0GLUG'c+mwJ7j#j\lR[rDImtY);2iJ(FaCY]HioBKP#y&RdiKfsyF-F1c U"54JVUai=_W5EBGi6[JtnF+(G^ea.HU$0hqnV>%JgG'4gY U"Wp7jaM4d_E64#;KbZbZ\9#u6iLrE)Gc]I.tP);wm(UE-87g=P8IK30nR5KnS&xh U"MRS=NLIEC-Eb>W+$v6CH'Yggh%TR'HN&S\i.25^DVZ&*nTLJH*,lPwT6FU'f^a. U"O(a/CT.ccH,#uRp5B=_^hhtQD5iTy/.:3R94//RJ5XEj3,;%V/u(JVb=1xVzmsMcL^,K U"nuvL\,>^c*Glh;=--qSYA10GsAhY(5aUSM158_Jpn:]$:#yrk0\;j*P\Q#keV6> U"YqUA)=x_,$9ohL5_j-fP(j*ZvbecoR=vISi2IJcjX):3Vkc8h_3d+wTucS^>orT U"N(m6$6uuqblFNaYL&'vYRb?OXF%KB'ILJNNe/lhl\MBI[h7du4BJR?ZM8J_G8*R U"QE4,Ai;^88qPo5S4G;+)6ZT=(nMH]R0T47-ddj<\*$]&XB'G9Gy&2aN#pe4H$*R5a:K6] U"85lAV?=kL5k(I)PXB:Pt,OLhdS1b#HiW_e:[F3PAm)Rcgc75*?0jj;a(LgsTW2t U"eL^T='Dl_l;fI1(b'gHx9&mO3^MOvxj^>ziYxO-2p_?QE1;cp>Gp6$$XC3 U"\IC5DO8sZ5K_UQ,orgA<#rd&.B>xv'#P.t+b;c5msKe$pa*bA13lqn]K\CbR%ml U"(Z7Bdwp,Ys&[,>OA*Z$xQ#7I=nXs,>LGg,/?O-%V1p[0P?%4_xc+N[lD/sH1VI?9,<5Qj)+oA8nLi(S+O?i]itj[s*+fSWo;Sp9 U"c4Jr9]t[pYIWW(jJPy5myBok.t(eUi-Ps6J'jq=/vN1XroM8&fD(0 U"1Tl(w]O#$JKPBi>Y)q.5w_:CzYx7qD(hh;lD&&:a^cOOVCKn&5CK6NYWQh\V?Qr U"/j6dzu1Eus%T+x;%hy2,bZ69tO<*L7Iz/<&hF U"3/vYl54mCN78o90QxDz/6;mlfn3)P]M&Z,2)]ab\9>Wl^%Yx9B6W?iHc=3R$N8- U"',Dg\wOXkF9[)k#OEGC\G7?$Wa$'A'G..]f()'Qu78S7cW':=81aVBEYp1R,B_3 U"jxqa)1Beo^qq)71uOAC(sLUlkM$I(Qw U"C_3_SAOxt'a/5(L;.N+/^jo)ZnxVw;DQAIwJv*HB29._O[oJ.P4SuTJ\dm7$))c U"\z0pjX_>p]YnXaw;Ai?']*nldvp7)ffwta)49;.'K'mn?Y97CJPC0?6WH5DQbE< U"[Ith^rNgPVro'5\lV5w0iy;ACe4W%Xm'O)1rl5I^n+EdAHHlmv=r*dAg4*QYGOK13VAY'1I U"R;52:J7C8+1liG0M29%yC,zAv)AbA*K;Yx,DrM4H)=q1g,oqrJtX?%uSTL)rm]m U";48CQ9,23X*Ws0SgvTA=Ywp:B.*'BAnx)'5F'#>%TTad:DeOMoltoXG9FU%(-zo U"Hem&X>irV4Xic%UMl'ELO5[AXA'F-MzwZXKGX/pNSTFk6DRqHP,EgS>E>)#R9<7 U"\361XwCfkpc(,Uqq#=Us'*Kdk7EAR%A(i_,;SH]i$_2Qaeot=+.ApHp\bRB_Tic U"[Vo9;b#=2d/avJ_TjK+PLp&Uv&mQXBO3tgNY:PTio7P U"M&qHpbQIS,$a7;/I,de.t^iN\%;QTr;:2CBm3XJ_=9([IQheVs^MqTn4e=Q2op U"9ldTVJBrL+jLH[rC(;v?,YF>vCVB[Pg0&>/:3GTP*\/63:)1j\fOlOt2&jPflJ\ U"GGuh5Rns*j\7k(.C'SM.0Y..Sd.V6J8Gi#6JWqVKy412l:vcP.wiZ(vUDA,y)Gb U"qzwW2bM(MM=$$X_OsJ8jkVnq[_bU[^dNRptWI9[#,D2R[i\x1J\zD8SEWLp%0vP U"e4mP4$XacGQ83TGGIJ?'G:%v(bi#7e6h'kUm)+i)/XCGP9P4;MZiS2)O332,S>J U"M2pIG'x.07*jx0Y2[Kp((\j2>Hs, U"?3gr]9cZj0$8[l=gn^Mo%0WRWSA4uoW7XDnG'%Gur&H&sBsV4GGW%+/E\W+A2$p U"#(2u+#^_X%v717QL^e*O.2'tjYL3P/JGw#.mE[_*-gv-u:ck4;7O<4^t:5vR&?Y U"oc>L?=)NO+]?Mj-+j.NOk2M\9u*ZmaG$bl[P:d,.I U"'\hn/+[0viVXH;)8*#,lHECwiYHs\e[_R[EpprS;KxiGj?99t0b4]dfEA U"%%qrb1:jeq'u&8WuX&^)+xN2S^Fo$CbRB,ctRIL$0y7-vb2*4CmS(-kjnq'jG_r U"RLgG>x9,kn]Qv/oZ27u+$J4BoMLcalM6&r U"^Yqu^D/Q7uH*U\(F=7Q\BTG[j_UEM0FRb;DIMtu^C$;G^1fpbb U"&1fu;&bz6Q\lGI6i(0u/P61d;>[tAdiA-+TsPvVF.:6Bj;NW2q)jO;)3.E^W3Tp U"pvfFzz7;5r'Mh9*Eg1r\k%ZZB_/#L_j=tc4o[C/ U"Q8vsGY#YZN$>M0rFHB_E0;8t:Njn7c/]Q4=:x?89jT88Qxuc5]<+VcAK(x0b(RT U"'39d%>:f?.Fje;-r?]I<9\Z*_hhOM5D%7BqeOd)F7:Hu*)dis\JDEX3OMwf),Tr U"C3IgO8,64qexP%_km(>Cn?aN^b8H_LZJ^L(43WbvXs&TNb[*G,4X_P9Sh.\>h%_q26\ER#gn-]U U"6kC1Jj.5r:?g,G,eWQgn((P0Q92f9o&bhZKcITqe3#wb$LOA-(i]g>xKS#IN)*gxX[Yl(WE#QG&)_vru+Wh$8+eoPAazIh1.Hxp%pa,'jZ-\A[;wF$g7%)$8 U"dzgQF\XSD6aM00rm:jwH=s]P9irzVueyCH4=8RJ^rXXea$u>4rnDb$BLs3VBTO1 U"Extn/1(fI3Ztk(V0jKVkK%]j]_ts*8<[VMdS0-je^;DnG:j>t;\&#LJK/,]F,oIbSQcE>)K,fTvl_[sHaP3,fTGT#tdK>dKMAyUGnV.9rTKChdL U"*lnctmzGU$HR0aRGT;zxQIv/aexOeQq6yC^>,*GbhMy+a8=ZBtm:qcjSZy:[d;8 U"El6)o[>Yx;rfB#XwT-l+n[2.VEtSqM.k,uqHh&uj+AijjUXADO2V8QY( U"U&][04-pP&ex1X$+RTppt)-6r6n*E[n/C:KSj&5J8VC5H.2WL;8&u7F+(0I4DOmU/gY;vJhjrL U"SFplFLVnU_.I*O7b]CLSFs&p'7n,1e#v1&T211A,XhY^EAA4m-uoF+h^LH=$m[E U"\eU[>R#+js,t,[RpyCfZR.pM=q3lk3Ro.d,G$BpIH+/$o5UtPY=,.aieA(b_gWW U"2lO',6#%Xu-40^j]wc.7-PM85of4w3%Lmf3QU&Q.?EftsIr$D_XToIezf U"gr1(Kmj_=g)1bHE^dRP(0cIqIY;L*Ab(/,$D3)7%K\tWDkD.tBPsW3&,.KHP?1XKeq4JZqUdmU(>%Ehg_pXSB2hUiCs&dr,ug9*6v&UU8Kz1NG35 U"/c9>k9Y1ZwGJ0/$tq'7DZ0kCecK:u4K^xJtI3F%,n%VDRinGl$8Z%2?-Iv9ESVP U"=i,?NT4QUu8Fsc'ZQ^t\nj;L-s2B&z,Im180En?X0 U"7DK(2=l^.sgknARYQ33oJFXFtfEdT?PU/Me_aRQ.9h$3RQI]59%.qZ>^ U"=GsR#,$f2v>=k+WukSs+U'^ U"t9g9f^-PMNju&[HfFrvVljg]gZ;g%MHooF'BE4'xZ'E$j$Xi8RgXk8iEH]+it4-BNhC6o6 U"\4_;WcFR\pC[6&3sXWI+8;/[wrfrx^5a9bV9;X)[DVhpxH+I]^jH#?*st,DwIy0 U"nq,u8wG$?_1XCeI(R+DHV-jMP=Is)#og&[wF/[M,#ataw8$A$PNmUZD5*PK7NH- U"X-kk[)DH6LDn[3-)SeX,kv?&h3C_yhk]G-C?vbC:p'j:onAoNUMc.J0%#Y5WR-uF5w%h$?e U"(HLasp[,e8&cCHWJ*;7?obl$KBlPHo+3ql9sLrVW'u&up%()9%%%%-%%68FACF+ U"%,'<&%%%P3%%%1%%%%xufh%izjq%SlwuEf%p]]ce1Upd8g9m*G.xlglneFJ/FpM U"8_5P.WX1x7/s0d?^+6jkrqD-rKCyfwn)\ne_O)V9*)_xr*oL U"q)MBJUTC*k,[x,f]bC$Cv3sB'1h#?:*YfAW4N[TF=X:gSg,9S2a$[2V+z-tc:kZ U"tP5Wd8WU$Jugu;d5\$A^4D4m.1c.T,7WO#^d>\=JkvUAd^_?$h6O/E3cuo>8=-K U";dmjo7s2k9sa-&hVn<%UKu8OkQGpRn*_n?ugaQc5,-6>g_Z,,,R2.g-Efp U"zsZ]ZOpE#t]-)[%%(%+&%%%1 U"%%%%xuf%hizj%qSmn%lbur%p(V5T60wVG_lAii..-LDY1:tp/m,fB).rbaWBCoB U"X$8(:FVpVkHlgGZUXb,Z7W?YhspJY6#C:s/'YgRSg2L6Lg&dDMc?1Dj*_$N2rZ6 U">ve>G\6L U"jG\<30hSAgI5C%uUZZ9+W,c)Hu&Y?i4C'b\]pp]5GCVDFPeNhHl;EbR$kB4n8'N U"tDPPMr]r\*2dumstaFNwCne%Dup(%)9%%%%-%6#8FABc'Tzv#%%%2%-%%0%%%%x U"%ufhi%zqSl7wufy;*]ckJ.hrKE>ai&kmeP_.T^X'QRgF96%cP9Sils#OXd U"6SI/%4%>?%%%1%%%%%%%%%&%E%%%%% U"%%%%x%ufhi%zjqS%gfxu%p&'9%%9%%%%-%6[8FA-isSP7%&%%p%(%%1%%%%%%%% U"%&%%E%%+%C>%%%xuf%hizj%qSif%yup&%'9%9%%%%-%%68F.AF+%,,<&%%%P3%% U"%1%%%%%%%%%&%E[%%%+%#%%x%ufhi%zjqS%lwuu%p&'9%%9%%#%-%bD]>E#ut]) U"[#%%%+%&%%1%%%%%%%%%&%%E%%(%nB%%%xuf%hizj%qSmn%lup&%'9%9%%%%-%% U"68FRA$qz*?[%%+%I&%%%1%%%%%%%%%&%E#%%%z%C%%x%ufhi%zjqS%xmuu%p&'9 U"%%9%%%%-%6#8FABc'Tzv#%%%2%-%%0%%%%%%%%%&%%E%%(%0D%%%xuf%hizq%Sl U"wu%up&'%9%9%%%%-%&?1$E%gZVX&m%%%'D%%%%/%%%%%%%%%&%E%.%%VE%%%wj% U"firj.Sy'y%up*+%%%%%%,%,%&b&%%%rF%%%%% END SUB CLOSE:IF S=53AND 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