home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / CHATHERM.ZIP / CHATHERM.MRG < prev    next >
Text File  |  1992-05-22  |  2KB  |  58 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce RBBSSUB2.NEW
  3. * RBBSSUB2.BAS: Date 03-05-1992  Size:156901
  4. *
  5. * ------------[ Modified 05-22-1992 10:44:00 ]-----------
  6. * Open the capture file and add the User's NAME, DATE, TIME
  7. * chat started, and the NODE #.
  8. *
  9. 4773 ' $SUBTITLE: 'SysopChat - chat with sysop'
  10. ' $PAGE
  11. '
  12. '  NAME    -- SysopChat
  13. '
  14. '  INPUTS  --     PARAMETER                    MEANING
  15. '  OUTPUTS --  ZWasCM                     True if chat active
  16. '
  17. '  PURPOSE --  Lets sysop chat interactively with caller
  18. '
  19.      SUB SysopChat STATIC
  20.      ZWasCM = ZTrue
  21.      TimeChatStarted! = TIMER
  22.      ZSubParm = 1
  23.      CALL Line25
  24.      ZOutTxt$(2) = ""
  25.      CALL OpenWorkA("CHAT.CAP")
  26.      PRINT #2,""
  27.      PRINT #2,"-";ZUserName$;"                         "
  28.      PRINT #2,"-";ZCurDate$;"                          "
  29.      PRINT #2,"-Chat started @: ";ZTime$;"             "
  30.      PRINT #2,"-NODE";ZNodeID$;"                       "
  31.      PRINT #2,""'
  32. 4775 CALL LineEdit (1,72)
  33.      IF ZKeyPressed$ = ZEscape$ OR _
  34.         ZSubParm < 0 THEN _
  35.         GOTO 4777
  36.      Call PrintWorkA (ZoutTxt$(1))
  37.      ZOutTxt$(1) = ""
  38.      IF ZOutTxt$(2) <> "" THEN _
  39.         ZOutTxt$ = ZOutTxt$(2) : _
  40.         ZOutTxt$(1) = ZOutTxt$(2) : _
  41.         ZOutTxt$(2) = "" _
  42.      ELSE ZOutTxt$ = ""
  43.      ZSubParm = 4
  44.      CALL TPut
  45.      IF ZSubParm > -1 THEN _
  46.         GOTO 4775
  47. 4777 ZWasCM = 0
  48.      CALL CheckTime(TimeChatStarted!,Elapsed!, 2)
  49.      ZSecsPerSession! = ZSecsPerSession! + Elapsed!
  50.      PRINT #2,""
  51.      PRINT #2,"-Chat stopped @: ";Ztime$;"             "
  52.      PRINT #2,"-Elapsed time was ";elapsed!;" seconds. "
  53.      PRINT #2,""
  54.      IF NOT ZLocalUser THEN _
  55.         ZAutoLogoff! = TIMER + ZWaitBeforeDisconnect
  56.      CALL QuickTPut("Chat ended.  Back to BBS. ",2)
  57.      END SUB
  58.