1	!								&
	!			R E M I N D E R				&
	!								$
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
	MAP (STRINGS)	STRING	FILL		= 23,			&
			STRING  WHEN_STR	= 23
	MAP (STRINGS)	STRING	FILL		= 23,			&
			STRING	WHEN_TIM	= 11
20	OPEN "LES:REMINDER.DAT" 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	CALL LIB$DATE_TIME(DATE_TIME)
40	INPUT "FROM:";FROM_WHO$
	INPUT "TO ";TO_WHO$
	INPUT "WHEN ";WHEN$
	THE_KEY = STRING$(72%,0%)
	X% = 0
	TO_WHO$ = EDIT$(TO_WHO$,2%)
	IF LEFT(TO_WHO$,1%) = "@"
		THEN
		TO_WHO$ = CHR$(34%) + TO_WHO$ + CHR$(34%)
	END IF
45	RSET WHEN_TIM = EDIT$(WHEN$,32%)
50	SEND_WHEN = WHEN_STR + ""
	SEND_TO = TO_WHO$ + ""
	SENT_FROM = FROM_WHO$ + ""
	X% = X% + 1%
	SEQUENCE = X%
	LINE_NUMBER = 1
	GET #1, KEY #0 EQ THE_KEY
	THE_KEY = STRING$(72%,0%)
	GOTO 50		! If this GET succeeds, we need a different	&
			! SEQUENCE number, so this message is unique.
80	PRINT STRING$(80%,45%)
90	OPEN "TT:" FOR INPUT AS FILE 2
100	WHILE -1%
110	INPUT LINE #2, THE_LINE$
	MESSAGE = EDIT$(THE_LINE$,4%)
120	PUT #1
	LINE_NUMBER = LINE_NUMBER + 1
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 ERR = 11 AND ERL = 110 THEN RESUME 900	! Quit when done
9010	IF ERR =155 AND ERL = 50 THEN RESUME 80
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