'===========================================================================
' Subject: PB XMS ROUTINES                    Date: 08-24-96 (12:03)       
'  Author: Erika Schulze                      Code: PB                     
'  Origin: 100775.2275@CompuServe.com       Packet: MEMORY.ABC
'===========================================================================
' Load/run 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&=11938:?STRING$(50,177);
U"%up()%9%%%R-%&Yd=Fmf3gFj'.%%f)%%%/%%%%wj%firj%SVxyIzx,>BSe5Ku0]
U"x)Rd%USVc_]x(57jz:'yLKZcTR-T<Zol\BDFb?(hU>pm:BKMHFEFk5oK8h2y4<u
U"m1C,G.D2dA)^Fd06nbYs^Hat/1_.RZ+lumoi1BfDs\:8jWC1N$v2q>_;0IPFy*R
U"\WekMYhC\aQqm9(CO5,8A$JfSh/=tt&mJzRq8Y4vdrooFe]T.9SaY+U;<5tB]<_
U"vrO?<tWik'D<Jf)Fz6sNJakp)+H7f7(Dj\jp,>I:UbW8hrl1V>^:08HpO<Uhr6b
U"1/wz8n9XtjaTCPb=3-(Hk57'&44&UUMsT;64i-sX)I:i#R13oRt5fo;0Y):hKoj
U"%+j6ftT^v3oO#.z.Re/J<Rs-R+*L\sCiboK-^1Ir%#Gq&<V'h&V_f9,Mf1?(QEZ
U"k+>hqz[;a&%][wCY87e89=G(K[R6PNUu00sVUi)EM<<=<BNCe#N5X]hQErTrAD7
U"GVRU/B9RfXfOT1:_XySJ-_jv=hKQY>'kJ%+G[<(O1#9EeQ.?%DBIKkIS#Cj&.kY
U"0WWfabjWHuvS?]d^o.Hf.Bv)U([r<5yYiA/\EIt'WFP=4QFjQoSN-M^rkDNw0Cs
U"4xtuFG*;:dfJy0rJ6<&fm6Ka$/fNXoGCiT;ZFi,f=+/opmjIUMkr6o_m#5$Qc00
U"1Cd)I8X:*uZG?o-0?8G.;sO8f\CIUuw71app7e*qSYSA<_1Cf?hVtdnP^rVde-r
U"9i2b0003PSme:>r0;\8[=\STY?d14.*;n6,w6.\a,?P]G*Jh$>Go#_0DUq2VZ9R
U")<IYS<[kc.CiDl>w;?iUS'l#_d^$jq?5RJ7WLsbtQ:LYVVVkTiv0)$7UUTkZg(K
U"N&u%p()9%%%%-4%&Y=jF)vn-()&%(%^*%%%,%%(%'rx%SnshK&y<>]SU5wm17xZ
U"+y&WmGrSDw8y'R;X:;=ZAoDBAp9^='fG3:oidJEQF)ejdPitC]XDXlkXD$=<PBJ
U"8Z3n3M8ILhGNNq9\9Hd-d[u\]ZC+pu[=5..)R8$P6,90hAzCoaO^m?j<jfvQQrA
U"A%PxbkKtVLC2N?2=0:-=Ie*_#,kiUeEw62&V4C<#v4i'\r2)ad&uo.9k.fJcHm>
U"nUp048_D_^=9BGs7NFIlENDZcHS=[K#gFxPNshCdvMHP0=FQs/-:N0xRS6K_OXl
U"?NC=[sqlF_slMPpHqzYJ]6aC>d3zq\H'9[_O\'mIafq'lW>S$[8'd3;5s3XmP%*
U"^M<Bd&es>2ejBmc7bb+J*=?Eh\VyMFkkw*au,9;MLcYMBQ:Nc5=WFVDIINhIk.v
U"*iPk8KN?\Dg\Z&&L5o$0rV?IVfLTh-XwinfwD[Gj',>T(jI>iUEDf$Z%b5Ovzat
U"0D-xfX/%vu=d9=r_Bg0GN8V>Qx<oAce1Xe&629FL,K#w4XE][Ml/$Wr2]sd;nt_
U"3&%[_-Lic[]GaX$z[?Dw(%up()%9%%%R-%&YR=F%R.Ld^,.%%y6%%%,%.%%'r%x
U"SugOq&f<.qy&?*#n$X+1(/>^+y6AqpYN-Y]-)zPX30c<ZtDUdQ1oJSy<_QU86g_
U"hJ6w%1FZ*rSoxD'W&=diumK3h<V=VY.FF<nVY80,4cgvrHv+[(-\3VNW?EL5To^
U"$htpp[via$Bxl$unXu2p2$9>0\dJ6s(A7%]ve84-d$)]+,om3+tuJLf.7uxl>Q>
U";ffAF-m;UnI'VQ7P_I:fc0/<%:12)s/*JOm#-93Le>>wu0<XVuSNRVA-53T*v,j
U"=41sn4EnYk6VFwP\1yFN5kuCo]gy+fno14dIjY<vO8SxSuPQrD,8X4>9,\*&jEL
U"r.dOZtmL,2S(RkFgNaf&\\dhkEqR&D>8dW:j?tWDtY9rnVv[Q+r&T'Iv23bvmbp
U"14S)(o[wHv2\azebIioL5i=PWYVNM0:ZFAL,nFy%1]Mg>HEvg5:b)rNTS0iDeuA
U"\N*2Y&q85oJ6\b[0im+2AF]W3%Hf-0)_es0>NEkT>k8V(D$]psJVnhqL[9Vrl:?
U"Qv1'259..^]i;,6.L*&9_%_J=]o>E4+_pM&*$x2cQftxqVk[mJO$**$3gQCh35y
U"6V?FvC=B9#%hDR>ke4cew<cTHBH9ZYUi$pSLDxYq542#>^T)%i$R<kK<#jHXT9b
U"[pc_O.aBN,j8FGtTO5?SVb[0HqJvTSZL-qQ'RApqJRVj_WD^E3=3fa-1q96dx,-
U"^lH;dh0?o'0iHKOOt5CzALGl^qLAsP+h)yB_ee[4XJ$K%l0])SYX6V=uB*]#7kD
U"Ohh=x/b:--wS%4mpO7_?OXoUbDVC>CTp8B*dh-%x0p#\pU?JBB-emb(KGDf#.aU
U"7;?6rw;6rsyepprrIopH(RXT>RwGUD>kAb\O^>w4Eh_A>14:4et,];&jS%.rq(\
U".g;9OpdJ6n;bI&=Y>L%_WbUn^$nLtwXZjC\dM%1)c&Ur&r:p7n1(x4HNSD]B^EH
U"WA\1N$I?6K)pLtuA3;79Z;KI7N\\)8Xvr,]PtwMK2*M_kim+D7KQuB=:Zx1iK&-
U"/wAWi<nbej)(66Jnx1lI[2/zrjz_N'&$Na0&e=CsS8=ucnQtqRDwqOi(A26RC_]
U",+5/7*9ZWM(9EC?'L7>t8:&Hmmx=lIHGI.j&n7oW^y#ytWKdqyC\0+O^O%6[YFJ
U"-C.9%a?vYGnPPU5%lpv,lBVr&$H8Qky+c']q_N3-&nE4K?9,6TB8+Yp<Tf=pFGi
U"R[c[K\QuYz9Uchqy?UVq1QB*'1P'_b_?o_W8&6E;zC:uLr'*=sYMNpW>Y];nM$g
U"lo[Wu23#:JmIKXM,uLd;-;_Joa]ZdLK3f#5qXQ..X(xgq2>JHQksD)+]jHs^C$&
U"tq.f<I*D%ALSN9c1].R:gm[[aaoK1-R5uPyiY*x+fQE^Wc_)2n-a6s8c^bwMHJ]
U".BB]Oj9bQ14iQoqE9sc?qOkWB27ipWxcP$.7AP1F-*Vu/^Mhk_b26&:j=K3rpYS
U"KMhN_jJKr0[Wkmnxnj9;$'[j/3oz*XxO>rhCmKT*B2FZO[:3uE##:?c#o,p>Z^E
U"TDk><#CtCLGWexUY*&U4vi1]^LedvMO2giY4LNiH1.Yf<+iPL^nrYr.[uBxX*_9
U"LH%:X5d$Y0vK;eP]%(eiRf)P5F%$K)W5z^q'<EV%T)-LX*-0/,Y*#VSDB;9N-dR
U"Q,>S4bg&R;eiX*TtSn/ReIk'hGg&k0e,\*Fl;s\RoSR%Xti&6;WslR9s6OhFq%z
U")wG//_Sonl,NFJ%dhf&C06t:/;;<sZR_sM%pFfO60VP'.i/BCwS5ZGGGmW&k3+u
U"wK\u)hl_\_DE/erCEd$(uQXBQRNoSQTe#d7:x4=EGZ#>>.vqgSZdt'sC,/Ut.L$
U"XTcD^Na#9/F9[(wxcu5piM2O\ThkIi8Kq[a,dIT_aaI$m'ba5pk+.Bdm3gaKt#w
U"N.8+ERh7%I>Kn_$sn'k$ud]+KBdn*g$]BCgymmaKRlKLlq_k[K^tk+[B,I2._Kn
U"BkZnPFxAKa%BI,mBsnsa1qa+I92s+e9+qkTAa,It7SF.I#rI&aK<I#a/fu?zM-B
U"4040q/4'u)9mr;nj0TC:A5$h+f_Z8R*p9HoicJZb'm_,+_cQWsAHH\6bnVdnN,c
U"R3xGkT\dR03U>;PWgst*Dz=xEQG$*I<P-?4f/=hYX*[(Hf&92W,sukR,;''l?W(
U"$sW7*^q='2(kk?F/iUv%gChv&d,EURPZp3L?$RA4&5+U89iRA-(AT0]\pW*'LHC
U"N_\^/*s/AA4AUEPep*i24V*i:ej,,APBkS\R0/'^KB+*,ndPcPhU/HQHpd>TTZU
U"6/RA2Y%'90pa2D.,'2TJ5rJe$G;^c_h[5*g*-d$Tj>4<2Dz%s$t[6/UMJ%=nY3-
U"QA<D%'ogW)<2<T%gCm=B/U<0%gKU=,/+k8.T4.+k^RZ0VCtT9-TA64%+5q[R/U7
U"FPP%$?$l2;A'IQbkq$pV>n4O?w-sd%up()%9%%%R-%&Y.=Fnp>g(\'7%%<,%%%,
U"%.%%'r#xSy'Cytz*+tTU95M(cdr)vl/IGfcAO#d%sYe+.QAOk[\:buG.MGsEEre
U"C9(rX#KI#5=yjq.yQ$rk,eL%6nq&I7YQ3M=t%o=x)P-#^nJ3LC6?KA:vJg1eWBr
U"8F5^M\3Ojec;6sp(W[[EgRc?XkuhD5OsHVxmW[G+dW-]'svUiBZO,D4eKX7s#%U
U"c^;/Io:]/dr5m3QPim7+)4%8)8<;IP/E<NVZN-h;fUPP:/?%-1(7Aa0I_(z>q?m
U"JsZ\fZO'bb4%P1lf<6-OU'aVdng7E;Nrfb^kJAn4lg/.16d4NeBRdnU_6SqIP\h
U"U$#pDvVWOi&%F>+eA;&W[j2x;huf<eGEk=oW99A>2\ga;1>9wt?%:-KToNzb\WL
U"M7RK.x#EYqj*#1Kx1cahsPha[p,)=2_%SN-,As;j<3wl:a7uhpYm#IdZ<%k-GtK
U"H-*O&Qc>O$:yk*IX0R9($PPyL#/pHJQe+Jd3Vb?-/GP\ZQ&l/D_m7Yc?&&[A_R,
U"D7#9mQ*mN\OHD/-cRL<D).N%Rv1g>H^gC:5V,tp*f?aUDYt-GetkIR[%*p;9&qe
U"$8kB**GgLoaeer+UE][T/tA%gZ-v5XSdp\'$wGdU>dp)mFKgNo/:**IR1CRsEa2
U"H#g-YulfnD%na1DtTIifyuftibR>4PsK.;t0bjK7G2Ak%KV',WtKn.IlJFcSIuj
U"(Itr(2$>]ilrqdvdikA5^R_=Ac\U)3_y-g+\^9bfbTYG^cQU%7)8=8Nd8=W<%vY
U"M(m9sq#b2\$Rl<?*;[.TLu#T//F'4/K$=,_W9t+KH-8OvQLMoDTLgP0XppRh&V'
U".?RPznnomu^aorOFQ)VZYr7&Jtnu.6K9:baWQ.r;i-ar'z[hu>,E%yXQLl-g=#)
U"=w(5Z?RO+jLA.N:d]Tp>$A^_1^9vFV$S;5Qerl:i\DAK^s.r7<PHl,%up()%9%%
U"%R-%&Y7=F#u5[Gf,.%%?Q%%%/%.%%'r%xfxr%SfxrEN)p>'T]5c7Xew(mTj/&47
U"Q86MG4GZjaJ/Ze3vvQ[9j3+4j#9JmvEb=6b(.37No-qXN/\C18-kmQ<Z?5lqFR;
U"Yd*ppDBOBrWT8:j4M^Qr.lGqNuXWSW:gWE)FpJN2/crQYq[rmO7d$u'^Tza+0bU
U"]k(=.LaG3JB0J\I6[h_IQDM[sawGmY]uAkYuo+c6HEu^BZNPpvib3TSs']Xx;[7
U"NLf(*<B,m5Fe<0pOQQxupkDB0[WYgHwG7m[)dMlZjJ0z<L53M)LS36l?K8[q:af
U"&Ci=g(p)Tpad8g,rAAm=u/2aK5_S2fj)W54E/As$qH29hQ]BBn&$#ksR2W/4he1
U"bv\%VLg?V-AC8\UVBv#YI;8dMjXKL%krhJ^r'0H/6:SdFHkDU,p_yS+*$^c00Y$
U"PQhDNRuQ/7gqaUC(t^Tt(sfYWG_gQyOdYKi^5[lU[,/T][cQ+E?46F2]Br0;$jg
U"Wua46LeNa??Mb[P=6arDKrZ6TU_ZUG7-LA.l.5-9PdNJU-BO%0zO?xmDl]#8Ws6
U"B*g5)T*fAM:fr2Zur5NHSX#K+#YE2A#m)0(nc7r2kBzQ4UhVCkex?Y_en]YQ<A,
U"3XbT,4R$t,xUMT4oe17t0PGFl-:sTFSGgZC=h08r8-%&jafV65djIUz^h%DDYWO
U"-]%i+9cf7PLUlQa]AOoHT'ilwR65W[G08LdzI&H?a-M*#PX+EjXWGH-qSpkF2Y5
U"e^D)&;XHWB%tx::\La'(;jB1j[[vOM6hwGWHp5P'Y_k*c%xuQ:K1]Bch3)OQud-
U"%B%+K08hL)ktkRa.&hYB-E_L_+<^dun/C]6kh$R?U,IJ25MH(NXzNGJi23b+;cJ
U"pqcVfvYd-RkAXtc\/x#W>P&kfCr9SAW6k-4C49<CVsOiV3QZ_utX<aT?#GeUKM8
U"N]\6,hZ3J66\$E/(SsuL'<%/4+jj_w_J?a8(;t]cKe&5(j.M5tfH^U\(&b<qCqt
U"R%Ba0[La6':uwtHf22ZYqf-6n1(=hBiUYTC>F?(B[UGI;fXst0/6NZVVUG*_O2>
U"1_-J]X'oBK[AC(xldw/07t7CCts+jXml4;2c_h.*gsXe[8e,>WGk'amRHMG(HiB
U"f#:.s%bS$FpHVSF&Sbrjm/X_gY**[hWz>qEmI1UbZGBrwzI\-]hVt?_pMJNu$$d
U"YI075[kU,KZM):eF2';)r.)wfK]/0hSZQdp/;kn#zNzkC7V2fCes^^/G:WYiqI3
U"3O&q8r.eIS3;2xD%a/a%GYJ'Stf2y_aKtUJN2?RJ=k;vu)U]/U2&[RIg^lY[A[j
U"0zB>p$d'-qnf5iQ<5R&<N-?+_Ky(s2<E\,]PT2Q6wCr8fV&:S1?]l5H2.>CFAUH
U"HlxI>JcFd7aGMJI(2C:EK8u=#gnPiCg36a%?6u?0gB(D&TQNn#5hghs)$rcf'3[
U"V'(g4w/]dHP$BMb]>#=HP$:yJG0*xiMw1]g5%.rT?q[)ROlJ6)NQPy$*yKiy]=3
U"?ooN]Pp-$':RNj6N26XrOj&i3EBlJXXNn]P$5k)=a4(Kq'wG)FRrxR9><+#]%>T
U"CV/PI5'kzyS(d-Zd_Npv;6-k.o&q?S0cnZ1SN=4?%^5<\%)j1iu,fZ;vn1(Rfi,
U"qLs:0h,k'K5NMNO?^-L_k)AftptG.zDLZS7-P/?qB<g]<&63bK80[gNPu*Ks4=p
U"H)7akRWwXZL[77A2jmm>1k[w8$)sUKl3QC=-lkmuj*F^FN%LhFN=PV3JdXL++3Q
U"mlV<s_=O3x0.6B6<;s,1.pVpeA78c/BSArawY0B:,#eMo#SAy=N=r]A^?#4+3R&
U"0qA#0-=CyLZb.q=RF:3=xlWvI]+-1;'0c=um0WQMGgQb&S5)LAsGx]7fZ^/&9Mz
U"5&F,TY8k>EP(SM<.a&QggC465t4?aOF#TeyVPs+a8.-vW)u3oaU/oSPCskf&,s8
U"1$;iK?E\dnC=K-9M]m'.o/55?WZ%nDpg6ptavdHw9:$t=N&xW7s)rM$r>-d)\DF
U"oZ;'+G\pD>+aPcurnA6PN;Nk+F3W[=W2<o+8mw1u8z0rSnH3UkiQZCkjj%b5fcO
U"ls&,$cBDO\#[_w&%)]_vSTXHrKQjef%6+i'T9niA56S>a5Y?/D2[LU?JFIzde3a
U"rNN1oh*6Pe/(MeCTx^dt#&f+QH%tRLJds4QSQP,fFxMPf**frX2$/l9TcpM;.6B
U"5Xt^gD0C:WedjViN:+ss;8QXgVRGutrU.dHcUH>mZkf'Aa^YWzN+n;NHBd[3-Hw
U"P]y4$+Mk-^',IT<mc;3E7QNQD,?F-wXy4Vsjb]Ak)GOfUI9qPW^dD4lM$z_86o%
U"o5xP7#j_^.+AL16c'kiUi<SjqLuuR%$Wwp^.GVkT-]Eql7pjHHM]MXms'bS)ENi
U"Ez94&DSEUz:n.-OWOAr,V,X26KuJ);ANQI'G,]v/R-q.O./6*_v#F9CrmL,Az.>
U"&c(S&zouR-nx%u%p()9%%%%-4%&Y=+FimJ'%7'%(%s'%%%/%%(%'rx%fxrS#tgo
U"<5$::8n,9>H\jqLLCI\FSDO7g9/p$*I^S+yaJ_qu$dIHbbXiZ,pJP+Tu&TI*fB=
U"/S5)kQxM$NY0f\.65TkOL\S[dhu[7g5reh_G.[sg=>2uUt4$i6FURe]EC0rN(f-
U"'_m2$s(Y52NN=;5ecs6&NN'.:S6WO)N4B6BgHBHg$KPB#Z[$(>O7LNkFPS&Q_tL
U"&1QFT&JNt0WHB>yk4*_(5p[n-&oPblkmJ&l4iHl,qkk/XF+&gw2h1\ecoT7y%7/
U"gUDx7Nf7vN'ed:T3VgYF:cIA;%eD=AIVegCIm\Y_e9uo&,ToM2w.&PJS<O>BW>'
U"A3's&zXGd9L%TqiQ<des)#]=Doaz:uN8ZeU;W*GAED.u=Ljs&VUZbu;EY&k5;;N
U"?'<,rj]+4L.r/HRwU40H'Veq^pw7^kZC]G0CnQr?4pDSgq3edYqTtY,RlkJ3'Rw
U"Jl+]PGCf^4XkVvGEdl%=;E8VhYW401Pmpf^;.86+e]773=*2b)3VQC:MG?Pv8BY
U"JRB=ArAC0#lb>,JJg)3ZYB[RWml+vuboBUA?hdHHBm%x5Pa%j9ZPIBaq&tHiier
U"8R%MlXWJJDOnYhRdH*O[dPVJVnvbYK=).p8uo3N9*.xd.OD%RE_>58ebCAseWxV
U"aLC$vs'xndqeE7q>fB9dL?1>_DoLTaw%'up(%)9%%[%-%&AY=FIr7_ck%'%%y%/
U"%%/#%%%'%rxgf%xSgf4x&ev,>[]5DOn<XTxU&%pp*bgrQE0P2m=F:.g5$'Riegy
U"MJBbPM)D;3s$-utf.hw/'$)uzddE2uSL>H3R7cs#R'\VzkjdEdK\EiG2BWv8ada
U"LLc9%q[\H]/x(0/;,afXQq&bvAkR&I\?<W=n(jdku_$Ps,xC7yN.Vml0*rf%$[W
U"vU*(JNEt_g4S6E8+*W_$%<sM*\.Dc+1&0:]a,)-,AAvN]+Yp#8'g7OZ-J%Mo9\D
U"l%G\XX<7&/*mH,[-/inppEHz-OjS9Gx0w3,]0gqXgM4QxY(%>=<Eh,Zv276zD]$
U"5L6=MmTRVO?iA-?rU=]TJX[e8]mx%_dRBCL?\iW:qYxVuQ<QpuURB3bz\V(hqqR
U"&H+#v^m'n*ecIN6VziHQsMi$Y>J,9imvR;o9t\qYu5b7%lfmRV?>2Ie9l:<Au2?
U"epoL?u,5Rxbv'n-ti^fU?L=KiK&Rb3W4603xi8i;+&C2+9e'Av7+Mhs:c&*nRa5
U"?YSpgqTpAOb<RQe*\0</$,he]>$?i\hO2_X%-uiI8segl:vu%VzxMiD5'TE:x8>
U"y(&07nT/&Cppu'D3ZReX(Vcp+\ptGRv8N=ZM.A#3jFIBrHTcH29>Y=W6JSV$aYU
U"+WMM#:29'CMlu\iW+AM<i:0THr&62X6\a7XnEVp<A,F*Am=a1\$%hrOS++-=x<c
U"%y4mG<jORrYBAPSlJ%AMCg=[6Dq_N%\[b4V2)9#\&r:S;:0Ts5?wN6XKIyQb6+>
U"^0rZI(\T1]wCRA6ktnM]=Va]Um%b<gq6$q])TW7[%9420]FpKacFfZL\$L^7^XQ
U"m*9=C$<%Jb\YcCV>oC^Iy9+f^,,UjrM/a4t(/eo[ZwlmNUmj?'/&'OLL[pSG3MP
U"*b=Pc.s;0^?N;alyYzo;=5&R:O>+Sp39iG8l2(Fj)W\MnM/z;KTqYExH<eaV5X3
U"S&Ah219K?rfvk-4n8u%p()9%%%%-4%&Y=aFQYx)s(*%%%v3%%%/%%(%'rx%gfxS
U"[ugz&2f.79RlA#6QhG9qX7BV8'==KY8x.c[HN-/9<B8KK:YX:IA<iP=e=L#BuWg
U"*4#<27WdZgxQ6QS%uqS]Ow30%ZtUlxIYK/J^LaOswt+E>GY;qQ^_X$84COKGrbY
U";70nNX6EF3wkZH8(2ZMG58-pJW;X<ZTWSUEw>b7%4_:h.mh$u,/#oyP\;B\TPLQ
U"#/u1ppKe5*ejBdqp#OpdJr\J\+fj[>naPSaH<n9je\&TCCX^b9AIBa3'I[V:pCp
U"Lz^Ir1n/i[gGE$FH]dQ2<m$exBVs$k&ovRA\9%1K:b1e#'1cdLfW8;=)w-rW>qQ
U"#I&nV,tDuoJuAk)$PSnqF9QrvABCP->V[+9[CK3jI1#jm[ZoaIEm*u-6JhGI0fW
U"=10Si%CtO+76CPTrf6qGy%/b(eDD/E#Z_n51#%=KKCOA\R68R?.q6[bX)ch3Yet
U"9rQ)Lb1g2iQA?G(LI,y^#),;/qrKDF,t1VTvFqHNOtzrU#>:(,RF4#_yv#Y1LZ&
U"0Y6A)<L\<Sb&?YvA^Lj&T8A-o(?D/Ri\V(Wn9,u'rbTee9E_nb=MU3+>U1m%Cel
U"aWFhp7[+->\8W000Jq&bbU[maGm6(*LP_nkv</3EqtLta)/6Y;:LsXm<4)uYbn+
U"]Y32r.I5T;159).g#d2iX2k]48EN%L$(D5%9Cs[1s,t=CD8wyF<*L9STHk$c89]
U"U?</$NT;QbeV#aP=jQ,Pup==XCK;3s1ZW;^%C%#opo/t7Nyf5L?wXLf_kkOX?AG
U"EpX69ZwgQfc1ziGLK#P6Zf]bSU2e69QO)BZTX.dgT68Z9m2YRrdE<Sky[YF_eFg
U"2XKe$bZZi4UMl+5_YG[=G$UI;>TgzC.2KU5OjpxEE)qVABO7J2]]W76[2.zFj49
U"\7o%i0]_(SqjA06LqJFA6Tq%)lLi=y>J,pGy_aJ260];wWc]._Pq+P]GX7I2lnW
U"hwXrlpG9_adx6<]BaX6<6_aB6W.?mT_W)^s7wifA/LJqs,]7;v%4l<iuM#J0mG?
U"YaMaWEB_CH;&%l8w$M#KA9\9WcjXv>ZvBr$Z#231A'qx)\[]/B$/Eh7tDN0EEC3
U"8yphWfTRqu?/RLn9X;$LWC[.<1#w#Dx]cE2*S)wMTvAjZ2fWklli,ve1^JDn;rn
U"coeeFuF*w?J<6:aJ;SeH4u&NZ9%#E[e95.Zh(AP]28#&[lbWXEw,Qq<GQ'jwV9Q
U")J*;$UAf(AT](9jB=ZbWXFg%giHa/a5zF9/emg15WR59#EGf;+Pq:9[K=d45lqa
U"S%e%T9Q+J4%V'V38#'[a.iC1?f[4Wt.502aS%g%V;7RQ*_$P]EtQ&Ct0*'yhO_S
U"S-[k)*aa#m(TUrT;ltbEr48_B5vlG'B.bV.<'Zw-$hQ$Wx7?34bk*>sDPfMAW_-
U"p?0ZYLZ#H3uC+_R24W6>MLfgM\,e^&pgrzL^lxkCbjN2FDDP]:yqunkxhl>aVsu
U"b;,e6dtrm*Kf4SJXIlNYzr5*+pV0c?coW(RDFib'tAfmm-)*cSwnIB+0.WofMmb
U"hog^l7gbpBd6bF-&wIV64hK_S%P665e\lUM%HnHenl7MlI-a,a0[gg#c-6leFZI
U"7Zo(jio=9-XnbfaB6P?<D%I,4*hgk\sO6L+RlY3(ib,c6.R?<vYIL+fiM7zKK4R
U"JFL6<&I;^3h?Dqlo>9ZwB$hR7^K;:c6ADqLo>5ReDFU_omEEC-bq<4nmOjuWb5j
U"xZz\3$.1-<w:nD%up()%9%%%R-%&Y[=Fv?5eCZ/7%%$F%%%0%.%%'r%xijr%tSg
U"fOx>(*,F[m3hMUBqg4ikB_<iU?dK\5RA-SsV)<=,mt.o&)X0i?E;#ye5Q_P>x,K
U":sEklEsH0s*2n/nyaosJR#8-6XzOCC^]*>?[N0QXsb]KRD%)oF.5j1gk5=7Q>(<
U"=qgU8qg'DI$vbg4($xhz]LSTHQD3MH0whggsFx%d:,ctY#muOWKkTZH\zuuw7eP
U"k[4,IeIW#tKa(6*xSP&L<R=vJZipQ(aS<)5uCTOs)S%vp7Y+E72X#?mbv'2*.fE
U"6hgiI[LLw4nObcWWHEu8vT'Ir8u(Uk$aM6BI1<pa-]oCsu677JO\+W]LHw1T6Iw
U"Q6O^r=OrxZ7RtCV[Orl:B>;;TTUiJPshcG\pf4Ii\MZOV%fYU.9Dk#-e+9%]xuW
U"-O?5JT%OcwSCVN:d5+A,9/TH\QO4)tIM>q=I<_R9k\0ZTeU\arBZ#7yEU.&eC2A
U"+pk1lrL=8t%D8KHHLeEa+lgN5au%;,^N9?o4lVm.f_\BDuZ\X,C#xyAtCEOV+La
U"\l=U52fpCnZ8UaHMYAM:0AUEKc&tjG;>qQABWcd/ecjq);_[D,E;<NYj%m.GZrZ
U"MEabZx[$56g2hc<xQH,cqqpsceOA0XXE0c)*pp8X26JCf0:7jJY$'5Y1Og7'UBq
U"XpuY1[gYoE=mO>FjeG]UOWi=IhN=MW?o&J.gR:OZkV;/?K,jirOXW1dji\=Jd7$
U"dmM,F%mU/4#MVT#We.W0KePuk2DO[t=LL>5tlC%0ie9(LUePZ=R^T$726U[/U0$
U"5BCp&hi3iYM)oY+T;H'C&,%PK/SXBJ770*oUOM]l.o<L'.hl=h>VH&rPOcsBF;Y
U"v^ex*F7U4iv=k*rK\%8tSwori=b#_AeJsUf.?55lBKSf'gM_g#og\NgF),x^7s;
U"dFg_EL2v]drwv9F(Z3$TD:xnsgIbo1F_=ddaV9Pbva[E35T[uAco&=<-dmQmW.3
U"qZq*jtL^mgn[sGNffmYq*Kraq\,u\R2UHDOAm'E/Fnx59_&_5pjOdm5cMNcAfDi
U"u7..beu]h$4W>$OUwJ?jA\vZ<IiYkyBr\2Tmy(mse2CT*wJT[+=vo#b5\sRv&/W
U"V:T'3Bj<=[^w#RR;9)=L.QsxTC:lV=[$cf>>7%[h05ZK%MFF+]q*St;/t#gxOSN
U"b9^hz86M#%xmWPXJway(TdPsOw+cN'0#R&L7_WoGJU&W1Q:\6MYLm#:vC,wH1Nc
U"%d<nVhcK[9DwJgW+T]ZB3JF$G7NIfGqSzxi]q=dREN?4iV]dSG$Kw$S%#3urNxW
U"I42r2YSy<kv1K,(O0G6ISfFZ[CCjLS8QPq*:&+?:B06cb;<'g\,m=O^p[:8s-Al
U"J.5Os)AX7Tb.eULu%(T24?dMCDx'$AXPwJ[avEpOl<S7RSRXi;tq]+r>Xu)$?k3
U"kBUfpqj[-CIZ9[g_tiMtV%c$Ci5BDaF\4(Gkfd6-a.Vf4,FPV4-7nL:_HNE60[_
U"MyQb^Ng8zH3y,;pKvE&FNX4s]7d_dY\<.V]V2(2uhUP9P9zHJa-[W0u\>,^'w6?
U"[sYAem[k<Lw#/MSj'WcbYV#q0_.j$^4cD;-mOAmjU]%k$Q>6P&\P%'\P_y0&F,B
U"J(/.M<\g*^$sBujaU.^uf<j^HJsKZee\xyQZ3qHXCBZ0Y8^Sf4KJ<UBh)Dnmmit
U"$?q$#P_7.3WQx4KF&7$J0+]&P]SC%2M=E.ZH%Oki6X2_6lHG;sgp0/UPA<d]'^b
END SUB
SUB V2
U"oQlMGjUXEtb58Wr:cHCxMP$[u%mb0NY6OeV0QRIjX(?\pLkl;kBG=0/B<g317H'
U"czdGfBI+vBgJIxy10I:rS9D,R3CS>o>El,PR(Q=:A\3U:H#2v)xMSkdb04Hju_<
U"fxMPer6l,cgGM=bo<:n,4as9NAxcd)Z2;.+uM6.bzC\>j'xOcE2eIkq9DCY<EPs
U"Q8+Q,FkbK8Mlo=5;=]Xu'j(bh$ikx?e8xgM2Gu%njEl9Le2Y$%=qA6Zq$=\4Og^
U"6-MI]$k),P4n3M7d>$,isfO<v&cl#GBz;2;0dgSeX](>L9.j36?)+-wA:&F::cJ
U"/oL8lRwst^E+%sJ/YWE=n#(3SLe6gI8(?ptom_;fdNtgg2$vwp+bc,Grc',NsnD
U"Qn>1+?sBemM;E$.DPlCXY9Sm%Q(sXWcxQ6dKDUyy2wP/gz?t;<lMh<2SZ6HvUlu
U"Kdu,'#6a,3u=mm.rt;#T)Z%8iSLybF\cztWgHazJ&)#TqSbgFK]Y,e)I4ieX]WC
U"dR+8XeMZ^j30[Sg?B?PU,d7QD=g/WjC/1RA*hRJn&ALE'aOKn'w+[.'\;[Rm]&u
U"ieAM&sqySmMr'[*-?FQSm$oXNTK_>OOZKTKT9KVoK,-[wsPIE-Wr#I-#09Jf8xX
U"SCf#pm0+Nd_zzW%gO?,VCkBiln/fvX'xBwS>N>h847'7kajs_>dJg??059Hi8G%
U"V/RqUGZla)FB.'+C2HXjR+6ns)T,R.IP[>'&$rcw3Qrc=GjBuw2T%l;9pW3Ilv3
U"/[3:XpbGAku>P.H\3Ur(NQE4Sa\g9-/>bzD$i?l''PZ<^6N(p/C(d/ckfp'LnJ;
U"ip(wcbq:Wo).\ARvl'gHF/h[*;;B(Ajhkot[IHYO%,rJLe)v4+J?.sfYN.X9n]S
U"Dlk*7Y$i(r1]S:KKYW]/wlLhna6%;]v\q]K(L,Y<s?vG2pkATxh;&#YH^/1*Dx:
U"C>lDdSc)9r+Tjn:_MRlqm%X5RKA#)\Kb#s*a.VsaNlW]<:xq.w0&Nt^\/b&O(8/
U"b,YkIfS4cPn(WdfHP8\)QmDO\A?ag08sKUmPBFe.)wSe%NA7e.Vslal)K1Wwu%2
U"J$X^\T8.pa&UW%e,]b+GvQRa,DMp]b^Mz%egM^7&9ZCR]nG]L]5P3Eh^\nM$?rw
U"*)4iH16ii=/4l0UjlD.;X;^>KQT;zXagq%o:L.]ZvM*xH('DCQlo0iL-<+%GsPd
U"^39rTmo13vciLGrbXBn?xf0Av/L9+%F>yEV8u=UuLBqtvLgT:as<.;vEGCDLvbh
U"fB\>FHTm>?>aGB^c&?s&>hRt,n)^FbV4M9h*d1rm==HDlW0)S&*=TUbM,ri&Xb#
U"uWgPqe'\Uc+cP2Bb1F$F;C5n&NsqL%_6:ys,sRtPkEZV.+mP?5AbtkhBBEVjI<u
U"7[W$<^LkHM:E;$]lbN2q6Ze-b6xSrS$fHErAH2oosB+LMgv>gV-:CmiFB-7tIv_
U"RY8I'&t&HEsKj3jf;^=$djm],tdQ;84+qIlt=iCGWg(C=US]+Jfo'bld4$83h=P
U"W$jfTtGBcoGDP:LF&IhqNB&\W[J[*7-ME;oOI41A&T/UdS<aDWw_yrO'N#iC=c'
U"'8/(.pX/:k4TSTU'<Uu]2N2H-/BLwuE?O-6_kT7dLzn.MZ[P$;fIkF&P-0\llNP
U"*uG?SBKs[8xSR]u(S37iRsN-zsWu-[evT'wjN%up&'%9%9%%%%-%*&Y=FYmfgF&
U"j'%%&f)%%%/%%%%%%%%%&%E%%%%%%%%%wj%firj%SVxy%up&'%9%9%%%%-%*&Y=
U"Fr)vn(')&%%&^*%%%,%%%%%%%%%&%E%7%%<'.%%'r%xSns%hup&%'9%9%%%%-4%
U"&Y=4F%RL(d^,%(%y6%%%,%%%%%%%%%%%E#%%%g#)%%'%rxSu%gqup%&'9%%9%%%
U"R-%&Y.=Fnp>g(\'7%%<,%%%,%%%%%%%%%&%%E%%%%q1%%&'rxS(y'yu%p&'9%%9
U"%%[%-%&\Y=F#Uu[Gf#,%%?%Q%%/%%%%%%%%%&%%E%%%%y4%(%'rx%fxrS%fxru%
U"p&'9%%9%%[%-%&\Y=Fi7mJ%7#'%%s%'%%/%%%%%%%%%%%%E%%%%8<%(%'rx%fxr
U"S%tgou%p&'9%%9%%[%-%&AY=FIr7_ck%'%%y%/%%/%%%%%%%%%&%%E%%%%r>%(%
U"'rx%gfxS%gfxu%p&'9%%9%%[%-%&\Y=FQOYxs(%*%%v%3%%/%%%%%%%%%%%%E%%
U"(%6A%(%'rx%gfxS%ugzu%p&'9%%9%%[%-%&&Y=FvW?eCZ[/%%$%F%%0%%%%%%%%
U"%&%%E%%+%aF%(%'rx%ijrt%Sgfx%up*+%%%%%%.%.%'i&%%&kQ%%%%%
END SUB
V2
CLOSE:IF S=238AND 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
