home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / birthday / endcall.hlp < prev    next >
Text File  |  1992-02-15  |  574b  |  34 lines
  1. SCRIPT
  2.  
  3. Integer RC
  4. String Todays_Date = '&24
  5. String Last_Date
  6. String Log_Message
  7.  
  8.  
  9. If File_Exists ('F:\Datefile.Dat')
  10.    Open ('F:\Datefile.Dat', input)
  11.    Finput Last_Date
  12. Endif
  13.  
  14. EOF:
  15.  Close
  16. If Last_Date = Todays_Date
  17.    Exit
  18. endif
  19.  
  20. If File_Exists ('F:\TODAYS.PRG')
  21.    Gem ('F:\TODAYS.PRG')
  22.    Log_Message = 'Todays Program was run at Log off..'
  23. Else
  24.    Log_Message = 'Could not find the Todays.Prg'
  25. Endif
  26.  
  27. Open ('F:\Datefile.Dat', output)
  28.    Fprinte '[Todays_Date]'
  29. Close
  30.  
  31. Open ('F:\RcaCall.Log', Append)
  32.     Fprinte '[Log_Message];
  33. Close
  34.