'===========================================================================
' 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"zxi<cb6hPeClX6S-vNb-c_bU..]j'V<hHT8]oF)X=j_2j7G).NZH3Ba<>jmTLXD
U"L:b%(#[ck(H8Y?rF[?^gf6GWs#8uI/haLwlg9/f%$F1AGNGg'kT:,a:QH?IkE;g
U"FtpJufH]0\<H1RgF+636quQ8OEI2B-54:+WLG+oTu]i'SS[5,5'EvfT.okqwEaC
U"U=wnR\Mh0OE1Ctj>I<H-TU'Og5/?EdI1e<E.l??5Glh=d5e:o(::UeXBW0sPomB
U"6mdD4=Mnb88_Du^)Ce1_^8gq#HvZlG:3\3S=eVe+7f]#GuvZ-po*\ORgbNmH9e2
U"H&d#Hc$?eOn>8DK:*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"129<W5()3(')e)6hlYe.zQRZ23j^mP/2Mum+P;nK#&<Yc?uOqT?c&;Mb>Q(Tkw)
U"-ePxWGW#/3/dFlv473x)w;?1$cWbp\>R*YVu=*g.87j#]5/(1BYE*aJXsCCAmq;
U"Z(hQ4*/<R:QK,4)g[:uE'DDi3]V-0/9KTkVWGf%HY&Q1t#x:[u%'dJFbFEhN3tR
U".yd60a[4LoOlvj0sZcg?un$:??OZHaA6(:-<YU$zJyZGwH:/+jd?Q9)=1_%+#\f
U"]6=Fx_JFa$STC*D&*E5#GFL+qpCg8,6.'4:*dJ54#E^NhrESk:ocNFZih+CO3TJ
U"HI):lAhuu>=j_RiF0%'iF3Us*w9Bx]DldM/C2gdj00z12iv-<'TU^l*KIL12l<B
U"7kV'N#rTFi$76[h*hjj/frHHtg'VgcK(R3NL?i8*U(+yS]#('9:^J'lO,lc/X9G
U"hp#qAG$Za<WruaX<dlMV.ye<KfgAhHadLNi;+MW8skbtiPA-=6kO/YGeqF+Akh(
U"OpYnV[KcZ&hT$JT;*h=sq[ZX4cZ.hurlTKrW<&j_YxnR#T\Vlg18XMbq)_3lnQ#
U"#<g.W1#2^rvtW3rZ3j/L?F0Y1]#sOZ;j#Gq>]miK/MLB,,\nUU2]Wak<dQlitUP
U"N85BbueF_>(qnz_KL>V.kWPdi^0H-h#2^KibbT4rc,plL:5Pfjt=tIoA(:]Sub2
U"47tc*LQ0>_vLX_84ZLGV>+<GQ3W;Kj0U5.+_qUbxen.JbG/ajdk&l)UNEQu/wB6
U"L_ysYdnc;r6W0ek^W>.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"<RkoU75nUf$tnm^+bCZJo=R_H%t<1m:r3\D->-\GeW-)KF_KPG563jWXif&,XaP
U"v)cjV7d+HX1&NJN5S6lv9;uM.w]8sw8rSd#G2yLqn-1FrVX/pFEp$$hbdI&bW.l
U"]Rd:$2we*kNBLlc</M(^V7THIrYg?75g1.oZwd;LqH/SCyY8FZYUNa=b)ne_^BY
U"'QlX_4AZ0kcLX:hgwrT8C$(;rV($B=Aazm(5IoM+f/tnY'Z%<R*KJnCo,LP\d79
U"LCaM4h-O/V'kAT*1#B9]pl[\O.if%UW4gXlrjZIjmXU\6Wa5&'7m?#i3/8Nf,%q
U"Xh\F-]7Pe%-KH>+U:P]&zIEih<c()#l;gaZ9cNqFxHO?ivgSSe'v*KT\?M0m4'=
U"CFm&EU+vg7]j33<qd0szi>+n%v::rk':luEa3/3MAi:YTY^Sl$oRX-<oTYiwVX/
U"C#GEKW<;>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>^h<t&nI_dlVU+anzu>mHeRXa0kyJd9
U"KK(npBX]OgTHC;%^9,bGb#Jx-tfrcY,n]'9wu\N8hmAg>>Z5X6f9826x.iMt\Nd
U"mhrPQR(P9v-*=q?.KNA2y<O=PslXMIuihV)4h&zFjtpw3ON'zc]hhq9j]mxo8ju
U">-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</f,T=Gk6*\4B81#>;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+K<njoIVx
U"DKo__V;-HEtQV#FR8d>L?_O9D2uqY.>#6R#ZO6*_^<uDI-o&$AZTtXeABb?6Beu
U"YyX_]mM/c*.m8R.J,5^qX?.AMDayXhhi#6K%(.n3G9Amx^DGoR:O^N?TbWRLK+_
U"(wS[kP?ZhGgr/6zR4^-C49A%\5A2767W;z;Z\b#)ibofi^Hp'>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.<RV*409tEVt;kjQf_Zii<=s:eLC0KuJcjDs*
U"U80($geKsxmHKE.te[n:X&0H'#f^gjEm0_?i[]RN^Wmy+'O&m\4[)XLRr'?wdrt
U"I,?dJ52)\=\ubi+v+9s'aPXREF%2iA9go399RvxKRd\Le)4v*V:dx:sB>;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<q#IX(Xr:873PrQP3lN)Wd\KsJp/mP3
U"ISW*8Dq%laax+Fb[agbDqaO1+_hMf1yfy0%?\w?kIN['lZL?SIDIw+G\GxdfnMy
U"Jg]Rfnj[k,V*5u#V%Ok8YiQajcp/uE%[omaNNHU=Hu^%BAn5sbfViHBQ]:Da8#z
U"\p_VQnuH05E':7rfJVaI>'hHRoK?W;H+0&j5q854*TWS,l_AYkNL.duFd5-UeuZ
U"qnhq(:nl(nsBS7+mo:]4O($UUGsw;S$4S=7pQdUuR'BW&423mxD<ebEj#l]#b#Y
U"0$7*[0ofl^LO/v4rtH<l/h3eSN9G2)F^.8w_^'*2q+[jZchGtbtw*5-?cY9#Isg
U"swahBKJ8FK.<Wdr-Qfx^IrK6mjI1<(OjXE:Z<4PJ3^M$67G-L_B]A+L2_j$8?TE
U"rG&xGT)/RkT<b>jE/p3+_[U.F=0'+vx''H1<kpQY%Ema6M_/VJ<\Cf7tYuUKZ,9
U"aR5EjKPcPrRt>R$/git]+QuE8:yjb1%1j:f;ZwgXbj:eV=St<R0&Z:4l<t,lR1z
U"UX6KX=qk]<6I)a[8>kNMGidin6aGTlYlbPD-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^^m<qL]TtcgwOS?GW
U"][JF8kMPQ)i#^W6.H5Q1o67Dy))pZth9^1B^FJ2Ad&D,EcSP(iusXlQ[nX'LGOU
U"uVRZfGLerPNs%ru>z#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&(MH6PvU<JRCV\N/RE6tK
U"4HIr/t]^rupJ)rEJr#=$,n[;8aer9-[P*h;4=dQ9_A1FQk#-'D(&29:Wd:$/kaa
U"s?%1^[>1cVeKL9j6V5SWu,&>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+yvzbB6<llLEy6ZPe24H'W(eu6II5eb,cGAVnjyM
U"Mycw-a+A^W0[Qy-dXB]e<,Xm/Ff)-^d_Cn)Tkblf8G)Egp=Y8Nv>3>m,Gnxp5Nt
U"rnkrl-i8^tvO9/02>6?9A?AAoGM-[UE-7+/b6SLqz4t=lU+;040J:B5-._iGhRv
U"wq8\_#9WQSQH=F]U91a6$J\jzs=f96<ArR/GW\p2,4ER(vs<-jvGv&YL[SSCx\g
U"8/_S?,wU3v2.A#&-GmJq])vW6H0VP#2aNU8W3($$_3HwXKXhzMp'r*qon3cqNuv
U"G=TaDhpQj3teS#>N%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_'S<HE?c,nRuVe8e9,2D+*#GV08YKWm
U"Hq,FruFj$IErnGcblHQI4gMJ&8&T1r3IwFCpd-Ng;2fBJ*zZQVGsF(yH]g[&$>6
U"*%dHgD8em5*#av+IqrH8n8Y14<lgEv(3O$l&te^LK-Ac&3YAfW)#tAf?B\[9Bvd
U"t987c(f-4'aS=oP-KsoBLDSfT.jr$Yg<++5no-U:vrr?riMeM'TOB-'n2MV[$bR
U"\i#s(x7h.1#uzp$9$v0nX49#pGRe>$$$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?</r\j,j%E3oHZmeEE$Tg.kmag3?n8rp,$9:t4ZNZ
U"rx<Ky<V'A=YTl91AQQ%k[&[>PnxOgOKfFA\9s=k'](Xr)Cfc>>o=TAb,ouA7EdY
U"q\9&<T(*aX4IBj2]0]Mf/hYT;u5f:6B#\kIbZ:*&PnV5YTDO57Q87[&*YF+2qsd
U"41oe.[KjS=#u8gf$SCql-LyAZMaC<;NZU(=iWUq<n0Au6]E5L1$$4Cb#aOAb[e?
U"oCeN2M5Tdo<I:jhq&\'F##46BGZU<3=LPiTEVBC;_pRJu0fc7m0jhGNQ>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\/<Fwn.$p_]lemqdb4UvL.PP.b?VVstOleR#Q*IY$ru
U"44sA44uu;pXTei]eygZs[w\(\PMK+=VzX7'Uo+c6g9i#e,?-CC8O/>(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<l2Dw*<rrai<'mUn+MUY5iAgX6p8dVc+wGMn4O<.,2$0&ft$a>
U"l)k<PT$.76uo+54SqW:ZG&f4s#C,(sfpW93g'l&?26#UKdVrF0=kB>yI*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<Uj4jYp1D]a7V--D/JK2(aAD\wq#;SC173Jr9rn+
U"<_fQ_P:ptQSZvR6,+*hFVDwi*gWg7Dxh4Lh9VlIgRm3=cl;stiGGIH^AEw]pm'S
U"]j4rj6JChVY'1o:^#h#x6>\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<CdEW[.p,hJ_PeG]*g[\Y2Wrq=h2+jvdT
U"F$eTJM7$=n?^TF^Cm$M0Q6iY.n^UK3+U8N:#ct=eb^Dw>=^f\%H$0(8&\<pt9ND
U"VkVP0R6F4seAY8^&0gL>vfNA('ex$>V%xt<=IKgCuCubF\-cW)0^_/$Oou2%Wj=
U"qkzPttrkd^)z=OQL\xe+#B31kL-=g60++bG\F$Tg)n02zo#Aun<ks70do7:I^h>
U"O/I1g2=]\kvP5AWl]NUwpr\pZ5BUq6j/%B'Rb?chWH)QE-#3#\pAT4CFrOh3(S2
U"'[(g<26sV1t71V.pxWGN]kK6H9+w'(&8]\o:\lEkff<JT1BI*g?F[KW3f%%XFt?
U"K&P=FICu_99%Mh1PuLwQL7KnCU8gGIR9^RNZo]n$uZUEaEm+(aUUiP0]/h*Ar>%
U"&SvMae.-%tOAqIi.),6u,n:<F_3E5pMbEE2%U/Oy[tHn5&0H4lJ%R2_i/kn^4Mi
U"qkm08=9.%+]<c+421#zK&.#r[e[[HJ*v\OEnv?AO+)+b)JW2B47z<Y#94,W/rY_
U"qZ:/MD/Idj<'s'(G\Lvg6_j]Vw[fC9vS:UbPYukmFxeh%shEW6,o*YL4N*^G73^
U"V40M^?.:L1Uxzr,PckIeQUdCN3A1C#sX[XIs_Q.D-9tY6Npxu?,h#Mj__FuG7<g
U"Zl78tUOqiNrYhJpzltiw<NhS[]lfazp[$Kqj.JU.FL-07&<k6ugasdwNTXotTI=
U"q)If[m;BjB$zb2q251dpNR8369M/ZKpiZ0$efpXjDRtuDG6r4IJ:nR0h[,4p_(o
U"LoK;bYzB]zMvl:L9/nNj,0cS5L+$C4Yyq%s^hNiJLKkzI/pKG\4'%8)lfM\d=V.
U"1H_0KeuNX;3QUB]u\O8Gnd593zZ_\HR:*^viUoUD<i;s=pe9S8<U-tk:Pf4UU$I
U"MvKR84K9F85uK[[\)v-C)Zq=FgLN\2<*B?G8FrtcH%D98Vsp4qYy8T^;Vy8o<1P
U"C>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,$&^<o'(O]
U"1H\/Z)x;&JLF(ziyj#j>$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<j_eY\)o#\0L])/\V.YK_=ZWvOW?:eHpF9k31.mC%\'?\rf2HR&AgE4W
U"Mm6HB4WDtt[zDi-qy&86az#[T9a21]nh8bM2+Q(**h;h?=Y(=+e39d&iwYGIO0:
U"ybR^cT*>.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]bKrr<m/B1[Hcll%+9?F\=[TYa#W]lx/^?T3ZL%C<db
U"+kj'ZQvkKde3U[YR-v3<^7Zb&u\P:gmiqQgixG,*+wCkA]'^]n5ZsX+>akni^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-&<M-4x*cV1MG6
U"'YRJirA5\47tz;Vs1ft;VG4:x[S'-1>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<B*b_8IAV6t0/IQJZ6l1b'%]A(#-Tc+aK)o=_YcJQy&j>\
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<RE
U"*4GM%d2B2%U_M<(pYEnY9kx?D^*e;Cwi4,'h=Vp+x<lG\^WowH^tlAsxYnA8<=G
U"&p$qA*7W?:uE+k5eix%2up(%)9%%#%-%Y)s\DMBM?0<#%%%.%'%%/%%%%q%fsij
U"%wSxu=wVHV(3TE1++YdC69,GA;Fr,Hbcjr?0FHHT)RtuDLr[bb:rovm=(ma[ho>
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(<Du0bxRbpLxdj
U"llQPiQ8.Y+La?SLcob,wV.8hLX5BP>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/<omR>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
