%
% for a 10,000,000 segment of xacts possible,
% 25,000 shots are alloted for each calendar day
% what is the time difference in days from Jan 1 of this year
%
Time.Now
dup Time.Datels
pop3
%
% stack: date-now year-now
%
^"1/1/"
%
% stack: date-now first-date-of-year
%
"d" Time.Diff
abs
%
% stack: day-of-year
%
25000 mul +
"daybase" log)(
%
% usually the day-of-year calc is the new xact seed
% on the first start of a day
% the tracked Xact reference will be greater usually
% on subsequent starts
%