home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / FPMODEM.SRP < prev    next >
Encoding:
Text File  |  1996-06-05  |  1.9 KB  |  112 lines
  1. rem Copyright (c) PhoneLink plc
  2. rem Prologue Fast Connect Modem (23/8/95)
  3.  
  4. label InitDevice
  5. echo off
  6. flush
  7. echo script[56]
  8. send    "atchar(13)"
  9. timeout 3,modem_fail
  10. find    "OK"
  11. label OffToGate
  12. rem Offline to Gate (also contains Pad to Gate)
  13. echo off
  14. flush
  15. echo script[57]
  16. send    "at{InitModemStr}char(13)"
  17. timeout 5,modem_fail
  18. find    "OK"
  19. send   "atd{DialMode}{PreTel}{SiteTel}{PostFix}char(13)"
  20. echo script[52]...
  21. timeout {DialTimeout},connect_fail
  22. finderr 0,BUSY,busy
  23. finderr 103,NO DIALTONE,connect_fail
  24. finderr 0,NO CARRIER,no_carrier  
  25. find "CONNECT"
  26. timeout 3,Bad_PadPrompt
  27. finderr 0,PAD>,Good_PadPrompt
  28. find "ZZZ"
  29. label Bad_PadPrompt
  30. echo script[58]
  31. send "char(13)"
  32. timeout 3,pad_fail
  33. find "PAD>"
  34. label Good_PadPrompt
  35. label PadToGate
  36. echo off
  37. echo script[53]  
  38. mwait 250
  39. send    "SER{SUB}char(13)"
  40. timeout 3,nua_bad1
  41. finderr 0,COM,nua_good
  42. find    "ZZZ"
  43. label nua_bad1
  44. send    "SER{SUB}char(13)"
  45. timeout 3,nua_bad2
  46. finderr 0,COM,nua_good
  47. find    "ZZZ"
  48. label nua_bad2
  49. send    "SER{SUB}char(13)"
  50. timeout 3,nua_fail
  51. find    "COM"
  52. label nua_good
  53. echo script[54].
  54. end
  55.  
  56. label GateToPad
  57. echo off
  58. echo script[92]
  59. send    "char(16)CLRchar(13)"
  60. timeout 5,ctrl_p_clear_fail
  61. find    "CONF"
  62. echo script[91]...
  63. end
  64.  
  65. label GateToOff
  66. rem Gate To Offline (also contains Pad to Offline)
  67. echo off
  68. label PadToOff
  69. echo off
  70. send    "char(31)char(31)char(31)char(31)"
  71. wait 1
  72. dtrtoggle
  73. echo script[99].
  74. end
  75.  
  76. label modem_offline
  77. send    "char(31)char(31)char(31)char(31)"
  78. wait 1
  79. label hang_up
  80. dtrtoggle
  81. echo script[99] 
  82. abort
  83.  
  84. label modem_fail
  85. echo script[23].
  86. dtrtoggle
  87. abort
  88.  
  89. label connect_fail
  90. echo script[1]
  91. goto hang_up
  92.  
  93. label busy
  94. echo script[2]
  95. goto hang_up
  96.  
  97. label no_carrier
  98. echo script[3]
  99. goto hang_up
  100.  
  101. label pad_fail
  102. echo script[1]
  103. goto modem_fail
  104.  
  105. label nua_fail
  106. echo script[22]
  107. goto modem_offline
  108.  
  109. label ctrl_p_clear_fail
  110. echo script[14]
  111. goto modem_offline
  112.