'===========================================================================
' 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-<gFneZ&cgFj(qbww[*8FZHeX\fV6ftrtbjgG]g3F
U"t)>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?c<RC0C.dO/Bo1ZP7/HX(
U"?oe0?w#TtSv\$&Dno&FeG8yHI(gMqs?G_SoaYZ3Ps2_^>oQh9C)V5QEWP.M'A8-
U"HojepFN7B-c<S;uZpOMaX#&Afg(IaO*-5Edlsfiw6D(Dz9Z4e_f]TX)o?aaaBew
U"W]F4glI2*o^L<l\,5N(I3>Z0I4>: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[<U]9tH+)/.]d/BDrl64\3O[PtrmgvfHu1-k>gd+eX)E/pPL(Vc4o
U"L;sxs'3<1evzAY2N&gNX[?sLR<Z>Cu'<AhmHhPd%?/Xfq(*axoOQ%]#Z04fF<'-
U"+8$<%R5:=L0US[4-^IlTQgp8DgfnMQ7as%pnl__tg4GuUySjU(]d,w<;M_9fQ9i
U"QJKfe^qfVwWoeu'H)'ql\_pP&f>AS<Pt,ZbK+N,TQ_rPXPo+W'^&;q#4a;Aes3K
U"L.i:cQ-Rf4M+f(01P6+zH.B>ZcjPL?QP0?6ZN\l]ZOg]d[T=*u'wD\0>'3h?(+Q
U"TCX+O%M?noYr'=YauYx)XWWB)hHcvp%j\l45:_1O-w[t+-SNv<yBhSoNHF5'>q_
U"r&I&S5fx:W#Wf,BqxKX?fFrcqUXfv3rnjL3UkPT'3K/\4Xv8H+jIbwoYNbkCmpC
U"dDuH8Y%aQ[DgJ7p<r%D9Arq.NnKef:B^sGJRbcjUD'IGRj=w??k(0^sNM+vQA+[
U"(iCcgpalSc^ei4Y[h'US5?P/qUo#(v$fmdM2kGPw-Aw'keVC6L/g0??D2,5&\NA
U"\GEIubZjiEU9K3P-QQ-qaH&tEdx5t?IOMD*7/?77brvKA4,6dS8>H\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&<kLqzu-YWL6(VP-uT2]T0Gx]4>*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]s<jeOZ0iH.i'C$e/fU7<RB
U"_d;[XrcJ.gh#tQ8)xMhA2>R;FFw(%up()%9%%%#-%eufsIr3,6N007%%+H%%%/%
U"#%%j'%yrjr%Sgfx<f)dx]Tm7x71zu4]6yw98eV/F$=jA.J6#bwi[&0,HR64FpZa
U"?Op9IfEuA?tPb.pm+IJd'AXpg7kpdOJm34JMblL[strdsXft&T&j?JZBRC4qu8l
U"B-W;F/a-+6'2rP'Yj0-j7#Rgkb_pDb,aH&)+Qu5&JpJAE_Re-u_tU&,q%s9u=;$
U"kQ<:wL\#$A<b4.v<K$RtG2/jTnP:UVz\92st<m<51(ZJ_H/iiJ6(7KogEf#.eix
U"VgZNlRR]aZw%_sx(NWN8N&8sYW8<d:MN%CuB>ABvFHz=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/<TMq)HvO-UMFF4AGlA5q[5';<5cq5aN]89&h[rEsQ49K?T[kZXE?3_MN[AW
U"<>fTB1Ry7#$uMAS,3SO5;Jg3A<9LNs6%)nMA/rmPTt;B]+PilL9QfZrd;h3*Lnk
U"R'g>-'gXk+8c1:o;8aZ<o2JlXRrFH\KnKu'oko^kbb%B*9yb&H=\>?&J6Z6Q#:]
U"G2BZF[x^jgugvviXCS<Vu:f1AW850r(IC:](CFCj:]*j1XCsVJYz]di%Nq'S>T,
U"FZNutJNfP#MVoF;F2YksJ1Dj>a8YD7e#:u8_ag;(w5>9)rfX;>n5YTRBC;YPN6;
U"S$owcwj)<Tr.c*C7[%n0B>&?EN1U6,o=DA8gkcTG<<pUg[9&Fgr-ndI8*XqarTe
U"[NM=1p3a>:H>D-0nD&_M[255:AINJ;nuot&NYVOvLld0<W&8IBy.JJ*OYAH_gVL
U"MgYDOV/,'$ScgmGH_0gfz^2EU0'P.pK3FKi$Y#\fF0ASkJ1KKC7.6%eZAen6Ub.
U"Zh4&D*'AieUfgQ]PewH*,Aom[fjLpJDy7K(#uetf_85UJF%*q1b[g$(C'Fn7/_9
U"ir>^A<IkG-jF2nNU#ew6m[%(#(9L6]S)*EaMvM(stu\3VYneOMh&7GdJ=OEPd+d
U"NgIu\GE^N1:F^3'ZtcLoadf3qlu6MVb=,%7\1uncPxz8t-t+R:O<'<_kVuh30PT
U"SlM(pX-G56F_HH?)%L6I&Xo1e_.T\w1PXG[CY5$KFQr+x\QRJkv._eST=-?n:Vh
U"/t$K\ayrphv]H^3IqI%98Iv>4)ZE8cbux?N?ty$^BsgXu2btX._SbOln<x&;wOX
U"ukLD?]2RYE<2sVk^Z(ssn(NdX=^ftgukvK75*\Fr$tZz7,AS#ZN,RDsVh.AsrrJ
U"d=,jb[SJ=P$kE2SxlEw?1B0_L+:%idT>'\v7_s[vBi78?7f$g2=rJkN-pD%o9UJ
U"J.^K.nu;%%Xq]yYzN\Q\cch2\rZi8f*+lW<<<p]X$s\n*#u9Z7l7F&^Dg(\3J0v
U"\1[$DuJv)\Ha'^mE5Djoqn,#-#QP#N9.-3)<fBOK^g5AK=UY_ZiY]'_o\+J>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,r<oCN?KHq'EitK:'/6I7S<QBF;nuqI>X16aq2eQd8<E+WWELQZd0=UjKD
U"z8l%g)N.S1zggg;jB3./37Ss+P0'0^3ZMjt,iQU9UxU-4=11S:1QSpGwP?&m:13
U"<47>&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>Pz</:]M[phx:c^hx1HG.sN?F:r\zuh_q\lCo^#-voC[i,#%OC*;n6Y:E
U"&K8S)>nduv/cQ=YAEF5#ad>;H)_J/Fj#)xyMu%wk(o&k6mlCxY0&[Mpog27N(7t
U"$?=]EL07TCrL[z8om3LrY2-K%FFnMf2TgfclkS/LgR_]FfEZH=9sDaZW43'On?y
U"rPhFb<fkQ1bQ&FOB7_2AEF]YopKLlVlG%(,.ehU6PQK*KPR42;=EfM_+f5b,n6Z
U"Cybt%OF2na[FPIe,BeER^4\E%Z&bnTr>M7;U%[J;(&&Ke*y1&NS'.Vt&jKHp%v3
U"%JHl8iElbq<MqKbqLbwwujsV46DdZx_QWDbc#R[;ks3>9V_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+PcY9BeH<a&gPy-T$.gzWQNO)pg;F?_E^hV
U"M.#?u:urPiir>W1\imY.iVBBu#-^[+y&=pNC.mpny7o?>RpNln:GE8Zu)m]d_<t
U"\R;K,cr=^?bL_F>iDv%HO?T^Qpz4p)nH2:4vP<NnzZnQ'G[,]-2Jum_?<a_v)+[
U"Jd2zQbgvs?/0C(*.STi<:d,;RV&^*[[Si*Wn.Y'bUv>KTbmIAa^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"mBjOrri2r8er<e$:N^HCH:;-wxqK8g<hff+slx$7mUo?m)GGm_O$mAisRd1eRnP
U"kffS8c=G\\bsGueQ\Xc3T?.uhOF&lNE043I=]dl_:Gjaz#qAi,*VFC9.2kdg<2V
U"f3=D%TevB$Z;)S+7Qp%Y^d_&lKl,aTOX'y/Eba1r_)SSF#O]]mnW:P$CSn/BlYG
U"uUS-ihn1;m?aABG4rB+96umTMIWo9A#fPWBK=8EC)]Ck0Sng0Vz%<KL8I1FAki9
U"k5P.lva'%8eolEKFWIR,EI$yK0/2\R'muwFxWRhN*xvxq6CX,Tb+jl[\jvQ1V'x
U",fT*I:b7EopA=ff\OC2*pdnkEP(b-nM8-fL$V9EtWhuTXPd+%&P$utp(IS:*Y(8
U"BsZ2$,.rmkosbo&TLm'/MRRY=aDF9dO-8Dl^e7m'n_'Ljg(3\e8q#G4FX94Sd-J
U"hzs;[p([gq-=F/;0]Zx[DuKQW&auxA*oJdfdnL9n6;D[m4(_GGQ]R%0n_t8LUPq
U"Rw8t.;o6UcHp\rc/Z%4jr=,)FBT+98La&ZR?rIBGl(]%FcV(C[+(\XO)C.qZ1>h
U"ptPC'1M;Uk[Fjle?+2,X<EndfFH$?,y+;6Yjj%H+lBN]In_\1LVY\tYo&&qqS-e
U"r^9RrX<wAr#Aqs5xtJGU51>kpaIx;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_$,p<dU9U(5*aN]C1t3U2;qaP*:u>yTt&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$U6X<JY^ptLsdXhtH6f,/
U"Af\pY0%a$y84r,%-%M=-T6_IU,OFpJhX\UL6ZPVaIq&:0JWxBQ'fjFTK$yHhG\E
U"k29Pkh>Y0&]*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#'<XN1Qu9F=d_$E#SI%MIti2;cgZcJFE(UO?e[gDDajCY(
U"E27h0RL-YQpGRE#icxJ[,yq8t_I=XSeITifFl#xBY+#xJcvPk\?+\4bi8nkTq>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
