'===========================================================================
' 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&<VGwd<6M]_l[/)9MS/K>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<jw-7-GB0q_
U"h:7wp7ZmhkIswLpoK$s43^e6s-?):K6ca0rx$YQF8^XjgR&O\UnrnL8Z*;H^/XF
U"I8AF4A6X.[Eo,tvR;[A1'prQ?1(;wFoj]=e'Wl/:Sr)u/MW=KE:U/^QX,CJ\]o&
U"Hs-43XjT#CsLl.X,V_mqR1vt68JdW-cH.>+[AjLOnW_$'Rc-Nsb=BSs\7vl1]#t
U"e^Nv]'j\I'\b?[ZpyH$'+brMOApnO>.d6=6r2+jx7n)fsm4aboq1xw^Rp>VU<Ej
U"D-R*yk?JrRs6m6Iauussc7mV?dXLoPc%IS,2;R[0?UAbvWUJ$_8)mC5L][y-zQc
U"<:gW$nlN^TPwgbSuN[z#<-/X%QhQ7I#/HA(2&u$3v[/AYcg,LG)AtZrkLvucmuQ
U"6;S?I]gkp)vuemLrp*]TEbl</A'uEflSb,[PDT$&5YiCM_51Nrg\mOq,DHs-zS-
U"0-9#OZQg(yWpvC0(U01*CfhXU.5T^r+^Dnkxc??I-UDJv<6i>%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"<PaK?X)58k^JqF=dISUO+d=L>?:=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&<LWj:ZZNiz-(cnDM9_<CqOdTVAhh%Z$T?0SW9LuN:5,3ccBrW
U"AK2dSSt'^>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#<V
U"a.lG(]4kAbX*Fn[=vM7<MWI7l?pb,lbWF)'90B#DwAP,6.aE+4zmb&=zjZ9)&T_
U"/lYa0-c,CuY(8Y5y6cbeL04J&CfA/IC60^ka1_2^w-+^Y-JjPFKC\&0wy51E'SF
U"[E15Gi]GO&c;O)v+_]>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&-<Q.mxj_cMniI]Go^pIopH#3heZOZiZmxE7Xc*iQ2uF0QmmBsyR*<ocH[eY
U"1:wG]-,#5s;P$Fb*w%pb;j(HXMwd]IuNT'NWewn96JJ[t/GB[]:W)IG6[Q;;IX$
U"*hbbt3(mH4fNJQ#:PsdLwTN8ft3t>\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.<U+4SLfTR)fX=7Gs(
U"_c]ZmX+N01>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<G+ZA-[*0xX4vpl<AN$Px/
U".C2Kt(E.DrV,x28y<At21nSd^E<ps3hSMLw\fxKb_mens5#Gbz%KwXnZh&6)ifD
U"M,9Kln?L+vpV^q[Va$P)jyub]Jwk(iM#t'mF/OgiWxh0?%C$&LBowV&t'd%tow%
U"e\]x\OTCo=/T,lJJd[D9Sf?M2BiuPU<4)'yeM$H8RtFx.%up()%9%%%[-%X59EG
U"=J7VEj&%%%P(%%%/%%%%wj%firj%SVxy#zwr>]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[+(0jDB6r<Ogu=)35(f9Dt
U"*:'5[+H+K^kgx?:AIXr6.w3rw(VI/CVny8FDCa-D,D1J^=[].?HLEb0D/L]7Fjx
U"jFa07F'6x*Vea7J?B,OlE1R'3D\F*Ds,-)K7lwD6b''DOO*fFu]W&uTLfBn6eY[
U"11RF9.g[SwiZg-[1xaG;4Ur5hC,g\2W0\5b-[sorOCt)\/A[mF>gWLuDRRV]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'<jDf4$xr0+o5s>-hGl%>=&VHeB335
U"WZ>\gNg=L,YxtP\kYvi4W<%J31s(^2*J3_^wmjlMWARMU.>%nJcUUZ0dvoWLU#'
U"I\9nr-3A<WmC<S)1M1Up+&<N3,6tF\+/J&kS7u>+UE[bdIr#1[8tRe?X<WPoDbo
U"E'kM)k,g-QEXQ8nJTJ+[2JggQAA#1'8]J/e^>8CR7CLn\eoFej/ZRDeW)Kfo,xO
U"y%&TIKzc%&y9/(40>XEV$iT;+\n-<sGGk.;v.NK[YC_6Xk:L7=eY[EZ)#[:$dB*
U"-Q1Dl0;2J5S'=uKpR=V<o_&<f2P+w0b3T#EraG#/Q&q^&wTS:qfT:3NNuKgsgKC
U">=$-ovZhUgb9/9)Y12<T9<KS[KXPU60)P3T)CP.j&+=VkoSrSI=gcEXT8HnB(We
U"W->0a2\sgAJ_dO.)4L-t+/Z+c6epQB+,SMS+Ktc#\:EaXT,+oerZdaL6oK)Z=QJ
U"vZKpw*AJ.Nxu(q[GO=iW&vHiUX95FWo2SO=.5j8MjYO,?\T6RF<f/22xU:aA1y_
U"rQNLn_M;[g-g';s10oPi'lCq/pIwm8#R.>-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%P3<by,]CoP?*RY3,VdVP'R'3L1:Yf-Z/8Aef2RgKrr:D%^
U"72Yr.g%LiL*RK\SjxYqOJ3Q<'PE8:>MU27aVs)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&TeU9Zl<l_1?+=1*744Hj=O2O#\GMwm
U"h:G-^t>CK: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$hod3F<HGZaWo^4RqfKHXuN:1O6d&3#
U"IO^JY]^h/o]c#k%4QFjB[<BW0=O7rB]mi1*5.jUbZ/'%?=;oon.d^t6tIVC30gA
U"lV9IQPJ6&:Kk&6[?GPUT^cX0T2m65Oo2';/FM%VcX\s=a3padV>2?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[N<OME%]&R*?f8=OWgwBY.h=b]GhFInEQ\?AlNU'
U"pP*L^RVV?U*jW)F4PO8?MPd2,),ePX].cZ#,fXRUQIM3K7LOWt:h8L5RfM3Er\k
U"o6Qoa_S]SOdIulQU4(7NPo,^M%S%R'opY<Si#fMK-R7^boffTb^o;SF)Sl7>6IG
U"_*2r+Y=QpaoT-o-)XY%j7752\d5K'TdosW/XIi$[U#ZAbP<uH]Ts$2Bdh)CbDP)
U"q#ZSb#02ix=;h9=[_B3XRb>jD:^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:(dG<dd'4ehPnM<Zx91a]BeCjn]R[kBn'G.Qm=lSRP]\
U"HmF_KqK-kQYe\C;^mm92bX7jE<pb-T9^MBp$_43s9JBe2Ci7w^CTGDY1Og7Sqxd
U"Ve4k,CV*+_]'97c[G/0d=.tm[_3YA32xk,-;EdpCbs>oe5Vi2N8xu'5][NB$0#D
U"lK<a=e(8pI1N&7Cdb:tP=em_MKK,Pac+feCH$EesB9.hU:X>1;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"<?Tb-d6enaG*fWum/#>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/U<Y.d1A]
U"[/j1Ca=MVa>5IDE-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[^d<Yp7XbXPpi.Xtm'piNR,IsO&(*]D[D=YN06fk^TJT4%dQI/F[dkrC^X'vuU
U"MLgWLy';jY?'kV8q9f#VOeqh/p(3mUdV4D_PrB6o9K=&Lh:$gb&_76JMlu9dcLn
U"WX9c5ZM30Cj7]7bbC2OV\2_nIQM^zDhMl3KNMdxDL[lcxkxTwOQ^dsHYi3f9fVj
U"-C-NMByrd]lKRgrV#*.=TTXROMLl'O<ZLJqxjK,et:E_tJir3A.gLK-)yMxByDM
U"I-)pbxdvd4c_s7OrV_)MF_b%Y9cox\D$]bR3rVV;9lAnJzYD6ZM3Nk]-kx#3$xC
U"0(]xwx90m&$R4w.uT'i&J1<s)rh,T)p#9m2io3S.'d<IvoqH%dcpe9LMTfwdYXe
U"3$9e,[[gP&bmgo=,KtuqTfmsW1sBJcMWgdks0uY_*E?F/+,GMghMNP1SAd4[n+?
U"&ly4d%G4dV&L?(sny'KPQ1v3cOD0NA(/NX_B.93hZZKXC$obVtVv#txtgve1Hv-
U">uB0OA.Xu#2#]t9_OQ[HFv*^HobPC3XQ#b>H5gSefBKJK/b?$[oNeTK=xASn\js
U"lPYefO-#tF^GcDEBM3qE659flR8GYBr>8:D<HO==dDRt5.+nj8FK_Pi,NivA_dV
U"2js/F1F7ht;7;fuT%up()%9%%%d-%J4oEG]M=>D%-.%%3B%%%,%.%%'r#xSy'Oy
U".(<%x#^7cwgOx>PtMp3:1&>BP%nEE\k\4J28K:j1#_69UlRH'<QXHW(sZ45NvDp
U"*lq>#FU4^&Fmiqzunml-0MR4M+h7)-W1)A?Jth$Oq'Q7^i)a0+C-&QQ<jr_n]9(
U"]$$*_tYH(qG+\U0k_oFkdTQ2XU4niQa4]cZ#F*?0<KGXKQYe[6kUck>B7X^QqpC
U"6.:&#b%=,KqUh,Z<Jb(T,&R6oi2siugQlGlAmYd%yKb=aqjNu$elf8-Xx*5[+)W
U"5'$7g$%\4A<=xq$T)t#GWh*AGMeTT+<'A3C)bP]ov5<-Vz<-28\&s<>iMm7sA+J
U";i\.#Xp^K2$jkt^H4whNL_u&^Yi=%%q(inkNu$Hav,ggd8K3_ck(?c11(./10-s
U"<w?D8V'/i0MA2C+bn(p);]<Ei4?7%IUwa?BgSn\4^CJ&OSXART]3o9-%$rPq_/G
U"Wsk3&2oE4_Bz&4AKgK/pFURT)E4f;Gs]gcC?_DM/N3,X>>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,d<ZHt<ITL2^?=>O\%F2cgF4?+
U"QfMYokTBtfC(;[Muc;21cxxf#^4qD36avmdi:V5,EYae^HHH6rIq<Whk&)jZsT9
U"plmv-NlWG/mn)Zz6A$]Z=R'*$?sd7xg&[]z?_+=hbtrIRpg+1E5A&riO<#aH;.S
U"LMVX0^w#rqjTAFFWjvgT;f9dI38*a#/TLj?61/jdCre9^hcx_$cU/wK]wC['?0F
U"J/&P$)u-r_GYcV;%Da:o<CkJ_OB]Q_WXj9jjRR]m;iBts*%ilSY:)p]0:Bp]tmY
U"r,*;aQq:uKe]vH8tVP28'YM[74/:G<e+?KCEtYhSPfNGm/:RVXEqgaJe+2eHeYE
U"%MYtHV<V)q+Ojl;<(W4)CSVKSZL(,b?dB>1Z7>C%QZ6\X_<v.VEG1fl^jfwKjqN
U"Rdkz(2QeuHOLc:MD(_*iG)-Bw?HCO_+wVu[<SLwF2dNf'-YcJNOTLVk'])y4RHo
U"U_eKBcjs8'rssBYIYs;paB5\6$k9WZ4WBitgX+RuiLTr'm=Px86d8U9;t$,3Rw;
U")gz2F=&G[g5PD67.iVs%,+VCNWs&^NE0MwbRM=D9hQkmsHQTNA<+q/50=m/Y:,1
U"N\nAVbXA2^)$'MA\V:c\Df?$g(=*kH=p8ulBE-Wp8#O*U(#a<VWM=EY/$Hs^1Ri
U"T83Z1'>8ix?Z'RM[oUPvi1kcG_(5>1D(AWg:sBHRU$>4;=UZs[ay>'EmBMsFbUD
U"r5%]l<k8Q;;w;//3gI^mM_m4ZK3_9AA9bPTRi:nsK>3C%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</*
U"&.W=)Mg^KhD2itq^.ZsExvie2#)C25BFWU$8$YdFGnlr4)Ss)+rs.,N)eqL<591
U"#OJtCJ\bfwU>]R;9nA#3mz42&t4d6$[^v>vXX1&yD<Dr?pmdbMs//Fo\k2Jb.y=
U"V6FX6uD_*.G(B/>-bejGz8_,Y$gjUM;II(IWi_l[FLJ4yf^7pp>W30B1T1JBa)9
U"OctoUXxl5LI&Tk'(6j5;*TT3<Rgrd30B.PC/qAn<#)F+_[dmD)1,o6T8NCT4mgH
U"gOW*7LO#H_aAoJwc,eu9]U68ww3PF5UJ'1Z]#o8\$_Bl7Ll,Vg?KZjdAH,3u=be
U"_0cIro4]C\YY8#:S$7Y6_W*g<x?Zfay^O[MzktDY)#r*V%U<jZCR7ioyQJ;b-8-
U"k7,+L(rAfI2aj<JtzQ77<9]WIPjdKrkEL%Z90h?+N9^<&*4y4lW5IeEShz[HXj9
U"$2WXo[))*0f]g&o7]?j#/PqrHKdbf:zmTl\cvo-^o52q+0z3,#?3\EvRx$s9Wt-
U"+T_coka(,jXQ8(AXKwhW2*(QE#>wKfFpx.BXOaE++4Z59^_Fb-1v.VZfh'F:LTc
U">X<(a,G4e:\5V=,[3,RK_Gm.5Lkxj?09PDe7A-#J<aERUL/ci0AS9CI#Bnwa?R^
U"AqbMbLdR'BSQvVlnWJSu%-Z33chisa2J0ey0vq5kR2%N)'sC/(Oe5aUF_/85L>2
U"nZb8KZik))+9]P;sD&pS+hLbSQ=cx6r'Al,_/tg^r06H_3U7A3P;(DKuqj\#0.q
U"B).\rhbgANG$;H-6/0T%<H\22[t3R?DgRFyHE<TKoP&fRd]<p899B8VeMp#+r\d
U"TR[Hb:(,0)^5VZb=DuKpr4=b,jdlQkf2nDidz6v?]vBXP=+;KNpud(q>QF;KE7p
U"4O(e'KPl;NvO5:42&*cn+nbLRMOj<KSQL7_J_c%Kpmk<H$QWDDe;a?wB2a?-8GM
U"w<TPnPSNcGHP;'$Ra6?Q+Q_6lhy>p':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=Eb<E4''O,wHfbME6Gtm,JqG1qTJaQDQap$l7>d2\&0>cuF+-r4Agq
U"iS3)mC3ugl^izf)_3SFdh9BB*]bN2Gf<Nd2z5RXNnS>aF$ld<i;+E9T&u3ElHj^
U"x%&up(%)9%%%%-%Tc8EGq<*)K=[3%%2&N%%/#%%%'%rxfx%rSfxOrf,<,>T]7cw
U"E%rO4u?ZPE(=0)JRGLW<FA*D>RpiLE=#(aQkf/Kai*hiKXA[-e(d2.nncqso+&-
U"G%O'Y'M7^?ka<H_dFNAiup_'vH6:62S3[om$jTrhc$ob:FfatW[X4.<mxd=JX(:
U"0fRHa,8TuYuO#r<m:sy0v6][PcubAqvp6c:0<5m1cj$ZK72Lc4_LBiCSKtEt^eu
U"_lJ>+-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<r:+a7v94p]lr/6vpZc_M/u?jX>>[FeduuI;#*8L^PXt$KY2CWSFGlHQ$h
U"3N^?)FvFF*A#u<np&u?&?(,cVBpDBmTZouuB0v6GWE'S/kLm95MqpBac\lTqjbv
U"6,hxmamgVAsj<AiHo?I=w19^nHr;?]\&XDahibfK;//[66%C8qCX.VX2$UT5wmS
U"5>uAH]F'$U\Dt'LNH6FoWIMq1f?(e_nt?.sf_hG']wjd<Q$_\cmxLUp$tJQ/\SS
U"K*YR?p''WW9XP5XZ&9m\BDkhwr<LdB6Nb(rM2Qs>VejR5&;cH=(tg*Nm_3,Y>4U
U"JZ/YHRtJ.dnK=^8s1+sgyy*:i<mWt1,>q%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"ul<?UxmP5-j9a/-N)<S/\ulWS)U4s45:V$^6Xx^v%v$iYf=pFF2dgKGN^=RQaZ%
END SUB
SUB V2
U"qv)U+^=fkuV>Ns_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<xi<<bUC-QT$PY<f%D(A\ZV99[
U">?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?<k$5R5Q=qo7>>0E7L_hyGisQpmB(
U"X,l/\XIpDGl,J'99l3<MjQPQm*\]6B6KA3)'OuXTJMC-^d,Zs'Ww5m8uK/JU1Dc
U"I_A6&<Sq>oAR41f2'kWO)<QuqZC*P+1fP<D_fmtcm[ZgB=sb&i_Y7T6t,q0zPRS
U"SS7rDWs.$8X$M+5n#7TFhCz:[jd6rFjGqK1YlmT_3dR.Vcuc),FAfahMLl4U]bB
U"2HDM9?>7o>=gYL5VF75>bojG*<g3cq=d<fUG:5%F\3s+[P;gXM[DTqupZHw'DNV
U"w>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/]]<ghAi70/)d=H]TM:/m?fgd1sowcO4?pOPKkj]jP>['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'O<E(>M=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%0FDd<kB/-N.27+^#jqK3o+'8zF(FMn:^z)?UW\-CWPAn#SmPKEVC?9xGGS:W[
U"#YkoeN?3=4M<e8J[BG;&2W34GGB.2n>Z?K,aQkh*DcsO:N/_SNqFi&iVPnq<;e,
U"X7-DD5jL5/'OE-3<V8#wF'[I65BHS$O<PSmU4bM?-YgUDp&tPxF$?mli4<kAid=
U"2vRP,Vx?herRPxFkO#;=RuP')b=Cp]/$-Qp5,d=7h%'WaEs3159[P^N#=3Y)toy
U"DnV%Udm'vh9&[isXam-s9^E\hem.V)63c'Od;VQB-=gtVLJcO*=._[L2f.C?/e8
U"r_Q]u)\F;j8[ct%ZG^$9h<qUHP,'K-:wBp#GlrucA2\f#$M56\#DKm6E='fUJq:
U"h7qPZ?Y<ET*-X2[1/9k27;f&;CH;ZwKNHS<;/R(%rME%hYd,7U$91(A&9/Ri)V:
U"8*639\t^BIc6D.d+d_rTk[#4g0<ZRcjoI[uoZ#B*w?0[eR8&y&Y,%;,$Cc-\fT$
U"GRSS*>R?j#[VPuQjwd+YwvA%pnUS9_R-&+jZGR/O(XE3Qanap#[f+;Cm^#Q:1a*
U"Fp;T'a+wn;vM%2UcY'22,(^5edWTC0T$-;NSu%7bK4;,pv\RpN-U4g_Pb8+]PBc
U"ktiJ*b%$;Tz9vCM>vEX98Eme73]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=$'CPRB<Ap\8\BGaI\1*e'IT('GIB<O2_P2%l:D<S
U"7%NSPe34T4zIj\uOhkB'wo(4J*ss&uxmk^h2$lLjq(#=VVK3hnUW6hA7tco$B0a
U"b_5Dt]mrm)\^xRD)p<)pb2_Xw=q60RU4X#>Y[QVWqYn3\)T569l:I=1G>x<TpPM
U"E='Wmc/z/S#LWNWgAX)?Eug:m5/pbp'j'9-g&QOyO0LBNoPS6MjfvUPQb;&NbE%
U"njiMDT\TKo$rgpVr(4FtFsddd12X<]C4uIs=c]KEDzE15MT_iN1OkMv%qD.*>0/
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/<K:k/&=;flI<ld\W_NEQ*0fEEQ*50B&&QRb)
U"Z'^:kI6:QN1=\UQM[/V3n2Kb-R['^i#QwR2.4.G5D[Q[>B)<N15qXDK1J6:6/e/
U",2]Yk+(vqqR&WTSxr+$XPBX450=ac=h(q'W$rF+li01]ILB8RzaCtB;S'AlY,:b
U"o=btD#Vgah/v3mJgX[;#.kI).H'fU;)A0-/]rrGl.5f^47p4(3)5on*MjY2qTTa
U",#+'\haf#0i>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?>$<y:#iZ4Q1-GmgKu6Srpk&#'A?$R7rPN>
U"BHX0Ouo9iw]jBoi03bD:(O2qMR2&5xVLMhwIR)<Ncq\%;V=tZ&c00%uNs;^l7PT
U")xVuTPMrIhhh[qmc:b<,26/cli/%3bg>N?nEm'(1>7V4qB2^=Zy;:uY7IQBl4Hc
U"8fZ5e9,y^r/6eA^L0W7qS.'G=p,2>VNLsHRSYI3]AUf'RVcS#$Y^<jbN>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+I31<v]-bhIWCL6c
U"u[U&Ad:sL3ei,>RgCXZkQGaW: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"al5jQS<HsO2:/CpPLKcc:U*3oC#E_xzAYIGFYyLnY/HDH;Juk;q0Dg0hkD8:MVm
U"Qosc?RX[/H,545_eS%Z;#oS%%RE7-UeMjI]_ikQ=Rxjlhl6Kh>RAmr2UFSMkM:a
U"Ua'r59^T^?\44JkKA]$7^X)FZkHvA:<Xs3<is,9>,NKT<bowt$0bY7x%*<qPfS/
U"m:JWm9ZY[ek^[)p8'9oSHs1pZu:$lqgm&u0Rk&Y,(]CbF%m,2eg0nWDFkGa.e8X
U"A;\0dqJ5(k9t>6eD2^#;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
