$ DIR/NOHEADER/NOTRAIL/BEFORE=TODAY/OUT=TEMP.COM RP%%%%%%%.COM,[.PRINT]*.*
$ OPEN/READ IN TEMP.COM
$N: READ/END=EOF IN FILE
$ DELETE 'FILE'
$ GOTO N
$ EOF: CLOSE IN
$ DELETE TEMP.COM;