> SyncTime + 02-Oct-1997 v1.02 JGH: Can force date - 11-Aug-1998 v1.03 JGH: New command line (< 07-Mar-2006 v1.04 JGH: Command line found on ARM CoPro 2< 23-Jan-2007 v1.05 JGH: Sets HADFS date if HADFS active "":B$="|"+(B$+64) PC$=C$+B$:B$="":quit$="" Z8I%=A$,"-q"):I%:quit$=A$,A$," ",I%)):A$=A$,I%-1) dET$=time:M%="JanFebMarAprMayJunJulAugSepOctNovDec",T$,8,3))3+1 n1A%=byte(90,6,255): (A% &C0)=&80:*FX90,6,1 x9 A%<128: "HSETDATE "+T$,5,2)+"/"+M%+"/"+T$,12,4) <$X%=24+T$:A%=15:&FFF1:C$<>"":"Key0 "+C$:*FX138,0,192 os(quit$): : A ONERRORIF(ERR AND&F0)=160:PROCGetDate ELSE REPORT:PRINT:END : :ݤOS_GetEnv:A$,A%,X%,Y%:X%=1:os%=((&FFF4)&FF00)256 Mos%>31:>&FFFFF:X%256:ș"GetModuleFileName",0,X%,255:run$=$$X%:=@cmd$ CA%=&600-&7B00*(>&8000)-&3F00*(>&C000):!(-&108)=@%:A%=-&208 ;?(P-3)=0:A%=&100:<&FFFF:A%=-&300:!(+512)=@%:A%= cA$=$A%:=&8F00:run$=A$:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ UY%=-10:A$=" "+A$:A$=A$,2):A$<>32:A$=34:A%=A$,"""",2)+1 A%=A$+" "," ") 9Y%:run$=A$,1-(A$=34),A%-1+2*(A$=34)):A$=A$,A%+1) :=A$ #os(A$):A$=42:A$ A$:A$  : "( Exit program, setting return value ,( ---------------------------------- 6Fexit(A%):"FX1,"+(A%255):quit$=quit$:A$=quit$:quit$="":os(A$) @>&FFFFF:Ș A% J T: ^ > B/MOS1 0.10 00-000-0000 h)ݤbyte(A%,X%,Y%)=((&FFF4)&FF00)256 r3ݤDay(A%)="000SunMonTueWedThuFriSat",A%*3+1,3) |KݤMon(A%)="000JanFebMarAprMayJunJulAugSepOctNovDecDddEeeFff",A%*3+1,3) ݤtime:!X%=&10000700:X%!4=0:A%=20:&FFF1:!X%=0:X%!4:?X%=81+(X%?5 16)+((X%?4 &E0)2):X%?1=X%?5 15:X%?2=X%?4 31:X%?4=X%?6:X%?5=X%?7:X%?6=X%?8 6X%?3=0:X%?2:X%?3=DayOfWeek(X%?2,X%?1,1900+X%?0) s=Day(X%?3)+","+d0(X%?2,2)+" "+Mon(X%?1)+" "+d0(1900+X%?0,4)+"."+d0(X%?4,2)+":"+d0(X%?5,2)+":"+d0(X%?6,2) #ݤDayOfWeek(d%,m%,y%):y%=y%400 q=(y%*365.25+m%*30+d%+"120112234455",m%,1)+((y%4)=0)-((y%-1)100)-(m%>2((y%4)=0(y%100)<>0y%=0))+3)7+1 $ݤd0(A%,N%)="000000000"+A%,N%)   ?{   "  X{L{LQ%=PA.:CH."* BASIC s{l{t{R{R{`m{`` X{,z0ȱqr{` ee  { {qr{{꩏ `