Subj : Need a ruling ..... :)
To   : Renato Zambon
From : Gerald Miller
Date : Sat Aug 10 2002 08:23 am

Hello Renato,

    On Wednesday August 07 2002 at 17:33,
    Renato Zambon [4:801/161] wrote to Gerald Miller,
    about:  Need a ruling ..... :)

 GM>> I'm wanting to post some 4dos btm files and would like to know of
 GM>> policy regarding encoded messages....

 RZ> I've no objection, if they are on topic and small files. But can't
 RZ> they be posted as plain text? Would be much easier to read, save...

Okay, I'll try posting as a plain text file.  I was concerned about word wrap 
and possible truncation.  Thank you for the "ruling", I will only resort to the 
encoded method if plain text becomes problematic....

=== Cut Begin: TESTIME.BTM ===
    set ret=%@time[%@word[6,%@execstr[FFIND /k/m/r/t"RTime" C:\Fd\FD.LOG]]]
    set lot=%@time[%@word[6,%@execstr[FFIND /k/m/r/t"LTime" C:\Fd\FD.LOG]]]
    set remote=%@maketime[%ret]
    set local=%@maketime[%lot]
echo                      Remote Time is: [%ret] %remote
echo                       LOCAL Time is: [%lot] %local
  iff "%ret"=="%lot" then %+
echo        The Remote system time & the LOCAL system time are identical!
echo        NO action required....
  goto end_time

  elseiff "%ret" GT "%lot" then %+
    set act=add
    set localadd=%@maketime[%@eval[%ret - %lot]]
echo        The Remote site is FASTER by:         %localadd
    set amount=%localadd
    set diff=%@time[%amount]
  elseiff "%ret" LT "%lot" then %+
    set act=sub
    set localsub=%@maketime[%@eval[%lot - %ret]]
echo        The Remote site is SLOWER by:         %localsub
    set amount=%localsub
    set diff=%@time[%amount]
  endiff
  iff "%diff" LT "5" then %+
echo        System time is within acceptable operating parameters...
    goto end_time
  else
  endiff
echo        Action is %act of:      %amount from current LOCAL time...
        set reply=y
inkey /k"ynq[Enter]" /w5    Do you wish to make an adjustment?  %%reply
        switch %reply
          case q
              unset /q reply %+ goto end_time
          case n
              unset /q reply %+ (
echo        No adjustments were made.....
              )
              goto end_time
          case y
              unset /q reply %+ (
              iff "%act"=="add" then %+
                gosub display_time
    time %@maketime[%@eval[(%@time[%_time] + %@time[%amount]) %% 86400]]
echo                     Revised time is:         %_time
              elseiff "%act"=="sub" then %+
                gosub display_time
    time %@maketime[%@eval[(%@time[%_time] - %@time[%amount]) %% 86400]]
echo                     Revised time is:         %_time
              endiff
              )
              goto end_time
          default
              unset /q reply %+ (
              iff "%act"=="add" then %+
                gosub display_time
    time %@maketime[%@eval[(%@time[%_time] + %@time[%amount]) %% 86400]]
echo                     Revised time is:         %_time
              elseiff "%act"=="sub" then %+
                gosub display_time
    time %@maketime[%@eval[(%@time[%_time] - %@time[%amount]) %% 86400]]
echo                     Revised time is:         %_time
              endiff
              )
              goto end_time
          endswitch

:display_time
echo                     Current Time is:         %_time
echo                 applying adjustment:         %amount
  return

:end_time
quit
=== Cut End:   TESTIME.BTM ===

I know it is a little "bloated" and could be cleaned up a bit.  I've been using 
it for about a week now and it *appears* to be doing the task that I want.  I 
had to add a deferential factor of five seconds (if the LOCAL system is within 
plus or minus five seconds with that of the Remote system) to prevent constant 
updating and to fudge the one second updates.  :B-)

           Cheers ... Gerald

--- GoldED+/386 v1.1.5-20719
 * Origin: Pi: Best understood when served Ala Mode. (1:342/512)

.