home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / bbs / birthday / logstat.hlp < prev    next >
Text File  |  1992-02-15  |  2KB  |  98 lines
  1. SCRIPT
  2. Abort Off
  3.  
  4. String Log_Time = '&23'
  5. String Todays_Date = '&24'
  6. String Log_Message
  7. define rc
  8. define vidio_width= &11
  9. define user_key
  10.  
  11.      if vidio_width = 40 then
  12.           margin (2)
  13.      else
  14.           margin (20)
  15.      endif
  16.  
  17. Clear Screen
  18. Printe
  19. PRINTE '\r\i Online:\o\b &02.'
  20. PRINTE '\r\i  Alias:\o\b &01. '
  21. PRINTE '\r\i   From:\o\b &05, &06.'
  22. PRINTE
  23. Printe '\b\i Your Stats This Call \o\b'
  24. Printe '\b\i----------------------\o\b'
  25. printe '\b\i   Time limit per Day:\o\b &13 mins.'
  26. PRINTE '\b\i  Time Left This Call:\o\b &33 mins.'
  27. PRINTE '\b\i        Last Call Was:\o\b &12'
  28. Printe '\b\i      Number of Calls:\o\b &22'
  29. Printe '\b\i    Last Message Read:\o\b &16'
  30. Printe
  31. Printe '\g\i BBS Stats This Call  \o\b'
  32. Printe '\g\i----------------------\o\b'
  33. Printe '\g\i  Total Num. of Calls:\o\b &26'
  34. Printe '\g\i   Number Calls Today:\o\b &27'
  35. PRINTE '\g\i  High Message Number:\o\b &25'
  36. printe '\g\i      Last Caller Was:\o\b &28'
  37. Printe
  38.  
  39. print '\r\i <  Any Key to Continue > \o\b '
  40. user_key= get_key
  41.  
  42.     if &27 = 1 then
  43.        Printe
  44.        Printe ' Updating Todays files  '
  45.        Printe ' Please wait........... '
  46.        Gosub Backup
  47.        GEM ('F:\TODAYS.PRG')
  48. endif
  49.  
  50.     if file_exists ('f:\today.txt') then
  51.        clear screen
  52.        View ('f:\today.txt', PageBrk)
  53.        Printe
  54.        print ' \r\i <  Any Key to Continue > \o\b '
  55.        user_key= get_key
  56.        printe
  57. endif
  58.  
  59. clear screen
  60. margin (0)
  61. if Command_Level (1)
  62.       EXECUTE ('F:\Menus_80\bbsstat.com')
  63. Endif
  64. rc=file_chgdir ('F:\')
  65.  
  66. Exit
  67.  
  68. Backup:
  69.  
  70. PrintE ' Backing up datasets................'
  71.  
  72. Rc= file_copy ('F:\RCACALL.LOG','I:\RCACALL.LOG')
  73.     if rc> 0 then
  74.         Log_Message= 'Unable to backup Log on:'
  75.         Goto Log_it
  76. endif
  77.  
  78. Rc= file_delete ('F:\RCACALL.LOG')
  79.      if rc> 0 then
  80.         Log_Message= 'Unable to delete log on:'
  81.         Goto Log_it
  82. endif
  83.  
  84. Log_Message= 'Log Backed Up Successfully on:'
  85.  
  86. Log_It:
  87. close
  88.   Open ('F:\RCACALL.LOG' append)
  89.   fprintE ('  <<< [LOG_Message] [Todays_Date] At  [Log_Time] >>>')
  90.   fprintE
  91.   fprintE 'Caller #&26    &24   On At &23'
  92.   fprintE '           #&31  &01  &05, &06
  93.   fprintE '           Computer Type: &10      Baud Rate: &29
  94.   fprintE '           Last Called &12  Total Calls: &22  Mins on today &15
  95.  
  96. Close
  97. Return
  98.