SCRIPT
Abort Off

String Log_Time = '&23'
String Todays_Date = '&24'
String Log_Message
define rc
define vidio_width= &11
define user_key

     if vidio_width = 40 then
          margin (2)
     else
          margin (20)
     endif

Clear Screen
Printe
PRINTE '\r\i Online:\o\b &02.'
PRINTE '\r\i  Alias:\o\b &01. '
PRINTE '\r\i   From:\o\b &05, &06.'
PRINTE
Printe '\b\i Your Stats This Call \o\b'
Printe '\b\i----------------------\o\b'
printe '\b\i   Time limit per Day:\o\b &13 mins.'
PRINTE '\b\i  Time Left This Call:\o\b &33 mins.'
PRINTE '\b\i        Last Call Was:\o\b &12'
Printe '\b\i      Number of Calls:\o\b &22'
Printe '\b\i    Last Message Read:\o\b &16'
Printe
Printe '\g\i BBS Stats This Call  \o\b'
Printe '\g\i----------------------\o\b'
Printe '\g\i  Total Num. of Calls:\o\b &26'
Printe '\g\i   Number Calls Today:\o\b &27'
PRINTE '\g\i  High Message Number:\o\b &25'
printe '\g\i      Last Caller Was:\o\b &28'
Printe

print '\r\i <  Any Key to Continue > \o\b '
user_key= get_key

    if &27 = 1 then
       Printe
       Printe ' Updating Todays files  '
       Printe ' Please wait........... '
       Gosub Backup
       GEM ('F:\TODAYS.PRG')
endif

    if file_exists ('f:\today.txt') then
       clear screen
       View ('f:\today.txt', PageBrk)
       Printe
       print ' \r\i <  Any Key to Continue > \o\b '
       user_key= get_key
       printe
endif

clear screen
margin (0)
if Command_Level (1)
      EXECUTE ('F:\Menus_80\bbsstat.com')
Endif
rc=file_chgdir ('F:\')

Exit

Backup:

PrintE ' Backing up datasets................'

Rc= file_copy ('F:\RCACALL.LOG','I:\RCACALL.LOG')
    if rc> 0 then
        Log_Message= 'Unable to backup Log on:'
        Goto Log_it
endif

Rc= file_delete ('F:\RCACALL.LOG')
     if rc> 0 then
        Log_Message= 'Unable to delete log on:'
        Goto Log_it
endif

Log_Message= 'Log Backed Up Successfully on:'

Log_It:
close
  Open ('F:\RCACALL.LOG' append)
  fprintE ('  <<< [LOG_Message] [Todays_Date] At  [Log_Time] >>>')
  fprintE
  fprintE 'Caller #&26    &24   On At &23'
  fprintE '           #&31  &01  &05, &06
  fprintE '           Computer Type: &10      Baud Rate: &29
  fprintE '           Last Called &12  Total Calls: &22  Mins on today &15

Close
Return
