home *** CD-ROM | disk | FTP | other *** search
/ Chip 1994 February / CHIP0294.ISO / digital / dfue / terminal / telemate / disk3 / dci.scr < prev    next >
Text File  |  1993-07-20  |  2KB  |  63 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. SET Tag,Crlf                 ; set file tag separator to CR/LF
  26. SET Terminal,ANSI            ; use ANSI emulation for full screen editor
  27. SET Music,Off                ; command used for editing instead
  28.  
  29. while found < 6
  30.   Waitfor "Irwin","BinkleyTerm","ESC","r <E> to End Connection:"
  31.   ,"continue? [Y]/n","Enter Name or ", 120
  32.   if found < 4
  33.     delay 5
  34.   endif
  35.   switch found
  36.     case 1 : Put "^[^["         ; send two ESCAPE characters
  37.     case 2 : Put "^[^["         ; send two ESCAPE characters
  38.     case 3 : Put "^[^["         ; send two ESCAPE characters
  39.     case 4 : Put "1"            ; send menu selection
  40.     case 5 : Put "^M"           ; event scheduled?
  41.     case 6 : Put "^&"           ; save password as <usernumber>;<password>
  42.   endswitch
  43. endwhile
  44.  
  45. if not found
  46.   hangup
  47.   stop
  48. endif
  49.  
  50.  
  51. When "Press any key", "^M"      ; send CR at "Press any key" prompts
  52.  
  53. When "*MORE*", "^M"             ; send CR at *MORE* prompts
  54.  
  55. Waitfor "Enter Command ("       ; wait for base prompt
  56. if not found
  57.   hangup
  58.   stop
  59. endif
  60.  
  61. Alarm "  Your turn!"
  62.  
  63.