	.ENABLE QUIET
	.ENABLE SUBSTITUTION
	.SETS ALPHA "ABCDEFGHIJKLMNOPQRSTUVWXYSZ"
	.;
	.; Get tomorrows date for default
	PRE -1	! PRE is a program that creates a one line text file containing
		! a date earlier or later than today. Used only for default.
		! If you do not have this program, use today as default.
	.OPENR #1 DATE.DAT
	.READ #1 TOMOR
	.CLOSE #1
	.OPEN TI:
	.;
	.; Set up file name
.STRING:
	.PARSE TOMOR "-" DAY MO YR	! Set up defaults
	.IF P1 = "" .GOTO NOPARM
	.PARSE P1 "-" DAY1 MO1 YR1	! Override if parameters given
	.TEST DAY1
	.IF <STRLEN> = 1 .SETS DAY1 "0"+DAY1
	.IF <STRLEN> GT 2 .GOTO ERROR
	.SETS DAY DAY1+DAY
	.SETS MO MO1+MO
	.SETS YR YR1+YR
.NOPARM:.SETS RDATE DAY[1:2]+MO[1:3]+YR[1:2]
	.SETN PTR 1
	.;
	.; Find an alpha suffix
.LET: .SETS LTR ALPHA[PTR:PTR]
	.TESTFILE 'RDATE''LTR'.RMD
	.IF <FILERR> NE 1 .GOTO OK
.BUMP: .INC PTR
	.IF PTR GT 26. .GOTO NOMORE
	.GOTO LET
	.;
.OK: 
	.DATA Enter text below, press CNTL/Z when finished.
	PIP 'RDATE''LTR'.RMD=TI:
	.ASK MORE More
	.IFT MORE .GOTO DATE
	PIP DATE.DAT;*/DE/NM
	/
.DATE: .ASKS NEXT Enter next date (RETURN for same date):
	.IF NEXT = "" .GOTO BUMP
	.SETS P1 NEXT
	.GOTO STRING
.NOMORE: .DATA You cannot have more than 26 reminders for a given date.
	.STOP
.ERROR: .DATA Date must be specified with hyphen delimiters.
	.GOTO DATE
