'===========================================================================
' Subject: AUTOMATE LAST UPDATE OF WEBPAGE    Date: 04-11-99 (21:14)       
'  Author: Jeroen van Rijn                    Code: PBCC                   
'  Origin: solstice@xs4all.nl               Packet: PBCC.ABC
'===========================================================================
' Automatically update the last line on webpage that tells the user
' when it was last updated... for PB/CC 1.0
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"UPDATED.ZIP",4^6:Z&=3732:?STRING$(50,177);
U"%up()%9%'%#-%:w8ZKRR-2TQ'7%%Z*%%%0%I%%D?M30C4J3S10bB&yT,=Se58Ll
U"[DjkDaQu=+e5EJem]M(V<f5,D-P;Mt:rDw_BPqRi8hKs':w,*nFH:)G_Ui0BUdW
U"RVS?5?&-%6BdIz_5:]1?/\MCi8GLX2<m.oCUmq?GvLNKqNV(R6'AA]3%AW[^dB0
U"53f%Lx])biRacTB+c.VIv0akV(1A$'I&$t%JQZUb3;=Vp6\ygf;ALn*V<iMbvq=
U"gY>K9)Nw)Q9=;e&DB35S#fzdN0;1qn+#%AkGI+4LmR,L)PWO0kU$zMe$*pj=^sn
U"D\+p43BEho^x6:NL$+1]YTKj\b:/-Cov-Kj'jN%21W67W/hE_0BN3nx,;lWF$;m
U"+QD9.[s*Z5e6Yb/NTA+WajBL-#721zv.59dn_^zd>Z^k\YdDa<e(%=vS&>T4[Nc
U"Th\r1Xoj?iq(2ctlNG7),DUmMa472M[jtYdiC$0O?RY>paB-hoMOm%.;aK;+z\u
U"CuDAi)qD3?5ABS+:*%9HrB#X<s0IyCR7GFlO2$,,F2GsA&8dY)OGpbwK?nu+pew
U"gK2oduS%hDC:v#X.LxZ5m.Sb')SkfEkfZV]%-^]HzXv:$17<O8%%4\)B6vD<,L=
U"HUxMoYXeFtV&?:.&N[G'9<Zx]_W%5fS(YOdNxhvri+>c*sk,S#T6Jb9Ry.,Z%EQ
U"KL\?ph)3R5_<aJuMWck.2]*PuylDq8^>En;YLYhs+VeR/AuBx?3M%(up(%)9%'#
U"%-%hDuZKLL'S)r[%%%a%%%%0#%%%DM?30CD43S2M56L^063RU11SFI-W:oJL+UU
U"p%Qzeqg1ly7AP&(x[q7JbL4>.'&ysBQV(vlL&6J$$3%DiM4,AIW>daBiNkq%rdZ
U"6IDrO&[I*/4v;AjopLW>XYT#&=hS\V#UK.%23>\CPM2q(cU(ip+SR3L'X*.ZlJ3
U"8ehMb4Zh?gW_rZN/s0Hpg+m7Y>uh_\n)nU?<fWh4DA-G>Upm$8N[M*M%%up(%)9
U"%'%%-%y_=UK:RwoGZ[&%%w%'%%0#%%%DM?30CD43S8;2>>v*6]#FF5wU8D_ZU)m
U"N73[M%&t3dXJTl)7M)xmG/8;A(yPYQn\+80XzfR?A)7[nD+_$<t5q>L%c[#u-ak
U"/g(MWxdN_Ywm;zq/$^]$uLhe<18(C'4=.'PP5]#rUh<j7f?Zsayd\Ux.SkxChl+
U"DQHSB'_m_pC64B_8XW.'qM'6K$zSkT:tYgWn_,#3AOZ$nWUlV:'O)VZ6oEQgb)X
U"/%N/pP*3-9,Lg*[D)bt02t)j9]9lW,F3pj?;*Y#A4rKpbo&jgs-:5t#Z7PC,HY$
U"T+=[%mCCLaEW5IFMUAQ,&a]xZ/^hPP.?p5?q,rLMaqkLM4rC%-Y:S>)XeDD(LHa
U"%ocSrZuTSoOgCCWs7^c0/oR7FrQ#QaB1o8b]-iKVaisB9)HDqh3WVf>AGRk[q[7
U"JZ,-\+HuWMat+aI7-i]xIIj#$+QM96aV<IsMYE*xl(9o8x-#CYNIEAi&_6Fx)H+
U"'8OM:Q\9.wE*e,t4$>,jG4'$knn7kmin^%Tup(%)9%'%%-%($4WK0Ep$zh#(%%s
U"%,%%0#%%%DM?30C)43Su7gw>y*6>9lF9xR:Ps%[a^B,w%.M=$KmD7SD1u/<I+,R
U"k=2$O;g*aq8[W?/GeA<eY$rDc0^890lLV/<<8C:lpc]8EjCO9b1VLY3t;tMh&8C
U"3;N,q5>_F>JhpcP6_?Ib1?,ibal:$UT7?>Ud^25T$hmnR%#hbAMj?a]WFB?PHuO
U"dc0]Gt,l+Dt'9ddk^C[YrIALNDqQ+kwgp1l;Q:qdXVNGA1kVuBxJ_d\zPg;DM^\
U"scQ/ucIA=vv?6P.<2o%d1+2h$^jfNf<;;mm^.wFuP2$7ti+EcAc_H9,QHr=C^]\
U"9t>I<t\B/1;%HH^^=bEATH'Rj(<Mv]W1q9%$8VapL8fc]):[9fBxjWwQC+WlYZ<
U"7wQDKgY%%<?zMf*4H.s%0?C+HTx:q(O)[EsrI<pbV&$rIu=$avf_XLnRyY/'(lj
U"#FcX%RpL(2#N^T>cpuv'm1\.t6e41L:_>$,pw0pmv1-U)HjI=6xtcDr0SxL?s>Y
U"ZP?WFM:A_X>gyRyF++1]sQ<O].)&Dz=1TsL?dWo,*=egS=R21;eLP(>3PKg'aiP
U"eE1<ASG>m8=PK$]qM%J\X09S[^#ASqMvo1[x0gc\nCXY],MGIk*(crk=5BoakM4
U"AjvO6[l%iIF;W09m'1?dQQT[E:aS-8m&5N]F((KOjSY44[vT-,BFk%m56?r\lqX
U"V5^$:h66^k)aN7XZccX?Q70$_T><gurK]7FdF9n/pWnM?r\Gn_jJO,7]]_$FI9S
U"sT+(E%2:Zia1PWO;*SH>Ig[C>e^VNaK?jGCVtx_>['ZHKCLWH6=xd36jHgrtVU5
U"s2mt5.Y:m6W34c(qqAL;2jiFY[c3MgXon>sS8^R1Z'SmsPG98qsY[D]&JW6^l(H
U"iphHo0^&ZbZI=q'1J?^*%'G$p7\&/H-qpB(plyBq;\hWF4U1EFb,H?WIE;i-2QX
U"b^Tb:9g'P$Gk9(Ksqtd=UQw^SYE[RmZ8tS\hF4exVNFjxK_bunb4pJXh4\9R<N]
U"K>TSaQz0r,Kca9d;jOBE$NOi3YVue#j$9-mG752n-1iT'qhrvvqdWq[j>CO93^i
U"bJLa2M+4k&.Xdp8NrxI<c2Oc)v6$tM9D68)J.HQ/7yz\OxaFIU+B]me9Z.cTr1#
U"KKt[kC%<SFaZ1HtFSBrHAXr4K3UG$=9Xz4m_*sN&u%p()9%%'%-R%w2W.KY&6+9
U"B&%(%o(%%%/%%L%D?3M0C43LSA2TLw,>j.U9LlK[d+H(Tjyv*+44aYuY%;#1uEs
U"&bKj;KUI-XM\;v,6wv1g6K'8\U.ht#KGb?K,,$B<5D4:5AWgRF/yk>hk+#D'<(0
U":j%HDZ)Mnp$w%fm(2rP,Do*9:NY*%s'#KA;PDP,D:531<?&<mFPoPTCBl)*iI>i
U"=0e;(a^KJG\5h1Lzy1(EJ(66BbWsvI>1X\),6?LnCM9as/u\\F_rQZW_0r)9Dw+
U"'5y%'S9[YC;i>v^#G9rHvmurD^jIH,$2UMXx9P&1nH+i#_];MSO4xW1QV%amla8
U"]1kW#MY^$bg1N%L%eZ+n_9m+M0B8Ntc<$A+B$sb_&[5:kWi&5*R<vDgncH?:-S6
U"rc)jGV)7R3rk3bd/S/dCZ96M_?<AlTF.*UwL):nLmA>'\^7kN79_,)z76l;.HeJ
U"$Idnm?FfSuEtg(#2slr]k;Hts([eQEO(AwI/Ge/'5u2fG2sMx'R*kugDhc<Rf')
U"PP^Z=f'wdpT&+R?N_(#92R8LT)_uh;U,PU&R2U(3nUXZMyMxViNNBUtB\xf$s0H
U"ePTdbG-h3kP%MD*M?'hHI\ik[a>.vj,%up()%9%'%R-%GxeZK$v2J4G'7%%p)%%
U"%0%I%%D?M30C4J3S3>_2LyT,9UU58L\qDJUR30HRSnj'I7[p='Tm';P_/DXETk)
U"b\%VKp]]lnIBnJ<[mD1+gafBG;k#XzMQ3ddKn?SxD/7)P)qx(vJ/t(i,sBGTK)?
U"fKfae7.1[&bwg?aE+5+M7-joM7(OKh=>%TsTsrr%/D5J*eU.-,)]SQc/PA:]^P_
U"1SjGUFZU6-t3'?4Pdzn^PcK5DCwBx^w-d4MBpD5cmx_vJ_;tP:L0YfKvVVtX<2Y
U"ve*CAA)jeYDP5,(i)CVMbBPX+zDd$U1(4,te)\[<9DcxfiU7JHmBb]7eRA5;/7:
U"n9rgg\)\GoE_s'3Y>?e]4nUfQ;w6:1RK?I/.%EM)c+<OuMSg6+0e*$_'l+.*T,+
U"J[<)0CD,-$maP%L830H*r9RY%%B?vXNC?.YDe.pZpS5PC)=HO8>=s64'oj>BNLW
U"lt%U3OYFxSyvak2=^tL,#*<$-Aw9mSICMv>#4/jb<waXqN^]u%EO1,Dh;X<i6XY
U"vF6vdl;b#XCD+;\I)QGq^sOLJwf6#n<jddCk)JE0\&zRcs)1*0rVI&<.d'&RLbK
U"I^(BlE]AFqGjPED;XKv7.uVus+hYrfHnq2kji2pE?\sZ<QU13dP1o((7TSV'v[t
U"9z>mT$7*$x%JH%WkjPd;mSfY%CYF[T'T3h&$-(ca'r*qfcb8]^ptDuD=fQ/8;?U
U"M/dJk$<FEj]A_Ed'__Yss:5V\1AYmg56m5ka(f-p;+%nRMKKNMq#IP5uEZe<-$4
U"'Ct=gqq$b:&XS%P/NoRUDI<ln&tGbPd\gY8W3fDaF6T&X;KC#aKN%&up&%'9%9%
U"%'%-I%:wZaKRR2'TQ'%+%Z*%%%0%%%%%%%%%%%E%%%%%#%%%DM?30CD43S1)0Bu
U"p%&'9%%9%'%I-%hu/ZKL'2S)r%7%%a%%%%0%%%%%%%%%%%%E%%%%z'%%MD?302C
U"43S2256u%p&'9%%9%'%%-%y_=UK:RwoGZ[&%%w%'%%0%%%%%%%%%%%%E%%%%F(%
U"L%D?3M0C43LS82>%up&'%9%9%%'%-%4(4WK60p$z&h(%%&s,%%%0%%%%%%%%%%%
U"E%7%%N)I%%D?M30C4&3Sug%wup&%'9%9%%'%-R%w2W.KY&6+9B&%(%o(%%%/%%%
U"%%%%%%%%E#%%%f#-%%DM?30CD43SA&2up&%'9%9%%'%-O%GxZUK$vJ)4G'%+%p)
U"%%%0%%%%%%%%%%%E#%%%W#/%%DM?30CD43S3)>2up%*+%%%%%+%%+%z&%%%N2%%
U"%%%
END SUB
CLOSE:IF S=250AND 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
