home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / archives / mskermit.tar.gz / mskermit.tar / msvibmzip.uue / MSVIBM.ZIP / MODEMS / SPORT.SCR < prev    next >
Text File  |  1995-03-24  |  5KB  |  133 lines
  1. ; FILE SPORT.SCR (MSMSPORT.SCR)
  2. ; 
  3. ; An MS-DOS Kermit script program for dialing the US Robotics Sportster or
  4. ; Courier 14400 or 28800 modem, to be used with MS-DOS Kermit 3.12 or later.
  5. ; The modem is set for RTS/CTS flow control, fixed interface speed of 57600,
  6. ; and to negotiate highest modulation, compression, with error correction
  7. ; with all types of fallback.
  8. ;
  9. ; To use: SET MODEM=SPORT (in DOS, before starting Kermit)
  10. ; or:     DEFINE _MODEM SPORT (in Kermit, before dialing)
  11. ; or:     SET MODEM SPORT (in Kermit, v3.14 or later)
  12. ; and:    Make sure Kermit executes the standard MSKERMIT.INI file.
  13. ;
  14. ; Authors: Christine M. Gianone, Frank da Cruz; Columbia U, June 1993
  15. ; Modified 8 Aug 93 to fix typo (W1 is not a legal Sportster command).
  16. ; 10 Nov 93 - eliminate DSR check.
  17. ; 18 Jan 95 - update for version 3.14, SET CARRIER, etc.
  18. ; 24 Mar 95 - update comments after testing with V.34 model.
  19. ;
  20. def errfail echo \%1, hangup, goto fail ; Macro to handle failures.
  21. if < VERSION 312 errfail {MS-DOS Kermit 3.12 or later required.}
  22.  
  23. define chkerr if fail stop 1 \%1
  24. define chkok input 3 OK, if fail stop 1 \%1
  25.  
  26. if > VERSION 313 set carrier OFF ; Don't require carrier during dialing.
  27.  
  28. set input echo on        ; So we can watch what happens.
  29. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE.
  30. set input case ignore        ; Use caseless string comparisons
  31.  
  32. set parity none            ; Avoid parity foulups
  33. set flow none            ; Avoid flow control deadlocks
  34. hangup                ; Begin by dropping DTR
  35. pause 1                ; for one second
  36.  
  37. ; Speed.  Don't worry about modem, it autobauds up to 57600 bps.
  38.  
  39. set speed 57600
  40. echo Configuring USR Sportster on \v(line).
  41.  
  42. :INIT
  43. output ATQ0V1&S0I3\13        ; Enable word result codes, turn on DSR
  44. chkok {Can't get modem's attention}
  45. output AT E1 X4 &A3 &D2\13    ; Set echoing, result codes, etc.
  46. chkok {Can't initialize modem}
  47. output AT&B1\13            ; Fixed interface speed
  48. chkok {Can't fix interface speed}
  49. output AT &H1&R2\13        ; RTS/CTS hardware flow control
  50. chkok {Can't enable RTS/CTS}    ; On modem
  51. wait 5 cts
  52. if fail errfail {Modem is not asserting CTS!}
  53. set flow rts/cts        ; And in Kermit too, but only now
  54. output AT &N0\13
  55. chkok {Can't enable modulation fallback}
  56. output AT &K1&M4\13        ; Compression and EC enabled
  57. chkok {Can't enable compression and EC}
  58. output AT &Y3\13        ; Make modem pass BREAK transparently
  59. chkok {Can't become transparent to BREAK}
  60.  
  61. if def \%1 if not equal "\%1" "=" goto BEGIN
  62. echo Modem initialization complete, no number to dial.
  63. end 0
  64.  
  65. :BEGIN                ; Now DIAL.
  66. clear                ; Clear INPUT buffer.
  67. set count 5                     ; Dialing retry counter, 5 tries allowed.
  68. echo Dialing \%1 on \v(line) at \v(speed) bps, wait...
  69. echo
  70. pause 1
  71. goto dial                       ; 1st time, skip pause and Redialing message
  72.  
  73. :REDIAL
  74. set alarm 30
  75. pause 30            ; Wait 30 seconds before redialing.
  76. if not alarm errfail {Dialing canceled.}
  77. echo Redialing...               ; Message for redialing.
  78. pause 1
  79.  
  80. :DIAL
  81. output ATD\%1\13                ; Dial the number.
  82. set alarm 90            ; (For detecting keyboard interruptions.)
  83. if > VERSION 312 clear input    ; Clear echo from INPUT buffer.
  84. if < VERSION 313 clear
  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 answer or no carrier}
  104. reinput 1 NO ANSWER        ; No answer
  105. if success errfail {No answer - try again later}
  106. reinput 1 NO DIAL TONE        ; 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. define errfail            ; Erase local macro definitions...
  124. if > VERSION 313 set carrier on ; Require carrier from now on.
  125. end 0                ; Finished, return success code.
  126.  
  127. :FAIL                ; Dialing failed, no beep.
  128. define errfail            ; Erase local macro definitions...
  129. if > VERSION 313 set carrier off ; So they can CONNECT and see what's up...
  130. end 1                ; Return failure code.
  131.  
  132. ; End of SPORT.SCR
  133.