home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / mskermit / msmintel.scr < prev    next >
Text File  |  2020-01-01  |  4KB  |  131 lines
  1. ; FILE INTEL14.SCR (MSMINTEL.SCR)
  2. ; 
  3. ; An MS-DOS Kermit script program for dialing the Intel High-Speed Internal
  4. ; Faxmodem, to be used with MS-DOS Kermit 3.14 or later.  The modem is set up
  5. ; for compression, error correction, all types of fallback.  RTS/CTS flow
  6. ; control, fixed interface speed of 57600 or 38400.
  7. ;
  8. ; Authors: Christine M. Gianone, Frank da Cruz; Columbia U, October 1994.
  9. ;
  10. def errfail echo \%1, hangup, goto fail ; Macro to handle failures.
  11. if < VERSION 312 errfail {MS-DOS Kermit 3.12 or later required.}
  12.  
  13. define chkerr if fail stop 1 \%1
  14. define chkok input 3 OK, if fail stop 1 \%1
  15.  
  16. ; Macro to try to get attention of modem's command processor
  17. ; at the given speed, or if no speed given, at the current speed.
  18. ;
  19. define atok -
  20.  if not def \%1 assign \%1 \v(speed), -
  21.  set speed \%1, -
  22.  echo Trying \%1..., -
  23.  output ATQ0V1\13, -
  24.  input 3 OK, -
  25.  end \v(status)
  26.  
  27. set input echo on        ; So we can watch what happens.
  28. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE.
  29. set input case ignore        ; Use caseless string comparisons
  30.  
  31. set parity none            ; Avoid parity foulups
  32. set flow none            ; Avoid flow control deadlocks
  33. hangup                ; Begin by dropping DTR
  34. pause 1                ; for one second
  35.  
  36. atok 57600            ; Autobaud...
  37. if fail atok 38400
  38. if fail atok 19200
  39. if fail atok 9600
  40. if fail stop 1 Can't get modem's attention.
  41.  
  42. def atok
  43. output AT E1&C1&D2&S0X4\92V2\13 ; Echoing, result codes, etc.
  44. chkok {Can't initialize modem}
  45.  
  46. echo Configuring Intel Faxmodem...
  47. out ATB1+FCLASS=0 S7=85 S25=50\13
  48. chkok {Can't set data modulation}
  49. echo Enabling hardware flow control...
  50. output AT \92G0\92Q3\13        ; Maybe substitute G1 for G0?
  51. chkok {Can't enable RTS/CTS}
  52. wait 5 cts
  53. if fail errfail {Modem is not asserting CTS!}
  54. set flow rts/cts 
  55. echo Configuring modem to ignore BREAK...
  56. output AT Y0\92K1\13
  57. chkok {Can't become transparent to BREAK}
  58. echo Enabling error correction and data compression...
  59. output AT \92J0\92N3%C1"H3\13
  60. chkok {Can't enable compression EC and fallback}
  61.  
  62. if def \%1 if not equal "\%1" "=" goto BEGIN
  63. echo Modem initialization complete, no number to dial
  64. end 0
  65.  
  66. :BEGIN                ; Now DIAL.
  67. clear                ; Clear INPUT buffer.
  68. set count 5                     ; Dialing retry counter, 5 tries allowed.
  69. echo Dialing \%1 on \v(line) at \v(speed) bps, wait...
  70. echo
  71. pause 1
  72. goto dial                       ; 1st time, skip pause and Redialing message
  73.  
  74. :REDIAL
  75. set alarm 30
  76. pause 30            ; Wait 30 seconds before redialing.
  77. if not alarm errfail {Dialing canceled.}
  78. echo Redialing...               ; Message for redialing.
  79. pause 1
  80.  
  81. :DIAL
  82. output ATD\%1\13                ; Dial the number.
  83. set alarm 90            ; (For detecting keyboard interruptions.)
  84. clear input            ; Clear echo from INPUT buffer.
  85. input 30 \10                    ; Wait for the linefeeds...
  86.  
  87. :GETMSG
  88. input 60 \10            ; ...that surround the response message.
  89. if success goto gotmsg        ; Got a message.
  90. if alarm errfail {No response from modem.} ; No response in 90 seconds.
  91. hangup                ; User interrupted from keyboard,
  92. output \13            ; cancel dialing by sending carriage return,
  93. goto again            ; and go try again right away.
  94.  
  95. :GOTMSG
  96. reinput 1 CONNECT               ; Got a message, was it CONNECT?
  97. if success goto done            ; If so, we're done.
  98. reinput 1 BUSY            ; Line is busy.
  99. if success goto busy        ; Go wait a while and then dial again.
  100. reinput 1 ERROR            ; Command syntax error.
  101. if success errfail {Dialing command error}
  102. reinput 1 NO CARRIER        ; Phone didn't answer or no carrier.
  103. if success errfail {No carrier}
  104. reinput 1 NO ANSWER        ; No answer
  105. if success errfail {No answer}
  106. reinput 1 NO DIALTONE        ; No dialtone when phone taken off hook.
  107. if success errfail {No dialtone - Is your modem connected to the phone line\63}
  108. goto getmsg            ; None of the above, get another message.
  109.  
  110. :BUSY
  111. if < \v(count) 2 goto quit    ; Don't wait 30 seconds if tries are used up.
  112. Echo Line is busy, will dial again in 30 seconds
  113. echo Press any key to cancel...
  114. output \13            ; CR cancels dialing
  115. hangup                          ; Hang up.
  116. :AGAIN
  117. if count goto redial            ; Then go redial.
  118. :QUIT
  119. errfail {It never answers!  I give up.} ; Too many tries.
  120.  
  121. :DONE                           ; Connected.
  122. echo \7                         ; Celebrate with a beep.
  123. def errfail            ; Erase local macro definitions...
  124. end 0                ; Finished, return success code.
  125.  
  126. :FAIL                ; Dialing failed, no beep.
  127. def errfail            ; Erase local macro definitions...
  128. end 1                ; Return failure code.
  129.  
  130. ; End of INTEL14.SCR
  131.