home *** CD-ROM | disk | FTP | other *** search
/ Monster Disc 2: The Best of 1992 / MONSTER1.ISO / bbs / rbbs / ansc174.zip / RSB3ANSI.MRG < prev    next >
Text File  |  1992-07-13  |  3KB  |  73 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB3.BAS to produce RBBSSUB3.NEW
  3. * RBBSSUB3.BAS:  Date 6-20-1992  Size 129071 bytes
  4. * ------------[ Created 07-04-1992 23:57:58 ]------------
  5. * REPLACING old line(s) by new
  6. 32000 IF NOT ZLocalUser THEN _
  7.          CALL SkipLine (1) : _
  8.          CALL QuickTPut1 ("Sysop exiting to DOS. Please wait...") : _
  9.          ZFunctionKey = 0 : _
  10.          CALL DelayTime (3)
  11.       CALL ShellExit (ZDiskForDos$ + "COMMAND")
  12.       'SHELL ZDiskForDos$ + _
  13.       '      "COMMAND"
  14.       CLS
  15.       IF NOT ZLocalUser THEN _
  16.          CALL Carrier : _
  17.          IF ZSubParm = -1 THEN _
  18.             GOTO 33970
  19.       ZSubParm = 2
  20.       CALL Line25
  21.       CALL QuickTPut1 ("Sysop back from DOS.  Returning control to you.")
  22.       ZCommPortStack$ = ZCarriageReturn$
  23. * ------[ first line different ]------
  24.       ZWasCM = 0                                                     ' DD062901/ANSICHAT
  25.       GOTO 33970
  26. '
  27. '
  28. ' * F3 - COMMAND FROM LOCAL KEYBOARD (Printer Toggle)
  29. '
  30. '
  31. * REPLACING old line(s) by new
  32. * ------[ first line different ]------
  33. 33150 IF ZWasCM = ZTrue THEN _                                       ' DD070401/ANSICHAT
  34.          GOTO 33970                                                  ' DD070401/ANSICHAT
  35.       GOTO 33160
  36. * REPLACING old line(s) by new
  37. 33160 CALL UpdtCalr ("Sysop began chat",1)
  38.       ZPageStatus$ = ""
  39. * ------[ first line different ]------
  40.       ZSysopGreeting$ = "Hi " + ZFirstName$ + ", this is " + _       ' DD062801/ANSICHAT
  41.                         ZSysopFirstName$ + " " + ZSysopLastName$ + _ ' DD062801/ANSICHAT
  42.                         ".  Sorry to break in and CHAT but..."       ' DD062801/ANSICHAT
  43.       CALL TimeBack (1)
  44.       IF ZCanANSIChat = ZTrue THEN                                   ' DD071301/ANSICHAT
  45.          CALL ANSIChat                                               ' DD062801/ANSICHAT
  46.       ELSE
  47.          CALL SkipLine (1)
  48.          CALL QuickTPut1 (ZSysopGreeting$)
  49.          CALL SysopChat
  50.       END IF
  51.       CALL TimeBack (2)
  52.       ZCommPortStack$ = CHR$(13)
  53.       GOTO 33155
  54. '
  55. '
  56. ' * UP / CTRL-UP: INCREASE THE ON-LINE USER'S SECURITY BY ONE / FIVE
  57. '
  58. '
  59. * REPLACING old line(s) by new
  60. 33220 IF NOT ZLocalUser THEN _
  61.          CALL Carrier : _
  62.          IF ZSubParm = -1 THEN _
  63.             GOTO 33970
  64.       CLS
  65. * ------[ first line different ]------
  66.       ZWasCM = 0                                                     ' DD070401/ANSICHAT
  67.       GOTO 33155
  68. '
  69. '
  70. ' * LEFT ARROW - DECREASE THE ON-LINE USER'S TIME BY ONE MINUTE
  71. '
  72. '
  73.