1	!								&
	!		R E M I N D L I S T				&
	!								$
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 (STRINGS)	STRING	DATE_TIME	= 23
	MAP (STRINGS)	STRING	THE_DATE	= 11
20	OPEN "REMINDER.DAT" FOR INPUT AS FILE 1,			&
		ORGANIZATION INDEXED FIXED,				&
		ACCESS READ,						&
		ALLOW  MODIFY,						&
		MAP RFILE,						&
		RECORDTYPE NONE,					&
		PRIMARY KEY THE_KEY DUPLICATES,				&
		ALTERNATE KEY KEY_2 DUPLICATES
30	OPEN "REMINDER.LIS" FOR OUTPUT AS FILE 2%, RECORDSIZE 145
90	GET #1%, KEY #0 GE STRING$(72%,0%)
	PRINT #2%, SEND_WHEN;SEND_TO;SENT_FROM;SEQUENCE;LINE_NUMBER;MESSAGE
100	WHILE -1%
110	GET #1%
120	PRINT #2%, SEND_WHEN;SEND_TO;SENT_FROM;SEQUENCE;LINE_NUMBER;MESSAGE
198	NEXT
899	!								&
	!		C L O S E    F I L E S				&
	!								$
900	CLOSE 1,2
998	GOTO 32767
8999	!								&
	!		E R R O R   T R A P				&
	!								$
9000	IF ERL = 110							&
		THEN							&
		RESUME 900
9010	IF ERL = 90
		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