Path: internal1.nntp.ash.giganews.com!border2.nntp.ash.giganews.com!border1.nntp.ash.giganews.com!firehose2!nntp4!intern1.nntp.aus1.giganews.com!border1.nntp.aus1.giganews.com!nntp.giganews.com!newsfeed.tpinternet.pl!news.atman.pl!news.intercom.pl!f124.n480!f127.n480!f112.n480!f200.n2432!f605.n774!f500.n123!f2000.n106!f1.n140!f5.n342!f512.n342!not-for-mail
Newsgroups: fido.4dos
Distribution: fido
From: Gerald Miller 
Date: Mon, 22 Dec 03 11:57:24 +0100
Subject: new! improved!
Message-ID: 
References: 
Organization: There's no intelligent life down here.
 2443/1181
Lines: 102
Xref: intern1.nntp.aus1.giganews.com fido.4dos:493

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.