'=========================================================================== ' Subject: USING XMS MEMORY Date: Unkown Date (00:00) ' Author: Sequential Software Inc. Code: QB, PDS ' Keys: XMS,MEMORY Packet: MEMORY.ABC '=========================================================================== DECLARE SUB V1 () DECLARE SUB U (A$) DEFINT A-Z: DIM SHARED K, S, B&, Z&: V1'Created by PostIt! 7.1 CLOSE : IF S = 168 AND B& = Z& THEN PRINT " :) Ok!" ELSE PRINT " :( Bad!" SUB U (A$) : FOR A = 1 TO LEN(A$): C = ASC(MID$(A$, A)) - 37: IF C < 0 THEN C = 91 + C * 32 IF K < 4 THEN K = C + 243 ELSE PRINT #1, CHR$(C + (K MOD 3) * 86); : K = K \ 3: B& = B& + 1 S = (S + C) AND 255: NEXT: LOCATE , 1: PRINT STRING$(B& * 50 \ Z&, 219); : END SUB SUB V1 : OPEN "O", 1, "XMS.ZIP", 4 ^ 6: Z& = 7405: PRINT STRING$(50, 177); U "%up()#9%'O%-%%%If=QJ9*;P'7%%;)%%%,%.%%'r%xStgLolc..m9<9??Ht_?GE" U "Gs*4qkiheF,qbP:7MbTCSGl-4s'P\\vu*'oufn3f4KgDQT3*Q#Q[&wzOmup;cC_" U "z/FqZqiXa*K\66'KjIF*Q,tjlpcJW$&H^$qT?,Kd:0fdH=B&7" U "a.,]fRtRiM6nK5]g*O]&xfh[T_)Sutqdm5jZ$5[2_[zMDI(G5iE-EK4z:Ec,D&H" U ">iR\9I_TBf,'W=3hF*[&=>b)U$UskB1eT_RY=N7r9T&G]_O?uhd96x(W*6tfm]Zwd8DC-lW=DYhFKmo&6QNCkfR_bUQ:^WHnTc8fsY9nBG:b*+Y2tsx].l2Vk=>wf>HkG1D?v[g>" U "/7qeg7n8Bw7KMY3eqtD,O(45kSp1x5mk4FjR.+Z?3aycHZ>uxvBrk84#,dCBaLf" U "K#i8MoiGoNG'hi7hkA5UkyM2NaIFDwSDWT'#7,ugB9[pxRl_Fxj#\pumrOk6FV)" U "TfL&Ug:D*8+>)4:6SfE;Hgi8_FUFA[8C2pT,f^Ss)qp" U "9C%5B<>6c<%up()#9%'O%-%%%%f=$S7:]57%%%4^%%%,%.%%'r%xSwjjkN*VGBT" U "]akNXyvCDIxdLbJ%%P;##5_AD4+nrI3jZ#=k3/alW)+J%ne1(O%YkNvp4C&a7tg" U "IBfVGylh1hX/rt-PX2=l;H.xp'.xrAGbB]tuP4PJ]dJxqBh<.i%[,Yro" U "fZfR5SE6tGjuDMzvuaBOndOnnd:RubRjbuJjjPn-'11Pg7QR?l\lhMG#MAum[^r" U "6rP->iNM0e+P1XXPtZD,+9dC9C\5*:%xhKY0MsQqhw%[c&POeaI/zY(dN4p)Yu;" U "neLnCO-S)X0qGA)wMX&x%lI,&T+nPxN+hc0R+SCh1.#M,p$UbW23=?Z>lAdphiZ\%PpNA)Mdm>N8_Etd'EdIM9(f0LBi2QLJ&%5W7+0O.I%UbtW" U "(P)#1?\),cYlB\t,8)fPqx>R(Fa?'+7Sa" U ">CD9ue][[q&%WMcZ#PL:OoHh]Hu59,Wva/)LiVPlWi=fXlGEy+IygJ'F>t%b3i." U ",k8S;[vVQeaAlq;KZ[vILfkp_p-VojZ\jb^T$5]n7nD]gTAXbk#f;i/j^egeGFL\q$)\F<-:Um[UzcN" U "XnD%a)u(3LG-o&6+(^67o7H5#lsJYko?_F]R%c#'OuKBFf8Gb3R-\2hrW^''jkpbT;j&I8%#b#BF[$)T'jTjI\E6Xt,vEa9/y1Kpt$(B" U "#tdGCSCZ)xi'GM&bz:ePW^/oJ%^$$3RTkL2orVFNI3^GN:&6<" U "tzbZ,<=sW8VpRqYHOK4[z]R&+rUXUn;I\aVugkW#aZZpH'gS_" U "0X3O0+xmow[:l#+O6_Fu78$DdEO^uqF" U "fV7=KpU*7HbBRG$=1;_tRE5O+)mt\xDHZC481,1OoIA#OI?0=0&%9GJ\MAu)=kD__DLb4&)6'19/D.5N[R" U "Ja_1-RVl4e6PdAsZhgjoR;+gntseOl_QP#-^l.O-[pX1;5gapT4-X%U=$W_JCB#" U "4[)l9CbqPoOyWfW;^mDC&[fqf.G)A=i)\M=;5Sck4KLumEMg%Yh3j3sHriso\x1" U "mwf9jo&aO'G4F:F;eleDw5H/?/o2oc7sq0fi6Af>?Lq4AR3awH]3%rjHD7+Q$vg" U "^Z)$S%+U_6l9(%7u]88Vl+2VSUiXa*GUUOZD1^ENwFq_0^_d&(kbNz1G*SjR5=P" U "o,YFR:UO0MW>k6#HDPK),;nbIsYW=BdS9U/IOfA;'k[Z+:" U "GTY:4IW%SijW2X&ckY>%0'D)7wIu(vz/fp2b<0\-8h&" U "w$W>w]73UW*$PHfA24,h:;JHk]MG'QY5f(rrJXIRYK]J6/:VrF5/$>-8cwF_Pn#" U "#f(W^S$*6=[N')K)2vIMpSJRdp]]7D7tOiLTpD(v-(Yg]_d0+SFv],;%GEynMCi" U "]t(zUA0LrTsAgrU0A,hI3UY1(Resn1_Dr\UDJ'Nz/^4,p7s7t,Q2asNDkubZ'g4" U "I%OHM[X'?E)6*4)HP&D/]swv1i:i#ebD1#dKM\K6p45u'aUo$UD2&TG)0HsjBl$" U "A,*Yf:qXn)V6JBOVlSYWUB(WZDkU4EXsk)LmPVPNUHRSpFKQ'X4]gS_p6FO'P.*" U "'cl'AWN#+vV88\W\fQ3h7Fqd/Pc4Z4T43nFj&,1aoCiF.dR*tmhWY" U "a]=Q2Eo%fhQ>&C8(,+c$)CuWHt/NlIKHaZ3#<2j.>SQ*v=yE3v,LgxnIZb:p9wV" U "z,.F%2A&AMVdS'LPLOTt:EV,iPrbwLPkFQe+Oe*]6bd>$r:)88zp;>Td84=;qZu" U "q-<:GvGY7s(B?Rwi)pg>,[nyZp)Z2KCK-B6m9F(M;%KoOT/w56r;d'4y(Nt;%o<%oS>0b:Q/)z6=7?\>5" U "T4PK/BRTo6lY0TCm;D#Usy%ibA=_-=j18>vD1Pr>n/%+n#5:Me9G;CeZw5ZxX=$[dDgWLoCvv7,HC" U "W7$w_$8a;\-sTV2kX\-:&a$W_SIUZUmTj#;#*IW-tHQ'yr=[m-C:##Pe0i[w9[t" U "r+fBub3YblsHf\$plvU&4:l$ZZX\9p\Q\tF\j08ctZf59QH;/aWGX;.h&HW]JCm" U "(\%oysm=3(R_S(b.Oy.,CEkxB-6*<+QOM[x1/:5a%7.-LLcxf;eVgXXu/i<;./(" U "9$7?o^#+p7:XV:>)hZ9k*h[a6hae?GEub-Sob4=B8Mi)219$\;Q?,s9&jRJ9sAm" U "'Y;qCkw7J5$98SX#g4VRq9wb$h#rs()vatBSV4b)q(4r7=5R*C3Qw$&S*W2hPiL" U "8hr\\g0gknsNxcd4G52+$SQDoS[#%;;;EYiY?jgQG366Y3dsvju%I+B1kS?1DTK" U "$Hjh2vZ,Goo8^n,RqnjW59&i9EwBE>5>HiTVo)f[r=Z=MG1$*iCAMR" U "O8D(ROtSVYDKP*'8U?qGrYUa#Mf<*O_3(=)CY" U "MacZF%nb^^?]/Q9D<^]lvt[vZV1LNN7.>u0x+QQW?0qUZrF/Xv(9VkDQ,O?F6b_l$60PKuk^;[bMKZ.=zj5ud5:KdJ<-mKDE1vin5f5U^fGva)RE'S" U "#sP/ov*8uq]]rx9VTteiw*llQfqMK[j*N*PnSjh6K/Pe]lPz3Jhy^+TMV-GTn*^]mEJE/Bf<2=]?J.N" U "dY&V-[Y2W=/5=CC.t>Im#j9'.kba$2_Chz,h3UtMkB5p;SbSBGB39_ccW_QG%7#" U "q?Ifuhx5h=5>p4VQV8#nf+ALoaNV=6uvDjDB^YxH[h\;a/R&u7(1sf>+=N[lj,-" U "$c/tQICA*f/bQ*hq#2kJDa]66+4ojT4/IEA_p6]&ct[TI\5Y0h;JB31;_Cj9v)p" U "N'Ej1S$]A#YNpQvX8#AHy9JAa;1rp;u1p1_$+C5Z55^65bldTa>/7^o3eZsPtpF" U "s.qWnA\OqsJC)GtSfY='F=IR\ZK'$Sot3>)>4$jcx:D-t],3mkx13i6HZxcX8#<" U "uNq_fBv$KErtU7sOU3j[=S'?Uth;q$8" U "nbQh4fG>hKfThcw.e^5IXLZ=^b?og-\h=LAsRHA:b(\8Zk&gKKc?rwo_OBX" U ">)?dPTU2mFuxX/oLuIc.'D>oXLXprt$$F,mTxt2XU)),$gvnY1AA8?d(#gJ3TsP" U "'OE8(A-q9)dp/KMKQh;?GIiGt4&\>D,V\me&w95e;xfj97v\9e=->a#UK[u$McLb" U "dOXlO_U4(7TJp.qS(vXe/yjM,I#HhFrCvC$q>oT7==YbWzJqN>2EA;g2Nu2Ve];%AXH]:'ir<-E>sV:=8XraV" U "\G9(_dKKp\60[8?0=I<\wFCjWjF875i,j%k\*Ye>tOnhj-Yir_jbGSE\N1u-ip=" U "DJN3PU=8XwdC=\xQ=5JBiLMBMzOXgo(GuMJZGMnVG>l8sS%=WE000&s*d&MKG\F" U "6ei>or)?HS5VH^&#k?kvo#6NALsIMEj/ie+gyh3]/D,\ss3LK$tG[Y8b0Z>9H4d" U "vOsx+&CfHO,Jdb^J:R4V6fhK8(JiR0Iw$+HCNrGBtmg]oP;HiNJxoJ\L,rl2u4P" U "w)luottVj?VBr.+u:L,,Yfkt$6FclMN" U "2]fJfe3PlHqPqL*F672=T$6fR(K*B7=)&tJ&;y:lMKb_3KGjwyxs9D-]LLO.Spz" U "M6T(_-+i^TG)#uc9XTJvLlv\jtsLa8sL\e:d0deqYz-1KOIjLh&p)aB71kwGf*1fMK\=rB/VEued6-uZ,=ll>OF?Qi<4tNv" U "Dx%%up(%)9%'&O-%%#%f=O:fACS%+%%<%5%%0#%%%'%rxij%rtSgRfx&&SmF" U "8wBXNx0QA=2-Mo)qksr$Kk][Dsw)Atgm\N6tD1T?n/oSE0-hKtNvF%ddFs3_^qM" U ";ZdRRhN$H5E:]IrH=dfO6tK3l'lV4xllT9RP3YXG:h#'8nFj,=[;QO#o[KkX<0B" U ";SYe+ThH_0xYu8m/x#\=B2BuPo$Ep^M^9jBD/:Cfv7c#)KXW\hD/B4&0.tLb'Bl" U "#-JBCM/LCV.b=yzku>fI69Bj\tv)A9N\Ns+a?:GiQMK;gT_3EG<=(;(./oP.4Vi" U "C6%.D':1X0,'%1w8O\L3X.m57'Lo^WR\Ka(.U[q+6xnxl#-t*lHpjS=(9:1:05,C0jERpixuB82,nKB(ZM&(dZ&?0Lr94]&#>mafk5Rg" U "YnL3]IhkdvkXS2[RiKGs$b'&QQD;gv1K#0FiI^l1YSs7h4kk<0;Y7T5" U "ZBBJbhG,_l8;pVPV;17_k,+a)e<+CxtVt+Z8\R<;kLBgK/B&]Go)$bU]n9Hldc9oAT" U "&KX;dXSNJ17?0Y3(*(w\C)q4hRQN?E:i[MihQZX2:6E,BvCAF&l$;>g+5wddi4y" U "-b&^fKo3lpU*CkvPV5aGs)gTDW0v?sWN[AqX#GCSgbPWF$E+/C7KJ*PCnOWBq+N" U "SSmhQqBXgaMyCOcG;n([qsSZPQK=4RM6)T')vg#(KB\T->wX'*Rc/,.e^^FsO$U" U "(7+UTx0Ft0)SFEK;qSN/FBb1AxKH4Ec\4^#%dpfEs7m47:C%y/VK(t&02%R;%?/" U "3o4*:gBXiR>Q.YL#)?9e/,HN#Rz9x72:E/Lr&u.aUZ7IKOdbtKTcKoZN[-IszbS" U "&od2fG:l$tT.Sw9m9n506[v)QrJ58pp6&o%9*>e+M71,URYR=G>C0=[s8s8Kff," U "9Sm\rY6d&KKYy;GCf$iIWcrM0D9ia9,%N>6,PJU5x$))l3O.1BCb2PT(SyKWy/,OGWG+$" U "rGzoWHuXI8O=BZnZi)T0n?Uja7NwReG#.fkR$]V'ZA-BrS2Pe^(QvgjR_v&B]K-" U "GqM467kqEW,eq'B4f5(GU%9UybeOQxw.PYI2=]7T*R%?ZLTQ3(%gj#-$bqmtKOr" U "GpBo*BSfS^2&]/30Y/0jA7gWvXgifcO)$k\_kgnca+W/m#pVUa%F.4<8c3(_JS5" U "t$IFZCl8u[6w]P/c1cLrJ3i6d;XlhP^$Z';HTqZR75PXtdZ47)J(M=I)gcAo#NIrEq=YE^F>t/Y?HZ" U "rWnWh56gu0[>80w'%up&'%9%9%%'%-%%%%f=;QJ*;'P'%%';)%%%,%%%%%%%%%%" U "%E%%%%%%.%%'r%xStg%oup&%'9%9%%'%-%%%%f%=$S:+]57%%%4^%%%,%%%%%%%" U "%%&%E[%%%u#'%%'%rxSw%jkup%&'9%%9%'%%-%%%.f=Of,ACS+%%%<5%%%0%%%%" U "%%%%%&%%E%%%'V:%%&'rxi%jrtS%gfxu%p*+%%%%%(#%(%r%%%%Y%A%%%%%" END SUB