'=========================================================================== ' Subject: EXTENDED MEMORY INFORMATION Date: 07-26-98 (15:43) ' Author: Gunther Ilzig Code: PB ' Origin: 100775.2275@compuserve.com Packet: MEMORY.ABC '=========================================================================== 'Load/Run under PowerBASIC to extract EXTMEM.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"EXTMEM.ZIP",4^6:Z&=5865:?STRING$(50,177); U"%up()%9%%%I-%\u0sI?V.8Lk,%%%QJ%%%/%#%%j'%yrjr%SfxrNf)<>]T]7w9E% U"r4BlRR%iF(8GFPQmj[]r<:7Kr)sA?,QQMT-7Z&xi/Im:$td\^hnjSZM#8u04P4* U"nf[7m^THE%aXKbdavY_+vo-RcFn3=mEMNO#t/4>:KZ1SVPu.H>NZbB>gdADjnmvK[H&>yQ/hiOIECH$Nc1] U"KRDH17B,hkn]&EC:Vr'KMadB&y;4Pc*g[\gufIuO+mssQarHIQ-m*Y?Id+_?i0n U"%028Y.P.DmVWqLk/Ar5g[KuOcupd.)upZ]_/34&k*^3gJ[FniuHW:FKQ16U&Nh. U"bpLYqoIY:vw'_AZIs/[5rR]bg<^&XjQ;=.vFMrWsum?coQh9C)V5QEWP.M'A8- U"HojepFN7B-cZ0I4>:UzR>q?JrN=6G2uw_eT+xVnxpS.I)P&G?qn7 U"89q4ndNM<%I32-E>jYRH^mypBO:]df+6NXo4^q?^29jSc(#kTl-?$/Xjg)1A:Ic U"4$-##.z2i_r?7+8=+U*K:G57&I-N,a%h'&w7:rfSD>;RHgNi#z9HH5\*D&cF/0O U"xH/0*e8Gc_O8$=Qf6gVU=F-e\#r153_XeFV&g/)n'ETtNg2AKGKIX:1r+SA39Lh U"$5kBwWE7GZ=Rh8Q7:3>WRtr^o#3_KpJ8gR8kBl$TCpEQ?HsILM=h'dhgqO5gr(= U"w^AF&_JUHJhR4I=9q?U'ZHl>$9$3n>JN]a5>DmU+SETsiVZ5:v=LB>P7H0&qwFZ U"&oJm9DgpU2(_<;ZN26q&o-P2[l:^)G\fo=29_Bm4$ZA)*'Y8[RMtT)<4S]5Rdr? U"#/NszI7tfC[gd+eX)E/pPL(Vc4o U"L;sxs'3<1evzAY2N&gNX[?sLRCu'ASZcjPL?QP0?6ZN\l]ZOg]d[T=*u'wD\0>'3h?(+Q U"TCX+O%M?noYr'=YauYx)XWWB)hHcvp%j\l45:_1O-w[t+-SNvq_ U"r&I&S5fx:W#Wf,BqxKX?fFrcqUXfv3rnjL3UkPT'3K/\4Xv8H+jIbwoYNbkCmpC U"dDuH8Y%aQ[DgJ7pH\al:->W>NX U"6[h0mqL6sIl1[8+lFL.KLilgW6[SbUe]NC;?8i&TZBIiv,Zk+I.nVFVa36gf\TX U"t'p['q)0z>8Bq93i(J0,e.&6944S8*ZUC+Y=;+;(eW:>QH6yhQ#qif)H3A9(8WC U"Z'>egQYY#_i;P#l%$lr+[SwcanPO\ys/brjQ/$Fnw4a8\JOP-_wH>Sy\m^,6OPg U"Lq]6/O>U0C=JVe/Vq1DUa&VoRON'gYYBD0DC9mL)v]UkEHN0*x%fV-d1=%VvB6Q U"&ZP>qNY;m(,Z+uZMx3\Pe&_3RfdRbHl_oSB&D>N2C8V1j\&KkM%[1?cT^:S\A54 U"-IQ7WvNQitFm$XswN.n1Er1['dl]Y$ec3Es&c^[Y,\/9=49C(LZEU=KHx(.CKi# U"v(Av=Yw5B6E/OOWtR4uSYWCvF_>KSb%4(X7CxuCSMwpw4w$CKZ[c[vRC+ZAQ]Ci U"73>n6B9:1/6AZ;6*7B_dTDtd$dBe&FD-_T7.PbtA$gET/QdFViOcR3a3T+Af<<+ U"2DAM&8d4_%HQq((d?Q1&*x*9ZK$#IarQ-\T6Q U"5=;jFX5x+,()N75/5>aeRSo'$Uv*P[E&(nY[AsT(0?2BuL*>Jxuv+jO+t0>KGBp U"18bTO<'5\N*3[a0tk?Se(=qK+b0urs[^I,.h6$)Iob&4]6i;Rb4'/?OTD&,AKo+ U"rE0T*E+b>4:w7:ES.WsM;i%S2>r(n'nBwR[yM9h5e._9V6']xY].a&u(D(W+\pP U"8u,fVCCA=^cqoH/ba]8-6;o(OlJcSm\<_m8gH,3N]sR;FFw(%up()%9%%%#-%eufsIr3,6N007%%+H%%%/% U"#%%j'%yrjr%SgfxABvFHz=7RXB#YNv+$GH:84GP'X U")lw4,;Fal*>bua5:DmL,,Alv9.+I#MpGYOX\Ck4I$%,[(%433sDkc1u&$qD'>M* U"2k3nOSm[cAr%67n^Sb[blZ_B?7)%l31y&Of(L&A^nDfol%(40V.pf=imdZ;-)_p U"-_u/fTB1Ry7#$uMAS,3SO5;Jg3A<9LNs6%)nMA/rmPTt;B]+PilL9QfZrd;h3*Lnk U"R'g>-'gXk+8c1:o;8aZ?&J6Z6Q#:] U"G2BZF[x^jgugvviXCST, U"FZNutJNfP#MVoF;F2YksJ1Dj>a8YD7e#:u8_ag;(w5>9)rfX;>n5YTRBC;YPN6; U"S$owcwj)&?EN1U6,o=DA8gkcTG<:H>D-0nD&_M[255:AINJ;nuot&NYVOvLld0^A4)ZE8cbux?N?ty$^BsgXu2btX._SbOln'\v7_s[vBi78?7f$g2=rJkN-pD%o9UJ U"J.^K.nu;%%Xq]yYzN\Q\cch2\rZi8f*+lW<<OsB U"=o5[8Ld<-XY7KGn4(9j'Ji%2?m-n1Zt43jqd>#LU]s+Nw?+KFYj)UpM]ve*)/qv U"343FkF4N7:R;UYC/C/rjc/SBUqiW=>)4^x4o?J)gT/G,hr]TIW>%,:]Y'\4%k>U U"T/nWy,rX16aq2eQd8&7U1AUg1jr3=j?N$2EuHQC=PbS2jYw((OzB58IscddR-yf/D-dLufSU>q4y U"(pB(Xp:mOVlCi1+s*.Jgw#]TSUw;'VrqR,60cxSw=kCuZWsmeH'z]aycZ3hghOI U"R^bC$A>Pznduv/cQ=YAEF5#ad>;H)_J/Fj#)xyMu%wk(o&k6mlCxY0&[Mpog27N(7t U"$?=]EL07TCrL[z8om3LrY2-K%FFnMf2TgfclkS/LgR_]FfEZH=9sDaZW43'On?y U"rPhFbM7;U%[J;(&&Ke*y1&NS'.Vt&jKHp%v3 U"%JHl8iElbq9V_Q6s8J(_ZB,ERuXAd U"A%Aqu#5ZQMCw%(V_*5;:ivJ,R1h)H1iz&&gQr=H,M11(6u0?N(Fv#XjTn(tDJR* U"4d5G=Z\,yF/+U7'M/q+KNOgoVOXI+PcY9BeHW1\imY.iVBBu#-^[+y&=pNC.mpny7o?>RpNln:GE8Zu)m]d_iDv%HO?T^Qpz4p)nH2:4vPKTbmIAa^qEdekf=_anC\ U"-sG%WR++k_ZT1?f750f+2s+>tr4:Xr,NnB]f3^itcn(igazS/]774yYz-NV7p/7 U"Un.UIzkNgaw#]0e8gT5gF.oX$Rl5^^tPb:1rIVe%BYLvYHuwJL2r(;1=T]vS;>d U"mBjOrri2r8erh U"ptPC'1M;Uk[Fjle?+2,XkpaIx;txeC^u0Z;M/piigCb0xFO^Y]R#5oL?iw=+ U"]Wo3T]0yh5/UHf(?Xg6YO[VT?4fk4;xiUlnq0FIf0c81RKbLHsp5CV.t\D^OA?( U"?LnV/9\i(^s,r4_Mb0qZ(P:z4MYzQymf)\=/evqN0jlVJ<4_hXcvTl(7$].+t.3 U"861^rF*,5:]g)'XAl,Vx+u%p()9%%%%-d%+msLI?7E'B'&%%%L'%%%/%%.%j'y% U"rjrS[nsh6_$,pyTt&fYWWenC=2'BmUwCwI4xf? U"Go<$H>mF^]5TH(jrkc?4A>/B0-ieHd)?]KGarPBH[LMLk[K,QGgp]]8^B[*qZt/ U"hIQklZ0Ah7KnTJ[Wtz[MpFYIw8AMrjc^ZHMj\7,O6>9OZO_/+LNCYeNlG^_uTEC U"O/HD;Er$Uway8X)i186)Ze>S?gNO_og)T$r$[ZXtiRu2]Q9g]_/\y?,60P_)Jm0 U"Nci8eqZDj-zR8UcbeT%hqXuwNxNE\9cIRAxn-a#e3il'SL(^<4%-Sb_#ygcKe+D U"6on%7ezP/o.kDt%%up(%)9%%%%-%5bmsIfT:4my%&%%'%'%%/%%%%j&'yrj%rSt U"g.oz_d%m#vAE#NTFT20*8eqI2=,pUwM.nXGj('Xned5VN*[kYAFTvy]W0_7?V:M U"(k,(YQA3C3<_CcFIFfCwt,e,QfyM,Cawo093t*gv+K$U6XY0&]*fD./*LjcQi;ctuUPPjeRt%1BN/QOY%E)3O[\Jq9vp>O6:,YHd/r U"i4)kEMv&3e9QSSP3x4_QIp4inNwUTiShvaEMf]p$GF.iL0Zn(I-An.F=ViA5]da U"C7zaKPRHgVyA&C/D<(-*0MDV-pP[#/AiRHY2a1ed>^UT.5%HDx7%r9r;7r=tY_5 U"#Ct(+N,1Rc%emoK2X#'6 U"nkW2T$UU[J]OatfYJQXIDeaKx?m%\p\u%p&'9%%9%%#%-%\GusI?#V8Lk%,%%Q% U"J%%/%%%%%%%%%&%%E%%%%%%%.%j'y%rjrS%fxru%p&'9%%9%%%%-%eGusIr<36N U"0[0%%+%H%%/%%%%%%%%%&%%E%%+%=,%.%j'y%rjrS%gfxu%p&'9%%9%%%%-%+Gm U"sI?;7EB'%&%%L%'%%/%%%%%%%%%&%%E%%+%p7%.%j'y%rjrS%nshu%p&'9%%9%% U"%%-%5bmsIfT:4my%&%%'%'%%/%%%%%%%%%&%%E%%%%F9%.%j'y%rjrS%tgou%p* U"+%%%%%)[%)%Y[%%%l%:%%%%% END SUB CLOSE:IF S=154AND 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