.ENABLE QUIET
	.ENABLE SUBSTITUTION
	.OPEN #0 TI:
	.SETS TODAY <DATE>
	.SETN LOOP 7
	.IFNINS ...PRE INS $PREDAY/TASK=...PRE
.STRING: 
	.PARSE TODAY "-- " DAY MO YR DOW
	.SETS RDATE DAY+MO+YR
	.DATA REMINDERS FOR 'TODAY'
	TYP 'RDATE'*.RMD/-TI
	.DEC LOOP
	.IF LOOP = 0 .GOTO DIR
	.SETN N 7-LOOP
	PRE -'N'
	.OPENR #1 DATE.DAT
	.READ #1 TODAY
	.CLOSE #1
	.GOTO STRING
.DIR: 	PIP DATE.DAT;*/DE
	REM PRE
/