'===========================================================================
' Subject: PERSONAL ORGANIZER                 Date: 03-25-98 (00:20)       
'  Author: Andrey Berezansky                  Code: QB, QBasic, PDS        
'  Origin: nikol@cs.bgu.ac.il               Packet: MISC.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"ORGANIZR.ZIP",4^6:Z&=4822:?STRING$(50,177);
U"%up()%9%%%R-%cZAGINX08?u%7%%R%%%%1%%%%wz%sknw%xySg.fyBmXrGA&]At
U"p\-^Crv2?BD/C/D1Y1)BKB_Rkb94Q#OE.tDw=aiGPMoH:Ci&PUAh0VhRhl9E/Pe
U"O5&X[_hU#oX^=X'BZm&?Ejl4bBn*kB9A<&\6M,eR+dx?8Tmxu(*6ld)ToudAT54
U"&DTOENBpEl.&&*B*gL&TYKIE&o3)2Wghob2)Pv,m:MSzQ6*)QLmgV_Ej^1A*SI;
U"9xo-AD*%%up()%9%%%I-%Hm/GIZ',i=X47%%W$%%%/%.%%(t%rfsV%SgfxWF*dB
U"]Sm7x9gOx4Z6%,P3.?_U#-ALDO)]gZ:2-9nVK.'3__<z)Ac8GgsPPvfBPb48Zm+
U"*l'V$OV]KqtHo(DLLulYnh%jD]C;MPB5cG#;uQ7J6JBdZq=0U*K4uud97eD%n(>
U"elr?t=v^;.&d?B1TC5ukTIVb5\f,$2/2t<lW9Cgjs8PhYPf&X.8TDb^->Aj5AdG
U"p<Ic/XSJB0*Qr:[dq/j28\A'-UNdj_Gsrv9<5FxYV\*q(#0j]rj&7,F].X\[>0*
U"\%$bB_sAW4hRp*F'nOjv#IV\RXNkrClH:q-Uw&+B3x9VL0x?M':1G9U(tOnC'[-
U"rofYU625Fd5OXsyD+'QpMMz[]>#nu5ISv0f&BL+lAkIc'ZV1Z\]81&2+w8Xko$S
U"7:-Wo;vkM2#15K'F2rX<ee,JYQ;fI>\IWSn%ZsV.ieXDg.\E;T\Pr8QI2.06VZ_
U"g'H1(g+C;s502d[^yVgdK)x;8Vsp8G[H_,spJ[U_-S5'B8HOK#lJ5w*P?aaK.uE
U":KIH,MAR#L/9[.=8HogSo-GiS=L%,wUj11A<9b2cJ_+$vJc70w2o0peIQsSnOcN
U"dtshR^?2l_kamYSSo5&7oYwDWi<yc1n(kXy1-vWXWLtS?VZX,B$O9<gK214hX2w
U"?uwlcfbvCdnoo_X7<IeOJ?v$m%D/b]gdk/FJCfGy2?:JIU0Y0/=S<i$&sAw\.oe
U"e(5;-?6kGR4\qPzpSKpajWPLHx?rDoc\npqG0q'Mxg#,FW)I]&80u_i:+nEgO[S
U"CmJqgdU$nN#HN3HnY<OZwbR?+Y*+8a)Q#;//]0V.*o'ZqOZZrm-KOPg.ol3EMMq
U"k#_(eAC=mt/nG)\B>WE#b^/kEiF(bDvfE9P8a1B>JS'phjZ$(1(Dq0^r\i4Mci8
U"<>jA<2B>7;]dbM?=<Fe]BHgp\Nw0rb1hk5I26tip+u3C0AGp]UU6QTe*ELrhi7B
U"?L'VD:3/jYUED)m2JlX*Q?wj)ovr4>i:=>n$%rcc8pxv,(bFt_mH0?$+D]-NV&a
U">B<XmFWStY)vu2-RKsD',CJeWjtp0hpHgTpK#65td+b:rU8o=d:^&zY5;O$LK%T
U"'\l&s0]<cq$\q7:H\ZPTxg+x=dPQU2roOtJMUBQd9\5W;-Os2YoUrYm]ShiLtfm
U"I&.zilW$Rgs7dAiKGLH2.G4)VPR;\wynoK-<dJGfk4G_cSXOEby$cV$Yo^?G20\
U"zBd<Q*x9-?#B?g9;geh;>\%$j3]+6/0G&c5\C7gx=gQ6JJ?)]gPQMJ8?=g*T*%H
U"GzL(JJVC^X$7JaSUNNgk8cp8BDf/<z.O:yalfpEC2kzUq+YIPm)L[2,XYMU&_Wv
U"Xbgerp.NSiTN(d72pVzDbpM59\i4QbwJf+:e05'r$IP:KR]t3qSKMCZiCqJ)6'4
U"Zcqz0UjjVe;N,)X7jS1T(lB%[rOIw=b&TF_i)2Nm[Kn=uoWWc=D*qgL:b2:(ey]
U"#EJ_P#[Xv94rkfW%\C%LOd)_$_CpRFeq(RWo#;rjLBedj?D0\p8W\>o0[hd[8T6
U"x'rsji8Rf%I:CE3pf,pteGe;D,#?1Q4x&shlpGcY5X3aeE9w3XPM%WL4YG:FN_^
U"I)c=>&D$LL^acMHsxjE?+Kj:(\RfB;Yf\wXf>KD[A&HbyLHsGOL54FGdWAPW$I/
U"D.=ae+m:m>.(_0\nx6MSHpE-7U3DULyD,5*M1%:lFY3E?GkFe*VT3+_^6P9F4q=
U"%26Z4a<Q7B^jJoB*Yan2klrj6#izs>,,jJ2Vf=u/$M[oBd_Tdk-mz'2p\+2RnO5
U"U\U8bB$hg3FDq#X7f;Wwk>bZQGr]#I#?$AC6mb\,?ht2ASJ4vT3LYc:+;-eVEgX
U"p\Qsb?ORT=_v//\okUb,lD6Q-6d0JY-^J3v$oKtH'U2[8*?k3-,7\khens2w9%R
U"q*dooao2U)E,K9S:tDC(A=e[:_<>nT6Oq_9,1C.Q^wkyglUn_1AL%xN/]47u3gW
U"uk2r/JpE(PrLfp,n%8ZBkG<_hQq8rKK\=px]g4USa%Q'PSUBfm>UJ(vK]IfcO^H
U"<B5[4Q*-<]=AIvEV4heOfNbA>vS/O#vQhAiH.#ZHQQ6q7g,nh+qXh$gG%kR);a\
U"#LUm'6Lu\kinDx_s<L'tOu-B2jt*(9ZMJan'.dgd9.V'X9Rqm_sAWJ^1h3c\])G
U"^%>8RG<ednO[w2%XD+J'pbdC:5c0X7-6D:gxbv%grV$1iKo=pLn2B8gp?V%q7x(
U"[H&YJ0&E<<+5>xs?Cm./E+5tugCJPcG?;&m$=yB,bIQhkWur.$JNIxm9YDK$'+W
U"oH%bfuHgt6AOFvVE4<qSf[<dyje8&.$sa^iX3mWDbc\_>XRuPglsb9NCJBYF=Ih
U"=/J1.Ts;=A9xh6RzA,8ey7gF$;7r2BiHfOdm7iQNWYKWtVcMejGkr;5HrP.g^b&
U"MclK/6%SHUTS^OEU'%%?xjQJox^S^^+ta$i'[#,yY4Tu$jBPMV_MYNIIG_G+YJA
U"&e7Kjoav[dMs,bm(3G/dJ/.'>M9l%^_(F9Yp-N]+[ZBJHsibW\4,+:TbGQEnms3
U"RDwi2kH%q?X,lQgEgPa%ocEG86,db)2d$u_f+c[+b3nYR;86MbXsKevJ8_6rKwn
U"auk$^bcMxhPL4c)aI;5e]IXjKC/4^xGcemIXSO4rUyNB)i?$Ql1,/3>\4qUnlQq
U"4CW,N3a]JZOS*R]FbPZp>D6E:bWtrc-7nr?s\4]7%bd-c?OleNgB6SU41tQ;>6I
U"HT&7#lS-t&/Sbw$AQZHfp5b<(8RrPr_P]VhRk;)lAJxzo[;*\xpXYHR8.GQk0\*
U"P<,g&DJcdBzAO_a6'W0RW[>fhXHRo\Bd(r#mP(/Y_c_<AW'QfoJBv>0M21F[RQb
U"uud2u(8uG/'7:uS82*DPPHs'2D[QylPpMXmV8=[[BOvfmm'[TcL9$h<hQ3%_7QO
U"Ce5L^++Ip$'z^0E.ba2-M$ko%[:q-vCXSPF;crU<J>*mah>]^=4hJKeSW7AwRF#
U"7$XIVI6?;*CK/nH^7q%1',6G8sPW0[1ac]\<vN4%viw)/r><5HB/%t$0qr:.Kf9
U"F/h*<=:jolv%lxw1'T]u:H325aQNDTw0P/SU_[+Fq&S>puBX=X:an-T#TUO9+l(
U"^1_L8G[HqN2E%o^t:5i8.S2gzo6N[t?tIok*H#;-[1vmYKpp'l,JJm]V]_'_H7#
U"9wIAjG]JMWgHc?>,_FLeFcrn__j56],K85.n/13.T2X,uRd(-(Ps$uh%0_smY2U
U"f\>##&\-?&Qrr,bVwWxG+:CYZ+%1X&JWgp&54?S?C8,\xyt$FVB&R?9UjrH?+nt
U".h%JROk:<h;[*/nM'g=1+%=;qf^XEGn34pszTQ<'\8Zbf2Uz*)dh-S.gy&(Ux&/
U"hoX'f=u/XC$q,7[4RAYcqUd1T5>j:tNf+lIImj<H^g=>\dEH67\6f-k.h]w>7;G
U"4'xYXN'U7.X;xNPh';9JJHkQx.Cr5rJvA2]5^aqH8J)fI&tHEjy[d>vViuBgCmm
U"?;*RN<hP=An<+J_Ze/3N5eLNH5FNAmBwCPfCP^l-bd-/&\R,6]ZoswTQ6gQx^u<
U"%YgNrhHs/rW<YpMnVE4[(pusEH-SZ(JB3<^md_\pO>CS*9GUiNu;cnBv'So<6xf
U"=XH[b,=a*67Fh.KS*lgHcMk6a-uG=GpUm[ISkWVA,Jbo8g?F7CR\Ae_^Ist)s(1
U"F'_T[4(.JCi<2CGeH%7A19eV[SFv-#+6<HP-;Ux&6sV^A6q^h3pa6h)hb3h3abN
U"Z.<AR\^-P?=_F/Ouq]AjNsm,7_B$N=;dz%H*L<0x,V8$>FR=72FZ64^t.4iXXQH
U"bLd0)Vz+=<brTwEbn>b;aWc2x\hR2a899tp<pr]q2\4hrMrJWEP-gP>b7U(X1Io
U"FOh4z(s^_pT*l_3VEK.9X1c8B_(0PJ[?ac=UoOZQ>4Q+rJW6k\Juu/V^F(9EjOL
U";T^B0Gh+),;NOQ]jum[jYb^l*wSVc'*KI*<VA?TuC#aoKb3t2W9-^L/z)rkJc3B
U">F[T:9&#_Aqt]bg&Hu5f=F<5%(6>-$92I)Y]uJ_gkI[vj-qN4fVu[oOp5hb:.GR
U"0yRDnDc)()Y$G_qN(nFwU>)ey>zd_m.p8#l.lwpS8ZaoKr?lRjr[iA$?1b1<[75
U"qKudQYZ28Q?bU*(eHR(1En:>vAGCp<?MUNm3Rm,3kKFrmG203HYS8\J'=hUrR>;
U"P9nF5$Cn:2g[sXmaubKFtHZhQRH0WJ_))PAfOGV&-Qq+OUBQ_^&T2T<'rRgpiTE
U"j%TU0X_ji^D8Pj;jfARI*iP_=(]q)05-l%O,jDMS(j8'SoTxYC:,,C#8:3O^yH>
U"qgP^H=/2Dr'?L.6>\<B>HbfGk-0./GcKtfVJr>=.TZl9*6Y:1*N.U3+Udz--9(*
U"oDz9EDd.u*Hu^3^rC'uDl'Ts;W:fOD>uGaT(u+^7G<Nc]n.L1#VM&nA2m\7?SoG
U"oZruEkVXWXc^w#(WK3j)U9ZM*W2lEM4*jtdoa28IoHL=H^C_-?3V$TMAzUC]7k<
U"ipjNxE#-l'JLD)xch.5PrXb$wk^Hj'*ZeVr\h'JKn1SdiPGDmeIxJzI<\CThi3Z
U"JNB$KvA3vH%02i.AqbKDr\Zpk_).mfi6m+\5aflcZF::9vb&+G-sS#R/K\p1171
U"RYwE0UWWy5\+iZCxb4Rr4V($l;Y*(5\rl(/ItdG=K3Pc:z0\zu7k_,Ll<2-EXjv
U"Pd]6e'-0%n.I$<E6W[mC:EIFrWj1.b:8w=bMSe\bZb8UhrOWM39hNe]K*F\VYn.
U"6HPsvDz<E'^Pxn2)xb7X(H1KB=mm(omyvoGnmXCQpm*UQBRvKV2N=3nhVde?gtz
U"cs.iq$&(hxt)m9b3CW9MU$J6*M$7\/\kj_YW5.iikrIAnX/D:TX25c_=i\k\ps,
U"A<yG-BsTu%p()9%%%%-I%*nG1IC>q&\L%%(%4,%%%)%%%%ifysffC*%.%E9O(J-
U"?AV#Fh\N_R8PtvtGR5]C-%iiiieMNBF3l=?%%up()%9%%%I-%\\AGI&)%%u7%%%
U"%K%%%%)%.%%(j[fwX]o^WY^)Q_+UF[+E_-]^'%%up()%9%%%I-%gjnGI=.7ofm%
U"%%%oG%%%&%[%%fflN:9;[e5+YqmNqXRFTIq/QuIP%YifVq<Ba.WMw:7DSG6KEqU
U".j3oacgX3boV4T+]#nqXgE=RJ(P[65Fj%ka7p%GK;;s.eLWbnQRi*Vg=6F4o_A6
U":_VdI6P*c#ifAW&c]8$dGH]=uOd]u\d/sSsP1/;<v':OkgTmM]Xi22>QLGXF=3C
U"g01s'RP5=kGc.0Vj\1lZ++jV^h\NX[9X/W0&=UsOjJB$1d,bP.6mdIg(E4EXq.C
U"Dx*\j^w3sbh=>lOn?RZ1bl0rp5/Q;*s)2t<vfgrp.n_Hrd?M&1jii%iiii%iiii
U"*wRtu%p&'9%%9%%[%-%c)ZGINGX8?u[%%%R%%%%1%%%%%%%%%&%%E%%%%%%%%%w
U"zs%knwx%ySgf%yup&%'9%9%%%%-L%HmGCIZ'i'=X4%+%W$%%%/%%%%%%%%%&%E[
U"%%%I#%%%(%trfs%VSgf%xup&%'9%9%%%%-I%*nG1IC>q&\L%%(%4,%%%)%%%%%%
U"%%%&%E%%%%P%5%%i%fyfu%p&'9%%9%%#%-%\)\GI&&)%u7%%%%K%%%%)%%%%%%%
U"%%&%%E%%(%C5%(%(jf%wup&%'9%9%%%%-L%gjG=I=.o+fm%%%%oG%%%&%%%%%%%
U"%%&%E#%%%w%5%%f%up*+%%%%%%*%*%%*&%%'46%%%%%
END SUB
CLOSE:IF S=12AND 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
