.SD;.FLAGS CAPITALIZE
.TITLE ^^FULDAT - DAY OF WEEK AND DATE\\
.PAGE
.INDENT 49
^^FULDAT
.CENTER
^^FULDAT - DAY OF WEEK AND DATE\\
.LEFT MARGIN 10
.SKIP 1
.INDENT -10
^^ROUTINE NAME: ^^FULDAT
.SKIP 1
.INDENT -10
\^PURPOSE:\\ ^^FULDAT\\ IS AN ^^INTEGER\\ FUNCTION WHICH WILL RETURN AS ITS 
FUNCTION VALUE THE NUMBERICAL EQUIVALENT OF THE DAY OF THE WEEK.
^I.^E., A VALUE OF 1 FOR ^SUNDAY - A VALUE OF 7 FOR ^SATURDAY.
^^FULDAT\\  ALSO RETURNS THE DAY OF THE WEEK WITH THE CURRENT
DATE AS AN ^^ASCII\\ ARRAY. <E.G. <SAT 02-<DEC-78
.SKIP 1
.INDENT -10
^^CALLABLE:\\ FROM ^^FORTRAN\\
.SK;.CENTER;  <CALL ^^FULDAT(DAY)\\
.CENTER;OR
.CENTER;<ITODAY=FULDAT(DAY)
.SKIP 1
.INDENT -10
^^PARAMETERS:\\ 
.SKIP;.INDENT -9
^^ARRAY\\----^A ^^BYTE\\ ARRAY DIMENSIONED TO AT LEAST 13 ^^BYTES\\.
WILL CONTAIN THE DATE AFTER THE CALL TO ^^FULDAT.\\
.SK;.I -9
^^ITODAY\\---^THE INTEGER EQUIVALENT OF THE DAY OF THE WEEK.  1-7 FOR <SUN-SAT.
.SKIP 1
.INDENT -10
^^ROUTINES USED:\\ ^THE ^^FORTRAN LIBRARY\\ SUBROUTINES - ^^IDATE, IABS, MOD, DATE\\
.SKIP 1
.INDENT -10
^^EXAMPLE:\\
.SKIP
.NO FILL
.LEFT MARGIN 10
	^^PROGRAM PURGE\\
^^C
C   IF TODAY IS FRIDAY AND IT IS
C   AFTER 11:00 ^^PM PURGE THE
C   ENTIRE DISK
C
    INTEGER FULDAT
    BYTE DAY (14)
    DATA MCR/1/
    X = SECONDS (0.0)
    IF (FULDAT(DAY).NE.6) CALL EXIT
    IF (X.LT.39600.) CALL EXIT
    CALL ASNLUN (1,'MC',0)
    WRITE (MCR,10)
10  FORMAT('PIP DP:[*,*]*.*/PU')
    CALL EXIT
    END
.SKIP 1
.INDENT -10
^^FEATURES:\\ NONE
.SKIP 1
.INDENT -10
^^AUTHOR:\\ ^JACK ^MARTINELLI OF ^^CETUS\\ ^CORP.
.SKIP 1
.INDENT -10
^^WRITTEN:\\ ^JULY 1978
.SKIP 1
.INDENT -10
^^SOURCE LANGUAGE:\\ OPEN
.SKIP 1
.INDENT -10
^^OBJECT MODULE NAME:\\ ^^FULDAT\\
.SKIP 1
.INDENT -10
^^LIBRARY:\\ ^^DP:[60,60]CETUS
.SKIP 1
.INDENT -10
^^LAST MODIFICATION:\\ NONE
.SKIP 1
.INDENT -10
^^MAINTENANCE:\\ SEE ^JACK ^MARTINELLI
.SKIP 1
.INDENT -10