IsToday(C) Ver .11B
First Beta Release.



INTRODUCTION

In running a BBS for a Public Library where the computer was
located away from home, I needed to provide maintenance automatically.
In the event batch file, I wanted some maintenance event on like the
first day of the month or on every monday. This can be expanded to
home use like backing up on mondays or run Checkbook program on the
30th of month.


WARRANTY
IsToday is provided "as is" without warranty of any kind, either
expressed or implied. The only guarantee that I will make is that
it will occupy disk space and that it works on my system. If you
decide to use IsToday, you do so at your own risk. In no event
will the author, Allan R. Barnett, or SysOps posting IsToday, be
liable to you for any damages, including but not limited to, any
lost profits, lost savings, or other incidental or consequential
damages arising out of the use or inability of IsToday.


LEGAL
IsToday is the Copyrighted property of Allan R. Barnett. You are
not authorized to modify, merge, reverse assemble or reverse
compile the program, it's documentation, or the distribution ZIP
file. You may terminate this agreement by destroying all copies
of IsToday and it's documentation, and distribution ZIP file.
Allan R. Barnett may terminate your license if you fail to comply
with the terms and conditions of this agreement.


REGISTRATION and DISTRIBUTION
IsToday is distributed as shareware/freeware. In other words I
do not require a registration fee for it's use in a NON
COMMERCIAL environment. However, a registration fee of $5 will
be accepted if you feel IsToday is of benefit to you. Your
registration of IsToday will get you my deepest gratitude, and
priority in the implementation of suggestions and enhancements.
I will feel that my efforts are worthwhile. Businesses and for
profit BBS need to register. Cost for Commercial environment is
$25 unlimited use within each company.


AVAILABILITY
ISDAYxxx.ZIP is available on the Cedar Valley BBS, where I will
support the software. I am also reachable on GE - A.BARNETT,
and on Compuserve 70671,420. Cedar Valley BBS 1200-2400 baud 8n1

Allan Barnett
118 Saint Croix Drive
Waterloo, Iowa 50701


COMPATIBILITY
IsToday was compiled with IBM Turbo Pascal ver 3. It was tested
on a Texas Instruments Pro. computer using CGA Emulation. The program
uses standard MSDos calls to inquire as to the systems date. (If the
program runs on my computer it should run on any MSDOS computer.)


OPERATION
IsToday compare(s) the requested (parameters) information to the computer
system
and to see if today is the day, weekday or other you want. Then exiting
the program passing to DOS, 0 for TRUE (Halt(0)), FALSE (Halt(1))
and ERROR (Halt(2)) in parameters list. You will need to check with the batch
ERRORLEVEL test. Example, to check to see if this is the 3rd Wednesday of
month:

ISTODAY W=3 K=WED > ISTODAY.ERR
IF ERRORLEVEL 1 GOTO NO
IF ERRORLEVEL 2 GOTO ERR
ECHO Today is the 3rd Wednesday of the month.
GOTO NEXT
:NO
ECHO Today is NOT the 3rd Wednesday of the month.
:ERR
TYPE ISTODAY.ERR
:NEXT

The program ISTODAY is executed with a request for the 3rd Wednesday of the
month. The '>' redirects the displayed message to a new text file to be read
latter. Next the ERRORLEVEL left to the system by ISTODAY is checked for
level 1 (It is not the day wanted). If true, jumps to :NO, if ERRORLEVEL = 2
then jump to :ERR. If it passes these two text the then the ERRORLEVEL = 0
(It pass the test) and today is the day you wanted.

PARAMETERS

Inquiry Parameter Range
--------------------------------------------------------
Month M= 1 to 12
Year Y= 1 to 99
Day D= 1 to 31
Week W= 1 to 5
Day of Week K= SUN,MON,TUE,WED,THR,FRI,SAT


Test made by this program is the day of the month, weekday of the month and
what weekday/weeks it is. You may pass either the numbers 1 though 31 or
the following weekday abbreviations: SUN MON TUE WED THR FRI SAT. Upper
and lower case are accepted. You must use the equal sign and no spaces
within the parameter and a space separating each new parameter.
Examples:

ISTODAY D=10 Checks to see if it is the 10th day of the month.
ISTODAY K=FRI Checks to see if it is Friday this week.
ISTODAY W=3 K=FRI Checks to see if it is the 3rd Friday of this month.
ISTODAY W=4 Checks to see if it is the 4th WEEK of the month.
ISTODAY D=32 INVALID, Will give errorlevel 2 is returned.


RESULTS
The following are the meaning of the Errorlevel number supplied to MSDos:

ErrorLevel Meaning
0 Today is the day
1 Today is NOT the day
2 Error in parameter(s)

-= END =-