.ENABLE QUIET
.ENABLE SUBSTITUTION
.OPEN #0 TI:
.SETS TODAY <DATE>
.SETS DAY TODAY[1:2]
.SETS MO TODAY[4:6]
.SETS YR TODAY[8.:9.]
.STRING: .TEST P1
.IF <STRLEN> GE 2 .SETS DAY P1[1:2]
.IF <STRLEN> GE 5 .SETS MO P1[3:5]
.SETS RDATE DAY+MO+YR
TYP 'RDATE'*.RMD/-TI
.ASK OP Delete these reminders
.IFT OP SRD 'RDATE'*.RMD;*/DE
.DATA Remaining files for this month are:
.SETS MO RDATE[3:5]
SRD *'MO'*.RMD/BR/-TB ! Could use PIP to list all .RMD files if no SRD.
.ASK MORE More
.IFF MORE .EXIT
.ASKS P1 Enter next date:
.GOTO STRING
