.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.ENABLE DECIMAL
	.DISABLE DISPLAY
	.ENABLE QUIET
	.SETS DEFACC "LB:[1,2]"
	.OPEN #1 'DEFACC'OFFLINE.DTC

.;  GET TODAY'S DATE, AND TRANSLATE THE MONTH NAME INTO A MONTH NUMBER:

	.SETS TDATE <DATE>
	.SETS $YR1 TDATE[8.:9.]
	.SETS $MO1 TDATE[4:6]
	.SETS $DA1 TDATE[1:2]
	.IF $MO1 = "JAN" .SETS $MO1 "01"
	.IF $MO1 = "FEB" .SETS $MO1 "02"
	.IF $MO1 = "MAR" .SETS $MO1 "03"
	.IF $MO1 = "APR" .SETS $MO1 "04"
	.IF $MO1 = "MAY" .SETS $MO1 "05"
	.IF $MO1 = "JUN" .SETS $MO1 "06"
	.IF $MO1 = "JUL" .SETS $MO1 "07"
	.IF $MO1 = "AUG" .SETS $MO1 "08"
	.IF $MO1 = "SEP" .SETS $MO1 "09"
	.IF $MO1 = "OCT" .SETS $MO1 "10"
	.IF $MO1 = "NOV" .SETS $MO1 "11"
	.IF $MO1 = "DEC" .SETS $MO1 "12"

.;=============================================================================
.; TABLE OF USERS ON THE SYSTEM TO WHOM WE WANNA MAIL NOTICE OF APPOINTMENTS
.; AND BROADCAST MESSAGES WHEN THE APPOINTMENT IS FOR THIS HALF-HOUR:
.; TABLE IS:    FILE<TAB>USERNAME<TAB>TERMINAL
.;
	.OPENR #3 'DEFACC'DTCTABLE.DAT
.TBL:	.READ #3 STRING
	.IFT <EOF> .GOTO DNTBL
	.PARSE STRING "	" $FIL $USR $TERM
	.GOSUB LOOKY
	.GOTO TBL
.DNTBL:	.CLOSE #3
	.CLOSE #1
	.EXIT

.;  LOOK IN THE APPOINTMENT CALENDER FILE OF THE GIVEN USER.  IF THE
.;  FILE IS NOT THERE, TELL THE SYSTEM MANAGER AND GET OUT OF HERE.

.LOOKY:	.CLOSE
	.TESTFILE '$FIL'
	.IF <FILERR> EQ 1 .GOTO OKOPN
	.OPEN 'DEFACC'XXX.MAI
	.DATA --MD-- ERROR ON DTC FILE:  '$FIL' ON '<DATE>' AT '<TIME>'
	.CLOSE
	.DATA #1 MAI 'DEFACC'XXX.MAI/NO TO MANAGER
	.RETURN
.OKOPN:	.OPENR '$FIL'
.NEXT1:	.READ $APPOI
	.IFT <EOF> .RETURN

.;  Pull off the next appointment. Get the current time, rounding up to the
.;  next 1/2 hour. Check if that time matches the appointment.

	.SETS YR $APPOI[1:2]
	.SETS MO $APPOI[3:4]
	.SETS DA $APPOI[5:6]
	.SETS HR $APPOI[7:8.]
	.SETS TIM <TIME>
	.SETS $HR1 TIM[1:2]
	.SETN NHR '$HR1'.
	.SETS $MIN TIM[4:5]
	.SETN NMIN '$MIN'.
	.SETS $MIN "30"
	.IF NMIN LT 30. .GOTO DNADD
	.SETS $MIN "00"
	.INC NHR
.DNADD:	.SETS $HR1 "'NHR%ZDR2'"
	.SETS MINS $APPOI[9.:9.]+"0"

.;  IF A MATCH, THEN MAIL AND BROADCAST THE SUCKER SOME MESSAGES REMINDING
.;  HIM OF THE APPOINTMENT:

	.IF YR NE $YR1 .GOTO NEXT1
	.IF MO NE $MO1 .GOTO NEXT1
	.IF DA NE $DA1 .GOTO NEXT1
	.IF HR NE $HR1 .GOTO NEXT1
	.IF MINS NE $MIN .GOTO NEXT1

	.OPEN #2 'DEFACC'XXXX.MAI
	.SETS $APPOI $APPOI[11.:60.]
	.DATA #2 APPOINTMENT: 'HR':'MINS' '$APPOI'
	.CLOSE #2
	.TESTFILE 'DEFACC'XXXX.MAI
	.DATA #1 MAI '<FILSPC>'/NO TO '$USR'
	.DATA #1 BRO '$TERM' APPOINTMENT: 'HR':'MINS' '$APPOI'
	.GOTO NEXT1