Т > DateEnsure 1.27 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 mdate, sets cdate=mdate ▄: √*ч ctrl% 31,name% 79:X%=ctrl%:Y%=X%│256 ═: ╙$Я┴15"Load&Save date"┴15"FS date" Єfs%=єfs:Рscan ЎЮ х: рщРscan:Й idx%,type%,f$ эУ:f$=єgbpb8(idx%):idx%=X%!9 Ф4Гf$<>"":Рfile:Гtype%=2:Ъ"Dir "+f$:Рscan:Ъ"Dir ^" П Щ f$="":А З: ?щРfile:f$="@."+f$:X%!14=0:X%!18=0:X%!22=0:type%=єfile(f$,5) Dld%=X%!2:ex%=X%!6:ln%=X%!10:at%=X%!14:cdate%=X%!15:mdate%=cdate% ]Гfs%=5:ГєNetFS_Op(18,Ґ64+f$)=0:X%!15=X%!10:X%!17=X%!12:X%!20=X%!5:X%!22=X%!7:mdate%=X%!15 "4Рf_date(cdate%):Cdy%=day%:Cmn%=month%:Cyr%=year% ,4Рf_date(mdate%):Sdy%=day%:Smn%=month%:Syr%=year% 64Рf_time(X%!17):Sh%=hour%:Sm%=minute%:Ss%=second% @/!X%=ex%:X%!4=ld%:РDate_ToOrd(X%):Lc%=centi% JFLdy%=day%:Lmn%=month%:Lyr%=year%:Lh%=hour%:Lm%=minute%:Ls%=second% T?Яаf$,3);┴(13-╘f$);єd(Ldy%,2)"/"єd(Lmn%,2)"/"єd(Lyr%,4);" "; ^;Яєd(Lh%,2)":"єd(Lm%,2)":"єd(Ls%,2)"."єd(Lc%,2);" "; h)Яєd(Sdy%,2)"/"єd(Smn%,2)"/";Syr%;" "; r/Яєd(Sh%,2)":"єd(Sm%,2)":"єd(Ss%,2);д23,Ґ8); |DГCdy%+32*Cmn%+32*12*Cyr%>Sdy%+32*Smn%+32*12*Syr%:РModifyToCreate ├;Г(ld%─&FFFF8000)=&FFFF0000:Я:А :Т Loads to I/O RAM ░>ГLyr%<1981:РShortToLong:А :Т Long date pre-AE CГSdy%+32*Smn%+32*12*Syr%Ldy%+32*Lmn%+32*12*Lyr%:РLongToShort:А ўCГLs%+Lm%+Lh%+Lc%=0 :РShortToLong:А ╦CГSs%+60*Sm%+60*60*Sh%Ls%+60*Lm%+60*60*Lh% :РLongToShort:А лЯ:А ж: Ю%щРModifyToCreate:Я"MOD";Ґ8;Ґ8;Ґ8; Й3X%?14=at%:X%!15=mdate%:A%=єfile(f$,4):Гfs%<>5:А Т+X%!8=mdate%:A%=єNetFS_OpN(19,5,10,f$):А Ч: 'щРShortToLong:Гtype%=2:ld%=-1:ex%=0 9Г(ld%─&FFF00000)<>&FFF00000:Я:А :Т No filetype └Г(ld%─&FFFF8000)=&FFFF0000:Г(ex%─&FFFF)>=(ld%─&FFFF):Г(ex%─&FFFF)<(ld%─&FFFF)+ln%:Я:А :Т Loads to I/O RAM &<Г(ld%─&FFFFFF00)=&FFFFDD00:Я:А :Т Master utility 08Г((ld%+&1000)─&FFFFC000)=&FFFF4000:Я:А :Т Screendump :5Г(ld%─&FFFFF000)=&FFFF0000:Г(ex%─&FFF00000)=0:Я:А D6ГSmn%=0 └ Sdy%=0:Я:А :Т No date N<Я"<--";:РDate_FromOrd(X%+6,Sdy%,Smn%,Syr%,Sh%,Sm%,Ss%,0) X0X%!2=ld%:X%?2=X%?10:X%!14=at%:A%=єfile(f$,1) bЯ:А l: vщРLongToShort:Я"-->"; ─(X%?14=at%:A%=єfile(f$,4):Гfs%<>5:Я:А ┼BX%!8=X%!20:X%!10=X%!22 :Т Creation date&time ■:X%!13=єf_date(Ldy%,Lmn%,Lyr%) :Т Update date ·:X%!15=єf_time(Lh%,Lm%,Ls%) :Т Update time ╗"A%=єNetFS_OpN(19,64,18,f$):Я:А ╡: ╪#щєd(A%,N%)=б"000000000"+цA%,N%) ф: пBщєfile(f$,A%):$name%=f$:?X%=name%:X%?1=name%│256:=(╨&FFDD)─&FF зEщєgbpb8(ptr%):X%!1=name%:X%!5=1:X%!9=ptr%:A%=8:ж&FFD1:ГX%!5=1:="" Д7A%=name%+1:A%!(A%?-1)=&D20:A%?(ї$A%," ")-1)=13:=$A% Н щєfs:ЙA%,Y%,E%:=(╨&FFDA)─&FF Ь: ;щРDate_FromOrd(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%>146066:d%=d%-146097 =d%=d%*&41EB:mem%!1=d%+d%:d%=((hr%*60+mn%)*60+sc%)*100+cs% *#?mem%=d%:mem%!1=mem%!1+d%│256:А 4: >$щРDate_ToOrd(mem%):Й A%,B%,C%,D% H@year%=0:month%=0:day%=0:hour%=0:minute%=0:second%=0:centi%=0 R-Гmem%!1<0:А:Т Problems with negatives ATM \FD%=mem%!1│&83D6+2447065:C%=mem%?0+256*(mem%!1┐&83D6):centi%=C%┐100 f>C%=C%│100:second%=C%┐60:C%=C%│60:minute%=C%┐60:hour%=C%│60 p8B%=((D%*4+3)┐146097─-4)+3:C%=B%┐1461│4*5+2:D%=D%*4+3 z.A%=C%│153+2:day%=C%┐153│5+1:month%=A%┐12+1 └*year%=D%│146097*100+B%│1461+A%│12-4800 ▌А ≤: ╒Dщєf_date(d%,m%,y%):y%=y%-1981:=d%+m%*256+(y%─15)*4096+(y%│16)*32 ╛*щєf_time(h%,m%,s%):=h%+m%*256+s%*65536 І: ю0щРf_date(d%):day%=d%─31:month%=(d%─&F00)│256 й+year%=(d%─&F000)│4096+(d%─&E0)/2+1981:А т4щРf_time(t%):hour%=t%─255:minute%=(t%─&FF00)│256 ч second%=(t%─&FF0000)│65536:А Х: Р+щєNetFS_Op(A%,A$)=єNetFS_OpN(A%,0,7,A$) ЭQщєNetFS_OpN(A%,T%,O%,A$):Й N%:!X%=0:X%?1=O%+1+╘A$:X%!3=A%:X%?7=T%:$(X%+O%)=A$ XГ⌠>&FFFF:ЦN%=4╦X%?1:X%?N%=X%?(N%+3):М:х≥&60048,A%,X%+4,O%+╘A$,120╦A%:ГA%=0:X%?3=0:=0 ;Г⌠>&FFFF:ГA%>&FFFF:X%?3=?A%:х≥&2002B,A%+4╦$(X%+4):=X%?3 A%=&14:ж&FFF1:=X%?3 Ъ