home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / bubba.arj / BUBBADIR.ZIP / PNLOG.TPL < prev    next >
Encoding:
Text File  |  1992-03-05  |  1.7 KB  |  121 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 60 "ESCape"
  29. if offline goto NOGO
  30. if success goto OUTESC
  31. reinput "wait"
  32. if success goto OUTESC
  33. reinput "ESCape"
  34. if success goto OUTESC
  35. output "\r"
  36. if count goto LOADBBS
  37. goto NOGO
  38.  
  39. :OUTESC
  40. output "\27"
  41. set count 5
  42.  
  43. :LOGIN
  44. input 10 "name:"
  45. if offline goto NOGO
  46. if success goto OUTNAME
  47. reinput "name:"
  48. if success goto OUTNAME
  49. output "\r"
  50. if count goto LOGIN
  51. goto NOGO
  52.  
  53. :OUTNAME
  54. output @USERID
  55. set count 5
  56.  
  57. :NAMEOK
  58. input 10 "[Y,n]?"
  59. if offline goto NOGO
  60. if success goto OUTYES
  61. reinput "[Y,n]?"
  62. if success goto OUTYES
  63. output "\r"
  64. if count goto NAMEOK
  65. goto NOGO
  66.  
  67. :OUTYES
  68. output "y\r"
  69. set count 5
  70.  
  71. :PASSWORD
  72. input 8 "Password:"
  73. if offline goto NOGO
  74. if success goto OUTPASS
  75. reinput "Password:"
  76. if success goto OUTPASS
  77. output "\r"
  78. if count goto PASSWORD
  79. goto NOGO
  80.  
  81. :OUTPASS
  82. output @PASWORD
  83. if offline goto NOGO
  84. set count 5
  85.  
  86. :CKMAIL1
  87. untilidle 1
  88. reinput "[Y,n]"
  89. if offline goto NOGO
  90. if success goto CKMAIN
  91. reinput "Select:"
  92. if success goto CKMAIN2
  93. output "\r"
  94. if count goto CKMAIL1
  95. goto NOGO
  96.  
  97. :CKMAIN
  98. output "n\r"
  99. goto CKMAIL1
  100.  
  101. :CKMAIN2
  102. if offline goto NOGO
  103. set count 5
  104.  
  105. :MAIN
  106. input 10 "Select:"
  107. if offline goto NOGO
  108. if success goto DONE
  109. reinput "Select:"
  110. if success goto DONE
  111. output "\r"
  112. if count goto MAIN
  113. goto NOGO
  114.  
  115. :DONE
  116. exit 0
  117.  
  118. :NOGO
  119. echo "Cannot connect, try again later."
  120. exit 1
  121.