Т > DateEnsure 1.28 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 ▄;Т v1.28 18-Jul-19 Updated NetFS functions for ARM CoPro √: ═*ч 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% 64Рf_date(mdate%):Sdy%=day%:Smn%=month%:Syr%=year% @4Рf_time(X%!17):Sh%=hour%:Sm%=minute%:Ss%=second% J/!X%=ex%:X%!4=ld%:РDate_ToOrd(X%):Lc%=centi% TFLdy%=day%:Lmn%=month%:Lyr%=year%:Lh%=hour%:Lm%=minute%:Ls%=second% ^?Яаf$,3);┴(13-╘f$);єd(Ldy%,2)"/"єd(Lmn%,2)"/"єd(Lyr%,4);" "; h;Яєd(Lh%,2)":"єd(Lm%,2)":"єd(Ls%,2)"."єd(Lc%,2);" "; r)Яєd(Sdy%,2)"/"єd(Smn%,2)"/";Syr%;" "; |/Яє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 0<Г(ld%─&FFFFFF00)=&FFFFDD00:Я:А :Т Master utility :8Г((ld%+&1000)─&FFFFC000)=&FFFF4000:Я:А :Т Screendump D5Г(ld%─&FFFFF000)=&FFFF0000:Г(ex%─&FFF00000)=0:Я:А N6ГSmn%=0 └ Sdy%=0:Я:А :Т No date X<Я"<--";:РDate_FromOrd(X%+6,Sdy%,Smn%,Syr%,Sh%,Sm%,Ss%,0) b0X%!2=ld%:X%?2=X%?10:X%!14=at%:A%=єfile(f$,1) 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% 4#?mem%=d%:mem%!1=mem%!1+d%│256:А >: H$щРDate_ToOrd(mem%):Й A%,B%,C%,D% R@year%=0:month%=0:day%=0:hour%=0:minute%=0:second%=0:centi%=0 \-Гmem%!1<0:А:Т Problems with negatives ATM fFD%=mem%!1│&83D6+2447065:C%=mem%?0+256*(mem%!1┐&83D6):centi%=C%┐100 p>C%=C%│100:second%=C%┐60:C%=C%│60:minute%=C%┐60:hour%=C%│60 z8B%=((D%*4+3)┐146097─-4)+3:C%=B%┐1461│4*5+2:D%=D%*4+3 └.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$) щєNetFS_OpN(A%,T%,O%,A$):ЙN% QГ⌠>&FFFF:X%?4=T%:$(X%+O%-3)=A$:х≥&60048,A%,X%+4,O%+╘A$,120╦N%:ГN%=0:X%?3=0:=0 ;Г⌠>&FFFF:ГN%>&FFFF:X%?3=?N%:х≥&2002B,N%+4╦$(X%+4):=X%?3 $G!X%=0:X%?1=O%+1+╘A$:X%!3=A%:X%?7=T%:$(X%+O%)=A$:A%=&14:ж&FFF1:=X%?3 Ъ