home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / comm / misc / 014 / opus.mac < prev    next >
Text File  |  1993-01-02  |  2KB  |  81 lines
  1. ; RBcomm macro file for Opus systems with OpXpress
  2. ;
  3. F2      MULTI                    ; from main bulletins screen
  4.     TEXT    "x\r"
  5.     WAITFOR 20 "ress"
  6.     TEXT    "  "
  7.     WAITFOR 15 "C, D"
  8.     PAUSE    4
  9.     PUSHKEY F3         ; now that we're at the OpX prompt, run rest
  10.     END
  11. F3    MULTI             ; from OpX prompt
  12.         CHDIR   "d:/opx"         ; make sure we're in the right directory
  13.     TEXT    "d\r"            ; tell OpX we want to download
  14.     WAITFOR 40 ">"           ; wait for action prompt
  15.     WAITFOR 3  ":"
  16.     PAUSE    4
  17.         TEXT    "a\r"            ; we want to download all messages
  18.     WAITFOR 30 "ountdown"    ; wait for transfer start prompt
  19.     PAUSE    3
  20.         TEXT    "\r"             ; yes, we want to start downloading
  21.     END
  22. Home    TEXT     "^Q^S"
  23. End    TEXT     "^Q^D"
  24. Left    TEXT     "^S"
  25. Right    TEXT     "^D"
  26. Up    TEXT     "^E"
  27. Down    TEXT     "^X"
  28. PgUp    TEXT     "^R"
  29. PgDn    TEXT     "^C"
  30. ^PgUp    TEXT     "^Q^R"
  31. ^PgDn    TEXT     "^Q^C"
  32. Ins    TEXT     "^V"
  33. Del    TEXT     "\a"
  34. ^Left    TEXT     "^A"
  35. ^Right    TEXT     "^F"
  36.  
  37. ; and now, our automatic logon routine
  38. AUTO    MULTI
  39.     TEXT    "\r"              ; get the BBS's attention
  40.     PAUSE    9
  41.     TEXT    "\r"
  42.     PAUSE    9
  43.     UNTIL    SUCCESS
  44.        {
  45.        TEXT    "\r"
  46.        WAITFOR 1 " "
  47.        }
  48.     WAITFOR 5 "ress"          ; when mailer asks to press Escape, do so
  49.     TEXT    "\e"
  50.     WHEN 1 "NAME:"
  51.        ABORT
  52.     FORCE_CLEANUP Null
  53.        WAITFOR 20 "ame:"      ; wait for login prompt
  54.     ENDWHEN LAST
  55.     TEXT    "Your Name;y\r"   ; and send name
  56.     WAITFOR 10 "ord:"         ; wait for password prompt
  57.     PASSWORD          ; send the password defined in the directory
  58.     TEXT    "\r"              ; finish up password with a Return
  59.     WHEN    1 "│"             ; skip graphics sign-on screen
  60.       TEXT "^C"
  61.     WHEN    2 "to continue"   ; press Enter when asked
  62.       TEXT "\r"
  63.     WHEN    1 "Bull"          ; skip bulletins screen
  64.       TEXT "^C"
  65.     END
  66.  
  67. ; and the automatic logoff on hangup
  68. Cleanup MULTI
  69.     TEXT        "gyn\r"                  ; tell Opus we're leaving
  70.     WHEN 1 "NO CARRIER"
  71.        {
  72.        ENDWHEN ALL
  73.        ABORT
  74.            }
  75.     FORCE_CLEANUP Null
  76.        WAITFOR  20 "thanks for calling"  ; wait for signoff message
  77.      END                     ; before hanging up
  78.  
  79. ; add default bindings which have not been overridden
  80. #include "rbcomm"
  81.