'=========================================================================== ' 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(VK9)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\YdDaT4[Nc U"Th\r1Xoj?iq(2ctlNG7),DUmMa472M[jtYdiC$0O?RY>paB-hoMOm%.;aK;+z\u U"CuDAi)qD3?5ABS+:*%9HrB#Xc*sk,S#T6Jb9Ry.,Z%EQ U"KL\?ph)3R5_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?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+_$L%c[#u-ak U"/g(MWxdN_Ywm;zq/$^]$uLhe<18(C'4=.'PP5]#rUh)XeDD(LHa U"%ocSrZuTSoOgCCWs7^c0/oR7FrQ#QaB1o8b]-iKVaisB9)HDqh3WVf>AGRk[q[7 U"JZ,-\+HuWMat+aI7-i]xIIj#$+QM96aV,jG4'$knn7kmin^%Tup(%)9%'%%-%($4WK0Ep$zh#(%%s U"%,%%0#%%%DM?30C)43Su7gw>y*6>9lF9xR:Ps%[a^B,w%.M=$KmD7SD1u/_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>Icpuv'm1\.t6e41L:_>$,pw0pmv1-U)HjI=6xtcDr0SxL?s>Y U"ZP?WFM:A_X>gyRyF++1]sQ3PKg'aiP U"eE1m8=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>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\9RTSaQz0r,Kca9d;jOBE$NOi3YVue#j$9-mG752n-1iT'qhrvvqdWq[j>CO93^i U"bJLa2M+4k&.Xdp8NrxIj.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:531i 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'\^7kN79_,)z76l;.HeJ U"$Idnm?FfSuEtg(#2slr]k;Hts([eQEO(AwI/Ge/'5u2fG2sMx'R*kugDhc.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+=s64'oj>BNLW U"lt%U3OYFxSyvak2=^tL,#*<$-Aw9mSICMv>#4/jbmT$7*$x%JH%WkjPd;mSfY%CYF[T'T3h&$-(ca'r*qfcb8]^ptDuD=fQ/8;?U U"M/dJk$%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