'=========================================================================== ' Subject: LUNAR LANDER Date: 12-04-95 (00:00) ' Author: Chris Sequeria Code: QB, QBasic, PDS ' Origin: QBasic WWW Page @ lookup.com Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"LANDER.ZIP",4^6:Z&=9228:?STRING$(50,177); U"%up()%9%%%7-%tq/IEod+k\VE#%%gS%%%/%%%%qf%sijw%SgfxWfLvFuS3+aih, U"zxijmTLXD U"L:b%(#[ck(H8Y?rF[?^gf6GWs#8uI/haLwlg9/f%$F1AGNGg'kT:,a:QH?IkE;g U"FtpJufH]0\I8DK:*D=R55>P#xSKOQawP,KrOp$5/ogcU[rbem4Wei:1ilmBHhb U"Q$e$]qd:Sr^W>9UVBO-);o:,[?)lv#3,KY?P00-Sr$a[nJUrm[&KQg+Gk6yM%]& U"xP1LWK12=6ZEi5z9h0LRiT)Fc8hcU#^hImJGCa60d54=5v(:AD*&2;WLJ5A.-7_ U"(_a&C[x;;U]dhW>2Xg,6;v%c_59=Mq'uMRE.41/8dxDN'L'1#8PL[+F1*Am>2a[ U"cL)$fV^Ui$o><'#sKg8R](ufSdb7/D30:N;i4P^I*g'16gTQO)7qI_m=HN2.-O* U"BH_B3<:Fk&l?-vTEXmnatK32Co7=RUNv(+'/mkhJ1TK;QCqg*j6jO>+VG2O2:>e U"129Q(Tkw) U"-ePxWGW#/3/dFlv473x)w;?1$cWbp\>R*YVu=*g.87j#]5/(1BYE*aJXsCCAmq; U"Z(hQ4*/=j_RiF0%'iF3Us*w9Bx]DldM/C2gdj00z12iv-<'TU^l*KIL12l]miK/MLB,,\nUU2]Wak(qnz_KL>V.kWPdi^0H-h#2^KibbT4rc,plL:5Pfjt=tIoA(:]Sub2 U"47tc*LQ0>_vLX_84ZLGV>+.ZHc2iQcKmWmXqULXg+F636ro$tD:*\gql\nmMmm6B>71 U"9gT5qC(uH7T8k2D6Udkh'$-D<5'6J^pcyuR[>yo8;-eY*3Hy%VNlyNMdy6\M(]_ U"?YYy5mQn&Ao7^qH/n^/F_N_)FUZS7jQmG-+tn0mTWUgV2IRm#Ged=VC>J.O*M5T U"-\GeW-)KF_KPG563jWXif&,XaP U"v)cjV7d+HX1&NJN5S6lv9;uM.w]8sw8rSd#G2yLqn-1FrVX/pFEp$$hbdI&bW.l U"]Rd:$2we*kNBLlc+U:P]&zIEih+n%v::rk':luEa3/3MAi:YTY^Sl$oRX-Xe-XdaD,ncx,,L]w:CGRlha\E#rVK#Arl1:AQq'qh&'\%Q1vwsi2Tn U"$h/Y]6.(Jh1M0BJ=eOUDh-Ni[+GxlH1d;P5QP>wXayBn^o/iUMaGnH>B*,\YtrX U".7m)dQ]H6S1iSDhRqId'tN:Y9_ChE.Tuh/t:L&meL/+X.$=CrIAiIozK,MN_m6m U"0L]&r-ztIKfi$Ju$8.ZV\T635r,d5kn2R&OJt-NO]&[Vc$iAW<-yi',)&17tx*2 U"A2%>lyo>Qm7imvW<&*f='$J3:t0^===X]i(D=5,[+f]eG1QJCe;qT8%6re'DOMW U"KrDlA9\DU6<'w:6Wa5A>D\#L[c2F?8,x'Uh-OoU3y7:7A/te=ZfvmjxX(s.Qx$( U"Fz&fr4+fi5GO&XFL-d5fu^aL-M/,et#kqRQ?McE3'd+\4s\W,Yu=$l1Odf4fAl) U"uTmWbZcX84%L+]pQb.Ndt^_'LDP$3_GP>^hmHeRXa0kyJd9 U"KK(npBX]OgTHC;%^9,bGb#Jx-tfrcY,n]'9wu\N8hmAg>>Z5X6f9826x.iMt\Nd U"mhrPQR(P9v-*=q?.KNA2y-Z^hR<\Idt:\UC%bmWP)&)f4J:baKW59(xr.o\$dtbo$j3O[Pqiq6$.=,9DENd U"MLa7&NN':dn[a%NNYs-R-od?Yh#?-N<^y'feXOeqr;k=5E U"2K.P-90QhR%yUW1P.E,fJTu?$Dwno,vZ=D6(lHigbc:o>ZX:6pA\l-^<6JMLR-B U"h_NqKHMaD)Ligj)CuOYG2f?+:tILy#2yYWsxF]L.,AqD+yT=W\QO,hkD:c)OuWS U"PJN,sGcCA-^t7\%Ynj83GG\#Wj5KEeP#a(Oorb+VO_(Qg3:iQQ>>PC+KL?_O9D2uqY.>#6R#ZO6*_^6mD4$,-T]9,jU U"?O*7jzK/M0fqJ-o3Kd8)dI/V4krAAk3<%/n8TT-_d<>6l+lThWIbx[]R8otj#Hh U"V+Ll\4;'S+QrG21o?Qh8dl\xa_AEsI=B-?tt>t-I0IQ]=Watjqn/VbwaK90w;oY U"=S5ntRxJB'Cx1>*v%fMrlyboCd^xF*^9c%p&\pbngPUg;Tag'&g_g6lcJ-Q12fO U"U4pNR#mo.2DysUw&lfGUbq7E[1.;suC_C U"EYkR1Sel_r(I/[3[p;h]b/$__=7xLE*Y4K41jW=gg6qT45$+6j4K+[^sd#RgB[V U"8;][XZiBA9E:][W?NBej9zGre-cDVtk.?>&Pg1tDUC/LE##qVJ$JS<$uZf%Fk'h U"VyXT_ov0B4Z'>1j^E](M]A>l,EAnt1nUwG*XfqChkS3S$Mq>]6U]\uHFBYo8=Id U"lwjK5y$J0QR>&H-^jkbO]U:_m#0DbrqN'hHRoK?W;H+0&j5q854*TWS,l_AYkNL.duFd5-UeuZ U"qnhq(:nl(nsBS7+mo:]4O($UUGsw;S$4S=7pQdUuR'BW&423mxDjE/p3+_[U.F=0'+vx''H1R$/git]+QuE8:yjb1%1j:f;ZwgXbj:eV=StkNMGidin6aGTlYlbPD-9=L-&'LC&>AAHC=bN>)q3Iav#5^ U"1k#M\pE#ADXF?F;2pY^Qj]UJrtZ;Qlo%6uGTw6Ix^&:qRhH-IO&)FO68t=4ZxJo U"cyif,ru\uXLc]NL'#=^Fm_GxCK6>f2I(Az>6?jP,4c9gM&=+TAVYC/2wOL1N>$_ U"[q.3s/re_2<'b&ly$l2Aqs?f]=kF*5W-TKdnfSip)]stMV^^mz#m(5hjXmAplytRH#JVFt$#rbs4U([6[YjO+]iA:U_$l,mI U"vgu/bj))]P9(r[s3]ATD*,gC*H;5fJG49mg+q,l-4]2>vDKYX0hY?\=%Go'W(L% U"-tlumvhV%/uf;A-HD=';;eppm*lFWdSxI+HA(lCCKz&(MH6PvU1cVeKL9j6V5SWu,&>a&[Vl$^Pq%K<2-$7l7%G2'_i^d5Je:ZW:4ai:Bt U")b4R$#p[gvJ.Nj6ZZkeOA6D_jDABNe/jRT,hb-ERu='$JE9Nl^PEhl4,H/]5s\D U"GroqwCvnrE#CPzM1&bZlzN2+yvzbB63>m,Gnxp5Nt U"rnkrl-i8^tvO9/02>6?9A?AAoGM-[UE-7+/b6SLqz4t=lU+;040J:B5-._iGhRv U"wq8\_#9WQSQH=F]U91a6$J\jzs=f96N%Q:&70HPc:+(W71?unld?MzFRb.4$Gsp62U#XCxH=/_dXHF U"CG*NXK$t#5=0nv]u)f&[m]xUG;X[,HE%CpJP8sNlH+:n(f:d3EN=As6PYdnV:_, U"$>7PX=VD%^WHCfIgkV=d2IsiH(:7/LAr_'S6 U"*%dHgD8em5*#av+IqrH8n8Y14$$$a(?9^Jk;ir*orTuAn.6IHE?6vhI_yRn U"aW4X^/kqqJ0aa.(6eV_lXSZZnA7plR(k:um01htKL-ad=O=2meuOwfBGetTvZF: U"u]C\5V]D5/fba>gX^Q3+TcB_ZEie^7I-6.dx=fH4bqWqg&4]'C._C+5M?Y\-[2W U"MWVk7$0aj3=PJP0r^dmQt(DrPC=uTk60-x=$hSm*OT^ue7^WK9HL^6$>kk.s>(T U"lc5VroV%*3u'[Iw9s_uT-0+9j+o75_waV'Q8-?Wim$Z_,I$bf0r,ptC8.+^x-4s U"L3cNm[l%5YAjqQfP9*B?VZ=:)b&;e8mh\:k'(ZKUu;UGI&\pJ*0W>_]jRA6]Ov( U"0O:75wVI:93lS4U\EM0ho(s'mGLi*+_qhFZwt)(:/_I+F(<=<.K4SR6M/Ip]y0F U"_l->?;*T$howJQ6:$7i-zTMLSI^NELiYLfAI'tsATFlQ4a4)BDmhd&iHiom\N_# U"dn4x96&K7J.b6/w*:ei7Sm?PnxOgOKfFA\9s=k'](Xr)Cfc>>o=TAb,ouA7EdY U"q\9&Na:pRl U"6V>A(?_X>0*5Hd=&,yqT:FLFv)vt?dmX&]h-Ee-hbdiPmD%oUA(QAh[[tP:_j3v U"s,SM7fv.G(b-pnb=Gs\uZ.h#x\uq%s)R1hX,^TA=[6S>]f\WJ(JV,HYXFhR5>4> U"a)Q[,T>8J%QKbu$0xiadCWL%JfQCCCT'Y_&E81*&q_zZq/wvvpSOnc&Fhcm-c7, U"Z;EefIQ$ltyg>bh\M>u2\/(0BKsn7v; U"4#/8kTEN-ZfZJ)B?n*ZBAeu6VGvsWX(KH+JG+s$siks]ZN5Ju>QOew_lqim:Mz, U"I'VPN=5APddw4(FC,3=T$(gOtIi*_O/k%4?L+A0E(v9R[4JW(PJTH&E3apmo[[$ U"K#j=SCvprd1ysd%_jnhL=1)DOc2:22$MAt9wI,I_t^:W'-8*8%dPU+FnqLZm'kl U";?BC#&Rm\c)Zv U"l)kyI*vt79io U"(AdbKPW303:l7I^;ykcP%EXwKesSKe04#m:aFfG^4b,Jf]c-TC[.Wpo,X]mE^-P U"yfL:_=4a#%n8=7q?J:Pbuv/^pP$hk(k4ZhV8Opo6K&\/#z-0CZyIed?Xh5oJKRa U"x>U6kRLIjt$*eEZ$YKhjN,ta/^=N&3fTWQXKNd>'FaqlII/[]V1D(Q(uG>SIAaQ U"J=CU3=1;#VGI:HhW)mk.wCV\Q'&d6t0<##Ga%;XHQaeJAe-Q[J1U4lhbbt.H)1t9 U"O1Oc.B4L=z1vu5jVDHY$SUE8BnK?x;qDA)CdqG+0XKX^pa)V62tC7[Y(_&:nG#[ U"RN\O:mPs=A8$p'DqStuVl88zJ)i6Rq=^f\%H$0(8&\vfNA('ex$>V%xt<=IKgCuCubF\-cW)0^_/$Oou2%Wj= U"qkzPttrkd^)z=OQL\xe+#B31kL-=g60++bG\F$Tg)n02zo#Aun U"O/I1g2=]\kvP5AWl]NUwpr\pZ5BUq6j/%B'Rb?chWH)QE-#3#\pAT4CFrOh3(S2 U"'[(g<26sV1t71V.pxWGN]kK6H9+w'(&8]\o:\lEkff% U"&SvMae.-%tOAqIi.),6u,n:jZAxHQ6:$.lkNI,DbMOhJ4)O2aM5.3EuL8*pXu:ca?>p$e3_o#Rz&2Wbq09IC U"qi];*%0_4j#nVK=Ia#YxhHQOU=&[5xjMKVH+OpWGoN+c-U1>R;^C4p=1'tL,#oQ U"Pfmw9or53^nGBsa[j/kuWU3&4g188UI3Vpp9??jeFRsv4?P6SP?$Z,$&^$w+/V3Q9Z0_Q<>xl$re>XN9rkdV36&#s43f^=d'BH\L U"6R_glvpiXaMqd2\f=l3%Z_R.h2doBeC1q=6OkT'^7p0VU/r_NlBsx%QJ4T[pW?Q U"rY-9ri,T\FclB1z//.EmT,;(ZMYJ:?U;^VqmCx+W3bXZm>>-E:n6iJ_C+:LFbTQ U"G'e5KNQnJMGrQZ*\cT\I,:mS(gBJKIxkR]nh2OraC\j^,>P2&e>8#'C/4>KkU:F U"iFRwP-Y.FXlsQsA6_RbOM$XqZ5ed^[.pAL(iDg468c\\47_GPGDc%Z8YuS%W:: U"hL_I)yYZC,8>ejf5BZn#>]B&qQ;8\fN1ZC'yNTF>kEIWE:F10rb]sbVdgYEJ[9H U"JvX52E305s'7bi[Ic9O%x)<7^$gb*bi^XG('K)D,\oDIHUat*(=)]axXAHQ.rKA U"]A-K2J,D56mZxi6&TB#:jR->:U.^pW,cY#$3)InuTSC0JGbmydaAr.oVfq8l_O; U"Y%VHgdbF/L05:s$.uJJp]bKrrakni^h# U"_(=$=C/yhxNoKL(-m:$QCij'[(n1^a.u3MmafL9M6);DtV4>oVhn1C63[T3(Hj8 U"LOU1-.rH7k%07K-.B/KL6>474ar/7J/P#,_Z^^n]m=WVoA9zl=Nf\oMZgM09WN3 U"-a<_0Vez96]w3M[5t#Tu9gMt%%]DW\I$X?=%U$2KN$&;Jc(gC^,Ynr765oth\vt U"w\6INE:2ORv75/TZH'=:Uhh9NSO9>]Bc-o66,$b+W(tiE''-eoOYTu+po2mg;Ka U"yH*hfl/%)?oJ5HZ<*3$&1U;vB_eI7la+lst]pHg.-$mAKJ*.h-&a\ZB7]Qj]no\43cYbTGGgvX<*c*4Q&WT U"QV)nLSk*]v4-fAnWV1kF*:HqH6wKOTYr/-pkiIn]g/S]^]-Yc?.,^(frHg8N4(s U"*cA5Mr-J[3rr(YPUh\ U"eAc9b-l]tTzQWU9-jT]K2)T*r6.=Ev[%lj3O>A]77cpQdJb/3/X'bediljip-eB U"-lK/.n[F*V-J3JC2PxrUO)(;']608RP0sp(4?*IgG,ZLJZEpKHCUF:^JwuTP U"5-oqgu$t?_UA1$.:Y%?CY>HN05Z(SWm69ihAqP'ot_=&%5'?NXL^\qinjskUp/E U"]#(4:OoF'OMluT&X8up%()9%%%%-%/6D>?*aI>3%['%%%,+%%%0%%%%ijkf%zqy U"S[ufq6PctAie?9Sp9([N=gir'j8Qf>p^=;=.H?/a6rXr(PehSnMp\7,\p35Yeur U"Awk-tPtnpDCxRUZnSFrpzT0Z:v0R<4y_xkJN+^f7T>7Cz\s%PtKyCT)OX$$d,#d U"3%dDyb96N*R/r&&>\&&G5:&6PCz7JIN+u9*/2b':;J-jXb-[*7]#Xa>3$G[l\GD U"4jX%hY<'u)f.0:&QA&Q2)P%-w-7C-u5[CFWEGeUESY(.Q[)m45a8%5-'f,?t0.% U"'fE-()PE5()Qe5%-'fEd-)Pw=V:&h)&CkJFOIC4.MjB98r-nv(SikkF8DheSGMX>L.lDhu\nFXiosDve>$3 U"A/76+r$x-i?NMm]x(eZ8NK)M:0ti&(.9xJ>XA9bL7GH]h^N).gb)<#7sIc[IAmA U"OnQ$_G$)I0Of;[S)gS6..(7II#)Iaa8?FZiRgn;P2SkSB%.>.p[7;IE(mWn=A$U U"Ep[lge;IH.&ItBjU3C$D0^6-)sb2.70fg0B)1Avh#)31qTTE-?sbCKmPLAunhF? U".w(ZW*>26T\rcvGUo*FlG5^qH4OtD0fHKmg0nhIMrZ,>XPG'KunBW[NmYMyoZ]L U"x,aw<56ebNkKxxEnlLxgwUl;Vv0xF*)UIFA;WLNJNrJNJxN8>v/f,x5H&h U"BX$h1EnRFF,(5eFE8d%4up&%'9%9%%%%-F%tqI(Eodk'\VE%.%gS%%%/%%%%%%% U"%%&%E%%%%%%%%%q%fsij%wSgf%xup&%'9%9%%%%-L%Ys\7DMM?(0<%%(%.'%%%/ U"%%%%%%%%%%%E#%%%(%E%%q%fsij%wSxu%wup&%'9%9%%%%-C%6D>4?aI>%3['%% U"%,+%%%0%%%%%%%%%%%E[%%%g%E%%i%jkfz%qySu%fqup%*+%%%%%(%.(%x%%%%r U"H%%%%% END SUB CLOSE:IF S=185AND 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