'=========================================================================== ' 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__ U"elr?t=v^;.&d?B1TC5ukTIVb5\f,$2/2tAj5AdG U"p0* 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\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&7oYwDWiWE#b^/kEiF(bDvfE9P8a1B>JS'phjZ$(1(Dq0^r\i4Mci8 U"<>jA<2B>7;]dbM?=i:=>n$%rcc8pxv,(bFt_mH0?$+D]-NV&a U">B\%$j3]+6/0G&c5\C7gx=gQ6JJ?)]gPQMJ8?=g*T*%H U"GzL(JJVC^X$7JaSUNNgk8cp8BDf/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,,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"vS/O#vQhAiH.#ZHQQ6q7g,nh+qXh$gG%kR);a\ U"#LUm'6Lu\kinDx_s8RGxs?Cm./E+5tugCJPcG?;&m$=yB,bIQhkWur.$JNIxm9YDK$'+W U"oH%bfuHgt6AOFvVE4XRuPglsb9NCJBYF=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_0M21F[RQb U"uud2u(8uG/'7:uS82*DPPHs'2D[QylPpMXmV8=[[BOvfmm'[TcL9$h*mah>]^=4hJKeSW7AwRF# U"7$XIVI6?;*CK/nH^7q%1',6G8sPW0[1ac]\<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:j:tNf+lIImj\dEH67\6f-k.h]w>7;G U"4'xYXN'U7.X;xNPh';9JJHkQx.Cr5rJvA2]5^aqH8J)fI&tHEjy[d>vViuBgCmm U"?;*RNCS*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-#+6FR=72FZ64^t.4iXXQH U"bLd0)Vz+=b;aWc2x\hR2a899tpb7U(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*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; 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>\HbfGk-0./GcKtfVJr>=.TZl9*6Y:1*N.U3+Udz--9(* U"oDz9EDd.u*Hu^3^rC'uDl'Ts;W:fOD>uGaT(u+^7Gq&\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%YifVqQLGXF=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)2tq&\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