'=========================================================================== ' Subject: XMS MANAGER FOR PB Date: 06-12-97 (18:40) ' Author: Erika Schulze Code: PB ' Origin: 100775.2275@CompuServe.com Packet: MEMORY.ABC '=========================================================================== 'Run/Load under PowerBASIC to extract XMS.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"XMS.ZIP",4^6:Z&=14452:?STRING$(50,177); U"%up()%9%%%d-%t7oEGAh7DVH/.%%ZL%%%0%%%%ij.rt'r%xSgfOx>)*,B[_7_MU U"Owgh>9A'9Cg>5aE3WPdFA#4Ke?P^Eh^t^K;f5]*Ro+RhW8MQNklJmsW45g)*.0k U")Vn3\tKDx3wMnglw\_,R^LG4?'&p+UdJ\9K,VU&nMuHCJz[Dg%PasaYZ295BYbu U"_-c:FSehx-VZ&&ZJg4[ZD>kG&lp'2\:*0NvET'.XKt&c[Ii*N(lW6%^A?&Gq7q9 U"iorNlHt-ExK3V&NuhS$P#bCG,cj)Vyw^n^+B;7PouX%-^PB/e)77RVc._US;n2C U"D>v*vfN_c=4(l<8_e[d;HKkC/EQc(iP)^cIkAOA?#Lgu6&yYr?0\Cknh7xVXpA5 U"KkXPOmRS*w4JkhtfhoK/M7bKr)(iv;WrZi'RdD::4In\sxnlSWdPswXNt)Ls[0- U"Re#m\6&X?1:p\Ul/()dWNJT%3AN72-hYg$l6qcDK^cU%7NPNp=.1b3#?8=]R+R6 U"LF\KJ9CkS,S5*WRhObD_gr:?KbtDw&hO+60v;zRwx%t U"5Sc>mUAn:Jq&\ch7f(pVS:FL21+UXtRZ04XqzEnWen*\.r_n<$BCJQ5T8QSkXK4 U"4Wpr,*;.Q=*p?eihg>\MGKkNKr(6WdQjtJKuX#PpQj4*LKMoP>IN\KjIkXCVPbF U"%oK>0=0Ji-plWZwLnesyx:(*vCZ^(w)c5rJ/)lF:,87b3v5BaZCw+[AjLOnW_$'Rc-Nsb=BSs\7vl1]#t U"e^Nv]'j\I'\b?[ZpyH$'+brMOApnO>.d6=6r2+jx7n)fsm4aboq1xw^Rp>VU%A$WK[/naQ$M[t U"FX3[Z^pGo1V_fQ'(atO5OsBp>>+rvJOJ&1P&Q&]1hOOTmM0I]F9Wb(da?uTDq7v U"Xc?W.nHma,Dh[lmSDI2WpKDUhO02TKz$13AprRnu*StPZ<*TG2uC>SB&L$CZU2H U"Nt7w)gV]aRk5T%TB8JA1Fy%IiX]o&P3ZmA>PJDQusad,7HAkDH?(\Wt[vbBDy'M U"1B2PG,l;$7N7q?'s0_xj>M^$W+['398UCx=K2cekU<2SYUH(kY_UL1RgonuK<3J U"c+Fr(F#s-/.3^qbAGXlINPHK97'Q%glvXt\7fmim-Du*$G:yDTp1T5WvjECXedT U"37x&ZA/aa3tz5FbAcV4-bgHf5^-^_Nmewh01zwx)5TPgj)?4wpQd0pB=xA0?6V' U"+0#:GM$<'62cGdw6Q$ExGEIsWvg6]J6TdjL0v5q>zM(Ay5wP8-[6UuQe\&01R?( U"QwPj#pon(9CoPUDRGM9eX-)A_V0.6gyz5(_>flj?IS/^8):w6)mTeU=LE$'5sDb U"r7wvbDD.W-_#qEJ(VC&%wWAgMu>-)OuPj^UVk>pX387E*8#*&JzNIg07%bQ%p+O U"?:=HB2el+ygvphIb$d)D3LQ7oN)ipsZdA=SO)Q U"J+G\2sY\R:pi,KCM?Tx4HAivdFQ;b/N,hom>y&ZG8M3RH+R>w:)A,ks(SQ'A*1' U"S_>t3/xhD')LKS$t''+WRk$cr?5q0UsG+>K:a7br09hZ&[\_7iq6OtHt]O8S],b U"e[wY:TDI]7uG/t%Be39QC';d(w<*YI\V9Tmw6+\JIPS)etySU39wSwDpZNLG+^n U"I)v3]J**:vt;R&vlEe?CD6A37zO#Q6N_Q[=4yL#ek9#\QGW8WH?=/>r,0\e9yOaEZbH U"0i^fx3:a*C0S>kAD&fU$KA]4\8R8lS:D;i(;[V&wu&uNuc)rbvJ_nH&jnGW0#Rm1Pbj;hvU68Oi0.Do[2ofo7r)$[8n,PgbDK;U.(?_4g U"w5UL'zGt$:3%nUT.iKs?U7&LGe&zDW>'Y?=h8;rkLv$Ri2782.\Wxl#,3UU^w=L U"SQo+8'[Ce^Q55ylfLC[J4Tx'$/EI5m4()2eqf*p.sHMuB\+nVSmaPgHcm%Pgjx0 U"McC&-\piqCu:9m*GSgY''HEM%LXBSLUgHF1Mzal U"m+W)gGOtC,h>j)3QanLLTfz9]m+JlX?U=^RC*cn)Sf1Pm3vqfj);5)xyBb;rk3+ U"ST*::<0*A\MDLwQ'>NVz1h??\>P\TxVR%GqWfXO/H,WE+lV9r_^97u;D]*^$Siz U"-d23DKpIYrz7hdC>'=7n7GYE[CRp(>/6Kp_J9[uwb5S[f.c9Ee=\6.F(r?2(sp9\#GXKl\=XNNlXU=KYu__i20k5qY2'#h><\^ U"HL'm&]b>.]F'vE;CP8o;H.aC(38hxUc^S*C5_HqnHXOnA<7,wuaJ5ycXg4rG_k) U"0\^utER96ilguY:oe5kGSofjIX6J=?:HPt6TeR=ji-ZoT]7H8eRuci(+;,S7<8& U"?(OTNXCS.nu[,Cj$f;#:W\['M%0urmslv[tkrLmUN;T%xYn\ATSUJ>Fe+vPs:^? U"/9YzvisMHxu9]Rqu2Zo9Ab[y0WLl)=%coG;b_a3e$xgcP%5$H>98QZpXFlwPnje U",XyPD>+P9Sj5jG>hD.^M(Y,4kNtNwhoe]4Kibx5Xv]Se56b*kDaq8]&]'3YvoAixnoD U"xt7_Sor'ZeF1z%>FVj_XIrnLK4edmoQ>HtSg\%F=qMtKWedY4_IqsuYbJ%XToKe U"W[g?.CJ8J79QLP%h;et8G-$l1m%vS=+TO0JE=u#3E[+(0jDB6rgWLuDRRV]t'l U"t/Z//7_jTtq0dB%Onet7'FMkVKjavSZiXEm&Ib+Pw/q)b+FhH0reJTq^xX*KQ<; U"fP_NC%3IU::2r&3V+-DupJVF?;j[%8lMaufM'H'#-m#>:T9:H/]5+ns?r._TY#Y U"0jFO*JLDp\,U(tWGD$=hrnGQ&,'LR_$R8^+:.j4V4aKQAhAC>Mr^=?ehT.=N&3% U"^wg8wIX=0lYAD,hAgljzSI\Q&psWT:Jtd04b.F[H;=yN:eLC\?r\Z[eM;K$6ed( U"d\h?9f*TvRgS4Y]XpsaleV&.up(%)9%%#%-%:H7EGY^?;9\#'%%3%0%%,#%%%'% U"rxSnRshF%;(>[UC5M+XKxUy)g*sQ3,LT,;V#sVwe+GCT[c?=9^p1l/g(4NvS]rb U"eDrCJwKMm$kPG725dA$-r_C&Sd=b/;wuI'-hGl%>=&VHeB335 U"WZ>\gNg=L,YxtP\kYvi4W<%J31s(^2*J3_^wmjlMWARMU.>%nJcUUZ0dvoWLU#' U"I\9nr-3A+UE[bdIr#1[8tRe?X8CR7CLn\eoFej/ZRDeW)Kfo,xO U"y%&TIKzc%&y9/(40>XEV$iT;+\n-=$-ovZhUgb9/9)Y120a2\sgAJ_dO.)4L-t+/Z+c6epQB+,SMS+Ktc#\:EaXT,+oerZdaL6oK)Z=QJ U"vZKpw*AJ.Nxu(q[GO=iW&vHiUX95FWo2SO=.5j8MjYO,?\T6RF-P]'(;0+]m9**nS50?o7pETLL(hTM U"cMpdBuR]#QAD[x5Ehr'fdFP-W7<:Be3;Y>X0ME4*RPX-nfC'u9*Q7%GyJ$kIR;? U"L.3hoEM]QR\2''C9)wg02xi(7a->.v2x1I8)=A_(A5,]XwzC2&%9s-EoA;&8aE< U"AA1dRGeXOTFtZOeR0<4.guvR[mf+Fx$YTxCMGE;vb.HwYO'g9=n.ZK)n7:a2=VY U",fjV+X1,rwrQ.Oj)TEw&pMbtf;M=nxgal8VG*bKe4acBxax%'up(%)9%%%%-%2a U"%FG[]4Kfs%/%%y%?%%,#%%%'%rxSuRgq6'_L?yNm:dhf*T^QF&pIiiC7>OX+UY? U"2_)v&DFKRrQIn[b;dc_i=aroReK)D0FbR=;4mgWF+1fqqR0O4mNeMhxCp1i*Y(= U"X7VfLdgb+y-99%8(BBPpqV4tJW64WDJZDT?>&^tkvVtj$8BHo2Dhf82\Vt/CS], U"NI(P,CDob5pmE9UP%P3MU27aVs)9#-(B/?A[f=f3-4\S;UuPOQat U"7%/Ot&OOMJ&>z;TGJ.]\Y1>&?.QK$dBs:&j.^DO$.]kS2wxFYm?U'7K23qh>/We U"464;M0>)P\]6dnR_S'HfIAK3-dM%vdM6UiJH#yT+-i#,arI/lt\nM9CuMnCQmJ: U"DyiIz1sy8PP^%8z,K*+f3Gm5d-L]^0Ot&TeU9ZlCK:rv;E]a[uAYdGHatTj19P]ZqIQ0?yA]de[ELa$]&Q\e?wWAy7C)O9v U"i#a3WvmVjEl?%[b2^2RhR:ex1'L#33?btI3(8X*q[Y:Czs-^EaK]Dl-3_R$M9ik U"62VpDgPplc>_b(Wb?H)m4f>j)j&jHOgb$hod3F2?9KH*OI&B(m U"D'df)+)*OXuoEQDMkI\>Ldex[/\>xg#mO1AB)^>kF^Nd*#cP:Z0670mLL)jYD;d U"h8In,G[1u\oSb=e&E5-5,d4G90&,18V1MDiuGUCfBs+?Aq,(wfr(^WV_,tuwCZ^ U"]a%>bRsy]kF'O&Lmd09DWj:yedXxGkkcg&[;3-XFVJ2&RL7wFMqZ_)JZ;k3;#+X U"em4.??l+#zirE=4jf+LM4i5&FCJxTJ1\W]g%TNidiSD?oQ\A=tokjxSisaVTNsQ U"5.*gF:9N<^]MWn=$#0*//NqT6?huq]gv+#k.]Cf%ZZG%Kb68GlgoWevG'/e:btx U"V]N^XLd/azYDA28?S%DMQea[N6IG U"_*2r+Y=QpaoT-o-)XY%j7752\d5K'TdosW/XIi$[U#ZAbPjD:^B:<)103T#&GjAUQdlmAK^p<=2.cBKuW5;=>; U"n*r6LWQ9&#i[f[7tpJOM4YdZ,4[m?e8C)xUki$Gse,*&'+R)6s0c&SYdx%T+OYr U"/\ZCbj8fvOikTclTsitAMcA.YLi_r%1K_z7V*8Tg:uXF:CX8v\IB]j+(=?\ksi/ U"FFZN$3eYq1i&'Ib19rsbQ6FK78/'062uTtFX:G1#tj+Qs6[np9qi8=hWW=D.#q$ U"pt)UWi1+AnP4qU1i3eeLLJgT^'O(=I:7.6^osm)44:\SW>$_,m%)3l=5#hSD#kV U"5j=O5L(CZ2M8g#Y,g1\F5B'gSnwO9]XFo1w,6J*go=3]U=F[)5>]gLUbfEQv'O: U"GlaK,DLC2?V9j5=CV3N2Z*PI'V>g1KsFJ^gaHW%bL2Ze\6E6[yQ/B-nd=3bA)I& U"%d^iAX?HY4'(grI+1Rs]Z_M4J=Au/Bj]VdArKi:=f5.;,Bxl,>Ti&H(G.+l5cD+ U"S2aPc0^]lNxc'4_AB)0U':oZNw/w^^zf?bVBu5\LO,j?sLb3Eb]:wVJ'Y#TRiji U"k.*YGCJx.;AZr5gs9Ew7Ec2Jr1QvV1aJe8JhQI[ktC-Ia0^VqymXU>ns=w=2*Y+ U"m5+ObI_euecJoCV(3x7:(dGoe5Vi2N8xu'5][NB$0#D U"lK1;hs[#jeqA7fs6Q U"MPTrxvUuisU#w4Ox8>N.zmn&64%Dww')tEONL8tUd.yKtC8%wlMinWaC5tMroJ9 U"FtEUNx>c3Srs-\tIJ.8SwHO2xtc?%vwPM'nlJz:gx6oJ9Jtm.xwFu$cHJ.&YwTM U"JxZcI%vnzw'cJJzLrxfdIyRt-#vw2cNSvskJc_osTSMn6CJD4t\-zwp7wOCP.M\ U"ts/#/9b)teO()LcWP\xCo^DuxwWFO(lVrtFgeEHXcml6fVuBT>BW3ovBai/D:36 U"VX./m$,Kv(Lr((O(4F^^jn>R^?TDbM)eI^s5Y:cLiakDpDMHdnDsJJ0xbh[urS; U"JpZKvXa*7om_RN9,s*cfWsl*IO(t(;pD>w17y0-X/,sB U"q/M[PH?%E=CAC*Y*D,K0(+:nc:D^^/eWq1>RE+&0+(16w9/DDRF=kn/U5IDE-GYN+K(VGf]:l1G=XIj9d;U'G//ZRKI+GR.XVQ:/,S:f+#81 U"c5]iZ(65];D1_=1u:;oh:+(+*=aEC/TR7v+#>Mk0?$0:APg(cRw+.[+FX9iXQK- U"%9T4s&7wZP]<^M#R,8MXr+rk:;7hP-O4lt^Fyt9+7)e>KU.l?CTW5PcvqD;:0/Z U"o[^duB0OA.Xu#2#]t9_OQ[HFv*^HobPC3XQ#b>H5gSefBKJK/b?$[oNeTK=xASn\js U"lPYefO-#tF^GcDEBM3qE659flR8GYBr>8:DD%-.%%3B%%%,%.%%'r#xSy'Oy U".(<%x#^7cwgOx>PtMp3:1&>BP%nEE\k\4J28K:j1#_69UlRH'#FU4^&Fmiqzunml-0MR4M+h7)-W1)A?Jth$Oq'Q7^i)a0+C-&QQB7X^QqpC U"6.:&#b%=,KqUh,ZiMm7sA+J U";i\.#Xp^K2$jkt^H4whNL_u&^Yi=%%q(inkNu$Hav,ggd8K3_ck(?c11(./10-s U">bPqJV%?g,l&Hi#u8U U"zJhd9h(:z?+(&B=ji'09xs2i9S1VaS.+*(m+Tk-^b(d(;bt;dX^&;WTB#'C2L1g U"lp'D#aSNBOq'JgHvG*R4X\?13B2*WO85Wp,=pi7Dmt))O#0dF>#fnl62==]83Cr U"-Lkj,-9d2[7uxm*RHlj3b:3h'?tc>)X+I>W1B,dO\%F2cgF4?+ U"QfMYokTBtfC(;[Muc;21cxxf#^4qD36avmdi:V5,EYae^HHH6rIq1Z7>C%QZ6\X_8ix?Z'RM[oUPvi1kcG_(5>1D(AWg:sBHRU$>4;=UZs[ay>'EmBMsFbUD U"r5%]l3C%zMI$[CB#7sGp2GlT(k U"Y0k\%zKAeLflZAVQ9W-s/nrl9$rTqG-Xq;:.NEyDL_F1A(.:i&\Lqyp=cj(np$F U"/EA;8sR_unfUV5DS_RiQAX%JRC*F$_GkA]gZ3H$&yEbJ;t?Ue#1TxmBmG+_p]R;9nA#3mz42&t4d6$[^v>vXX1&yD-bejGz8_,Y$gjUM;II(IWi_l[FLJ4yf^7pp>W30B1T1JBa)9 U"OctoUXxl5LI&Tk'(6j5;*TT3wKfFpx.BXOaE++4Z59^_Fb-1v.VZfh'F:LTc U">X<(a,G4e:\5V=,[3,RK_Gm.5Lkxj?09PDe7A-#J2 U"nZb8KZik))+9]P;sD&pS+hLbSQ=cx6r'Al,_/tg^r06H_3U7A3P;(DKuqj\#0.q U"B).\rhbgANG$;H-6/0T%QF;KE7p U"4O(e'KPl;NvO5:42&*cn+nbLRMOjp':psj1xEn;IH(M'mWBhar'E._v+C5i1:3i U"HX8NtXBXnz__QNCNgaj1kih_R:[F-%8e-3)fv0MEsFVu0b0,f$6'uy6:(A(=E$C U":;M:XAWiE=Ebd2\&0>cuF+-r4Agq U"iS3)mC3ugl^izf)_3SFdh9BB*]bN2GfaF$ldT]7cw U"E%rO4u?ZPE(=0)JRGLWRpiLE=#(aQkf/Kai*hiKXA[-e(d2.nncqso+&- U"G%O'Y'M7^?ka+-gFi[;vmJn(=sZ\RrBHYtpOvqrj^0(FS+S,T;DDn\c=xDeb-(oxKJX+Su. U"m=6c1Y7GF.b2KLkz;6(gHTHpljqAv^2NwIK#nMW[&GBfd$pU%fugi&.:>Ke28h[ U">6E+.Vl78eKr917\anhQzOI^]$^:,X$Xwna'>Hu'vK#7Hg7>tnXQ,VMTqMVkumH U"k8w:xtj*ujTLWVGuWlkEq4^\Us<^2D=C#2Zr/x__huNIm]^mr9lAv[IR-drpkR$ U"[mdcK>[FeduuI;#*8L^PXt$KY2CWSFGlHQ$h U"3N^?)FvFF*A#uuAH]F'$U\Dt'LNH6FoWIMq1f?(e_nt?.sf_hG']wjdVejR5&;cH=(tg*Nm_3,Y>4U U"JZ/YHRtJ.dnK=^8s1+sgyy*:iq%Ed]SPq7#nc)q*Rbt-PXd>8mM.m,Ma U"=v[;:[D)hRG7G+:oGSyb)Z*rs;cYqd,(#;.i$+wdmC,^]_,j0SB?ErXq2HMZmYK U"J$55n($_$OGb-YFgl[Z?q1tt;SMr>qsue=J#L,iaAP8648_hwwV97W;Q8Ss(k?q U"ulNs_04dWgkj+8%t6]\L.P2Cq_5Pu9KdAEd*EX(nkja.DkHx_?URy U"[k2tHn.c,iDlP()k6EZVnPNfTyxl6)UVt0kO52t8-REN54Mg=4lv5[?88/DQ,BQ U"p-DklnQqX5;'u87ZA0H?62jJRnwg08RM=3i,MFU64GGvs$j4wM,V73>j':xTak; U"2o>oF6;7T/PnxmbNLYU6JOC(]1CF&uh'Dmbo(ndXP_X'_oCh4_Wn'_/0jfVd-tx U"6amqAH:iPJ<1F:xKE>5D9c(+d9K\g7a7R7N6c)g.b7_8Iv1+psQP7LY?Li)R0Ce U"iW-]W2.ahDgc2f['xAdlgiZ1X:,/.O*NaKFRV(Ldi(fO=/+0=1SXZus]*d_Ee1S U"M(/S#tBN+JwVlWEjjVuij5lSAd>7TjjhcG*_GI'2kTXZ]8O706c5+l7KZ0I:Y2W U"'S2N%7-nb+$5LQ=o>'E[kOEq2P(\_.3N67CR?mru(#Bi=,Weo#B7gKcA#+3q86E U".37cQH$sLA5NtGVVU=)svu-6:#.z.%AR6__8h?fDV8C>YjlsV*WHJrAzEqXi7Z]-\zi.b:oMsV)$jDG(C4GYIEUKz/2DNGY7j>[ U"'>Nu>c$IkA?;Ch_/]Ks[/yrL056*-W)CqFL.m5biCfoJh'+;w'msVqNC>JmX1GH U"hJ0b\Om)9/g%M[/P07G=,nZwd;NVpyl2*Y?>0E7L_hyGisQpmB( U"X,l/\XIpDGl,J'99l3oAR41f2'kWO)7o>=gYL5VF75>bojG*RHl7oeps>&)r*XL3]47.QwDh9TU=w^[mI2vFnEvuRPTmeAu1tx$qn)d.hS7Jc U"\M=rfCW-OrAp?lb%GB-)PyF(^rRl=(sG2?#5=B(CSxc2BKh_#.SY/o;rhl*;MoN U"V%I6_ua/O7LDfZU?r\uHF&mJCBYuX*''EX4j2>O*5KU_E3##L:>S]S>[u[f^A05 U"wxWD_%_aDM8%M\zS(q32Ku8>sn3UR]8qK_<^>9ACo.D&I,EEtlj$R,/kx33Dddo U"m/]]['C*K:eO0x+Y)%dz^q: U"z-02LZs33?55Qx+UIseJ%GJ?AmleW-L+2ejkQ]=gBqS42\n,UQFl4X?Z$MGzEuC U"Vt1K_1'T&sEeV:&,lL2::&d1u4qfbuNa$k,UaBILR$C5c7uKdjmnYqNgrp_4WOa U"P)BG^PHqWwPMJ,LX7:8MQ#SORCW0'aAC0'OM=2ya0RMbmjAdD76[B'=%0sZ U"UfnVdmXm/g8%\B[R*-])v35.\lf$HYV&>_\OCEJH$O&F5_Jw9&&)Zt$DYM*l:R# U"Q>+'KD,f3i?Aw*FbE&.I=K5KH$NyU&='DCMY<=&U7uMf+.RgpR)uNN/W.^wxDU= U"ipmW&+xHxNe3l#W);-W/-(I\)o98;r:laOM156cZ*zY?.pK14?::E>Q4x3iuf'h U"=+mFc43AOf$vWmEQt%t\VH^RT%o%%)u(wySgIAdjRt%-&k#:eOjre5Gj9*)2>B7 U"v25$.'84E]+AnEBLjh<1;EJ(59Ip45]r1<(LFtui+YmtaPN#:/)NpD,$0:4PSW+ U"i%0FDdZ?K,aQkh*DcsO:N/_SNqFi&iVPnq<;e, U"X7-DD5jL5/'OE-3vEX98Eme73]Y&mfCA3;fhL)jYo&ZRa'89$9icf)drE(EPLs U"DNqn;VO.*X9JoXYIQfeXT>9V76x'rfE$;;,$l<)ahrp1M5(Oq$JlsX51<6s^KXF U"NSAR;^g3T$d)5E\)hY2=;b=$'CPRBY[QVWqYn3\)T569l:I=1G>x0/ U"po2urBFpZZqOec-$xrFP$5chXfYLhmYMYJ6Qj6F#W*kK/fh(q&avP:l','[l'$) U"1*['X$X$+A>29$Fc3+YTiRQ0:jwU3[z/Ug&Y_0e[j3,lEBSUu%(&GtJ+P;'SyP( U";dY-^=XsNEMOIbmAi(cAa,3g-mn4MS(XD1l4BQzFqMpT.1#04xsNu1#JQ\\gVOn U"9mR8t+?U,TZzmo&>1DeYp_YK(#PRlpfpc(%ktD')A6\MgJk7o+mKioO7VALA\v% U"s(*1hd^z<%m1/abnO-J^-I;xBS#zUqiGoR;:395Z.H-9\hf3pEZsM]uMidCP\N= U"F3d&%4?qZ34le29Av%E9#n+<3g/B)2_>?jA>ooYlvu%Dup(%)9%%#%-%DH8EGWB433<#)%%T%8%%/#%% U"%'%rxgf%xSgfOxN&<%xG^5$w[zw)V-p4NV),Cmbt(G6V[4M/v3UNYPL4>M#uPc) U"hSoWXMxwa/0ec%Vm7N<[cunAflqvtWbs,*O24?-isEM/Q6.*>--CB-$(*z(uO6o U"EmqPeq+rxD4rSp$NoEi.N41vU,ZV9h;2><>:4d8.X5;f=*.aNTA[5CXCZtiO5]R U"_iVEx-M+A(Syod,-7B.FftmTXq6U?>$ U"BHX0Ouo9iw]jBoi03bD:(O2qMR2&5xVLMhwIR)N?nEm'(1>7V4qB2^=Zy;:uY7IQBl4Hc U"8fZ5e9,y^r/6eA^L0W7qS.'G=p,2>VNLsHRSYI3]AUf'RVcS#$Y^yV'<(v U"55r?7>Ek36('_ucN-^C7vGcCJ'3HPTc2AcSfaQb-^kS>X'UTq4+A1I1[fUV+Dt? U"ZiSaz,1*4e>Z?*i$O2&54Y#1KSbc$??\G<;:[ZSqV3hsBw-E.y&07[na+C7Fza) U"g$+)43.'58[k4-HWGP(U-*b,+.XIaIIKm=*o7R.>(ORUKaG+I31RgCXZkQGaW:iA-j=PP]%M$5V8HAW^uejs+J\Ed:SX=ZfM3.tA U"Ki=\\B7LC?ZK/m_4S^AD=Xs7MkGV*tB5anj9cDq&.B/f[84s+2[Nl6D6zn-P6B> U"ZRI2]L(b',a\.)[>TA_ISJ\tp/Mbh$pPb[1$dGIacQjsrvV+-=%qgWgl>+0VJlA U"CA]1O'D>4QtXirCD/R%C84pCM93.Y*i]MA#fO]11;#[%+'OFM[pS=$,aJY1YfkY U"A])1S8T;lAh*XE]kgvy;Q76$O,vBBoVf-5ohe.LrXi.U7^e%\QX.t0.ZXWCeJDr U"+Y>VhPc8sS5F(y>w6E7w0nSuQ*Qqc:C+]4Fz?Jr[dUEO(=jtOX\q27DL]/j/SCu U"5JE2pW#W/X2Q+9O6_;R)EILj/9].vivMGN=]VVxN&GB4&.<2T6QpRd668F49Y7+ U"al5jQSRAmr2UFSMkM:a U"Ua'r59^T^?\44JkKA]$7^X)FZkHvA:,NKT6eD2^#;Jf#J6a-5+gBi04E\T;;>&^dsHO((7$qP,t>UlDnlbY? U"X5O73[UDiZ3Or_]')aVzW\kQ25rT]v'mBrs#eJDe7'x'up%&'9%%9%%%d-%t7oE U"GAh7DVH/.%%ZL%%%0%%%%%%%%%&%%E%%%%%%%%%ijrt&'rxS%gfxu%p&'9%%9%% U"%%-%Xc5EG=[JVEj%&%%P%(%%/%%%%%%%%%&%%E%%+%q/%%%wjf%irjS%Vxyu%p& U"'9%%9%%#%-%:H7EGY^?;9\#'%%3%0%%,%%%%%%%%%&%%E%%%%62%(%'rx%Snsh% U"up&'%9%9%%%%-%72%FG-[4Kf's/%%%y?%%%,%%%%%%%%%%%E%%%%>5.%%'r%xSu U"g%qup&%'9%9%%%%-p%J4E=G]M>-D%-%(%3B%%%,%%%%%%%%%&%E%%%%]##%%'%r U"xSy&'yup%&'9%%9%%%[-%T8oEGq*,)K=3R%%2N%%%/%%%%%%%%%&%%E%%%%.I%% U"&'rxf%xrSf%xrup%&'9%%9%%%d-%D8fEGW4.33<).%%T8%%%/%%%%%%%%%&%%E% U"%%%nW%%&'rxg%fxSg%fxup%*+%%%%%,%.,%O&7%%W[%%%%% END SUB V2 CLOSE:IF S=156AND 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