home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / bubba.arj / BUBBADIR.ZIP / CISLOG.TPL < prev    next >
Encoding:
Text File  |  1992-02-13  |  1.3 KB  |  86 lines
  1. echo "\rInitializing..."
  2. echo "\rAttempting to dial out..."
  3. output "+++\r"
  4. output "ATH\r"
  5. input 5 "OK"
  6. output @INITSTRING
  7. input 5 "OK"
  8.  
  9. :DIALIT
  10. set count 5
  11.  
  12. :REDIAL
  13. echo "\rAttempting to dial out..."
  14. output @TNUMBER
  15. input 30 "CONNECT"
  16. if success goto DOBBS
  17. reinput "CONNECT"
  18. if success goto DOBBS
  19. if count goto REDIAL
  20. goto NOGO
  21.  
  22. :DOBBS
  23. onlinetest "on"
  24. output "\r"
  25. set count 5
  26.  
  27. :LOADBBS
  28. input 10 "Host Name:"
  29. if offline goto NOGO
  30. if success goto HOSTSET
  31. reinput "Host Name:"
  32. if success goto HOSTSET
  33. output "\r"
  34. if count goto LOADBBS
  35. goto DONE
  36.  
  37. :HOSTSET
  38. output "CIS\r"
  39. set count 5
  40.  
  41. :DOHOST
  42. input 10 "User ID:"
  43. if offline goto NOGO
  44. if success goto LOGSET
  45. reinput "User ID:"
  46. if success goto LOGSET
  47. output "\r"
  48. if count goto DOHOST
  49. goto DONE
  50.  
  51. :LOGSET
  52. output @USERID
  53. if offline goto NOGO
  54. set count 5
  55.  
  56. :PASSWORD
  57. input 10 "Password:"
  58. if offline goto NOGO
  59. if success goto OUTPASS
  60. reinput "Password:"
  61. if success goto OUTPASS
  62. output "\r"
  63. if count goto PASSWORD
  64. goto DONE
  65.  
  66. :OUTPASS
  67. output @PASWORD
  68. if offline goto NOGO
  69. set count 15
  70.  
  71. :PETC1
  72. input 10 "!"
  73. if offline goto NOGO
  74. if success goto DONE
  75. reinput "!"
  76. if success goto DONE
  77. if count goto PETC1
  78. goto DONE
  79.  
  80. :DONE
  81. exit 0
  82.  
  83. :NOGO
  84. echo "Cannot connect, try again later."
  85. exit 1
  86.