home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / rebelog / endcall.scr next >
Encoding:
Text File  |  1990-03-17  |  1.1 KB  |  42 lines
  1. Script
  2.  
  3. ; *****  REBELOG  v1.0    ~     March 18, 1990     ~    by Outrider  *****
  4. ; *****  Rock 'n' Roll Rebel BBS  ~  300-2400 Baud  ~  702/435-0786  *****
  5.  
  6. ; *****  Use with REBELOG.SCR provided to maintain your Log File...  *****
  7.  
  8. Define CD
  9.  
  10. CD = file_chgdir 'C:\BBS\'            ; ***  Your BBS Path
  11.  
  12. Define Log    = 'C:\BBS\Log'          ; ***  Your Log file
  13. Define Backup = 'C:\Log'              ; ***  Your Backup file
  14.  
  15.  
  16. ;~~~~~~~~~~~~~~~~~~~~~~ ROUTINE FOR YOUR _LOCAL_ LOGONS ~~~~~~~~~~~~~~~~~~~
  17.  
  18. if command_level 10                   ; ***  Change to a level your LOCAL
  19.  goto TOP                             ;      Handles _don't_ have!
  20. endif
  21.  
  22. if file_exists Log
  23.  CD = file_delete Log                 ; ***  Deletes Log with Local logon
  24. endif
  25.  
  26. if file_exists Backup
  27.  CD = file_copy Backup, Log           ; ***  Copy Backup over to your Log
  28. endif
  29.  
  30. exit
  31.  
  32. ;~~~~~~~~~~~~~~~~~~~~~~~~~ ROUTINE FOR YOUR CALLERS ~~~~~~~~~~~~~~~~~~~~~~~
  33.  
  34. TOP:
  35.  
  36. if file_exists Log
  37.  CD = file_copy Log, Backup           ; ***  Create your backup
  38. endif
  39.  
  40.  
  41. ;~~~~~~~~~~~~~~~~~~~~~ REST OF YOUR ENDCALL.SCR GOES HERE ~~~~~~~~~~~~~~~~~
  42.