Subj : new! improved!
To   : Jasen Betts
From : Gerald Miller
Date : Mon Dec 22 2003 11:57 am

Hello Jasen,

    Responding to a post in the 4DOS area:
    On Saturday December 20 2003 at 13:33,
    Jasen Betts [3:640/1042] wrote to All,
    about: new! improved!

Okay.  I had a chance to have a more serious look and have made the
following revisions....

:!  RAPID=Y         - don't delay after running progs
::  [added by GBM - Monday, December 22, 2003]
:!  LOGGING=0       - NO logging is performed
:!  LOGGING=1       - log execution of programs
::  [changed by GBM - Monday, December 22, 2003]
:!  LOGGING=2       - log also non-execution if user says no when asked
:!  LOGGING=3       - log also setting of options

.............

:: what the head of each log line looks like
::  set LOGHEAD=%%_TIME%%  %@UPPER[%@NAME[%0]]:
::  [changed by GBM - Monday, December 22, 2003]<<
  set LOGHEAD=%%_TIME%%ÿ
::  NOTE: There is a "hard space" character (Alt 255 - on my system) at the
::  end of %%_TIME%%

.............

The above change eliminates some redundancy within the log file:

=== Cut Old ===
----------  Mon 22 Dec, SCHED Process
! 09:44:43  SCHED: Nothing to do because it's all been done!
=== Cut Old ===

=== Cut New ===
----------  Mon 22 Dec, SCHED Process
! 09:44:43  Nothing to do because it's all been done!
=== Cut New ===

.............

::  if "%1"=="HELP" .or. "/HELP"=="%1" .or. "%1"=="-HELP" %=
::  [changed by GBM - Monday, December 22, 2003]
if "%@UPPER[%1]" =="HELP" .or. "/HELP"=="%@UPPER[%1]" .or. %=
"%@UPPER[%1]"=="-HELP" %=
 ( *ffind  /VMKT"%@char[58]!" %_BATCHNAME | *list %+ goto usage )

.............

:blankfile
    echos An empty %DATAFILE (with only the header) will now be created;
::  [changed by GBM - Monday, December 22, 2003]
echo  after
echos which you will have to edit and supply the correct data in the proper
echo  format...

.............

::    if "%inp" eq "YES!" or then goto blankfile
::  [changed by GBM - Monday, December 22, 2003]
    if "%inp" eq "YES!" set tempfile=%DATAFILE %+ goto blankfile
    echo  The %DATAFILE data file was NOT overwritten!
    goto fin

.............

:: logging addition by mfl
    if %LOGGING ge 1 %=
:: echo ! %LOGHEEAD% Nothing to do because it's all been done! >> %logfile
::  [changed by GBM - Monday, December 22, 2003]
   echo ! %LOGHEAD% Nothing to do because it's all been done! >> %logfile
    goto fin

.............

::  set DY=%@DOW[%_DATE] %@DAY[%_DATE] %@SUBSTR[%DD%,%@EVAL[%@MONTH[%_DATE]%=
::* 3],3] %@SUBSTR[%@YEAR[%_DATE],2,2]
::  [changed by GBM - Monday, December 22, 2003]
  set DY=%@DOW[%_DATE] %@DAY[%_DATE] %@SUBSTR[%DD%,%@EVAL[%@MONTH[%_DATE]%=
* 3],3] %@SUBSTR[%_YEAR[%_DATE],2,2]

.............

The above changes:

=== Cut Old ===
----------  Mon 22 Dec, SCHED Process
=== Cut Old ===

to this:

=== Cut New ===
----------  Mon 22 Dec 03, SCHED Process
=== Cut New ===



           Cheers ... Gerald

.... The four stages of man are: infancy, childhood, adolescence & obsolescence.
--- GoldED+/DPMI32 v1.1.5-30512
 * Origin: There's no intelligent life down here. (1:342/512)

.