'=========================================================================== ' Subject: DOCUMENT INDEX VIEWER Date: 05-09-98 (16:33) ' Author: Edward Blake Code: QB, PDS ' Origin: blakee@rcsn.nb.ca Packet: MISC.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"DOCVIEWS.ZIP",4^6:Z&=7405:?STRING$(50,177); U"%up()%9%%%R-%gQnxI*i-qV5,7%%.#%%%0%%%%it(h%nj&&SgfOxF(<+t\k5]wC U"Nx,0ck'/z3Yr.h3IbcB*B)lGQxf=9kJla;)3[BA.*M8%jxfNhVD5-Ph.A4,Ux+g U"*6._MhHE5q6ERsnQ4qO6*gN1HYDPm>ED-1+lpR-RKh)KcXlr$X5/n]G+h_1S&0Q U"=IY_m=s_oIXTQ6Sp22<_9CAHL1TKyt8XhXAun8x.RRlWPOG7;u.M&/7KUaCPVGn U"QS;)nydN1Ut^xY\WaR,:2*BKTZkXn8B9OOD7'fke$Yn&Vh4JWZzgi]f;rVbXgu:TW&Q=PWfb#^-LzZj U"w>6424^oWa7;HDKFJ2RrS=jNYR&p,>I9muneBS3JRhNq[XNH?e;y]loHMe>ZqBL1.[mj18 U"W0PF6K(rOD\GSSD8_^L0\7nMM;(L0)./rl0N_1?7RMHA#.;n?%8Tjg8lcb:Ijsm9u^)9*r% U"#gi5SH+YQl]5 U"CcbCf*I:o-+;eQcG^R15?BRFZbj([DO>%0j-jkXDPj+7En.#4pFY_])e,cq&Zom U"E0pYRlqbY:a3P5NXJinX:CsSK]Lj:4UT^=p0OU9/,Gs*qDTFH1ma(>>pw,X(l[J U"LW6F:0E0ghi'ik:s+/2j*[uSVqWi,L6eLTbAU%x/w9e7N2PpVF;5x/9h%?cKc,I U"v)7%z*rsH4mWhf0Giw$A6jyKr='KO_mUuN5^ZnhK>inklF>Iqt>k^my-^ldr&d= U"N4fqMz%54wtC,fhd3<#.&K=\7$jXG+_q5GAo<41RDv,=k+ U"1t<\ZD:twtth<9iVkKb1U&$J6+H5JC'#7yfYr_n)eP=QZr\A-g)uO<9v7QacOE2,'ZGepe5-#l0mfGFmHfQB]V4-+.*>X$$nnIB&[b37(ZLJRd U"wg:qc::jiUQ=uCF'[*GCDI0.ShaJ05FA6]A53jA#:3Vra:457o*[/J]5K6Kz U"M7^:qp)2V)6aU[uQDTGDeE.nQEceVp9/UqO5-''OMG1Fz5[0YJ:ZcVDrZ0c(dd) U"txIhu9PHxVuMjm]z.6Ix=Mu.QH[hTEEQoowi&>?[4WW2CC%X\bu*CvYA'dpV\E% U"PwhvW\wfei19IBEBUO=rVn7YS3XmwL]8k;4O2Y3M1^d6asi:v(,d8jT.VLSAERw U"tXvFj^:?*PVo?[n'y2>)\5f(FR]LLlC]It22(1rIxsT=X U"GF2Th5p7\(ZHg(:4Jd-/D/d1TI2y/oaCn[UgeT[Btgk;wnN/$ve\[DF?[TCo#D1 U"o<,a$)vix$U)-AA.&drZ8uVc98g[G;,IQW/ApcSR\-ME3.GEoWdK-LT4be;4]o9 U"up-p]G_%B4NI2[BWZXmTTOG%5m1k:fVAhu-W.shl)2]3?14EGs U"[47^Z\;DG/hD%HA'i<;kVOR1HYs9#dT/=G.]oJ.6JrtzVl<#E[RMNH);0Z3-S(*,_ET'#g?Tlf2[1sgY+KBC:Ao4J U"0G*,wh1z22BTt2f-^Xo4PJ^T8YR9uNsTk_i*x]qwe,zIHK'gj59?AP%/DO8?ce^ U"Y^5L++dGN$pqTjJbd_=XgeOZZk0>Mhr]Cm41Po6Rxx%&up(%)/%%[%%%g_QxIG* U"xse#%%%%#%%%%0%%%%i.th%n(j&Sr%fpit(h%nj&&Sgf%x2/h#mfw&%nsrS%gfx U"2%/up(%)9%%[%-%]G'$Ga)4u2Eb)?*S7MqsYLYrDn3[T.2/iYIjW$BPKuh3P>kA*C#kcF U"?Q^h,i0VY/PTIt U"qwH&l]HKwA%9>BDBYq\n<9th?$20og7_Yh&STtiSE'V#?NS]vt[VtXd9 U"I5'F:cF-%3Nh:IYB+7]d(pCo+M>h6Nvv7S)jol;K:WEME%&ovNRwlkuLKr[[Q8F U"biFg*H&lWb#Begef_Qx(blgo;:2fRf\mi6uJ'1nxJddK0dI=\og2v&yYOsjDAti U"GR:OZ[dWn(GTlu4)>])LK(u%p()9%%%%-O%nLx+IVFl%do%%%%s%%%%0%%%%xfr U"%uqjV.Sy'y=0BAQ/%%qitT[=UDQkyTtcu]K?UM57LBTa[K=7Do%qs3T2f6Xg:k1 U"*g)=MvO%matF%dTzF%LXTzM^fZfoDV(+aa*7A%)%up%()9%%%%-%3vLxIoo.2n% U"u%%%%y%%%%0%%%%xfru%qjWS(y'y0HBAQ%p%q=5iua[MpGT[=3UQkyqTcu]uKUM U"5I7BTaG[=7D)oKs3LTf6Xdgk1*1g=Mv%Omat%FdTz%FLXTLz^fZbfDV(9+a*7'A U")%u%p()9%%%%-L%pOx:IAjV%mb%%(%*%%%%.%%%%nsy%wtSg%qgx/HBAQ%C%qiT U"Z[=UQJkyTcuu]KU-M57JgBt/)2Wp-n(jX7T)faSum-i<.Q]^f3&s;fZ-;N#f'N( U"%u%p()9%%%%-L%BBxRIUGn-Gr&%+%k*%%%1%%#%rp.%fxhn%XSgf1xLcf,^SU5b U"ThmueVLet0nJ]4/(RV&uh<6T3471LUOReDC,?(H U"T&[J_*Bq=Gj2hh4ZE9pImW4hRZQ2Vm3iJfp>>h5b'=BDhX18mJD# U"iSkd\s&[syi5[rw#uh-R%iQnQ1:Mmj+'t>Ej_Oga]-4S/tg>8$v[lFouiXUtcqh U"^7nNj&T7L\mGs8d-LKQmg=[bc:2zDKOcuxKR:sK2[Ickk&2Iek:730-](ys;'\I U"as?;\]h'\IPs-+[I2BwWge,mX_bj.5Z][t\JvZ1rxenE)Tnn4qvA'w+up%()9%% U"%%-%28BxI:;J4y'd0%%%6d%%%.%%%%jiin%ySgfaxf#fsw\Aj9pw>$hCKs)i,52 U"BJO2F_X7/5%B&R^e;';w.^QEz$.4oe4,G'ae6k\-G_HiqHA[YXauEPZ4(p=z*he U"5IsV:I3Jq)r/R'c>h8-UlX]V:Ls7i0p+R3WajT7Q#CH'ftz=Q\8$]tFqHQ9BeoA U";r2'E0lQ#chLTLcHDcQ_j'BFZcju2?:I-+6sCr/Jg.\l0$P#VY,SAha U"LW?uEe]]?*O9>TG5Y+#=AG8QGpdlb*6ZU/=KY#5Q&_J#m]0/0V)]fIMOiEUH/J\F]Y)o U"_n37?)X,]p0AF.&H\)iJQI*T[vs&q00\PD6-a5GFw4?9,]8nQg7h3L2M:Hb$7Uq U")&%5R[:<6swL]k*F/7)i,*61Q=/?EGRJ+ut0wN4Y^\pgpulk1+/+RD%#NV8]pU. U"p.V&>>;_HLm>96''\vAkkE-Y[)i\+G;I^aT&WyaHVQ5YobGs?B1+Z4=_VZ^C5CF U"?sp^q/N8vK5xFsMyP,DPS=av]d9KFGqB2O)P]r1^00jaD2sn7^v7P00F/cv.0G& U")>p.'Q#T#UP/RRB[41<79L-T3kkTmNX(Lbc9./: U"gYJ8Ly\+?0T[-d;5R,'XBSk&J)*H#r_ZW-T/kD)l(Wpv',D?2dYY&0T*JxPGIaq U"X4$\?#R7Oiw;J_:Jpq,wfROF8SIGs3atA=pDiq3)yoB^Xv%'^lMcg_cjZK$Q7y7 U"uXW+F/$,%/'&Da3D]Q7yX.j=*;$v'V4YT/$hLf(:ZIuaq;IV:<6hZeqd1[KiuhJ U"'a#QFMH>wJrFlLZh4xJ[&JiY27>pRIUEI;45X&XwI'ngnS9;E2,qJw/V&&Zw%j.e&u0(;2'wtfFtk%?KcHRp9:ByqW2fO:a^8.x U">(\WgOn73XJ4Xj8Z1:pHDFoqIS0+EapDbvthhdIYM_%5f-:$YOjE4z7TrpyXCIU U"flqK%CP7)oYN_iEa;&rSZ%NHf+F<&V1h4GEWW+8CEoLVB[bP1e+N60[fnelJ:&p U"ET*HKXG9^AK,+NT6t(cfr&+:q:Ve$nVUV(1B#'imIvjSXvFuwS3W,o/)Rv?+V6GiP1aK,6Gb8om8C; U"P=O]Wmgm\5hTN)$5pPY/JtPDb?ipKGFrYGIh&Na[>r'(.b3II;PYr?5$w#J.B^U U"DUwVw]CY\>-f5B$T\$5Ej>&b9xHI,HDt4ateWICi4[oZHAXJ:S7)Wmkh#?Z7r4k U"Cw6:>dgg6LwsjT;emCcC-hmGW'>2&L7k4-qEV6j9&9nc-dBAMER^+j'54jc3=D+ U"IoG\xYaA6s#I)tc*=VcJ]L$n(1^MjW<4+&ZW.X&=\52aXUfTQ]^,4)hMhE(U&xm U"pQ^BFg94_W]'M'4%^8E]-c;EB6^o=)s+4G,IG0T+.g)YU/jsd^+P0nlv[Spgm-L U"I4p_ZC\tCg#7k23^185&J:-LV[/X9^L)e4%>vBvR52J*4$;_S/TfWZfD+0(pOKZ U"STs(&7:J8[H8n#m6[aN6M27XOpDic.WN)Di<3Ma_Ql_RaF,oJIOXzf9y=yqmH2h U"ss%O'tg2dLdfN^ixow0k/#Uso7D[,HpWag9KVg2b?NK7TU*N77.7o?'G:Du>'gT U"qw<6JWW\,)l-6$4a//W5\JQLnW5\gYGC*P9e5X\%[\o[5rRTCkGKodb>IJ6uO[d U"1tO^/X0_46vLAq+P%dhwa\o:L*0N-7W\1>aK\[zqyGBmCP*sB8=+pUL#3#j:?V% U"zQaIA4JQi//L8J9v2klfgot[[g$uX,n$ZfDkFLp3fB9:1QCNs\ua#.]L3>B/>Bzx7c U"W+ItFrY%D?-9f%J*aCbaP)Wpl679>9,cb7ai/oV7O8QX8HO[?1rDy*k8TSnq1=x U"RyUIa+gO.YX/54%4oel*iCW#U$\t4)(p)%Q/*]ES U"Fo3;wW]\\C;,-0oDSA(N3p(/n9CRqWI U"i9+)svY#:a)'Ck3NmRb+Qrmh0d1:rO9Hr/]2)D'V%#5gjh5Od]>a3$DzoI8\SRm U"/nIw:^'kxKq(LdjZ+s(r)3KLlzM$&7NbS&gZ(nQEt_5x\iH-\7l=r$UPAis)6qw U"GBl[zxO6&1TQZk,7wcop,&V6vGETPhb4D8Fc0nekp<0:Uz-__osVEXp86h.pc:X U"t%GdxawgRWm(>gd6L$qg*xZ59rE$Zw]_$%sQ;Q.MfT)KT:)KT)GKT)K9T)u;/j% U"xybcg'WjYmq2-Q'\QjLo-s(uy-c=xcb'^SLUUYMbP[9R*ZVtx36aOMPZuQZnjdU U"qQQ-69<1*bFwa?Hrfcz?,qWQ8^>bBESP5v#zd7^V[d5aj^ra\HgvUe0: U"E'kE,/tfm)&[iyrxC6-1[lj,&.M2$62CN0GHiMfvmzN>fOF_1jW;DO:p^yE6Tgdg-a81(bkoKp'fkGtZNHEth U"&y-d^,cj.AZmfN#n*7U U"paRO$4\[A%+&zyB+ U"*o]_p.RgFF5&qR[Gf9aC\>uEBr9i[*9Q'MqzOzW;.>ZehDVPrwCs9=.qLM'iL4m U"rtM4t U"bSqSePLJ*z6s4M687?c3W-L.D0>qSS3+#\gg,'S#FvZ)/XiXi:[Mn:7ccBW).,5 U",V>oe1\p*l:^lK?QYssM8;?P:80?:tgrXkaqN_=gbJYQ,_qK6T?%AT]kaA085-M.MJZ'w:1rh>Rb^bmD^ U".e&I',%O+M,r.-&)BW^HCTgX\7>:lVmo'oX$>3N,h7-EKLniDNOya'.%%5)%%%0%%%%it(h%njA&Sy'(y U"4xp,>TU1T7#iN:EAR+1I=E=cSeWm**0&[6eI1b'DWB0Ivi^aZc]X^qcj'>\AwIk U"l\pohBAc^kS/*T_Pg3;b/rEND3RtS&iOjZn;vZFzY,VKG,10#75KU;S_&jPq0Sr U"U$Q1j5^/Dz&'Wo*:+d)(F8ig03S'*^e?%q'<_^aqc.F^Q&wtVdtT'f;7CX8mG2' U"%P8_NfIAlgyq$+EBtfIUaTV+0brZClW#P+BhEuQa;DX+I3/DD/H*EUD;;g].D?G U"A#imi^GAJRtU-.wd*2/ru^5D'4,u'C+)$?KTjlt)sP*Vo[5ntByRekmv24,dV,c U"R/cDDw]lMZX,j5D)XU5pp\?*plKm:)eJIOQuY(b.wB.I$K18MCp+fr5iO0:jQ99 U"u0_[W)p'HR^7t6&FH+'JF<)NS:,h'ECbHtbC8:l>2k'&Ah]v_EHj,W*9uuXJ41D U"=QSzF*hM7lR]/;c/mYZ^[jmWm#-EIe,Q[hV+[NaDXGR.84s7\wGLQZ*&dFSGH%A U"Qu_&Nszz$04,^w.$.wI>/n3-*J>nWYdDKkC>hB8o&M.I?_HA6$jYGXSp'/R U"=(&WZVo,,CbAHxo?DaTAJQhe-oc-E8fV2,^_/2[M^+Tn&r^M%WG,:xD2;WC9nI0 U"Ir:*qb*vEgKS=(o^)d8i]$f2L^pxhx6F^8iNh+Zq28%BT#a1ll?i0pDQ]#/GeNO U"tn=5e+T3r6dl7U,0?p\YY+'PD)tj6p%l(\^&Ppg%M2Gf/7GS_MfH;6N-&T:3mX4 U"v/+H-Kc&R3YN&O[kNT4^Z.%up&'%9%9%%%%-%3gQxIu*iqV%5,%%'.#%%%0%%%% U"%%%%%&%E%%%%%%%%%it(h%nj&&Sgf%xup&%'9%/%%%%%O%gQxXIGxs%e#%%%%#% U"%%%0%%%%%%%%%&%E%%%%^%,%%i.th%n(j&Sr%fpup%&'9%%9%%%R-%]'K$Ga<&g U"y9&7%%Y'%%%1%%%%%%%%%&%%E%%%&L,%%%hmfw&&nsr%Sgfx%up&'%9%9%%%%-% U"3nLxI'VFld%o%%%%s%%%%0%%%%%%%%%&%E%7%%4-%%%xf%ruqj#VSy'%yup&%'9 U"%9%%%%-O%vLxaIo.2'nu%%%%y%%%%0%%%%%%%%%&%E%%%%S%.%%x%fruq%jWSy& U"'yup%&'9%%9%%%I-%pOexIAj%Vmb%.%%*%%%%.%%%%%%%%%&%%E%%%&v.%%%nsy U"w%tSgq%gup&%'9%9%%%%-L%BBxRIUGn-Gr&%+%k*%%%1%%%%%%%%%&%E%%%%0%/ U"%%r(p.fx%hnXS%gfxu%p&'9%%9%%#%-%8)BxI;bJ4yd%0%%6%d%%.%%%%%%%%%& U"%%E%%%%S1%%%jii%nySg%fxup%&'9%%9%%%#-%xSJxI2U/lq>'.%%5)%%%0%%%% U"%%%%%&%%E%%%%e=%%#ith%.nj&S(y'yu%p*+%%%%%.[%.%x[&%%Q%?%%%%% END SUB CLOSE:IF S=61AND 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