ô > DateEnsure 1.21 4ô Ensure load/exec date and attribute date match ô v1.00 (,ô v1.01 24-May-98 Ignores if no date set 27ô v1.10 23-Jun-98 Reads update date from fileserver 0 ¾á È: ÒÝòfile:ô LOCAL f$,type% ÜOdata%?(1+?data%)=13:f$=¤strip($(data%+1)):X%!14=0:X%!18=0:type%=¤file(f$,5) æTçfs%=5:$(data%+8)=f$:òosw(&14,&12002000,&40000000):X%!15=data%!10:X%?19=data%?14 ð3load%=X%!2:exec%=X%!6:length%=X%!10:attr%=X%!14 úFSdy%=X%?15 €31:Smn%=X%?16 €15:Syr%=1981+(X%?16 16)+(X%?15 €&E0)/2 !Sh%=X%?17:Sm%=X%?18:Ss%=X%?19 %òLongDateToShort:Lc%=centisecond% FLdy%=day%:Lmn%=month%:Lyr%=year%:Lh%=hour%:Lm%=minute%:Ls%=second% "7ñf$;‰(11-©f$);¤d(Sh%,2)":"¤d(Sm%,2)":"¤d(Ss%,2)" "; ,-ñ¤d(Sdy%,2)"/"¤d(Smn%,2)"/";Syr%;" "; 66ñ¤d(Lh%,2)":"¤d(Lm%,2)":"¤d(Ls%,2)"."¤d(Lc%,2)" "; @2ñ¤d(Ldy%,2)"/"¤d(Lmn%,2)"/"¤d(Lyr%,4);Ä26,½8); J7çLyr%<1981:òShortToLong:á :ô Long date pre-AE TCçSdy%+32*Smn%+32*12*Syr%Ldy%+32*Lmn%+32*12*Lyr%:òLongToShort:á hCçLs%+Lm%+Lh%+Lc%=0 :òShortToLong:á rCçSs%+60*Sm%+60*60*Sh%Ls%+60*Lm%+60*60*Lh% :òLongToShort:á †ñ:á : šÝòShortToLong:ñ"-->" ¤çtype%=2:load%=-1:exec%=0 ®2ç(load%€&FFF00000)<>&FFF00000:á :ô No filetype ¸Xç(load%€&FF008000)=&FF000000 € (exec%€&FF008000)=&FF000000:á :ô Loads to I/O memory Â5ç(load%€&FFFFFF00)=&FFFFDD00:á :ô Master utility Ì/çSmn%=0 „ Sdy%=0:á :ô No date Ö1òConvDate(data%,Sdy%,Smn%,Syr%,Sh%,Sm%,Ss%,0) àBX%!6=!data%:X%!2=load%:X%?2=data%?4:X%!14=attr%:A%=¤file(f$,1) êá ô: þÝòLongToShort:ñ"<--" =data%!9=data%!6:data%?8=data%?5 :ô Creation time ;data%?15=Lh%:data%?16=Lm%:data%?17=Ls% :ô Update time %data%?13=Ldy%+32*((Lyr%-1981)16) &9data%?14=Lmn%+16*((Lyr%-1981)ƒ16) :ô Update date 0‹çLdy%+32*Lmn%+12*32*Lyr%<(data%?5 € 31)+32*(data%?6 € 15)+12*32*(1981+(data%?6)16+(data%?5 €&E0)2):data%!8=data%!13:data%?12=data%?17 :$(data%+18)=f$ D*çfs%=5:òosw(&14,&13002000,&40000000):á N-X%!14=attr%:X%!15=data%!13:A%=¤file(f$,4) Xá b: l,Ý¤strip(f$):ç—f$=32:õ:f$=Áf$,2):ý—f$<>32 v=Àf$,§f$+" "," ")-1) €: ŠBÝ¤file(f$,A%):$data%=f$:?X%=data%:X%?1=data%256:=(º&FFDD)€&FF ”: žKô Convert time and date to 5-byte centi-second count since 1st Jan 1900 ¨7ÝòConvDate(mem%,d%,m%,y%,hr%,mn%,sc%,cs%):y%=y%ƒ400 ²qd%=y%*365.25+m%*30+d%+»Á"120112234455",m%,1)+((y%ƒ4)=0)-((y%-1)100)-(m%>2€((y%ƒ4)=0€(y%ƒ100)<>0„y%=0))+36493 ¼çd%>146065:d%=d%-146097 Æd%=d%*&41EB Ð1mem%!1=d%+d%:d%=((hr%*60+mn%)*60+sc%)*100+cs% Ú#?mem%=d%:mem%!1=mem%!1+d%256:á ä: î#Ý¤d(A%,N%)=Â"000000000"+ÃA%,N%) ø Ý¤fs:êA%,Y%,E%:=(º&FFDA)€&FF EÝòosw(A%,D%,E%):êX%,Y%:X%=data%:Y%=X%256:!X%=D%:X%!4=E%:Ö&FFF1:á : ô Initial program: ÝòLongDateToShort *Fyear%=0:month%=0:day%=0:hour%=0:minute%=0:second%=0:centisecond%=0 4: >&ld%=X%!2:ex%=X%!6:!X%=ex%:X%!4=ld% H: R çX%!1<0:á \: f5ô If X%!1 is negative, following causes problems: pdaynumber%=X%!1 &83D6 zsubdayvalue%=X%!1 ƒ &83D6 „"centi%=X%?0 + 256*subdayvalue% Ž: ˜1centisecond%=centi% ƒ 100:centi%=centi% 100 ¢0second% =centi% ƒ 60 :centi%=centi% 60 ¬0minute% =centi% ƒ 60 :centi%=centi% 60 ¶hour% =centi% À: Êyear%=1900+daynumber% / 365 Ô4dayinyear%=(daynumber% ƒ 365) - ((year%-1901)4) Þmonth%=0:monthend%=0 èmodifiedday%=dayinyear% òOç(year%ƒ4)<>0 „ (year%ƒ400)<>0:çmodifiedday%>58:modifiedday%=modifiedday%+1 üõ )monthstart%=monthend%:month%=month%+1 Dmonthend%=»Á"031060091121152182213244274305335366",month%*3-2,3) ýmonthend%>modifiedday% $#day%=modifiedday%-monthstart%+1 .á ÿ