'=========================================================================== ' Subject: UNTITLED GAME Date: 10-02-99 (21:10) ' Author: Aaron Severn Code: QB, QBasic, PDS ' Origin: rlsevern@idirect.com Packet: GAMES.ABC '=========================================================================== ' Unfinished game with nice graphics, demonstrates pixel by pixel scrolling DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"NEWGAME.ZIP",4^6:Z&=11983:?STRING$(50,177); U"%up()%9%%%m-%>*dTH'O>[-A&.%%3/%%%0%%%%sj&&lfr%jSrf4u6cf,=\U1Fjp U"'C_dPMT[wA^/d45CPCH3voGlNQ5h=.LK#qQL\AjY8pCUm'd?s]x[Z28]kpZNWWO U"48kB\8'wi^/dg&BIM)TGw)v77LE&q;)h-Wq84KCDsdNsYfPvM?o)?BlPf+^OzPG U").hhVDo0$CEVj[EH.(9u&a]*Q)r$DGlIXi2NH[IM^=V.*VE%B1#:Oup[COYJIUTaiT-G=n;#ZYhS(F_c'^k?l-.5Yar?BHi)T]V U"jw$g9EroZQ$Q'(mRC#jTbHb6thbLy7_5f$#Bc;_f9sTp7AHnTA?dMDQL4f6-hA$ U"h9pd.F?Y21PW5\[rY8%W[ZBo-?50TEJfc_UEHRl;V/WjCkqn$c&j9CChs=R\(oV U"mnji1hNmh950AFXUZ3PEXTIFqfhB^P_f+g>hd(UbAAQ3KcoCmPGgf&<8oR0*t:a U"$2.GlL8kJ#nN,b?ckKqLqlq#nOr>veGZ#H7O]0WNKa8gJ7IRdN+s8B4ttNrhcX> U"JrWWWt^vkGs\7*wV[ynp,EcTD_dLdrF-DoN86qgse=o*dMtDbf$pu%.up(%)9%% U"#%-%I&sgLX(1f8F[:%%d&#%%0%%%%s(j&lf%rjSgRfxf,*dBG\-/xs:WxROjSAE U"?xt%L5_BGq:UNogY\V,U2:OwrQ#fTKR:d0q1hh.NDmG7bm9dCbmVK6zhcW[=bkM U"rrrn#ClRXq=KSdm4ntqNP1p'la?ll*oDq+&ntm\2h\.n;8eED3O^NPu\=LjP,Kj U"blKvC2V)&A;35)*9bn?tBeC[F^QdR/ul>qg>1EC[q6tu:DbGZmOJdDaIrUG-dsFL52+].FmHDZNiPD U"J+A-QnX>xoC9RAqxdT)Lj6$40=xiY#K0-ql#)oAoZe7$VU1G5L.2cJm;FEn1b-p U"L&\R+Kq1K6D>;[D11_^H\rh1mLLdM0=#Sa2M,F<>N3Nch'^fdBHS[NgreZGY;B\ U"ZtTG^>3>4n1NG'AfK5/da04/H?(d^OIGhxV,4S_/*YowjVrgwX7WaDY44]3Yno4 U"X55[S;-t9pgS(cKd4\Ot*[(BU]vzn$8n]RkRUw\J98p94)kt9n]tAm4)ZKM0L?1 U"J=XTD?G\oZtx)x;IE-ST$sRF2lan>A%,w4OKi]1^gRG;XLe;':Nj6WutC' U"xJTd3H'%QLa;^w]-&jeS(U*tC[9/XH$]/QiRbk]tRW0(VrNJdw8[/sqMHV0hu3A U"WV=Vc6l=Q*19qpfncah>&$fvGK&M7*F[6YJx/6fN0A9ckn/^v U"HC<+.x^%J*;(C^%[4;:P)fhv75V.,pUqQy>tQgWTQBc=_\loV,B\ubK-e[MH0'R U"DdJ&z72#7]23c4I=4tZ_BL:;>M8MATv>?IHF>b2+[npN%;PV;j6whTBM/brDf]n U"eEV-WB2OcHK^c^6kt)%\R/.ejYX,j:f+)lvHs'CvHpd1ZB%C<:t-S%;i'mbBSCa U"D/J.t6XLYww#Dvsep(217:d0dEGQ36:ApUHpTgd>rSt>HD>lhB36^_OiR5p:r?n U"j3_B\n4qOTHt\6Ukr?27sRtjLSeKmBlWLFR'2]Mf*IzBAGsKZ*43*9KiT/P9+5+ U"uJ4F1pK?glT%+0r;S)Q-(g]0p)-U+bR/B+?q%+( U"]%qD')Z1IW)[8QAK)[u/B[d4Qx5Bu<1Ga#?E4CkRug5,InT=DNN=:fqCm>1&H-K U"lpLf]og$Zq^#D3k'Cw][b3J\M4PEa:ifThVk#5r%fa24v>&\q_'7Ed1,UfF]XiW U"nS_10*,>eZmN9r#rekU6Zq]sBn_8FO?mIcGa^VxHr]Mk.--Y$Hv0Wh+)$\^NDAL U"*vT4EBv_heZ:1[K.smmH(?X$1kUfGFzHAZYTLD::W4SE+/gONrW8r$[JH-efA,. U"]r&We#[\hW^_)+'BVSJ2F&YH$x1gIv]l$pK;KDDV6)#.w^icp&g#6n_l$.Y(ton U"s6R=baeCjW,J9oRbu0D5vOPu9D^$#F^azDEi:0\Dz28J6yRqn>zKEnNTx5rUgs) U"aVn[Nlbp1:8O];kW*/%Lp=WoYWWkkB0%t6n[u/(^bC9$.oWhd6b96lOkJFI(b*h U"2dr6860);LA*e<2x&OG.Dsr/aMO5aS9w/*t9P[orr20$?co=J]nST7 U"$53E4;5/E4>P/E7+I7*OsXOv U"iv*l:ft2WS64^Xt1,v/KflX$BD6MQAg=8-?#ULHcMAN%1vUr?#m_Z#tD0YsL\E?1fLmb0C]s(rXo9 U"nEwy.7C<%'TXyW*.aNs=3&]5pL&&]dOs]%]]-LP-%]?sW'*BDYkU)aR#]28IJ\# U"AKDo=(>5*FkG<4^UB,QlHa.^E.[CIA\sRzhV-zTBfai5KH)KWg1nXq(5hc8fkz3u U"OqA&$BrXF.dj:/s$^g1NPObR2#Wy*u<8\Bu:Bg7ZIKhd/6sJgQ/r;;9jz,y:2yV U"9kFbQmYmWO;?(wcv87/r>'qK&L4rDgQpaDBfx?lrr&Qx'5=mo;,c\A*XQ+Ga[6' U"M7fB+6Z[6ApJGCRiy0XDw)GyM]W7j,WA76d^G9T+iMQ6#ZliL;jW3JPqgW7n;8J U")%iYA6EFDT:p+BmwDqKF9(C0/4Qp\F9CHJU7po$-+V8],90s5sWEJBIFJC^cxg?;I$+g=3HS&5kLA/H0.y5RrD<$K%BYbo U"'fjKu-r2>U2hg,+/68X2OlGY>;5LLqRuYw=)hKBDLWYI8vtgq9DAY+P8*_m]e8. U")2j]n.)do8#7Y2^<7\=4TKhuyTHeN-S:5Hgzaaps.Wc\);re;UIgi%/cfIFJk$. U"su]MrBd*sP*1pN5xpLqdF5blia24g9Q1,\UlE:shcJK4EN*Wsi8fbopABpY9ha%oV?4cqE3a/kpfdB^l#_K)zz][28_JZp4FJ5j>e U"]:GrVUGB-H+#,.kvA$qC62B2('ulViH5%$c2w1m2<74#us U"+&7,H/zP$TyTTZaF,\E%;HdsRXAG8$KW22+rm=]0-TE1B_rx:)5P)+Li2oFcCH% U"=dRAG0LHt:QfI$2R]O\pPL+8n%URP8/nONi3&KvQe^u*RD'_*u(kvYAr4AJ_;u\ U"3^W4?th?[?,=Y8.A]KGx)B,V7YY[pW8\LT>ZS U"2Wsgc:E+KED#&%axcGEsX%2g#fYTv(iqh-(*EmI8l,cJ\*VcL$09K>1]hfu]dt& U"AP$?Dtt/ShJp:6w)kcgaYv4i>nBoI%q.g?g6wz?bi%Cra48m[35Y_?;YEGBq&s< U"g[h.S_ZtZ:*B0%d:a:[K%2wywLH*]ZeK3Ak_HFw[i23?EkojU]2 U"^nTO?f(>jy>U$yu:SbO#*[zfb*m^;C5XL3FXc<=q%3VfwLCMf(3;YPefJu4f-(y U"uRFq;rc=BNDZT^bGh]E]ht U",Tpd$O?L/\p0p4<&c:_s4WdxL7^M/]],,wjN9?3ftRB>Z;[wMbd%NU36seEWr+f U"d;QbjOdae2+T>.9B,GZ)Tep^/WtOfq[d8=X6<7fD]*uDIxslcnvC,FZS2_=KoF+ U"jLeDT%zv(/L4fh.w?gD3OqH:Fe3JGz-w&n=>\Cn3+$=Z([qf/a92INc;txtCKN^ U"XT*EgJ%eYN69X(gJ/4<5$JoOMMbiAA3X0DH4tNZ*q&z[&m$'vD6BP##),XZRG6% U"M:h9rhgCgJ_P9H.lA9'98&:nGHdbZzuQ4V#/'Qs U"sE^+]d3)IYtT%Ad*?S=B']EIA]\$fKP[RrGj)4:06e-Qgl3>Q1fTn0cRL9%GV.T U"wgf8L2;j#MD$3fsmTq4W^2hZg3qSi<:*i5*tkmsf_:Mp[EXHW+0*U'T$NoE7o$ebw+sZWhe_Nv3J+a U"rI7^UOf+*6FIeLaa5+UuekFt\LfdaYQ2QT1HMn1wvf U"c#fG/tlqB U"H,i\CA[-HKWlS8'Hl(tupZGU,37(WJl$YKA3FHz]^Z-qls?p\a%bFCp;5-:1JF' U"zx,yUwRk7q%cYblDEk&I%=#+&pEhm*jr21q]6JZ+?nqeit8S+q$1tJ;D>1=o,26 U"Rl:?ftO1<7%MwV*6*dC7/GG1Pb_fF6Y-K%g]yH2=HMi5gG^ClskVAEsljbEWmT7 U"$-oLFk4$+e-XW9^CD5tqN9lVJ.aiwNXg U")\z6C3ib2w-tpY%r2Q=Zix&F7sDYJPfRqsdt*SxcHD8Pc96dOEM9=fDpIrl?lssO?df>xV'NreW6_DvN88a7[d'jDef[N4G^b3oZ:4.0h<;nuO U"[Z_xu$cXLF(f8Y5q4kSRbSV\K=cFBa=flGtpGe+WhuJc;H1t1Ly=LUC)OMJ-&M4 U"IM=FiqzN:qf)3,*Kd]Uv%w8[.Oyw-]>6vG[#J7+QkLT)CCjn#O;IQi-Bpk&_LZz U"Prk;66S-h.D<4oLj55rB;'_\#YKm(%cUal26UC^0],7qDd:)IN:&xswHrs[LaTi U"sql>?,X*s5(HH<0UUH,uOEMF<-NEV3kFCnDL:X[o)uT$1<%bdvZYR$i)*#jux&J U",*KgD=n1[$/QRW7$z)L-hj3ZXb[A%RX:D;TAGsrA$fSMd+kXngX)uutMYR/kE(s U"ieXG5m^F6Z;]h$QZo4$g1#^[F\X=7T==_rJauOPL]YUkO^jDKEOWOGh0GgFl&SRDauoiA+CIeHELjBA3CQSS U"9^dSbhM.G0&,FrXHZcXi5Ua(+$D:5tVe_,NO]&'?n>eH7tUW1:,+F)X][DW[rJc U"HO6KqPG+bncaJZ'%5AgZDm]JkjE?\Z*QhFql/LtRcR5X[b[*iGj4EL3tl'l&p=U U"2UjT:T2v$4oG]&LN\%t(5BZcHv*J%i1R1:oSr$BRMbBWfEC3%9B#O0;EXi?-ox% U"u%p()9%%%%-=%^'TLHQR^)?7%%%%p&%%%.%%%%jsj(r(SUdUUTI0D.OUm1+Y1kR U"#QDN1]Fv\#+lt(tL5/>u(M<:?7B,[n??pD\7C%(?x+m#(7K,VdPF3+]-/U4l_-4 U"FFs14a>IM+eAo>G-&lFX,GptMABTuhZkm)=kTt%h&+cMcHdk^^%]%up%()9%%%% U"-%(.zDHiB6KO&?%%%%p&%%%0%%%#uqf(%jwVS#UUUDcH:2Is,F?E$WuR*as\p%i=mNE(t$s U"68E_.XHoe/-T-]ao4rS3#,fT4kBtsD3GKsGB&QL^piO)BBZY#u3,L^&u%p()9%% U"%%-7%''D7H_;u((:%%%%p&%%%0%%%%uqf&(jwV%SUUV>DHJ.'>E1*iICVpXH'L8 U"d_fvbX3VeQ4EOuu:Z)\(+TwA15Ilk,uJ3em/r?_3'5[g-lVQG\qWPUB%^X3ttpX U"_\4%oTm^H?C?eji+;[p=#D'ibJ0Ov/8c9(vr:u*OcGtXDGJ2'q49?8B;< U",B/35;cBc?=.esQG6l%%%%-%%%%x%mtyS[UUUt*48C(%h+h%#(<(R&[1(5cADXA?tt U"DXnOnrs&I50mZCPNP\'ew7N/%]P[f3mC%'&((2Wc$&e8+bK-KK15&Qfo/)QPe7& U"[=%u%p()9%%%%-.%&l>mHqrJ)A?%%(%j&%%%-%%%%ynq%jSUU:ULIv(3OE-7%u4 U"hGvfAL60G$WN't/*&uiwP-7Qh6rUv>2qH'Va[u(Eq'F,e8+*6G%%-+JrW(q6A<0 U"HncfH>1'iQ[i^jqn$gCA&X'%MnpjG9M4ZkgI=kXD=j4iEs4BVqgbh#-DhMr&<7$ U"%%up(%)9%%%%-%oA*?H_iQ:p4#%%%j%&%%-%%%%y%nqjS%UVZbb_T2;[U1jO6;+GzdI/hUi%F&>m65L5F7JI5*B5%KBUunsr=S]YqBJOim44-f0= U"0FB4pF'D>g4**DdiOsA?sBT&1GHHjf3od(kF,^el1Y,m-xO2K:q+,&Mk&Q9U^#f+\FO$F6's(up%()9%%%%-%(I*?H*>:cU''%%%&j&%% U"%-%%%%ynqj%SUVY:r_J6';U1h9<3Eu-DBOuPe\j2=8H9[q<)g)SkYM.QG,;x3vM U"-NRbThC%rGu*Vo(6A^S(f?&6aUP#6:Jn]$52aT-HGA<9UG1JIDzpj&sCA^u4EhZ U"_)V:k2e^Zh-49e2N1.jLGcCFGn&+g008=JO1ub[]^m5+W1/&KC:Vt2_D*1f^c2, U"T3/99lImJ)k#6V5thp*ztd=r18AJUvXb.o5*+vEA6'^,up%()9%%%%-%*N)?HN\ U"N_h'.%%%&j&%%%-%%%%ynqj%SUVX;,^V2#'F5SK*,:/F,)9BrPkH?%_)g2VeBWh U"K1dOXpa?4\00vS(6_KeX2's#F/%)BNM7F,YSsB.LpUdJ8[p4N\9quQKEi U"['7up(%)9%%[%-%,\)?H\#$LJa#%%%j%&%%-%%%%y%nqjS#UVW4cIT2;[U1*I]) U"($=2EU0^K76B_M)mP#9ke;3TYI;.ZNbnr/Lb>FS+tp?X3[>KB]lc'T/wE]uEu>< U"0BDNT$pe^_>>/^[q9_Sw^m'H+j)fTWNH%#up(%)9%%#%-%f&)?H8K U"^9Wf#%%%j%&%%-%%%%y%nqjS#UVVD$I03;#E1*/35RF=qLk>T6rTG3bPm1W25Rh U"mi4Y;?G,thFFELr]X5pf=^vqAWNXZDPW5i\u=*T#2)%PD*AoAA^ U"9(gC9BHULGo3PL;+G[L5RF(PspR4X$O>NMV>xzSqRJXsL*Q&dY?e.R/$#Hoxxcu U"k2.ewlT75,QVEt'Hr*m-rmWvb'r2up%()9%%%%-%)?)?H.#;dV&o%%%&j&%%%-% U"%%%ynqj%SUVU>4HX6';E1+>?U:BNkV0+E'Fryosh0FflvW)B1F&iB75O^ U"c=WB,Fn5LXIe[5d+;]fm=;#k/gmuH0&3%y+0WIAUf-%^q/#%my88Dx+/ph;2e(4 U"/[ZFA\v2D[uI:e,_lH_mBm1-EY[J*Yl5G-/sE4<-Kvnti$\cQU^ U"?BOl#nT/WFk(<;cI3r)/T6&mxoRs+W<-[ii%%_3F8>^=xJpVE^=oiOz)'3#IrC\ U"Rw9N(%fkG6.C7gL?2;qfOVawO\t+:)5:XO_m'+b6^mmM]TxLr<4s%dq%YEHlo/i U"fq95*_EX\[2b>fci%*up(%)9%%%%-%S[y?H2WkcBw#%%%j%&%%-%%%%y%nqjS#U U"U]4t]T&;%U5ir=4M9c/o9sYu#pN&>RQS?-a?Gf,1?Kk+6w_csXWndrjfKf3in]N U"]?NJHfp^fQjBAHAawCl_ep+=ZlwBFEWH;oEh9(ieugRV3C'c$3$Mi8DA(6fkPwO U"YQ>nV;HF1f/4gO0_PLeo0%7PfZS'gIGfa-A[c\/qf;Vm:DK#m;yu$o_/0D%dccQ U"\13JoH+'ifU]DB$H?r(,z5&u%p()9%%%%-+%tx?LHoZ^)>o%%(%j&%%%-%%%%yn U"q%jSUUp\LGJ(2RU1O)ICVTGeG5p;g'XFz$MX7ah0&:htSFeYMdc-(D$hi[lWR*KDG^.rNj/EA;6n8kwCJF.BsUu2KXJYDw*D[w7t.Lm5Tvrp U"XJW&5UWO)kNRSz.hL%_3)2A=7.InGEdm2pD:]J)u.BpkO]7Gr?6k>)'i.as%27a U"D/uO5Fs:m\/4]s[_9\6^/*Er)U&4]AeC:dtoL;DClTAqIh)PT,Ba8l6(/mD,Vh9/nqkdWTLiSua_?T=JezKp&-4c1P?%-N%up()%9%%%.-%ax#?Hz4=5F6%.%% U"j&%%%-%%%%yn%qjSUIUZ,_9J2;U71iD3oEuTb^OwQ#C\13a9AX)r]T9.t&a+ids U"O^beX$XtDpDUTb^Vk,v\MG7;(9S$.loY(eUtG$kar?iU&(sNVP&M5BeYVu%kNe8 U"%icK:L/taa[^>f'aWE3,*6i7>U4>n_6&P^Ib45h:rX8Bo2;a4NHNZ4QPaBQS,Ip U"E2.lSh4dqO$3+0&Q%'ioJ;)awUAI5c[7&F0ODYYwv&*\LH8E0'FN%%(%j&%%%-%%%%ynq%jSUUsXfE*%.%U-OiJBVh[m)%K\^qo.H-8 U"R5MpHn+*'=3GQwK\;u=6d'(%up%()9%%%%-%,20>H;Dcwy&a%%%&j&%%%-%%%%y U"nqj%SUUW(z^v3';U1h9DB1hnc]^-\KH39L:$glK-#buqHxf58Md(Vtm0p1(4z,U U"MZW%a'Ai%Mh4aV[Jjw'ae1K\-H.eheVn$czP<4)J-.\i5qT5g[J(3mGJSXNXD:% U"uUK?[5JA5HDPX%q&d%%%&j&%%%-%%%%ynqj%SUUV:r_J6';U1h9<3e U"5$R09SaS#\#=%%ABqek3bjtf6Rswtt7;*JVcQfWIVI>%BZW#L1Pb[&?emki>iMD U"]=QmfL[E7*8&16/NyY39ke1\*T9NjSTBC-3mzT[LoUVA$k.nOHNYjn:4B_n6rV^ U"sX+)DjW't(BT7W-alw(gH?6PluGJ]U$H;yL0jmwylC%3v%4up(%)9%%#%-%#A*? U"Hx$#;,%#%%%j%&%%-%%%%y%nqjS%UV[rb_J2<[E1ib+3V&DiEaC2MM&lrL&HU]^ U"xco^/;g26cB5$#=[XpH>St^>''Fk&%i).b+wC.gN?z,3%*6B^2lDXUcQbeMAafl U"6LK'5x/HiU_Y<+=XkI/)T^h4c=#KX<]s1=/x+2/5Y6.VuUjM7k[kblkI)XyCc;% U"F%1]xDRj8If+9Dtnp]Jq)Y<*p*zD/j^-&$L3w4J+^u&u%p()9 U"%%%%-O%+I4[H$\:(Yl&%%%%(%%%0%%#%sj&%lfrj%SufqW.^:='\E9jq^c?=K:S U"Xx.jw)HND%xQ#QGFdd*0Nxq6\Vr;Q(E+tpDZVElO:Mh9e]RV163T$s6t0kB4>B; U"e>(#*,$,5.EfP+%(;AqBYFeSm)>Chu]xvZA?e-smiN-?==%>^8u.h.AP=nXJkNT U"D*VuD)%gG:oJr25*-SZKK/^4Sm(qsqS_cD8s*#QBd.G*yk.pqZzf1Pb?]p)h5Sb U"Qrbr['#8.clXuKM?87ORC#lEImc/jGpSFnK;UC-qdxFJ:yR%ng3T\&=q;d75k[q END SUB SUB V2 U"Hk],4V0LgK^JwJFQh?lpH0UAEP1i[PF^[8^fEwGgQwN$)EI;2ai't&Ur''FI7X? U"_$ZWkq3J#aFlDRwOHU_xl(Z0&2+t;P20c0B=x'wCccK[Us#lEl+7u7OhhhlNx]E U"*%zreTWvGcO6$X1K8LXhSE[(ABwc.sC^3%WVB\.kyc'PFzL-tgs,&pQvrEboO[< U"I>]\daFPhT^i#D(3-$G0F)scoNc&.V?P)dkj5uBJDCgWVuVcAGthcD,x%%up(%) U"9%%%%-%L\g[HGmiduR%%%%>%&%%0%%%%s(j&lf%rjSy\'y0na0j1jD#Dv?5FmDz U"6IiB2R,Vm+CH+ZH*2kO:dA8Zk0l9QxfDwZk,G2Ap-Ln917RRF:VCH2GH2;wZeYX U"PKg+IU5\+//39ZjrJ&x/J>nx/>B+jr^^;hHb/VxHbhMHx/8VfqMAtT[uUUyTmqi U"=Q[Er]1))JBv911n9YgCk1si(gqg3cI'A)IieM#)#5w3QI=KTE-koW0:>h*#/e\ U"di_to3o9-%>#\V*s7Kd8)_3F&MO%)c2Ro/IaW[[=c6uk1y66?/*2mH/#lClZ+,P U"k%u%p&'9%%9%%[%-%>B*TH'rO[-A#&%%3%/%%0%%%%%%%%%&%%E%%%%%%%#%sj& U"%lfrj%Srfu%up&'%9%9%%%%-%)IsgL.X1f8%F:%%*d#%%%0%%%%%%%%%&%E%7%% U"j&%%%sj&&lfr%jSgf%xup&%'9%9%%%%-=%^'TLHQR^)?7%%%%p&%%%.%%%%%%%% U"%%%E%%%%$%<%%j#sjr(%SUUU%up&'%9%9%%%%-%(.zDHiB6KO&?%%%%p&%%%0%% U"%%%%%%%%%E%7%%C<%%%uq(f(jw%VSUU%Uup&%'9%9%%%%-7%''D7H_;u((:%%%% U"p&%%%0%%%%%%%%%%%E#%%%2%=%%u.qf(j%wVSU%UVup%&'9%%9%%%[-%;'.DHnq U"02j<%%%%p&%%%0%%%%%%%%%%%%E%%%'p=%%#uqf(%jwVS%UUWu%p&'9%%9%%[%- U"%uA/FHQ/gscq#%%%>%%%%-%%%%%%%%%&%%E%%(%\>%%%xmt%ySUU%Uup&%'9%9% U"%%%-.%&l>mHqrJ)A?%%(%j&%%%-%%%%%%%%%&%E[%%%x%>%%y%nqjS%UUUu%p&' U"9%%9%%%%-%oA*?H_iQ:p4#%%%j%&%%-%%%%%%%%%&%%E%%(%d?%%%ynq%jSUV%Z U"up&%'9%9%%%%-.%I*?4H>:c+U'%%(%j&%%%-%%%%%%%%%&%E#%%%E%#%%y%nqjS U"%UVYu%p&'9%%9%%[%-%N\)?H\hN_h.#%%%j%&%%-%%%%%%%%%&%%E%%%%oA%%%y U"nq%jSUV%Xup&%'9%9%%%%-4%,)?+H\$L(Ja%%(%j&%%%-%%%%%%%%%&%E%%%%J% U"B%%y%nqjS%UVWu%p&'9%%9%%#%-%f&)?H8K^9Wf#%%%j%&%%-%%%%%%%%%&%%E% U"%+%VB%%%ynq%jSUV%Vup&%'9%9%%%%-1%?)?#H#;d(Vo%%(%j&%%%-%%%%%%%%% U"&%E#%%%i%C%%y%nqjS%UVUu%p&'9%%9%%%%-%uA)?H,KbK3n#%%%j%&%%-%%%%% U"%%%%&%%E%%(%/D%%%ynq%jSUU%^up&%'9%9%%%%-%%Sy?XH2kc*Bw%%(%j&%%%- U"%%%%%%%%%&%E%%%%J%E%%y%nqjS%UU]u%p&'9%%9%%[%-%t#x?HoMZ^>o#%%%j% U"&%%-%%%%%%%%%&%%E%%+%lE%%%ynq%jSUU%\up&%'9%9%%%%-+%:x?#Hjm&+L*% U"%(%j&%%%-%%%%%%%%%&%E[%%%2%F%%y%nqjS%UU[u%p&'9%%9%%#%-%a%x?Hzn4 U"5F6#%%%j%&%%-%%%%%%%%%&%%E%%(%_G%%%ynq%jSUU%Zup&%'9%9%%%%-(%^v? U"FHH1A%&W%%(%j&%%%-%%%%%%%%%&%E#%%%B%H%%y%nqjS%UUYu%p&'9%%9%%#%- U"%tB2>H8;E0FN#%%%j%&%%-%%%%%%%%%%%%E%%+%DH%%%ynq%jSUU%Xup&%'9%9% U"%%%-:%20>gHDcw(ya%%(%j&%%%-%%%%%%%%%&%E%%%%?%I%%y%nqjS%UUWu%p&' U"9%%9%%#%-%EAm>HPJX%qd#%%%j%&%%-%%%%%%%%%&%%E%%+%KI%%%ynq%jSUU%V U"up&%'9%9%%%%-1%#*?UHx#;+,%%%(%j&%%%-%%%%%%%%%&%E#%%%\%J%%y%nqjS U"%UV[u%p&'9%%9%%[%-%+)I4H$F\:Yl%&%%%%(%%0%%%%%%%%%%%%E%%(%.K%#%s U"j&%lfrj%Sufq%up&'%9%9%%%%-%(Lg[H]Gidu'R%%%%>&%%%0%%%%%%%%%&%E%% U"%%JM%%%sj&&lfr#jSy'%yup*%+%%%%%?%?(%a*%%%LN%%%%% END SUB V2 CLOSE:IF S=18AND 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