home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / QuickLink.rar / QuickLink / WINFILES.PAK / COMPUSRV.SRP < prev    next >
Text File  |  1996-02-12  |  788b  |  61 lines
  1. ;
  2. ; Script for connecting to CompuServe
  3. ;
  4. CLS
  5. Echo "Please Wait . . ."
  6. Echo "Logging on CompuServe"
  7. localecho "on"
  8. Data "7"
  9. Parity "E"
  10. Stop "1"
  11.  
  12. if csdial = 0 goto compu:
  13. else if csdial = 1 goto tele:
  14. else if csdial = 2 goto tym:
  15.  
  16. compu:
  17. echo "At 7-E-1"
  18. dial compunet
  19. wait 2
  20. out "\r"
  21. in "me" 15
  22. out "CIS\r"
  23. goto finish:
  24.  
  25. tele:
  26. echo "Via Telenet, At 7-E-1"
  27. dial telenet
  28. wait 1
  29. if baud = 300
  30.     out  "\r"
  31. else if baud = 1200
  32.     out  "\r"
  33. else
  34.     out  "@"
  35. wait 1
  36. out  "\r"
  37. in   "TERMINAL=" 10
  38. out  "\r"
  39. in   "@" 10
  40. out  "C 202202\r"
  41. goto finish:
  42.  
  43. tym:
  44. echo "Via Tymnet, 7-E-1"
  45. dial tymnet
  46. wait 2
  47. out  "A"
  48. in   "in" 15
  49. out  "CPS"
  50. out  "\r"
  51. goto finish:
  52.  
  53. finish:
  54. in   "ID:" 15
  55. out  Cacct
  56. out  "\r"
  57. in   "word:" 15
  58. out  Cpass
  59. out  "\r"
  60. end
  61.