home *** CD-ROM | disk | FTP | other *** search
/ Chip Hitware 3 / Chip_Hitware_Vol_03.iso / chiphit3 / dfu / telemate / dci.tw_ < prev    next >
Text File  |  1995-08-07  |  2KB  |  59 lines
  1. ; DCI.SCR  --  Telemate script to logon DCI BBS
  2. ;
  3. ; 12/20/1991   Nordevald Software
  4. ;
  5. ; DCI.SCR is a general logon script file for DCI BBS.  It will logon
  6. ; to DCI boards including those running front ends such as BinkleyTerm
  7. ; and D'Bridge.
  8. ;
  9. ; You can use this script for all the DCI boards you call.  On each
  10. ; dialing entry enter DCI in the script field and enter your usernumber
  11. ; and password in the password field in the format usernumber;password.
  12. ;
  13. ; For instance, if on one DCI board, your usernumber is 83 and your
  14. ; password is SESAME, enter 83;SESAME in the password field of this
  15. ; board's dialing entry.
  16. ;
  17. ; Do the same for other DCI boards that you call.
  18. ;
  19. ; The script will log you on using ^& to send your usernumber and
  20. ; password for each DCI board.
  21. ;
  22. ;
  23.  
  24. SET AutoStop,On              ; stop script if carrier is lost
  25.  
  26. while found < 6
  27.   Waitfor "Irwin","BinkleyTerm","ESC","r <E> to End Connection:","continue? [Y]/n","Enter Name or ",120
  28.   if found < 4
  29.     delay 5
  30.   endif
  31.   switch found
  32.     case 1 : Put "^[^["         ; send two ESCAPE characters
  33.     case 2 : Put "^[^["         ; send two ESCAPE characters
  34.     case 3 : Put "^[^["         ; send two ESCAPE characters
  35.     case 4 : Put "1"            ; send menu selection
  36.     case 5 : Put "^M"           ; event scheduled?
  37.     case 6 : Put "^!;^&"        ; send <usernumber>;<password>
  38.   endswitch
  39. endwhile
  40.  
  41. if not found
  42.   hangup
  43.   stop
  44. endif
  45.  
  46.  
  47. When "Press any key", "^M"      ; send CR at "Press any key" prompts
  48.  
  49. When "*MORE*", "^M"             ; send CR at *MORE* prompts
  50.  
  51. Waitfor "Enter Command ("       ; wait for base prompt
  52. if not found
  53.   hangup
  54.   stop
  55. endif
  56.  
  57. Alarm "  Your turn!"
  58.  
  59.