home *** CD-ROM | disk | FTP | other *** search
/ BBS 1 / BBS#1.iso / communic / rbcom400.ha / QDECK.MAC < prev    next >
Text File  |  1993-01-03  |  2KB  |  79 lines
  1. ; RBcomm macro file to log onto Quarterdeck BBS
  2. ;     by Ralf Brown
  3. ;
  4. #defkey Login 199
  5. Login  MULTI
  6.        PAUSE 2
  7.        TEXT "\r"
  8.        WAITFOR 10 "r)=no?"
  9.        TEXT "\r"
  10.        WAITFOR 30 "rst name?"
  11.        TEXT "FirstName\r"
  12.        WAITFOR 5 "ast name?"
  13.        TEXT "LastName\r"
  14.        WAITFOR 8 "echo)"
  15.        PAUSE 6
  16.        PASSWORD
  17.        TEXT "\r"
  18.        WAITFOR 5 "er)=no?"              ; "View other Conference members"
  19.        TEXT "\r"
  20.     END
  21.  
  22. #defkey StartLogging 198
  23. StartLogging MULTI
  24.        VERBOSE OFF
  25.        OPEN_LOG "D:/TMP/QDECK.LOG"
  26.     END
  27.  
  28. #defkey SkipStartup 197
  29. SkipStartup MULTI
  30.        WHEN 0 "H)elp, More?"               ; automatically ask for more
  31.       {
  32.       PAUSE 1               ; give RBcomm a chance to catch up
  33.       TEXT "\r"                        ;   with the incoming characters
  34.       }
  35.        WHEN 4 "Press (Enter)"              ; automatically continue at prompts
  36.           TEXT "\r"
  37.        WHEN 1 "Scan Message"
  38.       TEXT "n\r"
  39.        WAITFOR 10 "Command?"
  40.        IF FAILED
  41.       ABORT
  42.     END
  43.  
  44. #defkey JoinConf1 196
  45. JoinConf1 MULTI
  46.        TEXT "j 1\r"                        ; (J)oin the tech support conference
  47.        WAITFOR 3 "er)=no?"                 ; "View other Conference members"
  48.        TEXT "\r"
  49.        WAITFOR 5 "'Last Read'"             ; "Scan...Since 'Last Read'"
  50.        PAUSE 6
  51.        TEXT "\r"
  52.     END
  53.  
  54. Auto   MULTI
  55.        CLOSE_LOG               ; don't store logon sequence
  56.        CALL  Login
  57.        CALL  SkipStartup
  58.        CALL  StartLogging           ; OK, now store rest of session
  59.        CALL  JoinConf1
  60.        WAITFOR 15 "Conference Command?"
  61.        TEXT "r\r"
  62.        WAITFOR 5 "Read Command?"           ; start reading the tech support
  63.        TEXT "+\r"                          ; conference
  64.        WHEN 1 "Message Command?"           ; in non-stop mode
  65.       TEXT "ns\r"                      ;   (all text logged to file)
  66.     END
  67.  
  68. OnLoad CALL StartLogging
  69.  
  70. Cleanup MULTI
  71.     TEXT "g\r"
  72.     CLOSE_LOG
  73.     WAITFOR 5 "Thanks for calling"
  74.      END
  75.  
  76. ; add standard bindings
  77. #include "rbcomm"
  78.  
  79.