home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / mskscripts / sport.kds < prev    next >
Text File  |  2020-01-01  |  5KB  |  142 lines
  1. ; FILE SPORT.SCR
  2. ; 
  3. ; An MS-DOS Kermit script program for dialing the US Robotics Sportster or
  4. ; Courier 14400, 28800, or compatible modem, to be used with MS-DOS Kermit
  5. ; 3.15 or later.  The modem is set for RTS/CTS flow control, fixed interface
  6. ; speed, and to negotiate highest modulation, error correction, compression,
  7. ; and all types of fallback.
  8. ;
  9. ; Authors: C. Gianone & F. da Cruz, Columbia U, December 1996
  10. ;
  11. ; To use: SET MODEM=SPORT (in DOS, before starting Kermit or in AUTOEXEC.BAT)
  12. ; or:     SET MODEM SPORT (in Kermit, or in MSCUSTOM.INI)
  13. ; and:    Make sure Kermit has executed the standard MSKERMIT.INI file,
  14. ;         and then DIAL the desired number.
  15. ;
  16. ; Variables - define these prior to dialing if desired; they can be either
  17. ; Kermit variables or DOS environment variables:
  18. ; 
  19. ;   DIALPORT    - COM port to use for dialing (COM1, COM2, etc)
  20. ;   DIALSPEED   - Speed for dialing (57600 by default)
  21. ;   DIALMETHOD  - TONE or PULSE (modem's default method is used by default)
  22. ;   DIALRETRIES - Maximum times to redial the call (default 5)
  23. ;   DIALTIMEOUT - How long to wait for result from modem (default 90 seconds)
  24. ;
  25. if < VERSION 315 stop 1 MS-DOS Kermit 3.15 or later required.
  26. def ERRFAIL echo \%1, forward FAIL
  27. def CHKOK input 3 OK, if fail stop 1 \%1
  28.  
  29. local __dm __parity        ; Local variables
  30. set carrier off                 ; Don't require carrier during dialing.
  31. set input echo on        ; So we can watch what happens.
  32. set input timeout proceed       ; Allow IF SUCCESS, IF FAILURE.
  33. set input case ignore        ; Use caseless string comparisons
  34.  
  35. :PORT
  36. if not def DIALPORT asg DIALPORT \$(DIALPORT)
  37. if not def DIALPORT forward SPEED
  38. set port \m(DIALPORT)
  39. if success forward SPEED
  40. echo SET PORT \m(DIALPORT) failed 
  41. end 1
  42.  
  43. :SPEED
  44. asg __parity \v(parity)        ; Save parity setting
  45. set parity none            ; Switch to none while dialing
  46. set flow none            ; Avoid flow control deadlocks
  47. hangup                ; Begin by dropping DTR
  48.  
  49. if not def DIALSPEED asg DIALSPEED \$(DIALSPEED)
  50. if not def DIALSPEED asg DIALSPEED 57600
  51. set speed \m(DIALSPEED)
  52. if fail end 1 \m(DIALSPEED) - Speed not supported
  53.  
  54. ; Dial method, retry limit, and timeout...
  55.  
  56. xif numeric \fsubstr(\%1,1,1) {
  57.     if eq "\m(DIALMETHOD)" "TONE" asg __dm T
  58.     if eq "\m(DIALMETHOD)" "PULSE" asg __dm P
  59. }
  60. if not def DIALRETRIES asg DIALRETRIES \$(DIALRETRIES)
  61. if not def DIALRETRIES asg DIALRETRIES 5
  62.  
  63. if not def DIALTIMEOUT asg DIALTIMEOUT \$(DIALTIMEOUT)
  64. if not def DIALTIMEOUT asg DIALTIMEOUT 90
  65.  
  66. ; Begin the modem dialog...
  67.  
  68. echo Configuring USR Sportster on \v(line)...
  69. output ATQ0V1\13        ; Enable word result codes
  70. chkok {Can't get modem's attention}
  71. output ATE1X4&A3&D2\13        ; Set echoing, result codes, etc.
  72. chkok {Can't initialize modem}
  73. output AT&B1\13            ; Fixed interface speed
  74. chkok {Can't fix interface speed}
  75. output AT &H1&R2\13        ; RTS/CTS hardware flow control
  76. chkok {Can't enable RTS/CTS}    ; On modem
  77. wait 5 cts
  78. if fail errfail {Configuration failed - no CTS from modem}
  79. set flow rts/cts        ; And in Kermit too, but only now
  80. output AT &N0\13        ; Enable modulation fallback
  81. chkok {Can't enable modulation fallback}
  82. output AT &K1&M4\13        ; Compression and EC enabled
  83. Chkok {Can't enable compression and EC}
  84. output AT &Y3\13        ; Make modem pass BREAK transparently
  85. chkok {Can't become transparent to BREAK}
  86. mpause 500
  87. clear input            ; Clear INPUT buffer.
  88. clear device            ; Clear device buffer.
  89.  
  90. echo Dialing \%1 on \v(line) at \v(speed) bps, wait...
  91. echo
  92.  
  93. for \%i 1 \m(DIALRETRIES) 1 {    ; Redial loop
  94.     xif > \%i 1 {
  95.         echo Redialing...       ; Message for redialing
  96.         hangup            ; Hang up first
  97.     }
  98.     pause 1            ; Wait a sec for modem to settle
  99.     output ATD\m(__dm)\%1\13    ; Dial the number.
  100.     for \%j 1 10 1 {
  101.         minput \m(DIALTIMEOUT) -
  102.           CONNECT BUSY ERROR {NO CARRIER} {NO ANSWER} {NO DIAL TONE} -
  103.           RINGING RING VOICE
  104.         xif fail { echo Call timed out, hangup, out \13, continue }
  105.         if not = \v(minput) 7 break
  106.     }
  107.  
  108.     switch \v(minput) {
  109.       :1, forward done
  110.       :2, Echo Line is busy - will dial again in 30 seconds.
  111.           echo Press any key to cancel...
  112.           output \13
  113.           pause 30
  114.           if fail errfail Canceled
  115.           break
  116.       :3, errfail {Dialing command error}
  117.       :4, errfail {Call failed - no carrier}
  118.       :5, errfail {No answer - try again later}
  119.       :6, errfail {No dialtone - is your modem connected to the phone line?}
  120.       :7, errfail {Call failed - too many rings}
  121.       :8, errfail {Call failed - your phone is ringing}
  122.       :9, errfail {Call failed - answered by voice}
  123.       :default, break
  124.     }    
  125. }
  126. errfail {It never answers!  I give up.} ; Too many tries.
  127.  
  128. :DONE                           ; Connected.
  129. echo \7                         ; Celebrate with a beep.
  130. set carrier on            ; Require carrier from now on.
  131. set parity \m(__parity)        ; Restore host parity setting
  132. undef errfail            ; Erase local macro definitions...
  133. end 0                ; Finished, return success code.
  134.  
  135. :FAIL
  136. undef errfail            ; Erase local macro definitions...
  137. set carrier off            ; Let them reconnect to see what's up.
  138. hangup
  139. end 1                ; Return failure code.
  140.  
  141. ; End of SPORT.SCR
  142.