'=========================================================================== ' 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-Tpm:BKMHFEFk5oK8h2y4_;0IPFy*R U"\WekMYhC\aQqm9(CO5,8A$JfSh/=tt&mJzRq8Y4vdrooFe]T.9SaY+U;<5tB]<_ U"vrO?I:UbW8hrl1V>^:08HpOhqz[;a&%][wCY87e89=G(K[R6PNUu00sVUi)EM<<='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")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$= 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"^M2ejBmc7bb+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^+y6AqpYN-Y]-)zPX30c0\dJ6s(A7%]ve84-d$)]+,om3+tuJLf.7uxl>Q> U";ffAF-m;UnI'VQ7P_I:fc0/<%:12)s/*JOm#-93Le>>wu09,\*&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^T)%i$RCTp8B*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"/wAWit8:&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+YpY];nM$g U"lo[Wu23#:JmIKXM,uLd;-;_Joa]ZdLK3f#5qXQ..X(xgq2>JHQksD)+]jHs^C$& U"tq.frhCmKT*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'S4bg&R;eiX*TtSn/ReIk'hGg&k0e,\*Fl;s\RoSR%Xti&6;WslR9s6OhFq%z U")wG//_Sonl,NFJ%dhf&C06t:/;;>.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;PWgst*Dz=xEQG$*ITTZU U"6/RA2Y%'90pa2D.,'2TJ5rJe$G;^c_h[5*g*-d$Tj>4<2Dz%s$t[6/UMJ%=nY3- U"QAn4O?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/Eq?m U"JsZ\fZO'bb4%P1lf<6-OU'aVdng7E;Nrfb^kJAn4lg/.16d4NeBRdnU_6SqIP\h U"U$#pDvVWOi&%F>+eA;&W[j2x;huf2\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/-cRLH^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,E%yXQLl-g=#) U"=w(5Z?RO+jLA.N:d]Tp>$A^_1^9vFV$S;5Qerl:i\DAK^s.r7'T]5c7Xew(mTj/&47 U"Q86MG4GZjaJ/Ze3vvQ[9j3+4j#9JmvEb=6b(.37No-qXN/\C18-kmQP&kfCr9SAW6k-4C49F?(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&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/?qB1k[w8$)sUKl3QC=-lkmuj*F^FN%LhFN=PV3JdXL++3Q U"mlVEP(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[=W2a5Y?/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 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.&PJSBW>' U"A3's&zXGd9L%TqiQ,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,>[]5DOnH3R7cs#R'\VzkjdEdK\EiG2BWv8ada U"LLc9%q[\H]/x(0/;,afXQq&bvAkR&I\?=J,9imvR;o9t\qYu5b7%lfmRV?>2Ie9l:$?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 U"^0rZI(\T1]wCRA6ktnM]=Va]Um%boC^Iy9+f^,,UjrM/a4t(/eo[ZwlmNUmj?'/&'OLL[pSG3MP U"*b=Pc.s;0^?N;alyYzo;=5&R:O>+Sp39iG8l2(Fj)W\MnM/z;KTqYExHGY;qQ^_X$84COKGrbY U";70nNX6EF3wkZH8(2ZMG58-pJW;Xb7%4_:h.mh$u,/#oyP\;B\TPLQ U"#/u1ppKe5*ejBdqp#OpdJr\J\+fj[>naPSaHqQ 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)U1m%Cel U"aWFhp7[+->\8W000Jq&bbU[maGm6(*LP_nkvTgzC.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%4lZvBr$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,QqsDPfMAW_- 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?9ZwB$hR7^K;:c6ADqLo>5ReDFU_omEEC-bq<4nmOjuWb5j U"xZz\3$.1-(*,F[m3hMUBqg4ikB_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;;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;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.oVH&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>7%[h05ZK%MFF+]q*St;/t#gxOSN U"b9^hz86M#%xmWPXJway(TdPsOw+cN'0#R&L7_WoGJU&W1Q:\6MYLm#:vC,wH1Nc U"%dXu)$?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[k6P&\P%'\P_y0&F,B U"J(/.M<\g*^$sBujaU.^ufo>El,PR(Q=:A\3U:H#2v)xMSkdb04Hju_< U"fxMPer6l,cgGM=bo<:n,4as9NAxcd)Z2;.+uM6.bzC\>j'xOcE2eIkq9DCY$,isfOL9.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;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,YlDdSc)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?5AbtkhBBEVjIgV-: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/UdSg(\'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