Subj : Bulletin MPL program
To   : All
From : Dennis Katsonis
Date : Fri Jan 21 2022 02:55 pm

  Re: Bulletin MPL program
  By: Dennis Katsonis to All on Fri Jan 21 2022 01:13 pm

 >   FindFirst (Root + PreFix + '*.*', 63);
 > 
 >   While DosError = 0 Do Begin
 >     If DirTime > UserLastOn And Upper(Copy(DirName, 1, Pos('.', DirName) - 1
 > <
 > > 'BULLETIN' Then Begin
 >       InStr := Copy(DirName, 7, Pos('.', DirName) - 7) + ' '

I have found that changing "UserLastOn" to "DateU2D(UserLastON)" seems to bring
about the desired behaiviour.
--- SBBSecho 3.10-Win32
 * Origin: MS & RD BBS bbsweb.mozysswamp.org (3:633/384)

.