home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / os2 / bubba.arj / BUBBADIR.ZIP / FERNLOG.TPL < prev    next >
Encoding:
Text File  |  1992-02-16  |  1.7 KB  |  118 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 "moments."
  29. if offline goto NOGO
  30. if success goto OUTESC
  31. reinput "wait"
  32. if success goto OUTESC
  33. reinput "moments."
  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. input 8 "mail [Y,n]?"
  88. if offline goto NOGO
  89. if success goto CKMAIN
  90. reinput "Select:"
  91. if success goto CKMAIN2
  92. output "\r"
  93. if count goto CKMAIL1
  94. goto NOGO
  95.  
  96. :CKMAIN
  97. output "n\r"
  98. :CKMAIN2
  99. if offline goto NOGO
  100. set count 5
  101.  
  102. :MAIN
  103. input 10 "Select:"
  104. if offline goto NOGO
  105. if success goto DONE
  106. reinput "Select:"
  107. if success goto DONE
  108. output "\r"
  109. if count goto MAIN
  110. goto NOGO
  111.  
  112. :DONE
  113. exit 0
  114.  
  115. :NOGO
  116. echo "Cannot connect, try again later."
  117. exit 1
  118.