Hello All!   
      
   I have a tiny, little MPL utility that you all might find useful.  I call it,   
   "Files Since Last Call".   It's a little utility that I use to announce to   
   callers how many files have been uploaded, and in which directories, since   
   their last call.  I place this in my prelogin menu.   
      
   MCI codes may, or may not show up correctly, so you may need to do some   
   editing on that front.   
      
   Just download with the 'X' command, take out all this unwanted text, and   
   compile it.   
      
   fslc.mps   
   -----8<--------------------   
   Uses Cfg   
   Uses User   
   Uses FBase   
      
   Type   
     RecFileList = Record   
           FileName  : String[70];   
           Size      : LongInt;   
           DatTim    : LongInt;   
           Uploader  : String[30];   
           Flags     : Byte;   
           Downloads : LongInt;   
           Rating    : Byte;   
           DescPtr   : LongInt;   
           DescLines : Byte;   
   End;   
      
   Var Files        : RecFileList   
   Var TotFiles        : Integer   
   Var Ok2,Ok        : Boolean = True   
      
   Function ReadListEntry(FN:String;I:Integer):Boolean   
   Var Ret        : Boolean=False   
   Var Fp        : File   
   Begin   
           fAssign(Fp,CfgDataPath+FN+'.dir',66)   
           fReset(Fp)   
           If IoResult = 0 Then Begin   
                   fSeek(Fp,(I-1)*SizeOf(Files))   
                   If Not fEof(Fp) Then Begin   
                           fRead(Fp,Files,SizeOf(Files))   
                           Ret:=True   
                   End   
                   fClose(Fp)   
           End   
           ReadListEntry:=Ret   
   End   
      
   Procedure Main   
   Var Done        : Boolean = False   
   Var I,H        : Integer   
   Var S                : String   
   Begin   
           H:=1   
           While GetFBase(H) Do Begin   
                   If ACS(FBaseACS) Then Begin   
                           I:=0   
                           TotFiles:=0   
                           While ReadListEntry(FBaseFN,I+1) Do Begin   
                                   If Files.DatTim >= UserLastOn Then Begin   
                                           TotFiles:=TotFiles+1   
                                   End   
                                   I:=I+1   
                           End   
                           If TotFiles > 0 Then Begin   
                                   If Ok Then Begin   
                                           WriteLn('|CR ::: There are new files   
   si ce your last visit:|CR')   
                                           Ok:=False   
                                           Ok2:=Ok   
                                   End   
                           WriteLn(''+PadLt(Int2Str(TotFiles),5,' ')+ ' new file(s   
    in ' + FBaseName)   
                           End   
      
                   End   
                   H:=H+1   
           End   
   End   
      
   Begin   
           GetThisUser   
           Main   
           If Not Ok Then Write('|CR |PA')   
   End   
   -----8<------------------------   
      
    "No matter where you go, there you are!" - B. Bonzai   
      
   --- Mystic BBS v1.10 A51 (Linux)   
    * Origin: Cyberia BBS | Cyberia.Darktech.Org | Kingwood, TX (46:1/116)   
    þ Synchronet þ thePharcyde_ >> telnet://bbs.pharcyde.org (Wisconsin)