home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1992 / 09 / bd.exe / ZIFFNET.BDS < prev   
Text File  |  1992-04-01  |  991b  |  62 lines
  1. ; Dial up Ziffnet and log in.
  2.  
  3. ; This script is designed to work with a modem using an AT-command set.
  4.  
  5. O 2400 8N1 7BIT B+ NOCASE
  6.  
  7. ; Init the modem
  8. T 5 ReInit
  9.  
  10. :Init
  11. S ATZ^M
  12. W 3
  13. S ATE0V1^M
  14. R OK
  15. G Dial
  16.  
  17. ; Only reaches here if first init fails
  18. :ReInit
  19. T 5 FailInit
  20. G Init
  21.  
  22. ; Die gracefully if modem does not respond
  23. :FailInit
  24. N Modem did not respond^M
  25. G End
  26.  
  27. ; Dial ZiffNet
  28. :Dial
  29. N ^MDialing ..
  30. T 60 NoAnswer
  31. W 1
  32. ; Replace "9,555-1234" with your local Compuserve telephone number
  33. S ATDT9,555-1234^M
  34. R CONNECT
  35. W 1
  36. N ^MConnected^m
  37. W 2
  38.  
  39. ; Send userid
  40.  
  41. S ^C
  42. R User ID:
  43. ; Replace "77777,8888" with your account number
  44. S 77777,8888^M
  45.  
  46. ; Send Password
  47.  
  48. R Password:
  49. ; Replace "Your:Password:Here" with your password
  50. S Your:Password:Here^M
  51.  
  52. N ^M^G --- Login Complete --- ^G^M
  53. G End
  54.  
  55. : NoAnswer - Hangup and tell operator
  56. H
  57. N ^G -- Line busy or your modem isn't working -- ^G^M
  58.  
  59. : End
  60.  
  61. ; Recompile this script with the command BD /C ZIFFNET
  62.