home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / comfiles / kerm311.arj / HAYES.SCR < prev    next >
Text File  |  1991-09-19  |  5KB  |  121 lines
  1. ; FILE HAYES.SCR
  2. ;
  3. ; To be used with MS-DOS Kermit 3.11 or later.
  4. ;
  5. ; An MS-DOS Kermit script program for dialing Hayes 2400 Smartmodems and
  6. ; compatibles.  Should also work with Hayes 1200, and ROLMphone 244PCs.
  7. ;
  8. ; Stored in Kermit Distribution as MSIHAY.SCR; rename to HAYES.SCR if
  9. ; necessary so the DIAL macro can find it.  Place this file in your current
  10. ; directory, or any directory in your DOS PATH.
  11. ;
  12. ; Expects variable \%1 to contain the phone number; this is done by the DIAL
  13. ; macro defined in MSKERMIT.INI.  If you lack the DIAL macro definition, use
  14. ; this simple substitute:
  15. ;   DEFINE DIAL TAKE HAYES.SCR
  16. ; To use, just type DIAL nnnnnnn at the MS-Kermit> prompt, where nnnnnnn is
  17. ; the desired phone number.
  18. ;
  19. ; Uses ATD (modem's default dialing method) to dial the number.  Force tone
  20. ; dialing by including T as first character of phone number, or pulse dialing
  21. ; by including P as first character.
  22. ;
  23. ; Sets SUCCESS flag if dialing succeeds, sets FAILURE flag if it fails, for
  24. ; use with IF SUCCESS, IF FAILURE, \v(status).
  25. ;
  26. ; Puts the Hayes modem in the following modes, which this script depends upon
  27. ; for proper operation:
  28. ;   Q0 = Enable result codes
  29. ;   V1 = Use verbose (English) result codes
  30. ;   X1 = Enable result codes OK, CONNECT, RING, NO CARRIER, ERROR,
  31. ;        CONNECT 1200, CONNECT 2400
  32. ; These are set by the statement:
  33. ;   output ATQ0V1X1\13
  34. ; If these modes don't agree with your modem's normal settings, you can add
  35. ; OUTPUT commands to restore the desired settings just before the two END
  36. ; statements at the end of this file.
  37. ;
  38. ; Hayes modems do not issue any messages like RINGING or RRING when the other
  39. ; phone is ringing, but certain Hayes-compatible modems do, like Telebit.  If
  40. ; you experience problems with this, comment (or uncomment) the appropriate
  41. ; statement below, in the "GOTMSG" section below.  (Note: RING is different:
  42. ; it means another modem is calling your modem.)
  43. ;
  44. ; Note: If the HANGUP command does not work for you, try this:
  45. ;  (1) Change all references to HANGUP to HANGITUP;
  46. ;  (2) define hangitup pause 1, output +++, pause 1, output ath0\13
  47. ;
  48. ; Author: Christine M. Gianone, January 1990
  49. ; Updated for MS-DOS Kermit version 3.11, July 1991
  50. ; 
  51. def errfail echo \%1,hangup,goto fail ; Macro to handle failures.
  52.  
  53. if < VERSION 311 errfail {MS-DOS Kermit 3.11 or later required.}
  54. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE
  55. set input echo off              ; Don't echo the modem test
  56. output ATQ0V1X1\13              ; Send AT, use word result codes.
  57. input 2 OK                      ; Modem should say "OK"
  58. if fail errfail {Turn on or connect your modem!}
  59. clear                ; Clear input buffer
  60. set count 5                     ; Set up dialing retry counter
  61. set input echo on               ; From now on, show what happens
  62. echo Dialing \%1, wait...
  63. pause 1
  64. goto dial                       ; 1st time, skip Redialing message
  65.  
  66. :REDIAL
  67. pause 30            ; Wait 30 seconds before redialing.
  68. echo Redialing...               ; Message for redialing.
  69. pause 1
  70.  
  71. :DIAL
  72. output ATD\%1\13                ; Dial the number (ATDT or ATDP)
  73. ;;;pause 20            ; *** Might be necessary for some modems.
  74. set alarm 60            ; Detect keyboard interruptions.
  75. clear                ; Clear INPUT buffer.
  76. input 40 \10                    ; Wait for the linefeeds...
  77.  
  78. :GETMSG
  79. input 20 \10            ; that surround response message.
  80. if success goto gotmsg        ; Got a message.
  81. if alarm errfail {No response from modem.} ; No response in 60 secs.
  82. hangup                ; User interrupted from keyboard,
  83. goto again            ; so try again right away
  84.  
  85. :GOTMSG
  86. reinput 0 CONNECT               ; Got message, was it CONNECT?
  87. if success goto speed           ; Yes, go check the speed.
  88. reinput 0 ERROR            ; No, check for command error.
  89. if success errfail {Modem command error.}
  90. reinput 0 NO CARRIER        ; NO CARRIER?
  91. if success goto busy        ; Treat like BUSY.
  92. reinput 0 BUSY                  ; BUSY?
  93. if success goto busy         ; Go wait a bit, then dial again.
  94. reinput 0 RRING            ; *** No, check for RRING (Telebit only).
  95. if success goto getmsg        ; *** RRING, just wait for next message.
  96. ; reinput 0 RINGING        ; *** No, check for RINGING (not real Hayes).
  97. ; if success goto getmsg    ; *** RINGING, just wait for next message.
  98. errfail {No dialtone or no answer.  Try again later.}
  99.  
  100. :BUSY
  101. if < \v(count) 2 goto quit    ; Don't wait 60 seconds if tries used up.
  102. Echo Busy or No Carrier, will dial again in 30 seconds...
  103. hangup                          ; Hang up.
  104. :AGAIN
  105. if count goto redial            ; Then go redial.
  106. :QUIT
  107. errfail {It never answers!  I give up.} ; Too many tries.
  108.  
  109. :SPEED                          ; Connected!
  110. echo \7                         ; Celebrate with a beep.
  111. reinput 0 1200                  ; Was the message CONNECT 1200?
  112. if success set speed 1200       ; Yes, change the speed.
  113. reinput 0 2400            ; Was it CONNECT 2400?
  114. if success set speed 2400    ; Yes, change speed.
  115. define errfail            ; Erase ERRFAIL definition
  116. end 0                ; Finished, return success code.
  117.  
  118. :FAIL                ; Dialing failed.
  119. define errfail            ; Erase ERRFAIL definition
  120. end 1                ; Return failure code.
  121.