> 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 : 2ݤOS_GetEnv:A%=0:X%=1:os%=((&FFF4)&FF00)256 KA%=(>&FFFF)&900:A%=((>&9FFF)A%)((&1400-)(A%=0)):?(P-3)A%=&B00 iA$=$(-&E00+A%):A%=0:run$=A$:ș16A$,,A%:ș72,"",A%:A$=A$,1+A$+" "," ",1+A$," "))):A$=0:A$=run$ *Y%=-10:A$=" "+A$:A$=A$,2):A$<>32 6Y%:A$=34:A%=A$,"""",2)+1 Y%:A%=A$+" "," ") CY%:run$=A$,1-(A$=34),A%-1+2*(A$=34)):run$<>"":A$=A$,A%+1) :=A$ : &os(A$):A$=42:A$ A$<>"":A$  : ": , > B/MOS1 0.10 00-000-0000 6)ݤbyte(A%,X%,Y%)=((&FFF4)&FF00)256 @3ݤDay(A%)="000SunMonTueWedThuFriSat",A%*3+1,3) JKݤMon(A%)="000JanFebMarAprMayJunJulAugSepOctNovDecDddEeeFff",A%*3+1,3) Tݤ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) hs=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) r#ݤ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%)  4{  "  Z{A{LQ%=PA.:CH."* BASIC Y{M{n{檤`G{G{`` Z{,z0ȱs{` ee  { {s{쩏 `0