1	!								&
	!		R E M I N D E L E T E				&
	!								$
10	ON ERROR GOTO 9000
	MAP (RFILE)	STRING	SEND_WHEN	= 23,			&
			STRING	FILL		= 1,			&
			STRING	SEND_TO		= 12,			&
			STRING	FILL		= 10,			&
			STRING	SENT_FROM	= 12,			&
			STRING	FILL		= 10,			&
			WORD	SEQUENCE,				&
			WORD	LINE_NUMBER,				&
			STRING	POSTED_FLAG	= 1,			&
			STRING	MESSAGE		= 80
	MAP (RFILE)	STRING	THE_KEY		= 72
	MAP (RFILE)	STRING	KEY_2		= 11
	MAP (RFILE)	STRING	CONTROL_BREAK	= 70
	MAP (STRINGS)	STRING	DATE_TIME	= 23
	MAP (STRINGS)	STRING	THE_DATE	= 11
20	OPEN "REMINDER.DAT" FOR INPUT AS FILE 1,			&
		ORGANIZATION INDEXED FIXED,				&
		ACCESS MODIFY,						&
		ALLOW  MODIFY,						&
		MAP RFILE,						&
		RECORDTYPE NONE,					&
		PRIMARY KEY THE_KEY DUPLICATES,				&
		ALTERNATE KEY KEY_2 DUPLICATES
30	INPUT "Reminders On (DD-MMM-YYYY) ";X$
	X$ = EDIT$(X$,128%)
	IF X$ <> ""
		THEN
		THE_DATE = X$
		ELSE
		CALL LIB$DATE_TIME(DATE_TIME)
		PRINT DATE_TIME
		THE_DATE = DATE_TIME
	END IF
90	GET #1%, KEY #1 EQ THE_DATE
95	DELETE #1
100	WHILE -1%
110	GET #1%
115	IF KEY_2 <> THE_DATE
		THEN
		GOTO 900
	END IF
120	DELETE #1
198	NEXT
899	!								&
	!		C L O S E    F I L E S				&
	!								$
900	CLOSE 1
998	GOTO 32767
8999	!								&
	!		E R R O R   T R A P				&
	!								$
9000	IF ERL = 90 AND ERR = 155		! If record not found	&
		THEN							&
		RESUME 900
9010	IF ERL = 110 AND ERR = 11		! If no more mail	&
		THEN							&
		RESUME 900
9090	PRINT ERR
9098	RESUME 32500
32499	!								&
	!		E R R O R   M E S S A G E S			&
	!								$
32500	E% = ERR							&
\	E$ = SYS(CHR$(6%) + CHR$(9%) + CHR$(E%))			&
\	E$ = CVT$$(RIGHT(E$,3%),4%)					&
\	E$ = E$ + " on line" + NUM$(ERL)
32590	PRINT								&
\	PRINT "**************************************************"	&
\	PRINT "*                                                *"	&
\	PRINT "*                  JOB ABORTED                   *"	&
\	PRINT "*                                                *"	&
\	PRINT "*"; E$; TAB(49%);                               "*"	&
\	PRINT "*                                                *"	&
\	PRINT "**************************************************"
32767	END